$PBExportHeader$w_taobao_outware_send.srw forward global type w_taobao_outware_send from w_publ_base end type type cb_reflash from uo_imflatbutton within w_taobao_outware_send end type type dw_1 from u_dw_rbtnfilter within w_taobao_outware_send end type type cbx_1 from checkbox within w_taobao_outware_send end type type cb_edit from uo_imflatbutton within w_taobao_outware_send end type type cb_del from uo_imflatbutton within w_taobao_outware_send end type type cb_upload from uo_imflatbutton within w_taobao_outware_send end type type cb_print from uo_imflatbutton within w_taobao_outware_send end type type cb_edit_relstr_1 from commandbutton within w_taobao_outware_send end type type ddlb_im_type from dropdownlistbox within w_taobao_outware_send end type type st_2 from statictext within w_taobao_outware_send end type type sle_userid from singlelineedit within w_taobao_outware_send end type type cb_selectuser from uo_imflatbutton within w_taobao_outware_send end type type cb_export from uo_imflatbutton within w_taobao_outware_send end type type cb_fy from uo_imflatbutton within w_taobao_outware_send end type type cb_print_dir from uo_imflatbutton within w_taobao_outware_send end type type dw_2 from u_dw_rbtnfilter within w_taobao_outware_send end type type cb_amt_edit from uo_imflatbutton within w_taobao_outware_send end type type cb_amt_cancel from uo_imflatbutton within w_taobao_outware_send end type type cb_1 from uo_imflatbutton within w_taobao_outware_send end type type ln_bar from line within w_taobao_outware_send end type type ln_bar2 from line within w_taobao_outware_send end type type r_bar from rectangle within w_taobao_outware_send end type type ln_1 from line within w_taobao_outware_send end type type ln_2 from line within w_taobao_outware_send end type end forward global type w_taobao_outware_send from w_publ_base integer width = 3063 integer height = 2084 string title = "网店运输单打印" boolean maxbox = true boolean resizable = true windowstate windowstate = maximized! event ue_taobao_upload ( ) event ue_print ( ) event ue_p_edit_relstr_1 ( ) event ue_select_user ( ) event ue_xls_export ( ) event ue_input_fy ( ) event ue_input_fy_order ( ) event ue_retrieve_mx ( ) event ue_import_fy_xls ( ) cb_reflash cb_reflash dw_1 dw_1 cbx_1 cbx_1 cb_edit cb_edit cb_del cb_del cb_upload cb_upload cb_print cb_print cb_edit_relstr_1 cb_edit_relstr_1 ddlb_im_type ddlb_im_type st_2 st_2 sle_userid sle_userid cb_selectuser cb_selectuser cb_export cb_export cb_fy cb_fy cb_print_dir cb_print_dir dw_2 dw_2 cb_amt_edit cb_amt_edit cb_amt_cancel cb_amt_cancel cb_1 cb_1 ln_bar ln_bar ln_bar2 ln_bar2 r_bar r_bar ln_1 ln_1 ln_2 ln_2 end type global w_taobao_outware_send w_taobao_outware_send type variables long ins_child = 4 long ins_child_min = 2 uo_saletask_import ins_saletask_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 ins_print_flag = false boolean ins_print_hz = false boolean dw_amt_edit_mode = false end variables forward prototypes public subroutine wf_face () public subroutine wf_selectall () public function integer wf_save (ref string arg_msg) public function integer wf_save_amt (ref string arg_msg) public function integer wf_check () end prototypes event ue_taobao_upload();IF Not uo_power_spi.f_taobao_outware_send_upload(sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF Int rslt = 1 String arg_msg = '' String arr_outwarecode[], ls_lastcode = '' Long cnt = 0 Long i dw_1.SetSort("eb_saletask_import_sendflag A u_outware_outwarecode A eb_saletask_import_tid A") dw_1.Sort() IF wf_check() = 0 THEN RETURN END IF FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE IF dw_1.Object.u_outware_outwarecode[i] = ls_lastcode THEN CONTINUE cnt++ arr_outwarecode[cnt] = dw_1.Object.u_outware_outwarecode[i] NEXT IF cnt <= 0 THEN MessageBox('提示', '请选择要淘宝发货的对象') RETURN END IF FOR i = 1 To cnt UPDATE eb_saletask_import SET out_freight = CASE WHEN ISNULL(u_station.taobao_code, '') <> '' THEN u_station.taobao_code ELSE u_outware.relstr_1 END, out_freight_code = u_outware.transcode, sendflag = 1 FROM u_outwaremx INNER JOIN u_outware ON u_outwaremx.scid = u_outware.scid AND u_outwaremx.outwareid = u_outware.outwareid INNER JOIN u_SaleTaskMx ON u_outwaremx.relid = u_SaleTaskMx.TaskID AND u_outwaremx.scid = u_SaleTaskMx.scid AND u_outwaremx.relprintid = u_SaleTaskMx.printid INNER JOIN u_SaleTask ON u_SaleTaskMx.scid = u_SaleTask.scid AND u_SaleTaskMx.TaskID = u_SaleTask.TaskID INNER JOIN eb_saletask_import ON u_SaleTask.TaskCode = eb_saletask_import.taskcode LEFT OUTER JOIN u_station ON u_outware.relstr_1 = u_station.stationname WHERE (u_outwaremx.ifrel = 1) AND (eb_saletask_import.t_sendflag = 0) AND (u_outware.relstr_1 <> '') And (u_outware.outwarecode = :arr_outwarecode[i]); IF sqlca.SQLCode <> 0 THEN rslt = 0 arg_msg = '提交上传淘宝发货单信息失败,' + sqlca.SQLErrText 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_print();//--直接打印 Long ls_msgprintid String ls_newname Long ls_powerid Long pcnt = 0 String ls_dwname = '' String ls_chname Long i s_taobao_outware_print s_tran s_taobao_outware_print_rslt s_rslt uo_print_preview uo_print String arg_msg s_print_msg ls_prmsg Boolean lb_first = True String arr_outwarecode[], ls_parm Long cnt = 0 Long Pos = 0 String ls_lastcode = '' Long lastprintnum = 0 ls_msgprintid = Message.LongParm //messagebox('', string(ls_msgprintid)) IF Not uo_power_spi.f_taobao_outware_send_print_save(sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF SELECT dft_new_dwname,powerid,chnname INTO :ls_newname,:ls_powerid,:ls_chname FROM sys_dft_dwprint_dynamic Where sys_dft_dwprint_dynamic.dwprintid = :ls_msgprintid Using sqlca; IF sqlca.SQLCode <> 0 THEN ls_newname = '' ls_powerid = 0 END IF IF ls_newname <> '' THEN IF Not uo_power_spi.uf_power_ind(ls_powerid,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF ls_dwname = ls_newname ELSE // TODO: 默认打印格式 ls_dwname = '' END IF dw_1.SetSort("eb_saletask_import_sendflag A u_outware_outwarecode A eb_saletask_import_tid A") dw_1.Sort() IF wf_check() = 0 THEN RETURN END IF IF ins_print_hz THEN IF ls_dwname = '' THEN MessageBox('提示', '请定义自定义打印格式，所属窗口:w_taobao_outware_send_hz') ls_dwname = 'dw_rp_taobao_hz_outware' END IF FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE IF dw_1.Object.u_outware_outwarecode[i] = ls_lastcode THEN CONTINUE ls_lastcode = dw_1.Object.u_outware_outwarecode[i] cnt++ arr_outwarecode[cnt] = dw_1.Object.u_outware_outwarecode[i] NEXT IF cnt <= 0 THEN MessageBox('提示', '请勾选汇总打印的发货单') RETURN END IF ls_parm = '' FOR i = 1 To UpperBound(arr_outwarecode) ls_parm += ',' + arr_outwarecode[i] NEXT ls_parm += ',' ls_prmsg.retr_pram_falg = 1 ls_prmsg.obj_dwNAME = ls_dwname ls_prmsg.printrow = 0 ls_prmsg.tag_text = '销售发货单汇总' ls_prmsg.filter_string = '' ls_prmsg.pagech_flag = 0 ls_prmsg.retr_pramstr = ls_parm MessageBox('', ls_prmsg.retr_pramstr) ls_prmsg.rowcnt = 0 OpenWithParm(w_publ_preview,ls_prmsg) printnum = Message.DoubleParm ELSE IF ls_dwname = '' THEN MessageBox('提示', '请定义自定义打印格式，所属窗口:w_taobao_outware_send') ls_dwname = 'dw_rp_taobao_trans' END IF cnt = 0 FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE IF dw_1.Object.u_outware_outwarecode[i] = ls_lastcode THEN CONTINUE ls_lastcode = dw_1.Object.u_outware_outwarecode[i] cnt++ NEXT ls_lastcode = '' IF ins_print_flag THEN // 直接打印 FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE IF dw_1.Object.u_outware_outwarecode[i] = ls_lastcode THEN dw_1.Object.eb_saletask_import_printnum[i] = lastprintnum CONTINUE END IF ls_lastcode = dw_1.Object.u_outware_outwarecode[i] ls_prmsg.retr_pram_falg = 12 ls_prmsg.obj_dwNAME = ls_dwname ls_prmsg.printrow = 0 ls_prmsg.tag_text = '销售发货单' ls_prmsg.filter_string = '' ls_prmsg.pagech_flag = 0 ls_prmsg.retr_scid = dw_1.Object.scid[i] ls_prmsg.retr_pramnmb = dw_1.Object.outwareid[i] ls_prmsg.rowcnt = 0 IF lb_first THEN OpenWithParm(w_publ_preview,ls_prmsg) printnum = Message.DoubleParm IF printnum <= 0 THEN RETURN END IF //**更新打印次料 UPDATE eb_saletask_import SET printnum = eb_saletask_import.printnum + :printnum FROM u_outwaremx INNER JOIN u_outware ON u_outwaremx.scid = u_outware.scid AND u_outwaremx.outwareid = u_outware.outwareid INNER JOIN u_SaleTaskMx ON u_outwaremx.relid = u_SaleTaskMx.TaskID AND u_outwaremx.scid = u_SaleTaskMx.scid AND u_outwaremx.relprintid = u_SaleTaskMx.printid INNER JOIN u_SaleTask ON u_SaleTaskMx.scid = u_SaleTask.scid AND u_SaleTaskMx.TaskID = u_SaleTask.TaskID INNER JOIN eb_saletask_import ON u_SaleTask.TaskCode = eb_saletask_import.taskcode Where (u_outwaremx.ifrel = 1) And (u_outware.outwarecode = :ls_lastcode); COMMIT; dw_1.Object.eb_saletask_import_printnum[i] = dw_1.Object.eb_saletask_import_printnum[i] + printnum lastprintnum = dw_1.Object.eb_saletask_import_printnum[i] lb_first = False cnt -- IF cnt > 0 THEN Open(w_sys_wait_jdt) //初始化进度条 w_sys_wait_jdt.Show() w_sys_wait_jdt.wf_accepttol(cnt) w_sys_wait_jdt.wf_inc(0) w_sys_wait_jdt.st_msg.Text = "正在打印快递单..." END IF ELSE Pos++ w_sys_wait_jdt.wf_inc(Pos) w_sys_wait_jdt.st_msg.Text = "正在打印快递单["+dw_1.Object.u_outware_transcode[i]+"]..." uo_print.FACT_PRINT_MSG = ls_prmsg IF uo_print.uof_print_begin(arg_msg) = 0 THEN Close(w_sys_wait_jdt) MessageBox("系统提示",arg_msg) RETURN END IF uo_print.ds_print() //**更新打印次料 printnum = Message.DoubleParm UPDATE eb_saletask_import SET printnum = eb_saletask_import.printnum + :printnum FROM u_outwaremx INNER JOIN u_outware ON u_outwaremx.scid = u_outware.scid AND u_outwaremx.outwareid = u_outware.outwareid INNER JOIN u_SaleTaskMx ON u_outwaremx.relid = u_SaleTaskMx.TaskID AND u_outwaremx.scid = u_SaleTaskMx.scid AND u_outwaremx.relprintid = u_SaleTaskMx.printid INNER JOIN u_SaleTask ON u_SaleTaskMx.scid = u_SaleTask.scid AND u_SaleTaskMx.TaskID = u_SaleTask.TaskID INNER JOIN eb_saletask_import ON u_SaleTask.TaskCode = eb_saletask_import.taskcode Where (u_outwaremx.ifrel = 1) And (u_outware.outwarecode = :ls_lastcode); COMMIT; dw_1.Object.eb_saletask_import_printnum[i] = dw_1.Object.eb_saletask_import_printnum[i] + printnum lastprintnum = dw_1.Object.eb_saletask_import_printnum[i] END IF NEXT IF cnt > 0 THEN Close(w_sys_wait_jdt) END IF ELSE FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE IF dw_1.Object.u_outware_outwarecode[i] = ls_lastcode THEN CONTINUE ls_lastcode = dw_1.Object.u_outware_outwarecode[i] dw_1.SetRow(i) dw_1.ScrollToRow(i) s_tran.outwarecode = dw_1.Object.u_outware_outwarecode[i] s_tran.dwname = ls_dwname s_tran.chname = ls_chname OpenWithParm(w_taobao_outware_print, s_tran) s_rslt = Message.PowerObjectParm IF s_rslt.ifcontinue <> 1 THEN EXIT END IF dw_1.Object.u_outware_relstr_1[i] = s_rslt.relstr_1 dw_1.Object.u_outware_transcode[i] = s_rslt.transcode NEXT END IF END IF end event event ue_p_edit_relstr_1();IF Not dw_edit_mode THEN RETURN Long i Long cnt = 0 s_outware_rel_str_ch s_tran FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] = 1 THEN cnt++ s_tran.rel_str1 = dw_1.Object.u_outware_relstr_1[i] EXIT END IF NEXT IF cnt <= 0 THEN MessageBox('提示', '请选择批修改的发货单') RETURN END IF //s_tran.ins_taobao = ins_taobao OpenWithParm(w_outware_rel_str_ch, s_tran) s_tran = Message.PowerObjectParm IF s_tran.ifok <> 1 THEN RETURN longlong ll_pos = 0 String ls_lastcode = '' FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] = 1 THEN dw_1.Object.u_outware_relstr_1[i] = s_tran.rel_str1 IF Not IsNull(s_tran.fcode) THEN IF ll_pos = 0 THEN ll_pos = Long(s_tran.fcode) s_tran.fcode = Fill("0", Len(s_tran.fcode)) END IF IF dw_1.Object.u_outware_outwarecode[i] = ls_lastcode THEN dw_1.Object.u_outware_transcode[i] = f_cmpl_trancode(s_tran.rel_str1, s_tran.pre_str, String(ll_pos - 1,s_tran.fcode), s_tran.post_str) ELSE dw_1.Object.u_outware_transcode[i] = f_cmpl_trancode(s_tran.rel_str1, s_tran.pre_str, String(ll_pos,s_tran.fcode), s_tran.post_str) ll_pos++ ls_lastcode = dw_1.Object.u_outware_outwarecode[i] END IF END IF END IF NEXT 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 f_setprofilestring(sys_empid, 'w_taobao_outware_send', 'im_type', String(ins_user.im_type)) f_setprofilestring(sys_empid, 'w_taobao_outware_send', 'im_userid', ins_user.im_userid) 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();IF Not uo_power_spi.f_taobao_outware_send_export(sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF 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 //gf_dw_to_excel(dw_1, arg_filename) dw_1.SaveAsAscii(arg_filename) MessageBox('OK', '导出成功!') end event event ue_input_fy();IF Not uo_power_spi.uf_power_ind(3795,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF Open(w_taobao_fy_input) cb_reflash.TriggerEvent(Clicked!) end event event ue_input_fy_order();IF Not uo_power_spi.uf_power_ind(3795,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF Long i s_taobao_fy_order_input_parm s_parm s_taobao_fy_order_input_rslt s_rslt FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE dw_1.SetRow(i) dw_1.ScrollToRow(i) s_parm.scid = dw_1.Object.scid[i] s_parm.outwareid = dw_1.Object.outwareid[i] OpenWithParm(w_taobao_fy_order_input, s_parm) s_rslt = Message.PowerObjectParm IF s_rslt.ifcontinue <> 1 THEN EXIT END IF NEXT cb_reflash.TriggerEvent(Clicked!) end event event ue_retrieve_mx();Long ll_row ll_row = dw_1.GetRow() IF ll_row <= 0 THEN dw_2.Reset() RETURN END IF dw_2.Retrieve(dw_1.Object.scid[ll_row], dw_1.Object.outwareid[ll_row]) end event event ue_import_fy_xls();// DONE: 导入xls String ls_path, ls_filename IF GetFileOpenName("请选择要导入的Excel文件", ls_path, ls_filename, "XLS","Excel文件(*.XLS),*.XLS") <> 1 THEN RETURN END IF Long itemid String itemcode,itemname, itemtype String arg_msg = '' IF uo_saletask_spi.wf_itemdef_ch(Ref itemid, Ref itemcode, Ref itemname, Ref itemtype, Ref arg_msg) <> 1 THEN RETURN END IF Int rslt = 1 arg_msg = '' DataStore ds_import ds_import = Create DataStore ds_import.DataObject = 'ds_taobao_outware_amt_import' uo_taobao_outware uo_taobao uo_taobao = Create uo_taobao_outware IF f_xls_import_to_dw(ls_path, ds_import, arg_msg) <> 1 THEN rslt = 0 GOTO ext END IF Long i String ls_transcode Long scid, outwareid, cnt Decimal amt String ls_msg FOR i = 1 To ds_import.RowCount() ls_transcode = Trim(ds_import.Object.transcode[i], True) amt = ds_import.Object.amt[i] IF ls_transcode = '' THEN CONTINUE SELECT count(0) INTO :cnt FROM u_outware Where transcode = :ls_transcode; IF sqlca.SQLCode <> 0 THEN IF arg_msg <> '' THEN arg_msg += '~r~n' arg_msg += '第'+String(i)+'行,货运单号:'+ls_transcode+',查询对应发货单数失败,' + sqlca.SQLErrText CONTINUE END IF IF cnt = 0 THEN IF arg_msg <> '' THEN arg_msg += '~r~n' arg_msg += '第'+String(i)+'行,货运单号:'+ls_transcode+',找不能对应发货单' CONTINUE END IF IF cnt > 1 THEN IF arg_msg <> '' THEN arg_msg += '~r~n' arg_msg += '第'+String(i)+'行,货运单号:'+ls_transcode+',找到多条发货单记录' CONTINUE END IF SELECT top 1 scid, outwareid INTO :scid, :outwareid FROM u_outware Where transcode = :ls_transcode; IF sqlca.SQLCode <> 0 THEN IF arg_msg <> '' THEN arg_msg += '~r~n' arg_msg += '第'+String(i)+'行,货运单号:'+ls_transcode+',查询对应发货单信息失败,' + sqlca.SQLErrText CONTINUE END IF IF uo_taobao.add_tranfy(scid, outwareid, itemid, amt, ls_msg, True) <> 1 THEN IF arg_msg <> '' THEN arg_msg += '~r~n' arg_msg += '第'+String(i)+'行,货运单号:'+ls_transcode+',' + ls_msg CONTINUE END IF NEXT ext: Destroy ds_import Destroy uo_taobao IF rslt = 0 Or arg_msg <> '' THEN MessageBox('ERROR', arg_msg) ELSE MessageBox('OK', '导入成功') END IF end event public subroutine wf_face ();// DONE: 刷新界面 Long i ddlb_im_type.Enabled = Not (dw_edit_mode Or dw_amt_edit_mode) cb_selectuser.Enabled = Not (dw_edit_mode Or dw_amt_edit_mode) cb_reflash.Enabled = Not (dw_edit_mode Or dw_amt_edit_mode) cb_del.Enabled = dw_edit_mode cb_amt_cancel.Enabled = dw_amt_edit_mode cb_upload.Enabled = Not (dw_edit_mode Or dw_amt_edit_mode) cb_print.Enabled = Not (dw_edit_mode Or dw_amt_edit_mode) cb_export.Enabled = Not (dw_edit_mode Or dw_amt_edit_mode) cb_fy.Enabled = Not (dw_edit_mode Or dw_amt_edit_mode) cb_edit_relstr_1.Enabled = dw_edit_mode cb_edit.Enabled = Not dw_amt_edit_mode cb_amt_edit.Enabled = Not dw_edit_mode cb_print_dir.Enabled = Not dw_edit_mode cb_1.Enabled = not dw_edit_mode dw_1.titleclick_sort_use = not dw_edit_mode IF dw_amt_edit_mode THEN dw_1.SetTabOrder('inputamt', 10) cb_amt_edit.Text = '保存' cb_amt_edit.normalpicname = 'Save.bmp' ELSE dw_1.SetTabOrder('inputamt', 0) cb_amt_edit.Text = '修改' cb_amt_edit.normalpicname = 'OPEN.bmp' END IF IF dw_edit_mode THEN dw_1.SetSort("eb_saletask_import_sendflag A u_outware_outwarecode A eb_saletask_import_tid A") dw_1.Sort() FOR i = 1 To ins_child dw_1.SetTabOrder(i, i * 10) NEXT cb_edit.Text = '保存' cb_edit.normalpicname = 'Save.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' END IF cb_edit.of_init_draw() cb_edit.of_paint() cb_edit.TriggerEvent('ue_textchange') cb_amt_edit.of_init_draw() cb_amt_edit.of_paint() cb_amt_edit.TriggerEvent('ue_textchange') end subroutine 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 function integer wf_save (ref string arg_msg);Int rslt = 1 uo_taobao_outware = Create uo_taobao_outware // DONE: 保存货运单号 Long i, j String arr_outwarecode[], arr_relstr_1[], arr_transcode[] decimal arr_tb_weight[] Long cnt = 0 String ls_outwarecode FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE ls_outwarecode = dw_1.Object.u_outware_outwarecode[i] FOR j = 1 To cnt IF arr_outwarecode[j] = ls_outwarecode THEN EXIT END IF NEXT IF j > cnt THEN cnt++ arr_outwarecode[cnt] = dw_1.Object.u_outware_outwarecode[i] arr_relstr_1[cnt] = dw_1.Object.u_outware_relstr_1[i] arr_transcode[cnt] = dw_1.Object.u_outware_transcode[i] arr_tb_weight[cnt] = dw_1.Object.u_outware_tb_weight[i] END IF NEXT IF cnt <= 0 THEN rslt = 0 arg_msg = '请选择要保存的发货单' GOTO ext END IF FOR i = 1 To cnt IF uo_taobao_outware.save_transcode(arr_outwarecode[i], arr_relstr_1[i], arr_transcode[i], arr_tb_weight[i], arg_msg, False) <> 1 THEN rslt = 0 GOTO ext END IF NEXT ext: Destroy uo_taobao_outware IF rslt = 1 THEN COMMIT; ELSE ROLLBACK; END IF RETURN rslt end function public function integer wf_save_amt (ref string arg_msg);Int rslt = 1 uo_taobao_outware = Create uo_taobao_outware // DONE: 保存货运单号 Long i, j, cnt = 0 Long itemid String itemcode,itemname, itemtype arg_msg = '' IF uo_saletask_spi.wf_itemdef_ch(Ref itemid, Ref itemcode, Ref itemname, Ref itemtype, Ref arg_msg) <> 1 THEN rslt = 0 goto ext END IF Long ll_itemid ll_itemid = itemid String arr_outwarecode[] Long arr_scid[], arr_outwareid[] Long arr_itemid[] Decimal arr_amt[] FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE FOR j = 1 To cnt IF arr_scid[j] = dw_1.Object.scid[i] And arr_outwareid[j] = dw_1.Object.outwareid[i] THEN EXIT END IF NEXT IF j > cnt THEN cnt++ arr_scid[cnt] = dw_1.Object.scid[i] arr_outwareid[cnt] = dw_1.Object.outwareid[i] arr_itemid[cnt] = ll_itemid arr_amt[cnt] = dw_1.Object.inputamt[i] arr_outwarecode[cnt] = dw_1.Object.u_outware_outwarecode[i] END IF NEXT IF cnt <= 0 THEN rslt = 0 arg_msg = '请选择要保存的发货单' GOTO ext END IF FOR i = 1 To cnt IF uo_taobao_outware.add_tranfy(arr_scid[i], arr_outwareid[i], ll_itemid, arr_amt[i], arg_msg, False) <> 1 THEN rslt = 0 arg_msg = '发货单' + arr_outwarecode[i] + ':' + arg_msg GOTO ext END IF NEXT ext: Destroy uo_taobao_outware IF rslt = 1 THEN COMMIT; ELSE ROLLBACK; END IF RETURN rslt end function public function integer wf_check ();// 检查订单是否已经关闭或申请退款 Long i = 0, cnt = 0 String ls_lastcode = '' String arr_outwarecode[], ls_parm FOR i = 1 To dw_1.RowCount() IF dw_1.Object.ch[i] <> 1 THEN CONTINUE IF dw_1.Object.u_outware_outwarecode[i] = ls_lastcode THEN CONTINUE ls_lastcode = dw_1.Object.u_outware_outwarecode[i] cnt++ arr_outwarecode[cnt] = dw_1.Object.u_outware_outwarecode[i] NEXT IF cnt <= 0 THEN MessageBox('提示', '请勾选汇总打印的发货单') RETURN 0 END IF ls_parm = '' FOR i = 1 To UpperBound(arr_outwarecode) ls_parm += ',' + arr_outwarecode[i] NEXT ls_parm += ',' String ls_outwarecode, ls_tid, ls_status, ls_msg ls_msg = '' DECLARE cur1 CURSOR FOR SELECT u_outware.outwarecode, eb_saletask_import.tid,tb_order.status FROM u_outwaremx INNER JOIN u_outware ON u_outwaremx.scid = u_outware.scid AND u_outwaremx.outwareid = u_outware.outwareid INNER JOIN u_SaleTaskMx ON u_outwaremx.relid = u_SaleTaskMx.TaskID AND u_outwaremx.scid = u_SaleTaskMx.scid AND u_outwaremx.relprintid = u_SaleTaskMx.printid INNER JOIN u_SaleTask ON u_SaleTaskMx.scid = u_SaleTask.scid AND u_SaleTaskMx.TaskID = u_SaleTask.TaskID INNER JOIN eb_saletask_import ON u_SaleTask.TaskCode = eb_saletask_import.taskcode AND u_SaleTaskMx.MtrlID = eb_saletask_import.mtrlid AND u_SaleTaskMx.status = eb_saletask_import.status AND u_SaleTaskMx.woodcode = eb_saletask_import.woodcode AND u_SaleTaskMx.pcode = eb_saletask_import.pcode INNER JOIN tb_order ON eb_saletask_import.im_id = tb_order.oid WHERE (tb_order.status <> 'WAIT_SELLER_SEND_GOODS') AND (:ls_parm LIKE '%,' + RTRIM(u_outware.outwarecode) + ',%') Order By u_outware.outwarecode, eb_saletask_import.tid; OPEN cur1; FETCH cur1 Into :ls_outwarecode, :ls_tid, :ls_status; DO WHILE sqlca.SQLCode = 0 ls_msg += ls_outwarecode+','+ls_tid+','+ls_status+';' FETCH cur1 Into :ls_outwarecode, :ls_tid, :ls_status; LOOP CLOSE cur1; IF ls_msg <> '' THEN ls_msg = '以下单据不在等待卖家发货状态，请检查:' + ls_msg MessageBox('提示', ls_msg) RETURN 0 END IF ls_msg = '' DECLARE cur2 CURSOR FOR SELECT u_outware.outwarecode, eb_saletask_import.tid FROM u_outwaremx INNER JOIN u_outware ON u_outwaremx.scid = u_outware.scid AND u_outwaremx.outwareid = u_outware.outwareid INNER JOIN u_SaleTaskMx ON u_outwaremx.relid = u_SaleTaskMx.TaskID AND u_outwaremx.scid = u_SaleTaskMx.scid AND u_outwaremx.relprintid = u_SaleTaskMx.printid INNER JOIN u_SaleTask ON u_SaleTaskMx.scid = u_SaleTask.scid AND u_SaleTaskMx.TaskID = u_SaleTask.TaskID INNER JOIN eb_saletask_import ON u_SaleTask.TaskCode = eb_saletask_import.taskcode AND u_SaleTaskMx.MtrlID = eb_saletask_import.mtrlid AND u_SaleTaskMx.status = eb_saletask_import.status AND u_SaleTaskMx.woodcode = eb_saletask_import.woodcode AND u_SaleTaskMx.pcode = eb_saletask_import.pcode INNER JOIN tb_order ON eb_saletask_import.im_id = tb_order.oid WHERE (tb_order.status = 'WAIT_SELLER_SEND_GOODS') AND (tb_order.refund_status = 'WAIT_SELLER_AGREE') AND (:ls_parm LIKE '%,' + RTRIM(u_outware.outwarecode) + ',%') Order By u_outware.outwarecode, eb_saletask_import.tid; OPEN cur2; FETCH cur2 Into :ls_outwarecode, :ls_tid; DO WHILE sqlca.SQLCode = 0 ls_msg += ls_outwarecode+','+ls_tid+';' FETCH cur2 Into :ls_outwarecode, :ls_tid; LOOP CLOSE cur2; IF ls_msg <> '' THEN ls_msg = '以下单据买家已经申请退款，是否继续?~r~n' + ls_msg If (MessageBox('提问', ls_msg,Question!,YesNo!,2) <> 1) THEN RETURN 0 END IF END IF ls_msg = '' DECLARE cur3 CURSOR FOR SELECT u_outware.outwarecode, eb_saletask_import.tid FROM u_outwaremx INNER JOIN u_outware ON u_outwaremx.scid = u_outware.scid AND u_outwaremx.outwareid = u_outware.outwareid INNER JOIN u_SaleTaskMx ON u_outwaremx.relid = u_SaleTaskMx.TaskID AND u_outwaremx.scid = u_SaleTaskMx.scid AND u_outwaremx.relprintid = u_SaleTaskMx.printid INNER JOIN u_SaleTask ON u_SaleTaskMx.scid = u_SaleTask.scid AND u_SaleTaskMx.TaskID = u_SaleTask.TaskID INNER JOIN eb_saletask_import ON u_SaleTask.TaskCode = eb_saletask_import.taskcode AND u_SaleTaskMx.MtrlID = eb_saletask_import.mtrlid AND u_SaleTaskMx.status = eb_saletask_import.status AND u_SaleTaskMx.woodcode = eb_saletask_import.woodcode AND u_SaleTaskMx.pcode = eb_saletask_import.pcode INNER JOIN tb_order ON eb_saletask_import.im_id = tb_order.oid WHERE (tb_order.status = 'WAIT_SELLER_SEND_GOODS') AND (u_SaleTask.relcode <> eb_saletask_import.tid OR u_outware.rel_rep <> eb_saletask_import.rel_rep OR u_SaleTask.cus_tele <> eb_saletask_import.cus_tele) AND (:ls_parm LIKE '%,' + RTRIM(u_outware.outwarecode) + ',%') ORDER BY u_outware.outwarecode, eb_saletask_import.tid OPEN cur3; FETCH cur3 Into :ls_outwarecode, :ls_tid; DO WHILE sqlca.SQLCode = 0 ls_msg += ls_outwarecode+','+ls_tid+';' FETCH cur3 Into :ls_outwarecode, :ls_tid; LOOP CLOSE cur3; IF ls_msg <> '' THEN ls_msg = '以下单据收货人信息与淘宝订单收货人信息不符，是否继续?~r~n' + ls_msg If (MessageBox('提问', ls_msg,Question!,YesNo!,2) <> 1) THEN RETURN 0 END IF END IF RETURN 1 end function on w_taobao_outware_send.create int iCurrent call super::create this.cb_reflash=create cb_reflash this.dw_1=create dw_1 this.cbx_1=create cbx_1 this.cb_edit=create cb_edit this.cb_del=create cb_del this.cb_upload=create cb_upload this.cb_print=create cb_print this.cb_edit_relstr_1=create cb_edit_relstr_1 this.ddlb_im_type=create ddlb_im_type this.st_2=create st_2 this.sle_userid=create sle_userid this.cb_selectuser=create cb_selectuser this.cb_export=create cb_export this.cb_fy=create cb_fy this.cb_print_dir=create cb_print_dir this.dw_2=create dw_2 this.cb_amt_edit=create cb_amt_edit this.cb_amt_cancel=create cb_amt_cancel this.cb_1=create cb_1 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.cbx_1 this.Control[iCurrent+4]=this.cb_edit this.Control[iCurrent+5]=this.cb_del this.Control[iCurrent+6]=this.cb_upload this.Control[iCurrent+7]=this.cb_print this.Control[iCurrent+8]=this.cb_edit_relstr_1 this.Control[iCurrent+9]=this.ddlb_im_type this.Control[iCurrent+10]=this.st_2 this.Control[iCurrent+11]=this.sle_userid this.Control[iCurrent+12]=this.cb_selectuser this.Control[iCurrent+13]=this.cb_export this.Control[iCurrent+14]=this.cb_fy this.Control[iCurrent+15]=this.cb_print_dir this.Control[iCurrent+16]=this.dw_2 this.Control[iCurrent+17]=this.cb_amt_edit this.Control[iCurrent+18]=this.cb_amt_cancel this.Control[iCurrent+19]=this.cb_1 this.Control[iCurrent+20]=this.ln_bar this.Control[iCurrent+21]=this.ln_bar2 this.Control[iCurrent+22]=this.r_bar this.Control[iCurrent+23]=this.ln_1 this.Control[iCurrent+24]=this.ln_2 end on on w_taobao_outware_send.destroy call super::destroy destroy(this.cb_reflash) destroy(this.dw_1) destroy(this.cbx_1) destroy(this.cb_edit) destroy(this.cb_del) destroy(this.cb_upload) destroy(this.cb_print) destroy(this.cb_edit_relstr_1) destroy(this.ddlb_im_type) destroy(this.st_2) destroy(this.sle_userid) destroy(this.cb_selectuser) destroy(this.cb_export) destroy(this.cb_fy) destroy(this.cb_print_dir) destroy(this.dw_2) destroy(this.cb_amt_edit) destroy(this.cb_amt_cancel) destroy(this.cb_1) destroy(this.ln_bar) destroy(this.ln_bar2) destroy(this.r_bar) destroy(this.ln_1) destroy(this.ln_2) end on event open;call super::open;String arg_msg ins_saletask_import = Create uo_saletask_import //ins_comapp = Create uo_ljlib_taobao_comapp //ins_comapp.uf_init(ins_taobao, ins_create, ins_connected, ins_inited, arg_msg) dw_1.SetTransObject(sqlca) dw_2.SetTransObject(sqlca) //wf_retrieve_child() // 选择电商帐号 IF sys_power_issuper THEN ddlb_im_type.AddItem('全部') END IF ins_user.im_type = long(f_profilestring(sys_empid, 'w_taobao_outware_send', 'im_type', '0')) ins_user.im_userid = f_profilestring(sys_empid, 'w_taobao_outware_send', 'im_userid', '') 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!) wf_face() 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_2.Height dw_1.Width = this.WorkSpaceWidth() - dw_1.X dw_2.Y = dw_1.Y + dw_1.height dw_2.Width = this.WorkSpaceWidth() - dw_2.X end event event close;call super::close;destroy ins_saletask_import end event type cb_func from w_publ_base`cb_func within w_taobao_outware_send boolean visible = false end type type cb_exit from w_publ_base`cb_exit within w_taobao_outware_send integer x = 1801 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_taobao_outware_send 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 long ll_haspower = 0 if uo_power_spi.uf_power_ind(3796,sys_msg_pow) then ll_haspower = 1 end if dw_1.Retrieve(ins_im_type, ins_user.im_userid, ll_is_super, ll_haspower) wf_selectall() end event type dw_1 from u_dw_rbtnfilter within w_taobao_outware_send integer y = 296 integer width = 2862 integer height = 1068 integer taborder = 30 boolean bringtotop = true string dataobject = "dw_taobao_outware_send" boolean hscrollbar = true boolean vscrollbar = true boolean hsplitscroll = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean autosave_sort_use = false end type event clicked;call super::clicked;IF row > 0 THEN dw_1.SetRow(row) END IF Long ll_row String lpo_object IF dwo.Name = "u_outware_relstr_1" And dw_edit_mode And row > 0 THEN s_edit_index_tran s_ch_tran //传递参数使用 s_ch_tran.if_retrieve_all = False //是否一次RETRIEVE所有行 s_ch_tran.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式 s_ch_tran.arg_pkid = 0 //目标定位PKID (备用) OpenWithParm(w_station_edit,s_ch_tran) //调用 s_station S_INSCUST S_INSCUST = Message.PowerObjectParm //接受返回结构 IF S_INSCUST.stationid > 0 THEN //正常返回值则可以取以下值 dw_1.SetRedraw(False) dw_1.Object.u_outware_relstr_1[row] = S_INSCUST.stationname dw_1.SetRedraw(True) 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') end event event itemchanged;call super::itemchanged;IF Not dw_edit_mode THEN RETURN IF row <= 0 THEN RETURN IF dw_1.AcceptText() <> 1 THEN RETURN String ls_outwarecode String ls_type String ls_name Any ll_value Long i ls_outwarecode = dw_1.Object.u_outware_outwarecode[row] ls_name = dwo.Name ls_type = Lower(dw_1.Describe(ls_name + ".ColType")) IF ls_type = 'date' THEN ll_value = dw_1.GetItemDate(row, ls_name) ELSEIF ls_type = 'datetime' THEN ll_value = dw_1.GetItemDateTime(row, ls_name) ELSEIF ls_type = 'time' Or Pos(ls_type, 'time') > 0 THEN ll_value = dw_1.GetItemTime(row, ls_name) ELSEIF Pos(ls_type, 'dec') > 0 THEN ll_value = dw_1.GetItemDecimal(row, ls_name) ELSEIF Pos(ls_type, 'char') > 0 THEN ll_value = dw_1.GetItemString(row, ls_name) ELSE ll_value = dw_1.GetItemNumber(row, ls_name) END IF FOR i = 1 To dw_1.RowCount() IF i = row THEN CONTINUE IF dw_1.Object.u_outware_outwarecode[i] <> ls_outwarecode THEN CONTINUE dw_1.SetItem(i, ls_name, ll_value) NEXT end event type cbx_1 from checkbox within w_taobao_outware_send integer x = 1550 integer y = 196 integer width = 402 integer height = 60 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 constructor;this.backcolor = 14215660 end event event clicked;wf_selectall() end event type cb_edit from uo_imflatbutton within w_taobao_outware_send integer x = 155 integer width = 151 integer height = 164 integer taborder = 70 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;IF Not uo_power_spi.f_taobao_outware_send_print_save(sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF 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_taobao_outware_send integer x = 311 integer width = 151 integer height = 164 integer taborder = 60 boolean bringtotop = true string text = "放弃" string normalpicname = "Undo.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() END IF end event type cb_upload from uo_imflatbutton within w_taobao_outware_send integer x = 1024 integer width = 151 integer height = 164 integer taborder = 80 boolean bringtotop = true string text = "上传" string normalpicname = "imexport.BMP" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;parent.triggerevent('ue_taobao_upload') end event type cb_print from uo_imflatbutton within w_taobao_outware_send boolean visible = false integer x = 2574 integer width = 151 integer height = 164 integer taborder = 30 boolean bringtotop = true string text = "打印" string normalpicname = "print.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype Long ls_dwprintid String ls_windowname Int ls_i Long ll_billid Int li_ifuse Long ll_row String Name,ll_rpname Long ll_RpID,ll_flag,ll_ifuse ins_print_flag = False ins_print_hz = False w_curwin = Parent ls_windowname = Parent.ClassName ( ) SELECT billid,ifuse INTO :ll_billid, :li_ifuse FROM u_report_bill Where winName = :ls_windowname; IF sqlca.SQLCode <> 0 THEN li_ifuse = 0 END IF IF li_ifuse = 0 THEN DECLARE dft_dwprint CURSOR FOR SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype FROM sys_dft_dwprint_dynamic WHERE dwtype = :ls_windowname And ptype = 0; OPEN dft_dwprint; FETCH dft_dwprint Into :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; IF sqlca.SQLCode <> 0 THEN Parent.TriggerEvent('ue_print',0,0) ELSE m_dft_dwprint_item m_1 m_1 = Create m_dft_dwprint_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 f_add_menuitem_print_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid)) FETCH dft_dwprint Into :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; ls_i++ LOOP CLOSE dft_dwprint; m_1.PopMenu(This.X+50,This.Y+50) END IF ELSE DECLARE rpt_dwprint CURSOR FOR SELECT RpID,RpName,Flag,Ifuse FROM U_report_list WHERE billid = :ll_billid Order By RpName; OPEN rpt_dwprint; FETCH rpt_dwprint Into :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse; IF sqlca.SQLCode <> 0 THEN Parent.TriggerEvent('ue_print',0,0) ELSE m_rpt_dwprint_print_item m_2 m_2 = Create m_rpt_dwprint_print_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 IF ll_ifuse = 1 And ll_flag = 1 And f_pow_rpt(ll_RpID) THEN //需添加权限 f_add_menuItem_print_rpt(m_2,ls_i,ll_rpname,String(ll_RpID)) END IF FETCH rpt_dwprint Into :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse; ls_i++ LOOP CLOSE rpt_dwprint; m_2.Item[1].Visible = False m_2.PopMenu(This.X+50,This.Y+50) END IF END IF end event type cb_edit_relstr_1 from commandbutton within w_taobao_outware_send integer x = 1989 integer y = 180 integer width = 430 integer height = 92 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;parent.triggerevent('ue_p_edit_relstr_1') end event type ddlb_im_type from dropdownlistbox within w_taobao_outware_send integer y = 184 integer width = 480 integer height = 792 integer taborder = 50 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 f_setprofilestring(sys_empid, 'w_taobao_outware_send', 'im_type', String(ins_user.im_type)) f_setprofilestring(sys_empid, 'w_taobao_outware_send', 'im_userid', ins_user.im_userid) cb_reflash.TriggerEvent(Clicked!) end event type st_2 from statictext within w_taobao_outware_send integer x = 489 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_taobao_outware_send integer x = 773 integer y = 184 integer width = 494 integer height = 84 integer taborder = 60 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_taobao_outware_send integer x = 1280 integer y = 180 integer width = 256 integer height = 88 integer taborder = 40 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_export from uo_imflatbutton within w_taobao_outware_send integer x = 1179 integer width = 151 integer height = 164 integer taborder = 40 boolean bringtotop = true string text = "导出" string normalpicname = "excel.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;parent.triggerevent('ue_xls_export') end event type cb_fy from uo_imflatbutton within w_taobao_outware_send integer x = 1335 integer width = 151 integer height = 164 integer taborder = 50 boolean bringtotop = true string text = "运费" string normalpicname = "imexport.BMP" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;IF Not uo_power_spi.uf_power_ind(3795,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF m_Dfc_Control_PopupMenu dmPopupMenu String menustr menustr = "Text=按运输单号录入~tEvent=ue_input_fy" menustr = menustr + "|" + "Text=按顺序录入~tEvent=ue_input_fy_order" menustr = menustr + "|" + "Text=xls导入~tEvent=ue_import_fy_xls" 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 cb_print_dir from uo_imflatbutton within w_taobao_outware_send integer x = 466 integer width = 274 integer height = 164 integer taborder = 40 boolean bringtotop = true string text = "多选打印" string normalpicname = "print.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype Long ls_dwprintid String ls_windowname Int ls_i Long ll_billid Int li_ifuse Long ll_row String Name,ll_rpname Long ll_RpID,ll_flag,ll_ifuse ins_print_flag = True ins_print_hz = False w_curwin = Parent ls_windowname = Parent.ClassName ( ) SELECT billid,ifuse INTO :ll_billid, :li_ifuse FROM u_report_bill Where winName = :ls_windowname; IF sqlca.SQLCode <> 0 THEN li_ifuse = 0 END IF IF li_ifuse = 0 THEN DECLARE dft_dwprint CURSOR FOR SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype FROM sys_dft_dwprint_dynamic WHERE dwtype = :ls_windowname And ptype = 0; OPEN dft_dwprint; FETCH dft_dwprint Into :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; IF sqlca.SQLCode <> 0 THEN Parent.TriggerEvent('ue_print',0,0) ELSE m_dft_dwprint_print_item m_1 m_1 = Create m_dft_dwprint_print_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 f_add_menuitem_print_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid)) FETCH dft_dwprint Into :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; ls_i++ LOOP CLOSE dft_dwprint; m_1.PopMenu(This.X+50,This.Y+50) END IF ELSE DECLARE rpt_dwprint CURSOR FOR SELECT RpID,RpName,Flag,Ifuse FROM U_report_list WHERE billid = :ll_billid Order By RpName; OPEN rpt_dwprint; FETCH rpt_dwprint Into :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse; IF sqlca.SQLCode <> 0 THEN Parent.TriggerEvent('ue_print',0,0) ELSE m_rpt_dwprint_print_item m_2 m_2 = Create m_rpt_dwprint_print_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 IF ll_ifuse = 1 And ll_flag = 1 And f_pow_rpt(ll_RpID) THEN //需添加权限 f_add_menuItem_print_rpt(m_2,ls_i,ll_rpname,String(ll_RpID)) END IF FETCH rpt_dwprint Into :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse; ls_i++ LOOP CLOSE rpt_dwprint; m_2.Item[1].Visible = False m_2.PopMenu(This.X+50,This.Y+50) END IF END IF end event type dw_2 from u_dw_rbtnfilter within w_taobao_outware_send integer y = 1448 integer width = 3022 integer height = 512 integer taborder = 40 boolean bringtotop = true string dataobject = "dw_taobao_outware_sendmx" 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 clicked;call super::clicked;IF row > 0 THEN dw_1.SetRow(row) 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_amt_edit from uo_imflatbutton within w_taobao_outware_send integer x = 1490 integer width = 151 integer height = 164 integer taborder = 80 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;IF Not uo_power_spi.uf_power_ind(3793,sys_msg_pow) THEN MessageBox(publ_operator,sys_msg_pow) RETURN END IF String arg_msg IF dw_amt_edit_mode THEN IF dw_1.AcceptText() <> 1 THEN RETURN IF wf_save_amt(arg_msg) <> 1 THEN MessageBox('错误', arg_msg) RETURN END IF END IF dw_amt_edit_mode = Not dw_amt_edit_mode IF dw_amt_edit_mode THEN cbx_1.Checked = True wf_selectall() ELSE cb_reflash.TriggerEvent(Clicked!) END IF wf_face() end event type cb_amt_cancel from uo_imflatbutton within w_taobao_outware_send integer x = 1646 integer width = 151 integer height = 164 integer taborder = 70 boolean bringtotop = true string text = "放弃" string normalpicname = "Undo.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;String ls_msg IF dw_amt_edit_mode THEN dw_amt_edit_mode = Not dw_amt_edit_mode cb_reflash.TriggerEvent(Clicked!) wf_face() END IF end event type cb_1 from uo_imflatbutton within w_taobao_outware_send integer x = 745 integer width = 274 integer height = 164 integer taborder = 50 boolean bringtotop = true string text = "汇总打印" string normalpicname = "print.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;String ls_dft_old_dwname, ls_dft_new_dwname,ls_chnname,ls_dwtype Long ls_dwprintid String ls_windowname Int ls_i Long ll_billid Int li_ifuse Long ll_row String Name,ll_rpname Long ll_RpID,ll_flag,ll_ifuse ins_print_flag = False ins_print_hz = True w_curwin = Parent ls_windowname = Parent.ClassName ( ) + '_hz' SELECT billid,ifuse INTO :ll_billid, :li_ifuse FROM u_report_bill Where winName = :ls_windowname; IF sqlca.SQLCode <> 0 THEN li_ifuse = 0 END IF IF li_ifuse = 0 THEN DECLARE dft_dwprint CURSOR FOR SELECT dwprintid,dft_old_dwname, dft_new_dwname, chnname, dwtype FROM sys_dft_dwprint_dynamic WHERE dwtype = :ls_windowname And ptype = 0; OPEN dft_dwprint; FETCH dft_dwprint Into :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; IF sqlca.SQLCode <> 0 THEN Parent.TriggerEvent('ue_print',0,0) ELSE m_dft_dwprint_print_item m_1 m_1 = Create m_dft_dwprint_print_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 f_add_menuitem_print_dft(m_1,ls_i,ls_chnname,String(ls_dwprintid)) FETCH dft_dwprint Into :ls_dwprintid,:ls_dft_old_dwname, :ls_dft_new_dwname,:ls_chnname, :ls_dwtype; ls_i++ LOOP CLOSE dft_dwprint; m_1.PopMenu(This.X+50,This.Y+50) END IF ELSE DECLARE rpt_dwprint CURSOR FOR SELECT RpID,RpName,Flag,Ifuse FROM U_report_list WHERE billid = :ll_billid Order By RpName; OPEN rpt_dwprint; FETCH rpt_dwprint Into :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse; IF sqlca.SQLCode <> 0 THEN Parent.TriggerEvent('ue_print',0,0) ELSE m_rpt_dwprint_print_item m_2 m_2 = Create m_rpt_dwprint_print_item ls_i = 1 DO WHILE sqlca.SQLCode = 0 IF ll_ifuse = 1 And ll_flag = 1 And f_pow_rpt(ll_RpID) THEN //需添加权限 f_add_menuItem_print_rpt(m_2,ls_i,ll_rpname,String(ll_RpID)) END IF FETCH rpt_dwprint Into :ll_RpID,:ll_rpname,:ll_flag,:ll_ifuse; ls_i++ LOOP CLOSE rpt_dwprint; m_2.Item[1].Visible = False m_2.PopMenu(This.X+50,This.Y+50) END IF END IF end event type ln_bar from line within w_taobao_outware_send long linecolor = 268435456 integer linethickness = 4 integer beginy = 280 integer endx = 2007 integer endy = 280 end type type ln_bar2 from line within w_taobao_outware_send long linecolor = 16777215 integer linethickness = 4 integer beginy = 284 integer endx = 2039 integer endy = 284 end type type r_bar from rectangle within w_taobao_outware_send long linecolor = 16777215 integer linethickness = 4 long fillcolor = 1073741824 integer x = 1874 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_taobao_outware_send long linecolor = 268435456 integer linethickness = 4 integer beginy = 168 integer endx = 2007 integer endy = 168 end type type ln_2 from line within w_taobao_outware_send long linecolor = 16777215 integer linethickness = 4 integer beginy = 172 integer endx = 2039 integer endy = 172 end type