Q5/ws_objects/Ew_define.pbl.src/w_mtrldef_pack_edit.srw

$PBExportHeader$w_mtrldef_pack_edit.srw
forward
global type w_mtrldef_pack_edit from w_publ_base
end type
type cb_savenew from uo_imflatbutton within w_mtrldef_pack_edit
end type
type cb_saveexit from uo_imflatbutton within w_mtrldef_pack_edit
end type
type dw_uc from datawindow within w_mtrldef_pack_edit
end type
type ln_bar from line within w_mtrldef_pack_edit
end type
type ln_bar2 from line within w_mtrldef_pack_edit
end type
type r_bar from rectangle within w_mtrldef_pack_edit
end type
end forward

global type w_mtrldef_pack_edit from w_publ_base
integer width = 2181
integer height = 600
string title = "包件定义"
boolean minbox = false
windowtype windowtype = response!
cb_savenew cb_savenew
cb_saveexit cb_saveexit
dw_uc dw_uc
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_mtrldef_pack_edit w_mtrldef_pack_edit

type variables
s_mtrldef_pack_edit ins_s_pack
end variables

forward prototypes
public subroutine wf_delpz ()
public function integer wf_save (ref string arg_msg)
end prototypes

public subroutine wf_delpz ();
end subroutine

public function integer wf_save (ref string arg_msg);Int rslt = 1

uo_mtrldef lo_mtrldef
lo_mtrldef = Create uo_mtrldef

s_mtrldef_pack s_pack

s_pack.packcode = dw_uc.Object.packcode[1]
s_pack.packname = dw_uc.Object.packname[1]
s_pack.packnum = dw_uc.Object.packnum[1]
s_pack.net_weight = dw_uc.Object.net_weight[1]
s_pack.gross_weight = dw_uc.Object.gross_weight[1]
s_pack.cubage = dw_uc.Object.cubage[1]

s_pack.mtrlid = ins_s_pack.mtrlid
s_pack.printid = ins_s_pack.printid


IF lo_mtrldef.save_pack(s_pack, arg_msg, False) <> 1 THEN
	rslt = 0
	GOTO ext
END IF


ext:
Destroy lo_mtrldef
IF rslt = 1 THEN
	COMMIT;
ELSE
	ROLLBACK;
END IF
RETURN rslt

end function

on w_mtrldef_pack_edit.create
int iCurrent
call super::create
this.cb_savenew=create cb_savenew
this.cb_saveexit=create cb_saveexit
this.dw_uc=create dw_uc
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.cb_savenew
this.Control[iCurrent+2]=this.cb_saveexit
this.Control[iCurrent+3]=this.dw_uc
this.Control[iCurrent+4]=this.ln_bar
this.Control[iCurrent+5]=this.ln_bar2
this.Control[iCurrent+6]=this.r_bar
end on

on w_mtrldef_pack_edit.destroy
call super::destroy
destroy(this.cb_savenew)
destroy(this.cb_saveexit)
destroy(this.dw_uc)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

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

event ue_before_open;call super::ue_before_open;dw_uc.settransobject(sqlca)
end event

event open;call super::open;ins_s_pack = Message.PowerObjectParm
Long ll_row
IF ins_s_pack.printid > 0 THEN
	ll_row = dw_uc.Retrieve(ins_s_pack.mtrlid, ins_s_pack.printid)
	IF ll_row <= 0 THEN
		MessageBox('ERROR', '包件已经被删除,请刷新后再试')
		cb_exit.PostEvent(Clicked!)
	END IF
ELSE
	dw_uc.InsertRow(0)
END IF
dw_uc.SetColumn('packcode')
dw_uc.SetFocus()



end event

type cb_func from w_publ_base`cb_func within w_mtrldef_pack_edit
boolean visible = false
integer x = 1993
end type

type cb_exit from w_publ_base`cb_exit within w_mtrldef_pack_edit
integer x = 658
integer width = 151
integer height = 172
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_savenew from uo_imflatbutton within w_mtrldef_pack_edit
integer width = 329
integer height = 172
integer taborder = 10
boolean bringtotop = true
string text = "保存＆新建"
string normalpicname = "save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_uc.AcceptText()
String arg_msg
IF wf_save(arg_msg) <> 1 THEN
	MessageBox('ERROR', arg_msg)
	RETURN
END IF
MessageBox('系统提示','保存包件定义成功!')

ins_s_pack.printid = 0
dw_uc.Reset()
dw_uc.InsertRow(0)
dw_uc.SetColumn('packcode')
dw_uc.SetFocus()

end event

type cb_saveexit from uo_imflatbutton within w_mtrldef_pack_edit
integer x = 329
integer width = 329
integer height = 172
integer taborder = 10
boolean bringtotop = true
string text = "保存＆退出"
string normalpicname = "save.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_uc.AcceptText()
String arg_msg
IF wf_save(arg_msg) <> 1 THEN
	MessageBox('ERROR', arg_msg)
	RETURN
END IF
MessageBox('系统提示','保存包件定义成功!')
Close(Parent)
end event

type dw_uc from datawindow within w_mtrldef_pack_edit
event dwnkey pbm_dwnkey
integer y = 188
integer width = 2162
integer height = 328
integer taborder = 30
boolean bringtotop = true
string title = "none"
string dataobject = "dw_mtrldef_pack_edit"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event dwnkey;IF Key = keyenter!  THEN
	keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
	keybd_event ( 9, 0, 2, 0 ) // 释放tab 	
	RETURN 1
END IF

end event

type ln_bar from line within w_mtrldef_pack_edit
long linecolor = 268435456
integer linethickness = 4
integer beginx = -142
integer beginy = 176
integer endx = 3182
integer endy = 176
end type

type ln_bar2 from line within w_mtrldef_pack_edit
long linecolor = 16777215
integer linethickness = 4
integer beginy = 180
integer endx = 3323
integer endy = 180
end type

type r_bar from rectangle within w_mtrldef_pack_edit
long linecolor = 16777215
long fillcolor = 1073741824
integer x = 1719
integer width = 73
integer height = 172
end type

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

end event