Q5/ws_objects/cw_bsnobj.pbl.src/w_rp_subject.srw

$PBExportHeader$w_rp_subject.srw
forward
global type w_rp_subject from w_publ_easyq
end type
end forward

global type w_rp_subject from w_publ_easyq
string title = "试算平衡表"
long backcolor = 81324524
end type
global w_rp_subject w_rp_subject

on w_rp_subject.create
call super::create
end on

on w_rp_subject.destroy
call super::destroy
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

datawindowchild childdw_subid
dw_1.GetChild("subid",childdw_subid)
childdw_subid.SetTransObject (sqlca)
childdw_subid.Retrieve(sys_accsetid)

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_rp_subject
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_subject
end type

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

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

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

event cb_1::clicked;call super::clicked;long ls_grade_len
ls_grade_len=f_rst_grade_len(long(em_2.text))
dw_1.retrieve(ls_grade_len,sys_accsetid)
end event

type st_3 from w_publ_easyq`st_3 within w_rp_subject
integer x = 18
integer y = 220
integer width = 288
string text = "科目级别："
end type

type st_4 from w_publ_easyq`st_4 within w_rp_subject
boolean visible = false
integer x = 101
integer y = 676
integer width = 288
string text = "会计期间："
end type

type em_1 from w_publ_easyq`em_1 within w_rp_subject
boolean visible = false
integer x = 306
integer y = 656
integer width = 219
integer height = 92
string mask = "yyyy"
end type

event em_1::constructor;this.text=string(year(today()))
end event

type em_2 from w_publ_easyq`em_2 within w_rp_subject
integer x = 325
integer y = 200
integer width = 215
integer height = 92
string text = "1"
alignment alignment = right!
maskdatatype maskdatatype = decimalmask!
string mask = "#"
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_subject
integer x = 1166
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_subject
integer x = 955
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_subject
integer width = 2382
string dataobject = "dw_pr_subject"
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_subject
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_subject
end type

type r_bar from w_publ_easyq`r_bar within w_rp_subject
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_subject
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_subject
end type