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

$PBExportHeader$w_rp_multibar.srw
forward
global type w_rp_multibar from w_publ_base
end type
type gb_2 from groupbox within w_rp_multibar
end type
type gb_1 from groupbox within w_rp_multibar
end type
type dw_multibar from datawindow within w_rp_multibar
end type
type cb_1 from uo_imflatbutton within w_rp_multibar
end type
type cb_2 from uo_imflatbutton within w_rp_multibar
end type
type cb_3 from uo_imflatbutton within w_rp_multibar
end type
type st_3 from statictext within w_rp_multibar
end type
type ddlb_firstmon from dropdownlistbox within w_rp_multibar
end type
type st_4 from statictext within w_rp_multibar
end type
type ddlb_lastmon from dropdownlistbox within w_rp_multibar
end type
type cbx_1 from checkbox within w_rp_multibar
end type
type cb_5 from uo_imflatbutton within w_rp_multibar
end type
type cb_12 from uo_imflatbutton within w_rp_multibar
end type
type st_1 from statictext within w_rp_multibar
end type
type em_yearmon from editmask within w_rp_multibar
end type
end forward

global type w_rp_multibar from w_publ_base
integer width = 1829
integer height = 1632
string title = "多栏帐分类明细帐"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 83162356
gb_2 gb_2
gb_1 gb_1
dw_multibar dw_multibar
cb_1 cb_1
cb_2 cb_2
cb_3 cb_3
st_3 st_3
ddlb_firstmon ddlb_firstmon
st_4 st_4
ddlb_lastmon ddlb_lastmon
cbx_1 cbx_1
cb_5 cb_5
cb_12 cb_12
st_1 st_1
em_yearmon em_yearmon
end type
global w_rp_multibar w_rp_multibar

type variables
s_rp_multibar s_rp_multibar
end variables

forward prototypes
public subroutine wf_retrieve ()
end prototypes

public subroutine wf_retrieve ();dw_multibar.retrieve(sys_accsetid)
end subroutine

on w_rp_multibar.create
int iCurrent
call super::create
this.gb_2=create gb_2
this.gb_1=create gb_1
this.dw_multibar=create dw_multibar
this.cb_1=create cb_1
this.cb_2=create cb_2
this.cb_3=create cb_3
this.st_3=create st_3
this.ddlb_firstmon=create ddlb_firstmon
this.st_4=create st_4
this.ddlb_lastmon=create ddlb_lastmon
this.cbx_1=create cbx_1
this.cb_5=create cb_5
this.cb_12=create cb_12
this.st_1=create st_1
this.em_yearmon=create em_yearmon
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.gb_2
this.Control[iCurrent+2]=this.gb_1
this.Control[iCurrent+3]=this.dw_multibar
this.Control[iCurrent+4]=this.cb_1
this.Control[iCurrent+5]=this.cb_2
this.Control[iCurrent+6]=this.cb_3
this.Control[iCurrent+7]=this.st_3
this.Control[iCurrent+8]=this.ddlb_firstmon
this.Control[iCurrent+9]=this.st_4
this.Control[iCurrent+10]=this.ddlb_lastmon
this.Control[iCurrent+11]=this.cbx_1
this.Control[iCurrent+12]=this.cb_5
this.Control[iCurrent+13]=this.cb_12
this.Control[iCurrent+14]=this.st_1
this.Control[iCurrent+15]=this.em_yearmon
end on

on w_rp_multibar.destroy
call super::destroy
destroy(this.gb_2)
destroy(this.gb_1)
destroy(this.dw_multibar)
destroy(this.cb_1)
destroy(this.cb_2)
destroy(this.cb_3)
destroy(this.st_3)
destroy(this.ddlb_firstmon)
destroy(this.st_4)
destroy(this.ddlb_lastmon)
destroy(this.cbx_1)
destroy(this.cb_5)
destroy(this.cb_12)
destroy(this.st_1)
destroy(this.em_yearmon)
end on

event open;call super::open;dw_multibar.settransobject(sqlca)
wf_retrieve()

end event

event close;CloseWithReturn ( this, s_rp_multibar )
end event

type cb_func from w_publ_base`cb_func within w_rp_multibar
boolean visible = false
integer x = 1335
integer y = 620
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_rp_multibar
integer x = 1399
integer y = 1372
string text = "取消"
end type

event cb_exit::clicked;s_rp_multibar.relid=0
close(parent)
end event

type gb_2 from groupbox within w_rp_multibar
integer x = 151
integer y = 784
integer width = 1477
integer height = 492
integer taborder = 110
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "查询范围"
end type

type gb_1 from groupbox within w_rp_multibar
integer x = 82
integer y = 60
integer width = 1646
integer height = 1280
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "多栏式明细帐项目"
end type

type dw_multibar from datawindow within w_rp_multibar
integer x = 151
integer y = 120
integer width = 1143
integer height = 616
integer taborder = 40
boolean bringtotop = true
string dataobject = "dw_multibar"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event rowfocuschanged;if currentrow<=0 then return
this.selectrow(0,false)
this.selectrow(currentrow,true)
end event

type cb_1 from uo_imflatbutton within w_rp_multibar
integer x = 1339
integer y = 132
integer width = 288
integer height = 96
integer taborder = 50
boolean bringtotop = true
string text = "增加"
string normalpicname = "new.bmp"
end type

event clicked;openwithparm(w_rp_multibarmx,0)
end event

type cb_2 from uo_imflatbutton within w_rp_multibar
integer x = 1339
integer y = 260
integer width = 288
integer height = 96
integer taborder = 80
boolean bringtotop = true
string text = "修改"
string normalpicname = "open.bmp"
end type

event clicked;long li_row,li_multibarid
li_row=dw_multibar.getrow()
if li_row<=0 then
	messagebox(publ_operator,'请选择要修改的多栏帐')
	return
end if
li_multibarid=dw_multibar.object.multibarid[dw_multibar.getrow()]

openwithparm(w_rp_multibarmx,li_multibarid)
end event

type cb_3 from uo_imflatbutton within w_rp_multibar
integer x = 1339
integer y = 388
integer width = 288
integer height = 96
integer taborder = 90
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
end type

event clicked;IF MessageBox ("IF","是否确定要删除当前多栏帐?",Question!,YesNo! ) = 2 THEN RETURN

long li_row,li_multibarid
li_row=dw_multibar.getrow()
if li_row<=0 then
	messagebox(publ_operator,'请选择要删除的多栏帐')
	return
end if
li_multibarid=dw_multibar.object.multibarid[li_row]
delete from cw_multibarmx where accsetid=:sys_accsetid and multibarid=:li_multibarid;
if sqlca.sqlcode<>0 then
	rollback;
	messagebox(publ_operator,'删除多栏帐明细项目失败')
	return
end if

delete from cw_multibar where accsetid=:sys_accsetid and multibarid=:li_multibarid;
if sqlca.sqlcode<>0 then
	rollback;
	messagebox(publ_operator,'删除多栏帐失败')
	return
end if

commit;
wf_retrieve()

end event

type st_3 from statictext within w_rp_multibar
integer x = 224
integer y = 1008
integer width = 288
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 = 67108864
boolean enabled = false
string text = "会计期间："
boolean focusrectangle = false
end type

type ddlb_firstmon from dropdownlistbox within w_rp_multibar
integer x = 498
integer y = 996
integer width = 274
integer height = 908
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 st_4 from statictext within w_rp_multibar
integer x = 809
integer y = 1008
integer width = 69
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 = 67108864
boolean enabled = false
string text = "至"
boolean focusrectangle = false
end type

type ddlb_lastmon from dropdownlistbox within w_rp_multibar
integer x = 914
integer y = 996
integer width = 274
integer height = 908
integer taborder = 70
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_lastmon.text)<long(ddlb_firstmon.text) then
	ddlb_firstmon.text=ddlb_lastmon.text
end if
end event

type cbx_1 from checkbox within w_rp_multibar
integer x = 224
integer y = 1140
integer width = 466
integer height = 76
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

type cb_5 from uo_imflatbutton within w_rp_multibar
integer x = 978
integer y = 1372
integer width = 311
integer height = 96
integer taborder = 100
boolean bringtotop = true
string normalpicname = "ok.bmp"
end type

event clicked;long li_row
li_row=dw_multibar.getrow()

if li_row<=0 then
	messagebox(publ_operator,'请选择多栏帐')
	return
end if

s_rp_multibar.relid=dw_multibar.object.multibarid[li_row]
s_rp_multibar.relname=dw_multibar.object.multibarname[li_row]
s_rp_multibar.subid=dw_multibar.object.subid[li_row]
s_rp_multibar.year=long(em_yearmon.text)
s_rp_multibar.firstmon=long(ddlb_firstmon.text)
s_rp_multibar.lastmon=long(ddlb_lastmon.text)
if cbx_1.checked then
	s_rp_multibar.no_post=-1
else
	s_rp_multibar.no_post=1
end if

close(parent)

end event

type cb_12 from uo_imflatbutton within w_rp_multibar
integer x = 521
integer y = 1372
integer width = 370
integer height = 96
integer taborder = 10
boolean bringtotop = true
string text = "打印封面"
string normalpicname = "print.bmp"
end type

event clicked;S_print_MSG LS_PRMSG

LS_PRMSG.obj_dwNAME = 'dw_rp_fm_multibar'
LS_PRMSG.TAG_TEXT = '封面'
LS_PRMSG.FILTER_STRING = ''
LS_PRMSG.retr_pram_falg = -1
LS_PRMSG.PAGECH_FLAG = 0

OpenWithParm(w_publ_preview,LS_PRMSG)

end event

type st_1 from statictext within w_rp_multibar
integer x = 224
integer y = 884
integer width = 288
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 = 67108864
string text = "会计年度："
boolean focusrectangle = false
end type

type em_yearmon from editmask within w_rp_multibar
integer x = 498
integer y = 864
integer width = 247
integer height = 88
integer taborder = 20
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"
boolean spin = true
string minmax = "1900~~"
end type

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