Q5/ws_objects/Ew_money.pbl.src/w_permit_bill.srw

$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