$PBExportHeader$w_permit_bill.srw forward global type w_permit_bill from w_publ_base end type type tab_1 from tab within w_permit_bill end type type tabpage_1 from userobject within tab_1 end type type dw_salemx from u_dw_rbtnfilter within tabpage_1 end type type dw_sale from u_dw_rbtnfilter within tabpage_1 end type type tabpage_1 from userobject within tab_1 dw_salemx dw_salemx dw_sale dw_sale end type type tabpage_2 from userobject within tab_1 end type type dw_buymx from u_dw_rbtnfilter within tabpage_2 end type type dw_buy from u_dw_rbtnfilter within tabpage_2 end type type tabpage_2 from userobject within tab_1 dw_buymx dw_buymx dw_buy dw_buy end type type tabpage_3 from userobject within tab_1 end type type dw_wfjgmx from u_dw_rbtnfilter within tabpage_3 end type type dw_wfjg from u_dw_rbtnfilter within tabpage_3 end type type tabpage_3 from userobject within tab_1 dw_wfjgmx dw_wfjgmx dw_wfjg dw_wfjg end type type tabpage_9 from userobject within tab_1 end type type dw_wfjgmx_cj from u_dw_rbtnfilter within tabpage_9 end type type dw_wfjg_cj from u_dw_rbtnfilter within tabpage_9 end type type tabpage_9 from userobject within tab_1 dw_wfjgmx_cj dw_wfjgmx_cj dw_wfjg_cj dw_wfjg_cj end type type tabpage_4 from userobject within tab_1 end type type dw_cusamtmx from u_dw_rbtnfilter within tabpage_4 end type type dw_cusamt from u_dw_rbtnfilter within tabpage_4 end type type tabpage_4 from userobject within tab_1 dw_cusamtmx dw_cusamtmx dw_cusamt dw_cusamt end type type tabpage_5 from userobject within tab_1 end type type dw_sptamtmx from u_dw_rbtnfilter within tabpage_5 end type type dw_sptamt from u_dw_rbtnfilter within tabpage_5 end type type tabpage_5 from userobject within tab_1 dw_sptamtmx dw_sptamtmx dw_sptamt dw_sptamt end type type tabpage_6 from userobject within tab_1 end type type dw_income_expenses from u_dw_rbtnfilter within tabpage_6 end type type tabpage_6 from userobject within tab_1 dw_income_expenses dw_income_expenses end type type tabpage_7 from userobject within tab_1 end type type dw_rap_money_transfer from u_dw_rbtnfilter within tabpage_7 end type type tabpage_7 from userobject within tab_1 dw_rap_money_transfer dw_rap_money_transfer end type type tabpage_8 from userobject within tab_1 end type type dw_invoicemx from u_dw_rbtnfilter within tabpage_8 end type type dw_invoice from u_dw_rbtnfilter within tabpage_8 end type type tabpage_8 from userobject within tab_1 dw_invoicemx dw_invoicemx dw_invoice dw_invoice end type type tab_1 from tab within w_permit_bill tabpage_1 tabpage_1 tabpage_2 tabpage_2 tabpage_3 tabpage_3 tabpage_9 tabpage_9 tabpage_4 tabpage_4 tabpage_5 tabpage_5 tabpage_6 tabpage_6 tabpage_7 tabpage_7 tabpage_8 tabpage_8 end type type st_1 from statictext within w_permit_bill end type type sle_usual_query1 from u_sleedit within w_permit_bill end type type st_2 from statictext within w_permit_bill end type type ddlb_scid from uo_ddlb_scid within w_permit_bill end type type st_3 from statictext within w_permit_bill end type type ddlb_1 from dropdownlistbox within w_permit_bill end type type cb_permit from commandbutton within w_permit_bill end type type cb_c_permit from commandbutton within w_permit_bill end type type cb_retr from commandbutton within w_permit_bill end type type st_4 from statictext within w_permit_bill end type type sle_usual_query2 from u_sleedit within w_permit_bill end type end forward global type w_permit_bill from w_publ_base integer width = 3611 integer height = 2380 string title = "终审核单据" boolean maxbox = true windowstate windowstate = maximized! event ue_usual_query_retr ( ) event retrieve_pageretr ( ) tab_1 tab_1 st_1 st_1 sle_usual_query1 sle_usual_query1 st_2 st_2 ddlb_scid ddlb_scid st_3 st_3 ddlb_1 ddlb_1 cb_permit cb_permit cb_c_permit cb_c_permit cb_retr cb_retr st_4 st_4 sle_usual_query2 sle_usual_query2 end type global w_permit_bill w_permit_bill type variables long cur_scid long cur_secflag = 0 datawindow dw_sale,dw_salemx datawindow dw_buy,dw_buymx datawindow dw_wfjg,dw_wfjgmx datawindow dw_wfjg_cj,dw_wfjgmx_cj datawindow dw_cusamt,dw_cusamtmx datawindow dw_sptamt,dw_sptamtmx datawindow dw_income_expenses datawindow dw_rap_money_transfer datawindow dw_invoice,dw_invoicemx uo_outware_sale uo_sale uo_inware_buy uo_buy uo_inware_wfjg uo_wfjg uo_cusamt uo_take uo_income_expenses uo_ie uo_rap_money_transfer uo_output uo_invoice uo_ware end variables forward prototypes public function integer wf_refresh_curuc (ref string arg_msg) end prototypes event ue_usual_query_retr();String obj_expr = '' CHOOSE CASE tab_1.SelectedTab CASE 1 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( u_outware_outwarecode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( u_outware_outwarecode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( u_outware_part LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( u_outware_part LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_sale.SetFilter(obj_expr) dw_sale.SetRedraw(FALSE) dw_sale.Filter() IF dw_sale.RowCount() >= 1 THEN dw_sale.SelectRow(0,FALSE) dw_sale.SelectRow(1,TRUE) dw_sale.SetRow(1) dw_sale.TriggerEvent(RowFocusChanged!) END IF dw_sale.SetRedraw(TRUE) CASE 2 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( inwarecode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( inwarecode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( part LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( part LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_buy.SetFilter(obj_expr) dw_buy.SetRedraw(FALSE) dw_buy.Filter() IF dw_buy.RowCount() >= 1 THEN dw_buy.SelectRow(0,FALSE) dw_buy.SelectRow(1,TRUE) dw_buy.SetRow(1) dw_buy.TriggerEvent(RowFocusChanged!) END IF dw_buy.SetRedraw(TRUE) CASE 3 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( inwarecode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( inwarecode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( part LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( part LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_wfjg.SetFilter(obj_expr) dw_wfjg.SetRedraw(FALSE) dw_wfjg.Filter() IF dw_wfjg.RowCount() >= 1 THEN dw_wfjg.SelectRow(0,FALSE) dw_wfjg.SelectRow(1,TRUE) dw_wfjg.SetRow(1) dw_wfjg.TriggerEvent(RowFocusChanged!) END IF dw_wfjg.SetRedraw(TRUE) CASE 4 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( inwarecode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( inwarecode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( part LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( part LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_wfjg_cj.SetFilter(obj_expr) dw_wfjg_cj.SetRedraw(FALSE) dw_wfjg_cj.Filter() IF dw_wfjg_cj.RowCount() >= 1 THEN dw_wfjg_cj.SelectRow(0,FALSE) dw_wfjg_cj.SelectRow(1,TRUE) dw_wfjg_cj.SetRow(1) dw_wfjg_cj.TriggerEvent(RowFocusChanged!) END IF dw_wfjg_cj.SetRedraw(TRUE) CASE 5 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( u_cusamt_cusmoncode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( u_cusamt_cusmoncode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( u_cusamt_relcode LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( u_cusamt_relcode LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_cusamt.SetFilter(obj_expr) dw_cusamt.SetRedraw(FALSE) dw_cusamt.Filter() IF dw_cusamt.RowCount() >= 1 THEN dw_cusamt.SelectRow(0,FALSE) dw_cusamt.SelectRow(1,TRUE) dw_cusamt.SetRow(1) dw_cusamt.TriggerEvent(RowFocusChanged!) END IF dw_cusamt.SetRedraw(TRUE) CASE 6 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( u_cusamt_cusmoncode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( u_cusamt_cusmoncode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( u_cusamt_relcode LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( u_cusamt_relcode LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_sptamt.SetFilter(obj_expr) dw_sptamt.SetRedraw(FALSE) dw_sptamt.Filter() IF dw_sptamt.RowCount() >= 1 THEN dw_sptamt.SelectRow(0,FALSE) dw_sptamt.SelectRow(1,TRUE) dw_sptamt.SetRow(1) dw_sptamt.TriggerEvent(RowFocusChanged!) END IF dw_sptamt.SetRedraw(TRUE) CASE 7 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( u_income_expenses_billcode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( u_income_expenses_billcode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( u_income_expenses_credencecode LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( u_income_expenses_credencecode LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_income_expenses.SetFilter(obj_expr) dw_income_expenses.SetRedraw(FALSE) dw_income_expenses.Filter() IF dw_income_expenses.RowCount() >= 1 THEN dw_income_expenses.SelectRow(0,FALSE) dw_income_expenses.SelectRow(1,TRUE) dw_income_expenses.SetRow(1) dw_income_expenses.TriggerEvent(RowFocusChanged!) END IF dw_income_expenses.SetRedraw(TRUE) CASE 8 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( billcode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( billcode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( relcode LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( relcode LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_rap_money_transfer.SetFilter(obj_expr) dw_rap_money_transfer.SetRedraw(FALSE) dw_rap_money_transfer.Filter() IF dw_rap_money_transfer.RowCount() >= 1 THEN dw_rap_money_transfer.SelectRow(0,FALSE) dw_rap_money_transfer.SelectRow(1,TRUE) dw_rap_money_transfer.SetRow(1) dw_rap_money_transfer.TriggerEvent(RowFocusChanged!) END IF dw_rap_money_transfer.SetRedraw(TRUE) CASE 9 IF Trim(sle_usual_query1.Text) <> '' THEN IF Pos(Trim(sle_usual_query1.Text),'%') = 0 THEN obj_expr = obj_expr+'( invoicecode LIKE "%'+Trim(sle_usual_query1.Text)+'%" )' ELSE obj_expr = obj_expr+'( invoicecode LIKE "'+Trim(sle_usual_query1.Text)+'" )' END IF END IF IF Trim(sle_usual_query2.Text) <> '' THEN IF Pos(Trim(sle_usual_query2.Text),'%') = 0 THEN obj_expr = obj_expr+'( relcode LIKE "%'+Trim(sle_usual_query2.Text)+'%" )' ELSE obj_expr = obj_expr+'( relcode LIKE "'+Trim(sle_usual_query2.Text)+'" )' END IF END IF dw_invoice.SetFilter(obj_expr) dw_invoice.SetRedraw(FALSE) dw_invoice.Filter() IF dw_invoice.RowCount() >= 1 THEN dw_invoice.SelectRow(0,FALSE) dw_invoice.SelectRow(1,TRUE) dw_invoice.SetRow(1) dw_invoice.TriggerEvent(RowFocusChanged!) END IF dw_invoice.SetRedraw(TRUE) END CHOOSE end event event retrieve_pageretr();Long thflag Long flag1,flag2 flag1 = 0 flag2 = 0 CHOOSE CASE tab_1.SelectedTab CASE 1 If (f_power_ind(267)) THEN flag1 = 1 END IF If (f_power_ind(539)) THEN flag2 = 1 END IF IF flag1 = 1 AND flag2 = 1 THEN thflag = -1 ELSEIF flag1 = 1 THEN thflag = 0 ELSEIF flag2 = 1 THEN thflag = 1 ELSE GOTO ext END IF dw_sale.Retrieve(cur_scid,cur_secflag,thflag) case 2 If (f_power_ind(304)) THEN flag1 = 1 END IF If (f_power_ind(542)) THEN flag2 = 1 END IF IF flag1 = 1 AND flag2 = 1 THEN thflag = -1 ELSEIF flag1 = 1 THEN thflag = 0 ELSEIF flag2 = 1 THEN thflag = 1 ELSE GOTO ext END IF dw_buy.Retrieve(cur_scid,cur_secflag,thflag) case 3 If (f_power_ind(355)) THEN flag1 = 1 END IF If (f_power_ind(550)) THEN flag2 = 1 END IF IF flag1 = 1 AND flag2 = 1 THEN thflag = -1 ELSEIF flag1 = 1 THEN thflag = 0 ELSEIF flag2 = 1 THEN thflag = 1 ELSE GOTO ext END IF dw_wfjg.Retrieve(cur_scid,cur_secflag,thflag) case 4 If (f_power_ind(739)) THEN flag1 = 1 END IF If (f_power_ind(744)) THEN flag2 = 1 END IF IF flag1 = 1 AND flag2 = 1 THEN thflag = -1 ELSEIF flag1 = 1 THEN thflag = 0 ELSEIF flag2 = 1 THEN thflag = 1 ELSE GOTO ext END IF dw_wfjg_cj.Retrieve(cur_scid,cur_secflag,thflag) case 5 dw_cusamt.Retrieve(cur_scid,cur_secflag) case 6 dw_sptamt.Retrieve(cur_scid,cur_secflag) case 7 dw_income_expenses.Retrieve(cur_scid,cur_secflag) case 8 dw_rap_money_transfer.Retrieve(cur_secflag) case 9 dw_invoice.Retrieve(cur_scid,cur_secflag) ext: END CHOOSE end event public function integer wf_refresh_curuc (ref string arg_msg);Long pagerert_row Long ll_id Long ll_scid Int secflag String secauditingrep DateTime secauditingdate Long rslt = 1 CHOOSE CASE tab_1.SelectedTab CASE 1 pagerert_row = dw_sale.GetRow() ll_scid = dw_sale.Object.u_outware_scid[pagerert_row] ll_id = dw_sale.Object.u_outware_outwareid[pagerert_row] SELECT u_outware.secflag, u_outware.secauditingrep, u_outware.secauditingdate INTO :secflag, :secauditingrep, :secauditingdate FROM u_outware WHERE u_outware.scid = :ll_scid AND u_outware.outwareid = :ll_id; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询销售单据的信息失败 !' rslt = 0 GOTO ext END IF dw_sale.Object.secflag[pagerert_row] = secflag dw_sale.Object.u_outware_secauditingrep[pagerert_row] = secauditingrep dw_sale.Object.u_outware_secauditingdate[pagerert_row] = secauditingdate CASE 2 pagerert_row = dw_buy.GetRow() ll_scid = dw_buy.Object.u_inware_scid[pagerert_row] ll_id = dw_buy.Object.inwareid[pagerert_row] SELECT u_inware.secflag, u_inware.secauditingrep, u_inware.secauditingdate INTO :secflag, :secauditingrep, :secauditingdate FROM u_inware WHERE u_inware.scid = :ll_scid AND u_inware.inwareid = :ll_id; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询采购单据的信息失败 !' rslt = 0 GOTO ext END IF dw_buy.Object.u_inware_secflag[pagerert_row] = secflag dw_buy.Object.u_inware_secauditingrep[pagerert_row] = secauditingrep dw_buy.Object.u_inware_secauditingdate[pagerert_row] = secauditingdate CASE 3 pagerert_row = dw_wfjg.GetRow() ll_scid = dw_wfjg.Object.ow_wfjg_in_scid[pagerert_row] ll_id = dw_wfjg.Object.inwareid[pagerert_row] SELECT ow_wfjg_in.secflag, ow_wfjg_in.secauditingrep, ow_wfjg_in.secauditingdate INTO :secflag, :secauditingrep, :secauditingdate FROM ow_wfjg_in WHERE ow_wfjg_in.scid = :ll_scid AND ow_wfjg_in.inwareid = :ll_id; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询仓库外协收货/返工单的信息失败 !' rslt = 0 GOTO ext END IF dw_wfjg.Object.secflag[pagerert_row] = secflag dw_wfjg.Object.secauditingrep[pagerert_row] = secauditingrep dw_wfjg.Object.secauditingdate[pagerert_row] = secauditingdate CASE 4 pagerert_row = dw_wfjg_cj.GetRow() ll_scid = dw_wfjg_cj.Object.ow_wfjg_in_scid[pagerert_row] ll_id = dw_wfjg_cj.Object.inwareid[pagerert_row] SELECT ow_wfjg_in.secflag, ow_wfjg_in.secauditingrep, ow_wfjg_in.secauditingdate INTO :secflag, :secauditingrep, :secauditingdate FROM ow_wfjg_in WHERE ow_wfjg_in.scid = :ll_scid AND ow_wfjg_in.inwareid = :ll_id; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询车间外协收货/返工单的信息失败 !' rslt = 0 GOTO ext END IF dw_wfjg_cj.Object.secflag[pagerert_row] = secflag dw_wfjg_cj.Object.secauditingrep[pagerert_row] = secauditingrep dw_wfjg_cj.Object.secauditingdate[pagerert_row] = secauditingdate CASE 5 pagerert_row = dw_cusamt.GetRow() ll_scid = dw_cusamt.Object.u_cusamt_scid[pagerert_row] ll_id = dw_cusamt.Object.u_cusamt_cusmonid[pagerert_row] SELECT u_cusamt.secflag, u_cusamt.secemp, u_cusamt.secdate INTO :secflag, :secauditingrep, :secauditingdate FROM u_cusamt WHERE u_cusamt.scid = :ll_scid AND u_cusamt.cusmonid = :ll_id; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询客户收款单的信息失败 !' rslt = 0 GOTO ext END IF dw_cusamt.Object.secflag[pagerert_row] = secflag dw_cusamt.Object.secemp[pagerert_row] = secauditingrep dw_cusamt.Object.secdate[pagerert_row] = secauditingdate CASE 6 pagerert_row = dw_sptamt.GetRow() ll_scid = dw_sptamt.Object.u_cusamt_scid[pagerert_row] ll_id = dw_sptamt.Object.u_cusamt_cusmonid[pagerert_row] SELECT u_cusamt.secflag, u_cusamt.secemp, u_cusamt.secdate INTO :secflag, :secauditingrep, :secauditingdate FROM u_cusamt WHERE u_cusamt.scid = :ll_scid AND u_cusamt.cusmonid = :ll_id; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询供应商付款单的信息失败 !' rslt = 0 GOTO ext END IF dw_sptamt.Object.secflag[pagerert_row] = secflag dw_sptamt.Object.secemp[pagerert_row] = secauditingrep dw_sptamt.Object.secdate[pagerert_row] = secauditingdate CASE 7 pagerert_row = dw_income_expenses.GetRow() ll_scid = dw_income_expenses.Object.u_income_expenses_scid[pagerert_row] ll_id = dw_income_expenses.Object.u_income_expenses_billid[pagerert_row] SELECT u_income_expenses.secflag, u_income_expenses.secauditemp, u_income_expenses.secauditdate INTO :secflag, :secauditingrep, :secauditingdate FROM u_income_expenses WHERE u_income_expenses.scid = :ll_scid AND u_income_expenses.billid = :ll_id; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询收入支出单的信息失败 !' rslt = 0 GOTO ext END IF dw_income_expenses.Object.secflag[pagerert_row] = secflag dw_income_expenses.Object.secauditemp[pagerert_row] = secauditingrep dw_income_expenses.Object.secauditdate[pagerert_row] = secauditingdate CASE 8 pagerert_row = dw_rap_money_transfer.GetRow() ll_id = dw_rap_money_transfer.Object.billid[pagerert_row] SELECT u_rap_money_transfer.secflag, u_rap_money_transfer.secemp, u_rap_money_transfer.secdate INTO :secflag, :secauditingrep, :secauditingdate FROM u_rap_money_transfer WHERE u_rap_money_transfer.billid = :ll_id; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询收入支出单的信息失败 !' rslt = 0 GOTO ext END IF dw_rap_money_transfer.Object.secflag[pagerert_row] = secflag dw_rap_money_transfer.Object.secemp[pagerert_row] = secauditingrep dw_rap_money_transfer.Object.secdate[pagerert_row] = secauditingdate CASE 9 pagerert_row = dw_invoice.GetRow() ll_id = dw_invoice.Object.invoiceid[pagerert_row] ll_scid = dw_invoice.Object.scid[pagerert_row] SELECT u_invoice.secflag, u_invoice.secemp, u_invoice.secdate INTO :secflag, :secauditingrep, :secauditingdate FROM u_invoice WHERE u_invoice.invoiceid = :ll_id and u_invoice.scid = :ll_scid; IF sqlca.SQLCode <> 0 THEN arg_msg = '查询支票单的信息失败 !' rslt = 0 GOTO ext END IF dw_invoice.Object.secflag[pagerert_row] = secflag dw_invoice.Object.secemp[pagerert_row] = secauditingrep dw_invoice.Object.secdate[pagerert_row] = secauditingdate END CHOOSE ext: RETURN rslt end function on w_permit_bill.create int iCurrent call super::create this.tab_1=create tab_1 this.st_1=create st_1 this.sle_usual_query1=create sle_usual_query1 this.st_2=create st_2 this.ddlb_scid=create ddlb_scid this.st_3=create st_3 this.ddlb_1=create ddlb_1 this.cb_permit=create cb_permit this.cb_c_permit=create cb_c_permit this.cb_retr=create cb_retr this.st_4=create st_4 this.sle_usual_query2=create sle_usual_query2 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.tab_1 this.Control[iCurrent+2]=this.st_1 this.Control[iCurrent+3]=this.sle_usual_query1 this.Control[iCurrent+4]=this.st_2 this.Control[iCurrent+5]=this.ddlb_scid this.Control[iCurrent+6]=this.st_3 this.Control[iCurrent+7]=this.ddlb_1 this.Control[iCurrent+8]=this.cb_permit this.Control[iCurrent+9]=this.cb_c_permit this.Control[iCurrent+10]=this.cb_retr this.Control[iCurrent+11]=this.st_4 this.Control[iCurrent+12]=this.sle_usual_query2 end on on w_permit_bill.destroy call super::destroy destroy(this.tab_1) destroy(this.st_1) destroy(this.sle_usual_query1) destroy(this.st_2) destroy(this.ddlb_scid) destroy(this.st_3) destroy(this.ddlb_1) destroy(this.cb_permit) destroy(this.cb_c_permit) destroy(this.cb_retr) destroy(this.st_4) destroy(this.sle_usual_query2) end on event open;call super::open;dw_sale = tab_1.tabpage_1.dw_sale dw_salemx = tab_1.tabpage_1.dw_salemx dw_buy = tab_1.tabpage_2.dw_buy dw_buymx = tab_1.tabpage_2.dw_buymx dw_wfjg = tab_1.tabpage_3.dw_wfjg dw_wfjgmx = tab_1.tabpage_3.dw_wfjgmx dw_wfjg_cj = tab_1.tabpage_9.dw_wfjg_cj dw_wfjgmx_cj = tab_1.tabpage_9.dw_wfjgmx_cj dw_cusamt = tab_1.tabpage_4.dw_cusamt dw_cusamtmx = tab_1.tabpage_4.dw_cusamtmx dw_sptamt = tab_1.tabpage_5.dw_sptamt dw_sptamtmx= tab_1.tabpage_5.dw_sptamtmx dw_income_expenses= tab_1.tabpage_6.dw_income_expenses dw_rap_money_transfer= tab_1.tabpage_7.dw_rap_money_transfer dw_invoice= tab_1.tabpage_8.dw_invoice dw_invoicemx= tab_1.tabpage_8.dw_invoicemx dw_sale.SetTransObject(sqlca) dw_salemx.SetTransObject(sqlca) dw_buy.SetTransObject(sqlca) dw_buymx.SetTransObject(sqlca) dw_wfjg.SetTransObject(sqlca) dw_wfjgmx.SetTransObject(sqlca) dw_wfjg_cj.SetTransObject(sqlca) dw_wfjgmx_cj.SetTransObject(sqlca) dw_cusamt.SetTransObject(sqlca) dw_cusamtmx.SetTransObject(sqlca) dw_sptamt.SetTransObject(sqlca) dw_sptamtmx.SetTransObject(sqlca) dw_income_expenses.SetTransObject(sqlca) dw_rap_money_transfer.SetTransObject(sqlca) dw_invoice.SetTransObject(sqlca) dw_invoicemx.SetTransObject(sqlca) uo_sale = CREATE uo_outware_sale uo_sale.commit_transaction = sqlca uo_buy = CREATE uo_inware_buy uo_buy.commit_transaction = sqlca uo_wfjg = CREATE uo_inware_wfjg uo_wfjg.commit_transaction = sqlca uo_take = CREATE uo_cusamt uo_ie = CREATE uo_income_expenses uo_ie.commit_transaction = sqlca uo_output = CREATE uo_rap_money_transfer uo_ware = CREATE uo_invoice uo_ware.commit_transaction = sqlca IF Not (f_power_ind(267) OR f_power_ind(539)) THEN tab_1.tabpage_1.Enabled = FALSE END IF IF Not (f_power_ind(304) OR f_power_ind(542)) THEN tab_1.tabpage_2.Enabled = FALSE END IF IF Not (f_power_ind(355) OR f_power_ind(550) ) THEN tab_1.tabpage_3.Enabled = FALSE END IF IF Not (f_power_ind(739) OR f_power_ind(744) ) THEN tab_1.tabpage_9.Enabled = FALSE END IF IF Not (f_power_ind(919) ) THEN tab_1.tabpage_4.Enabled = FALSE END IF IF Not (f_power_ind(920) ) THEN tab_1.tabpage_5.Enabled = FALSE END IF IF Not (f_power_ind(988) ) THEN tab_1.tabpage_6.Enabled = FALSE END IF IF Not (f_power_ind(921) ) THEN tab_1.tabpage_7.Enabled = FALSE END IF IF Not (f_power_ind(523) ) THEN tab_1.tabpage_8.Enabled = FALSE END IF end event event resize;call super::resize;tab_1.Width = THIS.Width - tab_1.X - 40 tab_1.Height = THIS.Height - tab_1.Y - 150 dw_sale.Width = tab_1.Width - 30 dw_salemx.Width = tab_1.Width - 30 dw_salemx.Height = tab_1.Height - dw_sale.Height - 120 dw_buy.Width = tab_1.Width - 30 dw_buymx.Width = tab_1.Width - 30 dw_buymx.Height = tab_1.Height - dw_buy.Height - 120 dw_wfjg.Width = tab_1.Width - 30 dw_wfjgmx.Width = tab_1.Width - 30 dw_wfjgmx.Height = tab_1.Height - dw_wfjg.Height - 120 dw_wfjg_cj.Width = tab_1.Width - 30 dw_wfjgmx_cj.Width = tab_1.Width - 30 dw_wfjgmx_cj.Height = tab_1.Height - dw_wfjg_cj.Height - 120 dw_cusamt.Width = tab_1.Width - 30 dw_cusamtmx.Width = tab_1.Width - 30 dw_cusamtmx.Height = tab_1.Height - dw_cusamt.Height - 120 dw_sptamt.Width = tab_1.Width - 30 dw_sptamtmx.Width = tab_1.Width - 30 dw_sptamtmx.Height = tab_1.Height - dw_sptamt.Height - 120 dw_income_expenses.Width = tab_1.Width - 30 dw_income_expenses.Height = tab_1.Height - 120 dw_rap_money_transfer.Width = tab_1.Width - 30 dw_rap_money_transfer.Height = tab_1.Height - 120 dw_invoice.Width = tab_1.Width - 30 dw_invoicemx.Width = tab_1.Width - 30 dw_invoicemx.Height = tab_1.Height - dw_invoice.Height - 120 end event type cb_func from w_publ_base`cb_func within w_permit_bill boolean visible = false end type type cb_exit from w_publ_base`cb_exit within w_permit_bill boolean visible = false end type type tab_1 from tab within w_permit_bill integer y = 108 integer width = 3584 integer height = 2152 integer taborder = 20 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 tabpage_3 tabpage_3 tabpage_9 tabpage_9 tabpage_4 tabpage_4 tabpage_5 tabpage_5 tabpage_6 tabpage_6 tabpage_7 tabpage_7 tabpage_8 tabpage_8 end type on tab_1.create this.tabpage_1=create tabpage_1 this.tabpage_2=create tabpage_2 this.tabpage_3=create tabpage_3 this.tabpage_9=create tabpage_9 this.tabpage_4=create tabpage_4 this.tabpage_5=create tabpage_5 this.tabpage_6=create tabpage_6 this.tabpage_7=create tabpage_7 this.tabpage_8=create tabpage_8 this.Control[]={this.tabpage_1,& this.tabpage_2,& this.tabpage_3,& this.tabpage_9,& this.tabpage_4,& this.tabpage_5,& this.tabpage_6,& this.tabpage_7,& this.tabpage_8} end on on tab_1.destroy destroy(this.tabpage_1) destroy(this.tabpage_2) destroy(this.tabpage_3) destroy(this.tabpage_9) destroy(this.tabpage_4) destroy(this.tabpage_5) destroy(this.tabpage_6) destroy(this.tabpage_7) destroy(this.tabpage_8) end on event selectionchanged;PARENT.TriggerEvent('retrieve_pageretr') end event type tabpage_1 from userobject within tab_1 event create ( ) event destroy ( ) integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "销售发货单/退货单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_salemx dw_salemx dw_sale dw_sale end type on tabpage_1.create this.dw_salemx=create dw_salemx this.dw_sale=create dw_sale this.Control[]={this.dw_salemx,& this.dw_sale} end on on tabpage_1.destroy destroy(this.dw_salemx) destroy(this.dw_sale) end on type dw_salemx from u_dw_rbtnfilter within tabpage_1 integer y = 1252 integer width = 3543 integer height = 764 integer taborder = 20 string title = "明细内容" string dataobject = "dw_outwaremx_sale_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type type dw_sale from u_dw_rbtnfilter within tabpage_1 integer width = 3543 integer height = 1240 integer taborder = 20 string title = "单据摘要内容" string dataobject = "dw_outware_sale_premit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF Long row,uc_relid,ll_scid row = dw_sale.GetRow() IF row > 0 THEN ll_scid = this.Object.u_outware_scid[row] uc_relid = this.Object.u_outware_outwareid[row] dw_salemx.SetRedraw (FALSE) dw_salemx.Retrieve(ll_scid,uc_relid) dw_salemx.SetRedraw (TRUE) ELSE dw_salemx.Reset() END IF end event type tabpage_2 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "采购收货单/退货单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_buymx dw_buymx dw_buy dw_buy end type on tabpage_2.create this.dw_buymx=create dw_buymx this.dw_buy=create dw_buy this.Control[]={this.dw_buymx,& this.dw_buy} end on on tabpage_2.destroy destroy(this.dw_buymx) destroy(this.dw_buy) end on type dw_buymx from u_dw_rbtnfilter within tabpage_2 integer y = 1252 integer width = 3543 integer height = 764 integer taborder = 30 string title = "明细内容" string dataobject = "dw_inwaremx_buy_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type type dw_buy from u_dw_rbtnfilter within tabpage_2 integer width = 3543 integer height = 1240 integer taborder = 30 string title = "单据摘要内容" string dataobject = "dw_inware_buy_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF Long row,uc_relid,ll_scid row = dw_buy.GetRow() IF row > 0 THEN ll_scid = this.Object.u_inware_scid[row] uc_relid = this.Object.inwareid[row] dw_buymx.SetRedraw (FALSE) dw_buymx.Retrieve(ll_scid,uc_relid) dw_buymx.SetRedraw (TRUE) ELSE dw_buymx.Reset() END IF end event type tabpage_3 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "仓库外协收货单/返工单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_wfjgmx dw_wfjgmx dw_wfjg dw_wfjg end type on tabpage_3.create this.dw_wfjgmx=create dw_wfjgmx this.dw_wfjg=create dw_wfjg this.Control[]={this.dw_wfjgmx,& this.dw_wfjg} end on on tabpage_3.destroy destroy(this.dw_wfjgmx) destroy(this.dw_wfjg) end on type dw_wfjgmx from u_dw_rbtnfilter within tabpage_3 integer y = 1252 integer width = 3543 integer height = 764 integer taborder = 40 string title = "明细内容" string dataobject = "dw_wfjgmx_in_aft_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type type dw_wfjg from u_dw_rbtnfilter within tabpage_3 integer width = 3543 integer height = 1240 string title = "单据摘要内容" string dataobject = "dw_inware_wfjg_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF Long row,uc_relid,ll_scid row = dw_wfjg.GetRow() IF row > 0 THEN ll_scid = this.Object.ow_wfjg_in_scid[row] uc_relid = this.Object.inwareid[row] dw_wfjgmx.SetRedraw (FALSE) dw_wfjgmx.Retrieve(ll_scid,uc_relid) dw_wfjgmx.SetRedraw (TRUE) ELSE dw_wfjgmx.Reset() END IF end event type tabpage_9 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "车间外协收货单/返工单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_wfjgmx_cj dw_wfjgmx_cj dw_wfjg_cj dw_wfjg_cj end type on tabpage_9.create this.dw_wfjgmx_cj=create dw_wfjgmx_cj this.dw_wfjg_cj=create dw_wfjg_cj this.Control[]={this.dw_wfjgmx_cj,& this.dw_wfjg_cj} end on on tabpage_9.destroy destroy(this.dw_wfjgmx_cj) destroy(this.dw_wfjg_cj) end on type dw_wfjgmx_cj from u_dw_rbtnfilter within tabpage_9 integer y = 1252 integer width = 3543 integer height = 764 integer taborder = 30 string title = "明细内容" string dataobject = "dw_wfjgmx_in_aft_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type type dw_wfjg_cj from u_dw_rbtnfilter within tabpage_9 integer width = 3543 integer height = 1240 string title = "单据摘要内容" string dataobject = "dw_inware_wfjg_cj_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF Long row,uc_relid,ll_scid row = dw_wfjg_cj.GetRow() IF row > 0 THEN ll_scid = this.Object.ow_wfjg_in_scid[row] uc_relid = this.Object.inwareid[row] dw_wfjgmx_cj.SetRedraw (FALSE) dw_wfjgmx_cj.Retrieve(ll_scid,uc_relid) dw_wfjgmx_cj.SetRedraw (TRUE) ELSE dw_wfjgmx_cj.Reset() END IF end event type tabpage_4 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "客户收款单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_cusamtmx dw_cusamtmx dw_cusamt dw_cusamt end type on tabpage_4.create this.dw_cusamtmx=create dw_cusamtmx this.dw_cusamt=create dw_cusamt this.Control[]={this.dw_cusamtmx,& this.dw_cusamt} end on on tabpage_4.destroy destroy(this.dw_cusamtmx) destroy(this.dw_cusamt) end on type dw_cusamtmx from u_dw_rbtnfilter within tabpage_4 integer y = 1252 integer width = 3543 integer height = 764 integer taborder = 30 string title = "收款对单明细内容" string dataobject = "dw_cusamt_mx_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type type dw_cusamt from u_dw_rbtnfilter within tabpage_4 integer width = 3543 integer height = 1240 string title = "单据摘要内容" string dataobject = "dw_cusamt_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF Long row,uc_relid row = THIS.GetRow() IF row > 0 THEN uc_relid = THIS.Object.u_cusamt_refrapid[row] dw_cusamtmx.SetRedraw (FALSE) dw_cusamtmx.Retrieve(uc_relid) dw_cusamtmx.SetRedraw (TRUE) ELSE dw_cusamtmx.Reset() END IF end event type tabpage_5 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "供应商付款单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_sptamtmx dw_sptamtmx dw_sptamt dw_sptamt end type on tabpage_5.create this.dw_sptamtmx=create dw_sptamtmx this.dw_sptamt=create dw_sptamt this.Control[]={this.dw_sptamtmx,& this.dw_sptamt} end on on tabpage_5.destroy destroy(this.dw_sptamtmx) destroy(this.dw_sptamt) end on type dw_sptamtmx from u_dw_rbtnfilter within tabpage_5 integer y = 1252 integer width = 3543 integer height = 764 integer taborder = 30 string title = "付款对单明细内容" string dataobject = "dw_sptamt_mx_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type type dw_sptamt from u_dw_rbtnfilter within tabpage_5 integer width = 3543 integer height = 1240 string title = "单据摘要内容" string dataobject = "dw_sptamt_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF Long row,uc_relid row = THIS.GetRow() IF row > 0 THEN uc_relid = THIS.Object.u_cusamt_refrapid[row] dw_sptamtmx.SetRedraw (FALSE) dw_sptamtmx.Retrieve(uc_relid) dw_sptamtmx.SetRedraw (TRUE) ELSE dw_sptamtmx.Reset() END IF end event type tabpage_6 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "收入支出单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_income_expenses dw_income_expenses end type on tabpage_6.create this.dw_income_expenses=create dw_income_expenses this.Control[]={this.dw_income_expenses} end on on tabpage_6.destroy destroy(this.dw_income_expenses) end on type dw_income_expenses from u_dw_rbtnfilter within tabpage_6 integer width = 3543 integer height = 2024 integer taborder = 20 string dataobject = "dw_income_expenses_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF end event type tabpage_7 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "转账单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_rap_money_transfer dw_rap_money_transfer end type on tabpage_7.create this.dw_rap_money_transfer=create dw_rap_money_transfer this.Control[]={this.dw_rap_money_transfer} end on on tabpage_7.destroy destroy(this.dw_rap_money_transfer) end on type dw_rap_money_transfer from u_dw_rbtnfilter within tabpage_7 integer width = 3543 integer height = 2024 string title = "单据摘要内容" string dataobject = "dw_rap_money_transfer_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF end event type tabpage_8 from userobject within tab_1 integer x = 18 integer y = 96 integer width = 3547 integer height = 2040 long backcolor = 134217739 string text = "发票单" long tabtextcolor = 33554432 long tabbackcolor = 134217739 long picturemaskcolor = 536870912 dw_invoicemx dw_invoicemx dw_invoice dw_invoice end type on tabpage_8.create this.dw_invoicemx=create dw_invoicemx this.dw_invoice=create dw_invoice this.Control[]={this.dw_invoicemx,& this.dw_invoice} end on on tabpage_8.destroy destroy(this.dw_invoicemx) destroy(this.dw_invoice) end on type dw_invoicemx from u_dw_rbtnfilter within tabpage_8 integer y = 1252 integer width = 3543 integer height = 764 integer taborder = 30 string title = "明细内容" string dataobject = "dw_invoicemx_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type type dw_invoice from u_dw_rbtnfilter within tabpage_8 integer width = 3543 integer height = 1240 string title = "单据摘要内容" string dataobject = "dw_invoice_permit" boolean hscrollbar = true boolean vscrollbar = true boolean rbutton_filter_use = true boolean rbutton_setposition_use = true boolean titleclick_sort_use = true end type event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN THIS.SelectRow(0,FALSE) THIS.SelectRow(currentrow,TRUE) END IF Long row,uc_relid row = THIS.GetRow() if row>0 then uc_relid=this.object.invoiceid[row] dw_invoicemx.SetRedraw (false) dw_invoicemx.retrieve(cur_scid,uc_relid) dw_invoicemx.SetRedraw (true) else dw_invoicemx.reset() end if end event type st_1 from statictext within w_permit_bill integer x = 27 integer y = 24 integer width = 201 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 = "单号含:" boolean focusrectangle = false end type type sle_usual_query1 from u_sleedit within w_permit_bill integer x = 229 integer y = 4 integer height = 92 integer taborder = 30 boolean bringtotop = true end type event modified;call super::modified;PARENT.TRIGGEREVENT("ue_usual_query_RETR") end event event keyup;call super::keyup;//IF NOT dw_edit_mode THEN // If Key = KeyDownArrow! Then // // dw_pageretr.ScrollNextRow() // End If // If Key = KeyUPArrow! Then // // dw_pageretr.ScrollPriorRow() // End If //END IF end event event inputchanged;call super::inputchanged;PARENT.TRIGGEREVENT("ue_usual_query_RETR") end event type st_2 from statictext within w_permit_bill integer x = 1531 integer y = 24 integer width = 128 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 = "分部" boolean focusrectangle = false end type type ddlb_scid from uo_ddlb_scid within w_permit_bill integer x = 1659 integer y = 8 integer width = 549 integer height = 620 integer taborder = 50 boolean bringtotop = true end type event constructor;call super::constructor;cur_scid=this.uo_scid end event event selectionchanged;call super::selectionchanged;cur_scid=this.uo_scid parent.triggerevent("retrieve_pageretr") end event type st_3 from statictext within w_permit_bill integer x = 2240 integer y = 24 integer width = 128 integer height = 52 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 = "状态" boolean focusrectangle = false end type type ddlb_1 from dropdownlistbox within w_permit_bill integer x = 2377 integer y = 8 integer width = 325 integer height = 452 integer taborder = 60 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 string text = "待终审" string item[] = {"待终审","已终审","[全部]"} borderstyle borderstyle = stylelowered! end type event selectionchanged;IF Index = 1 THEN cur_secflag = 0 ELSEIF Index = 2 THEN cur_secflag = 1 ELSEIF Index = 3 THEN cur_secflag = -1 END IF PARENT.TriggerEvent('retrieve_pageretr') end event type cb_permit from commandbutton within w_permit_bill integer x = 2816 integer y = 8 integer width = 219 integer height = 84 integer taborder = 70 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "审核&F" end type event clicked;Long pagerert_row,ls_id String arg_msg CHOOSE CASE tab_1.SelectedTab CASE 1 pagerert_row = dw_sale.GetRow() if pagerert_row = 0 then return IF dw_sale.Object.flag[pagerert_row] = 1 AND dw_sale.Object.secflag[pagerert_row] = 0 THEN IF uo_sale.getinfo(dw_sale.Object.u_outware_scid[pagerert_row],dw_sale.Object.u_outware_outwareid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_sale.secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','财务审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 2 pagerert_row = dw_buy.GetRow() if pagerert_row = 0 then return IF dw_buy.Object.flag[pagerert_row] = 1 AND dw_buy.Object.u_inware_secflag[pagerert_row] = 0 THEN IF uo_buy.getinfo(dw_buy.Object.u_inware_scid[pagerert_row],dw_buy.Object.inwareid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_buy.secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','财务审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 3 pagerert_row = dw_wfjg.GetRow() if pagerert_row = 0 then return IF dw_wfjg.Object.flag[pagerert_row] = 1 AND dw_wfjg.Object.secflag[pagerert_row] = 0 THEN IF uo_wfjg.getinfo(dw_wfjg.Object.ow_wfjg_in_scid[pagerert_row],dw_wfjg.Object.inwareid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_wfjg.secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','财务审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 4 pagerert_row = dw_wfjg_cj.GetRow() if pagerert_row = 0 then return IF dw_wfjg_cj.Object.flag[pagerert_row] = 1 AND dw_wfjg_cj.Object.secflag[pagerert_row] = 0 THEN IF uo_wfjg.getinfo(dw_wfjg_cj.Object.ow_wfjg_in_scid[pagerert_row],dw_wfjg_cj.Object.inwareid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_wfjg.secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','财务审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 5 pagerert_row = dw_cusamt.GetRow() if pagerert_row = 0 then return IF dw_cusamt.Object.flag[pagerert_row] = 1 AND dw_cusamt.Object.secflag[pagerert_row] = 0 THEN IF uo_take.secauditing(dw_cusamt.Object.u_cusamt_cusmonid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 6 pagerert_row = dw_sptamt.GetRow() if pagerert_row = 0 then return IF dw_sptamt.Object.flag[pagerert_row] = 1 AND dw_sptamt.Object.secflag[pagerert_row] = 0 THEN IF uo_take.secauditing(dw_sptamt.Object.u_cusamt_cusmonid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 7 pagerert_row = dw_income_expenses.GetRow() if pagerert_row = 0 then return IF dw_income_expenses.Object.flag[pagerert_row] = 1 AND dw_income_expenses.Object.secflag[pagerert_row] = 0 THEN IF uo_ie.permit2(dw_income_expenses.Object.u_income_expenses_billid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 8 pagerert_row = dw_rap_money_transfer.GetRow() if pagerert_row = 0 then return IF dw_rap_money_transfer.Object.flag[pagerert_row] = 1 AND dw_rap_money_transfer.Object.secflag[pagerert_row] = 0 THEN IF uo_output.secaudit(dw_rap_money_transfer.Object.billid[pagerert_row],publ_operator,arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 9 pagerert_row = dw_invoice.GetRow() if pagerert_row = 0 then return IF dw_invoice.Object.flag[pagerert_row] = 1 AND dw_invoice.Object.secflag[pagerert_row] = 0 THEN IF uo_ware.getinfo(dw_invoice.Object.scid[pagerert_row],dw_invoice.Object.invoiceid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_ware.secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF END CHOOSE end event type cb_c_permit from commandbutton within w_permit_bill integer x = 3035 integer y = 8 integer width = 219 integer height = 84 integer taborder = 80 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" string text = "撤审&B" end type event clicked;Long pagerert_row,ls_id String arg_msg CHOOSE CASE tab_1.SelectedTab CASE 1 pagerert_row = dw_sale.GetRow() IF dw_sale.Object.flag[pagerert_row] = 1 AND dw_sale.Object.secflag[pagerert_row] = 1 THEN IF uo_sale.getinfo(dw_sale.Object.u_outware_scid[pagerert_row],dw_sale.Object.u_outware_outwareid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_sale.c_secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','财务撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 2 pagerert_row = dw_buy.GetRow() IF dw_buy.Object.flag[pagerert_row] = 1 AND dw_buy.Object.u_inware_secflag[pagerert_row] = 1 THEN IF uo_buy.getinfo(dw_buy.Object.u_inware_scid[pagerert_row],dw_buy.Object.inwareid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_buy.c_secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','财务撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 3 pagerert_row = dw_wfjg.GetRow() IF dw_wfjg.Object.flag[pagerert_row] = 1 AND dw_wfjg.Object.secflag[pagerert_row] = 1 THEN IF uo_wfjg.getinfo(dw_wfjg.Object.ow_wfjg_in_scid[pagerert_row],dw_wfjg.Object.inwareid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_wfjg.c_secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','财务撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 4 pagerert_row = dw_wfjg_cj.GetRow() IF dw_wfjg_cj.Object.flag[pagerert_row] = 1 AND dw_wfjg_cj.Object.secflag[pagerert_row] = 1 THEN IF uo_wfjg.getinfo(dw_wfjg_cj.Object.ow_wfjg_in_scid[pagerert_row],dw_wfjg_cj.Object.inwareid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_wfjg.c_secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','财务撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 5 pagerert_row = dw_cusamt.GetRow() IF dw_cusamt.Object.flag[pagerert_row] = 1 AND dw_cusamt.Object.secflag[pagerert_row] = 1 THEN IF uo_take.c_secauditing(dw_cusamt.Object.u_cusamt_cusmonid[pagerert_row],arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 6 pagerert_row = dw_sptamt.GetRow() IF dw_sptamt.Object.flag[pagerert_row] = 1 AND dw_sptamt.Object.secflag[pagerert_row] = 1 THEN IF uo_take.c_secauditing(dw_sptamt.Object.u_cusamt_cusmonid[pagerert_row],arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 7 pagerert_row = dw_income_expenses.GetRow() IF dw_income_expenses.Object.flag[pagerert_row] = 1 AND dw_income_expenses.Object.secflag[pagerert_row] = 1 THEN IF uo_ie.cancelpermit2(dw_income_expenses.Object.u_income_expenses_billid[pagerert_row],arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 8 pagerert_row = dw_rap_money_transfer.GetRow() IF dw_rap_money_transfer.Object.flag[pagerert_row] = 1 AND dw_rap_money_transfer.Object.secflag[pagerert_row] = 1 THEN IF uo_output.csecaudit(dw_rap_money_transfer.Object.billid[pagerert_row],arg_msg,TRUE) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF CASE 9 pagerert_row = dw_invoice.GetRow() IF dw_invoice.Object.flag[pagerert_row] = 1 AND dw_invoice.Object.secflag[pagerert_row] = 1 THEN IF uo_ware.getinfo(dw_invoice.Object.scid[pagerert_row],dw_invoice.Object.invoiceid[pagerert_row],arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) RETURN END IF IF uo_ware.c_secauditing(TRUE,arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) ELSE MessageBox('提示','撤销审核成功!',information!,ok!) IF wf_refresh_curuc(arg_msg) = 0 THEN MessageBox('错误',arg_msg,stopsign!,ok!) END IF END IF END IF END CHOOSE end event type cb_retr from commandbutton within w_permit_bill integer x = 3255 integer y = 8 integer width = 219 integer height = 84 integer taborder = 90 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('retrieve_pageretr') end event type st_4 from statictext within w_permit_bill integer x = 786 integer y = 24 integer width = 206 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 = "相关号:" boolean focusrectangle = false end type type sle_usual_query2 from u_sleedit within w_permit_bill integer x = 987 integer y = 4 integer height = 92 integer taborder = 40 boolean bringtotop = true end type event modified;call super::modified;PARENT.TRIGGEREVENT("ue_usual_query_RETR") end event event keyup;call super::keyup;//IF NOT dw_edit_mode THEN // If Key = KeyDownArrow! Then // // dw_pageretr.ScrollNextRow() // End If // If Key = KeyUPArrow! Then // // dw_pageretr.ScrollPriorRow() // End If //END IF end event event inputchanged;call super::inputchanged;PARENT.TRIGGEREVENT("ue_usual_query_RETR") end event