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

$PBExportHeader$w_rp_spt_sub_hz.srw
forward
global type w_rp_spt_sub_hz from w_publ_easyq
end type
type ddlb_1 from dropdownlistbox within w_rp_spt_sub_hz
end type
type ddlb_2 from dropdownlistbox within w_rp_spt_sub_hz
end type
type ddlb_3 from dropdownlistbox within w_rp_spt_sub_hz
end type
type st_2 from statictext within w_rp_spt_sub_hz
end type
type st_1 from statictext within w_rp_spt_sub_hz
end type
type cbx_ifpost from checkbox within w_rp_spt_sub_hz
end type
end forward

global type w_rp_spt_sub_hz from w_publ_easyq
string title = "供应商科目总帐"
long backcolor = 81324524
boolean if_ue_sentdataout = true
ddlb_1 ddlb_1
ddlb_2 ddlb_2
ddlb_3 ddlb_3
st_2 st_2
st_1 st_1
cbx_ifpost cbx_ifpost
end type
global w_rp_spt_sub_hz w_rp_spt_sub_hz

on w_rp_spt_sub_hz.create
int iCurrent
call super::create
this.ddlb_1=create ddlb_1
this.ddlb_2=create ddlb_2
this.ddlb_3=create ddlb_3
this.st_2=create st_2
this.st_1=create st_1
this.cbx_ifpost=create cbx_ifpost
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_1
this.Control[iCurrent+2]=this.ddlb_2
this.Control[iCurrent+3]=this.ddlb_3
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.st_1
this.Control[iCurrent+6]=this.cbx_ifpost
end on

on w_rp_spt_sub_hz.destroy
call super::destroy
destroy(this.ddlb_1)
destroy(this.ddlb_2)
destroy(this.ddlb_3)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.cbx_ifpost)
end on

event open;THIS.TriggerEvent('ue_before_open')
wf_movetocenter()

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

IF Trim(dw_1.DataObject) <> '' THEN
	dw_1.Object.DataWindow.Print.MARGIN.Top = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_TOP",   "110"))
	dw_1.Object.DataWindow.Print.MARGIN.Left = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_LEFT", "96" ))
	
	dw_1.Object.DataWindow.Print.MARGIN.bottom = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_BOTTOM",   "110"))
	dw_1.Object.DataWindow.Print.MARGIN.Right = Integer(ProfileString(sys_inifilename,dw_1.DataObject, "MARGIN_RIGHT", "96" ))
END IF

String  ls_subname,ins_subname
String ls_subid,ins_subid

DECLARE sub_cur CURSOR FOR
	SELECT DISTINCT
	cw_subject.subid,
	cw_subject.name
	FROM cw_subject
	WHERE	cw_subject.accsetid = :sys_accsetid
	AND cw_subject.hsspt = 1
	Order By cw_subject.subid Asc  ;
	
OPEN sub_cur;
FETCH sub_cur INTO :ls_subid,:ls_subname;
ins_subid = ls_subid
ins_subname = ls_subname
DO WHILE sqlca.SQLCode = 0
	ddlb_3.AddItem('['+String(ls_subid)+']' + ls_subname)
	FETCH sub_cur INTO :ls_subid,:ls_subname;
LOOP

ddlb_3.Text = '['+String(ins_subid)+']' + ins_subname
CLOSE sub_cur;

cb_1.TriggerEvent(Clicked!)



end event

type cb_func from w_publ_easyq`cb_func within w_rp_spt_sub_hz
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_spt_sub_hz
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_spt_sub_hz
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_spt_sub_hz
boolean bringtotop = true
end type

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

event cb_1::clicked;call super::clicked;Long ls_firstcmon,ls_lastmon
String ls_subid
Int li_ifpost

IF cbx_ifpost.Checked THEN
	li_ifpost = -1
ELSE
	li_ifpost = 1
END IF

ls_firstcmon = Long(em_1.Text) * 100 + Long(ddlb_1.Text)
ls_lastmon = Long(em_1.Text) * 100 + Long(ddlb_2.Text)

ls_subid = Mid (ddlb_3.Text,Pos(ddlb_3.Text,'[') + 1,Pos(ddlb_3.Text,']') - 2 )
ls_subid = ls_subid + '%'
dw_1.Retrieve(sys_accsetid,ls_subid,ls_firstcmon,ls_lastmon,li_ifpost)


end event

type st_3 from w_publ_easyq`st_3 within w_rp_spt_sub_hz
integer x = 9
integer width = 288
string text = "会计年度："
end type

type st_4 from w_publ_easyq`st_4 within w_rp_spt_sub_hz
integer x = 1074
integer width = 78
string text = "至"
end type

type em_1 from w_publ_easyq`em_1 within w_rp_spt_sub_hz
integer x = 288
integer width = 242
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_rp_spt_sub_hz
integer x = 1856
integer y = 468
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_spt_sub_hz
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_spt_sub_hz
integer x = 951
integer y = 44
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_spt_sub_hz
integer width = 2455
string dataobject = "dw_rp_spt_sub_hz"
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_spt_sub_hz
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_spt_sub_hz
end type

type r_bar from w_publ_easyq`r_bar within w_rp_spt_sub_hz
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_spt_sub_hz
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_spt_sub_hz
end type

type ddlb_1 from dropdownlistbox within w_rp_spt_sub_hz
integer x = 832
integer y = 200
integer width = 229
integer height = 908
integer taborder = 130
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

event selectionchanged;cb_1.TriggerEvent(Clicked!)

end event

type ddlb_2 from dropdownlistbox within w_rp_spt_sub_hz
integer x = 1202
integer y = 200
integer width = 229
integer height = 908
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
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

event selectionchanged;IF Long(ddlb_2.Text) < Long(ddlb_1.Text) THEN
	ddlb_1.Text = ddlb_2.Text
END IF

cb_1.TriggerEvent(Clicked!)

end event

type ddlb_3 from dropdownlistbox within w_rp_spt_sub_hz
integer x = 1710
integer y = 200
integer width = 1399
integer height = 1012
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
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;cb_1.triggerevent(clicked!)
end event

type st_2 from statictext within w_rp_spt_sub_hz
integer x = 1445
integer y = 216
integer width = 288
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "会计科目："
boolean focusrectangle = false
end type

type st_1 from statictext within w_rp_spt_sub_hz
integer x = 539
integer y = 216
integer width = 288
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 = 67108864
string text = "会计期间："
alignment alignment = right!
boolean focusrectangle = false
end type

type cbx_ifpost from checkbox within w_rp_spt_sub_hz
integer x = 3113
integer y = 204
integer width = 466
integer height = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "包括未登帐凭证"
end type

event clicked;Int li_ifpost

IF THIS.Checked THEN
	li_ifpost = 1
ELSE
	li_ifpost = 0
END IF
SetProfileString (sys_inifilename,dw_1.DataObject, "ifpost", String(li_ifpost))


cb_1.TriggerEvent(Clicked!)
end event

event constructor;Int li_ifpost
li_ifpost = Integer(ProfileString (sys_inifilename,dw_1.DataObject, "ifpost", '0'))
IF li_ifpost = 0 THEN
	THIS.Checked = FALSE
ELSE
	THIS.Checked = TRUE
END IF
end event