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

$PBExportHeader$w_aifmb_inquire_add.srw
forward
global type w_aifmb_inquire_add from window
end type
type cb_2 from commandbutton within w_aifmb_inquire_add
end type
type cb_1 from commandbutton within w_aifmb_inquire_add
end type
type dw_1 from datawindow within w_aifmb_inquire_add
end type
end forward

global type w_aifmb_inquire_add from window
integer width = 1961
integer height = 728
boolean titlebar = true
string title = "询价"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
dw_1 dw_1
end type
global w_aifmb_inquire_add w_aifmb_inquire_add

on w_aifmb_inquire_add.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw_1=create dw_1
this.Control[]={this.cb_2,&
this.cb_1,&
this.dw_1}
end on

on w_aifmb_inquire_add.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open;s_aifmb_inquire_add s_tran
s_tran = message.powerobjectparm

long i
i = dw_1.InsertRow(0)
dw_1.object.toentid[i] = s_tran.toentid
dw_1.Object.toent[i] = s_tran.toent
dw_1.Object.productid[i] = s_tran.productid
dw_1.Object.mtrlcode[i] = s_tran.mtrlcode
dw_1.Object.mtrlname[i] = s_tran.mtrlname
dw_1.Object.mtrlmode[i] = s_tran.mtrlmode
dw_1.Object.mprice[i] = s_tran.mprice
dw_1.Object.nprice[i] = s_tran.nprice
dw_1.Object.desiredprice[i] = s_tran.desiredprice
dw_1.Object.quantity[i] = s_tran.quantity
dw_1.Object.unit[i] = s_tran.unit
dw_1.Object.inquireremark[i] = s_tran.inquireremark

end event

type cb_2 from commandbutton within w_aifmb_inquire_add
integer x = 1664
integer y = 504
integer width = 251
integer height = 112
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_aifmb_inquire_add
integer x = 1371
integer y = 504
integer width = 251
integer height = 112
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;Int rslt = 1
String arg_msg = ''
uo_aifmb aifmb
aifmb = Create uo_aifmb

dw_1.AcceptText()
Long i = 1
s_aifmb_inquire_add s_tran
s_tran.toentid = dw_1.Object.toentid[i]
s_tran.toent = dw_1.Object.toent[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.quantity = dw_1.Object.quantity[i]
s_tran.unit = dw_1.Object.unit[i]
s_tran.inquireremark = dw_1.Object.inquireremark[i]

IF aifmb.uf_inquire_add(s_tran, arg_msg) <> 1 THEN
	rslt = 0
	arg_msg = '询价失败,' + arg_msg
	GOTO ext
END IF

ext:
Destroy aifmb
IF rslt = 1 THEN
	Close(Parent)
ELSE
	MessageBox('ERROR', arg_msg)
END IF


end event

type dw_1 from datawindow within w_aifmb_inquire_add
integer width = 1934
integer height = 468
integer taborder = 10
string title = "none"
string dataobject = "dw_aifmb_inquire_add"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type