$PBExportHeader$uo_mtrlname_ch_spi.sru forward global type uo_mtrlname_ch_spi from nonvisualobject end type end forward global type uo_mtrlname_ch_spi from nonvisualobject end type global uo_mtrlname_ch_spi uo_mtrlname_ch_spi forward prototypes private function string pf_errmsg () public function integer uf_mtrl_ch (ref s_taobao_mtrldef_ch arr_import[], ref string arg_msg) public function integer uf_mtrl_ch (ref s_taobao_mtrldef_ch arg_mtrldef, ref string arg_msg) end prototypes private function string pf_errmsg ();String rslt rslt = Error.Text + ' at ' + Error.ObjectEvent + ' in ' + Error.Object + ' line ' + String(Error.Line) RETURN rslt end function public function integer uf_mtrl_ch (ref s_taobao_mtrldef_ch arr_import[], ref string arg_msg);Int rslt = 1 rslt = 0 PopulateError(999, '需要子类实现') arg_msg = pf_errmsg() GOTO ext ext: RETURN rslt //s_import_mtrlname arr_empty[] //arr_import = arr_empty // //s_edit_index_tran s_tranf8 //传递参数使用 //s_tranf8.if_retrieve_all = False //是否一次RETRIEVE所有行 //s_tranf8.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式 //s_tranf8.arg_pkid = 0 //目标定位PKID (备用) //s_tranf8.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 //s_tranf8.if_select_all = True //多选 //s_tranf8.b_long = -1 //选采购 //s_tranf8.c_long = -1 //s_tranf8.f_long = -1 //s_tranf8.g_long = -1 // //OpenWithParm(W_mtrldef_edit,s_tranf8) //调用 //s_mtrldef_array S_INSCUST //S_INSCUST = Message.PowerObjectParm //接受返回结构 // //IF UpperBound(S_INSCUST.mtrlid) <= 0 THEN RETURN // //Long j = 0 // //Long i //FOR i = 1 To UpperBound(S_INSCUST.mtrlid) // IF S_INSCUST.mtrlid[i] <= 0 THEN CONTINUE // j++ // arr_import[j].im_type = 0 // arr_import[j].im_id = '' // arr_import[j].mtrlid = S_INSCUST.mtrlid[i] // arr_import[j].eb_title = S_INSCUST.mtrlname[i] + '[' + S_INSCUST.mtrlcode[i] + ']' // arr_import[j].eb_dscrp = S_INSCUST.mtrlname[i] + '[' + S_INSCUST.mtrlcode[i] + ']' //NEXT // // end function public function integer uf_mtrl_ch (ref s_taobao_mtrldef_ch arg_mtrldef, ref string arg_msg);Int rslt = 1 rslt = 0 PopulateError(999, '需要子类实现') arg_msg = pf_errmsg() GOTO ext ext: RETURN rslt //s_edit_index_tran s_tranf8 //传递参数使用 //s_tranf8.if_retrieve_all = False //是否一次RETRIEVE所有行 //s_tranf8.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式 //s_tranf8.arg_pkid = 0 //目标定位PKID (备用) //s_tranf8.arg_string_code = '' //查询列(物料编码)部分内容,用于初步筛选 //s_tranf8.if_select_all = False //多选 //s_tranf8.b_long = -1 //选采购 //s_tranf8.c_long = -1 //s_tranf8.f_long = -1 //s_tranf8.g_long = -1 // //s_tranf8.arg_string_code = dw_1.Object.mtrlcode[ll_row] // //OpenWithParm(W_mtrldef_edit,s_tranf8) //调用 //s_mtrldef_array S_INSCUST //S_INSCUST = Message.PowerObjectParm //接受返回结构 // //IF UpperBound(S_INSCUST.mtrlid) <= 0 THEN RETURN //IF S_INSCUST.mtrlid[1] <= 0 THEN RETURN // //dw_1.Object.mtrlid[ll_row] = S_INSCUST.mtrlid[1] //dw_1.Object.mtrlcode[ll_row] = S_INSCUST.mtrlcode[1] //dw_1.Object.mtrlname[ll_row] = S_INSCUST.mtrlname[1] // end function on uo_mtrlname_ch_spi.create call super::create TriggerEvent( this, "constructor" ) end on on uo_mtrlname_ch_spi.destroy TriggerEvent( this, "destructor" ) call super::destroy end on