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

$PBExportHeader$w_initbalance_rpt.srw
forward
global type w_initbalance_rpt from w_publ_base
end type
type dw_1 from datawindow within w_initbalance_rpt
end type
end forward

global type w_initbalance_rpt from w_publ_base
integer x = 0
integer y = 0
integer width = 3611
integer height = 2300
string title = "期初"
long backcolor = 81912289
dw_1 dw_1
end type
global w_initbalance_rpt w_initbalance_rpt

on w_initbalance_rpt.create
int iCurrent
call super::create
this.dw_1=create dw_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
end on

on w_initbalance_rpt.destroy
call super::destroy
destroy(this.dw_1)
end on

event open;call super::open;dw_1.settransobject(sqlca)
dw_1.retrieve(sys_accsetid,s_sys_accset.step1)
end event

type cb_func from w_publ_base`cb_func within w_initbalance_rpt
end type

type cb_exit from w_publ_base`cb_exit within w_initbalance_rpt
integer x = 3209
integer y = 2068
end type

type dw_1 from datawindow within w_initbalance_rpt
integer width = 3593
integer height = 2036
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_initbalance_rpt"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type