Q5/ws_objects/Ew_ljfieb.pbl.src/w_buytask_jd_index.srw

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

global type w_buytask_jd_index from w_publ_base
integer width = 3611
integer height = 2208
string title = "订单进度"
boolean minbox = false
windowtype windowtype = response!
dw_1 dw_1
cb_1 cb_1
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_buytask_jd_index w_buytask_jd_index

type variables
string ins_taskcode

uo_ljfieb uo_fieb
end variables

on w_buytask_jd_index.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_1=create cb_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.cb_1
this.Control[iCurrent+3]=this.ln_bar
this.Control[iCurrent+4]=this.ln_bar2
this.Control[iCurrent+5]=this.r_bar
end on

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

event open;call super::open;dw_1.settransobject(sqlca)

ins_taskcode = message.stringparm

dw_1.retrieve(ins_taskcode)
end event

event ue_before_open;call super::ue_before_open;uo_fieb = create uo_ljfieb
uo_fieb.commit_transaction = sys_email_sqlca

end event

event close;call super::close;destroy uo_fieb
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_buytask_jd_index
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_buytask_jd_index
integer x = 379
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_buytask_jd_index
integer x = 5
integer y = 176
integer width = 3575
integer height = 1936
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_buytask_jd_index"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <=0 THEN RETURN
this.selectrow(0,false)
this.selectrow(currentrow,true)
end event

type cb_1 from uo_imflatbutton within w_buytask_jd_index
integer width = 384
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "获取最新进度"
string normalpicname = "update.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
IF  sys_email_sqlca.DBHandle() = 0  THEN
	MessageBox('Error','电子商务数据库连接失败,请检查')
	RETURN
END IF
 

String arg_msg
If uo_fieb.update_buytask_jd(ins_taskcode,arg_msg,True) = 0 Then
	MessageBox('Erorr',arg_msg)
	Return
End If

dw_1.Retrieve(ins_taskcode)
MessageBox('系统提示','获取最新进度成功!')


end event

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

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

type r_bar from rectangle within w_buytask_jd_index
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 1531
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