Q5/ws_objects/Cw_interface.pbl.src/w_subject_audit.srw

$PBExportHeader$w_subject_audit.srw
forward
global type w_subject_audit from w_publ_easyq
end type
type st_2 from statictext within w_subject_audit
end type
type st_5 from statictext within w_subject_audit
end type
type ddlb_status from dropdownlistbox within w_subject_audit
end type
type tab_1 from tab within w_subject_audit
end type
type tabpage_1 from userobject within tab_1
end type
type dw_outware_sale from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_outware_sale dw_outware_sale
end type
type tabpage_2 from userobject within tab_1
end type
type dw_outware_sale_th from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
dw_outware_sale_th dw_outware_sale_th
end type
type tabpage_3 from userobject within tab_1
end type
type dw_cus_reissue_bj from u_dw_rbtnfilter within tabpage_3
end type
type tabpage_3 from userobject within tab_1
dw_cus_reissue_bj dw_cus_reissue_bj
end type
type tabpage_4 from userobject within tab_1
end type
type dw_cus_reissue from u_dw_rbtnfilter within tabpage_4
end type
type tabpage_4 from userobject within tab_1
dw_cus_reissue dw_cus_reissue
end type
type tabpage_5 from userobject within tab_1
end type
type dw_cus_giveback from u_dw_rbtnfilter within tabpage_5
end type
type tabpage_5 from userobject within tab_1
dw_cus_giveback dw_cus_giveback
end type
type tabpage_6 from userobject within tab_1
end type
type dw_inware_buy from u_dw_rbtnfilter within tabpage_6
end type
type tabpage_6 from userobject within tab_1
dw_inware_buy dw_inware_buy
end type
type tabpage_7 from userobject within tab_1
end type
type dw_inware_buy_th from u_dw_rbtnfilter within tabpage_7
end type
type tabpage_7 from userobject within tab_1
dw_inware_buy_th dw_inware_buy_th
end type
type tabpage_8 from userobject within tab_1
end type
type dw_spt_amerce from u_dw_rbtnfilter within tabpage_8
end type
type tabpage_8 from userobject within tab_1
dw_spt_amerce dw_spt_amerce
end type
type tabpage_9 from userobject within tab_1
end type
type dw_spt_reissue from u_dw_rbtnfilter within tabpage_9
end type
type tabpage_9 from userobject within tab_1
dw_spt_reissue dw_spt_reissue
end type
type tabpage_10 from userobject within tab_1
end type
type dw_outware_wfjg from u_dw_rbtnfilter within tabpage_10
end type
type tabpage_10 from userobject within tab_1
dw_outware_wfjg dw_outware_wfjg
end type
type tabpage_11 from userobject within tab_1
end type
type dw_outware_wfjg_th from u_dw_rbtnfilter within tabpage_11
end type
type tabpage_11 from userobject within tab_1
dw_outware_wfjg_th dw_outware_wfjg_th
end type
type tabpage_12 from userobject within tab_1
end type
type dw_inware_wfjg from u_dw_rbtnfilter within tabpage_12
end type
type tabpage_12 from userobject within tab_1
dw_inware_wfjg dw_inware_wfjg
end type
type tabpage_13 from userobject within tab_1
end type
type dw_inware_wfjg_th from u_dw_rbtnfilter within tabpage_13
end type
type tabpage_13 from userobject within tab_1
dw_inware_wfjg_th dw_inware_wfjg_th
end type
type tabpage_14 from userobject within tab_1
end type
type dw_outware_scll from u_dw_rbtnfilter within tabpage_14
end type
type tabpage_14 from userobject within tab_1
dw_outware_scll dw_outware_scll
end type
type tabpage_15 from userobject within tab_1
end type
type dw_outware_other from u_dw_rbtnfilter within tabpage_15
end type
type tabpage_15 from userobject within tab_1
dw_outware_other dw_outware_other
end type
type tabpage_16 from userobject within tab_1
end type
type dw_outware_pk from u_dw_rbtnfilter within tabpage_16
end type
type tabpage_16 from userobject within tab_1
dw_outware_pk dw_outware_pk
end type
type tabpage_17 from userobject within tab_1
end type
type dw_inware_cp from u_dw_rbtnfilter within tabpage_17
end type
type tabpage_17 from userobject within tab_1
dw_inware_cp dw_inware_cp
end type
type tabpage_18 from userobject within tab_1
end type
type dw_inware_other from u_dw_rbtnfilter within tabpage_18
end type
type tabpage_18 from userobject within tab_1
dw_inware_other dw_inware_other
end type
type tabpage_19 from userobject within tab_1
end type
type dw_inware_py from u_dw_rbtnfilter within tabpage_19
end type
type tabpage_19 from userobject within tab_1
dw_inware_py dw_inware_py
end type
type tabpage_20 from userobject within tab_1
end type
type dw_outware_gj from u_dw_rbtnfilter within tabpage_20
end type
type tabpage_20 from userobject within tab_1
dw_outware_gj dw_outware_gj
end type
type tabpage_21 from userobject within tab_1
end type
type dw_outware_move from u_dw_rbtnfilter within tabpage_21
end type
type tabpage_21 from userobject within tab_1
dw_outware_move dw_outware_move
end type
type tabpage_22 from userobject within tab_1
end type
type dw_update_cost from u_dw_rbtnfilter within tabpage_22
end type
type tabpage_22 from userobject within tab_1
dw_update_cost dw_update_cost
end type
type tabpage_23 from userobject within tab_1
end type
type dw_outware_installout from u_dw_rbtnfilter within tabpage_23
end type
type tabpage_23 from userobject within tab_1
dw_outware_installout dw_outware_installout
end type
type tabpage_24 from userobject within tab_1
end type
type dw_inware_installin from u_dw_rbtnfilter within tabpage_24
end type
type tabpage_24 from userobject within tab_1
dw_inware_installin dw_inware_installin
end type
type tabpage_25 from userobject within tab_1
end type
type dw_cusamt_edit from u_dw_rbtnfilter within tabpage_25
end type
type tabpage_25 from userobject within tab_1
dw_cusamt_edit dw_cusamt_edit
end type
type tabpage_26 from userobject within tab_1
end type
type dw_msttake_other from u_dw_rbtnfilter within tabpage_26
end type
type tabpage_26 from userobject within tab_1
dw_msttake_other dw_msttake_other
end type
type tabpage_27 from userobject within tab_1
end type
type dw_cusamt_other from u_dw_rbtnfilter within tabpage_27
end type
type tabpage_27 from userobject within tab_1
dw_cusamt_other dw_cusamt_other
end type
type tabpage_28 from userobject within tab_1
end type
type dw_sptamt_edit from u_dw_rbtnfilter within tabpage_28
end type
type tabpage_28 from userobject within tab_1
dw_sptamt_edit dw_sptamt_edit
end type
type tabpage_29 from userobject within tab_1
end type
type dw_mstpay_other from u_dw_rbtnfilter within tabpage_29
end type
type tabpage_29 from userobject within tab_1
dw_mstpay_other dw_mstpay_other
end type
type tabpage_30 from userobject within tab_1
end type
type dw_sptamt_other from u_dw_rbtnfilter within tabpage_30
end type
type tabpage_30 from userobject within tab_1
dw_sptamt_other dw_sptamt_other
end type
type tabpage_31 from userobject within tab_1
end type
type dw_income_expenses from u_dw_rbtnfilter within tabpage_31
end type
type tabpage_31 from userobject within tab_1
dw_income_expenses dw_income_expenses
end type
type tabpage_32 from userobject within tab_1
end type
type dw_income_expenses_out from u_dw_rbtnfilter within tabpage_32
end type
type tabpage_32 from userobject within tab_1
dw_income_expenses_out dw_income_expenses_out
end type
type tabpage_33 from userobject within tab_1
end type
type dw_rap_money_transfer from u_dw_rbtnfilter within tabpage_33
end type
type tabpage_33 from userobject within tab_1
dw_rap_money_transfer dw_rap_money_transfer
end type
type tabpage_34 from userobject within tab_1
end type
type dw_bmstamt_edit from u_dw_rbtnfilter within tabpage_34
end type
type tabpage_34 from userobject within tab_1
dw_bmstamt_edit dw_bmstamt_edit
end type
type tabpage_35 from userobject within tab_1
end type
type dw_bmstamt_spt from u_dw_rbtnfilter within tabpage_35
end type
type tabpage_35 from userobject within tab_1
dw_bmstamt_spt dw_bmstamt_spt
end type
type tabpage_36 from userobject within tab_1
end type
type dw_gz_loanwage from u_dw_rbtnfilter within tabpage_36
end type
type tabpage_36 from userobject within tab_1
dw_gz_loanwage dw_gz_loanwage
end type
type tabpage_37 from userobject within tab_1
end type
type dw_gz_award_punish from u_dw_rbtnfilter within tabpage_37
end type
type tabpage_37 from userobject within tab_1
dw_gz_award_punish dw_gz_award_punish
end type
type tabpage_180 from userobject within tab_1
end type
type dw_inware_rec from u_dw_rbtnfilter within tabpage_180
end type
type tabpage_180 from userobject within tab_1
dw_inware_rec dw_inware_rec
end type
type tabpage_340 from userobject within tab_1
end type
type tabpage_340 from userobject within tab_1
end type
type tab_1 from tab within w_subject_audit
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
tabpage_6 tabpage_6
tabpage_7 tabpage_7
tabpage_8 tabpage_8
tabpage_9 tabpage_9
tabpage_10 tabpage_10
tabpage_11 tabpage_11
tabpage_12 tabpage_12
tabpage_13 tabpage_13
tabpage_14 tabpage_14
tabpage_15 tabpage_15
tabpage_16 tabpage_16
tabpage_17 tabpage_17
tabpage_18 tabpage_18
tabpage_19 tabpage_19
tabpage_20 tabpage_20
tabpage_21 tabpage_21
tabpage_22 tabpage_22
tabpage_23 tabpage_23
tabpage_24 tabpage_24
tabpage_25 tabpage_25
tabpage_26 tabpage_26
tabpage_27 tabpage_27
tabpage_28 tabpage_28
tabpage_29 tabpage_29
tabpage_30 tabpage_30
tabpage_31 tabpage_31
tabpage_32 tabpage_32
tabpage_33 tabpage_33
tabpage_34 tabpage_34
tabpage_35 tabpage_35
tabpage_36 tabpage_36
tabpage_37 tabpage_37
tabpage_180 tabpage_180
tabpage_340 tabpage_340
end type
type cb_auditing from uo_imflatbutton within w_subject_audit
end type
type cb_auditing_cancel from uo_imflatbutton within w_subject_audit
end type
type cb_allc from commandbutton within w_subject_audit
end type
type cb_allc_not from commandbutton within w_subject_audit
end type
type cbx_inout from checkbox within w_subject_audit
end type
type dw_mx from u_dw_rbtnfilter within w_subject_audit
end type
type st_1 from statictext within w_subject_audit
end type
type ddlb_cmonth from dropdownlistbox within w_subject_audit
end type
type ddlb_scid from uo_ddlb_scid_notall within w_subject_audit
end type
type st_6 from statictext within w_subject_audit
end type
type dw_index from u_dw_rbtnfilter within w_subject_audit
end type
end forward

global type w_subject_audit from w_publ_easyq
integer x = 9
integer y = 12
integer width = 5728
integer height = 2664
string title = "单据总账审核"
st_2 st_2
st_5 st_5
ddlb_status ddlb_status
tab_1 tab_1
cb_auditing cb_auditing
cb_auditing_cancel cb_auditing_cancel
cb_allc cb_allc
cb_allc_not cb_allc_not
cbx_inout cbx_inout
dw_mx dw_mx
st_1 st_1
ddlb_cmonth ddlb_cmonth
ddlb_scid ddlb_scid
st_6 st_6
dw_index dw_index
end type
global w_subject_audit w_subject_audit

type variables
Int cur_flag = 0
Long cur_scid_arr[],cur_scid
Long cur_cmonth
DateTime first_date,end_date

uo_bill_cwaudit uo_cwaudit


end variables

forward prototypes
public subroutine wf_retr ()
public subroutine wf_retr_mx (long arg_scid, long arg_billid)
public subroutine wf_do (integer arg_type)
end prototypes

public subroutine wf_retr ();Long ll_row,ll_credid

f_rst_cmonth_date(cur_cmonth,first_date,end_date)

ll_row = dw_index.GetRow()
IF ll_row <= 0 THEN
	tab_1.Visible = False
ELSE
	tab_1.Visible = True
	ll_credid = dw_index.Object.credid[ll_row]
END IF
tab_1.SetRedraw(False)

tab_1.tabpage_1.Visible = (ll_credid = 1)
tab_1.tabpage_2.Visible = (ll_credid = 2)
tab_1.tabpage_3.Visible = (ll_credid = 3)
tab_1.tabpage_4.Visible = (ll_credid = 4)
tab_1.tabpage_5.Visible = (ll_credid = 5)
tab_1.tabpage_6.Visible = (ll_credid = 6)
tab_1.tabpage_7.Visible = (ll_credid = 7)
tab_1.tabpage_8.Visible = (ll_credid = 8)
tab_1.tabpage_9.Visible = (ll_credid = 9)
tab_1.tabpage_10.Visible = (ll_credid = 10)
tab_1.tabpage_11.Visible = (ll_credid = 11)
tab_1.tabpage_12.Visible = (ll_credid = 12)
tab_1.tabpage_13.Visible = (ll_credid = 13)
tab_1.tabpage_14.Visible = (ll_credid = 14)
tab_1.tabpage_15.Visible = (ll_credid = 15)
tab_1.tabpage_16.Visible = (ll_credid = 16)
tab_1.tabpage_17.Visible = (ll_credid = 17)
tab_1.tabpage_18.Visible = (ll_credid = 18)
tab_1.tabpage_19.Visible = (ll_credid = 19)
tab_1.tabpage_20.Visible = (ll_credid = 20)
tab_1.tabpage_21.Visible = (ll_credid = 21)
tab_1.tabpage_22.Visible = (ll_credid = 22)
tab_1.tabpage_23.Visible = (ll_credid = 23)
tab_1.tabpage_24.Visible = (ll_credid = 24)
tab_1.tabpage_25.Visible = (ll_credid = 25)
tab_1.tabpage_26.Visible = (ll_credid = 26)
tab_1.tabpage_27.Visible = (ll_credid = 27)
tab_1.tabpage_28.Visible = (ll_credid = 28)
tab_1.tabpage_29.Visible = (ll_credid = 29)
tab_1.tabpage_30.Visible = (ll_credid = 30)
tab_1.tabpage_31.Visible = (ll_credid = 31)
tab_1.tabpage_32.Visible = (ll_credid = 32)
tab_1.tabpage_33.Visible = (ll_credid = 33)
tab_1.tabpage_34.Visible = (ll_credid = 34)
tab_1.tabpage_35.Visible = (ll_credid = 35)

tab_1.selecttab(ll_credid)
//tab_1.SelectedTab = ll_credid

tab_1.SetRedraw(True)


CHOOSE CASE ll_credid
	CASE 1 //销售发货单
		tab_1.tabpage_1.dw_outware_sale.Retrieve(cur_scid_arr,cur_flag,first_date,end_date,0)
	CASE 2 //销售退货单
		tab_1.tabpage_2.dw_outware_sale_th.Retrieve(cur_scid_arr,cur_flag,first_date,end_date,1)
	CASE 3 //客户补件单
		tab_1.tabpage_3.dw_cus_reissue_bj.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 4 //客户费用单
		tab_1.tabpage_4.dw_cus_reissue.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 5 //客户返利单
		tab_1.tabpage_5.dw_cus_giveback.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 6 //采购收货单
		tab_1.tabpage_6.dw_inware_buy.Retrieve(cur_scid_arr,cur_flag,first_date,end_date,0)
	CASE 7 //采购退货单
		tab_1.tabpage_7.dw_inware_buy_th.Retrieve(cur_scid_arr,cur_flag,first_date,end_date,1)
	CASE 8 //供应商罚款单
		tab_1.tabpage_8.dw_spt_amerce.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 9 //供应商费用单
		tab_1.tabpage_9.dw_spt_reissue.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 10 //外协发出单
		//tab_1.tabpage_10.dw_outware_wfjg.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 11 //外协退回单		
		//tab_1.tabpage_11.dw_outware_wfjg.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 12 //外协收货单
		//tab_1.tabpage_12.dw_inware_wfjg.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 13 //外协返工单
		//tab_1.tabpage_13.dw_inware_wfjg_th.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 14 //领料出仓单
		tab_1.tabpage_14.dw_outware_scll.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 15 //其他出仓单
		tab_1.tabpage_15.dw_outware_other.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 16 //盘亏单
		tab_1.tabpage_16.dw_outware_pk.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 17 //生产进仓单
		tab_1.tabpage_17.dw_inware_cp.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 18 //其他进仓单
		tab_1.tabpage_18.dw_inware_other.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 19 //盘盈单
		tab_1.tabpage_19.dw_inware_py.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 20 //扣费品领用单
		tab_1.tabpage_20.dw_outware_gj.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 21 //调拨单
		tab_1.tabpage_21.dw_outware_move.Retrieve(cur_flag,first_date,end_date)
	CASE 22
		//tab_1.tabpage_22.dw_update_cost.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)		
	CASE 23
		//tab_1.tabpage_23.dw_outware_installout.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 24
		//tab_1.tabpage_24.dw_inware_installin.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 25 //客户收款单
		tab_1.tabpage_25.dw_cusamt_edit.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 26 //其它应收单
		tab_1.tabpage_26.dw_msttake_other.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 27 //其它收款单
		tab_1.tabpage_27.dw_cusamt_other.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 28 //供应商付款单
		tab_1.tabpage_28.dw_sptamt_edit.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 29 //其它应付单
		tab_1.tabpage_29.dw_mstpay_other.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
		tab_1.tabpage_29.Text = '' + '(' + String(tab_1.tabpage_29.dw_mstpay_other.Describe("Evaluate('no_flag',0)")) + ')'
	CASE 30 //其它付款单
		tab_1.tabpage_30.dw_sptamt_other.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 31 //其它收入单
		tab_1.tabpage_31.dw_income_expenses.Retrieve(cur_scid_arr,cur_flag,first_date,end_date,1)
	CASE 32 //其它支出单
		tab_1.tabpage_32.dw_income_expenses_out.Retrieve(cur_scid_arr,cur_flag,first_date,end_date,-1)
	CASE 33 //转账单
		tab_1.tabpage_33.dw_rap_money_transfer.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 34 //客户收款结算单
		tab_1.tabpage_34.dw_bmstamt_edit.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
	CASE 35 //供应商付款结算单
		tab_1.tabpage_35.dw_bmstamt_spt.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
		
		//工资
	CASE 38
		//tab_1.tabpage_21.dw_gz_loanwage.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
		//tab_1.tabpage_21.Text = '借支单' + '(' + String(tab_1.tabpage_21.dw_gz_loanwage.Describe("Evaluate('no_flag',0)")) + ')'
	CASE 39
		//tab_1.tabpage_22.dw_gz_award_punish.Retrieve(cur_scid_arr,cur_flag,first_date,end_date)
		//tab_1.tabpage_22.Text = '奖罚单' + '(' + String(tab_1.tabpage_22.dw_gz_award_punish.Describe("Evaluate('no_flag',0)")) + ')'
END CHOOSE





end subroutine

public subroutine wf_retr_mx (long arg_scid, long arg_billid);IF  cbx_inout.Checked = False THEN RETURN


CHOOSE CASE tab_1.SelectedTab
	CASE 1
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 2
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 3
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 4
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 5
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 6
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 7
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 8
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 9
		dw_mx.Retrieve(arg_scid,arg_billid)
		
	CASE 10
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 11
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 12
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 13
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 14
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 15
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 16
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 17
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 18
		dw_mx.Retrieve(arg_scid,arg_billid)
	CASE 19
		dw_mx.DataObject = ''
	CASE 20
		dw_mx.DataObject = ''
	CASE 21
		dw_mx.DataObject = ''
	CASE 22
		dw_mx.DataObject = ''
	CASE 23
		dw_mx.DataObject = ''
	CASE 24
		dw_mx.DataObject = ''
	CASE 25
		dw_mx.Retrieve(arg_billid)
	CASE 26
		dw_mx.DataObject = ''
	CASE 27
		dw_mx.DataObject = ''
	CASE 28
		dw_mx.DataObject = ''
		
END CHOOSE







end subroutine

public subroutine wf_do (integer arg_type);String arg_msg
Long i,ch
Long ll_billid_array[]
String ls_billcode_array[]
String ls_billname

Long ll_row,ll_credid
ll_row = dw_index.GetRow()
IF ll_row <= 0 THEN
	return
ELSE
	ll_credid = dw_index.Object.credid[ll_row]
END IF


CHOOSE CASE ll_credid
	CASE 1 //销售发货单	
		ls_billname = '销售发货单'
		tab_1.tabpage_1.dw_outware_sale.AcceptText()
		FOR i = 1 To tab_1.tabpage_1.dw_outware_sale.RowCount()
			IF tab_1.tabpage_1.dw_outware_sale.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_1.dw_outware_sale.Object.u_outware_outwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_1.dw_outware_sale.Object.u_outware_outwarecode[i]
			END IF
		NEXT
	CASE 2 //销售退货单			
		ls_billname = '销售退货单'
		tab_1.tabpage_2.dw_outware_sale_th.AcceptText()
		FOR i = 1 To tab_1.tabpage_2.dw_outware_sale_th.RowCount()
			IF tab_1.tabpage_2.dw_outware_sale_th.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_2.dw_outware_sale_th.Object.u_outware_outwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_2.dw_outware_sale_th.Object.u_outware_outwarecode[i]
			END IF
		NEXT
	CASE 3 //客户补件单			
		ls_billname = '客户补件单'
		tab_1.tabpage_3.dw_cus_reissue_bj.AcceptText()
		FOR i = 1 To tab_1.tabpage_3.dw_cus_reissue_bj.RowCount()
			IF tab_1.tabpage_3.dw_cus_reissue_bj.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_3.dw_cus_reissue_bj.Object.reissueid[i]
				ls_billcode_array[ch] = tab_1.tabpage_3.dw_cus_reissue_bj.Object.reissuecode[i]
			END IF
		NEXT
	CASE 4 //客户费用单		
		ls_billname = '客户费用单'
		tab_1.tabpage_4.dw_cus_reissue.AcceptText()
		FOR i = 1 To tab_1.tabpage_4.dw_cus_reissue.RowCount()
			IF tab_1.tabpage_4.dw_cus_reissue.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_4.dw_cus_reissue.Object.reissueid[i]
				ls_billcode_array[ch] = tab_1.tabpage_4.dw_cus_reissue.Object.reissuecode[i]
			END IF
		NEXT
	CASE 5 //客户返利单		
		ls_billname = '客户返利单'
		tab_1.tabpage_5.dw_cus_giveback.AcceptText()
		FOR i = 1 To tab_1.tabpage_5.dw_cus_giveback.RowCount()
			IF tab_1.tabpage_5.dw_cus_giveback.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_5.dw_cus_giveback.Object.u_giveback_givebackid[i]
				ls_billcode_array[ch] = tab_1.tabpage_5.dw_cus_giveback.Object.u_giveback_givebackcode[i]
			END IF
		NEXT
	CASE 6 //采购收货单		
		ls_billname = '采购收货单'
		tab_1.tabpage_6.dw_inware_buy.AcceptText()
		FOR i = 1 To tab_1.tabpage_6.dw_inware_buy.RowCount()
			IF tab_1.tabpage_6.dw_inware_buy.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_6.dw_inware_buy.Object.inwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_6.dw_inware_buy.Object.inwarecode[i]
			END IF
		NEXT
	CASE 7 //采购退货单	
		ls_billname = '采购退货单'
		tab_1.tabpage_7.dw_inware_buy_th.AcceptText()
		FOR i = 1 To tab_1.tabpage_7.dw_inware_buy_th.RowCount()
			IF tab_1.tabpage_7.dw_inware_buy_th.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_7.dw_inware_buy_th.Object.inwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_7.dw_inware_buy_th.Object.inwarecode[i]
			END IF
		NEXT
	CASE 8 //供应商罚款单	
		ls_billname = '供应商罚款单'
		tab_1.tabpage_8.dw_spt_amerce.AcceptText()
		FOR i = 1 To tab_1.tabpage_8.dw_spt_amerce.RowCount()
			IF tab_1.tabpage_8.dw_spt_amerce.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_8.dw_spt_amerce.Object.u_spt_amerce_billid[i]
				ls_billcode_array[ch] = tab_1.tabpage_8.dw_spt_amerce.Object.u_spt_amerce_billcode[i]
			END IF
		NEXT
	CASE 9 //供应商费用单		
		ls_billname = '供应商费用单'
		tab_1.tabpage_9.dw_spt_reissue.AcceptText()
		FOR i = 1 To tab_1.tabpage_9.dw_spt_reissue.RowCount()
			IF tab_1.tabpage_9.dw_spt_reissue.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_9.dw_spt_reissue.Object.reissueid[i]
				ls_billcode_array[ch] = tab_1.tabpage_9.dw_spt_reissue.Object.reissuecode[i]
			END IF
		NEXT
	CASE 10 //外协发出单			
		//		ls_billname = '外协发出单'
		//		tab_1.tabpage_4.dw_outware_wfjg.AcceptText()
		//		FOR i = 1 To tab_1.tabpage_4.dw_outware_wfjg.RowCount()
		//			IF tab_1.tabpage_4.dw_outware_wfjg.Object.ch[i] = 1 THEN
		//				ch++
		//				ll_billid_array[ch] = tab_1.tabpage_4.dw_outware_wfjg.Object.u_outware_outwareid[i] //
		//			END IF
		//		NEXT
	CASE 11 //外协退回单		
		//		ls_billname = '外协退回单'
		//		tab_1.tabpage_4.dw_outware_wfjg.AcceptText()
		//		FOR i = 1 To tab_1.tabpage_4.dw_outware_wfjg.RowCount()
		//			IF tab_1.tabpage_4.dw_outware_wfjg.Object.ch[i] = 1 THEN
		//				ch++
		//				ll_billid_array[ch] = tab_1.tabpage_4.dw_outware_wfjg.Object.u_outware_outwareid[i] //
		//			END IF
		//		NEXT
	CASE 12 //外协收货单		
		//		ls_billname = '外协收货单'
		//		tab_1.tabpage_13.dw_inware_wfjg.AcceptText()
		//		FOR i = 1 To tab_1.tabpage_13.dw_inware_wfjg.RowCount()
		//			IF tab_1.tabpage_13.dw_inware_wfjg.Object.ch[i] = 1 THEN
		//				ch++
		//				ll_billid_array[ch] = tab_1.tabpage_13.dw_inware_wfjg.Object.u_outware_outwareid[i] //
		//			END IF
		//		NEXT
	CASE 13 //外协返工单	
		//		ls_billname = '外协收货单'
		//		tab_1.tabpage_13.dw_inware_wfjg.AcceptText()
		//		FOR i = 1 To tab_1.tabpage_13.dw_inware_wfjg.RowCount()
		//			IF tab_1.tabpage_13.dw_inware_wfjg.Object.ch[i] = 1 THEN
		//				ch++
		//				ll_billid_array[ch] = tab_1.tabpage_13.dw_inware_wfjg.Object.u_outware_outwareid[i] //
		//			END IF
		//		NEXT
	CASE 14 //领料出仓单			
		ls_billname = '领料出仓单'
		tab_1.tabpage_14.dw_outware_scll.AcceptText()
		FOR i = 1 To tab_1.tabpage_14.dw_outware_scll.RowCount()
			IF tab_1.tabpage_14.dw_outware_scll.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_14.dw_outware_scll.Object.u_outware_outwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_14.dw_outware_scll.Object.u_outware_outwarecode[i]
			END IF
		NEXT
	CASE 15 //其它出仓单				
		ls_billname = '其它出仓单'
		tab_1.tabpage_15.dw_outware_other.AcceptText()
		FOR i = 1 To tab_1.tabpage_15.dw_outware_other.RowCount()
			IF tab_1.tabpage_15.dw_outware_other.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_15.dw_outware_other.Object.u_outware_outwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_15.dw_outware_other.Object.u_outware_outwarecode[i]
			END IF
		NEXT
	CASE 16 //盘亏单				
		ls_billname = '盘亏单'
		tab_1.tabpage_16.dw_outware_pk.AcceptText()
		FOR i = 1 To tab_1.tabpage_16.dw_outware_pk.RowCount()
			IF tab_1.tabpage_16.dw_outware_pk.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_16.dw_outware_pk.Object.u_outware_outwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_16.dw_outware_pk.Object.u_outware_outwarecode[i]
			END IF
		NEXT
	CASE 17 //生产进仓单		
		ls_billname = '生产进仓单'
		tab_1.tabpage_17.dw_inware_cp.AcceptText()
		FOR i = 1 To tab_1.tabpage_17.dw_inware_cp.RowCount()
			IF tab_1.tabpage_17.dw_inware_cp.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_17.dw_inware_cp.Object.inwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_17.dw_inware_cp.Object.inwarecode[i]
			END IF
		NEXT
	CASE 18 //其它进仓单			
		ls_billname = '其它进仓单'
		tab_1.tabpage_18.dw_inware_other.AcceptText()
		FOR i = 1 To tab_1.tabpage_18.dw_inware_other.RowCount()
			IF tab_1.tabpage_18.dw_inware_other.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_18.dw_inware_other.Object.inwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_18.dw_inware_other.Object.inwarecode[i]
			END IF
		NEXT
	CASE 19 //盘盈单			
		ls_billname = '盘盈单'
		tab_1.tabpage_19.dw_inware_py.AcceptText()
		FOR i = 1 To tab_1.tabpage_19.dw_inware_py.RowCount()
			IF tab_1.tabpage_19.dw_inware_py.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_19.dw_inware_py.Object.inwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_19.dw_inware_py.Object.inwarecode[i]
			END IF
		NEXT
	CASE 20 //扣费品领用单			
		ls_billname = '扣费品领用单'
		tab_1.tabpage_20.dw_outware_gj.AcceptText()
		FOR i = 1 To tab_1.tabpage_20.dw_outware_gj.RowCount()
			IF tab_1.tabpage_20.dw_outware_gj.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_20.dw_outware_gj.Object.u_outware_outwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_20.dw_outware_gj.Object.u_outware_outwarecode[i]
			END IF
		NEXT
	CASE 21 //调拨单			
		ls_billname = '调拨单'
		tab_1.tabpage_21.dw_outware_move.AcceptText()
		FOR i = 1 To tab_1.tabpage_21.dw_outware_move.RowCount()
			IF tab_1.tabpage_21.dw_outware_move.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_21.dw_outware_move.Object.u_outware_move_outwareid[i]
				ls_billcode_array[ch] = tab_1.tabpage_21.dw_outware_move.Object.u_outware_move_outwarecode[i]
			END IF
		NEXT
		
	CASE 22 //拆装单
	CASE 23 //库存成本价调整单
	CASE 24 //库存配置调整单		
	CASE 25 //客户收款单	
		ls_billname = '客户收款单'
		tab_1.tabpage_25.dw_cusamt_edit.AcceptText()
		FOR i = 1 To tab_1.tabpage_25.dw_cusamt_edit.RowCount()
			IF tab_1.tabpage_25.dw_cusamt_edit.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_25.dw_cusamt_edit.Object.u_cusamt_cusmonid[i]
				ls_billcode_array[ch] = tab_1.tabpage_25.dw_cusamt_edit.Object.u_cusamt_cusmoncode[i]
			END IF
		NEXT
	CASE 26 //其它应收单    
		ls_billname = '其它应收单'
		tab_1.tabpage_26.dw_msttake_other.AcceptText()
		FOR i = 1 To tab_1.tabpage_26.dw_msttake_other.RowCount()
			IF tab_1.tabpage_26.dw_msttake_other.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_26.dw_msttake_other.Object.u_income_expenses_billid[i]
				ls_billcode_array[ch] = tab_1.tabpage_26.dw_msttake_other.Object.u_income_expenses_billcode[i]
			END IF
		NEXT
	CASE 27 //其它收款单
		ls_billname = '其它收款单'
		tab_1.tabpage_27.dw_cusamt_other.AcceptText()
		FOR i = 1 To tab_1.tabpage_27.dw_cusamt_other.RowCount()
			IF tab_1.tabpage_27.dw_cusamt_other.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_27.dw_cusamt_other.Object.u_bmstamt_baid[i]
				ls_billcode_array[ch] = tab_1.tabpage_27.dw_cusamt_other.Object.u_bmstamt_bacode[i]
			END IF
		NEXT
	CASE 28 //供应商付款单		
		ls_billname = '供应商付款单'
		tab_1.tabpage_28.dw_sptamt_edit.AcceptText()
		FOR i = 1 To tab_1.tabpage_28.dw_sptamt_edit.RowCount()
			IF tab_1.tabpage_28.dw_sptamt_edit.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_28.dw_sptamt_edit.Object.u_cusamt_cusmonid[i]
				ls_billcode_array[ch] = tab_1.tabpage_28.dw_sptamt_edit.Object.u_cusamt_cusmoncode[i]
			END IF
		NEXT
	CASE 29 //其它应付单      
		ls_billname = '其它应付单'
		tab_1.tabpage_29.dw_mstpay_other.AcceptText()
		FOR i = 1 To tab_1.tabpage_29.dw_mstpay_other.RowCount()
			IF tab_1.tabpage_29.dw_mstpay_other.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_29.dw_mstpay_other.Object.u_income_expenses_billid[i]
				ls_billcode_array[ch] = tab_1.tabpage_29.dw_mstpay_other.Object.u_income_expenses_billcode[i]
			END IF
		NEXT
	CASE 30 //其它付款单	
		ls_billname = '其它付款单'
		tab_1.tabpage_30.dw_sptamt_other.AcceptText()
		FOR i = 1 To tab_1.tabpage_30.dw_sptamt_other.RowCount()
			IF tab_1.tabpage_30.dw_sptamt_other.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_30.dw_sptamt_other.Object.u_bmstamt_baid[i]
				ls_billcode_array[ch] = tab_1.tabpage_30.dw_sptamt_other.Object.u_bmstamt_bacode[i]
			END IF
		NEXT
	CASE 31 //其它收入单		
		ls_billname = '其它收入单'
		tab_1.tabpage_31.dw_income_expenses.AcceptText()
		FOR i = 1 To tab_1.tabpage_31.dw_income_expenses.RowCount()
			IF tab_1.tabpage_31.dw_income_expenses.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_31.dw_income_expenses.Object.u_income_expenses_billid[i]
				ls_billcode_array[ch] = tab_1.tabpage_31.dw_income_expenses.Object.u_income_expenses_billcode[i]
			END IF
		NEXT
	CASE 32 //其它支出单		
		ls_billname = '其它支出单'
		tab_1.tabpage_32.dw_income_expenses_out.AcceptText()
		FOR i = 1 To tab_1.tabpage_32.dw_income_expenses_out.RowCount()
			IF tab_1.tabpage_32.dw_income_expenses_out.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_32.dw_income_expenses_out.Object.u_income_expenses_billid[i]
				ls_billcode_array[ch] = tab_1.tabpage_32.dw_income_expenses_out.Object.u_income_expenses_billcode[i]
			END IF
		NEXT
	CASE 33 //转帐单		
		ls_billname = '转帐单'
		tab_1.tabpage_33.dw_rap_money_transfer.AcceptText()
		FOR i = 1 To tab_1.tabpage_33.dw_rap_money_transfer.RowCount()
			IF tab_1.tabpage_33.dw_rap_money_transfer.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_33.dw_rap_money_transfer.Object.billid[i]
				ls_billcode_array[ch] = tab_1.tabpage_33.dw_rap_money_transfer.Object.billcode[i]
			END IF
		NEXT
	CASE 34 //客户收款结算单    
		ls_billname = '客户收款结算单'
		tab_1.tabpage_34.dw_bmstamt_edit.AcceptText()
		FOR i = 1 To tab_1.tabpage_34.dw_bmstamt_edit.RowCount()
			IF tab_1.tabpage_34.dw_bmstamt_edit.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_34.dw_bmstamt_edit.Object.u_bmstamt_baid[i]
				ls_billcode_array[ch] = tab_1.tabpage_34.dw_bmstamt_edit.Object.u_bmstamt_bacode[i]
			END IF
		NEXT
	CASE 35 //供应商付款结算单   
		ls_billname = '供应商付款结算单'
		tab_1.tabpage_35.dw_bmstamt_spt.AcceptText()
		FOR i = 1 To tab_1.tabpage_35.dw_bmstamt_spt.RowCount()
			IF tab_1.tabpage_35.dw_bmstamt_spt.Object.ch[i] = 1 THEN
				ch++
				ll_billid_array[ch] = tab_1.tabpage_35.dw_bmstamt_spt.Object.u_bmstamt_baid[i]
				ls_billcode_array[ch] = tab_1.tabpage_35.dw_bmstamt_spt.Object.u_bmstamt_bacode[i]
			END IF
		NEXT
	CASE 38 //借支单
	CASE 39 //奖罚单		
END CHOOSE

IF ch = 0 THEN
	MessageBox('提示','请选择 '+ls_billname)
	RETURN
END IF

IF arg_type = 1 THEN
	IF MessageBox ("询问","是否确定要会计审核已选择单据?",question!,yesno! ) = 2 THEN RETURN
	
	IF uo_cwaudit.uof_cwaudit_cred1(ll_credid,cur_scid,ll_billid_array,ls_billcode_array,publ_operator,arg_msg,True) = 0 THEN
		OpenWithParm(w_message_err,arg_msg)
		RETURN
	END IF
ELSE
	IF MessageBox ("询问","是否确定要会计撤审已选择单据?",question!,yesno! ) = 2 THEN RETURN
	
	IF uo_cwaudit.uof_cwaudit_cred0(ll_credid,cur_scid,ll_billid_array,ls_billcode_array,arg_msg,True) = 0 THEN
		OpenWithParm(w_message_err,arg_msg)
		RETURN
	END IF
END IF
MessageBox('提示','操作成功')
wf_retr()


end subroutine

on w_subject_audit.create
int iCurrent
call super::create
this.st_2=create st_2
this.st_5=create st_5
this.ddlb_status=create ddlb_status
this.tab_1=create tab_1
this.cb_auditing=create cb_auditing
this.cb_auditing_cancel=create cb_auditing_cancel
this.cb_allc=create cb_allc
this.cb_allc_not=create cb_allc_not
this.cbx_inout=create cbx_inout
this.dw_mx=create dw_mx
this.st_1=create st_1
this.ddlb_cmonth=create ddlb_cmonth
this.ddlb_scid=create ddlb_scid
this.st_6=create st_6
this.dw_index=create dw_index
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.st_5
this.Control[iCurrent+3]=this.ddlb_status
this.Control[iCurrent+4]=this.tab_1
this.Control[iCurrent+5]=this.cb_auditing
this.Control[iCurrent+6]=this.cb_auditing_cancel
this.Control[iCurrent+7]=this.cb_allc
this.Control[iCurrent+8]=this.cb_allc_not
this.Control[iCurrent+9]=this.cbx_inout
this.Control[iCurrent+10]=this.dw_mx
this.Control[iCurrent+11]=this.st_1
this.Control[iCurrent+12]=this.ddlb_cmonth
this.Control[iCurrent+13]=this.ddlb_scid
this.Control[iCurrent+14]=this.st_6
this.Control[iCurrent+15]=this.dw_index
end on

on w_subject_audit.destroy
call super::destroy
destroy(this.st_2)
destroy(this.st_5)
destroy(this.ddlb_status)
destroy(this.tab_1)
destroy(this.cb_auditing)
destroy(this.cb_auditing_cancel)
destroy(this.cb_allc)
destroy(this.cb_allc_not)
destroy(this.cbx_inout)
destroy(this.dw_mx)
destroy(this.st_1)
destroy(this.ddlb_cmonth)
destroy(this.ddlb_scid)
destroy(this.st_6)
destroy(this.dw_index)
end on

event resize;call super::resize;dw_index.Height = This.Height - dw_index.Y - 160

IF cbx_inout.Checked = False THEN
	dw_mx.Visible = False
	tab_1.Width = This.Width - tab_1.X - 40
	tab_1.Height = This.Height - tab_1.Y - 160
	
ELSE
	dw_mx.Visible = True
	tab_1.Width = This.Width - tab_1.X - 40
	tab_1.Height = (This.Height - tab_1.Y ) / 5 * 3
	
	dw_mx.X = tab_1.X
	dw_mx.Width = tab_1.Width
	dw_mx.Y = tab_1.Y + tab_1.Height + 10
	dw_mx.Height = (This.Height - tab_1.Y ) / 5 * 2  - 160
END IF

Long ll_dft_height = 1948 - 30 - 200
long ll_width1,ll_height1

ll_width1 = tab_1.tabpage_1.width - 50
ll_height1 = tab_1.tabpage_1.Height
//销售
tab_1.tabpage_1.dw_outware_sale.Width = ll_width1
tab_1.tabpage_1.dw_outware_sale.Height = ll_height1

tab_1.tabpage_2.dw_outware_sale_th.Width = ll_width1
tab_1.tabpage_2.dw_outware_sale_th.Height = ll_height1

tab_1.tabpage_3.dw_cus_reissue_bj.Width = ll_width1
tab_1.tabpage_3.dw_cus_reissue_bj.Height = ll_height1

tab_1.tabpage_4.dw_cus_reissue.Width = ll_width1
tab_1.tabpage_4.dw_cus_reissue.Height = ll_height1

tab_1.tabpage_5.dw_cus_giveback.Width = ll_width1
tab_1.tabpage_5.dw_cus_giveback.Height = ll_height1

//采购
tab_1.tabpage_6.dw_inware_buy.Width = ll_width1
tab_1.tabpage_6.dw_inware_buy.Height = ll_height1

tab_1.tabpage_7.dw_inware_buy_th.Width = ll_width1
tab_1.tabpage_7.dw_inware_buy_th.Height = ll_height1

tab_1.tabpage_8.dw_spt_amerce.Width = ll_width1
tab_1.tabpage_8.dw_spt_amerce.Height = ll_height1

tab_1.tabpage_9.dw_spt_reissue.Width = ll_width1
tab_1.tabpage_9.dw_spt_reissue.Height = ll_height1

//外协
//tab_1.tabpage_4.dw_outware_wfjg.Width = ll_width1
//tab_1.tabpage_4.dw_outware_wfjg.Height = ll_height1
//
//tab_1.tabpage_13.dw_inware_wfjg.Width = ll_width1
//tab_1.tabpage_13.dw_inware_wfjg.Height = ll_height1

//仓库
tab_1.tabpage_14.dw_outware_scll.Width = ll_width1
tab_1.tabpage_14.dw_outware_scll.Height = ll_height1

tab_1.tabpage_15.dw_outware_other.Width = ll_width1
tab_1.tabpage_15.dw_outware_other.Height = ll_height1

tab_1.tabpage_16.dw_outware_pk.Width = ll_width1
tab_1.tabpage_16.dw_outware_pk.Height = ll_height1

tab_1.tabpage_17.dw_inware_cp.Width = ll_width1
tab_1.tabpage_17.dw_inware_cp.Height = ll_height1

tab_1.tabpage_18.dw_inware_other.Width = ll_width1
tab_1.tabpage_18.dw_inware_other.Height = ll_height1

tab_1.tabpage_19.dw_inware_py.Width = ll_width1
tab_1.tabpage_19.dw_inware_py.Height = ll_height1

tab_1.tabpage_20.dw_outware_gj.Width = ll_width1
tab_1.tabpage_20.dw_outware_gj.Height = ll_height1

tab_1.tabpage_21.dw_outware_move.Width = ll_width1
tab_1.tabpage_21.dw_outware_move.Height = ll_height1

//tab_1.tabpage_9.dw_outware_installout.Width = ll_width1
//tab_1.tabpage_9.dw_outware_installout.Height = ll_height1

//tab_1.tabpage_16.dw_inware_movein.Width = ll_width1
//tab_1.tabpage_16.dw_inware_movein.Height = ll_height1
//
//tab_1.tabpage_17.dw_inware_installin.Width = ll_width1
//tab_1.tabpage_17.dw_inware_installin.Height = ll_height1
//
//tab_1.tabpage_18.dw_inware_rec.Width = ll_width1
//tab_1.tabpage_18.dw_inware_rec.Height = ll_height1

//财务
tab_1.tabpage_25.dw_cusamt_edit.Width = ll_width1
tab_1.tabpage_25.dw_cusamt_edit.Height = ll_height1

tab_1.tabpage_26.dw_msttake_other.Width = ll_width1
tab_1.tabpage_26.dw_msttake_other.Height = ll_height1

tab_1.tabpage_27.dw_cusamt_other.Width = ll_width1
tab_1.tabpage_27.dw_cusamt_other.Height = ll_height1

tab_1.tabpage_28.dw_sptamt_edit.Width = ll_width1
tab_1.tabpage_28.dw_sptamt_edit.Height = ll_height1

tab_1.tabpage_29.dw_mstpay_other.Width = ll_width1
tab_1.tabpage_29.dw_mstpay_other.Height = ll_height1

tab_1.tabpage_30.dw_sptamt_other.Width = ll_width1
tab_1.tabpage_30.dw_sptamt_other.Height = ll_height1

tab_1.tabpage_31.dw_income_expenses.Width = ll_width1
tab_1.tabpage_31.dw_income_expenses.Height = ll_height1

tab_1.tabpage_32.dw_income_expenses_out.Width = ll_width1
tab_1.tabpage_32.dw_income_expenses_out.Height = ll_height1

tab_1.tabpage_33.dw_rap_money_transfer.Width = ll_width1
tab_1.tabpage_33.dw_rap_money_transfer.Height = ll_height1

tab_1.tabpage_34.dw_bmstamt_edit.Width = ll_width1
tab_1.tabpage_34.dw_bmstamt_edit.Height = ll_height1

tab_1.tabpage_35.dw_bmstamt_spt.Width = ll_width1
tab_1.tabpage_35.dw_bmstamt_spt.Height = ll_height1


//工资
//tab_1.tabpage_21.dw_gz_loanwage.Width = ll_width1
//tab_1.tabpage_21.dw_gz_loanwage.Height = ll_height1
//
//tab_1.tabpage_22.dw_gz_award_punish.Width = ll_width1
//tab_1.tabpage_22.dw_gz_award_punish.Height = ll_height1


















end event

event ue_before_open;call super::ue_before_open;dw_index.SetTransObject(sqlca)

cur_cmonth = sys_curyearmon
if dw_index.retrieve(sys_version_type,cur_cmonth) > 0 then
	dw_index.selectrow(0,false)
	dw_index.setrow(1)
	dw_index.selectrow(1,true)
end if

dw_mx.SetTransObject(sqlca)

//销售
tab_1.tabpage_1.dw_outware_sale.SetTransObject(sqlca)
tab_1.tabpage_2.dw_outware_sale_th.SetTransObject(sqlca)
tab_1.tabpage_3.dw_cus_reissue_bj.SetTransObject(sqlca)
tab_1.tabpage_4.dw_cus_reissue.SetTransObject(sqlca)
tab_1.tabpage_5.dw_cus_giveback.SetTransObject(sqlca)

//采购
tab_1.tabpage_6.dw_inware_buy.SetTransObject(sqlca)
tab_1.tabpage_7.dw_inware_buy_th.SetTransObject(sqlca)
tab_1.tabpage_8.dw_spt_amerce.SetTransObject(sqlca)
tab_1.tabpage_9.dw_spt_reissue.SetTransObject(sqlca)

//外协
//tab_1.tabpage_10.dw_outware_wfjg.SetTransObject(sqlca)
//tab_1.tabpage_11.dw_outware_wfjg_th.SetTransObject(sqlca)
//tab_1.tabpage_12.dw_inware_wfjg.SetTransObject(sqlca)
//tab_1.tabpage_13.dw_inware_wfjg_th.SetTransObject(sqlca)

//仓库
tab_1.tabpage_14.dw_outware_scll.SetTransObject(sqlca)
tab_1.tabpage_15.dw_outware_other.SetTransObject(sqlca)
tab_1.tabpage_16.dw_outware_pk.SetTransObject(sqlca)
tab_1.tabpage_17.dw_inware_cp.SetTransObject(sqlca)
tab_1.tabpage_18.dw_inware_other.SetTransObject(sqlca)
tab_1.tabpage_19.dw_inware_py.SetTransObject(sqlca)
tab_1.tabpage_20.dw_outware_gj.SetTransObject(sqlca)
tab_1.tabpage_21.dw_outware_move.SetTransObject(sqlca)
//tab_1.tabpage_22.dw_update_cost.SetTransObject(sqlca)
//tab_1.tabpage_23.dw_outware_installout.SetTransObject(sqlca)
//tab_1.tabpage_24.dw_inware_installin.SetTransObject(sqlca)

//财务
tab_1.tabpage_25.dw_cusamt_edit.SetTransObject(sqlca)
tab_1.tabpage_26.dw_msttake_other.SetTransObject(sqlca)
tab_1.tabpage_27.dw_cusamt_other.SetTransObject(sqlca)
tab_1.tabpage_34.dw_bmstamt_edit.SetTransObject(sqlca)

tab_1.tabpage_28.dw_sptamt_edit.SetTransObject(sqlca)
tab_1.tabpage_29.dw_mstpay_other.SetTransObject(sqlca)
tab_1.tabpage_30.dw_sptamt_other.SetTransObject(sqlca)
tab_1.tabpage_35.dw_bmstamt_spt.SetTransObject(sqlca)

tab_1.tabpage_31.dw_income_expenses.SetTransObject(sqlca)
tab_1.tabpage_32.dw_income_expenses_out.SetTransObject(sqlca)
tab_1.tabpage_33.dw_rap_money_transfer.SetTransObject(sqlca)

//工资
//tab_1.tabpage_21.dw_gz_loanwage.SetTransObject(sqlca)
//tab_1.tabpage_22.dw_gz_award_punish.SetTransObject(sqlca)



end event

event open;this.triggerevent('ue_before_open')
wf_movetocenter()
uo_cwaudit = create uo_bill_cwaudit 
end event

event close;call super::close;destroy uo_cwaudit
end event

type cb_func from w_publ_easyq`cb_func within w_subject_audit
boolean visible = false
integer x = 4082
integer y = 1012
end type

type cb_exit from w_publ_easyq`cb_exit within w_subject_audit
integer x = 1774
end type

type cb_2 from w_publ_easyq`cb_2 within w_subject_audit
boolean visible = false
integer x = 3648
integer y = 1012
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_subject_audit
boolean visible = false
integer x = 3849
integer y = 1012
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_subject_audit
integer x = 818
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;wf_retr()
//wf_retr_all()

end event

type st_3 from w_publ_easyq`st_3 within w_subject_audit
boolean visible = false
integer x = 645
integer y = 808
end type

type st_4 from w_publ_easyq`st_4 within w_subject_audit
boolean visible = false
integer x = 2062
integer y = 824
end type

type em_1 from w_publ_easyq`em_1 within w_subject_audit
boolean visible = false
integer x = 1536
integer y = 808
end type

type em_2 from w_publ_easyq`em_2 within w_subject_audit
boolean visible = false
integer x = 1344
integer y = 848
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_subject_audit
boolean visible = false
integer x = 3904
integer y = 580
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_subject_audit
boolean visible = false
integer x = 3685
integer y = 584
end type

event cbx_yl::clicked;call super::clicked;IF THIS.Checked THEN
	dw_1.SelectRow(0,FALSE)
END IF

end event

type dw_1 from w_publ_easyq`dw_1 within w_subject_audit
boolean visible = false
integer x = 3973
integer y = 756
integer width = 270
integer height = 200
end type

event dw_1::doubleclicked;call super::doubleclicked;
	IF row > 0 THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.scid[row]
		ls_code = This.Object.reissuecode[row]
		
		f_open_win(ll_scid,ls_code)		
	END IF

    
end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_subject_audit
integer x = 818
integer y = 792
end type

type sle_cust from w_publ_easyq`sle_cust within w_subject_audit
integer x = 3154
integer y = 880
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_subject_audit
integer x = 567
integer y = 552
end type

type st_cust from w_publ_easyq`st_cust within w_subject_audit
integer x = 3255
integer y = 980
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_subject_audit
integer x = 3685
integer y = 668
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_subject_audit
boolean visible = false
integer x = 1943
integer y = 808
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_subject_audit
boolean visible = false
integer x = 2583
integer y = 808
end type

type pb_2 from w_publ_easyq`pb_2 within w_subject_audit
boolean visible = false
integer x = 2693
integer y = 808
end type

type cb_help from w_publ_easyq`cb_help within w_subject_audit
boolean visible = false
integer x = 3799
integer y = 1012
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_subject_audit
integer x = 1518
end type

type gb_1 from w_publ_easyq`gb_1 within w_subject_audit
integer x = 2418
integer y = 560
integer width = 87
integer height = 172
end type

type ln_bar from w_publ_easyq`ln_bar within w_subject_audit
integer beginy = 168
integer endy = 168
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_subject_audit
integer beginy = 172
integer endy = 172
end type

type r_bar from w_publ_easyq`r_bar within w_subject_audit
integer x = 3648
end type

type ln_1 from w_publ_easyq`ln_1 within w_subject_audit
end type

type ln_2 from w_publ_easyq`ln_2 within w_subject_audit
end type

type ln_3 from w_publ_easyq`ln_3 within w_subject_audit
boolean visible = false
end type

type ln_4 from w_publ_easyq`ln_4 within w_subject_audit
boolean visible = false
end type

type st_2 from statictext within w_subject_audit
integer x = 137
integer y = 64
integer width = 137
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "分部"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type st_5 from statictext within w_subject_audit
integer x = 805
integer y = 208
integer width = 146
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 = "状态"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_status from dropdownlistbox within w_subject_audit
integer x = 965
integer y = 192
integer width = 480
integer height = 692
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "会计未审核"
boolean sorted = false
string item[] = {"[全部]","会计未审核","会计已审核"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;IF Index = 1 THEN
	cur_flag = -1
ELSEIF Index = 2 THEN
	cur_flag = 0
ELSEIF Index = 3 THEN
	cur_flag = 1
END IF

cb_1.TriggerEvent(Clicked!)





end event

type tab_1 from tab within w_subject_audit
integer x = 2158
integer y = 296
integer width = 3049
integer height = 1440
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean multiline = true
boolean raggedright = true
boolean focusonbuttondown = true
boolean showpicture = false
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
tabpage_6 tabpage_6
tabpage_7 tabpage_7
tabpage_8 tabpage_8
tabpage_9 tabpage_9
tabpage_10 tabpage_10
tabpage_11 tabpage_11
tabpage_12 tabpage_12
tabpage_13 tabpage_13
tabpage_14 tabpage_14
tabpage_15 tabpage_15
tabpage_16 tabpage_16
tabpage_17 tabpage_17
tabpage_18 tabpage_18
tabpage_19 tabpage_19
tabpage_20 tabpage_20
tabpage_21 tabpage_21
tabpage_22 tabpage_22
tabpage_23 tabpage_23
tabpage_24 tabpage_24
tabpage_25 tabpage_25
tabpage_26 tabpage_26
tabpage_27 tabpage_27
tabpage_28 tabpage_28
tabpage_29 tabpage_29
tabpage_30 tabpage_30
tabpage_31 tabpage_31
tabpage_32 tabpage_32
tabpage_33 tabpage_33
tabpage_34 tabpage_34
tabpage_35 tabpage_35
tabpage_36 tabpage_36
tabpage_37 tabpage_37
tabpage_180 tabpage_180
tabpage_340 tabpage_340
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_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.tabpage_9=create tabpage_9
this.tabpage_10=create tabpage_10
this.tabpage_11=create tabpage_11
this.tabpage_12=create tabpage_12
this.tabpage_13=create tabpage_13
this.tabpage_14=create tabpage_14
this.tabpage_15=create tabpage_15
this.tabpage_16=create tabpage_16
this.tabpage_17=create tabpage_17
this.tabpage_18=create tabpage_18
this.tabpage_19=create tabpage_19
this.tabpage_20=create tabpage_20
this.tabpage_21=create tabpage_21
this.tabpage_22=create tabpage_22
this.tabpage_23=create tabpage_23
this.tabpage_24=create tabpage_24
this.tabpage_25=create tabpage_25
this.tabpage_26=create tabpage_26
this.tabpage_27=create tabpage_27
this.tabpage_28=create tabpage_28
this.tabpage_29=create tabpage_29
this.tabpage_30=create tabpage_30
this.tabpage_31=create tabpage_31
this.tabpage_32=create tabpage_32
this.tabpage_33=create tabpage_33
this.tabpage_34=create tabpage_34
this.tabpage_35=create tabpage_35
this.tabpage_36=create tabpage_36
this.tabpage_37=create tabpage_37
this.tabpage_180=create tabpage_180
this.tabpage_340=create tabpage_340
this.Control[]={this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3,&
this.tabpage_4,&
this.tabpage_5,&
this.tabpage_6,&
this.tabpage_7,&
this.tabpage_8,&
this.tabpage_9,&
this.tabpage_10,&
this.tabpage_11,&
this.tabpage_12,&
this.tabpage_13,&
this.tabpage_14,&
this.tabpage_15,&
this.tabpage_16,&
this.tabpage_17,&
this.tabpage_18,&
this.tabpage_19,&
this.tabpage_20,&
this.tabpage_21,&
this.tabpage_22,&
this.tabpage_23,&
this.tabpage_24,&
this.tabpage_25,&
this.tabpage_26,&
this.tabpage_27,&
this.tabpage_28,&
this.tabpage_29,&
this.tabpage_30,&
this.tabpage_31,&
this.tabpage_32,&
this.tabpage_33,&
this.tabpage_34,&
this.tabpage_35,&
this.tabpage_36,&
this.tabpage_37,&
this.tabpage_180,&
this.tabpage_340}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
destroy(this.tabpage_4)
destroy(this.tabpage_5)
destroy(this.tabpage_6)
destroy(this.tabpage_7)
destroy(this.tabpage_8)
destroy(this.tabpage_9)
destroy(this.tabpage_10)
destroy(this.tabpage_11)
destroy(this.tabpage_12)
destroy(this.tabpage_13)
destroy(this.tabpage_14)
destroy(this.tabpage_15)
destroy(this.tabpage_16)
destroy(this.tabpage_17)
destroy(this.tabpage_18)
destroy(this.tabpage_19)
destroy(this.tabpage_20)
destroy(this.tabpage_21)
destroy(this.tabpage_22)
destroy(this.tabpage_23)
destroy(this.tabpage_24)
destroy(this.tabpage_25)
destroy(this.tabpage_26)
destroy(this.tabpage_27)
destroy(this.tabpage_28)
destroy(this.tabpage_29)
destroy(this.tabpage_30)
destroy(this.tabpage_31)
destroy(this.tabpage_32)
destroy(this.tabpage_33)
destroy(this.tabpage_34)
destroy(this.tabpage_35)
destroy(this.tabpage_36)
destroy(this.tabpage_37)
destroy(this.tabpage_180)
destroy(this.tabpage_340)
end on

event selectionchanged;//wf_retr()
end event

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "销售发货单"
long tabtextcolor = 134217856
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_sale dw_outware_sale
end type

on tabpage_1.create
this.dw_outware_sale=create dw_outware_sale
this.Control[]={this.dw_outware_sale}
end on

on tabpage_1.destroy
destroy(this.dw_outware_sale)
end on

type dw_outware_sale from u_dw_rbtnfilter within tabpage_1
integer width = 3506
integer height = 1000
integer taborder = 30
string dataobject = "dw_subject_outware_sale_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_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

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_outware_outwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_outware_scid[row]
		ls_code = This.Object.u_outware_outwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF



end event

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "销售退货单"
long tabtextcolor = 134217856
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_sale_th dw_outware_sale_th
end type

on tabpage_2.create
this.dw_outware_sale_th=create dw_outware_sale_th
this.Control[]={this.dw_outware_sale_th}
end on

on tabpage_2.destroy
destroy(this.dw_outware_sale_th)
end on

type dw_outware_sale_th from u_dw_rbtnfilter within tabpage_2
integer width = 3506
integer height = 1000
integer taborder = 110
string dataobject = "dw_subject_outware_sale_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_outware_outwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_outware_scid[row]
		ls_code = This.Object.u_outware_outwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF

end event

type tabpage_3 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "客户补件单"
long tabtextcolor = 134217856
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_cus_reissue_bj dw_cus_reissue_bj
end type

on tabpage_3.create
this.dw_cus_reissue_bj=create dw_cus_reissue_bj
this.Control[]={this.dw_cus_reissue_bj}
end on

on tabpage_3.destroy
destroy(this.dw_cus_reissue_bj)
end on

type dw_cus_reissue_bj from u_dw_rbtnfilter within tabpage_3
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_cus_reissue_index_bj"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.scid[row]
	ls_code = THIS.Object.reissuecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_4 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "客户费用单"
long tabtextcolor = 134217856
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_cus_reissue dw_cus_reissue
end type

on tabpage_4.create
this.dw_cus_reissue=create dw_cus_reissue
this.Control[]={this.dw_cus_reissue}
end on

on tabpage_4.destroy
destroy(this.dw_cus_reissue)
end on

type dw_cus_reissue from u_dw_rbtnfilter within tabpage_4
integer width = 3506
integer height = 1000
integer taborder = 140
string dataobject = "dw_subject_cus_reissue_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.scid[row]
	ls_code = THIS.Object.reissuecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_5 from userobject within tab_1
event create ( )
event destroy ( )
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "客户返利单"
long tabtextcolor = 134217856
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_cus_giveback dw_cus_giveback
end type

on tabpage_5.create
this.dw_cus_giveback=create dw_cus_giveback
this.Control[]={this.dw_cus_giveback}
end on

on tabpage_5.destroy
destroy(this.dw_cus_giveback)
end on

type dw_cus_giveback from u_dw_rbtnfilter within tabpage_5
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_cus_giveback_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.scid[row]
	ls_code = THIS.Object.reissuecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_6 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "采购收货单"
long tabtextcolor = 32896
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_buy dw_inware_buy
end type

on tabpage_6.create
this.dw_inware_buy=create dw_inware_buy
this.Control[]={this.dw_inware_buy}
end on

on tabpage_6.destroy
destroy(this.dw_inware_buy)
end on

type dw_inware_buy from u_dw_rbtnfilter within tabpage_6
integer width = 3506
integer height = 1000
integer taborder = 130
string dataobject = "dw_subject_inware_buy_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'inwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_inware_scid[row]
		ls_code = This.Object.inwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF

end event

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 = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "采购退货单"
long tabtextcolor = 32896
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_buy_th dw_inware_buy_th
end type

on tabpage_7.create
this.dw_inware_buy_th=create dw_inware_buy_th
this.Control[]={this.dw_inware_buy_th}
end on

on tabpage_7.destroy
destroy(this.dw_inware_buy_th)
end on

type dw_inware_buy_th from u_dw_rbtnfilter within tabpage_7
integer width = 3506
integer height = 1000
integer taborder = 130
boolean bringtotop = true
string dataobject = "dw_subject_inware_buy_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'inwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_inware_scid[row]
		ls_code = This.Object.inwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF

end event

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
event create ( )
event destroy ( )
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "供应商罚款单"
long tabtextcolor = 32896
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_spt_amerce dw_spt_amerce
end type

on tabpage_8.create
this.dw_spt_amerce=create dw_spt_amerce
this.Control[]={this.dw_spt_amerce}
end on

on tabpage_8.destroy
destroy(this.dw_spt_amerce)
end on

type dw_spt_amerce from u_dw_rbtnfilter within tabpage_8
integer width = 3506
integer height = 1000
string dataobject = "dw_subject_spt_amerce_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_spt_amerce_billcode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_spt_amerce_scid[row]
		ls_code = This.Object.u_spt_amerce_billcode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'u_spt_amerce_credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.u_spt_amerce_cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.u_spt_amerce_credid[row])
	END IF	
END IF

   
end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_9 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "供应商费用单"
long tabtextcolor = 32896
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_spt_reissue dw_spt_reissue
end type

on tabpage_9.create
this.dw_spt_reissue=create dw_spt_reissue
this.Control[]={this.dw_spt_reissue}
end on

on tabpage_9.destroy
destroy(this.dw_spt_reissue)
end on

type dw_spt_reissue from u_dw_rbtnfilter within tabpage_9
integer width = 3506
integer height = 1000
integer taborder = 140
string dataobject = "dw_subject_spt_reissue_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'reissuecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.scid[row]
		ls_code = This.Object.reissuecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'u_reissue_credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.u_reissue_credid[row])
	END IF	
END IF
        
end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_10 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "外协发出单"
long tabtextcolor = 134217858
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_wfjg dw_outware_wfjg
end type

on tabpage_10.create
this.dw_outware_wfjg=create dw_outware_wfjg
this.Control[]={this.dw_outware_wfjg}
end on

on tabpage_10.destroy
destroy(this.dw_outware_wfjg)
end on

type dw_outware_wfjg from u_dw_rbtnfilter within tabpage_10
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_outware_wfjg_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_outware_scid[row]
	ls_code = THIS.Object.u_outware_outwarecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

type tabpage_11 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "外协退回单"
long tabtextcolor = 134217858
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_wfjg_th dw_outware_wfjg_th
end type

on tabpage_11.create
this.dw_outware_wfjg_th=create dw_outware_wfjg_th
this.Control[]={this.dw_outware_wfjg_th}
end on

on tabpage_11.destroy
destroy(this.dw_outware_wfjg_th)
end on

type dw_outware_wfjg_th from u_dw_rbtnfilter within tabpage_11
integer width = 3506
integer height = 1000
string dataobject = "dw_subject_outware_wfjg_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_outware_scid[row]
	ls_code = THIS.Object.u_outware_outwarecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_12 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "外协收货单"
long tabtextcolor = 134217858
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_wfjg dw_inware_wfjg
end type

on tabpage_12.create
this.dw_inware_wfjg=create dw_inware_wfjg
this.Control[]={this.dw_inware_wfjg}
end on

on tabpage_12.destroy
destroy(this.dw_inware_wfjg)
end on

type dw_inware_wfjg from u_dw_rbtnfilter within tabpage_12
integer width = 3506
integer height = 1000
integer taborder = 130
string dataobject = "dw_subject_inware_wfjg_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_inware_scid[row]
	ls_code = THIS.Object.inwarecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;//Long ll_scid,ll_billid
//
//IF row > 0 THEN
//	This.SelectRow(0,False)
//	This.SelectRow(row,True)
//	This.SetRow(row)
//	
//	ll_scid = This.Object.u_inware_scid[row]
//	ll_billid = This.Object.inwareid[row]
//	
//	
//	wf_retr_mx(ll_scid,ll_billid)
//END IF
//
//
end event

type tabpage_13 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "外协返工单"
long tabtextcolor = 134217858
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_wfjg_th dw_inware_wfjg_th
end type

on tabpage_13.create
this.dw_inware_wfjg_th=create dw_inware_wfjg_th
this.Control[]={this.dw_inware_wfjg_th}
end on

on tabpage_13.destroy
destroy(this.dw_inware_wfjg_th)
end on

type dw_inware_wfjg_th from u_dw_rbtnfilter within tabpage_13
integer width = 3506
integer height = 1000
string dataobject = "dw_subject_inware_wfjg_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_inware_scid[row]
	ls_code = THIS.Object.inwarecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;//Long ll_scid,ll_billid
//
//IF row > 0 THEN
//	This.SelectRow(0,False)
//	This.SelectRow(row,True)
//	This.SetRow(row)
//	
//	ll_scid = This.Object.u_inware_scid[row]
//	ll_billid = This.Object.inwareid[row]
//	
//	
//	wf_retr_mx(ll_scid,ll_billid)
//END IF
//
//
end event

type tabpage_14 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "领料出仓单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_scll dw_outware_scll
end type

on tabpage_14.create
this.dw_outware_scll=create dw_outware_scll
this.Control[]={this.dw_outware_scll}
end on

on tabpage_14.destroy
destroy(this.dw_outware_scll)
end on

type dw_outware_scll from u_dw_rbtnfilter within tabpage_14
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_outware_scll_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_outware_outwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_outware_scid[row]
		ls_code = This.Object.u_outware_outwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF
end event

type tabpage_15 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "其他出仓单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_other dw_outware_other
end type

on tabpage_15.create
this.dw_outware_other=create dw_outware_other
this.Control[]={this.dw_outware_other}
end on

on tabpage_15.destroy
destroy(this.dw_outware_other)
end on

type dw_outware_other from u_dw_rbtnfilter within tabpage_15
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_outware_other_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_outware_outwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_outware_scid[row]
		ls_code = This.Object.u_outware_outwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF




end event

type tabpage_16 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "盘亏单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_pk dw_outware_pk
end type

on tabpage_16.create
this.dw_outware_pk=create dw_outware_pk
this.Control[]={this.dw_outware_pk}
end on

on tabpage_16.destroy
destroy(this.dw_outware_pk)
end on

type dw_outware_pk from u_dw_rbtnfilter within tabpage_16
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_outware_pk_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_outware_outwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_outware_scid[row]
		ls_code = This.Object.u_outware_outwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF
end event

type tabpage_17 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "生产进仓单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_cp dw_inware_cp
end type

on tabpage_17.create
this.dw_inware_cp=create dw_inware_cp
this.Control[]={this.dw_inware_cp}
end on

on tabpage_17.destroy
destroy(this.dw_inware_cp)
end on

type dw_inware_cp from u_dw_rbtnfilter within tabpage_17
integer width = 3506
integer height = 1000
integer taborder = 130
string dataobject = "dw_subject_inware_cp_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'inwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_inware_scid[row]
		ls_code = This.Object.inwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF




end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_18 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "其他进仓单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_other dw_inware_other
end type

on tabpage_18.create
this.dw_inware_other=create dw_inware_other
this.Control[]={this.dw_inware_other}
end on

on tabpage_18.destroy
destroy(this.dw_inware_other)
end on

type dw_inware_other from u_dw_rbtnfilter within tabpage_18
integer width = 3506
integer height = 1000
integer taborder = 130
string dataobject = "dw_subject_inware_other_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'inwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_inware_scid[row]
		ls_code = This.Object.inwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF



end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_19 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "盘盈单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_py dw_inware_py
end type

on tabpage_19.create
this.dw_inware_py=create dw_inware_py
this.Control[]={this.dw_inware_py}
end on

on tabpage_19.destroy
destroy(this.dw_inware_py)
end on

type dw_inware_py from u_dw_rbtnfilter within tabpage_19
integer width = 3506
integer height = 1000
integer taborder = 130
string dataobject = "dw_subject_inware_py_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'inwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_inware_scid[row]
		ls_code = This.Object.inwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF


end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_20 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "扣费品领用单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_gj dw_outware_gj
end type

on tabpage_20.create
this.dw_outware_gj=create dw_outware_gj
this.Control[]={this.dw_outware_gj}
end on

on tabpage_20.destroy
destroy(this.dw_outware_gj)
end on

type dw_outware_gj from u_dw_rbtnfilter within tabpage_20
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_outware_gj_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_outware_outwarecode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_outware_scid[row]
		ls_code = This.Object.u_outware_outwarecode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF

end event

type tabpage_21 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "调拨单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_move dw_outware_move
end type

on tabpage_21.create
this.dw_outware_move=create dw_outware_move
this.Control[]={this.dw_outware_move}
end on

on tabpage_21.destroy
destroy(this.dw_outware_move)
end on

type dw_outware_move from u_dw_rbtnfilter within tabpage_21
integer width = 3506
integer height = 1000
integer taborder = 20
string dataobject = "dw_subject_outware_move_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_outware_scid[row]
	ls_code = THIS.Object.u_outware_part[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

type tabpage_22 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "库存成本价调整单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_update_cost dw_update_cost
end type

on tabpage_22.create
this.dw_update_cost=create dw_update_cost
this.Control[]={this.dw_update_cost}
end on

on tabpage_22.destroy
destroy(this.dw_update_cost)
end on

type dw_update_cost from u_dw_rbtnfilter within tabpage_22
integer width = 3506
integer height = 1000
integer taborder = 130
string dataobject = "dw_subject_inware_movein_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_inware_scid[row]
	ls_code = THIS.Object.part[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_23 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "拆装单-拆"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_installout dw_outware_installout
end type

on tabpage_23.create
this.dw_outware_installout=create dw_outware_installout
this.Control[]={this.dw_outware_installout}
end on

on tabpage_23.destroy
destroy(this.dw_outware_installout)
end on

type dw_outware_installout from u_dw_rbtnfilter within tabpage_23
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_outware_installout_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_outware_scid[row]
	ll_billid = This.Object.u_outware_outwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_outware_scid[row]
	ls_code = THIS.Object.u_outware_part[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

type tabpage_24 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "拆装单-装"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_installin dw_inware_installin
end type

on tabpage_24.create
this.dw_inware_installin=create dw_inware_installin
this.Control[]={this.dw_inware_installin}
end on

on tabpage_24.destroy
destroy(this.dw_inware_installin)
end on

type dw_inware_installin from u_dw_rbtnfilter within tabpage_24
integer width = 3506
integer height = 1000
integer taborder = 130
string dataobject = "dw_subject_inware_installin_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_inware_scid[row]
	ls_code = THIS.Object.part[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_25 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "客户收款单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_cusamt_edit dw_cusamt_edit
end type

on tabpage_25.create
this.dw_cusamt_edit=create dw_cusamt_edit
this.Control[]={this.dw_cusamt_edit}
end on

on tabpage_25.destroy
destroy(this.dw_cusamt_edit)
end on

type dw_cusamt_edit from u_dw_rbtnfilter within tabpage_25
integer width = 3506
integer height = 1000
integer taborder = 150
string dataobject = "dw_subject_cusamt_edit_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
//	wf_retr_mx
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_cusamt_cusmoncode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_cusamt_scid[row]
		ls_code = This.Object.u_cusamt_cusmoncode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'u_cusamt_credtype' Or dwo.Name = 'u_cusamt_credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.u_cusamt_credid[row])
	END IF	
END IF


end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_26 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "其它应收单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_msttake_other dw_msttake_other
end type

on tabpage_26.create
this.dw_msttake_other=create dw_msttake_other
this.Control[]={this.dw_msttake_other}
end on

on tabpage_26.destroy
destroy(this.dw_msttake_other)
end on

type dw_msttake_other from u_dw_rbtnfilter within tabpage_26
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_msttake_other_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_bmstamt_scid[row]
	ls_code = THIS.Object.u_bmstamt_bacode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_27 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "其它收款单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_cusamt_other dw_cusamt_other
end type

on tabpage_27.create
this.dw_cusamt_other=create dw_cusamt_other
this.Control[]={this.dw_cusamt_other}
end on

on tabpage_27.destroy
destroy(this.dw_cusamt_other)
end on

type dw_cusamt_other from u_dw_rbtnfilter within tabpage_27
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_cusamt_other_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_bmstamt_scid[row]
	ls_code = THIS.Object.u_bmstamt_bacode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_28 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "供应商付款单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_sptamt_edit dw_sptamt_edit
end type

on tabpage_28.create
this.dw_sptamt_edit=create dw_sptamt_edit
this.Control[]={this.dw_sptamt_edit}
end on

on tabpage_28.destroy
destroy(this.dw_sptamt_edit)
end on

type dw_sptamt_edit from u_dw_rbtnfilter within tabpage_28
integer width = 3506
integer height = 1000
integer taborder = 150
string dataobject = "dw_subject_sptamt_edit_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'u_cusamt_cusmoncode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = This.Object.u_cusamt_scid[row]
		ls_code = This.Object.u_cusamt_cusmoncode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'u_cusamt_credtype' Or dwo.Name = 'u_cusamt_credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.u_cusamt_credid[row])
	END IF	
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_29 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "其它应付单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_mstpay_other dw_mstpay_other
end type

on tabpage_29.create
this.dw_mstpay_other=create dw_mstpay_other
this.Control[]={this.dw_mstpay_other}
end on

on tabpage_29.destroy
destroy(this.dw_mstpay_other)
end on

type dw_mstpay_other from u_dw_rbtnfilter within tabpage_29
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_mstpay_other_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_bmstamt_scid[row]
	ls_code = THIS.Object.u_bmstamt_bacode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_30 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "其它付款单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_sptamt_other dw_sptamt_other
end type

on tabpage_30.create
this.dw_sptamt_other=create dw_sptamt_other
this.Control[]={this.dw_sptamt_other}
end on

on tabpage_30.destroy
destroy(this.dw_sptamt_other)
end on

type dw_sptamt_other from u_dw_rbtnfilter within tabpage_30
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_sptamt_other_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_bmstamt_scid[row]
	ls_code = THIS.Object.u_bmstamt_bacode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_31 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "其它收入单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_income_expenses dw_income_expenses
end type

on tabpage_31.create
this.dw_income_expenses=create dw_income_expenses
this.Control[]={this.dw_income_expenses}
end on

on tabpage_31.destroy
destroy(this.dw_income_expenses)
end on

type dw_income_expenses from u_dw_rbtnfilter within tabpage_31
integer width = 3506
integer height = 1000
integer taborder = 150
string dataobject = "dw_subject_income_expenses_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;

Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.scid[row]
	ll_billid = This.Object.u_income_expenses_billid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.scid[row]
	ls_code = THIS.Object.u_income_expenses_billcode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_32 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "其它支出单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_income_expenses_out dw_income_expenses_out
end type

on tabpage_32.create
this.dw_income_expenses_out=create dw_income_expenses_out
this.Control[]={this.dw_income_expenses_out}
end on

on tabpage_32.destroy
destroy(this.dw_income_expenses_out)
end on

type dw_income_expenses_out from u_dw_rbtnfilter within tabpage_32
integer width = 3506
integer height = 1000
integer taborder = 120
string dataobject = "dw_subject_income_expenses_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;

Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.scid[row]
	ll_billid = This.Object.u_income_expenses_billid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.scid[row]
	ls_code = THIS.Object.u_income_expenses_billcode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_33 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
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_33.create
this.dw_rap_money_transfer=create dw_rap_money_transfer
this.Control[]={this.dw_rap_money_transfer}
end on

on tabpage_33.destroy
destroy(this.dw_rap_money_transfer)
end on

type dw_rap_money_transfer from u_dw_rbtnfilter within tabpage_33
integer width = 3506
integer height = 1000
integer taborder = 150
string dataobject = "dw_subject_rap_money_transfer_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
	
//	wf_retr_mx
	
	
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	IF dwo.Name = 'billcode' THEN
		String ls_code
		Long ll_scid
		
		ll_scid = 0
		ls_code = This.Object.billcode[row]
		
		f_open_win(ll_scid,ls_code)
	ELSEIF dwo.Name = 'credtype' Or dwo.Name = 'credno' THEN
		IF This.Object.cwauditingflag[row] = 0 THEN RETURN
		f_open_cred(This.Object.credid[row])
	END IF	
END IF
        


end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_34 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "客户收款结算单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_bmstamt_edit dw_bmstamt_edit
end type

on tabpage_34.create
this.dw_bmstamt_edit=create dw_bmstamt_edit
this.Control[]={this.dw_bmstamt_edit}
end on

on tabpage_34.destroy
destroy(this.dw_bmstamt_edit)
end on

type dw_bmstamt_edit from u_dw_rbtnfilter within tabpage_34
integer width = 3506
integer height = 1000
integer taborder = 150
string dataobject = "dw_subject_bmstamt_edit_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_bmstamt_scid[row]
	ls_code = THIS.Object.u_bmstamt_bacode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_35 from userobject within tab_1
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "供应商付款结算单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_bmstamt_spt dw_bmstamt_spt
end type

on tabpage_35.create
this.dw_bmstamt_spt=create dw_bmstamt_spt
this.Control[]={this.dw_bmstamt_spt}
end on

on tabpage_35.destroy
destroy(this.dw_bmstamt_spt)
end on

type dw_bmstamt_spt from u_dw_rbtnfilter within tabpage_35
integer width = 3506
integer height = 1000
integer taborder = 150
string dataobject = "dw_subject_bmstamt_spt_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_bmstamt_scid[row]
	ls_code = THIS.Object.u_bmstamt_bacode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_36 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "借支单"
long tabtextcolor = 8388736
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_gz_loanwage dw_gz_loanwage
end type

on tabpage_36.create
this.dw_gz_loanwage=create dw_gz_loanwage
this.Control[]={this.dw_gz_loanwage}
end on

on tabpage_36.destroy
destroy(this.dw_gz_loanwage)
end on

type dw_gz_loanwage from u_dw_rbtnfilter within tabpage_36
integer width = 3506
integer height = 1000
integer taborder = 150
string dataobject = "dw_subject_gz_loanwage_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
//	ll_scid = THIS.Object.u_inware_scid[row]
	ls_code = THIS.Object.u_gz_loanwage_billcode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_37 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "奖罚单"
long tabtextcolor = 8388736
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_gz_award_punish dw_gz_award_punish
end type

on tabpage_37.create
this.dw_gz_award_punish=create dw_gz_award_punish
this.Control[]={this.dw_gz_award_punish}
end on

on tabpage_37.destroy
destroy(this.dw_gz_award_punish)
end on

type dw_gz_award_punish from u_dw_rbtnfilter within tabpage_37
integer width = 3506
integer height = 1000
integer taborder = 150
string dataobject = "dw_subject_gz_award_punish_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
//	ll_scid = THIS.Object.u_inware_scid[row]
	ls_code = THIS.Object.u_gz_award_punish_billcode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_180 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "来料加工收料进仓单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware_rec dw_inware_rec
end type

on tabpage_180.create
this.dw_inware_rec=create dw_inware_rec
this.Control[]={this.dw_inware_rec}
end on

on tabpage_180.destroy
destroy(this.dw_inware_rec)
end on

type dw_inware_rec from u_dw_rbtnfilter within tabpage_180
integer width = 3506
integer height = 1000
integer taborder = 130
string dataobject = "dw_subject_inware_rec_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;Long ll_scid,ll_billid

IF row > 0 THEN
	This.SelectRow(0,False)
	This.SelectRow(row,True)
	This.SetRow(row)
	
	ll_scid = This.Object.u_inware_scid[row]
	ll_billid = This.Object.inwareid[row]
	
	
	wf_retr_mx(ll_scid,ll_billid)
END IF

end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_inware_scid[row]
	ls_code = THIS.Object.inwarecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type tabpage_340 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 416
integer width = 3013
integer height = 1008
long backcolor = 134217739
string text = "来产加工发货出仓单"
long tabtextcolor = 32768
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
end type

type cb_auditing from uo_imflatbutton within w_subject_audit
integer x = 969
integer width = 274
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "会计审核"
string normalpicname = "audit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;wf_do(1)
end event

type cb_auditing_cancel from uo_imflatbutton within w_subject_audit
integer x = 1243
integer width = 274
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "会计撤审"
string normalpicname = "caudit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;wf_do(0)
end event

type cb_allc from commandbutton within w_subject_audit
integer x = 2162
integer y = 196
integer width = 206
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全选"
end type

event clicked;Long ll_row,ll_credid
datawindow datadw
Long i

ll_row = dw_index.GetRow()
IF ll_row <= 0 THEN
	RETURN
ELSE
	ll_credid = dw_index.Object.credid[ll_row]
END IF

CHOOSE CASE ll_credid
	CASE 1 //销售发货单
		datadw = tab_1.tabpage_1.dw_outware_sale
	CASE 2 //销售退货单	
		datadw = tab_1.tabpage_2.dw_outware_sale_th
	CASE 3 //客户补件单		
		datadw = tab_1.tabpage_3.dw_cus_reissue_bj
	CASE 4 //客户费用单		
		datadw = tab_1.tabpage_4.dw_cus_reissue
	CASE 5 //客户返利单				
		datadw = tab_1.tabpage_5.dw_cus_giveback
	CASE 6 //采购收货单		
		datadw = tab_1.tabpage_6.dw_inware_buy
	CASE 7 //采购退货单		
		datadw = tab_1.tabpage_7.dw_inware_buy_th
	CASE 8 //供应商罚款单		
		datadw = tab_1.tabpage_8.dw_spt_amerce
	CASE 9 //供应商费用单			
		datadw = tab_1.tabpage_9.dw_spt_reissue
	CASE 10 //外协发出单					
		//datadw = tab_1.tabpage_.dw_spt_reissue
	CASE 11 //外协退回单				
		//datadw = tab_1.tabpage_20.dw_spt_reissue
	CASE 12 //外协收货单				
		//datadw = tab_1.tabpage_20.dw_spt_reissue
	CASE 13 //外协返工单				
		//datadw = tab_1.tabpage_20.dw_spt_reissue
	CASE 14 //领料出仓单	
		datadw = tab_1.tabpage_14.dw_outware_scll
	CASE 15 //其它出仓单				
		datadw = tab_1.tabpage_15.dw_outware_other
	CASE 16 //盘亏单				
		datadw = tab_1.tabpage_16.dw_outware_pk
	CASE 17 //生产进仓单			
		datadw = tab_1.tabpage_17.dw_inware_cp
	CASE 18 //其它进仓单		
		datadw = tab_1.tabpage_18.dw_inware_other
	CASE 19 //盘盈单						
		datadw = tab_1.tabpage_19.dw_inware_py
	CASE 20 //扣费品领用单								
		datadw = tab_1.tabpage_20.dw_outware_gj
	CASE 21 //调拨单									
		datadw = tab_1.tabpage_21.dw_outware_move
	CASE 22 //拆装单
		//datadw = tab_1.tabpage_22.dw_spt_reissue
	CASE 23 //库存成本价调整单
		//datadw = tab_1.tabpage_23.dw_spt_reissue
	CASE 24 //库存配置调整单
		//datadw = tab_1.tabpage_24.dw_spt_reissue
	CASE 25 //客户收款单										
		datadw = tab_1.tabpage_25.dw_cusamt_edit
	CASE 26 //其它应收单        										
		datadw = tab_1.tabpage_26.dw_msttake_other
	CASE 27 //其它收款单       										
		datadw = tab_1.tabpage_27.dw_cusamt_other
	CASE 28 //供应商付款单	      										
		datadw = tab_1.tabpage_28.dw_sptamt_edit
	CASE 29 //其它应付单            										
		datadw = tab_1.tabpage_29.dw_mstpay_other
	CASE 30 //其它付款单							
		datadw = tab_1.tabpage_30.dw_sptamt_other
	CASE 31 //其它收入单									
		datadw = tab_1.tabpage_31.dw_income_expenses
	CASE 32 //其它支出单										
		datadw = tab_1.tabpage_32.dw_income_expenses_out
	CASE 33 //转帐单										
		datadw = tab_1.tabpage_33.dw_rap_money_transfer
	CASE 34 //客户收款结算单    										
		datadw = tab_1.tabpage_34.dw_bmstamt_edit
	CASE 35 //供应商付款结算单        										
		datadw = tab_1.tabpage_35.dw_bmstamt_spt
	CASE 38 //借支单	
		//datadw = tab_1.tabpage_20.dw_spt_reissue	
	CASE 39 //奖罚单			
		//datadw = tab_1.tabpage_20.dw_spt_reissue	
END CHOOSE

datadw.SetRedraw (False)
FOR i = 1 To datadw.RowCount()
	datadw.Object.ch[i] = 1
NEXT
datadw.SetRedraw (True)










end event

type cb_allc_not from commandbutton within w_subject_audit
integer x = 2368
integer y = 196
integer width = 219
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "全不选"
end type

event clicked;Long ll_row,ll_credid
datawindow datadw
Long i

ll_row = dw_index.GetRow()
IF ll_row <= 0 THEN
	RETURN
ELSE
	ll_credid = dw_index.Object.credid[ll_row]
END IF

CHOOSE CASE ll_credid
	CASE 1 //销售发货单
		datadw = tab_1.tabpage_1.dw_outware_sale
	CASE 2 //销售退货单	
		datadw = tab_1.tabpage_2.dw_outware_sale_th
	CASE 3 //客户补件单		
		datadw = tab_1.tabpage_3.dw_cus_reissue_bj
	CASE 4 //客户费用单		
		datadw = tab_1.tabpage_4.dw_cus_reissue
	CASE 5 //客户返利单				
		datadw = tab_1.tabpage_5.dw_cus_giveback
	CASE 6 //采购收货单		
		datadw = tab_1.tabpage_6.dw_inware_buy
	CASE 7 //采购退货单		
		datadw = tab_1.tabpage_7.dw_inware_buy_th
	CASE 8 //供应商罚款单		
		datadw = tab_1.tabpage_8.dw_spt_amerce
	CASE 9 //供应商费用单			
		datadw = tab_1.tabpage_9.dw_spt_reissue
	CASE 10 //外协发出单					
		//datadw = tab_1.tabpage_.dw_spt_reissue
	CASE 11 //外协退回单				
		//datadw = tab_1.tabpage_20.dw_spt_reissue
	CASE 12 //外协收货单				
		//datadw = tab_1.tabpage_20.dw_spt_reissue
	CASE 13 //外协返工单				
		//datadw = tab_1.tabpage_20.dw_spt_reissue
	CASE 14 //领料出仓单	
		datadw = tab_1.tabpage_14.dw_outware_scll
	CASE 15 //其它出仓单				
		datadw = tab_1.tabpage_15.dw_outware_other
	CASE 16 //盘亏单				
		datadw = tab_1.tabpage_16.dw_outware_pk
	CASE 17 //生产进仓单			
		datadw = tab_1.tabpage_17.dw_inware_cp
	CASE 18 //其它进仓单		
		datadw = tab_1.tabpage_18.dw_inware_other
	CASE 19 //盘盈单						
		datadw = tab_1.tabpage_19.dw_inware_py
	CASE 20 //扣费品领用单								
		datadw = tab_1.tabpage_20.dw_outware_gj
	CASE 21 //调拨单									
		datadw = tab_1.tabpage_21.dw_outware_move
	CASE 22 //拆装单
		//datadw = tab_1.tabpage_22.dw_spt_reissue
	CASE 23 //库存成本价调整单
		//datadw = tab_1.tabpage_23.dw_spt_reissue
	CASE 24 //库存配置调整单
		//datadw = tab_1.tabpage_24.dw_spt_reissue
	CASE 25 //客户收款单										
		datadw = tab_1.tabpage_25.dw_cusamt_edit
	CASE 26 //其它应收单        										
		datadw = tab_1.tabpage_26.dw_msttake_other
	CASE 27 //其它收款单       										
		datadw = tab_1.tabpage_27.dw_cusamt_other
	CASE 28 //供应商付款单	      										
		datadw = tab_1.tabpage_28.dw_sptamt_edit
	CASE 29 //其它应付单            										
		datadw = tab_1.tabpage_29.dw_mstpay_other
	CASE 30 //其它付款单							
		datadw = tab_1.tabpage_30.dw_sptamt_other
	CASE 31 //其它收入单									
		datadw = tab_1.tabpage_31.dw_income_expenses
	CASE 32 //其它支出单										
		datadw = tab_1.tabpage_32.dw_income_expenses_out
	CASE 33 //转帐单										
		datadw = tab_1.tabpage_33.dw_rap_money_transfer
	CASE 34 //客户收款结算单    										
		datadw = tab_1.tabpage_34.dw_bmstamt_edit
	CASE 35 //供应商付款结算单        										
		datadw = tab_1.tabpage_35.dw_bmstamt_spt
	CASE 38 //借支单	
		//datadw = tab_1.tabpage_20.dw_spt_reissue	
	CASE 39 //奖罚单			
		//datadw = tab_1.tabpage_20.dw_spt_reissue	
END CHOOSE

datadw.SetRedraw (False)
FOR i = 1 To datadw.RowCount()
	datadw.Object.ch[i] = 0
NEXT
datadw.SetRedraw (True)










end event

type cbx_inout from checkbox within w_subject_audit
boolean visible = false
integer x = 1975
integer y = 52
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "显示明细"
end type

event clicked;Int if_inout
IF This.Checked THEN
	if_inout = 1
ELSE
	if_inout = 0
END IF

f_SetProfileString (sys_empid,dw_1.DataObject, "if_inout", String(if_inout))
Parent.TriggerEvent(Resize!)
Parent.TriggerEvent("ue_retrieve_inoutmx")


end event

event constructor;this.backcolor = 14215660
Int if_inout
if_inout = Integer(f_ProfileString (sys_empid,dw_1.DataObject, "if_inout", '0'))
IF if_inout	 = 0 THEN
	This.Checked = False
ELSE
	This.Checked = True
END IF

end event

type dw_mx from u_dw_rbtnfilter within w_subject_audit
integer x = 2158
integer y = 1748
integer width = 3049
integer height = 808
integer taborder = 140
boolean bringtotop = true
string dataobject = "dw_rp_subject_audit_inwareall"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	THIS.setrow(row)
END IF
end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = THIS.Object.u_inware_scid[row]
	ls_code = THIS.Object.inwarecode[row]
	
	f_open_win(ll_scid,ls_code)

END IF

end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type st_1 from statictext within w_subject_audit
integer x = 41
integer y = 204
integer width = 233
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "会计期间"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_cmonth from dropdownlistbox within w_subject_audit
integer x = 302
integer y = 188
integer width = 480
integer height = 2044
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;Long ll_cmonth

DECLARE cur_month CURSOR FOR
	SELECT cw_calendar.cmonth
	FROM cw_calendar
	WHERE cw_calendar.cmonth <= :sys_curyearmon
	Order By cw_calendar.cmonth Desc;
OPEN cur_month;
FETCH cur_month Into :ll_cmonth;
DO WHILE sqlca.SQLCode = 0
	This.AddItem(String(ll_cmonth))
	FETCH cur_month Into :ll_cmonth;
LOOP
CLOSE cur_month;

This.Text = string(sys_curyearmon)
cur_cmonth = sys_curyearmon

end event

event selectionchanged;cur_cmonth = Long(This.Text)
cb_1.TriggerEvent(clicked!)
end event

type ddlb_scid from uo_ddlb_scid_notall within w_subject_audit
integer x = 302
integer y = 44
integer width = 480
integer height = 1120
integer taborder = 20
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid_arr[1] = THIS.uo_scid
cur_scid = THIS.uo_scid
end event

event selectionchanged;call super::selectionchanged;cur_scid_arr[1] = THIS.uo_scid
cur_scid = THIS.uo_scid
cb_1.TriggerEvent(Clicked!)
end event

type st_6 from statictext within w_subject_audit
integer x = 2642
integer y = 212
integer width = 1193
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "双击单号查看单据，双击凭证字/凭证号查看凭语"
boolean focusrectangle = false
end type

type dw_index from u_dw_rbtnfilter within w_subject_audit
integer y = 300
integer width = 2158
integer height = 2056
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_subject_audit_credport_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	dw_1.SelectRow(0,False)
	dw_1.SelectRow(row,True)
END IF
end event

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



end event