Q5/ws_objects/cw_account.pbl.src/w_credence_mx.srw

$PBExportHeader$w_credence_mx.srw
forward
global type w_credence_mx from w_publ_easyq
end type
type cbx_checkflag from checkbox within w_credence_mx
end type
type ddlb_cmonth from dropdownlistbox within w_credence_mx
end type
type cb_3 from commandbutton within w_credence_mx
end type
type cb_checkall from commandbutton within w_credence_mx
end type
type em_3 from editmask within w_credence_mx
end type
type em_4 from editmask within w_credence_mx
end type
type st_2 from statictext within w_credence_mx
end type
type st_5 from statictext within w_credence_mx
end type
end forward

global type w_credence_mx from w_publ_easyq
string title = "会计分录序时簿"
cbx_checkflag cbx_checkflag
ddlb_cmonth ddlb_cmonth
cb_3 cb_3
cb_checkall cb_checkall
em_3 em_3
em_4 em_4
st_2 st_2
st_5 st_5
end type
global w_credence_mx w_credence_mx

type variables
uo_credence uo_credence_ins
end variables

on w_credence_mx.create
int iCurrent
call super::create
this.cbx_checkflag=create cbx_checkflag
this.ddlb_cmonth=create ddlb_cmonth
this.cb_3=create cb_3
this.cb_checkall=create cb_checkall
this.em_3=create em_3
this.em_4=create em_4
this.st_2=create st_2
this.st_5=create st_5
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_checkflag
this.Control[iCurrent+2]=this.ddlb_cmonth
this.Control[iCurrent+3]=this.cb_3
this.Control[iCurrent+4]=this.cb_checkall
this.Control[iCurrent+5]=this.em_3
this.Control[iCurrent+6]=this.em_4
this.Control[iCurrent+7]=this.st_2
this.Control[iCurrent+8]=this.st_5
end on

on w_credence_mx.destroy
call super::destroy
destroy(this.cbx_checkflag)
destroy(this.ddlb_cmonth)
destroy(this.cb_3)
destroy(this.cb_checkall)
destroy(this.em_3)
destroy(this.em_4)
destroy(this.st_2)
destroy(this.st_5)
end on

event open;this.triggerevent('ue_before_open')
wf_movetocenter()

dw_1.SetTransObject (sqlca)
dw_1.RBUTTON_FILTER_USE=true  //右键查询功能开关

datawindowchild childdw_subid
dw_1.getchild("cw_credencemx_subid",childdw_subid)
childdw_subid.SetTransObject(sqlca)
ddd_subid_display.sharedata(childdw_subid)


uo_credence_ins = create uo_credence 
cb_1.triggerevent(clicked!)

end event

event ue_before_open;call super::ue_before_open;if_ue_filter = TRUE
if_ue_sort = TRUE
if_ue_sentdataout = TRUE

end event

type cb_func from w_publ_easyq`cb_func within w_credence_mx
integer x = 910
integer y = 728
end type

type cb_exit from w_publ_easyq`cb_exit within w_credence_mx
integer x = 814
end type

type cb_2 from w_publ_easyq`cb_2 within w_credence_mx
integer x = 663
integer taborder = 150
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_credence_mx
integer x = 407
integer taborder = 130
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_credence_mx
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;int ls_checkflag=0
long ls_cmonth

if cbx_checkflag.checked then
	ls_checkflag=-1
else
	ls_checkflag=0
end if

ls_cmonth=long(em_1.text) * 100 + long(ddlb_cmonth.text)
dw_1.retrieve(sys_accsetid,sys_subaccsetid,ls_checkflag,ls_cmonth)
end event

type st_3 from w_publ_easyq`st_3 within w_credence_mx
integer width = 233
string text = "会计年度"
end type

type st_4 from w_publ_easyq`st_4 within w_credence_mx
integer x = 521
integer width = 233
string text = "会计期间"
end type

type em_1 from w_publ_easyq`em_1 within w_credence_mx
integer x = 261
integer width = 261
integer height = 92
integer taborder = 160
long backcolor = 1090519039
string mask = "yyyy"
end type

event em_1::constructor;
this.text=left(string(sys_curyearmon),4)
end event

type em_2 from w_publ_easyq`em_2 within w_credence_mx
integer x = 713
integer y = 396
integer taborder = 170
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_credence_mx
integer x = 1202
integer y = 52
integer taborder = 110
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_credence_mx
integer x = 992
integer y = 56
integer taborder = 120
end type

type dw_1 from w_publ_easyq`dw_1 within w_credence_mx
integer y = 300
integer width = 3314
integer height = 1232
string dataobject = "dw_credence_mx"
end type

event dw_1::doubleclicked;s_edit_index_tran s_tran //翻页功能窗口 传递参数使用
s_tran.if_retrieve_all = TRUE  //是否一次RETRIEVE所有行
s_tran.work_mode = 0            //0-单纯编辑模式, 1-选择模式
s_tran.arg_pkid = 0             //目标定位PKID (备用)
s_tran.arg_string_code = ''     //查询列部分内容,用于初步筛选 

Long li_row

li_row = THIS.GetRow()

IF li_row <= 0 THEN RETURN

s_tran.e_long = THIS.Object.cw_credence_credid[li_row]

OpenWithParm(w_credence_edit,s_tran)




end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_credence_mx
integer x = 1851
integer y = 1292
end type

type sle_cust from w_publ_easyq`sle_cust within w_credence_mx
integer x = 690
integer y = 1292
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_credence_mx
integer x = 1394
integer y = 1308
end type

type st_cust from w_publ_easyq`st_cust within w_credence_mx
integer x = 229
integer y = 1308
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_credence_mx
integer x = 1710
integer y = 788
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_credence_mx
boolean visible = false
integer x = 1079
integer y = 868
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_credence_mx
boolean visible = false
integer x = 1691
integer y = 868
end type

type pb_2 from w_publ_easyq`pb_2 within w_credence_mx
boolean visible = false
integer x = 1801
integer y = 868
end type

type cb_help from w_publ_easyq`cb_help within w_credence_mx
boolean visible = false
integer x = 933
integer y = 1004
boolean enabled = false
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_credence_mx
integer x = 151
end type

type gb_1 from w_publ_easyq`gb_1 within w_credence_mx
end type

type ln_bar from w_publ_easyq`ln_bar within w_credence_mx
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_credence_mx
end type

type r_bar from w_publ_easyq`r_bar within w_credence_mx
end type

type ln_1 from w_publ_easyq`ln_1 within w_credence_mx
end type

type ln_2 from w_publ_easyq`ln_2 within w_credence_mx
end type

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

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

type cbx_checkflag from checkbox within w_credence_mx
integer x = 1024
integer y = 208
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;cb_1.TriggerEvent(Clicked!)

end event

type ddlb_cmonth from dropdownlistbox within w_credence_mx
integer x = 759
integer y = 192
integer width = 261
integer height = 1076
integer taborder = 60
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
string item[] = {"1","2","3","4","5","6","7","8","9","10","11","12"}
borderstyle borderstyle = stylelowered!
end type

event constructor;this.text=string(s_sys_accset.currmon)
end event

type cb_3 from commandbutton within w_credence_mx
integer x = 1847
integer y = 200
integer width = 306
integer height = 80
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "成批反审核"
end type

event clicked;IF NOT f_power_ind(1978,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

String msg_str,arg_msg = ''
Long ls_month

ls_month = Long(String(em_1.Text)) * 100 + Long(ddlb_cmonth.Text)

msg_str = "要成批反审核期间:["+String(ls_month)+"]编号"+String(em_3.Text)+'→'+String(em_4.Text)+"的凭证吗?"
IF MessageBox (publ_operator,msg_str,Question!,YesNo! ) = 2 THEN RETURN


IF Long(em_1.Text + String(Long(ddlb_cmonth.Text),'00')) <> sys_curyearmon THEN
	MessageBox("系统提示","不是当前期间的凭证,不能反审核")
	RETURN
END IF

Long firstcredno,endcredno
firstcredno = Long(em_3.Text)
endcredno = Long(em_4.Text)

IF uo_credence_ins.cancel_check(sys_subaccsetid,ls_month,firstcredno,endcredno,arg_msg,TRUE) = 0 THEN
	MessageBox('Error!',"成批反审核凭证失败>>"+arg_msg)
	RETURN
ELSE
	MessageBox("系统提示",arg_msg)
	cb_1.TriggerEvent(Clicked!)
END IF

end event

type cb_checkall from commandbutton within w_credence_mx
integer x = 1577
integer y = 200
integer width = 265
integer height = 80
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "成批审核"
end type

event clicked;IF NOT f_power_ind(1977,sys_msg_pow) THEN
	MessageBox(publ_operator,'你没有使用权限！')
	RETURN
END IF

string arg_msg=''
long ls_subaccsetid,ls_credid
long row_cnt,i,it_mxt,subaccsetid[],credid[],suc=0
int ls_checkflag

IF MessageBox (publ_operator,"要成批审核序时簿中的凭证吗?",Question!,YesNo! ) = 2 THEN RETURN

row_cnt=dw_1.rowcount()
if row_cnt<=0 then
	messagebox(publ_operator,'没有可审核的凭证!')
	return
end if

for i=1 to row_cnt 
	ls_subaccsetid=dw_1.object.cw_credence_subaccsetid[i]
	ls_credid=dw_1.object.cw_credence_credid[i]
	ls_checkflag=dw_1.object.cw_credence_checkflag[i]
	
	if ls_checkflag=0 then
		if i=1 then
			it_mxt++
			subaccsetid[it_mxt]=ls_subaccsetid
			credid[it_mxt]=ls_credid
		else
			if credid[it_mxt]<>ls_credid then
				it_mxt++
				subaccsetid[it_mxt]=ls_subaccsetid
				credid[it_mxt]=ls_credid
			end if
		end if
	end if
next

row_cnt=upperbound(credid)

if row_cnt<=0 then
	messagebox(publ_operator,'凭证已审完毕或没有可审核的凭证!')
	return
end if

for i=1 to row_cnt
	if i<> row_cnt then
		if uo_credence_ins.check(subaccsetid[i],credid[i],arg_msg,false)=0 then
			messagebox('Error!',arg_msg)
			return		
		end if
		suc++
	else
		if uo_credence_ins.check(subaccsetid[i],credid[i],arg_msg,true)=0 then
			messagebox('Error!',arg_msg)
			return		
		end if
		suc++
	end if
next

messagebox(publ_operator,'审核成功!共审核'+string(suc)+'张凭证')
cb_1.triggerevent(clicked!)



end event

type em_3 from editmask within w_credence_mx
integer x = 2281
integer y = 196
integer width = 247
integer height = 92
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
end type

type em_4 from editmask within w_credence_mx
integer x = 2615
integer y = 196
integer width = 233
integer height = 92
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "99999"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
end type

type st_2 from statictext within w_credence_mx
integer x = 2546
integer y = 208
integer width = 59
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
boolean enabled = false
string text = "至"
boolean focusrectangle = false
end type

type st_5 from statictext within w_credence_mx
integer x = 2171
integer y = 208
integer width = 110
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
boolean enabled = false
string text = "编号"
boolean focusrectangle = false
end type