Q5/ws_objects/Ew_eb_import.pbl.src/uo_mtrlname_ch_spi.sru

$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