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

$PBExportHeader$w_musttake.srw
forward
global type w_musttake from w_publ_pageretr
end type
type dw_msttake from u_dw_rbtnfilter within w_musttake
end type
type cbx_ifshowall from checkbox within w_musttake
end type
type st_3 from statictext within w_musttake
end type
type em_firstday from editmask within w_musttake
end type
type st_4 from statictext within w_musttake
end type
type em_endday from editmask within w_musttake
end type
type cb_retrieve from uo_imflatbutton within w_musttake
end type
type cb_add from uo_imflatbutton within w_musttake
end type
type cb_delete from uo_imflatbutton within w_musttake
end type
type dw_msttakemx from u_dw_rbtnfilter within w_musttake
end type
type ddlb_1 from uo_ddlb_scid within w_musttake
end type
type cb_1 from uo_imflatbutton within w_musttake
end type
type cb_4 from uo_imflatbutton within w_musttake
end type
type ddlb_2 from dropdownlistbox within w_musttake
end type
type ln_bar from line within w_musttake
end type
type ln_bar2 from line within w_musttake
end type
type r_bar from rectangle within w_musttake
end type
type ln_1 from line within w_musttake
end type
type ln_2 from line within w_musttake
end type
type ln_5 from line within w_musttake
end type
type ln_6 from line within w_musttake
end type
type st_amtdisp from statictext within w_musttake
end type
type st_msttakeamt from statictext within w_musttake
end type
type st_takeamt from statictext within w_musttake
end type
type st_balcamt from statictext within w_musttake
end type
type cb_salebill from uo_imflatbutton within w_musttake
end type
type ddlb_3 from dropdownlistbox within w_musttake
end type
type st_2 from statictext within w_musttake
end type
type st_5 from statictext within w_musttake
end type
type st_6 from statictext within w_musttake
end type
type cbx_ifuse from checkbox within w_musttake
end type
type cb_3 from uo_imflatbutton within w_musttake
end type
type cbx_all from checkbox within w_musttake
end type
type pb_em1 from picturebutton within w_musttake
end type
type pb_em2 from picturebutton within w_musttake
end type
type pb_2 from picturebutton within w_musttake
end type
type cb_take from uo_imflatbutton within w_musttake
end type
type cbx_1 from checkbox within w_musttake
end type
type ln_3 from line within w_musttake
end type
type ln_4 from line within w_musttake
end type
end forward

global type w_musttake from w_publ_pageretr
integer width = 3621
integer height = 2444
string title = "应收帐"
boolean maxbox = true
windowstate windowstate = maximized!
event retrieve_pay ( )
event retrieve_paymx ( )
event ue_add ( )
event ue_del ( )
event ue_view_bill ( )
event ue_take ( )
event ue_salebill_auto ( )
event ue_rbbutton ( )
event ue_dwchild_filter ( )
event ue_create_salebill ( )
event ue_create_cusamt ( )
event ue_create_reissue ( )
event ue_salebill_auto_p ( )
event ue_date1 ( )
event ue_date2 ( )
event ue_date3 ( )
event ue_date4 ( )
dw_msttake dw_msttake
cbx_ifshowall cbx_ifshowall
st_3 st_3
em_firstday em_firstday
st_4 st_4
em_endday em_endday
cb_retrieve cb_retrieve
cb_add cb_add
cb_delete cb_delete
dw_msttakemx dw_msttakemx
ddlb_1 ddlb_1
cb_1 cb_1
cb_4 cb_4
ddlb_2 ddlb_2
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
ln_1 ln_1
ln_2 ln_2
ln_5 ln_5
ln_6 ln_6
st_amtdisp st_amtdisp
st_msttakeamt st_msttakeamt
st_takeamt st_takeamt
st_balcamt st_balcamt
cb_salebill cb_salebill
ddlb_3 ddlb_3
st_2 st_2
st_5 st_5
st_6 st_6
cbx_ifuse cbx_ifuse
cb_3 cb_3
cbx_all cbx_all
pb_em1 pb_em1
pb_em2 pb_em2
pb_2 pb_2
cb_take cb_take
cbx_1 cbx_1
ln_3 ln_3
ln_4 ln_4
end type
global w_musttake w_musttake

type variables
uo_musttake uo_take
Long cur_id,cur_takeid
Long cur_scid = 0
long cur_moneyid=0
Long cur_scid_arr[]


dec ins_msttakeamt=0
dec ins_takeamt=0
Int finishflag = -1
long ins_moneyid = -1

end variables

forward prototypes
public subroutine wf_refresh_balc ()
public function integer wf_dispamt ()
public subroutine wf_initdisp ()
public function integer days_in_month (integer month, integer year)
end prototypes

event retrieve_pay();Long row,uc_relid,uc_moneyid,uc_scid
String ls_cusname,ls_name
DateTime firstdate,enddate

row = dw_pageretr.GetRow()
IF row > 0 THEN
	uc_relid = dw_pageretr.Object.cusid[row]
	uc_moneyid = dw_pageretr.Object.v_cus_balcamt_moneyid[row]
	
	IF sys_option_scid_msttake_mstpay = 1 THEN
		uc_scid = dw_pageretr.Object.v_cus_balcamt_scid[row]
	ELSE
		uc_scid = cur_scid
	END IF
	
	ls_cusname = dw_pageretr.Object.Name[row]
	ls_name = dw_pageretr.Object.cw_currency_name[row]
	dw_msttake.Title = ls_cusname+','+ls_name+'-应收帐(已结清明细不能选择)'
	dw_msttakemx.Title = ls_cusname+','+ls_name+'-应收帐明细'
	
	firstdate = DateTime(Date(em_firstday.Text),Time('00:00:00'))
	enddate = DateTime(Date(em_endday.Text),Time('23:59:59'))
	
	dw_msttake.SetRedraw (FALSE)
	dw_msttake.Retrieve(uc_scid,uc_relid,firstdate,enddate,finishflag,uc_moneyid)
	IF dw_msttake.RowCount() > 0 THEN
		dw_msttake.SelectRow(0,FALSE)
		dw_msttake.ScrollToRow(1)
		dw_msttake.SelectRow(1,TRUE)
	END IF
	dw_msttake.SetRedraw (TRUE)
ELSE
	dw_msttake.Reset()
END IF
cur_id = uc_relid
cur_moneyid = uc_moneyid


end event

event retrieve_paymx();long row,uc_relid=0
row=dw_msttake.getrow()
if row>0 then 
	uc_relid=dw_msttake.object.takeid[row]
	
	dw_msttakemx.SetRedraw (false)
	dw_msttakemx.retrieve(uc_relid)
	dw_msttakemx.SetRedraw (true)
else
	dw_msttakemx.reset()
end if
cur_takeid=uc_relid
end event

event ue_add();IF Not f_power_ind(132) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF
IF cur_id <= 0 THEN
	MessageBox('提示','请选择客户',information!,ok!)
	RETURN
END IF
IF cur_scid < 0 THEN
	MessageBox('提示','请选择分部',information!,ok!)
	RETURN
END IF

s_edit_index_tran s_open_tran
s_open_tran.b_long = cur_id
s_open_tran.b_string = ''
s_open_tran.b_decimal = 0
s_open_tran.c_long =  cur_scid
s_open_tran.d_long = cur_moneyid
OpenWithParm(w_musttake_mod,s_open_tran)

wf_refresh_balc()
This.TriggerEvent('retrieve_pay')


end event

event ue_del();IF NOT f_power_ind(132) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF
Long takeid,lirow
String arg_msg
lirow = dw_msttake.GetRow()
IF lirow = 0 THEN
	MessageBox('提示','请选定要删除的应收帐',information!,ok!)
	RETURN
END IF

IF MessageBox ("询问","是否确定要删除当前应收帐记录?",Question!,YesNo! ) = 2 THEN
	RETURN
END IF

//IF dw_msttake.Object.finishflag[lirow] = 1 THEN
//	MessageBox('提示','选定的应收帐已结清,不能删除',information!,ok!)
//	RETURN
//END IF

takeid = dw_msttake.Object.takeid[lirow]
IF uo_take.del_takerec (cur_scid,0,takeid, cur_id, arg_msg,TRUE) = 0 THEN
	MessageBox("错误",arg_msg,stopsign!,ok!)
	RETURN
END IF
//日志
Long ls_id,ls_curid
String ls_code,ls_opemp
ls_id = takeid
ls_curid = cur_id
ls_code = dw_msttake.Object.billcode[lirow]
ls_opemp = dw_msttake.Object.opemp[lirow]
f_setsysoplog('应收帐','应收帐删除,ID:'+String(ls_id)+',客户ID:'+String(ls_curid)+',code:'+ls_code+',建立人:'+ls_opemp,arg_msg,TRUE)
//--
dw_msttake.DeleteRow(lirow)
dw_msttake.TriggerEvent(RowFocusChanged!)
wf_refresh_balc()

THIS.TriggerEvent('retrieve_pay')
MessageBox('提示','删除应收帐操作成功!',information!,ok!)



end event

event ue_view_bill();Long row
    
row = dw_msttake.GetRow()
IF row <= 0 THEN RETURN

IF row > 0 THEN
	String ls_code
	Long ll_scid
	Int li_buildtype
	Decimal ld_mstamt
	
	ll_scid = dw_msttake.Object.u_bmsttake_scid[row]
	ls_code = dw_msttake.Object.billcode[row]
//	ld_mstamt = dw_msttake.Object.msttakeamt[row]
	li_buildtype = dw_msttake.Object.buildtype[row]
	
	IF li_buildtype = 0 THEN RETURN
	
	f_open_win(ll_scid,ls_code)
	
	
END IF




end event

event ue_take();if not f_power_ind(132) then
	messagebox('提示','你没有使用权限！',information!,ok!)
	return
end if

if cur_id <= 0 then
	messagebox('提示','请选择客户',information!,ok!)
	return
end if

long ll_row
ll_row = dw_msttake.getrow()
if ll_row <= 0 then
	messagebox('提示','请选择付款单据',information!,ok!)
	return
end if

s_edit_index_tran s_open_tran
s_open_tran.b_long = cur_id
s_open_tran.c_long =cur_scid 
s_open_tran.b_string = dw_msttake.object.billcode[ll_row]
s_open_tran.b_decimal = dw_msttake.object.balcamt[ll_row]
 s_open_tran.d_long=cur_moneyid
openwithparm(w_musttake_mod,s_open_tran)

wf_refresh_balc()
this.triggerevent('retrieve_pay')

end event

event ue_salebill_auto();Long ll_rowcount
Long ll_banktypeid
DateTime ld_mxtakedate
long ll_takeid
Int j

ld_mxtakedate = DateTime(Today(),Time(0))
dw_msttake.AcceptText()
ll_rowcount = dw_msttake.RowCount()
IF ll_rowcount <= 0 THEN 	RETURN

datastore ds_msttakemx
ds_msttakemx = CREATE datastore
ds_msttakemx.DataObject = "dw_salebillmx_index"
ds_msttakemx.SetTransObject(sqlca)
ds_msttakemx.Retrieve(0.1)

//IF ds_msttakemx.RowCount() > 0 THEN
//	FOR j = 1 TO ds_msttakemx.RowCount()
//		ds_msttakemx.DeleteRow(j)
//	NEXT
//END IF
ds_msttakemx.AcceptText()

Int i
Long ll_row
Long ll_takeamtcount

FOR i = 1 TO ll_rowcount
	
	IF dw_msttake.Object.checkdata[i] = 0 THEN
		CONTINUE;
	END IF
	
	IF dw_msttake.Object.balcamt[i] < 0   And (dw_msttake.Object.takeamt[i] > 0  OR dw_msttake.Object.msttakeamt[i] < 0 )  THEN
		ll_takeamtcount++
		ld_mxtakedate = dw_msttake.Object.takedate[i]
		ll_banktypeid = dw_msttake.Object.u_bmsttake_banktypeid[i]
	END IF
	
	
//	IF ll_takeamtcount > 1 THEN
//		MessageBox('提示','预收款或已收款限制只能有一条',information!,ok!)
//		RETURN
//	END IF
	
	ll_row = ds_msttakemx.InsertRow(0)
	ds_msttakemx.Object.billcode[ll_row] = dw_msttake.Object.billcode[i]
	ds_msttakemx.Object.takedate[ll_row] = dw_msttake.Object.takedate[i]
	ds_msttakemx.Object.oriamt[ll_row] = dw_msttake.Object.oriamt[i]
	ds_msttakemx.Object.mainmsttakeamt[ll_row] = dw_msttake.Object.msttakeamt[i]
	ds_msttakemx.Object.maintakeamt[ll_row] = dw_msttake.Object.takeamt[i]
	ds_msttakemx.Object.takeid[ll_row] = dw_msttake.Object.takeid[i]
	
NEXT

ds_msttakemx.AcceptText()

//生成相关号
Long ll_take_i
String ls_take_i_billcode,ls_not_take_i_billcode
FOR i = 1 TO ds_msttakemx.RowCount()
	IF ds_msttakemx.Object.mainmsttakeamt[i] = 0 AND ds_msttakemx.Object.maintakeamt[i] <> 0 THEN
		ll_take_i = i
		ls_take_i_billcode = ds_msttakemx.Object.billcode[i]
	ELSE
		ls_not_take_i_billcode = ls_not_take_i_billcode + Trim(ds_msttakemx.Object.billcode[i])+','
	END IF
NEXT

ls_not_take_i_billcode = Left(ls_not_take_i_billcode,Len(ls_not_take_i_billcode) - 1 )

ls_not_take_i_billcode = Left(ls_not_take_i_billcode, 255)

FOR i = 1 TO ds_msttakemx.RowCount()
	IF i = ll_take_i THEN
		ds_msttakemx.Object.relbillcode[i] = ls_not_take_i_billcode
	ELSE
		ds_msttakemx.Object.relbillcode[i] = ls_take_i_billcode
	END IF
NEXT
//

//第一次
Decimal  msttakeamt = 0,takeamt = 0
FOR i = 1 TO ds_msttakemx.RowCount()
	IF msttakeamt > 0 THEN
		IF ds_msttakemx.Object.mainmsttakeamt[i] <= msttakeamt THEN
			ds_msttakemx.Object.msttakeamt[i] = ds_msttakemx.Object.mainmsttakeamt[i]
			msttakeamt = msttakeamt - ds_msttakemx.Object.mainmsttakeamt[i]
		ELSE
			ds_msttakemx.Object.msttakeamt[i] = msttakeamt
			msttakeamt = 0
		END IF
	END IF
	
	takeamt = takeamt - (ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i])
	
	ds_msttakemx.Object.takeamt[i] = (ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i])
	//	dec ld
	//	ld=ds_msttakemx.Object.takeamt[i] 
NEXT
ds_msttakemx.AcceptText()

//第二次循环：根据可分配判断正负，修正相关结余（正-负、负-正）
IF takeamt < 0 THEN  //不够分配 ds_msttakemx.Object.takeamt[i] 相当于单据金额变化

	FOR i = ds_msttakemx.RowCount()	TO 1	STEP - 1
		If (ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i]) <= 0 THEN CONTINUE
		
		IF ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i] + takeamt < 0 THEN
			ds_msttakemx.Object.takeamt[i] = 0
			takeamt = takeamt + (ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i])
		ELSE
			ds_msttakemx.Object.takeamt[i] = takeamt	+	(ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i])
			takeamt = 0
		END IF
	NEXT
ELSE // 分配有剩
	
	FOR i = ds_msttakemx.RowCount()	TO 1	STEP - 1
		If (ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i]) >= 0     THEN CONTINUE //or ds_msttakemx.Object.maintakeamt[i]=0
		//if  ds_msttakemx.Object.u_bmsttake_takeamt[i]=0 then continue
		
		IF ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i] + takeamt > 0 THEN
			ds_msttakemx.Object.takeamt[i] =0
			takeamt = takeamt + (ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i])
			//ds_msttakemx.Object.takeamt[i] = takeamt// + (ds_msttakemx.Object.u_bmsttake_msttakeamt[i] - ds_msttakemx.Object.u_bmsttake_takeamt[i])
		ELSE
			ds_msttakemx.Object.takeamt[i] = takeamt	+	(ds_msttakemx.Object.mainmsttakeamt[i] - ds_msttakemx.Object.maintakeamt[i])
			takeamt = 0
			//			ld=ds_msttakemx.Object.takeamt[i]
		END IF
	NEXT
END IF
ds_msttakemx.AcceptText()
uo_salebill uo_bill
uo_bill = CREATE uo_salebill
String arg_msg = ''
IF uo_bill.newbegin() = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	RETURN
END IF

uo_bill.opemp = publ_operator
uo_bill.takedate = ld_mxtakedate
uo_bill.relcode  = ''
uo_bill.inrep  = publ_operator
uo_bill.banktypeid   = ll_banktypeid
uo_bill.dscrp  = ''
uo_bill.cusid  = cur_id
uo_bill.msttakeamt  = 0
uo_bill.takeamt  = 0
uo_bill.accountsid = 0
uo_bill.itemid = 0
uo_bill.buildtype = 1
uo_bill.moneyid = ins_moneyid

FOR i = 1 TO ds_msttakemx.RowCount()
	IF ds_msttakemx.Object.mainmsttakeamt[i] <> 0 OR ds_msttakemx.Object.maintakeamt[i] <> 0 THEN
		IF uo_bill.acceptmx(ds_msttakemx.Object.takeid[i],&
			ds_msttakemx.Object.billcode[i],&
			ds_msttakemx.Object.msttakeamt[i],&
			ds_msttakemx.Object.takeamt[i],&
			ds_msttakemx.Object.oriamt[i],&
			ds_msttakemx.Object.mainmsttakeamt[i],&
			ds_msttakemx.Object.maintakeamt[i],&
			ds_msttakemx.Object.relbillcode[i],&
			arg_msg) = 0 THEN
			MessageBox('错误',arg_msg,stopsign!,ok!)
			RETURN
		END IF
	END IF
NEXT

IF uo_bill.Save_ds(arg_msg,TRUE) = 0 THEN
	MessageBox('错误',arg_msg,stopsign!,ok!)
	RETURN
ELSE
	FOR I = 1 TO ds_msttakemx.RowCount() //直接更新 应收账的销售单的预收款日期
		If ds_msttakemx.Object.maintakeamt[i] > 0  THEN CONTINUE
		ll_takeid = ds_msttakemx.Object.takeid[I]
		UPDATE u_bmsttake
			SET viewdate = :ld_mxtakedate
			Where takeid = :ll_takeid;
		IF sqlca.SQLCode <> 0 THEN
			ROLLBACK;
			messagebox('错误','更新预计收款日期失败')
			RETURN
		ELSE
			COMMIT;
		END IF
	NEXT
END IF

IF  sys_option_musttake_auditing = 1 THEN
 	IF uo_bill.auditing(uo_bill.salebillid,publ_operator,arg_msg,TRUE)=0 THEN
		messagebox('错误',arg_msg,stopsign!,ok!)
		RETURN
	END IF
END IF

MessageBox('提示','自动生成销售收入单成功，单据编号为'+uo_bill.salebillcode,information!,ok!)

DESTROY uo_bill
cb_retrieve.TriggerEvent(Clicked!)
RETURN
//dw_msttake



end event

event ue_rbbutton();dw_msttake.event rbbutton( dw_msttake.arg_ins_dwtype,dw_msttake.arg_ins_dwname,dw_msttake.arg_ins_dwdata,dw_msttake.arg_ins_dwrow )

end event

event ue_dwchild_filter();dw_msttake.setfilter('')
dw_msttake.filter()
end event

event ue_create_salebill();//辅助建立客户对数单
if not f_power_ind(640) then
	messagebox('提示','你没有使用权限！',information!,ok!)
	return
end if

if cur_id <= 0 then
	messagebox('提示','请选择客户',information!,ok!)
	return
end if

if cur_scid < 0 then
	messagebox('提示','请选择分部',information!,ok!)
	return
end if

s_edit_index_tran s_open_tran
s_open_tran.b_long = cur_id 
s_open_tran.b_string = ''
s_open_tran.b_decimal = 0
 s_open_tran.c_long =  cur_scid 
openwithparm(w_salebill_response,s_open_tran)

wf_refresh_balc()
this.triggerevent('retrieve_pay')
end event

event ue_create_cusamt();//辅助建立客户收款单
IF Not f_power_ind(919) THEN
	MessageBox(publ_operator,"你没有权限")
	RETURN
END IF

IF cur_id <= 0 THEN
	MessageBox(publ_operator,'请选择供应商')
	RETURN
END IF

IF cur_scid < 0 THEN
	MessageBox(publ_operator,'请选择分部')
	RETURN
END IF

String ls_scname

SELECT scname
	INTO :ls_scname
	FROM u_scdef
	Where scid = :cur_scid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示','查询分部名称失败')
	RETURN
END IF

s_edit_index_tran s_open_tran
s_open_tran.d_long = 1
s_open_tran.c_long =  cur_scid
s_open_tran.d_string = ls_scname
s_open_tran.e_long = cur_id

OpenWithParm(w_cusamt_edit_response,s_open_tran)

wf_refresh_balc()
This.TriggerEvent('retrieve_pay')






end event

event ue_create_reissue();//辅助建立客户费用单
IF Not f_power_ind(1020) THEN
	MessageBox(publ_operator,"你没有权限")
	RETURN
END IF

IF cur_id <= 0 THEN
	MessageBox(publ_operator,'请选择供应商')
	RETURN
END IF

IF cur_scid < 0 THEN
	MessageBox(publ_operator,'请选择分部')
	RETURN
END IF

String ls_scname

SELECT scname
	INTO :ls_scname
	FROM u_scdef
	Where scid = :cur_scid;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('系统提示','查询分部名称失败')
	RETURN
END IF

s_edit_index_tran s_open_tran
s_open_tran.d_long = 1
s_open_tran.c_long =  cur_scid
s_open_tran.d_string = ls_scname
s_open_tran.e_long = cur_id

OpenWithParm(w_reissue_response,s_open_tran)

wf_refresh_balc()
This.TriggerEvent('retrieve_pay')






end event

event ue_salebill_auto_p();IF Not f_power_ind(1545) THEN
	MessageBox(publ_operator,"你没有权限")
	RETURN
END IF


IF MessageBox('确认','是否对当前选择客户自动对单?',question!,yesno!) = 2 THEN RETURN


Long ll_i,ll_j,ll_k, row, i, j
Long ll_row, ll_printid
String arg_msg = ''
String arg_msg_auditing = ''

Long uc_scid,uc_moneyid,uc_cusid
DateTime enddate
Decimal ld_takeamt
//Decimal  msttakeamt = 0,takeamt = 0
Long ll_take_i
String ls_take_i_billcode,ls_not_take_i_billcode
Long ll_banktypeid
DateTime ldt_mstakedate
String ls_mxdscrp
Long ll_accountsid, ll_itemid
String arg_msg_all = ''
String ls_cusname
Decimal lde_msttakeamt_tolbill, lde_takeamt_tolbill, lde_takeamt_mx

uo_salebill uo_bill
uo_bill = Create uo_salebill

datastore ds_take,ds_msttake

ds_take = Create datastore
ds_take.DataObject = 'ds_msttake_index_autobill'
ds_take.SetTransObject(sqlca)

ds_msttake = Create datastore
ds_msttake.DataObject = 'ds_msttake_index_autobill_mst'
ds_msttake.SetTransObject(sqlca)

datastore ds_msttakemx
ds_msttakemx = Create datastore
ds_msttakemx.DataObject = "dw_salebillmx_index"

row = dw_pageretr.Find('ch = 1',1,dw_pageretr.RowCount())

IF row <= 0 THEN
	MessageBox('系统提示','请先选择客户')
	RETURN
END IF

Open(w_autobill_date_ch)

s_edit_index_tran s_tran_date
s_tran_date = Message.PowerObjectParm

IF s_tran_date.b_long = 0 THEN RETURN

enddate = s_tran_date.b_datetime

FOR ll_i = 1 To dw_pageretr.RowCount()
	IF dw_pageretr.Object.ch[ll_i] = 0 THEN CONTINUE
	
	uc_cusid = dw_pageretr.Object.cusid[ll_i]
	uc_moneyid = dw_pageretr.Object.v_cus_balcamt_moneyid[ll_i]
	ls_cusname = dw_pageretr.Object.Name[ll_i]
	
	IF sys_option_scid_msttake_mstpay = 1 THEN
		uc_scid = dw_pageretr.Object.v_cus_balcamt_scid[ll_i]
	ELSE
		uc_scid = cur_scid
	END IF
	
	ds_take.Retrieve(uc_scid,uc_cusid,enddate,uc_moneyid)
	
	ll_row = 0
	
	j = 0
	FOR ll_j = 1 To ds_take.RowCount()
		IF ds_take.Object.takeamt[ll_j] - ds_take.Object.msttakeamt[ll_j] = 0 THEN CONTINUE
		
		ls_take_i_billcode = ''
		ls_not_take_i_billcode = ''
		
		lde_msttakeamt_tolbill = 0
		lde_takeamt_tolbill = 0
		//ld_takeamt = 0
		//本次已收款
		ld_takeamt =  ds_take.Object.takeamt[ll_j] - ds_take.Object.msttakeamt[ll_j]
		
		ldt_mstakedate = ds_take.Object.takedate[ll_j]
		ll_banktypeid = ds_take.Object.u_bmsttake_banktypeid[ll_j]
		ls_mxdscrp = ds_take.Object.dscrp[ll_j]
		ll_accountsid = ds_take.Object.u_bmsttake_accountsid[ll_j]
		ll_itemid = ds_take.Object.u_bmsttake_itemid[ll_j]
		//		IF ds_take.Object.buildtype[ll_j] = 1 THEN //只有手动生成才建订单收款单
		//			lb_newtaskdamt = False
		//		ELSE
		//			lb_newtaskdamt = True
		//		END IF
		
		ls_take_i_billcode = ds_take.Object.billcode[ll_j]
		
		ds_msttakemx.Reset()
		
		ll_row = ds_msttakemx.InsertRow(0)
		ll_take_i = ll_row
		ds_msttakemx.Object.billcode[ll_row] = ds_take.Object.billcode[ll_j]
		ds_msttakemx.Object.takedate[ll_row] = ds_take.Object.takedate[ll_j]
		ds_msttakemx.Object.oriamt[ll_row] = ds_take.Object.oriamt[ll_j]
		ds_msttakemx.Object.mainmsttakeamt[ll_row] = ds_take.Object.msttakeamt[ll_j]
		ds_msttakemx.Object.maintakeamt[ll_row] = ds_take.Object.takeamt[ll_j]
		ds_msttakemx.Object.takeid[ll_row] = ds_take.Object.takeid[ll_j]
		//		ds_msttakemx.Object.moneyid[ll_row] = ds_take.Object.u_bmsttake_moneyid[ll_j]
		
		
		ds_msttake.Retrieve(uc_scid,uc_cusid,enddate,uc_moneyid)
		
		
		FOR ll_k = 1 To ds_msttake.RowCount()
			IF ld_takeamt <= 0 THEN EXIT
			IF ds_msttake.Object.msttakeamt[ll_k] - ds_msttake.Object.takeamt[ll_k] <= 0 THEN CONTINUE
			
			IF ld_takeamt > ds_msttake.Object.msttakeamt[ll_k] - ds_msttake.Object.takeamt[ll_k] THEN
				lde_takeamt_mx = ds_msttake.Object.msttakeamt[ll_k] - ds_msttake.Object.takeamt[ll_k]
				ld_takeamt = ld_takeamt - lde_takeamt_mx
			ELSE
				lde_takeamt_mx = ld_takeamt
				ld_takeamt = 0
			END IF
			
			ll_row = ds_msttakemx.InsertRow(0)
			ds_msttakemx.Object.billcode[ll_row] = ds_msttake.Object.billcode[ll_k]
			ds_msttakemx.Object.takedate[ll_row] = ds_msttake.Object.takedate[ll_k]
			ds_msttakemx.Object.oriamt[ll_row] = ds_msttake.Object.oriamt[ll_k]
			ds_msttakemx.Object.mainmsttakeamt[ll_row] = ds_msttake.Object.msttakeamt[ll_k]
			ds_msttakemx.Object.maintakeamt[ll_row] = ds_msttake.Object.takeamt[ll_k]
			ds_msttakemx.Object.takeid[ll_row] = ds_msttake.Object.takeid[ll_k]
			//			ds_msttakemx.Object.moneyid[ll_row] = ds_msttake.Object.u_bmsttake_moneyid[ll_k]
			
			ds_msttakemx.Object.msttakeamt[ll_row] = 0
			//明细分配已收
			ds_msttakemx.Object.takeamt[ll_row] = lde_takeamt_mx
			
			ls_not_take_i_billcode += ds_msttake.Object.billcode[ll_k] + ','
			lde_takeamt_tolbill += lde_takeamt_mx
		NEXT
		
		//总分配已收
		lde_msttakeamt_tolbill = ds_msttakemx.Object.maintakeamt[ll_take_i] - ds_msttakemx.Object.mainmsttakeamt[ll_take_i] - ld_takeamt
		ds_msttakemx.Object.takeamt[ll_take_i] = 0 - lde_msttakeamt_tolbill
		
		ls_not_take_i_billcode = Left(ls_not_take_i_billcode,Len(ls_not_take_i_billcode) - 1 )
		
		ls_not_take_i_billcode = Left(ls_not_take_i_billcode,250)
		ls_take_i_billcode = Left(ls_take_i_billcode,250)
		
		FOR i = 1 To ds_msttakemx.RowCount()
			IF i = ll_take_i THEN
				ds_msttakemx.Object.relbillcode[i] = ls_not_take_i_billcode
				//				lde_msttakeamt_tolbill = ds_msttakemx.Object.msttakeamt[i] - ds_msttakemx.Object.takeamt[i]
			ELSE
				ds_msttakemx.Object.relbillcode[i] = ls_take_i_billcode
				//				lde_takeamt_tolbill = ds_msttakemx.Object.msttakeamt[i] - ds_msttakemx.Object.takeamt[i]
			END IF
		NEXT
		
		ds_msttakemx.AcceptText()
		
		
		IF uo_bill.newbegin() = 0 THEN
			arg_msg_all = arg_msg_all + '客户:'+ls_cusname+'对数失败,' +'~r~n'
			GOTO _next_cust
		END IF
		
		uo_bill.opemp = publ_operator
		uo_bill.takedate = ldt_mstakedate
		uo_bill.relcode  = ''
		uo_bill.inrep  = publ_operator
		uo_bill.banktypeid   = ll_banktypeid
		uo_bill.dscrp  = ''
		uo_bill.cusid  = uc_cusid
		uo_bill.msttakeamt  = lde_msttakeamt_tolbill
		uo_bill.takeamt  = lde_takeamt_tolbill
		uo_bill.accountsid = ll_accountsid
		uo_bill.itemid = ll_itemid
		uo_bill.buildtype = 1
		uo_bill.moneyid = uc_moneyid
		//
		
		ll_printid = 0
		FOR i = 1 To ds_msttakemx.RowCount()
			IF ds_msttakemx.Object.msttakeamt[i] <> 0 Or ds_msttakemx.Object.takeamt[i] <> 0 THEN
				ll_printid++
				IF uo_bill.acceptmx(ds_msttakemx.Object.takeid[i],&
					ds_msttakemx.Object.billcode[i],&
					ds_msttakemx.Object.msttakeamt[i],&
					ds_msttakemx.Object.takeamt[i],&
					ds_msttakemx.Object.oriamt[i],&
					ds_msttakemx.Object.msttakeamt[i],&
					ds_msttakemx.Object.takeamt[i],&
					ds_msttakemx.Object.relbillcode[i],&
					arg_msg) = 0 THEN
					arg_msg_all = arg_msg_all + '客户:'+ls_cusname+'对数失败,'+arg_msg +'~r~n'
					GOTO _next_cust
				END IF
			END IF
		NEXT
		
		IF ll_printid > 0 THEN
			IF uo_bill.save_ds(arg_msg,True) = 0 THEN
				arg_msg_all = arg_msg_all + '客户:'+ls_cusname+'对数失败,'+arg_msg +'~r~n'
				GOTO _next_cust
			END IF
			
			IF  sys_option_musttake_auditing = 1 then
				IF uo_bill.auditing(uo_bill.salebillid,publ_operator,arg_msg,true)=0 then
					arg_msg_all = arg_msg_all + '客户:'+ls_cusname+'审核失败,'+arg_msg +'~r~n'
					GOTO _next_cust
				END IF
			END IF
		END IF
		//COMMIT;
		
		//已收款没有被对完,即代表没有应收款再对,跳出功能.
		IF ld_takeamt > 0 THEN EXIT
	NEXT
	
	_next_cust:
NEXT

Destroy uo_bill
Destroy ds_take
Destroy ds_msttake


IF Trim(arg_msg_all) <> '' THEN
	OpenWithParm(w_message_err,arg_msg_all)
ELSE
	MessageBox('系统提示','自动对数操作完成')
END IF
cb_retrieve.TriggerEvent(Clicked!)







end event

event ue_date1();//IF THIS.Text = "本日" THEN
	em_firstday.text = string(today(),"yyyy-mm-dd")
	em_endday.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
//	int li_DayNum
//	li_DayNum =  DayNumber(today())
//	em_firstday.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
//	em_endday.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
//	int li_Month, li_Year, li_Days
//	li_Month = Month(today())
//	li_Year = Year(today())
//	li_Days = days_in_month(li_Month, li_Year)
//	em_firstday.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
//	em_endday.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

event ue_date2();//IF THIS.Text = "本日" THEN
//	em_firstday.text = string(today(),"yyyy-mm-dd")
//	em_endday.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
	int li_DayNum
	li_DayNum =  DayNumber(today())
	em_firstday.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
	em_endday.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
//	int li_Month, li_Year, li_Days
//	li_Month = Month(today())
//	li_Year = Year(today())
//	li_Days = days_in_month(li_Month, li_Year)
//	em_firstday.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
//	em_endday.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

event ue_date3();//IF THIS.Text = "本日" THEN
//	em_firstday.text = string(today(),"yyyy-mm-dd")
//	em_endday.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
//	int li_DayNum
//	li_DayNum =  DayNumber(today())
//	em_firstday.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
//	em_endday.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
	int li_Month, li_Year, li_Days
	li_Month = Month(today())
	li_Year = Year(today())
	li_Days = days_in_month(li_Month, li_Year)
	em_firstday.text = string(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
	em_endday.text = string(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF
end event

event ue_date4();//IF THIS.Text = "本日" THEN
//	em_firstday.text = string(today(),"yyyy-mm-dd")
//	em_endday.text = string(today(),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本周" THEN
//	int li_DayNum
//	li_DayNum =  DayNumber(today())
//	em_firstday.text = string(RelativeDate ( today(), 1 - li_DayNum ),"yyyy-mm-dd")
//	em_endday.text = string(RelativeDate ( today(), 7 - li_DayNum ),"yyyy-mm-dd")
//ELSEIF THIS.Text = "本月" THEN
Int li_Month, li_Year, li_Days
li_Month = Month(Today())
li_Year = Year(Today())
IF li_Month = 1 THEN
	li_Month = 12
	li_Year = li_Year - 1
ELSE
	li_Month -= 1
END IF

li_Days = days_in_month(li_Month, li_Year)
em_firstday.Text = String(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
em_endday.Text = String(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")
//END IF

end event

public subroutine wf_refresh_balc ();Long li_row
Long li_id,ll_moneyid,ll_scid
Decimal li_new_balc
dw_pageretr.accepttext()
li_row = dw_pageretr.GetRow()
IF li_row <= 0 THEN RETURN
li_id = dw_pageretr.Object.cusid[li_row]
ll_moneyid = dw_pageretr.Object.v_cus_balcamt_moneyid[li_row]

IF sys_option_scid_msttake_mstpay = 1 THEN
	ll_scid = dw_pageretr.Object.v_cus_balcamt_scid[li_row]
ELSE
	ll_scid = -1
END IF

SELECT sum(v_cus_balcamt.cus_balcamt)
	INTO :li_new_balc
	FROM v_cus_balcamt
	WHERE ( v_cus_balcamt.cusid = :li_id )
	And ( v_cus_balcamt.moneyid = :ll_moneyid ) 
	And ( v_cus_balcamt.scid = :ll_scid or :ll_scid =  -1 );
IF sqlca.SQLCode <> 0 THEN RETURN

IF IsNull(li_new_balc) THEN li_new_balc  = 0.00

dw_pageretr.Object.v_cus_balcamt_cus_balcamt[li_row]  = li_new_balc
dw_pageretr.Object.amt[li_row]  = round(li_new_balc * dw_pageretr.Object.rate[li_row],2)

 
end subroutine

public function integer wf_dispamt ();Int rslt = 0
Long row
dw_msttake.AcceptText()
row = dw_msttake.GetRow()

IF row > 0 And  dw_msttake.GetColumnName( )  = 'checkdata' THEN
	IF dw_msttake.Object.checkdata[row] = 0 THEN
		ins_msttakeamt = ins_msttakeamt+dw_msttake.Object.msttakeamt[row]
		ins_takeamt = ins_takeamt+dw_msttake.Object.takeamt[row]
	ELSE
		ins_msttakeamt = ins_msttakeamt - dw_msttake.Object.msttakeamt[row]
		ins_takeamt = ins_takeamt - dw_msttake.Object.takeamt[row]
	END IF
	st_msttakeamt.Text = '应收金额:'+String(ins_msttakeamt,'####0.##')
	st_takeamt.Text = '已收金额:'+String(ins_takeamt,'####0.##')
	st_balcamt.Text = '结余金额:'+String(ins_msttakeamt - ins_takeamt,'####0.##')
	IF ins_msttakeamt > ins_takeamt THEN
		st_balcamt.TextColor = RGB(253,13,31)
	ELSE
		st_balcamt.TextColor = RGB(0,0,0)
	END IF
ELSE
	wf_initdisp()
END IF


RETURN rslt



end function

public subroutine wf_initdisp ();ins_msttakeamt = 0
ins_takeamt = 0
st_msttakeamt.Text = '应收金额:0'
st_takeamt.Text = '已收金额:0'
st_balcamt.Text = '结余金额:0'

end subroutine

public function integer days_in_month (integer month, integer year);//Most cases are straight forward in that there are a fixed number of 
//days in 11 of the 12 months.  February is, of course, the problem.
//In a leap year February has 29 days, otherwise 28.

Integer		li_DaysInMonth, li_Days[12] = {31,28,31,30,31,30,31,31,30,31,30,31}

// Get the number of days per month for a non leap year.
li_DaysInMonth = li_Days[Month]

// Check for a leap year. 
If Month = 2 Then
	// If the year is a leap year, change the number of days.
	// Leap Year Calculation:
	//	Year divisible by 4, but not by 100, unless it is also divisible by 400
	If ( (Mod(Year,4) = 0 And Mod(Year,100) <> 0) Or (Mod(Year,400) = 0) ) Then
		li_DaysInMonth = 29
	End If
End If

//Return the number of days in the relevant month
Return li_DaysInMonth
end function

on w_musttake.create
int iCurrent
call super::create
this.dw_msttake=create dw_msttake
this.cbx_ifshowall=create cbx_ifshowall
this.st_3=create st_3
this.em_firstday=create em_firstday
this.st_4=create st_4
this.em_endday=create em_endday
this.cb_retrieve=create cb_retrieve
this.cb_add=create cb_add
this.cb_delete=create cb_delete
this.dw_msttakemx=create dw_msttakemx
this.ddlb_1=create ddlb_1
this.cb_1=create cb_1
this.cb_4=create cb_4
this.ddlb_2=create ddlb_2
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.ln_1=create ln_1
this.ln_2=create ln_2
this.ln_5=create ln_5
this.ln_6=create ln_6
this.st_amtdisp=create st_amtdisp
this.st_msttakeamt=create st_msttakeamt
this.st_takeamt=create st_takeamt
this.st_balcamt=create st_balcamt
this.cb_salebill=create cb_salebill
this.ddlb_3=create ddlb_3
this.st_2=create st_2
this.st_5=create st_5
this.st_6=create st_6
this.cbx_ifuse=create cbx_ifuse
this.cb_3=create cb_3
this.cbx_all=create cbx_all
this.pb_em1=create pb_em1
this.pb_em2=create pb_em2
this.pb_2=create pb_2
this.cb_take=create cb_take
this.cbx_1=create cbx_1
this.ln_3=create ln_3
this.ln_4=create ln_4
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_msttake
this.Control[iCurrent+2]=this.cbx_ifshowall
this.Control[iCurrent+3]=this.st_3
this.Control[iCurrent+4]=this.em_firstday
this.Control[iCurrent+5]=this.st_4
this.Control[iCurrent+6]=this.em_endday
this.Control[iCurrent+7]=this.cb_retrieve
this.Control[iCurrent+8]=this.cb_add
this.Control[iCurrent+9]=this.cb_delete
this.Control[iCurrent+10]=this.dw_msttakemx
this.Control[iCurrent+11]=this.ddlb_1
this.Control[iCurrent+12]=this.cb_1
this.Control[iCurrent+13]=this.cb_4
this.Control[iCurrent+14]=this.ddlb_2
this.Control[iCurrent+15]=this.ln_bar
this.Control[iCurrent+16]=this.ln_bar2
this.Control[iCurrent+17]=this.r_bar
this.Control[iCurrent+18]=this.ln_1
this.Control[iCurrent+19]=this.ln_2
this.Control[iCurrent+20]=this.ln_5
this.Control[iCurrent+21]=this.ln_6
this.Control[iCurrent+22]=this.st_amtdisp
this.Control[iCurrent+23]=this.st_msttakeamt
this.Control[iCurrent+24]=this.st_takeamt
this.Control[iCurrent+25]=this.st_balcamt
this.Control[iCurrent+26]=this.cb_salebill
this.Control[iCurrent+27]=this.ddlb_3
this.Control[iCurrent+28]=this.st_2
this.Control[iCurrent+29]=this.st_5
this.Control[iCurrent+30]=this.st_6
this.Control[iCurrent+31]=this.cbx_ifuse
this.Control[iCurrent+32]=this.cb_3
this.Control[iCurrent+33]=this.cbx_all
this.Control[iCurrent+34]=this.pb_em1
this.Control[iCurrent+35]=this.pb_em2
this.Control[iCurrent+36]=this.pb_2
this.Control[iCurrent+37]=this.cb_take
this.Control[iCurrent+38]=this.cbx_1
this.Control[iCurrent+39]=this.ln_3
this.Control[iCurrent+40]=this.ln_4
end on

on w_musttake.destroy
call super::destroy
destroy(this.dw_msttake)
destroy(this.cbx_ifshowall)
destroy(this.st_3)
destroy(this.em_firstday)
destroy(this.st_4)
destroy(this.em_endday)
destroy(this.cb_retrieve)
destroy(this.cb_add)
destroy(this.cb_delete)
destroy(this.dw_msttakemx)
destroy(this.ddlb_1)
destroy(this.cb_1)
destroy(this.cb_4)
destroy(this.ddlb_2)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_5)
destroy(this.ln_6)
destroy(this.st_amtdisp)
destroy(this.st_msttakeamt)
destroy(this.st_takeamt)
destroy(this.st_balcamt)
destroy(this.cb_salebill)
destroy(this.ddlb_3)
destroy(this.st_2)
destroy(this.st_5)
destroy(this.st_6)
destroy(this.cbx_ifuse)
destroy(this.cb_3)
destroy(this.cbx_all)
destroy(this.pb_em1)
destroy(this.pb_em2)
destroy(this.pb_2)
destroy(this.cb_take)
destroy(this.cbx_1)
destroy(this.ln_3)
destroy(this.ln_4)
end on

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
ln_1.endx = this.width
ln_2.endx = this.width
r_bar.width = this.width

long w_width,w_height
w_width = 3600
w_height = 2300


if newwidth < w_width then this.width = w_width
if newheight < w_height then  this.height = w_height

dw_pageretr.height=this.height - (w_height - 1745)
dw_msttake.height=this.height - (w_height - 1104)
dw_msttake.width=this.width - (w_width - 2082)
dw_msttakemx.width=this.width - (w_width - 2082)
dw_msttakemx.y=this.height - (w_height - 1500)


end event

event open;call super::open;uo_take = CREATE uo_musttake
em_firstday.Text = String(Today(),'yyyy-mm')+'-01'
em_endday.Text = String(Today(),'yyyy-mm-dd')
cb_retrieve.TriggerEvent(Clicked!)

end event

event retrieve_pageretr;Boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled


cb_nextpage_enabled = cb_nextpage.Enabled
cb_retrieveall_enabled = cb_retrieveall.Enabled
cb_func_enabled = cb_func.Enabled


cb_nextpage.Enabled = FALSE
cb_retrieveall.Enabled = FALSE
cb_func.Enabled = FALSE


SetPointer(HourGlass!)
Int ls_ifshowall
Int ls_ifuse
IF cbx_ifshowall.Checked THEN
	ls_ifshowall = 0
ELSE
	ls_ifshowall = 1
END IF


IF cbx_ifuse.Checked THEN
	ls_ifuse = 1
ELSE
	ls_ifuse = -1
END IF

IF sys_option_scid_msttake_mstpay = 1 THEN
	dw_pageretr.Retrieve(ls_ifshowall,cur_scid_arr,sys_option_msttake_cusarea,sys_areaid,ls_ifuse,ins_moneyid)
ELSE
	dw_pageretr.Retrieve(ls_ifshowall,sys_option_msttake_cusarea,sys_areaid,ls_ifuse,ins_moneyid)
END IF
IF dw_pageretr.RowCount() > 0 AND dw_pageretr.GetRow() = 0 THEN dw_pageretr.SetRow(1)
SetPointer(Arrow!)

THIS.TriggerEvent('retrieve_pay')
THIS.TriggerEvent("retrieve_paymx")
wf_refresh_balc()


cb_nextpage.Enabled = cb_nextpage_enabled
cb_retrieveall.Enabled = cb_retrieveall_enabled

cb_func.Enabled = cb_func_enabled

end event

event ue_before_open;call super::ue_before_open;IF sys_option_scid_msttake_mstpay = 1 THEN
	dw_pageretr.DataObject = 'dw_msttake_cust_index'
ELSE
	dw_pageretr.DataObject = 'dw_msttake_cust_index_not_scid'
END IF
dw_pageretr.TriggerEvent(Constructor!)
em_pagerowno.TriggerEvent(Constructor!)

dw_msttake.SetTransObject(sqlca)
dw_msttakemx.SetTransObject(sqlca)

if_ue_retr = TRUE
if_ue_filter = TRUE
if_ue_sort = TRUE
end event

event ue_usual_query_retr;String ls_querystrpart = ''
ls_newselect = Lower(ori_oldselect)
IF Trim(sle_usual_query.Text) <> '' THEN
	IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
		ls_querystrpart = "(u_cust.cuscode like '%"+Trim(sle_usual_query.Text)+"%')  or (u_cust.name like '%"+Trim(sle_usual_query.Text)+"%') "
	ELSE
		ls_querystrpart = "(u_cust.cuscode like '"+Trim(sle_usual_query.Text)+"') or (u_cust.name like '"+Trim(sle_usual_query.Text)+"')"
	END IF
//	
	IF Pos(ls_newselect," where ") > 0 THEN
		IF Pos(ls_newselect," group by ") > 0 THEN
		ls_newselect = left(ls_newselect, Pos(ls_newselect," group by ") - 1) + " and ("+ls_querystrpart+')' + mid(ls_newselect, Pos(ls_newselect," group by "))
		else
			ls_newselect = ls_newselect+" and ("+ls_querystrpart+')'
		end if
		
	ELSE
		ls_newselect = ls_newselect+" where ("+ls_querystrpart+')'
	END IF
END IF
wf_retrieveuc(dw_pageretr,ls_newselect,1)
THIS.TriggerEvent('retrieve_pageretr')


end event

event ue_usual_query_filt;call super::ue_usual_query_filt;String obj_expr = ''
IF Trim(sle_usual_query.Text) <> '' THEN
	IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
		obj_expr = obj_expr+'( cuscode like "%'+Trim(sle_usual_query.Text)+'%" ) or ( name like "%'+Trim(sle_usual_query.Text)+'%" ) '
	ELSE
		obj_expr = obj_expr+'( cuscode like "'+Trim(sle_usual_query.Text)+'" ) or ( cuscode like "'+Trim(sle_usual_query.Text)+'" )'
	END IF
	
END IF

dw_pageretr.SetFilter(obj_expr)

dw_pageretr.SetRedraw(FALSE)
dw_pageretr.Filter()
IF dw_pageretr.RowCount() >= 1 THEN
	dw_pageretr.SelectRow(0,FALSE)
	dw_pageretr.SelectRow(1,TRUE)
END IF
dw_pageretr.SetRedraw(TRUE)


end event

event user_key;call super::user_key;IF KeyDown(KeyF1!) THEN
	this.TriggerEvent("ue_help")
end if

end event

type cb_func from w_publ_pageretr`cb_func within w_musttake
integer x = 151
integer y = 0
integer width = 151
integer height = 164
end type

type cb_exit from w_publ_pageretr`cb_exit within w_musttake
integer x = 1344
integer y = 0
integer width = 151
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type sle_usual_query from w_publ_pageretr`sle_usual_query within w_musttake
integer x = 347
integer y = 192
integer width = 553
end type

type cb_retrieveall from w_publ_pageretr`cb_retrieveall within w_musttake
integer x = 1865
integer width = 142
integer height = 164
string normalpicname = "p1.ico"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type em_pagerowno from w_publ_pageretr`em_pagerowno within w_musttake
integer x = 1586
integer y = 44
integer width = 279
end type

type dw_pageretr from w_publ_pageretr`dw_pageretr within w_musttake
integer y = 400
integer width = 1467
integer height = 1740
string title = "客户摘要"
string dataobject = "dw_msttake_cust_index"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;cb_retrieve.triggerevent(clicked!)
wf_initdisp()
end event

event dw_pageretr::clicked;call super::clicked;IF dwo.Name = "ch" THEN
	THIS.SetTabOrder("ch" , 10)
ELSE
	THIS.SetTabOrder("ch" , 0)
END IF

end event

type st_1 from w_publ_pageretr`st_1 within w_musttake
integer x = 14
integer y = 212
integer width = 343
string text = "编号/名称含"
alignment alignment = center!
end type

type cb_nextpage from w_publ_pageretr`cb_nextpage within w_musttake
integer x = 2007
integer width = 64
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_msttake from u_dw_rbtnfilter within w_musttake
integer x = 1472
integer y = 400
integer width = 2075
integer height = 1100
integer taborder = 20
boolean bringtotop = true
boolean titlebar = true
string title = "客户应收帐"
string dataobject = "dw_msttake_index"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean resizable = true
boolean border = false
boolean livescroll = false
borderstyle borderstyle = stylebox!
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)
PARENT.TriggerEvent("retrieve_paymx") 

end event

event rbuttondown;call super::rbuttondown;//String str_clickedobjecttype
//String column_name,column_text_name
//Long FindRow, FindPage
//boolean lb_title = false
//IF titleclick_sort_use THEN
//	str_clickedobjecttype = Left(dwo.TYPE,4)
//	
//	IF str_clickedobjecttype = 'text' THEN
//		column_text_name = dwo.Name
//		
//		IF Len(column_text_name) >= 3 AND Right(column_text_name,2) = '_t' THEN
//			column_name = Left(column_text_name,Len(column_text_name) - 2)
//		ELSE
//			GOTO cend
//		END IF
//		
//		IF Left(Describe(column_name+'.type'),4) <> 'colu' AND &
//			Left(Describe(column_name+'.type'),4) <> 'comp' THEN
//			RETURN
//		END IF
//		IF curDW_sortstr = column_name+' A ' THEN
//			curDW_sortstr = column_name+' D '
//		ELSE
//			curDW_sortstr = column_name+' A '
//		END IF
//		lb_title = true
//	ELSE
//		curDW_sortstr = ''
//	END IF
//	
//	IF curDW_sortstr <> '' THEN
//		THIS.SetSort(curDW_sortstr)
//		THIS.SetRedraw (FALSE)
//		THIS.Sort()
//		THIS.SetRedraw (TRUE)
//	END IF
//END IF 

//cend:
//if lb_title then return
//IF row > 0  THEN THIS.SetRow(row)
//
//arg_ins_xpos = xpos
//arg_ins_ypos = ypos +50
//arg_ins_dwname = dwo.Name
//arg_ins_dwrow = row
//arg_ins_dwtype = dwo.TYPE
//String ls_name
//ls_name = THIS.GetColumnName( )
//IF row > 0 AND arg_ins_dwtype <> 'datawindow' THEN
//	arg_ins_dwdata = String(dwo.primary[row])
//END IF
//
//m_msttake m_print
//m_print = CREATE m_msttake
//m_print.m_0.PopMenu(THIS.X + THIS.PointerX() + 50,THIS.Y + THIS.PointerY() + 50)
end event

event clicked;IF row > 0  THEN
	This.SelectRow(0,False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF
IF dwo.Name = "checkdata" THEN
	This.SetTabOrder("checkdata", 10)
ELSE
	This.SetTabOrder("checkdata", 0)
END IF

end event

event dwnkey;call super::dwnkey;parent.postevent('user_key')
end event

event doubleclicked;call super::doubleclicked;parent.triggerevent('ue_view_bill')
end event

event itemchanged;call super::itemchanged;wf_dispamt()
end event

type cbx_ifshowall from checkbox within w_musttake
integer x = 946
integer y = 304
integer width = 553
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 = "只显示有欠款客户"
boolean checked = true
end type

event clicked;parent.triggerevent('retrieve_pageretr')
end event

type st_3 from statictext within w_musttake
integer x = 2240
integer y = 304
integer width = 197
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
boolean enabled = false
string text = "日期从:"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_firstday from editmask within w_musttake
integer x = 2418
integer y = 288
integer width = 384
integer height = 92
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type st_4 from statictext within w_musttake
integer x = 2903
integer y = 304
integer width = 105
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
boolean enabled = false
string text = "到:"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_endday from editmask within w_musttake
integer x = 3008
integer y = 288
integer width = 384
integer height = 92
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type cb_retrieve from uo_imflatbutton within w_musttake
integer width = 151
integer height = 164
integer taborder = 50
boolean bringtotop = true
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('retrieve_pay')
parent.triggerevent("retrieve_paymx")
wf_refresh_balc()
wf_initdisp()
//wf_dispamt()
end event

type cb_add from uo_imflatbutton within w_musttake
integer x = 306
integer width = 192
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "新建&S"
string normalpicname = "new.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_add')
end event

type cb_delete from uo_imflatbutton within w_musttake
integer x = 494
integer width = 192
integer height = 164
integer taborder = 60
boolean bringtotop = true
string text = "删除&D"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_del')
end event

type dw_msttakemx from u_dw_rbtnfilter within w_musttake
integer x = 1472
integer y = 1500
integer width = 2080
integer height = 644
integer taborder = 50
boolean bringtotop = true
boolean titlebar = true
string title = "应收帐明细帐"
string dataobject = "dw_msttakemx_index"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean resizable = true
boolean border = false
borderstyle borderstyle = stylebox!
end type

type ddlb_1 from uo_ddlb_scid within w_musttake
integer x = 347
integer y = 288
integer width = 553
integer height = 1356
integer taborder = 20
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid=this.uo_scid
cur_scid_arr = THIS.uo_scid_arr
//this.text='[0]总部'
end event

event selectionchanged;call super::selectionchanged;cur_scid = THIS.uo_scid
cur_scid_arr = THIS.uo_scid_arr

IF sys_option_scid_msttake_mstpay = 1 THEN
	PARENT.TriggerEvent('retrieve_pageretr')
END IF
cb_retrieve.TriggerEvent(Clicked!)
end event

type cb_1 from uo_imflatbutton within w_musttake
integer x = 1152
integer width = 192
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "对单&F"
string normalpicname = "update.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_salebill_auto')
end event

type cb_4 from uo_imflatbutton within w_musttake
boolean visible = false
integer x = 1152
integer width = 192
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "查单据"
string normalpicname = "find2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_view_bill')
end event

type ddlb_2 from dropdownlistbox within w_musttake
integer x = 1696
integer y = 288
integer width = 526
integer height = 1124
integer taborder = 30
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
	finishflag = -1
ELSEIF Index = 2 THEN
	finishflag = 0
ELSEIF Index = 3 THEN
	finishflag = 1
END IF
cb_retrieve.TriggerEvent(Clicked!)

end event

type ln_bar from line within w_musttake
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3429
integer endy = 172
end type

type ln_bar2 from line within w_musttake
long linecolor = 16777215
integer linethickness = 4
integer beginy = 176
integer endx = 3429
integer endy = 176
end type

type r_bar from rectangle within w_musttake
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 2866
integer width = 73
integer height = 172
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar2.beginy - 5

end event

type ln_1 from line within w_musttake
long linecolor = 268435456
integer linethickness = 4
integer beginy = 388
integer endx = 3429
integer endy = 388
end type

type ln_2 from line within w_musttake
long linecolor = 16777215
integer linethickness = 4
integer beginy = 396
integer endx = 3429
integer endy = 396
end type

type ln_5 from line within w_musttake
long linecolor = 268435456
integer beginx = 1518
integer endx = 1518
integer endy = 176
end type

type ln_6 from line within w_musttake
long linecolor = 16777215
integer beginx = 1522
integer endx = 1522
integer endy = 180
end type

type st_amtdisp from statictext within w_musttake
integer x = 2085
integer y = 12
integer width = 1157
integer height = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean border = true
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type st_msttakeamt from statictext within w_musttake
integer x = 2098
integer y = 20
integer width = 562
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "应收金额:12345678.90"
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type st_takeamt from statictext within w_musttake
integer x = 2674
integer y = 20
integer width = 562
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "已收金额:12345678.90"
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type st_balcamt from statictext within w_musttake
integer x = 2103
integer y = 96
integer width = 869
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "结余金额:12345678.90"
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type cb_salebill from uo_imflatbutton within w_musttake
boolean visible = false
integer x = 1344
integer width = 242
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "收入单&R"
string normalpicname = "update.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_create_salebill')

//if not f_power_ind(640) then
//	messagebox('提示','你没有使用权限！',information!,ok!)
//	return
//end if
//if cur_id <= 0 then
//	messagebox('提示','请选择客户',information!,ok!)
//	return
//end if
//if cur_scid < 0 then
//	messagebox('提示','请选择分部',information!,ok!)
//	return
//end if
//s_edit_index_tran s_open_tran
//s_open_tran.b_long = cur_id 
//s_open_tran.b_string = ''
//s_open_tran.b_decimal = 0
// s_open_tran.c_long =  cur_scid 
//openwithparm(w_salebill,s_open_tran)
//
//wf_refresh_balc()
//parent.triggerevent('retrieve_pay')

end event

type ddlb_3 from dropdownlistbox within w_musttake
integer x = 1696
integer y = 192
integer width = 526
integer height = 1808
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
borderstyle borderstyle = stylelowered!
end type

event constructor;Long ll_moneyid,i
String ls_name
DECLARE   getmx  CURSOR  FOR
	SELECT moneyid,Name FROM cw_currency Order By moneyid  ;
OPEN getmx;

DO WHILE sqlca.SQLCode = 0
	FETCH getmx INTO :ll_moneyid,:ls_name ;
	IF sqlca.SQLCode <> 0 THEN EXIT
	THIS.AddItem(ls_name+Fill(' ',50)+'['+String(ll_moneyid)+']')
	i++
	if i=1 then 
		this.text=ls_name+Fill(' ',50)+'['+String(ll_moneyid)+']'
		ins_moneyid=ll_moneyid
	end if
LOOP

CLOSE getmx;

THIS.AddItem('全部'+Fill(' ',50)+'['+String(-1)+']')
end event

event selectionchanged; ins_moneyid=Long(Mid ( THIS.Text,Pos(THIS.Text,'[') + 1,Len(THIS.Text) - Pos(THIS.Text,'[') - 1 ))
 parent.triggerevent('retrieve_pageretr')
 cb_retrieve.triggerevent(clicked!)
end event

type st_2 from statictext within w_musttake
integer x = 210
integer y = 304
integer width = 133
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 st_5 from statictext within w_musttake
integer x = 1545
integer y = 304
integer width = 133
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 st_6 from statictext within w_musttake
integer x = 1554
integer y = 212
integer width = 133
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "币种"
alignment alignment = center!
boolean focusrectangle = false
end type

type cbx_ifuse from checkbox within w_musttake
integer x = 946
integer y = 212
integer width = 466
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 = "只显示有效客户"
boolean checked = true
end type

event clicked;parent.triggerevent('retrieve_pageretr')
end event

type cb_3 from uo_imflatbutton within w_musttake
integer x = 878
integer width = 274
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "辅助功能"
string normalpicname = "other.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


menustr = "Text=查单据~tEvent=ue_view_bill"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=对单~tEvent=ue_salebill_auto"
menustr = menustr + "|" + "Text=自动对单~tEvent=ue_salebill_auto_p"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=辅助建立客户对数单~tEvent=ue_create_salebill"
menustr = menustr + "|" + "Text=辅助建立客户收款单~tEvent=ue_create_cusamt"
menustr = menustr + "|" + "Text=辅助建立客户费用单~tEvent=ue_create_reissue"


IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF





end event

type cbx_all from checkbox within w_musttake
integer y = 300
integer width = 229
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;Long i
dw_pageretr.SetRedraw(FALSE)
IF THIS.Checked THEN
	FOR i = 1 TO dw_pageretr.RowCount()
		dw_pageretr.Object.ch[i] = 1
	NEXT
ELSE
	FOR i = 1 TO dw_pageretr.RowCount()
		dw_pageretr.Object.ch[i] = 0
	NEXT
END IF
dw_pageretr.SetRedraw(TRUE)


end event

type pb_em1 from picturebutton within w_musttake
integer x = 2802
integer y = 288
integer width = 101
integer height = 92
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_firstday.triggerevent(rbuttondown!)
end event

type pb_em2 from picturebutton within w_musttake
integer x = 3392
integer y = 288
integer width = 101
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_endday.triggerevent(rbuttondown!)
end event

type pb_2 from picturebutton within w_musttake
integer x = 3493
integer y = 288
integer width = 101
integer height = 92
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date1.BMP"
alignment htextalign = left!
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr


menustr="Text=本日~tEvent=ue_date1"
menustr = menustr + "|" + "Text=本周~tEvent=ue_date2"
menustr = menustr + "|" + "Text=本月~tEvent=ue_date3"
menustr = menustr + "|" + "Text=上月~tEvent=ue_date4"
	
if len(trim(menustr))<>0 then
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
end if
end event

type cb_take from uo_imflatbutton within w_musttake
integer x = 690
integer width = 192
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "收款&A"
string normalpicname = "audit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_take')
end event

type cbx_1 from checkbox within w_musttake
integer x = 2245
integer y = 204
integer width = 229
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;Long i
dw_msttake.SetRedraw(FALSE)
IF THIS.Checked THEN
	FOR i = 1 TO dw_msttake.RowCount()
		IF dw_msttake.Object.finishflag[i]=0 then 
		    dw_msttake.Object.checkdata[i] = 1
		end if
	NEXT
ELSE
	FOR i = 1 TO dw_msttake.RowCount()
		dw_msttake.Object.checkdata[i] = 0
	NEXT
END IF
dw_msttake.SetRedraw(TRUE)


end event

type ln_3 from line within w_musttake
long linecolor = 16777215
integer linethickness = 4
integer beginx = 1522
integer beginy = 188
integer endx = 1522
integer endy = 384
end type

type ln_4 from line within w_musttake
long linecolor = 268435456
integer linethickness = 4
integer beginx = 1518
integer beginy = 180
integer endx = 1518
integer endy = 380
end type