$PBExportHeader$w_outware_fx_mutiple_up.srw forward global type w_outware_fx_mutiple_up from w_publ_base_style end type type cb_refresh from uo_imflatbutton within w_outware_fx_mutiple_up end type type cb_new from uo_imflatbutton within w_outware_fx_mutiple_up end type type cb_delete from uo_imflatbutton within w_outware_fx_mutiple_up end type type cb_audit from uo_imflatbutton within w_outware_fx_mutiple_up end type type cb_cancle_audit from uo_imflatbutton within w_outware_fx_mutiple_up end type type cb_print from uo_imflatbutton within w_outware_fx_mutiple_up end type type cb_confirm_return from uo_imflatbutton within w_outware_fx_mutiple_up end type type ddlb_status from dropdownlistbox within w_outware_fx_mutiple_up end type type cbx_ifback from checkbox within w_outware_fx_mutiple_up end type type st_2 from statictext within w_outware_fx_mutiple_up end type type em_datea from editmask within w_outware_fx_mutiple_up end type type em_datez from editmask within w_outware_fx_mutiple_up end type type st_3 from statictext within w_outware_fx_mutiple_up end type type dw_fx_outware_free from datawindow within w_outware_fx_mutiple_up end type type cb_modify from uo_imflatbutton within w_outware_fx_mutiple_up end type type dw_fx_outware from u_dw_rbtnfilter within w_outware_fx_mutiple_up end type type cb_1 from uo_imflatbutton within w_outware_fx_mutiple_up end type type st_1 from statictext within w_outware_fx_mutiple_up end type type tab_1 from tab within w_outware_fx_mutiple_up end type type tabpage_1 from userobject within tab_1 end type type dw_fx_outware_mx from u_dw_rbtnfilter within tabpage_1 end type type tabpage_1 from userobject within tab_1 dw_fx_outware_mx dw_fx_outware_mx end type type tabpage_2 from userobject within tab_1 end type type cb_delete_barcode from commandbutton within tabpage_2 end type type cb_add_barcode from commandbutton within tabpage_2 end type type cb_delete_mx from commandbutton within tabpage_2 end type type cb_add_mx from commandbutton within tabpage_2 end type type dw_barcode from u_dw_rbtnfilter within tabpage_2 end type type tabpage_2 from userobject within tab_1 cb_delete_barcode cb_delete_barcode cb_add_barcode cb_add_barcode cb_delete_mx cb_delete_mx cb_add_mx cb_add_mx dw_barcode dw_barcode end type type tab_1 from tab within w_outware_fx_mutiple_up tabpage_1 tabpage_1 tabpage_2 tabpage_2 end type type cb_file from uo_imflatbutton within w_outware_fx_mutiple_up end type end forward global type w_outware_fx_mutiple_up from w_publ_base_style integer width = 4608 integer height = 3404 string title = "代客发货单" boolean maxbox = true event ue_print_outware_all ( ) event ue_print_outware_mx ( ) event ue_print_outware_all_mt ( ) cb_refresh cb_refresh cb_new cb_new cb_delete cb_delete cb_audit cb_audit cb_cancle_audit cb_cancle_audit cb_print cb_print cb_confirm_return cb_confirm_return ddlb_status ddlb_status cbx_ifback cbx_ifback st_2 st_2 em_datea em_datea em_datez em_datez st_3 st_3 dw_fx_outware_free dw_fx_outware_free cb_modify cb_modify dw_fx_outware dw_fx_outware cb_1 cb_1 st_1 st_1 tab_1 tab_1 cb_file cb_file end type global w_outware_fx_mutiple_up w_outware_fx_mutiple_up type variables datawindow dw_fx_outware_mx // 订单明细 datawindow dw_barcode // 条码明细 end variables forward prototypes public subroutine wf_btn_enabled () public subroutine wf_retrieve_outware () public subroutine wf_retrieve_outware_mx (long arg_outwareid) public function integer wf_send_outware (ref string arg_msg) public function integer wf_change_taborder (integer arg_taborder) public function integer wf_cus_select () public function integer wf_retrieve_barcode () end prototypes event ue_print_outware_all();long ll_row ll_row = dw_fx_outware.GetRow() if ll_row <= 0 then MessageBox('提示', '请先选择要打印的单据') return end if string ls_autocode string ls_outwarecode string ls_custname ls_autocode = dw_fx_outware.Object.outwarecode[ll_row] ls_custname = dw_fx_outware.Object.cusname[ll_row] datastore ds_report ds_report = create datastore ds_report.dataobject = 'dw_print_outware_fx_mx_data' long mx_row, i for i = 1 to dw_fx_outware_mx.rowcount() if Trim(dw_fx_outware_mx.Object.autocode[i]) <> Trim(ls_autocode) then continue mx_row = ds_report.InsertRow(0) ds_report.Object.tid[mx_row] = dw_fx_outware_mx.Object.tid[i] ds_report.Object.taskcode[mx_row] = dw_fx_outware_mx.Object.taskcode[i] ds_report.Object.outwarecode[mx_row] = dw_fx_outware_mx.Object.outwarecode[i] ds_report.Object.username[mx_row] = dw_fx_outware_mx.Object.username[i] ds_report.Object.outwaredate[mx_row] = dw_fx_outware_mx.Object.outwaredate[i] ds_report.Object.autocode[mx_row] = Trim(dw_fx_outware_mx.Object.autocode[i]) ds_report.Object.mtrlcode[mx_row] = dw_fx_outware_mx.Object.mtrlcode[i] ds_report.Object.mtrlname[mx_row] = dw_fx_outware_mx.Object.mtrlname[i] ds_report.Object.mtrlmode[mx_row] = dw_fx_outware_mx.Object.mtrlmode[i] ds_report.Object.unit[mx_row] = dw_fx_outware_mx.Object.unit[i] ds_report.Object.qty[mx_row] = dw_fx_outware_mx.Object.qty[i] ds_report.Object.mxcode[mx_row] = trim(dw_fx_outware_mx.Object.mxcode[i]) ds_report.Object.custname[mx_row] = ls_custname //客户名称 ds_report.Object.sptname[mx_row] = trim(dw_fx_outware_mx.Object.sptname[i]) //供应商名称 // ds_report.Object.mtrlcuscode[mx_row] = trim(dw_fx_outware_mx.Object.mtrlcuscode[i]) //产品批号（销售订单相关号） ds_report.Object.dscrp[mx_row] = dw_fx_outware_mx.Object.mxdscrp[i] IF trim(dw_fx_outware_mx.Object.mtrlcuscode[i]) = '' THEN ds_report.Object.mtrlcuscode[mx_row] = dw_fx_outware_mx.Object.mxdscrp[i] ELSE ds_report.Object.mtrlcuscode[mx_row] = trim(dw_fx_outware_mx.Object.mtrlcuscode[i]) END IF ds_report.Object.saletask_mxid[mx_row] = dw_fx_outware_mx.Object.fx_saletaskmx_saletask_mxid[i] //供应商名称 next S_print_MSG LS_PRMSG LS_PRMSG.obj_dwNAME='dw_print_outware_fx_mx' LS_PRMSG.SHARE_DW=ds_report LS_PRMSG.TAG_TEXT='收货通知单' LS_PRMSG.SETUP_FLAG=0 LS_PRMSG.PAGECH_FLAG=1 Openwithparm(w_publ_preview,LS_PRMSG) end event event ue_print_outware_mx();long row row = dw_fx_outware.GetRow() if (row <= 0) then messagebox('提示', '请先选择要打印的单据') return end if datastore ds_report ds_report = create datastore ds_report.dataobject = 'dw_fx_print_saletask_qc' long i, ll_row for i = 1 to dw_fx_outware_mx.RowCount() ll_row = ds_report.InsertRow(0) ds_report.Object.taskcode[ll_row] = dw_fx_outware_mx.Object.taskcode[i] ds_report.Object.mtrlcode[ll_row] = dw_fx_outware_mx.Object.mtrlcode[i] ds_report.Object.mtrlname[ll_row] = dw_fx_outware_mx.Object.mtrlname[i] ds_report.Object.mtrlmode[ll_row] = dw_fx_outware_mx.Object.mtrlmode[i] ds_report.Object.status[ll_row] = dw_fx_outware_mx.Object.status[i] ds_report.Object.qty[ll_row] = dw_fx_outware_mx.Object.qty[i] ds_report.Object.requiredate[ll_row] = dw_fx_outware_mx.Object.requiredate[i] next S_print_MSG LS_PRMSG LS_PRMSG.obj_dwNAME='dw_fx_print_saletask_qc' LS_PRMSG.SHARE_DW=ds_report LS_PRMSG.TAG_TEXT='销售发货单' LS_PRMSG.SETUP_FLAG=0 LS_PRMSG.PAGECH_FLAG=1 Openwithparm(w_publ_preview,LS_PRMSG) end event event ue_print_outware_all_mt();long ll_row ll_row = dw_fx_outware.GetRow() if ll_row <= 0 then MessageBox('提示', '请先选择要打印的单据') return end if string ls_autocode string ls_outwarecode string ls_custname ls_autocode = dw_fx_outware.Object.outwarecode[ll_row] ls_custname = dw_fx_outware.Object.cusname[ll_row] datastore ds_report ds_report = create datastore ds_report.dataobject = 'dw_print_outware_fx_mx_data' long mx_row, i for i = 1 to dw_fx_outware_mx.rowcount() if Trim(dw_fx_outware_mx.Object.autocode[i]) <> Trim(ls_autocode) then continue mx_row = ds_report.InsertRow(0) ds_report.Object.tid[mx_row] = dw_fx_outware_mx.Object.tid[i] ds_report.Object.taskcode[mx_row] = dw_fx_outware_mx.Object.taskcode[i] ds_report.Object.outwarecode[mx_row] = dw_fx_outware_mx.Object.outwarecode[i] ds_report.Object.username[mx_row] = dw_fx_outware_mx.Object.username[i] ds_report.Object.outwaredate[mx_row] = dw_fx_outware_mx.Object.outwaredate[i] ds_report.Object.autocode[mx_row] = Trim(dw_fx_outware_mx.Object.autocode[i]) ds_report.Object.mtrlcode[mx_row] = dw_fx_outware_mx.Object.mtrlcode[i] ds_report.Object.mtrlname[mx_row] = dw_fx_outware_mx.Object.mtrlname[i] ds_report.Object.mtrlmode[mx_row] = dw_fx_outware_mx.Object.mtrlmode[i] ds_report.Object.unit[mx_row] = dw_fx_outware_mx.Object.unit[i] ds_report.Object.qty[mx_row] = dw_fx_outware_mx.Object.qty[i] ds_report.Object.mxcode[mx_row] = trim(dw_fx_outware_mx.Object.mxcode[i]) ds_report.Object.custname[mx_row] = ls_custname //客户名称 ds_report.Object.sptname[mx_row] = trim(dw_fx_outware_mx.Object.sptname[i]) //供应商名称 ds_report.Object.order_mtrlname_str[mx_row] = dw_fx_outware_mx.Object.order_mtrlname_str[i] // ds_report.Object.mtrlcuscode[mx_row] = trim(dw_fx_outware_mx.Object.mtrlcuscode[i]) //产品批号（销售订单相关号） ds_report.Object.dscrp[mx_row] = trim(dw_fx_outware_mx.Object.mxdscrp[i]) IF trim(dw_fx_outware_mx.Object.mtrlcuscode[i]) = '' THEN ds_report.Object.mtrlcuscode[mx_row] = trim(dw_fx_outware_mx.Object.mxdscrp[i]) ELSE ds_report.Object.mtrlcuscode[mx_row] = trim(dw_fx_outware_mx.Object.mtrlcuscode[i]) END IF ds_report.Object.saletask_mxid[mx_row] = dw_fx_outware_mx.Object.fx_saletaskmx_saletask_mxid[i] //供应商名称 next ds_report.SetSort("mtrlcuscode A,mtrlname A, mtrlmode A") ds_report.Sort() S_print_MSG LS_PRMSG LS_PRMSG.obj_dwNAME='dw_print_outware_fx_mx_mt' //LS_PRMSG.obj_dwNAME='dw_print_outware_fx_mx_data' LS_PRMSG.SHARE_DW=ds_report LS_PRMSG.TAG_TEXT='收货通知单(唛头)' LS_PRMSG.SETUP_FLAG=0 LS_PRMSG.PAGECH_FLAG=1 Openwithparm(w_publ_preview,LS_PRMSG) end event public subroutine wf_btn_enabled ();if dw_edit_mode OR if_modify_mode then cb_refresh.enabled = false cb_new.text = '保存' cb_new.normalpicname = "save.bmp" cb_modify.text = '放弃' cb_modify.normalpicname = "undo.bmp" cb_delete.enabled = false cb_audit.enabled = false cb_cancle_audit.enabled = false cb_print.enabled = false cb_confirm_return.enabled = false tab_1.tabpage_2.cb_add_barcode.enabled = true tab_1.tabpage_2.cb_delete_barcode.enabled = true cb_new.enabled = true else cb_refresh.enabled = true cb_new.text = '新建' cb_new.normalpicname = "new.bmp" cb_modify.text = '修改' cb_modify.normalpicname = "open.bmp" cb_delete.enabled = true cb_audit.enabled = true cb_cancle_audit.enabled = true cb_print.enabled = true cb_confirm_return.enabled = true tab_1.tabpage_2.cb_add_barcode.enabled = false tab_1.tabpage_2.cb_delete_barcode.enabled = false cb_new.enabled = false end if cb_new.of_init_draw() cb_new.of_paint() cb_new.TriggerEvent('ue_textchange') cb_modify.of_init_draw() cb_modify.of_paint() cb_modify.TriggerEvent('ue_textchange') end subroutine public subroutine wf_retrieve_outware ();long status, ll_ifback if cbx_ifback.checked = false then ll_ifback = 0 else ll_ifback = 1 end if long ll_pos ll_pos = Pos(ddlb_status.Text, '[') if (ll_pos <= 0) then status = -1 else status = Long(Mid(ddlb_status.Text, ll_pos + 1, Len(ddlb_status.Text) - ll_pos - 1)) end if datetime dateA, dateZ dateA = DateTime(Date(em_dateA.Text), Time(0)) dateZ = DateTime(Date(em_dateZ.Text), Time('23:59:59')) string arg_msg oleobject request,response,FxOutwares,item request = FXAppCom.CreatePbDictionary() request.SetString('token', app_token_fx) request.SetInt('ifback', ll_ifback) request.SetInt('status', status) request.SetDateTime('startdate', dateA) request.SetDateTime('enddate', dateZ) request.SetInt('billtype', 2)//刷新2数据 response = FXAppCom.DoExecute('GetFxOutwareList', request) arg_msg = response.GetString('ErrMsg') if (arg_msg <> '') then messagebox('提示', '获取代客发货单列表失败，原因：' + arg_msg) return end if dw_fx_outware.Reset() dw_fx_outware_mx.Reset() dw_fx_outware.SetRedraw(false) FxOutwares = response.GetArrOfPBDictionary('FxOutwares') long i,row for i = 1 to FxOutwares.Count item = FxOutwares.GetItem(i - 1) row = dw_fx_outware.InsertRow(0) dw_fx_outware.Object.outwareid[row] = item.GetInt('outwareid') dw_fx_outware.Object.outwarecode[row] = item.GetString('outwarecode') dw_fx_outware.Object.outwaredate[row] = item.GetDateTime('outwaredate') dw_fx_outware.Object.sptcomid[row] = item.GetInt('sptcomid') dw_fx_outware.Object.cuscomid[row] = item.GetInt('cuscomid') dw_fx_outware.Object.dscrp[row] = item.GetString('dscrp') dw_fx_outware.Object.status[row] = item.GetInt('status') dw_fx_outware.Object.statusStr[row] = item.GetString('statusStr') dw_fx_outware.Object.thflag[row] = item.GetInt('thflag') dw_fx_outware.Object.opemp[row] = item.GetString('opemp') dw_fx_outware.Object.opdate[row] = item.GetDateTime('opdate') dw_fx_outware.Object.modifyemp[row] = item.GetString('modifyemp') if not IsNull(item.GetDateTime('modifydate')) then dw_fx_outware.Object.modifydate[row] = item.GetDateTime('modifydate') end if dw_fx_outware.Object.auditemp[row] = item.GetString('auditemp') if not IsNull(item.GetDateTime('auditdate')) then dw_fx_outware.Object.auditdate[row] = item.GetDateTime('auditdate') end if dw_fx_outware.Object.cusname[row] = item.GetString('cusname') dw_fx_outware.Object.carnum[row] = item.GetString('carnum') dw_fx_outware.Object.driver[row] = item.GetString('driver') if not IsNull(item.GetDateTime('estimated_arrival_date')) then dw_fx_outware.Object.estimated_arrival_date[row] = item.GetDateTime('estimated_arrival_date') end if dw_fx_outware.Object.billtype[row] = item.GetInt('billtype') dw_fx_outware.Object.relsendoutid[row] = item.GetInt('relsendoutid') dw_fx_outware.Object.relsendoutcode[row] = item.GetString('relsendoutcode') dw_fx_outware.Object.fx_sendout_cus_name[row] = item.GetString('cus_name') dw_fx_outware.Object.fx_sendout_cus_address[row] = item.GetString('cus_address') dw_fx_outware.Object.fx_sendout_cus_tele[row] = item.GetString('cus_tele') dw_fx_outware.Object.fx_sendout_rel_rep[row] = item.GetString('rel_rep') dw_fx_outware.Object.fx_sendout_freight[row] = item.GetString('freight') dw_fx_outware.Object.fx_sendout_freight_tele[row] = item.GetString('freight_tele') dw_fx_outware.Object.fx_sendout_freight_address[row] = item.GetString('freight_address') dw_fx_outware.Object.fx_sendout_banktypename[row] = item.GetString('banktypename') dw_fx_outware.Object.fx_sendout_billrelcode[row] = item.GetString('billrelcode') dw_fx_outware.Object.fx_sendout_paytype[row] = item.GetString('paytype') dw_fx_outware.Object.fx_sendout_cus_tele1[row] = item.GetString('cus_tele1') next dw_fx_outware.SetRedraw(true) if (dw_fx_outware.RowCount() > 0) then dw_fx_outware.SelectRow(0, false) dw_fx_outware.SelectRow(1, true) dw_fx_outware.SetRow(1) dw_fx_outware.post event RowFocusChanged(1) end if end subroutine public subroutine wf_retrieve_outware_mx (long arg_outwareid);if isnull(arg_outwareid) or arg_outwareid <= 0 then return end if string arg_msg oleobject request, response oleobject list, item request = FXAppCom.CreatePbDictionary() request.SetString('token', app_token_fx) request.SetInt('outwareid', arg_outwareid) response = FXAppCom.DoExecute('GetOutwareLogByOutwareid', request) arg_msg = response.GetString('ErrMsg') if (arg_msg <> '') then MessageBox('提示', '获取发货明细失败:' + arg_msg) return end if list = response.GetPBArray('logs') datetime dt any acceptdate, outwaredate dt = datetime(date('1899-12-30'), time('00:00:00')) dw_fx_outware_mx.Reset() dw_fx_outware_mx.SetRedraw(false) long i,row for i = 1 to list.Count item = list.GetPBDictionary(i - 1) row = dw_fx_outware_mx.InsertRow(0) dw_fx_outware_mx.SetItem(row, 'logid', item.GetInt('logid')) dw_fx_outware_mx.SetItem(row, 'taskid', item.GetInt('taskid')) dw_fx_outware_mx.SetItem(row, 'printid', item.GetInt('printid')) dw_fx_outware_mx.SetItem(row, 'mxcode', item.GetString('mxcode')) dw_fx_outware_mx.SetItem(row, 'qty', item.GetDouble('qty')) dw_fx_outware_mx.SetItem(row, 'userid', item.GetInt('userid')) dw_fx_outware_mx.SetItem(row, 'username', item.GetString('username')) dw_fx_outware_mx.SetItem(row, 'outwaredate', item.GetDateTime('outwaredate')) dw_fx_outware_mx.SetItem(row, 'outwarecode', item.GetString('outwarecode')) dw_fx_outware_mx.SetItem(row, 'acceptQty', item.GetDouble('acceptQty')) dw_fx_outware_mx.SetItem(row, 'logStatus', item.GetInt('logStatus')) dw_fx_outware_mx.SetItem(row, 'acceptUserName', item.GetString('acceptUserName')) dw_fx_outware_mx.SetItem(row, 'acceptdate', item.GetDateTime('acceptdate')) dw_fx_outware_mx.SetItem(row, 'inwarecode_erp', item.GetString('inwarecode_erp')) dw_fx_outware_mx.SetItem(row, 'tmpacceptqty', item.GetDouble('tmpacceptqty')) dw_fx_outware_mx.SetItem(row, 'tmpacceptemp', item.GetString('tmpacceptemp')) dw_fx_outware_mx.SetItem(row, 'checkqty', item.GetDouble('checkqty')) dw_fx_outware_mx.SetItem(row, 'goodqty', item.GetDouble('goodqty')) dw_fx_outware_mx.SetItem(row, 'badqty', item.GetDouble('badqty')) dw_fx_outware_mx.SetItem(row, 'goodinqty', item.GetDouble('goodinqty')) dw_fx_outware_mx.SetItem(row, 'badinqty', item.GetDouble('badinqty')) dw_fx_outware_mx.SetItem(row, 'autocode', item.GetString('autocode')) dw_fx_outware_mx.SetItem(row, 'mtrlcode', item.GetString('mtrlcode')) dw_fx_outware_mx.SetItem(row, 'mtrlname', item.GetString('mtrlname')) dw_fx_outware_mx.SetItem(row, 'mtrlmode', item.GetString('mtrlmode')) dw_fx_outware_mx.SetItem(row, 'unit', item.GetString('unit')) dw_fx_outware_mx.SetItem(row, 'status', item.GetString('status')) dw_fx_outware_mx.SetItem(row, 'woodcode', item.GetString('woodcode')) dw_fx_outware_mx.SetItem(row, 'pcode', item.GetString('pcode')) dw_fx_outware_mx.SetItem(row, 'mtrlid', item.GetInt('mtrlid')) dw_fx_outware_mx.SetItem(row, 'earliestSendDate', item.GetDatetime('earliestSendDate')) dw_fx_outware_mx.SetItem(row, 'requiredate', item.GetDatetime('requiredate')) dw_fx_outware_mx.SetItem(row, 'cus_mtrldef_senddays', item.GetInt('cus_mtrldef_senddays')) dw_fx_outware_mx.SetItem(row, 'cus_receiveqty', item.GetDouble('cus_receiveqty')) dw_fx_outware_mx.SetItem(row, 'taskqty', item.GetDouble('taskqty')) dw_fx_outware_mx.SetItem(row, 'tid', item.GetString('tid')) dw_fx_outware_mx.SetItem(row, 'taskcode', item.GetString('taskcode')) dw_fx_outware_mx.SetItem(row, 'sptflag', item.GetString('sptflag')) dw_fx_outware_mx.SetItem(row, 'sptflagStr', item.GetString('sptflagStr')) dw_fx_outware_mx.SetItem(row, 'sptname', item.GetString('sptname')) dw_fx_outware_mx.SetItem(row, 'mtrlcuscode', item.GetString('mtrlcuscode')) dw_fx_outware_mx.SetItem(row, 'backqty', item.GetDouble('backqty')) dw_fx_outware_mx.SetItem(row, 'mxdscrp', item.GetString('mxdscrp')) dw_fx_outware_mx.SetItem(row, 'fx_saletaskmx_saletask_mxid', item.GetInt('saletask_mxid')) dw_fx_outware_mx.SetItem(row, 'order_mtrlname_str', item.GetString('order_mtrlname_str')) next dw_fx_outware_mx.SetRedraw(true) end subroutine public function integer wf_send_outware (ref string arg_msg);Int rslt = 1 If (dw_fx_outware_mx.RowCount() <= 0) Then rslt = 0 arg_msg = '没有发货明细' Goto ext End If Long ll_getrow, ll_outwareid ll_getrow = dw_fx_outware_free.GetRow() String ls_dscrp DateTime ldt_outwaredate Date ld_tempdate dw_fx_outware_free.AcceptText() ls_dscrp = dw_fx_outware_free.Object.dscrp[ll_getrow] ld_tempdate = Date(dw_fx_outware_free.Object.outwaredate[ll_getrow]) ldt_outwaredate = DateTime(ld_tempdate, Now()) If if_modify_mode Then ll_outwareid = dw_fx_outware_free.Object.outwareid[ll_getrow] Else ll_outwareid = 0 End If //IF ISNULL(dw_fx_outware_free.Object.carnum[ll_getrow])THEN // rslt = 0 // arg_msg = '请输入车牌号！' // goto ext //END IF // //IF ISNULL(dw_fx_outware_free.Object.driver[ll_getrow]) THEN // rslt = 0 // arg_msg = '请输入司机名！' // goto ext //END IF If IsNull(dw_fx_outware_free.Object.cuscomid[ll_getrow]) Or dw_fx_outware_free.Object.cuscomid[ll_getrow] = 0 Then rslt = 0 arg_msg = '请选择客户！' Goto ext End If dw_fx_outware_free.AcceptText() dw_fx_outware_mx.AcceptText() oleobject Item, outware, mxs,barcodeList,barcode outware = FXAppCom.CreatePbDictionary() outware.SetInt('outwareid', ll_outwareid) outware.SetString('dscrp', ls_dscrp) outware.SetDateTime('outwaredate', ldt_outwaredate) outware.SetString('carnum', dw_fx_outware_free.Object.carnum[ll_getrow]) outware.SetString('driver', dw_fx_outware_free.Object.Driver[ll_getrow]) If Not IsNull(dw_fx_outware_free.Object.Driver[ll_getrow]) Then outware.SetDateTime('estimated_arrival_date', dw_fx_outware_free.Object.estimated_arrival_date[ll_getrow]) End If outware.SetInt('cuscomid',dw_fx_outware_free.Object.cuscomid[ll_getrow]) outware.SetInt('relsendoutid',dw_fx_outware_free.Object.relsendoutid[ll_getrow]) outware.SetString('relsendoutcode', dw_fx_outware_free.Object.relsendoutcode[ll_getrow]) mxs = FXAppCom.CreArrOfPbDictionary() Long i, cnt = 0 DateTime ld_now ld_now = DateTime(Today(),Now()) For i = 1 To dw_fx_outware_mx.RowCount() If (dw_fx_outware_mx.Object.earliestsenddate[i] > ld_now) Then dw_fx_outware_mx.Object.qty[i] = 0 If (dw_fx_outware_mx.Object.qty[i] <= 0) Then Continue If (dw_fx_outware_mx.Object.qty[i] > dw_fx_outware_mx.Object.tempqty[i]) Then rslt = 0 arg_msg = "行:" + String(dw_fx_outware_mx.Object.compute_2[i]) + "发货数:" + String(dw_fx_outware_mx.Object.qty[i]) + "不能大于未送货数" + String(dw_fx_outware_mx.Object.tempqty[i]) Goto ext End If cnt ++ Item = FXAppCom.CreatePbDictionary() Item.SetInt('taskid', dw_fx_outware_mx.Object.taskid[i]) Item.SetInt('printid', dw_fx_outware_mx.Object.printid[i]) Item.SetDouble('qty', dw_fx_outware_mx.Object.qty[i]) Item.SetString('mxcode', dw_fx_outware_mx.Object.outwarecode[i]) // 暂时存放相关发货单号(非明细编号) Item.SetInt('mtrlid', dw_fx_outware_mx.Object.mtrlid[i]) mxs.Add(Item) Next If (cnt <= 0) Then rslt = 0 arg_msg = '没有发货数大于0的明细' Goto ext End If Int j //条码明细 barcodeList = FXAppCom.CreArrOfPbDictionary() For j = 1 To dw_barcode.RowCount() barcode = FXAppCom.CreatePbDictionary() barcode.SetInt('outwareid', ll_outwareid) barcode.SetString('barcode', dw_barcode.Object.barcode[j]) barcodeList.Add(barcode) Next oleobject request,response request = FXAppCom.CreatePbDictionary() request.SetString('token', app_token_fx) request.SetObject('outware', outware) request.SetObject('mxs', mxs) request.SetObject('barcodeList', barcodeList) response = FXAppCom.DoExecute('SendOutwareMxMutiple', request) arg_msg = response.GetString('ErrMsg') if (arg_msg <> '') then rslt = 0 goto ext end if ext: Return rslt end function public function integer wf_change_taborder (integer arg_taborder);IF arg_taborder = 0 THEN dw_fx_outware_mx.SetTaborder('qty', 0) ELSE dw_fx_outware_mx.SetTaborder('qty', 20) END IF return 1 end function public function integer wf_cus_select ();IF NOT dw_edit_mode THEN RETURN 0 long ori_cuscomid, new_cuscomid, row row = dw_fx_outware_free.GetRow() ori_cuscomid = dw_fx_outware_free.Object.cuscomid[row] IF ori_cuscomid > 0 THEN IF dw_fx_outware_mx.RowCount() > 0 THEN MessageBox('','修改客户前需要先清除发货明细') RETURN 0 END IF END IF s_fx_company s_tran, s_ret OpenWithParm(w_cus_ch_fx, s_tran) s_ret = Message.PowerObjectParm IF not IsNull(s_ret) then IF (s_ret.ifselect) then new_cuscomid = s_ret.comid[1] IF (ori_cuscomid <> new_cuscomid) then dw_fx_outware_mx.Reset() // 重选客户，清空明细 END IF dw_fx_outware_free.Object.cuscomid[row] = new_cuscomid dw_fx_outware_free.Object.cusname[row] = s_ret.comname[1] dw_fx_outware_free.AcceptText() RETURN 1 END IF END IF RETURN 0 end function public function integer wf_retrieve_barcode ();Int rslt = 1 dw_barcode.Reset() String arg_msg Long ll_row, outwareid ll_row = dw_fx_outware.GetRow() If IsNull(ll_row) Then Goto ext If (ll_row <= 0) Then Goto ext outwareid = dw_fx_outware.Object.outwareid[ll_row] If IsNull(outwareid) Then Goto ext oleobject req, rsp req = FXAppCom.CreatePbDictionary() req.SetString('token', app_token_fx) req.SetInt('outwareid', outwareid) rsp = FXAppCom.DoExecute('GetFxSaletaskBuyBarcode', req) arg_msg = rsp.GetString('ErrMsg') If (arg_msg <> '') Then rslt = 0 MessageBox('提示', '获取订单条码失败:' + arg_msg) Goto ext End If oleobject list, Item list = rsp.GetPBArray('barcodeList') dw_barcode.SetRedraw(False) Long i, row For i = 1 To list.Count Item = list.GetPBDictionary(i - 1) row = dw_barcode.InsertRow(0) dw_barcode.SetItem(row, 'taskid', Item.GetInt('taskid')) dw_barcode.SetItem(row, 'printid', Item.GetInt('printid')) dw_barcode.SetItem(row, 'barcode', Item.GetString('barcode')) dw_barcode.SetItem(row, 'taskcode', Item.GetString('taskcode')) dw_barcode.SetItem(row, 'mtrlcode', Item.GetString('mtrlcode')) dw_barcode.SetItem(row, 'mtrlname', Item.GetString('mtrlname')) dw_barcode.SetItem(row, 'mtrlmode', Item.GetString('mtrlmode')) dw_barcode.SetItem(row, 'status', Item.GetString('status')) dw_barcode.SetItem(row, 'woodcode', Item.GetString('woodcode')) dw_barcode.SetItem(row, 'pcode', Item.GetString('pcode')) dw_barcode.SetItem(row, 'qty', Item.GetInt('qty')) dw_barcode.SetItem(row, 'printnum', Item.GetInt('printnum')) dw_barcode.SetItem(row, 'packqty', Item.GetDouble('packqty')) Next dw_barcode.SetRedraw(True) ext: Return rslt end function on w_outware_fx_mutiple_up.create int iCurrent call super::create this.cb_refresh=create cb_refresh this.cb_new=create cb_new this.cb_delete=create cb_delete this.cb_audit=create cb_audit this.cb_cancle_audit=create cb_cancle_audit this.cb_print=create cb_print this.cb_confirm_return=create cb_confirm_return this.ddlb_status=create ddlb_status this.cbx_ifback=create cbx_ifback this.st_2=create st_2 this.em_datea=create em_datea this.em_datez=create em_datez this.st_3=create st_3 this.dw_fx_outware_free=create dw_fx_outware_free this.cb_modify=create cb_modify this.dw_fx_outware=create dw_fx_outware this.cb_1=create cb_1 this.st_1=create st_1 this.tab_1=create tab_1 this.cb_file=create cb_file iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.cb_refresh this.Control[iCurrent+2]=this.cb_new this.Control[iCurrent+3]=this.cb_delete this.Control[iCurrent+4]=this.cb_audit this.Control[iCurrent+5]=this.cb_cancle_audit this.Control[iCurrent+6]=this.cb_print this.Control[iCurrent+7]=this.cb_confirm_return this.Control[iCurrent+8]=this.ddlb_status this.Control[iCurrent+9]=this.cbx_ifback this.Control[iCurrent+10]=this.st_2 this.Control[iCurrent+11]=this.em_datea this.Control[iCurrent+12]=this.em_datez this.Control[iCurrent+13]=this.st_3 this.Control[iCurrent+14]=this.dw_fx_outware_free this.Control[iCurrent+15]=this.cb_modify this.Control[iCurrent+16]=this.dw_fx_outware this.Control[iCurrent+17]=this.cb_1 this.Control[iCurrent+18]=this.st_1 this.Control[iCurrent+19]=this.tab_1 this.Control[iCurrent+20]=this.cb_file end on on w_outware_fx_mutiple_up.destroy call super::destroy destroy(this.cb_refresh) destroy(this.cb_new) destroy(this.cb_delete) destroy(this.cb_audit) destroy(this.cb_cancle_audit) destroy(this.cb_print) destroy(this.cb_confirm_return) destroy(this.ddlb_status) destroy(this.cbx_ifback) destroy(this.st_2) destroy(this.em_datea) destroy(this.em_datez) destroy(this.st_3) destroy(this.dw_fx_outware_free) destroy(this.cb_modify) destroy(this.dw_fx_outware) destroy(this.cb_1) destroy(this.st_1) destroy(this.tab_1) destroy(this.cb_file) end on event resize;call super::resize;int li_free_width,li_free_height li_free_width = 1810 //dw_fx_outwar_free宽度 li_free_height = 1880 //dw_fx_outware_free高度 //dw_fx_outware_free dw_fx_outware_free.width = li_free_width dw_fx_outware_free.height = li_free_height //dw_fx_outware dw_fx_outware.x = li_free_width + 30 dw_fx_outware.y = dw_fx_outware_free.y dw_fx_outware.width = this.workspacewidth() - li_free_width dw_fx_outware.height = dw_fx_outware_free.height ////cb_add_mx, cb_delete_mx //cb_add_mx.x = 40 //cb_add_mx.y = dw_fx_outware_free.y + li_free_height + 20 //cb_delete_mx.x = cb_add_mx.width + 20 //cb_delete_mx.y = cb_add_mx.y //tab tab_1.Width = this.workspacewidth( ) - 10 tab_1.Height = this.workspaceheight( ) - tab_1.y // 订单明细 dw_fx_outware_mx.Width = tab_1.Width - 20 dw_fx_outware_mx.Height = tab_1.Height - 100 // 条码明细 dw_barcode.Width = tab_1.Width - 20 dw_barcode.Height = tab_1.Height - 290 end event event open;this.triggerevent('ue_before_open') wf_movetocenter() dw_fx_outware_free.insertrow(0) cbx_ifback.Checked = false ddlb_status.SelectItem(7) em_dateA.Text = String(RelativeDate(Today(), - 30)) em_dateZ.Text = String(Today()) wf_retrieve_outware() end event event ue_before_open;call super::ue_before_open;dw_fx_outware_mx = tab_1.tabpage_1.dw_fx_outware_mx dw_barcode = tab_1.tabpage_2.dw_barcode end event type cb_func from w_publ_base_style`cb_func within w_outware_fx_mutiple_up boolean visible = false integer x = 1618 end type type cb_exit from w_publ_base_style`cb_exit within w_outware_fx_mutiple_up integer x = 1559 end type event cb_exit::clicked;if dw_edit_mode or if_modify_mode then IF MessageBox('提示','是否放弃新建/修改,并退出?',Question! ,OKCancel! , 1 ) = 2 THEN return END IF end if close(parent) end event type ln_bar from w_publ_base_style`ln_bar within w_outware_fx_mutiple_up end type type ln_bar2 from w_publ_base_style`ln_bar2 within w_outware_fx_mutiple_up end type type r_bar from w_publ_base_style`r_bar within w_outware_fx_mutiple_up integer x = 2135 end type type cb_refresh from uo_imflatbutton within w_outware_fx_mutiple_up integer x = 5 integer width = 151 integer height = 164 integer taborder = 10 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;wf_retrieve_outware() end event type cb_new from uo_imflatbutton within w_outware_fx_mutiple_up integer x = 155 integer width = 165 integer height = 164 integer taborder = 10 boolean bringtotop = true boolean enabled = false string text = "新建" string normalpicname = "new.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;long rslt = 1 string arg_msg if dw_edit_mode then // 新建/修改保存 if wf_send_outware(ref arg_msg) = 0 then messagebox('提示', '保存失败,原因:' + arg_msg) rslt = 0 goto ext end if wf_change_taborder(0) Messagebox('提示', '保存成功') wf_retrieve_outware() end if ext: if rslt = 1 then dw_edit_mode = Not dw_edit_mode if_modify_mode = false wf_btn_enabled() end if end event type cb_delete from uo_imflatbutton within w_outware_fx_mutiple_up boolean visible = false integer x = 494 integer width = 165 integer height = 164 integer taborder = 10 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;long ll_row, ll_status,ll_outwareid ll_row = dw_fx_outware.GetRow() IF ll_row <= 0 THEN messagebox('提示', '请选择当前行,不能删除!') end if ll_status = dw_fx_outware.Object.status[ll_row] ll_outwareid = dw_fx_outware.Object.outwareid[ll_row] if ll_status <> 0 then messagebox('提示', '不是待审核单据,不能删除!') return end if IF dw_fx_outware.Object.relsendoutid[ll_row] > 0 THEN messagebox('提示', '由客户提货通知单 自动生成不能操作!') return END IF oleobject request,response request = FXAppCom.CreatePbDictionary() request.SetString('token', app_token_fx) request.SetObject('outwareid', ll_outwareid) string arg_msg response = FXAppCom.DoExecute('DelFxOutware', request) arg_msg = response.GetString('ErrMsg') if (arg_msg <> '') then messagebox('提示', '删除失败,' + arg_msg) else messagebox('提示', '删除成功！') wf_retrieve_outware() end if end event type cb_audit from uo_imflatbutton within w_outware_fx_mutiple_up integer x = 485 integer width = 165 integer height = 164 integer taborder = 10 boolean bringtotop = true string text = "审核" string normalpicname = "audit.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;long ll_row, ll_status, ll_outwareid ll_row = dw_fx_outware.GetRow() IF ll_row <= 0 THEN messagebox('提示', '请选择当前行,不能审核!') return end if ll_status = dw_fx_outware.Object.status[ll_row] ll_outwareid = dw_fx_outware.Object.outwareid[ll_row] if ll_status <> 0 then messagebox('提示', '不是待审核单据,不能审核!') return end if oleobject request,response request = FXAppCom.CreatePbDictionary() request.SetString('token', app_token_fx) request.SetObject('outwareid', ll_outwareid) request.SetObject('status', 1) string arg_msg response = FXAppCom.DoExecute('SaveFxOutwareStatus', request) arg_msg = response.GetString('ErrMsg') if (arg_msg <> '') then messagebox('提示', '审核失败,' + arg_msg) else messagebox('提示', '审核成功！') wf_retrieve_outware() end if end event type cb_cancle_audit from uo_imflatbutton within w_outware_fx_mutiple_up integer x = 649 integer width = 165 integer height = 164 integer taborder = 20 boolean bringtotop = true string text = "撤审" string normalpicname = "caudit.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;long ll_row, ll_status, ll_outwareid ll_row = dw_fx_outware.GetRow() IF ll_row <= 0 THEN messagebox('提示', '请选择当前行,不能撤审!') end if ll_status = dw_fx_outware.Object.status[ll_row] ll_outwareid = dw_fx_outware.Object.outwareid[ll_row] if ll_status <> 1 then messagebox('提示', '不是已审核单据,不能撤审!') return end if oleobject request,response request = FXAppCom.CreatePbDictionary() request.SetString('token', app_token_fx) request.SetObject('outwareid', ll_outwareid) request.SetObject('status', 0) string arg_msg response = FXAppCom.DoExecute('SaveFxOutwareStatus', request) arg_msg = response.GetString('ErrMsg') if (arg_msg <> '') then messagebox('提示', '撤审失败,' + arg_msg) else messagebox('提示', '撤审成功！') wf_retrieve_outware() end if end event type cb_print from uo_imflatbutton within w_outware_fx_mutiple_up integer x = 814 integer width = 165 integer height = 164 integer taborder = 20 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;if (dw_edit_mode) then return long ll_row, ll_status ll_row = dw_fx_outware.GetRow() IF ll_row <= 0 THEN messagebox('提示', '请选择当前行,不能打印!') end if ll_status = dw_fx_outware.Object.status[ll_row] if ll_status = 0 then messagebox('提示', '待审核单据,不能打印！') return end if Parent.TriggerEvent('ue_print_outware_all') end event type cb_confirm_return from uo_imflatbutton within w_outware_fx_mutiple_up boolean visible = false integer x = 1170 integer width = 274 integer height = 164 integer taborder = 30 boolean bringtotop = true string text = "退货已收" string normalpicname = "ok.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;long ll_row, ll_status, ll_outwareid ll_row = dw_fx_outware.GetRow() IF ll_row <= 0 THEN messagebox('提示', '请选择当前行,不能退货!') end if ll_status = dw_fx_outware.Object.status[ll_row] ll_outwareid = dw_fx_outware.Object.outwareid[ll_row] if ll_status <> 4 then messagebox('提示', '单据状态不是退货中,不能确认退货!') return end if oleobject request,response request = FXAppCom.CreatePbDictionary() request.SetString('token', app_token_fx) request.SetObject('outwareid', ll_outwareid) request.SetObject('status', 5) string arg_msg response = FXAppCom.DoExecute('SaveFxOutwareStatus', request) arg_msg = response.GetString('ErrMsg') if (arg_msg <> '') then messagebox('提示', '确认失败,' + arg_msg) else messagebox('提示', '确认成功！') wf_retrieve_outware() end if end event type ddlb_status from dropdownlistbox within w_outware_fx_mutiple_up integer x = 201 integer y = 192 integer width = 425 integer height = 496 integer taborder = 80 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 boolean vscrollbar = true string item[] = {"待审核[0]","待客户确认[1]","客户已确认[2]","全部"} borderstyle borderstyle = stylelowered! end type type cbx_ifback from checkbox within w_outware_fx_mutiple_up boolean visible = false integer x = 32 integer y = 192 integer width = 311 integer height = 76 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 type st_2 from statictext within w_outware_fx_mutiple_up integer x = 658 integer y = 204 integer width = 288 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 = 16777215 string text = "发货日期从" alignment alignment = center! boolean focusrectangle = false end type type em_datea from editmask within w_outware_fx_mutiple_up integer x = 969 integer y = 192 integer width = 389 integer height = 84 integer taborder = 90 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 string text = "0000-00-00" borderstyle borderstyle = stylelowered! maskdatatype maskdatatype = datemask! string mask = "yyyy-mm-dd" boolean spin = true end type type em_datez from editmask within w_outware_fx_mutiple_up integer x = 1463 integer y = 188 integer width = 389 integer height = 84 integer taborder = 100 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 string text = "0000-00-00" borderstyle borderstyle = stylelowered! maskdatatype maskdatatype = datemask! string mask = "yyyy-mm-dd" boolean spin = true end type type st_3 from statictext within w_outware_fx_mutiple_up integer x = 1358 integer y = 204 integer width = 96 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 = 16777215 string text = "到" alignment alignment = center! boolean focusrectangle = false end type type dw_fx_outware_free from datawindow within w_outware_fx_mutiple_up integer x = 37 integer y = 288 integer width = 1792 integer height = 1880 integer taborder = 30 boolean bringtotop = true string title = "none" string dataobject = "dw_fx_outware_free_up" boolean livescroll = true borderstyle borderstyle = stylelowered! end type event doubleclicked;if (not dw_edit_mode) then return if (row <= 0) then return if dwo.Type = 'column' and dwo.Name = 'cusname' then wf_cus_select() end if end event type cb_modify from uo_imflatbutton within w_outware_fx_mutiple_up integer x = 320 integer width = 165 integer height = 164 integer taborder = 20 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 dw_edit_mode then if MessageBox('提示','是否放弃新建/修改操作?',Question! ,OKCancel! , 1 ) = 1 then wf_change_taborder(0) dw_edit_mode = false if_modify_mode = false wf_btn_enabled() wf_retrieve_outware() end if else long ll_row, ll_status ll_row = dw_fx_outware.GetRow() IF ll_row <= 0 THEN messagebox('提示', '请选择当前行,不能修改!') return end if ll_status = dw_fx_outware.Object.status[ll_row] if ll_status <> 0 then messagebox('提示', '不是待审核单据,不能修改!') return end if wf_change_taborder(1) dw_edit_mode = true if_modify_mode = true wf_btn_enabled() end if end event type dw_fx_outware from u_dw_rbtnfilter within w_outware_fx_mutiple_up integer x = 1842 integer y = 276 integer width = 1714 integer height = 1880 integer taborder = 20 boolean bringtotop = true boolean titlebar = true string dataobject = "dw_fx_outware_mutiple_up" boolean controlmenu = true boolean maxbox = true boolean hscrollbar = true boolean vscrollbar = true boolean resizable = true boolean border = false boolean hsplitscroll = true borderstyle borderstyle = styleshadowbox! boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true boolean autosave_setlayout_use = false boolean autosave_columnvisible_use = false end type event rowfocuschanged;call super::rowfocuschanged;if IsNull(currentrow) then IF THIS.rowcount() > 0 then THIS.SelectRow(0,FALSE) THIS.SelectRow(1,TRUE) THIS.setrow(1) currentrow =1 end if end if if IsNull(currentrow) then return if (currentrow <= 0) then return this.SelectRow(0, false) this.SelectRow(currentrow, true) dw_fx_outware_free.Reset( ) this.RowsCopy(currentrow, currentrow, Primary!, dw_fx_outware_free, 1, Primary!) long ll_outwareid ll_outwareid = this.Object.outwareid[currentrow] wf_retrieve_outware_mx(ll_outwareid) wf_retrieve_barcode() end event type cb_1 from uo_imflatbutton within w_outware_fx_mutiple_up integer x = 978 integer width = 274 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;if (dw_edit_mode) then return long ll_row, ll_status ll_row = dw_fx_outware.GetRow() IF ll_row <= 0 THEN messagebox('提示', '请选择当前行,不能打印!') end if ll_status = dw_fx_outware.Object.status[ll_row] if ll_status = 0 then messagebox('提示', '待审核单据,不能打印！') return end if Parent.TriggerEvent('ue_print_outware_all_mt') end event type st_1 from statictext within w_outware_fx_mutiple_up integer x = 32 integer y = 204 integer width = 155 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 = 134217739 string text = "状态" alignment alignment = center! boolean focusrectangle = false end type type tab_1 from tab within w_outware_fx_mutiple_up integer y = 2188 integer width = 3525 integer height = 1056 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long backcolor = 134217739 boolean raggedright = true boolean focusonbuttondown = true integer selectedtab = 1 tabpage_1 tabpage_1 tabpage_2 tabpage_2 end type on tab_1.create this.tabpage_1=create tabpage_1 this.tabpage_2=create tabpage_2 this.Control[]={this.tabpage_1,& this.tabpage_2} end on on tab_1.destroy destroy(this.tabpage_1) destroy(this.tabpage_2) end on event selectionchanged;If dw_edit_mode Then Return String tabText tabText = Control[newindex].Text If (dw_fx_outware.GetRow() <= 0) Then Return Long ll_outwareid ll_outwareid = dw_fx_outware.Object.outwareid[dw_fx_outware.GetRow()] Choose Case tabText Case '订单明细' wf_retrieve_outware_mx(ll_outwareid) Case '条码明细' wf_retrieve_barcode() End Choose end event type tabpage_1 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3488 integer height = 944 long backcolor = 134217739 string text = "订单明细" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_fx_outware_mx dw_fx_outware_mx end type on tabpage_1.create this.dw_fx_outware_mx=create dw_fx_outware_mx this.Control[]={this.dw_fx_outware_mx} end on on tabpage_1.destroy destroy(this.dw_fx_outware_mx) end on type dw_fx_outware_mx from u_dw_rbtnfilter within tabpage_1 integer y = 8 integer width = 3488 integer height = 940 integer taborder = 30 boolean bringtotop = true string dataobject = "dw_fx_outware_log_mutiple_up" 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 this.SelectRow(0, false) this.SelectRow(row, true) end if end event type tabpage_2 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3488 integer height = 944 long backcolor = 134217739 string text = "条码明细" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 cb_delete_barcode cb_delete_barcode cb_add_barcode cb_add_barcode cb_delete_mx cb_delete_mx cb_add_mx cb_add_mx dw_barcode dw_barcode end type on tabpage_2.create this.cb_delete_barcode=create cb_delete_barcode this.cb_add_barcode=create cb_add_barcode this.cb_delete_mx=create cb_delete_mx this.cb_add_mx=create cb_add_mx this.dw_barcode=create dw_barcode this.Control[]={this.cb_delete_barcode,& this.cb_add_barcode,& this.cb_delete_mx,& this.cb_add_mx,& this.dw_barcode} end on on tabpage_2.destroy destroy(this.cb_delete_barcode) destroy(this.cb_add_barcode) destroy(this.cb_delete_mx) destroy(this.cb_add_mx) destroy(this.dw_barcode) end on type cb_delete_barcode from commandbutton within tabpage_2 integer x = 343 integer y = 8 integer width = 306 integer height = 84 integer taborder = 50 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" boolean enabled = false string text = "删明细" end type event clicked;if dw_barcode.RowCount() <= 0 then Messagebox('提示', '请先添加明细！') return end if long i, index index = 0 FOR i = dw_barcode.RowCount() TO 1 STEP -1 IF dw_barcode.Object.ch[i] = 1 THEN index++ dw_barcode.DeleteRow(i) END IF NEXT IF index = 0 THEN MessageBox('提示', '请先勾选要删除的条码明细!') END IF end event type cb_add_barcode from commandbutton within tabpage_2 integer x = 27 integer y = 8 integer width = 306 integer height = 84 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" boolean enabled = false string text = "增明细" end type event clicked;s_edit_index_tran s_tran, s_ret OpenWithParm(w_outware_barcode_ch, s_tran) s_ret = Message.PowerObjectParm Long i,num String arg_msg,arg_msg_temp num = UpperBound(s_ret.arr_string) If num <= 0 Then Return If Not IsNull(s_ret) Then For i = 1 To num oleobject req, rsp req = FXAppCom.CreatePbDictionary() req.SetString('token', app_token_fx) req.SetString('barcode', s_ret.arr_string[i]) rsp = FXAppCom.DoExecute('GetFxSaletaskBuyBarcode', req) arg_msg_temp = rsp.GetString('ErrMsg') If (arg_msg_temp <> '') Then MessageBox('提示', '获取条码失败:' + arg_msg_temp) Return End If oleobject list, Item list = rsp.GetPBArray('barcodeList') dw_barcode.SetRedraw(False) Long j, row,q,cnt For j = 1 To list.Count Item = list.GetPBDictionary(j - 1) cnt = 0 For q = 1 To dw_fx_outware_mx.RowCount() If Item.GetString('taskcode') = dw_fx_outware_mx.Object.taskcode[q] Then cnt++ End If Next If cnt = 0 Then arg_msg += "条码"+Item.GetString('barcode')+ "不是明细订单对应的条码~r~n" Continue End If cnt = 0 For q = 1 To dw_barcode.RowCount() If Item.GetString('barcode') = dw_barcode.Object.barcode[q] Then cnt++ End If Next If cnt > 0 Then arg_msg += "条码"+Item.GetString('barcode')+ "已存在~r~n" Continue End If row = dw_barcode.InsertRow(0) dw_barcode.SetItem(row, 'taskid', Item.GetInt('taskid')) dw_barcode.SetItem(row, 'printid', Item.GetInt('printid')) dw_barcode.SetItem(row, 'barcode', Item.GetString('barcode')) dw_barcode.SetItem(row, 'taskcode', Item.GetString('taskcode')) dw_barcode.SetItem(row, 'mtrlcode', Item.GetString('mtrlcode')) dw_barcode.SetItem(row, 'mtrlname', Item.GetString('mtrlname')) dw_barcode.SetItem(row, 'mtrlmode', Item.GetString('mtrlmode')) dw_barcode.SetItem(row, 'status', Item.GetString('status')) dw_barcode.SetItem(row, 'woodcode', Item.GetString('woodcode')) dw_barcode.SetItem(row, 'pcode', Item.GetString('pcode')) dw_barcode.SetItem(row, 'qty', Item.GetInt('qty')) dw_barcode.SetItem(row, 'printnum', Item.GetInt('printnum')) dw_barcode.SetItem(row, 'packqty', Item.GetDouble('packqty')) Next dw_barcode.SetRedraw(True) Next If arg_msg <> "" Then MessageBox('提示', arg_msg) Return End If End If end event type cb_delete_mx from commandbutton within tabpage_2 boolean visible = false integer x = 334 integer y = 1564 integer width = 306 integer height = 84 integer taborder = 50 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" boolean enabled = false string text = "删明细" end type event clicked;if dw_fx_outware_mx.RowCount() <= 0 then Messagebox('提示', '请先添加明细！') return end if long i, index index = 0 FOR i = dw_fx_outware_mx.RowCount() TO 1 STEP -1 IF dw_fx_outware_mx.Object.ch[i] = 1 THEN index++ dw_fx_outware_mx.DeleteRow(0) END IF NEXT IF index = 0 THEN MessageBox('提示', '请先勾选要删除的发货明细!') END IF end event type cb_add_mx from commandbutton within tabpage_2 boolean visible = false integer x = 18 integer y = 1564 integer width = 306 integer height = 84 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" boolean enabled = false string text = "增明细" end type event clicked;Long currow, cuscomid currow = dw_fx_outware_free.GetRow() cuscomid = dw_fx_outware_free.Object.cuscomid[currow] IF IsNull(cuscomid) OR cuscomid = 0 THEN MessageBox('','请先选择发货客户') IF wf_cus_select() = 0 THEN RETURN cuscomid = dw_fx_outware_free.Object.cuscomid[currow] END IF datastore arg_ds arg_ds = create datastore arg_ds.DataObject = 'dw_fx_saletaskmx_sel' OpenWithParm(w_fx_saletaskmx_sel, cuscomid) arg_ds = Message.PowerObjectParm IF IsValid(arg_ds) THEN dw_fx_outware_mx.SetRedraw(false) long row, i string ls_findstr Datetime ld_now ld_now = DateTime(Today(),Now()) for i = arg_ds.RowCount() TO 1 STEP -1 if (arg_ds.Object.qty[i] <= arg_ds.Object.cus_receiveqty[i] + arg_ds.Object.qty_wait[i]) then continue // '齐货' 跳过 //DONE:已选择过滤 ls_findstr = 'taskid=' + string(arg_ds.Object.taskid[i]) + " AND printid=" + string(arg_ds.Object.printid[i]) IF dw_fx_outware_mx.Find(ls_findstr,1,dw_fx_outware_mx.RowCount()) > 0 THEN continue END IF row = dw_fx_outware_mx.InsertRow(0) dw_fx_outware_mx.Object.taskid[row] = arg_ds.Object.taskid[i] dw_fx_outware_mx.Object.printid[row] = arg_ds.Object.printid[i] dw_fx_outware_mx.Object.mxcode[row] = arg_ds.Object.mxcode[i] dw_fx_outware_mx.Object.fxmtrlid[row] = arg_ds.Object.fxmtrlid[i] dw_fx_outware_mx.Object.mtrlid[row] = arg_ds.Object.mtrlid[i] dw_fx_outware_mx.Object.mtrlcode[row] = arg_ds.Object.mtrlcode[i] dw_fx_outware_mx.Object.mtrlname[row] = arg_ds.Object.mtrlname[i] dw_fx_outware_mx.Object.mtrlmode[row] = arg_ds.Object.mtrlmode[i] dw_fx_outware_mx.Object.status[row] = arg_ds.Object.status[i] dw_fx_outware_mx.Object.woodcode[row] = arg_ds.Object.woodcode[i] dw_fx_outware_mx.Object.pcode[row] = arg_ds.Object.pcode[i] dw_fx_outware_mx.Object.taskqty[row] = arg_ds.Object.qty[i] //订单数量 dw_fx_outware_mx.Object.qty_wait[row] = arg_ds.Object.qty_wait[i] dw_fx_outware_mx.Object.cus_receiveqty[row] = arg_ds.Object.cus_receiveqty[i] // IF arg_ds.Object.earliestsenddate[i] > ld_now THEN // dw_fx_outware_mx.Object.qty[row] = 0 //发货数量 // ELSE dw_fx_outware_mx.Object.qty[row] = arg_ds.Object.outqty[i] // END IF dw_fx_outware_mx.Object.outwarecode[row] = '' dw_fx_outware_mx.Object.requiredate[row] = arg_ds.Object.requiredate[i] // dw_fx_outware_mx.Object.price[row] = arg_ds.Object.price[i]row] = arg_ds.Object.mxdscrp[i] // dw_fx_outware_mx.Object.mxdscrp2[row] = arg_ds.Object.mxdscrp2[i] dw_fx_outware_mx.Object.mtrlcuscode[row] = arg_ds.Object.mtrlcuscode[i] // dw_fx_outware_mx.Object.plancode[row] = arg_ds.Object.plancode[i] dw_fx_outware_mx.Object.cus_mtrldef_senddays[row] = arg_ds.Object.cus_mtrldef_senddays[i] // dw_fx_outware_mx.Object.mxdscrp[ dw_fx_outware_mx.Object.earliestsenddate[row] = arg_ds.Object.earliestsenddate[i] dw_fx_outware_mx.Object.tid[row] = arg_ds.Object.tid[i] dw_fx_outware_mx.Object.taskcode[row] = arg_ds.Object.taskcode[i] dw_fx_outware_mx.Object.unit[row] = arg_ds.Object.unit[i] dw_fx_outware_mx.Object.fx_saletaskmx_saletask_mxid[row] = arg_ds.Object.saletask_mxid[i] dw_fx_outware_mx.Object.tempqty[row] = arg_ds.Object.outqty[i] //临时发货数，判断限制使用 dw_fx_outware_mx.Object.billtype[row] = arg_ds.Object.billtype[i] next dw_fx_outware_mx.SetRedraw(true) END IF end event type dw_barcode from u_dw_rbtnfilter within tabpage_2 integer y = 104 integer width = 3237 integer height = 648 integer taborder = 40 string dataobject = "dw_fx_saletask_buy_barcode" 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 dw_edit_mode then return if (row > 0) then this.SelectRow(0, false) this.SelectRow(row, true) end if end event type cb_file from uo_imflatbutton within w_outware_fx_mutiple_up integer x = 1253 integer height = 164 integer taborder = 50 boolean bringtotop = true string text = "附件管理" string normalpicname = "fj.bmp" integer picsize = 16 toolbaralignment pic_align = alignattop! boolean border = false end type event clicked;call super::clicked;long currentrow string ls_taskcode Long ll_status currentrow = dw_fx_outware.GetRow() IF currentrow <= 0 THEN MessageBox('提示', '请先选择权限!') RETURN END IF ls_taskcode = dw_fx_outware.Object.outwarecode[currentrow] ll_status = dw_fx_outware.Object.status[currentrow] //if ll_status <> 2 then // messagebox('提示', '不是审核状态,不能操作!') // return //end if s_edit_index_tran s_pic s_pic.d_string = ls_taskcode s_pic.d_long = 2068 s_pic.e_long = dw_fx_outware.Object.outwareid[currentrow] s_pic.f_long = 0 s_pic.work_mode = 1 OpenWithParm(w_fj_manage,s_pic) end event