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

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

global type w_aifmb_inquire_tome from window
integer width = 3410
integer height = 1788
windowtype windowtype = child!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event ue_search ( )
cb_inquire cb_inquire
ole_1 ole_1
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_1 cb_1
em_1 em_1
cb_2 cb_2
em_2 em_2
dw_1 dw_1
r_bar r_bar
ln_bar ln_bar
ln_bar2 ln_bar2
ln_1 ln_1
ln_2 ln_2
ln_3 ln_3
ln_4 ln_4
end type
global w_aifmb_inquire_tome w_aifmb_inquire_tome

event ue_search();Int rslt = 1
String arg_msg

uo_aifmb aifmb
aifmb = Create uo_aifmb
datastore ds_arg
ds_arg = Create datastore

ds_arg.DataObject = 'dw_aifmb_inquire'

IF aifmb.uf_inquire_gettome(ds_arg, arg_msg) <> 1 THEN
	rslt = 0
	arg_msg = '获取报价失败,' + arg_msg
	GOTO ext
END IF

dw_1.Reset()

ds_arg.RowsCopy(1, ds_arg.RowCount(), primary!, dw_1, 1, primary!)

ext:
Destroy aifmb
Destroy ds_arg
IF rslt = 0 THEN
	MessageBox('error', arg_msg)
END IF

end event

on w_aifmb_inquire_tome.create
this.cb_inquire=create cb_inquire
this.ole_1=create ole_1
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_1=create cb_1
this.em_1=create em_1
this.cb_2=create cb_2
this.em_2=create em_2
this.dw_1=create dw_1
this.r_bar=create r_bar
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.Control[]={this.cb_inquire,&
this.ole_1,&
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_1,&
this.em_1,&
this.cb_2,&
this.em_2,&
this.dw_1,&
this.r_bar,&
this.ln_bar,&
this.ln_bar2,&
this.ln_1,&
this.ln_2,&
this.ln_3,&
this.ln_4}
end on

on w_aifmb_inquire_tome.destroy
destroy(this.cb_inquire)
destroy(this.ole_1)
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_1)
destroy(this.em_1)
destroy(this.cb_2)
destroy(this.em_2)
destroy(this.dw_1)
destroy(this.r_bar)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.ln_3)
destroy(this.ln_4)
end on

event resize;ln_bar.EndX = This.Width
ln_bar2.EndX = This.Width
ln_1.EndX = This.Width
ln_2.EndX = This.Width
ln_3.EndX = This.Width
ln_4.EndX = This.Width
r_bar.Width = This.Width


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

type cb_inquire from uo_imflatbutton within w_aifmb_inquire_tome
integer width = 151
integer height = 164
integer taborder = 20
string text = "回复"
boolean cancel = true
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long i

i = dw_1.GetRow()
IF i <= 0 THEN
	MessageBox('提示', '请选择对象')
	RETURN
END IF

s_aifmb_inquire_add s_tran
s_tran.inquireid = dw_1.Object.inquireid[i]
s_tran.froment = dw_1.Object.froment[i]
s_tran.fromuser = dw_1.Object.fromuser[i]
s_tran.productid = dw_1.Object.productid[i]
s_tran.mtrlcode = dw_1.Object.mtrlcode[i]
s_tran.mtrlname = dw_1.Object.mtrlname[i]
s_tran.mtrlmode = dw_1.Object.mtrlmode[i]
s_tran.mprice = dw_1.Object.mprice[i]
s_tran.nprice = dw_1.Object.nprice[i]
s_tran.desiredprice = dw_1.Object.desiredprice[i]
s_tran.unit = dw_1.Object.unit[i]
s_tran.inquireremark = dw_1.Object.inquireremark[i]
MessageBox('', string(dw_1.Object.ToEntID[i]))

openwithparm(w_aifmb_inquire_rsp, s_tran)
end event

type ole_1 from uo_aifmb_webbrowser within w_aifmb_inquire_tome
integer x = 2267
integer width = 1829
integer height = 284
integer taborder = 10
boolean bringtotop = true
string binarykey = "w_aifmb_inquire_tome.win"
end type

type em_3 from editmask within w_aifmb_inquire_tome
integer x = 430
integer y = 184
integer width = 407
integer height = 88
integer taborder = 10
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_inquire_tome
integer x = 846
integer y = 184
integer width = 101
integer height = 92
integer taborder = 10
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_inquire_tome
integer x = 1120
integer y = 184
integer width = 407
integer height = 88
integer taborder = 10
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_inquire_tome
integer x = 1531
integer y = 184
integer width = 101
integer height = 92
integer taborder = 10
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_inquire_tome
integer x = 27
integer y = 204
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_inquire_tome
integer x = 283
integer y = 200
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_inquire_tome
integer x = 969
integer y = 200
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_inquire_tome
integer x = 265
integer y = 308
integer width = 402
integer height = 84
integer taborder = 10
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_inquire_tome
integer x = 78
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_inquire_tome
integer x = 699
integer y = 308
integer width = 242
integer height = 84
integer taborder = 10
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_1 from commandbutton within w_aifmb_inquire_tome
integer x = 1010
integer y = 308
integer width = 242
integer height = 84
integer taborder = 10
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_inquire_tome
integer x = 1253
integer y = 308
integer width = 165
integer height = 84
integer taborder = 10
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_inquire_tome
integer x = 1417
integer y = 308
integer width = 242
integer height = 84
integer taborder = 10
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_inquire_tome
integer x = 1682
integer y = 308
integer width = 165
integer height = 84
integer taborder = 10
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 dw_1 from u_dw_rbtnfilter within w_aifmb_inquire_tome
integer y = 420
integer width = 3099
integer height = 1216
string dataobject = "dw_aifmb_inquire_tome"
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 r_bar from rectangle within w_aifmb_inquire_tome
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 2139
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 ln_bar from line within w_aifmb_inquire_tome
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_inquire_tome
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_inquire_tome
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_inquire_tome
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_inquire_tome
long linecolor = 268435456
integer linethickness = 4
integer beginy = 408
integer endx = 2016
integer endy = 408
end type

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


Start of PowerBuilder Binary Data Section : Do NOT Edit
0Cw_aifmb_inquire_tome.bin 
2100000a00e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe000000060000000000000000000000010000000100000000000010000000000200000001fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffdfffffffefffffffefffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffff0000000100000000000000000000000000000000000000000000000000000000a604275001cef7e300000003000001800000000000500003004f0042005800430054005300450052004d0041000000000000000000000000000000000000000000000000000000000000000000000000000000000102001affffffff00000002ffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000000000009c00000000004200500043004f00530058004f00540041005200450047000000000000000000000000000000000000000000000000000000000000000000000000000000000001001affffffffffffffff000000038856f96111d0340ac0006ba9a205d74f00000000a604275001cef7e3a604275001cef7e3000000000000000000000000004f00430054004e004e00450053005400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001020012ffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000030000009c000000000000000100000002fffffffe0000000400000005fffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
24ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff0000004c00002957000007570000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004c00002957000007570000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1Cw_aifmb_inquire_tome.bin 
End of PowerBuilder Binary Data Section : No Source Expected After This Point