Q5/ws_objects/Ew_epmmsg.pbl.src/w_msg_bill.srw

$PBExportHeader$w_msg_bill.srw
forward
global type w_msg_bill from w_publ_base
end type
type dw_1 from u_dw_rbtnfilter within w_msg_bill
end type
type ln_bar from line within w_msg_bill
end type
type ln_bar2 from line within w_msg_bill
end type
type r_bar from rectangle within w_msg_bill
end type
end forward

global type w_msg_bill from w_publ_base
integer width = 2258
integer height = 1464
string title = "单据消息确认"
dw_1 dw_1
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_msg_bill w_msg_bill

on w_msg_bill.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.ln_bar
this.Control[iCurrent+3]=this.ln_bar2
this.Control[iCurrent+4]=this.r_bar
end on

on w_msg_bill.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

event open;call super::open;String ls_billcode
ls_billcode = Message.StringParm

dw_1.SetTransObject(sqlca)
dw_1.Retrieve(ls_billcode)

end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width
end event

type cb_func from w_publ_base`cb_func within w_msg_bill
boolean visible = false
integer x = 1577
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_msg_bill
integer x = 0
integer width = 151
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_1 from u_dw_rbtnfilter within w_msg_bill
integer y = 180
integer width = 2199
integer height = 1164
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_objdpm_user_cmmt_bill"
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

type ln_bar from line within w_msg_bill
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 2007
integer endy = 172
end type

type ln_bar2 from line within w_msg_bill
long linecolor = 16777215
integer linethickness = 4
integer beginy = 176
integer endx = 2039
integer endy = 176
end type

type r_bar from rectangle within w_msg_bill
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 667
integer width = 146
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event