Q5/ws_objects/Ew_aifmb.pbl.src/w_aifmb_mypromotions.srw

$PBExportHeader$w_aifmb_mypromotions.srw
forward
global type w_aifmb_mypromotions from window
end type
type cb_1 from commandbutton within w_aifmb_mypromotions
end type
type em_1 from editmask within w_aifmb_mypromotions
end type
type cb_2 from commandbutton within w_aifmb_mypromotions
end type
type em_2 from editmask within w_aifmb_mypromotions
end type
type tv_1 from uo_aifmb_tv_class within w_aifmb_mypromotions
end type
type cb_edit from uo_imflatbutton within w_aifmb_mypromotions
end type
type cb_del from uo_imflatbutton within w_aifmb_mypromotions
end type
type cb_add from uo_imflatbutton within w_aifmb_mypromotions
end type
type r_bar from rectangle within w_aifmb_mypromotions
end type
type em_3 from editmask within w_aifmb_mypromotions
end type
type pb_1 from picturebutton within w_aifmb_mypromotions
end type
type em_4 from editmask within w_aifmb_mypromotions
end type
type pb_3 from picturebutton within w_aifmb_mypromotions
end type
type st_1 from statictext within w_aifmb_mypromotions
end type
type cbx_begin from checkbox within w_aifmb_mypromotions
end type
type cbx_end from checkbox within w_aifmb_mypromotions
end type
type sle_keyword from singlelineedit within w_aifmb_mypromotions
end type
type st_2 from statictext within w_aifmb_mypromotions
end type
type cb_search from commandbutton within w_aifmb_mypromotions
end type
type cb_exit from uo_imflatbutton within w_aifmb_mypromotions
end type
type dw_1 from u_dw_rbtnfilter within w_aifmb_mypromotions
end type
type cb_refresh from uo_imflatbutton within w_aifmb_mypromotions
end type
type ln_bar from line within w_aifmb_mypromotions
end type
type ln_bar2 from line within w_aifmb_mypromotions
end type
type ln_1 from line within w_aifmb_mypromotions
end type
type ln_2 from line within w_aifmb_mypromotions
end type
type ln_3 from line within w_aifmb_mypromotions
end type
type ln_4 from line within w_aifmb_mypromotions
end type
type ole_1 from uo_aifmb_webbrowser within w_aifmb_mypromotions
end type
end forward

global type w_aifmb_mypromotions from window
integer width = 3419
integer height = 1876
windowtype windowtype = child!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event ue_search ( )
cb_1 cb_1
em_1 em_1
cb_2 cb_2
em_2 em_2
tv_1 tv_1
cb_edit cb_edit
cb_del cb_del
cb_add cb_add
r_bar r_bar
em_3 em_3
pb_1 pb_1
em_4 em_4
pb_3 pb_3
st_1 st_1
cbx_begin cbx_begin
cbx_end cbx_end
sle_keyword sle_keyword
st_2 st_2
cb_search cb_search
cb_exit cb_exit
dw_1 dw_1
cb_refresh cb_refresh
ln_bar ln_bar
ln_bar2 ln_bar2
ln_1 ln_1
ln_2 ln_2
ln_3 ln_3
ln_4 ln_4
ole_1 ole_1
end type
global w_aifmb_mypromotions w_aifmb_mypromotions

type variables
long ins_nodeid_arr[]
end variables

event ue_search();DataStore ds_productcode
ds_productcode = Create DataStore
uo_aifmb = Create uo_aifmb
Int rslt = 1
String arg_msg
DateTime ld_starttime, ld_endtime

IF cbx_begin.Checked THEN
	ld_starttime = DateTime(Date(em_3.Text), Time(0))
ELSE
	SetNull(ld_starttime)
END IF

IF cbx_end.Checked THEN
	ld_endtime = DateTime(Date(em_4.Text), Time(0))
ELSE
	SetNull(ld_endtime)
END IF

ds_productcode.DataObject = 'ds_aifmb_searchpromotions'

Long ll_EntID_arr[]
Long ll_curEntid
IF uo_aifmb.uf_getlocaluserid(ll_curEntid, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

ll_EntID_arr[1] = ll_curEntid

Long pageindex = 0
Long pagesize = 0

pageindex = Long(em_1.Text)
IF pageindex <= 0 THEN
	em_1.Text = '1'
	pageindex = 1
END IF

pagesize = Long(em_2.Text)
IF pagesize <= 0 THEN
	em_2.Text = '10'
	pagesize = 10
END IF

IF uo_aifmb.uf_searchpromotionslist(ld_starttime, ld_endtime, sle_keyword.Text, ins_nodeid_arr, ll_EntID_arr, pageindex, pagesize, ds_productcode, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

dw_1.Reset()
ds_productcode.RowsCopy(1, ds_productcode.RowCount(), Primary!, dw_1, 1, Primary!)

ext:
Destroy ds_productcode
Destroy uo_aifmb
IF rslt = 0 THEN
	MessageBox('ERROR', arg_msg)
END IF




end event

on w_aifmb_mypromotions.create
this.cb_1=create cb_1
this.em_1=create em_1
this.cb_2=create cb_2
this.em_2=create em_2
this.tv_1=create tv_1
this.cb_edit=create cb_edit
this.cb_del=create cb_del
this.cb_add=create cb_add
this.r_bar=create r_bar
this.em_3=create em_3
this.pb_1=create pb_1
this.em_4=create em_4
this.pb_3=create pb_3
this.st_1=create st_1
this.cbx_begin=create cbx_begin
this.cbx_end=create cbx_end
this.sle_keyword=create sle_keyword
this.st_2=create st_2
this.cb_search=create cb_search
this.cb_exit=create cb_exit
this.dw_1=create dw_1
this.cb_refresh=create cb_refresh
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.ln_1=create ln_1
this.ln_2=create ln_2
this.ln_3=create ln_3
this.ln_4=create ln_4
this.ole_1=create ole_1
this.Control[]={this.cb_1,&
this.em_1,&
this.cb_2,&
this.em_2,&
this.tv_1,&
this.cb_edit,&
this.cb_del,&
this.cb_add,&
this.r_bar,&
this.em_3,&
this.pb_1,&
this.em_4,&
this.pb_3,&
this.st_1,&
this.cbx_begin,&
this.cbx_end,&
this.sle_keyword,&
this.st_2,&
this.cb_search,&
this.cb_exit,&
this.dw_1,&
this.cb_refresh,&
this.ln_bar,&
this.ln_bar2,&
this.ln_1,&
this.ln_2,&
this.ln_3,&
this.ln_4,&
this.ole_1}
end on

on w_aifmb_mypromotions.destroy
destroy(this.cb_1)
destroy(this.em_1)
destroy(this.cb_2)
destroy(this.em_2)
destroy(this.tv_1)
destroy(this.cb_edit)
destroy(this.cb_del)
destroy(this.cb_add)
destroy(this.r_bar)
destroy(this.em_3)
destroy(this.pb_1)
destroy(this.em_4)
destroy(this.pb_3)
destroy(this.st_1)
destroy(this.cbx_begin)
destroy(this.cbx_end)
destroy(this.sle_keyword)
destroy(this.st_2)
destroy(this.cb_search)
destroy(this.cb_exit)
destroy(this.dw_1)
destroy(this.cb_refresh)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_3)
destroy(this.ln_4)
destroy(this.ole_1)
end on

event resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
ln_1.endx = this.width
ln_2.endx = this.width
r_bar.width = this.width

tv_1.Height = this.WorkSpaceHeight() - tv_1.Y
dw_1.Height = this.WorkSpaceHeight() - dw_1.Y
dw_1.Width = this.WorkSpaceWidth() - dw_1.X

ole_1.X = this.WorkSpaceWidth() - ole_1.Width
end event

event open;ole_1.Object.Navigate("http://www.fib2b.cn/ad/adforerp.htm?positionid=38")
em_3.Text = string(RelativeDate(Today(), - 7), 'yyyy-MM-dd')
em_4.Text = string(Today(), 'yyyy-MM-dd')

dw_1.SetTransObject(sqlca)
cb_refresh.triggerevent(clicked!)
end event

type cb_1 from commandbutton within w_aifmb_mypromotions
integer x = 891
integer y = 308
integer width = 242
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "上一页"
end type

event clicked;long pageindex
pageindex = long(em_1.Text)
pageindex -= 1
em_1.Text = string(pageindex)

parent.triggerevent('ue_search')
end event

type em_1 from editmask within w_aifmb_mypromotions
integer x = 1134
integer y = 308
integer width = 165
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#,##0"
end type

type cb_2 from commandbutton within w_aifmb_mypromotions
integer x = 1298
integer y = 308
integer width = 242
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "下一页"
end type

event clicked;long pageindex
pageindex = long(em_1.Text)
pageindex += 1
em_1.Text = string(pageindex)

parent.triggerevent('ue_search')
end event

type em_2 from editmask within w_aifmb_mypromotions
integer x = 1563
integer y = 308
integer width = 165
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "10"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#,##0"
end type

type tv_1 from uo_aifmb_tv_class within w_aifmb_mypromotions
integer y = 420
integer width = 841
integer taborder = 40
end type

event ue_selectionchanged;call super::ue_selectionchanged;ins_nodeid_arr = uo_nodeid_arr
IF uo_keyword <> '' THEN
	sle_keyword.Text = uo_keyword
END IF

end event

on tv_1.destroy
call uo_aifmb_tv_class::destroy
end on

type cb_edit from uo_imflatbutton within w_aifmb_mypromotions
integer x = 151
integer width = 151
integer height = 164
integer taborder = 50
string text = "修改"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long row
row = dw_1.GetRow()
IF row <= 0 THEN RETURN

s_aifmb_promotions s_tran
s_tran.PromoID = dw_1.Object.PromoID[row]
s_tran.EntID = dw_1.Object.EntID[row]
s_tran.CreaterID = dw_1.Object.CreaterID[row]
s_tran.CreatTime = dw_1.Object.CreatTime[row]
s_tran.IsAudit = dw_1.Object.IsAudit[row]
s_tran.AuditerID = dw_1.Object.AuditerID[row]
s_tran.AuditTime = dw_1.Object.AuditTime[row]
s_tran.StartTime = dw_1.Object.StartTime[row]
s_tran.EndTime = dw_1.Object.EndTime[row]
s_tran.PromoName = dw_1.Object.PromoName[row]
s_tran.PromoTitle = dw_1.Object.PromoTitle[row]
s_tran.PromoURL = dw_1.Object.PromoURL[row]
s_tran.PromoRange = dw_1.Object.PromoRange[row]
s_tran.PromoRemark = dw_1.Object.PromoRemark[row]
s_tran.PromoCode = dw_1.Object.PromoCode[row]
s_tran.NodeID = dw_1.Object.NodeID[row]
s_tran.ProductID = dw_1.Object.ProductID[row]
s_tran.ProCode = dw_1.Object.ProCode[row]
s_tran.ProName = dw_1.Object.ProName[row]
s_tran.ProMode = dw_1.Object.ProMode[row]
s_tran.ProUnit = dw_1.Object.ProUnit[row]
s_tran.IsPublic = (dw_1.Object.IsPublic[row] = 1)
s_tran.PromoType = dw_1.Object.PromoType[row]
s_tran.MPrice = dw_1.Object.MPrice[row]
s_tran.NPrice = dw_1.Object.NPrice[row]

s_tran.CreaterName = dw_1.Object.CreaterName[row]
s_tran.CreaterPhone = dw_1.Object.CreaterPhone[row]
s_tran.CreaterEmail = dw_1.Object.CreaterEmail[row]
s_tran.CreaterQQ = dw_1.Object.CreaterQQ[row]


OpenWithParm(w_aifmb_addpromotions, s_tran)

s_tran = Message.PowerObjectParm

IF s_tran.PromoID > 0 THEN
	dw_1.Object.PromoID[row] = s_tran.PromoID
	dw_1.Object.EntID[row] = s_tran.EntID
	dw_1.Object.CreaterID[row] = s_tran.CreaterID
	dw_1.Object.CreatTime[row] = s_tran.CreatTime
	dw_1.Object.IsAudit[row] = s_tran.IsAudit
	dw_1.Object.AuditerID[row] = s_tran.AuditerID
	dw_1.Object.AuditTime[row] = s_tran.AuditTime
	dw_1.Object.StartTime[row] = s_tran.StartTime
	dw_1.Object.EndTime[row] = s_tran.EndTime
	dw_1.Object.PromoName[row] = s_tran.PromoName
	dw_1.Object.PromoTitle[row] = s_tran.PromoTitle
	dw_1.Object.PromoURL[row] = s_tran.PromoURL
	dw_1.Object.PromoRange[row] = s_tran.PromoRange
	dw_1.Object.PromoRemark[row] = s_tran.PromoRemark
	dw_1.Object.PromoCode[row] = s_tran.PromoCode
	dw_1.Object.NodeID[row] = s_tran.NodeID
	dw_1.Object.ProductID[row] = s_tran.ProductID
	dw_1.Object.ProCode[row] = s_tran.ProCode
	dw_1.Object.ProName[row] = s_tran.ProName
	dw_1.Object.ProMode[row] = s_tran.ProMode
	dw_1.Object.ProUnit[row] = s_tran.ProUnit
	IF s_tran.IsPublic THEN
		dw_1.Object.IsPublic[row] = 1
	ELSE
		dw_1.Object.IsPublic[row] = 0
	END IF
	dw_1.Object.PromoType[row] = s_tran.PromoType
	dw_1.Object.MPrice[row] = s_tran.MPrice
	dw_1.Object.NPrice[row] = s_tran.NPrice

	dw_1.Object.CreaterName[row] = s_tran.CreaterName
	dw_1.Object.CreaterPhone[row] = s_tran.CreaterPhone
	dw_1.Object.CreaterEmail[row] = s_tran.CreaterEmail
	dw_1.Object.CreaterQQ[row] = s_tran.CreaterQQ

	
END IF



end event

type cb_del from uo_imflatbutton within w_aifmb_mypromotions
integer x = 302
integer width = 151
integer height = 164
integer taborder = 40
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long row
row = dw_1.GetRow()
IF row <= 0 THEN RETURN

Long arr_promoids[]
arr_promoids[1] = dw_1.Object.PromoID[row]

Int rslt = 1
String arg_msg

uo_aifmb = Create uo_aifmb
IF uo_aifmb.uf_delpromotions(arr_promoids, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

ext:
Destroy uo_aifmb
IF rslt = 0 THEN
	MessageBox('ERROR', arg_msg)
ELSE
	dw_1.DeleteRow(row)
	MessageBox('OK', '删除成功')
END IF

end event

type cb_add from uo_imflatbutton within w_aifmb_mypromotions
integer width = 151
integer height = 164
integer taborder = 30
string text = "新建"
string normalpicname = "new.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Open(w_aifmb_addpromotions)

s_aifmb_promotions s_tran
s_tran = Message.PowerObjectParm
Long row
IF s_tran.PromoID > 0 THEN
	row = dw_1.InsertRow(0)
	
	dw_1.Object.PromoID[row] = s_tran.PromoID
	dw_1.Object.EntID[row] = s_tran.EntID
	dw_1.Object.CreaterID[row] = s_tran.CreaterID
	dw_1.Object.CreatTime[row] = s_tran.CreatTime
	dw_1.Object.IsAudit[row] = s_tran.IsAudit
	dw_1.Object.AuditerID[row] = s_tran.AuditerID
	dw_1.Object.AuditTime[row] = s_tran.AuditTime
	dw_1.Object.StartTime[row] = s_tran.StartTime
	dw_1.Object.EndTime[row] = s_tran.EndTime
	dw_1.Object.PromoName[row] = s_tran.PromoName
	dw_1.Object.PromoTitle[row] = s_tran.PromoTitle
	dw_1.Object.PromoURL[row] = s_tran.PromoURL
	dw_1.Object.PromoRange[row] = s_tran.PromoRange
	dw_1.Object.PromoRemark[row] = s_tran.PromoRemark
	dw_1.Object.PromoCode[row] = s_tran.PromoCode
	dw_1.Object.NodeID[row] = s_tran.NodeID
	dw_1.Object.ProductID[row] = s_tran.ProductID
	dw_1.Object.ProCode[row] = s_tran.ProCode
	dw_1.Object.ProName[row] = s_tran.ProName
	dw_1.Object.ProMode[row] = s_tran.ProMode
	dw_1.Object.ProUnit[row] = s_tran.ProUnit
	IF s_tran.IsPublic THEN
		dw_1.Object.IsPublic[row] = 1
	ELSE
		dw_1.Object.IsPublic[row] = 0
	END IF
	dw_1.Object.PromoType[row] = s_tran.PromoType
	dw_1.Object.MPrice[row] = s_tran.MPrice
	dw_1.Object.NPrice[row] = s_tran.NPrice

	dw_1.Object.CreaterName[row] = s_tran.CreaterName
	dw_1.Object.CreaterPhone[row] = s_tran.CreaterPhone
	dw_1.Object.CreaterEmail[row] = s_tran.CreaterEmail
	dw_1.Object.CreaterQQ[row] = s_tran.CreaterQQ
	
END IF


end event

type r_bar from rectangle within w_aifmb_mypromotions
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 2089
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_3.beginy - 5

end event

type em_3 from editmask within w_aifmb_mypromotions
integer x = 416
integer y = 188
integer width = 407
integer height = 88
integer taborder = 30
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-mm-dd"
boolean spin = true
end type

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type pb_1 from picturebutton within w_aifmb_mypromotions
integer x = 832
integer y = 188
integer width = 101
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_3.triggerevent(rbuttondown!)
end event

type em_4 from editmask within w_aifmb_mypromotions
integer x = 1106
integer y = 188
integer width = 407
integer height = 88
integer taborder = 30
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-mm-dd"
boolean spin = true
end type

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type pb_3 from picturebutton within w_aifmb_mypromotions
integer x = 1518
integer y = 188
integer width = 101
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_4.triggerevent(rbuttondown!)
end event

type st_1 from statictext within w_aifmb_mypromotions
integer x = 14
integer y = 208
integer width = 247
integer height = 48
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

event constructor;this.backcolor = 14215660
end event

type cbx_begin from checkbox within w_aifmb_mypromotions
integer x = 270
integer y = 204
integer width = 174
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = ">="
end type

event constructor;this.backcolor = 14215660
end event

type cbx_end from checkbox within w_aifmb_mypromotions
integer x = 955
integer y = 204
integer width = 174
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "<="
end type

event constructor;this.backcolor = 14215660
end event

type sle_keyword from singlelineedit within w_aifmb_mypromotions
integer x = 187
integer y = 308
integer width = 402
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_aifmb_mypromotions
integer y = 324
integer width = 183
integer height = 48
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

event constructor;this.backcolor = 14215660
end event

type cb_search from commandbutton within w_aifmb_mypromotions
integer x = 622
integer y = 308
integer width = 242
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "查找"
end type

event clicked;parent.triggerevent('ue_search')
end event

type cb_exit from uo_imflatbutton within w_aifmb_mypromotions
integer x = 603
integer width = 151
integer height = 164
integer taborder = 20
string text = "退出"
string normalpicname = "exit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;close(parent)
end event

type dw_1 from u_dw_rbtnfilter within w_aifmb_mypromotions
integer x = 841
integer y = 420
integer width = 1691
integer height = 1360
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_aifmb_searchpromotions"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event clicked;call super::clicked;IF row > 0 THEN
	This.SetRow(row)
END IF

end event

event rowfocuschanged;call super::rowfocuschanged;This.SelectRow(0,False)
IF currentrow > 0 THEN
	This.SelectRow(currentrow,True)
END IF

end event

type cb_refresh from uo_imflatbutton within w_aifmb_mypromotions
integer x = 453
integer width = 151
integer height = 164
integer taborder = 10
string text = "刷新"
string normalpicname = "refresh.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;tv_1.uf_build_tree()
end event

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

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

type ln_1 from line within w_aifmb_mypromotions
long linecolor = 268435456
integer linethickness = 4
integer beginy = 288
integer endx = 2016
integer endy = 288
end type

type ln_2 from line within w_aifmb_mypromotions
long linecolor = 16777215
integer linethickness = 4
integer beginy = 292
integer endx = 2048
integer endy = 292
end type

type ln_3 from line within w_aifmb_mypromotions
long linecolor = 268435456
integer linethickness = 4
integer beginy = 408
integer endx = 2034
integer endy = 408
end type

type ln_4 from line within w_aifmb_mypromotions
long linecolor = 16777215
integer linethickness = 4
integer beginy = 412
integer endx = 2066
integer endy = 412
end type

type ole_1 from uo_aifmb_webbrowser within w_aifmb_mypromotions
integer x = 2450
integer width = 1829
integer height = 284
integer taborder = 40
boolean bringtotop = true
string binarykey = "w_aifmb_mypromotions.win"
end type


Start of PowerBuilder Binary Data Section : Do NOT Edit
0Bw_aifmb_mypromotions.bin 
2B00000a00e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe000000060000000000000000000000010000000100000000000010000000000200000001fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffdfffffffefffffffefffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffff00000001000000000000000000000000000000000000000000000000000000008fe3bb4001cee43100000003000001800000000000500003004f0042005800430054005300450052004d0041000000000000000000000000000000000000000000000000000000000000000000000000000000000102001affffffff00000002ffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000000000009c00000000004200500043004f00530058004f00540041005200450047000000000000000000000000000000000000000000000000000000000000000000000000000000000001001affffffffffffffff000000038856f96111d0340ac0006ba9a205d74f000000008fe3bb4001cee4318fe3bb4001cee431000000000000000000000000004f00430054004e004e00450053005400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001020012ffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000030000009c000000000000000100000002fffffffe0000000400000005fffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
24ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff0000004c00002957000007570000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004c00002957000007570000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1Bw_aifmb_mypromotions.bin 
End of PowerBuilder Binary Data Section : No Source Expected After This Point