Q5/ws_objects/Ew_eb_import.pbl.src/w_import_mtrlname.srw

$PBExportHeader$w_import_mtrlname.srw
forward
global type w_import_mtrlname from w_publ_base
end type
type cb_reflash from uo_imflatbutton within w_import_mtrlname
end type
type dw_1 from u_dw_rbtnfilter within w_import_mtrlname
end type
type cb_edit from uo_imflatbutton within w_import_mtrlname
end type
type cb_del from uo_imflatbutton within w_import_mtrlname
end type
type cb_mtrl from uo_imflatbutton within w_import_mtrlname
end type
type cb_p_edit from uo_imflatbutton within w_import_mtrlname
end type
type ddlb_im_type from dropdownlistbox within w_import_mtrlname
end type
type cb_copy from uo_imflatbutton within w_import_mtrlname
end type
type cb_sync from uo_imflatbutton within w_import_mtrlname
end type
type cbx_1 from checkbox within w_import_mtrlname
end type
type cb_mode from uo_imflatbutton within w_import_mtrlname
end type
type st_2 from statictext within w_import_mtrlname
end type
type sle_userid from singlelineedit within w_import_mtrlname
end type
type cb_selectuser from uo_imflatbutton within w_import_mtrlname
end type
type cb_excel from uo_imflatbutton within w_import_mtrlname
end type
type dw_2 from u_dw_rbtnfilter within w_import_mtrlname
end type
type cb_edit_mx from commandbutton within w_import_mtrlname
end type
type cb_undo_mx from commandbutton within w_import_mtrlname
end type
type cb_add_mx from commandbutton within w_import_mtrlname
end type
type cb_del_mx from commandbutton within w_import_mtrlname
end type
type cb_price_edit from uo_imflatbutton within w_import_mtrlname
end type
type cb_price_cancel from uo_imflatbutton within w_import_mtrlname
end type
type cb_requestquote from uo_imflatbutton within w_import_mtrlname
end type
type cb_getanswer from uo_imflatbutton within w_import_mtrlname
end type
type ln_bar from line within w_import_mtrlname
end type
type ln_bar2 from line within w_import_mtrlname
end type
type r_bar from rectangle within w_import_mtrlname
end type
type ln_1 from line within w_import_mtrlname
end type
type ln_2 from line within w_import_mtrlname
end type
end forward

global type w_import_mtrlname from w_publ_base
integer width = 3319
integer height = 2064
string title = "网店产品定义"
boolean maxbox = true
boolean resizable = true
windowstate windowstate = maximized!
event ue_new_mtrl ( )
event ue_f8 ( )
event ue_p_dscrp ( )
event ue_p_mtrl ( )
event ue_retrieve_mx ( )
event ue_taobao_download ( )
event ue_taobao_upload ( )
event ue_p_mtrl_auto ( )
event ue_select_user ( )
event ue_xls_export ( )
event ue_xls_import_mtrlcode ( )
event ue_f9 ( )
event ue_retrieve_dw_mx ( )
event ue_f10 ( )
event ue_csv_import_mtrlcode ( )
event ue_aifmb_upload ( )
event ue_pricelist_ch ( )
event ue_aifmb_download ( )
cb_reflash cb_reflash
dw_1 dw_1
cb_edit cb_edit
cb_del cb_del
cb_mtrl cb_mtrl
cb_p_edit cb_p_edit
ddlb_im_type ddlb_im_type
cb_copy cb_copy
cb_sync cb_sync
cbx_1 cbx_1
cb_mode cb_mode
st_2 st_2
sle_userid sle_userid
cb_selectuser cb_selectuser
cb_excel cb_excel
dw_2 dw_2
cb_edit_mx cb_edit_mx
cb_undo_mx cb_undo_mx
cb_add_mx cb_add_mx
cb_del_mx cb_del_mx
cb_price_edit cb_price_edit
cb_price_cancel cb_price_cancel
cb_requestquote cb_requestquote
cb_getanswer cb_getanswer
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_1 ln_1
ln_2 ln_2
end type
global w_import_mtrlname w_import_mtrlname

type variables
long ins_child = 15
long ins_child_min = 2

long ins_mx = 5

uo_import_mtrlname ins_import

uo_ljlib_taobao_comapp ins_comapp

///////////////////////////////////////////////
oleobject ins_taobao
boolean ins_create = false
boolean ins_connected = false
boolean ins_inited = false

s_eb_user ins_user

boolean dw_mx_edit = false

boolean dw_price_edit = false
end variables

forward prototypes
public function integer wf_save (ref string arg_msg)
public subroutine wf_selectall ()
public subroutine wf_face ()
public function integer wf_del (ref string arg_msg)
public function integer wf_from_ole (ref s_import_mtrlname arg_s_import, oleobject arg_import, ref string arg_msg)
public function integer wf_to_ole (s_import_mtrlname arg_s_import, oleobject arg_import, ref string arg_msg)
public function integer wf_taobao_haspower (ref string arg_msg)
public function integer wf_save_mx (ref string arg_msg)
public function integer wf_save_price (ref string arg_msg)
end prototypes

event ue_new_mtrl();IF dw_edit_mode THEN RETURN

s_import_mtrlname arr_import[]
s_taobao_mtrldef_ch arr_mtrl[]
Int rslt = 1
String arg_msg = ''

IF uo_mtrlname_ch_spi.uf_mtrl_ch(Ref arr_mtrl, Ref arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

IF UpperBound(arr_mtrl) <= 0 THEN RETURN

Long i
FOR i = 1 To UpperBound(arr_mtrl)
	arr_import[i].im_type = 0
	arr_import[i].im_id = ''
	arr_import[i].mtrlid = arr_mtrl[i].mtrlid
	arr_import[i].eb_title = arr_mtrl[i].mtrlname + '[' + arr_mtrl[i].mtrlcode + ']'
	arr_import[i].eb_dscrp = arr_mtrl[i].mtrlname + '[' + arr_mtrl[i].mtrlcode + ']'
NEXT

FOR i = 1 To UpperBound(arr_import)
	IF ins_import.uf_save(arr_import[i], arg_msg, False) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

ext:
IF rslt = 1 THEN
	COMMIT;
	MessageBox('OK', '保存成功')
	cb_reflash.TriggerEvent(Clicked!)
ELSE
	ROLLBACK;
	MessageBox('ERROR', arg_msg)
END IF


end event

event ue_f8();IF Not dw_edit_mode THEN RETURN

Long ll_row

ll_row = dw_1.GetRow()
IF ll_row <= 0 THEN RETURN

s_taobao_mtrldef_ch s_mtrl
String arg_msg = ''

s_mtrl.mtrlcode = dw_1.Object.mtrlcode[ll_row]

IF uo_mtrlname_ch_spi.uf_mtrl_ch(Ref s_mtrl, Ref arg_msg) <> 1 THEN
	MessageBox('Error', arg_msg)
	RETURN
END IF

IF s_mtrl.mtrlid <= 0 THEN RETURN

dw_1.Object.mtrlid[ll_row] = s_mtrl.mtrlid
dw_1.Object.mtrlcode[ll_row] = s_mtrl.mtrlcode
dw_1.Object.mtrlname[ll_row] = s_mtrl.mtrlname
dw_1.Object.statusflag[ll_row] = s_mtrl.statusflag
dw_1.Object.woodcodeflag[ll_row] = s_mtrl.woodcodeflag
dw_1.Object.pcodeflag[ll_row] = s_mtrl.pcodeflag

end event

event ue_p_dscrp();IF dw_edit_mode THEN RETURN

Long i
s_import_mtrlname arr_import[]
Long j = 0

FOR i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[i] <> 1 THEN CONTINUE
	
	j++
	arr_import[j].im_type = dw_1.Object.im_type[i]
	arr_import[j].im_id = dw_1.Object.im_id[i]
NEXT

IF UpperBound(arr_import) <= 0 THEN
	MessageBox('提示', '请勾选要批修改描述的记录')
	RETURN
END IF

Long ll_row
ll_row = dw_1.GetRow()
String ls_html = ''
String arg_msg
IF ll_row > 0 THEN
	IF ins_import.uf_getinfo_dscrp(dw_1.Object.im_type[ll_row], dw_1.Object.im_id[ll_row], Ref ls_html, Ref arg_msg) <> 1 THEN
		MessageBox('ERROR', arg_msg)
		RETURN
	END IF
END IF

OpenWithParm(w_html_editor, ls_html)

s_html_editor s_rslt
s_rslt = Message.PowerObjectParm

IF s_rslt.ifok <> 1 THEN RETURN

FOR i = 1 To UpperBound(arr_import)
	arr_import[i].eb_dscrp = s_rslt.html
NEXT

Int rslt = 1

FOR i = 1 To UpperBound(arr_import)
	IF ins_import.uf_save_dscrp(arr_import[i], arg_msg, False) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

ext:
IF rslt = 1 THEN
	COMMIT;
	MessageBox('OK', '批改成功')
	cb_reflash.TriggerEvent(Clicked!)
ELSE
	ROLLBACK;
	MessageBox('ERROR', arg_msg)
END IF


end event

event ue_p_mtrl();IF Not dw_edit_mode THEN RETURN

s_taobao_mtrldef_ch s_mtrl
String arg_msg = ''
IF uo_mtrlname_ch_spi.uf_mtrl_ch(Ref s_mtrl, Ref arg_msg) <> 1 THEN
	MessageBox('Error', arg_msg)
	RETURN
END IF

IF s_mtrl.mtrlid <= 0 THEN RETURN

Long ll_row
FOR ll_row = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[ll_row] = 1 THEN
		dw_1.Object.mtrlid[ll_row] = s_mtrl.mtrlid
		dw_1.Object.mtrlcode[ll_row] = s_mtrl.mtrlcode
		dw_1.Object.mtrlname[ll_row] = s_mtrl.mtrlname
		dw_1.Object.statusflag[ll_row] = s_mtrl.statusflag
		dw_1.Object.woodcodeflag[ll_row] = s_mtrl.woodcodeflag
		dw_1.Object.pcodeflag[ll_row] = s_mtrl.pcodeflag
	END IF
NEXT

end event

event ue_retrieve_mx();IF IsValid(w_import_mtrlname_dscrp) THEN
	Long ll_row
	ll_row = dw_1.GetRow()
	IF ll_row <= 0 THEN
		w_import_mtrlname_dscrp.wf_sethtml('')
		RETURN
	END IF
	
	String ls_html
	String arg_msg
	IF ins_import.uf_getinfo_dscrp(dw_1.Object.im_type[ll_row], dw_1.Object.im_id[ll_row], ls_html, arg_msg) <> 1 THEN
		w_import_mtrlname_dscrp.wf_sethtml('')
		MessageBox('ERROR', arg_msg)
		RETURN
	END IF
	
	w_import_mtrlname_dscrp.wf_sethtml(ls_html)
	
END IF


end event

event ue_taobao_download();IF dw_edit_mode THEN RETURN

oleobject s_import_arr
String arg_msg
Int rslt = 1

IF wf_taobao_haspower(arg_msg) <> 1 THEN
	MessageBox('提示', arg_msg)
	RETURN
END IF

Open(w_import_mtrlname_taobao_moddate_ch)
s_saletask_import_taobao_option s_tran
s_tran = Message.PowerObjectParm

IF s_tran.ifok <> 1 THEN
	RETURN
END IF

IF Not ins_taobao.GetItemsOnsaleByDate(s_tran.begindate, s_tran.enddate, Ref s_import_arr, Ref arg_msg) THEN
	MessageBox('提示', arg_msg)
	RETURN
END IF

Long cnt
cnt = s_import_arr.GetCount()
Long i
s_import_mtrlname arr_import[]
Long j = 0
FOR i = 0 To cnt - 1
	j++
	IF wf_from_ole(arr_import[j], s_import_arr.GetItem(i), arg_msg) <> 1 THEN
		Destroy s_import_arr
		MessageBox('提示', arg_msg)
		RETURN
	END IF
NEXT
Destroy s_import_arr

FOR i = 1 To UpperBound(arr_import)
	IF ins_import.uf_save_from_web(arr_import[i], arg_msg, False) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT
GOTO ext
ext:
IF rslt = 1 THEN
	COMMIT;
	MessageBox('OK', '下载成功, 日期范围内有' + string(cnt) + '个产品,同步了' + string(UpperBound(arr_import)) + '个产品')
	cb_reflash.TriggerEvent(Clicked!)
ELSE
	ROLLBACK;
	MessageBox('ERROR', arg_msg)
END IF


end event

event ue_taobao_upload();Int rslt = 1
String arg_msg = ''

IF wf_taobao_haspower(arg_msg) <> 1 THEN
	MessageBox('提示', arg_msg)
	RETURN
END IF

s_import_mtrlname arr_import[]
Long j = 0
Long ll_cnt
s_import_mtrlname ls_import, s_empty
oleobject s_import_arr
oleobject s_import

Long i
FOR i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[i] <> 1 THEN CONTINUE
	j++
	IF ins_import.uf_getinfo(dw_1.Object.im_type[i], dw_1.Object.im_id[i], arr_import[j], arg_msg) <> 1 THEN
		MessageBox('提示', arg_msg)
		RETURN
	END IF
NEXT

IF UpperBound(arr_import) <= 0 THEN RETURN

s_import_arr = ins_taobao.News_import_mtrlname_arr()

FOR i = 1 To UpperBound(arr_import)
	s_import = ins_taobao.News_import_mtrlname()
	IF wf_to_ole(arr_import[i], s_import, arg_msg) <> 1 THEN
		Destroy s_import
		rslt = 0
		GOTO ext
	END IF
	s_import_arr.Add(s_import)
NEXT


IF Not ins_taobao.Upload(s_import_arr, Ref arg_msg) THEN
	rslt = 0
	GOTO ext
END IF

ll_cnt = s_import_arr.GetCount()
FOR i = 0 To ll_cnt - 1
	IF s_import_arr.GetItem(i).im_type <> 5 THEN
		ls_import = s_empty
		IF wf_from_ole(ls_import, s_import_arr.GetItem(i), arg_msg) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		ls_import.im_type = 5
		ls_import.im_id = ls_import.numIid
		IF ins_import.uf_save(ls_import, arg_msg, False) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
NEXT


GOTO ext
ext:

ll_cnt = s_import_arr.GetCount()
FOR i = 0 To ll_cnt - 1
	s_import = s_import_arr.GetItem(i)
	Destroy s_import
NEXT
Destroy s_import_arr

IF rslt = 1 THEN
	COMMIT;
	MessageBox('OK', '上传成功')
	cb_reflash.TriggerEvent(Clicked!)
ELSE
	ROLLBACK;
	MessageBox('ERROR', arg_msg)
END IF














end event

event ue_p_mtrl_auto();IF Not dw_edit_mode THEN RETURN

uo_strhelper uo_str
uo_str = Create uo_strhelper

// 物料编码 = 
dw_1.AcceptText()

String props[]
String parms[], parm[]
Long i,j,k
FOR i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[i] = 1 THEN
		uo_str.split(dw_1.Object.props[i], ";", parms)
		FOR j = 1 To UpperBound(parms)
			uo_str.split(parms[j], ":", parm)
			IF parm[1] <> '' THEN
				FOR k = 1 To UpperBound(props)
					IF props[k] = parm[1] THEN
						EXIT
					END IF
				NEXT
				IF k > UpperBound(props) THEN
					props[k] = parm[1]
				END IF
			END IF
		NEXT
	END IF
NEXT

s_import_mtrlname_map s_map
s_map.outer_name = props
OpenWithParm(w_import_mtrlname_map, s_map)

s_map = Message.PowerObjectParm
IF s_map.ifok <> 1 THEN RETURN

Long ll_mtrlid
String ls_mtrlcode, ls_mtrlname, ls_value, ls_sql
Long ll_statusflag, ll_woodcodeflag, ll_pcodeflag
FOR i = 1 To dw_1.RowCount()
	
	FOR j = 1 To UpperBound(s_map.inner_name)
		ll_mtrlid = 0
		ls_mtrlcode = ''
		ls_mtrlname = ''
		ls_value = ''
		uo_str.split(dw_1.Object.props[i], ";", parms)
		FOR k = 1 To UpperBound(parms)
			uo_str.split(parms[k], ":", parm)
			IF parm[1] = s_map.outer_name[j]  THEN
				ls_value = Trim(parm[2])
				EXIT
			END IF
		NEXT
		
		IF ls_value <> '' THEN
			ls_sql = "SELECT mtrlid, mtrlcode, mtrlname FROM u_mtrldef WHERE " + s_map.inner_name[j] + " = ?"
			
			DECLARE cur1 Dynamic Cursor FOR SQLSA;
			PREPARE SQLSA From :ls_sql;
			OPEN Dynamic cur1 Using :ls_value;
			FETCH cur1 Into :ll_mtrlid, :ls_mtrlcode, :ls_mtrlname;
			CLOSE cur1;
			
			IF ll_mtrlid > 0 THEN
				dw_1.Object.mtrlid[i] = ll_mtrlid
				dw_1.Object.mtrlcode[i] = ls_mtrlcode
				dw_1.Object.mtrlname[i] = ls_mtrlname
				SELECT statusflag, woodcodeflag, pcodeflag
					INTO :ll_statusflag, :ll_woodcodeflag, :ll_pcodeflag
					FROM u_mtrldef
					Where mtrlid = :ll_mtrlid;
				IF sqlca.SQLCode <> 0 THEN
					ll_statusflag = 3
					ll_woodcodeflag = 3
					ll_pcodeflag = 3
				END IF
				dw_1.Object.statusflag[i] = ll_statusflag
				dw_1.Object.woodcodeflag[i] = ll_woodcodeflag
				dw_1.Object.pcodeflag[i] = ll_pcodeflag
				EXIT
			END IF
		END IF
		
	NEXT
	
NEXT

Destroy uo_str


end event

event ue_select_user();Long ins_im_type

IF ddlb_im_type.Text = '模板' THEN
	ins_im_type = 0
ELSEIF ddlb_im_type.Text = '亚洲国际电商' THEN
	ins_im_type = 1
ELSEIF ddlb_im_type.Text = '淘宝' THEN
	ins_im_type = 5
ELSEIF ddlb_im_type.Text = '京东' THEN
	ins_im_type = 6
ELSE
	ins_im_type = -1
END IF

s_eb_user s_ch
OpenWithParm(w_eb_user_define_ch, ins_im_type)
s_ch = Message.PowerObjectParm

IF s_ch.UserID > 0 THEN
	ins_user = s_ch
END IF

IF ins_user.im_type = 0 THEN
	ddlb_im_type.Text = '模板'
ELSEIF ins_user.im_type = 1 THEN
	ddlb_im_type.Text = '亚洲国际电商'
ELSEIF ins_user.im_type = 5 THEN
	ddlb_im_type.Text = '淘宝'
ELSEIF ins_user.im_type = 6 THEN
	ddlb_im_type.Text = '京东'
ELSE
	ddlb_im_type.Text = '全部'
END IF

sle_userid.Text = ins_user.im_userid
cb_reflash.triggerevent(clicked!)
end event

event ue_xls_export();Integer i
String Pathname,Filename
String arg_filename,arg_msg
Blob arg_blob


IF GetFileSaveName("选择备份文件",Pathname,Filename,'xls',"Excel,*.xls") <> 1 THEN RETURN

arg_filename = Trim(Pathname)
IF arg_filename = '' THEN
	MessageBox('提示','请输入文件名称', Information!, OK! )
	RETURN
END IF

IF FileExists(arg_filename) THEN
	IF MessageBox("询问","指定文件已经存在，是否覆盖该文件?",question!,yesno!,2) = 2 THEN
		RETURN
	END IF
END IF
dw_1.SaveAsAscii(arg_filename)
MessageBox('OK', '导出成功!')

end event

event ue_xls_import_mtrlcode();Int rslt = 1
String arg_msg = ''

String ls_path, ls_filename
IF GetFileOpenName("请选择要导入的Excel文件", ls_path, ls_filename, "XLS","Excel文件(*.XLS),*.XLS") <> 1 THEN
	RETURN
END IF


IF ins_import.uf_xls_to_import_mtrlcode(ls_path, arg_msg, false, true) <> 1 THEN
	rslt = 0
	GOTO ext
END IF


ext:
IF rslt = 1 THEN
	COMMIT;
	MessageBox('OK', '导入成功')
	cb_reflash.TriggerEvent(Clicked!)
ELSE
	ROLLBACK;
	MessageBox('ERROR', arg_msg)
END IF




end event

event ue_f9();IF Not dw_mx_edit THEN RETURN

Long ll_row

ll_row = dw_2.GetRow()
IF ll_row <= 0 THEN RETURN

s_taobao_mtrldef_ch s_mtrl
String arg_msg = ''

s_mtrl.mtrlcode = dw_2.Object.mtrlcode[ll_row]

IF uo_mtrlname_ch_spi.uf_mtrl_ch(Ref s_mtrl, Ref arg_msg) <> 1 THEN
	MessageBox('Error', arg_msg)
	RETURN
END IF

IF s_mtrl.mtrlid <= 0 THEN RETURN

dw_2.Object.mtrlid[ll_row] = s_mtrl.mtrlid
dw_2.Object.mtrlcode[ll_row] = s_mtrl.mtrlcode
dw_2.Object.mtrlname[ll_row] = s_mtrl.mtrlname
dw_2.Object.statusflag[ll_row] = s_mtrl.statusflag
dw_2.Object.woodcodeflag[ll_row] = s_mtrl.woodcodeflag
dw_2.Object.pcodeflag[ll_row] = s_mtrl.pcodeflag

end event

event ue_retrieve_dw_mx();Long ll_row
ll_row = dw_1.GetRow()

IF ll_row > 0 THEN
	dw_2.Retrieve(dw_1.Object.im_type[ll_row], dw_1.Object.im_id[ll_row])
ELSE
	dw_2.Reset()
END IF

end event

event ue_f10();IF Not dw_mx_edit THEN RETURN

Long ll_row, ll_dw1_row

ll_row = dw_2.GetRow()
IF ll_row <= 0 THEN RETURN

ll_dw1_row = dw_1.GetRow()
IF ll_dw1_row <= 0 THEN RETURN

s_key_value_parm s_win
s_win.allprops = dw_1.Object.props[ll_dw1_row]
s_win.curprops = dw_2.Object.pros[ll_row]
OpenWithParm(w_key_value_edit, s_win)

String ls_rtn
ls_rtn = Message.StringParm

IF IsNull(ls_rtn) THEN RETURN
dw_2.Object.pros[ll_row] = ls_rtn

end event

event ue_csv_import_mtrlcode();Int rslt = 1
String arg_msg = ''

String ls_path, ls_filename
IF GetFileOpenName("请选择要导入的csv文件", ls_path, ls_filename, "csv","csv文件(*.csv),*.csv") <> 1 THEN
	RETURN
END IF

Long i

s_import_mtrlname arr_import[]

IF ins_import.uf_csv_to_import_mtrlcode(ls_path, arr_import, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

FOR i = 1 To UpperBound(arr_import)
	IF ins_import.uf_save(arr_import[i], arg_msg, False) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
NEXT

ext:
IF rslt = 1 THEN
	COMMIT;
	MessageBox('OK', '导入成功,' + string(UpperBound(arr_import)) + '条记录')
	cb_reflash.TriggerEvent(Clicked!)
ELSE
	ROLLBACK;
	MessageBox('ERROR', arg_msg)
END IF




end event

event ue_aifmb_upload();Int rslt = 1
String arg_msg = ''
uo_aifmb = Create uo_aifmb
s_aifmb_addmodproductentrelation s_tran
s_import_mtrlname s_import

String ls_msg = ''

String ls_mtrlcode, ls_mtrlmode, ls_dscrp, ls_unit, ls_mtrlengname, ls_mtrlname
Decimal ld_net_weight, ld_gross_weight, ld_cubage
Long ll_nodeid

Long i
FOR i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[i] <> 1 THEN CONTINUE
	IF dw_1.Object.im_type[i] <> 0 THEN CONTINUE
	IF ins_import.uf_getinfo(dw_1.Object.im_type[i], dw_1.Object.im_id[i], s_import, arg_msg) <> 1 THEN
		ls_msg += '第'+String(i)+'行,查询模板失败,' + arg_msg + '~r~n'
		CONTINUE
	END IF
	
	IF s_import.mtrlid <= 0 THEN
		ls_msg += '第'+String(i)+'行,未对应物料资料不能上传~r~n'
		CONTINUE
	END IF
	
	SELECT mtrlcode, mtrlmode, dscrp, unit, net_weight, gross_weight, cubage, mtrlengname, mtrlname, nodeid
		INTO :ls_mtrlcode, :ls_mtrlmode, :ls_dscrp, :ls_unit, :ld_net_weight, :ld_gross_weight, :ld_cubage, :ls_mtrlengname, :ls_mtrlname, :ll_nodeid
		FROM u_mtrldef
		Where (mtrlid = :s_import.mtrlid);
	IF sqlca.SQLCode <> 0 THEN
		ls_msg += '第'+String(i)+'行,查询物料资料失败mtrlid:'+String(s_import.mtrlid)+',' + arg_msg + '~r~n'
		CONTINUE
	END IF
	
	IF ll_nodeid <= 0 THEN
		ls_msg += '第'+String(i)+'行,物料['+ls_mtrlcode+']未绑定亚洲国际电商网的基类~r~n'
		CONTINUE
	END IF
	
	s_tran.relationid = 0
	s_tran.nodeid = ll_nodeid
	s_tran.mtrlid = s_import.mtrlid
	s_tran.mtrlcode = ls_mtrlcode
	s_tran.mtrlname = ls_mtrlname
	s_tran.mtrlmode = ls_mtrlmode
	s_tran.unit = ls_unit
	s_tran.net_weight = ld_net_weight
	s_tran.gross_weight = ld_gross_weight
	s_tran.cubage = ld_cubage
	s_tran.mtrlengname = ls_mtrlengname
	s_tran.dscrp = ls_dscrp
	s_tran.qualitydscrp = ''
	s_tran.customcode = ''
	s_tran.mprice = s_import.eb_price
	s_tran.nprice = 0
	s_tran.ispublic = True
	s_tran.ProductID = 0
	
	IF uo_aifmb.uf_addmodproductentrelation(Ref s_tran, arg_msg) <> 1 THEN
		ls_msg += '第'+String(i)+'行,上传亚洲国际电商网失败,'+arg_msg+'~r~n'
		CONTINUE
	END IF
	
	s_import.im_type = 1
	s_import.im_id = string(s_tran.relationid)
	s_import.eb_num = 0
	s_import.eb_type = ''
	s_import.eb_stuffstatus = ''
	s_import.eb_title = ls_mtrlname
	s_import.eb_locationstate = ''
	s_import.eb_locationcity = ''
	s_import.eb_cid  = string(ll_nodeid)
	s_import.numiid = string(s_tran.ProductID)
	s_import.props = ''
	s_import.im_userid = ''
	IF ins_import.uf_save(s_import, arg_msg, True) <> 1 THEN
		ls_msg += '第'+String(i)+'行,上传亚洲国际电商网成功但保存数据库失败,'+arg_msg+'~r~n'
		CONTINUE
	END IF
	
NEXT

IF ls_msg <> '' THEN
	rslt = 0
	arg_msg = ls_msg
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	MessageBox('ERROR', arg_msg)
ELSE
	MessageBox('OK', '上传成功')
END IF









end event

event ue_pricelist_ch();IF Not dw_price_edit THEN RETURN

Long row
row = dw_1.GetRow()
IF row <= 0 THEN RETURN

Long ll_mtrlid
ll_mtrlid = dw_1.Object.mtrlid[row]

Long pricelistid
String pricelistname
String arg_msg = ''

IF uo_saletask_spi.wf_pricelist_ch(ll_mtrlid, pricelistid, pricelistname, arg_msg) <> 1 THEN
	IF arg_msg <> '' THEN
		MessageBox('错误', arg_msg)
	END IF
	RETURN
END IF

dw_1.Object.pricelistid[row] = pricelistid
dw_1.Object.pricelistname[row] = pricelistname

end event

event ue_aifmb_download();DataStore ds_productcode
ds_productcode = Create DataStore
uo_aifmb = Create uo_aifmb
Int rslt = 1
String arg_msg
DateTime ld_starttime, ld_endtime

//IF cbx_begin.Checked THEN
//	ld_starttime = DateTime(Date(em_3.Text), Time(0))
//ELSE
SetNull(ld_starttime)
//END IF

//IF cbx_end.Checked THEN
//	ld_endtime = DateTime(Date(em_4.Text), Time(0))
//ELSE
SetNull(ld_endtime)
//END IF

ds_productcode.DataObject = 'ds_aifmb_searchproductentrelation'

Long ll_entids[]
Long ll_curEntid
IF uo_aifmb.uf_getlocaluserid(ll_curEntid, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

ll_entids[1] = ll_curEntid

Long ins_nodeid_arr[]

IF uo_aifmb.uf_searchproductentrelationlist(False, ld_starttime, ld_endtime, '', ins_nodeid_arr,ll_entids, 0, 0, ds_productcode, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

Long i
Long ll_cnt
s_import_mtrlname s_import

String ls_msg = ''

FOR i = 1 To ds_productcode.RowCount()
	
	s_import.im_type = 1
	s_import.im_id = String(ds_productcode.Object.relationid[i])
	
	SELECT count(0)
		INTO :ll_cnt
		FROM eb_import_mtrlname
		WHERE im_type = :s_import.im_type
		And im_id = :s_import.im_id;
	IF sqlca.SQLCode <> 0 THEN
		ls_msg += '查询产品是否已经存在失败,' + sqlca.SQLErrText + '~r~n'
		CONTINUE
	END IF
	
	IF ll_cnt > 0 THEN
		CONTINUE
	END IF
	
	s_import.mtrlid = ds_productcode.Object.mtrlid[i]
	s_import.eb_num = 0
	s_import.eb_price = ds_productcode.Object.mprice[i]
	s_import.eb_type = ''
	s_import.eb_stuffstatus = ''
	s_import.eb_title = ds_productcode.Object.mtrlname[i]
	s_import.eb_locationstate = ''
	s_import.eb_locationcity = ''
	s_import.eb_cid = string(ds_productcode.Object.NodeID[i])
	s_import.numiid = string(ds_productcode.Object.ProductID[i])
	s_import.props = ''
	s_import.im_userid = ''
	
	IF ins_import.uf_save(s_import, arg_msg, True) <> 1 THEN
		ls_msg += '保存产品失败,' + arg_msg + '~r~n'
		CONTINUE
	END IF
	
NEXT

IF ls_msg <> '' THEN
	rslt = 0
	arg_msg = ls_msg
	GOTO ext
END IF

ext:
Destroy ds_productcode
Destroy uo_aifmb
cb_reflash.TriggerEvent(Clicked!)
IF rslt = 0 THEN
	MessageBox('ERROR', arg_msg)
ELSE
	MessageBox('OK', '保存成功')
END IF




end event

public function integer wf_save (ref string arg_msg);Int rslt = 1

Long i
s_import_mtrlname s_import, s_empty
FOR i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[i] <> 1 THEN CONTINUE
	s_import = s_empty
	
	s_import.im_type = dw_1.Object.im_type[i]
	s_import.im_id = dw_1.Object.im_id[i]
	s_import.mtrlid = dw_1.Object.mtrlid[i]
	s_import.eb_num = dw_1.Object.eb_num[i]
	s_import.eb_price = dw_1.Object.eb_price[i]
	s_import.eb_type = dw_1.Object.eb_type[i]
	s_import.eb_stuffstatus = dw_1.Object.eb_stuffstatus[i]
	s_import.eb_title = dw_1.Object.eb_title[i]
	s_import.eb_locationstate = dw_1.Object.eb_locationstate[i]
	s_import.eb_locationcity = dw_1.Object.eb_locationcity[i]
	s_import.eb_cid = dw_1.Object.eb_cid[i]
	s_import.numIid = dw_1.Object.numIid[i]
	s_import.props = dw_1.Object.props[i]
	s_import.status_name = dw_1.Object.status_name[i]
	s_import.woodcode_name = dw_1.Object.woodcode_name[i]
	s_import.pcode_name = dw_1.Object.pcode_name[i]
	s_import.mx_flag = dw_1.Object.mx_flag[i]
	
	IF ins_import.uf_save(s_import, arg_msg, False) <> 1 THEN
		rslt = 0
		arg_msg = '第' + String(i) + '行' + arg_msg
		GOTO ext
	END IF
	
NEXT

GOTO ext
ext:
IF rslt = 1 THEN
	COMMIT;
ELSE
	ROLLBACK;
END IF
RETURN rslt


end function

public subroutine wf_selectall ();Long ll_check
IF cbx_1.Checked THEN
	ll_check = 1
ELSE
	ll_check = 0
END IF

Long i
FOR i = 1 To dw_1.RowCount()
	dw_1.Object.ch[i] = ll_check
NEXT

end subroutine

public subroutine wf_face ();Long i

ddlb_im_type.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)
cb_selectuser.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)
cb_excel.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)
cb_reflash.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)
cb_p_edit.Enabled = Not (dw_mx_edit Or dw_price_edit)
cb_mtrl.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)
cb_copy.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)
cb_sync.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)
cb_requestquote.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)
cb_getanswer.Enabled = Not (dw_edit_mode Or dw_mx_edit Or dw_price_edit)

cb_edit.Enabled = Not(dw_mx_edit Or dw_price_edit)
cb_del.Enabled = Not(dw_mx_edit Or dw_price_edit)

cb_price_edit.Enabled = Not (dw_edit_mode Or dw_mx_edit)
cb_price_cancel.Enabled = Not (dw_edit_mode Or dw_mx_edit) And dw_price_edit

Long ll_row
ll_row = dw_1.GetRow()
Boolean mx_flag = False

IF ll_row > 0 THEN
	mx_flag = (dw_1.Object.mx_flag[ll_row] = 1)
END IF

cb_edit_mx.Enabled = Not (dw_edit_mode Or dw_price_edit) And mx_flag
cb_undo_mx.Enabled = Not (dw_edit_mode Or dw_price_edit) And mx_flag And dw_mx_edit
cb_add_mx.Enabled = Not (dw_edit_mode Or dw_price_edit) And mx_flag And dw_mx_edit
cb_del_mx.Enabled = Not (dw_edit_mode Or dw_price_edit) And mx_flag And dw_mx_edit

IF dw_mx_edit THEN
	FOR i = 1 To ins_mx
		dw_2.SetTabOrder(i, i * 10)
	NEXT
	cb_edit_mx.Text = '保存'
ELSE
	FOR i = 1 To ins_mx
		dw_2.SetTabOrder(i, 0)
	NEXT
	cb_edit_mx.Text = '修改'
END IF

IF dw_price_edit THEN
	FOR i = 27 To 28
		dw_1.SetTabOrder(i, i * 10)
	NEXT
	cb_price_edit.Text = '保存价格上传策略'
	cb_price_edit.normalpicname = 'Save.bmp'
ELSE
	FOR i = 27 To 28
		dw_1.SetTabOrder(i, 0)
	NEXT
	cb_price_edit.Text = '修改价格上传策略'
	cb_price_edit.normalpicname = 'OPEN.bmp'
END IF

IF dw_edit_mode THEN
	
	FOR i = 1 To ins_child
		dw_1.SetTabOrder(i, i * 10)
	NEXT
	
	cb_edit.Text = '保存'
	cb_edit.normalpicname = 'Save.bmp'
	cb_del.Text = '放弃'
	cb_del.normalpicname = 'Undo.bmp'
ELSE
	
	FOR i = 1 To ins_child_min - 1
		dw_1.SetTabOrder(i, i * 10)
	NEXT
	FOR i = ins_child_min To ins_child
		dw_1.SetTabOrder(i, 0)
	NEXT
	
	cb_edit.Text = '修改'
	cb_edit.normalpicname = 'OPEN.bmp'
	cb_del.Text = '删除'
	cb_del.normalpicname = 'delete.bmp'
END IF

cb_price_edit.of_init_draw()
cb_price_edit.of_paint()
cb_price_edit.TriggerEvent('ue_textchange')
cb_edit.of_init_draw()
cb_edit.of_paint()
cb_edit.TriggerEvent('ue_textchange')
cb_del.of_init_draw()
cb_del.of_paint()
cb_del.TriggerEvent('ue_textchange')




end subroutine

public function integer wf_del (ref string arg_msg);Int rslt = 1

Long i
FOR i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[i] <> 1 THEN CONTINUE
	IF ins_import.uf_del(dw_1.Object.im_type[i], dw_1.Object.im_id[i], arg_msg, False) <> 1 THEN
		rslt = 0
		arg_msg = '第' + String(i) + '行,' + arg_msg
		GOTO ext
	END IF
NEXT

ext:
IF rslt = 1 THEN
	COMMIT;
ELSE
	ROLLBACK;
END IF
RETURN rslt


end function

public function integer wf_from_ole (ref s_import_mtrlname arg_s_import, oleobject arg_import, ref string arg_msg);Int rslt = 1

IF IsNull(arg_import) THEN
	rslt = 0
	arg_msg = 'ole对象为空'
	GOTO ext
END IF
TRY
	arg_s_import.im_type = arg_import.im_type
	arg_s_import.im_id = arg_import.im_id
	arg_s_import.mtrlid = arg_import.mtrlid
	arg_s_import.eb_num = arg_import.eb_num
	arg_s_import.eb_price = arg_import.eb_price
	arg_s_import.eb_type = arg_import.eb_type
	arg_s_import.eb_stuffstatus = arg_import.eb_stuffstatus
	arg_s_import.eb_title = arg_import.eb_title
	arg_s_import.eb_dscrp = arg_import.eb_dscrp
	arg_s_import.eb_locationstate = arg_import.eb_locationstate
	arg_s_import.eb_locationcity = arg_import.eb_locationcity
	arg_s_import.eb_cid = arg_import.eb_cid
	arg_s_import.numIid = arg_import.numIid
	arg_s_import.props = arg_import.props
	arg_s_import.im_userid = arg_import.im_userid
	
Catch (throwable ex)
	rslt = 0
	arg_msg = ex.Text
END TRY
ext:
RETURN rslt


end function

public function integer wf_to_ole (s_import_mtrlname arg_s_import, oleobject arg_import, ref string arg_msg);Int rslt = 1

IF IsNull(arg_import) THEN
	rslt = 0
	arg_msg = 'ole对象为空'
	GOTO ext
END IF
TRY
	arg_import.im_type = arg_s_import.im_type
	arg_import.im_id = arg_s_import.im_id
	arg_import.mtrlid = arg_s_import.mtrlid
	arg_import.eb_num = arg_s_import.eb_num
	arg_import.eb_price = arg_s_import.eb_price
	arg_import.eb_type = arg_s_import.eb_type
	arg_import.eb_stuffstatus = arg_s_import.eb_stuffstatus
	arg_import.eb_title = arg_s_import.eb_title
	arg_import.eb_dscrp = arg_s_import.eb_dscrp
	arg_import.eb_locationstate = arg_s_import.eb_locationstate
	arg_import.eb_locationcity = arg_s_import.eb_locationcity
	arg_import.eb_cid = arg_s_import.eb_cid
	arg_import.numIid = arg_s_import.numIid
	arg_import.props = arg_s_import.props
Catch (throwable ex)
	rslt = 0
	arg_msg = ex.Text
END TRY
ext:
RETURN rslt


end function

public function integer wf_taobao_haspower (ref string arg_msg);Int rslt = 1

IF Not sys_power_issuper And ins_user.im_type <> 5 THEN
	rslt = 0
	arg_msg = '当前选择的不是淘宝帐号'
	GOTO ext
END IF

IF Not ins_connected THEN
	rslt = 0
	arg_msg = '连接LJLib.TaoBao.dll失败'
	GOTO ext
END IF

IF Not sys_power_issuper And ins_user.im_userid <> ins_taobao.username THEN
	ins_taobao.Logout()
END IF

IF Not ins_taobao.HasPower() THEN
	rslt = 0
	arg_msg = '淘宝控件未得到授权'
	GOTO ext
END IF

IF Not sys_power_issuper And ins_user.im_userid <> ins_taobao.username THEN
	ins_taobao.Logout()
	rslt = 0
	arg_msg = '请用指定帐号登录授权:' + ins_user.im_userid
	GOTO ext
END IF


ext:
RETURN rslt



end function

public function integer wf_save_mx (ref string arg_msg);Int rslt = 1

Long i
Long im_type
String im_id

im_type = dw_1.Object.im_type[dw_1.GetRow()]
im_id = dw_1.Object.im_id[dw_1.GetRow()]

s_import_mtrlnamemx mx[]
Long cnt = 0

FOR i = 1 To dw_2.RowCount()
	IF dw_2.Object.pros[i] = '' THEN CONTINUE
	cnt++
	mx[cnt].pros = dw_2.Object.pros[i]
	mx[cnt].mtrlid = dw_2.Object.mtrlid[i]
	mx[cnt].status_name = dw_2.Object.status_name[i]
	mx[cnt].woodcode_name = dw_2.Object.woodcode_name[i]
	mx[cnt].pcode_name = dw_2.Object.pcode_name[i]
NEXT

IF ins_import.uf_savemx(im_type, im_id, mx, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

ext:
RETURN rslt

end function

public function integer wf_save_price (ref string arg_msg);Int rslt = 1

Long i

Long ll_im_type
String ls_im_id

String ls_pricetype, ls_priceparam
Long ll_priceneedaudit, ll_pricemode, ll_pricelistid

s_import_mtrlname s_import, s_empty
FOR i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[i] <> 1 THEN CONTINUE
	
	ll_im_type = dw_1.Object.im_type[i]
	ls_im_id = dw_1.Object.im_id[i]
	ls_pricetype = dw_1.Object.pricetype[i]
	ls_priceparam = dw_1.Object.priceparam[i]
	ll_priceneedaudit = dw_1.Object.priceneedaudit[i]
	ll_pricemode = dw_1.Object.pricemode[i]
	ll_pricelistid = dw_1.Object.pricelistid[i]
	
	UPDATE eb_import_mtrlname
		SET pricetype = :ls_pricetype,
		priceparam = :ls_priceparam,
		priceneedaudit = :ll_priceneedaudit,
		pricemode = :ll_pricemode,
		pricelistid = :ll_pricelistid
		WHERE (im_type = :ll_im_type)
		And (im_id = :ls_im_id);
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新网店产品定义的价格上传策略失败,' + sqlca.SQLErrText
		GOTO ext
	END IF
	
NEXT

GOTO ext
ext:
IF rslt = 1 THEN
	COMMIT;
ELSE
	ROLLBACK;
END IF
RETURN rslt



end function

on w_import_mtrlname.create
int iCurrent
call super::create
this.cb_reflash=create cb_reflash
this.dw_1=create dw_1
this.cb_edit=create cb_edit
this.cb_del=create cb_del
this.cb_mtrl=create cb_mtrl
this.cb_p_edit=create cb_p_edit
this.ddlb_im_type=create ddlb_im_type
this.cb_copy=create cb_copy
this.cb_sync=create cb_sync
this.cbx_1=create cbx_1
this.cb_mode=create cb_mode
this.st_2=create st_2
this.sle_userid=create sle_userid
this.cb_selectuser=create cb_selectuser
this.cb_excel=create cb_excel
this.dw_2=create dw_2
this.cb_edit_mx=create cb_edit_mx
this.cb_undo_mx=create cb_undo_mx
this.cb_add_mx=create cb_add_mx
this.cb_del_mx=create cb_del_mx
this.cb_price_edit=create cb_price_edit
this.cb_price_cancel=create cb_price_cancel
this.cb_requestquote=create cb_requestquote
this.cb_getanswer=create cb_getanswer
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_1=create ln_1
this.ln_2=create ln_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_reflash
this.Control[iCurrent+2]=this.dw_1
this.Control[iCurrent+3]=this.cb_edit
this.Control[iCurrent+4]=this.cb_del
this.Control[iCurrent+5]=this.cb_mtrl
this.Control[iCurrent+6]=this.cb_p_edit
this.Control[iCurrent+7]=this.ddlb_im_type
this.Control[iCurrent+8]=this.cb_copy
this.Control[iCurrent+9]=this.cb_sync
this.Control[iCurrent+10]=this.cbx_1
this.Control[iCurrent+11]=this.cb_mode
this.Control[iCurrent+12]=this.st_2
this.Control[iCurrent+13]=this.sle_userid
this.Control[iCurrent+14]=this.cb_selectuser
this.Control[iCurrent+15]=this.cb_excel
this.Control[iCurrent+16]=this.dw_2
this.Control[iCurrent+17]=this.cb_edit_mx
this.Control[iCurrent+18]=this.cb_undo_mx
this.Control[iCurrent+19]=this.cb_add_mx
this.Control[iCurrent+20]=this.cb_del_mx
this.Control[iCurrent+21]=this.cb_price_edit
this.Control[iCurrent+22]=this.cb_price_cancel
this.Control[iCurrent+23]=this.cb_requestquote
this.Control[iCurrent+24]=this.cb_getanswer
this.Control[iCurrent+25]=this.ln_bar
this.Control[iCurrent+26]=this.ln_bar2
this.Control[iCurrent+27]=this.r_bar
this.Control[iCurrent+28]=this.ln_1
this.Control[iCurrent+29]=this.ln_2
end on

on w_import_mtrlname.destroy
call super::destroy
destroy(this.cb_reflash)
destroy(this.dw_1)
destroy(this.cb_edit)
destroy(this.cb_del)
destroy(this.cb_mtrl)
destroy(this.cb_p_edit)
destroy(this.ddlb_im_type)
destroy(this.cb_copy)
destroy(this.cb_sync)
destroy(this.cbx_1)
destroy(this.cb_mode)
destroy(this.st_2)
destroy(this.sle_userid)
destroy(this.cb_selectuser)
destroy(this.cb_excel)
destroy(this.dw_2)
destroy(this.cb_edit_mx)
destroy(this.cb_undo_mx)
destroy(this.cb_add_mx)
destroy(this.cb_del_mx)
destroy(this.cb_price_edit)
destroy(this.cb_price_cancel)
destroy(this.cb_requestquote)
destroy(this.cb_getanswer)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_1)
destroy(this.ln_2)
end on

event close;call super::close;IF IsValid(w_import_mtrlname_dscrp) THEN
	Close(w_import_mtrlname_dscrp)
END IF
Destroy ins_import
destroy ins_comapp

end event

event resize;call super::resize;r_bar.Width = this.width

ln_bar.endx = this.width
ln_bar2.endx = this.width
ln_1.endx = this.width
ln_2.endx = this.width

dw_1.height = this.WorkSpaceHeight() - dw_1.Y
dw_1.Width = this.WorkSpaceWidth() - dw_1.X - dw_2.Width

dw_2.height = this.WorkSpaceHeight() - dw_2.Y

long deltax
deltax = dw_1.X + dw_1.Width - dw_2.X

dw_2.X = dw_2.X + deltax
cb_edit_mx.X = cb_edit_mx.X + deltax
cb_undo_mx.X = cb_undo_mx.X + deltax
cb_add_mx.X = cb_add_mx.X + deltax
cb_del_mx.X = cb_del_mx.X + deltax

end event

event open;call super::open;ins_comapp = Create uo_ljlib_taobao_comapp
String arg_msg
ins_comapp.uf_init(ins_taobao, ins_create, ins_connected, ins_inited, arg_msg)

ins_import = Create uo_import_mtrlname
dw_1.SetTransObject(sqlca)
dw_2.SetTransObject(sqlca)
// 选择电商帐号
IF sys_power_issuper THEN
	ddlb_im_type.AddItem('全部')
END IF

ins_user.UserID = 0
ins_user.im_type = 0
ins_user.im_userid = ''

cb_reflash.TriggerEvent(Clicked!)

wf_face()

end event

type cb_func from w_publ_base`cb_func within w_import_mtrlname
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_import_mtrlname
integer x = 1362
integer width = 151
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_reflash from uo_imflatbutton within w_import_mtrlname
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "刷新"
string normalpicname = "refresh.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long ins_im_type

IF ddlb_im_type.Text = '模板' THEN
	ins_im_type = 0
ELSEIF ddlb_im_type.Text = '亚洲国际电商' THEN
	ins_im_type = 1
ELSEIF ddlb_im_type.Text = '淘宝' THEN
	ins_im_type = 5
ELSEIF ddlb_im_type.Text = '京东' THEN
	ins_im_type = 6
ELSE
	ins_im_type = -1
END IF

Long ll_is_super = 0
IF sys_power_issuper THEN
	ll_is_super = 1
END IF

dw_1.Retrieve(ins_im_type, ins_user.im_userid, ll_is_super)
Parent.TriggerEvent('ue_retrieve_mx')
Parent.TriggerEvent('ue_retrieve_dw_mx')
dw_1.SelectRow(0, False)
IF dw_1.GetRow() > 0 THEN
	dw_1.SelectRow(dw_1.GetRow(), True)
END IF
wf_face()
end event

type dw_1 from u_dw_rbtnfilter within w_import_mtrlname
event ue_dwndropdown pbm_dwndropdown
integer y = 300
integer width = 1056
integer height = 1440
integer taborder = 30
boolean bringtotop = true
string dataobject = "dw_import_mtrlname"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event ue_dwndropdown;IF Not dw_edit_mode THEN RETURN

Long row
String column
s_props_openwin s_win
String ls_rtn

row = dw_1.GetRow()
column = dw_1.GetColumnName()
s_win.arg_x = This.X + This.PointerX() + Parent.X
s_win.arg_y = This.Y + This.PointerY() + Parent.Y

IF row > 0 THEN
	s_win.props = dw_1.Object.props[row]
	IF column = 'status_name' THEN
		OpenWithParm(w_props_ch, s_win)
		ls_rtn = Message.StringParm
		IF IsNull(ls_rtn) THEN RETURN 1
		dw_1.Object.status_name[row] = ls_rtn
		RETURN 1
	ELSEIF column = 'woodcode_name' THEN
		OpenWithParm(w_props_ch, s_win)
		ls_rtn = Message.StringParm
		IF IsNull(ls_rtn) THEN RETURN 1
		dw_1.Object.woodcode_name[row] = ls_rtn
		RETURN 1
	ELSEIF column = 'pcode_name' THEN
		OpenWithParm(w_props_ch, s_win)
		ls_rtn = Message.StringParm
		IF IsNull(ls_rtn) THEN RETURN 1
		dw_1.Object.pcode_name[row] = ls_rtn
		RETURN 1
	END IF
END IF






end event

event clicked;call super::clicked;IF row > 0 THEN
	dw_1.SetRow(row)
END IF

end event

event doubleclicked;call super::doubleclicked;
IF dw_1.AcceptText() <> 1 THEN RETURN
String ls_name
ls_name = dwo.Name

IF dw_edit_mode THEN
	
	IF ls_name = 'mtrlcode' THEN
		Parent.TriggerEvent('ue_f8')
	ELSEIF Pos(ls_name, '_t') = Len(ls_name) - 1 THEN
		String ls_type
		ls_type = dwo.Type
		IF Lower(ls_type) <> 'text' THEN RETURN
		
		String ls_colname
		ls_colname = Mid(ls_name, 1, Len(ls_name) - 2)
		
		IF Lower(dw_1.Describe(ls_colname + ".Type")) <> 'column' THEN RETURN
		Long ll_id
		ll_id = Long(dw_1.Describe(ls_colname + ".ID"))
		IF ll_id < ins_child_min Or ll_id > ins_child THEN RETURN
		IF ls_colname = 'mtrlcode' THEN RETURN
		
		ls_type = Lower(dw_1.Describe(ls_colname + ".ColType"))
		
		Any ll_value
		Long ll_firstrow = 0
		Long i
		FOR i = 1 To dw_1.RowCount()
			IF dw_1.Object.ch[i] <> 1 THEN CONTINUE
			IF ll_firstrow = 0 THEN
				ll_firstrow = i
				IF ls_type = 'date' THEN
					ll_value = dw_1.GetItemDate(ll_firstrow, ls_colname)
				ELSEIF ls_type = 'datetime' THEN
					ll_value = dw_1.GetItemDateTime(ll_firstrow, ls_colname)
				ELSEIF ls_type = 'time' Or Pos(ls_type, 'time') > 0 THEN
					ll_value = dw_1.GetItemTime(ll_firstrow, ls_colname)
				ELSEIF Pos(ls_type, 'dec') > 0 THEN
					ll_value = dw_1.GetItemDecimal(ll_firstrow, ls_colname)
				ELSEIF Pos(ls_type, 'char') > 0 THEN
					ll_value = dw_1.GetItemString(ll_firstrow, ls_colname)
				ELSE
					ll_value = dw_1.GetItemNumber(ll_firstrow, ls_colname)
				END IF
			ELSE
				dw_1.SetItem(i, ls_colname, ll_value)
			END IF
		NEXT
		
	END IF
	
END IF


IF dw_price_edit THEN
	If (ls_name = 'pricetype' Or ls_name = 'priceparam') And row > 0 THEN
		Open(w_aifmb_datetime_parm_ch)
		s_aifmb_datetime_parm_ch s_tran
		s_tran = Message.PowerObjectParm
		IF s_tran.ifok = 1  THEN
			dw_1.Object.pricetype[row] = s_tran.pricetype
			dw_1.Object.priceparam[row] = s_tran.priceparam
		END IF
	END IF
	
	if (ls_name = 'pricelistid' OR ls_name = 'pricelistname') then
		parent.triggerevent('ue_pricelist_ch')
	end if
	
END IF



end event

event rowfocuschanged;call super::rowfocuschanged;This.SelectRow(0, False)
IF currentrow > 0 THEN
	This.SelectRow(currentrow, True)
END IF
Parent.TriggerEvent('ue_retrieve_mx')
Parent.TriggerEvent('ue_retrieve_dw_mx')
wf_face()
end event

event rowfocuschanging;call super::rowfocuschanging;IF dw_mx_edit THEN RETURN 1

end event

event itemchanged;call super::itemchanged;String ls_name
ls_name = dwo.Name
Long ll_mtrlid

IF ls_name = 'pricemode' And row > 0 THEN
	dw_1.AcceptText()
	IF dw_1.Object.pricemode[row] = 1 THEN
		Parent.TriggerEvent('ue_pricelist_ch')
	END IF
END IF


end event

type cb_edit from uo_imflatbutton within w_import_mtrlname
integer x = 155
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "修改"
string normalpicname = "OPEN.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String arg_msg
IF dw_edit_mode THEN
	
	IF dw_1.AcceptText() <> 1 THEN RETURN
	
	IF wf_save(arg_msg) <> 1 THEN
		MessageBox('错误', arg_msg)
		RETURN
	END IF
END IF

dw_edit_mode = Not dw_edit_mode
IF dw_edit_mode THEN
	cbx_1.Checked = True
	wf_selectall()
ELSE
	cb_reflash.TriggerEvent(Clicked!)
END IF
wf_face()


end event

type cb_del from uo_imflatbutton within w_import_mtrlname
integer x = 311
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_msg
IF dw_edit_mode THEN
	dw_edit_mode = Not dw_edit_mode
	cb_reflash.TriggerEvent(Clicked!)
	wf_face()
ELSE
	
	IF MessageBox('提问', '是否要删除选中的记录?', Question!, YesNo!) <> 1 THEN
		RETURN
	END IF
	
	IF wf_del(ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg)
		RETURN
	END IF
	
	cb_reflash.TriggerEvent(Clicked!)
	
END IF



end event

type cb_mtrl from uo_imflatbutton within w_import_mtrlname
integer x = 745
integer width = 274
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "选物料"
string normalpicname = "new.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_new_mtrl')


end event

type cb_p_edit from uo_imflatbutton within w_import_mtrlname
integer x = 466
integer width = 274
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "批修改"
string normalpicname = "p2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF dw_edit_mode THEN
	menustr = "Text=批选物料~tEvent=ue_p_mtrl"
	menustr += "|Text=自动配对物料~tEvent=ue_p_mtrl_auto"
ELSE
	menustr = "Text=批设描述~tEvent=ue_p_dscrp"
END IF

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
END IF

end event

type ddlb_im_type from dropdownlistbox within w_import_mtrlname
integer x = 334
integer y = 184
integer width = 480
integer height = 636
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "模板"
boolean sorted = false
string item[] = {"模板","亚洲国际电商","淘宝","京东"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;Long ins_im_type

IF ddlb_im_type.Text = '模板' THEN
	ins_im_type = 0
ELSEIF ddlb_im_type.Text = '亚洲国际电商' THEN
	ins_im_type = 1
ELSEIF ddlb_im_type.Text = '淘宝' THEN
	ins_im_type = 5
ELSEIF ddlb_im_type.Text = '京东' THEN
	ins_im_type = 6
ELSE
	ins_im_type = -1
END IF

IF ins_im_type <> ins_user.im_type THEN
	IF ins_im_type = 1 Or ins_im_type = 5 Or ins_im_type = 6 THEN
		Parent.TriggerEvent('ue_select_user')
		RETURN
	END IF
END IF

IF ins_im_type = 0 THEN
	ins_user.UserID = 0
	ins_user.im_type = 0
	ins_user.im_userid = ''
	sle_userid.Text = ''
END IF

cb_reflash.triggerevent(clicked!)
end event

type cb_copy from uo_imflatbutton within w_import_mtrlname
boolean visible = false
integer x = 2231
integer y = 4
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "复制"
string normalpicname = "copy.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//String ls_msg
//IF dw_edit_mode THEN
//	dw_edit_mode = Not dw_edit_mode
//	cb_reflash.TriggerEvent(Clicked!)
//	wf_face()
//ELSE
//	
//	IF MessageBox('提问', '是否要删除选中的记录?', Question!, YesNo!) <> 1 THEN
//		RETURN
//	END IF
//	
//	IF wf_del(ls_msg) <> 1 THEN
//		MessageBox('错误', ls_msg)
//		RETURN
//	END IF
//	
//	cb_reflash.TriggerEvent(Clicked!)
//	
//END IF



end event

type cb_sync from uo_imflatbutton within w_import_mtrlname
integer x = 1024
integer width = 151
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "同步"
string normalpicname = "copy.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

menustr = "Text=淘宝下载~tEvent=ue_taobao_download"
menustr = menustr + "|Text=亚洲下载~tEvent=ue_aifmb_download"
menustr = menustr + "|Text=-"
menustr = menustr + "|Text=淘宝上传~tEvent=ue_taobao_upload"
menustr = menustr + "|Text=亚洲上传~tEvent=ue_aifmb_upload"

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
END IF


end event

type cbx_1 from checkbox within w_import_mtrlname
integer x = 32
integer y = 196
integer width = 274
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "全选"
end type

event clicked;wf_selectall()
end event

event constructor;this.backcolor = 14215660
end event

type cb_mode from uo_imflatbutton within w_import_mtrlname
integer x = 1518
integer width = 82
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = ">>"
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF IsValid(w_import_mtrlname_dscrp) THEN
	Close(w_import_mtrlname_dscrp)
	This.Text = '>>'
ELSE
	Open(w_import_mtrlname_dscrp)
	This.Text = '<<'
	Parent.TriggerEvent('ue_retrieve_mx')
END IF
end event

type st_2 from statictext within w_import_mtrlname
integer x = 841
integer y = 200
integer width = 274
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "当前用户:"
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type sle_userid from singlelineedit within w_import_mtrlname
integer x = 1125
integer y = 184
integer width = 494
integer height = 84
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type cb_selectuser from uo_imflatbutton within w_import_mtrlname
integer x = 1632
integer y = 180
integer width = 256
integer height = 88
integer taborder = 50
boolean bringtotop = true
string text = "选择"
string normalpicname = "FIND.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;parent.triggerevent('ue_select_user')
end event

type cb_excel from uo_imflatbutton within w_import_mtrlname
integer x = 1179
integer width = 178
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "Excel"
string normalpicname = "excel.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

menustr = "Text=导出Excel~tEvent=ue_xls_export"
menustr = menustr + "|" + "Text=导入产品编码~tEvent=ue_xls_import_mtrlcode"
menustr = menustr + "|" + "Text=导入淘宝分销csv~tEvent=ue_csv_import_mtrlcode"

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
END IF

end event

type dw_2 from u_dw_rbtnfilter within w_import_mtrlname
event ue_dwndropdown pbm_dwndropdown
integer x = 1074
integer y = 388
integer width = 1742
integer height = 1116
integer taborder = 40
boolean bringtotop = true
string dataobject = "dw_import_mtrlnamemx"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event ue_dwndropdown;IF Not dw_mx_edit THEN RETURN

Long row, ll_prow
String column
s_props_openwin s_win
String ls_rtn
ll_prow = dw_1.GetRow()
row = dw_2.GetRow()
column = dw_2.GetColumnName()
s_win.arg_x = This.X + This.PointerX() + Parent.X
s_win.arg_y = This.Y + This.PointerY() + Parent.Y

IF row > 0 AND ll_prow > 0 THEN
	s_win.props = dw_1.Object.props[ll_prow]
	IF column = 'status_name' THEN
		OpenWithParm(w_props_ch, s_win)
		ls_rtn = Message.StringParm
		IF IsNull(ls_rtn) THEN RETURN 1
		dw_2.Object.status_name[row] = ls_rtn
		RETURN 1
	ELSEIF column = 'woodcode_name' THEN
		OpenWithParm(w_props_ch, s_win)
		ls_rtn = Message.StringParm
		IF IsNull(ls_rtn) THEN RETURN 1
		dw_2.Object.woodcode_name[row] = ls_rtn
		RETURN 1
	ELSEIF column = 'pcode_name' THEN
		OpenWithParm(w_props_ch, s_win)
		ls_rtn = Message.StringParm
		IF IsNull(ls_rtn) THEN RETURN 1
		dw_2.Object.pcode_name[row] = ls_rtn
		RETURN 1
	END IF
END IF






end event

event clicked;call super::clicked;IF row > 0 THEN
	dw_2.SetRow(row)
END IF

end event

event doubleclicked;call super::doubleclicked;IF Not dw_mx_edit THEN RETURN

IF dw_2.AcceptText() <> 1 THEN RETURN

String ls_name
ls_name = dwo.Name
IF ls_name = 'mtrlcode' THEN
	Parent.TriggerEvent('ue_f9')
elseif ls_name = 'pros' then
	Parent.TriggerEvent('ue_f10')
END IF











end event

event rowfocuschanged;call super::rowfocuschanged;This.SelectRow(0, False)
IF currentrow > 0 THEN
	This.SelectRow(currentrow, True)
END IF

end event

type cb_edit_mx from commandbutton within w_import_mtrlname
integer x = 1097
integer y = 296
integer width = 206
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "修改"
end type

event clicked;String arg_msg

IF dw_mx_edit THEN
	dw_2.AcceptText()
	IF wf_save_mx(arg_msg) <> 1 THEN
		MessageBox('ERROR', arg_msg)
		RETURN
	END IF
END IF

dw_mx_edit = Not dw_mx_edit

IF dw_mx_edit THEN
	IF dw_2.RowCount() = 0 THEN
		dw_2.InsertRow(0)
	END IF
END IF

IF Not dw_mx_edit THEN Parent.TriggerEvent('ue_retrieve_dw_mx')
wf_face()

end event

type cb_undo_mx from commandbutton within w_import_mtrlname
integer x = 1312
integer y = 296
integer width = 206
integer height = 84
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "放弃"
end type

event clicked;


dw_mx_edit = not dw_mx_edit
Parent.TriggerEvent('ue_retrieve_dw_mx')
wf_face()
end event

type cb_add_mx from commandbutton within w_import_mtrlname
integer x = 1527
integer y = 296
integer width = 206
integer height = 84
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "增行"
end type

event clicked;dw_2.InsertRow(0)
end event

type cb_del_mx from commandbutton within w_import_mtrlname
integer x = 1742
integer y = 296
integer width = 206
integer height = 84
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删行"
end type

event clicked;Long ll_row

ll_row = dw_2.GetRow()

IF ll_row > 0 THEN
	dw_2.DeleteRow(ll_row)
END IF

end event

type cb_price_edit from uo_imflatbutton within w_import_mtrlname
integer x = 1806
integer width = 494
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "修改价格上传策略"
string normalpicname = "OPEN.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String arg_msg
IF dw_price_edit THEN
	
	IF dw_1.AcceptText() <> 1 THEN RETURN
	
	IF wf_save_price(arg_msg) <> 1 THEN
		MessageBox('错误', arg_msg)
		RETURN
	END IF
END IF

dw_price_edit = Not dw_price_edit
IF dw_price_edit THEN
	cbx_1.Checked = True
	wf_selectall()
ELSE
	cb_reflash.TriggerEvent(Clicked!)
END IF
wf_face()


end event

type cb_price_cancel from uo_imflatbutton within w_import_mtrlname
integer x = 2299
integer width = 165
integer height = 164
integer taborder = 50
boolean bringtotop = true
boolean enabled = false
string text = "放弃"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_msg
IF dw_price_edit THEN
	dw_price_edit = Not dw_price_edit
	cb_reflash.TriggerEvent(Clicked!)
	wf_face()
END IF



end event

type cb_requestquote from uo_imflatbutton within w_import_mtrlname
integer x = 2464
integer width = 274
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "请求报价"
string normalpicname = "update.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long i
s_eb_aifmb_requestquote_parm s_tran
Long j = 0
FOR i = 1 To dw_1.RowCount()
	IF dw_1.Object.ch[i] <> 1 THEN CONTINUE
	IF dw_1.Object.im_type[i] <> 1 THEN CONTINUE
	j++
	s_tran.im_type[j] = dw_1.Object.im_type[i]
	s_tran.im_id[j] = dw_1.Object.im_id[i]
	s_tran.mtrlcode[j] = dw_1.Object.mtrlcode[i]
	s_tran.mtrlname[j] = dw_1.Object.mtrlname[i]
	s_tran.numiid[j] = dw_1.Object.numiid[i]
	
NEXT

IF j <= 0 THEN RETURN

OpenWithParm(w_eb_aifmb_requestquote, s_tran)
Long rslt
rslt = Message.DoubleParm
IF rslt = 1 THEN
	cb_reflash.TriggerEvent(Clicked!)
END IF

end event

type cb_getanswer from uo_imflatbutton within w_import_mtrlname
integer x = 2743
integer width = 274
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "获取回复"
string normalpicname = "update2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Int rslt = 1
String arg_msg

uo_aifmb = Create uo_aifmb
s_aifmb_getrequestquoteanswerdata s_data[]

IF uo_aifmb.uf_getrequestquoteanswer(s_data, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

Long i
Long ll_AcceptFlag
String ls_numiid

FOR i = 1 To UpperBound(s_data)
	
	IF s_data[i].AcceptFlag THEN
		ll_AcceptFlag = 1
	ELSE
		ll_AcceptFlag = 0
	END IF
	
	ls_numiid = String(s_data[i].ProductID)
	
	UPDATE eb_import_mtrlname SET acceptflag = :ll_AcceptFlag,
		rejectreason = :s_data[i].rejectreason
		Where im_type = 1 And numiid = :ls_numiid;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新拒绝原因失败,' + sqlca.SQLErrText
		GOTO ext
	END IF
	
NEXT


ext:
Destroy uo_aifmb
IF rslt = 1 THEN
	COMMIT;
	cb_reflash.TriggerEvent(Clicked!)
	MessageBox('OK', '更新成功')
ELSE
	ROLLBACK;
	MessageBox('ERROR', arg_msg)
END IF




end event

type ln_bar from line within w_import_mtrlname
long linecolor = 268435456
integer linethickness = 4
integer beginy = 280
integer endx = 2007
integer endy = 280
end type

type ln_bar2 from line within w_import_mtrlname
long linecolor = 16777215
integer linethickness = 4
integer beginy = 284
integer endx = 2039
integer endy = 284
end type

type r_bar from rectangle within w_import_mtrlname
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 1422
integer width = 146
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

type ln_1 from line within w_import_mtrlname
long linecolor = 268435456
integer linethickness = 4
integer beginy = 168
integer endx = 2007
integer endy = 168
end type

type ln_2 from line within w_import_mtrlname
long linecolor = 16777215
integer linethickness = 4
integer beginy = 172
integer endx = 2039
integer endy = 172
end type