Q5/ws_objects/Ew_sale.pbl.src/w_saletaskmx_stopqty_edit.srw

$PBExportHeader$w_saletaskmx_stopqty_edit.srw
forward
global type w_saletaskmx_stopqty_edit from w_publ_base
end type
type dw_1 from datawindow within w_saletaskmx_stopqty_edit
end type
type cb_1 from uo_imflatbutton within w_saletaskmx_stopqty_edit
end type
end forward

global type w_saletaskmx_stopqty_edit from w_publ_base
integer width = 2016
integer height = 1164
string title = "销售订单明细终止"
boolean minbox = false
windowtype windowtype = response!
dw_1 dw_1
cb_1 cb_1
end type
global w_saletaskmx_stopqty_edit w_saletaskmx_stopqty_edit

type variables
long ins_scid,ins_taskid,ins_printid
s_edit_index_tran s_inscust
end variables

on w_saletaskmx_stopqty_edit.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_1=create cb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_1
end on

on w_saletaskmx_stopqty_edit.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_1)
end on

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



s_inscust = Message.PowerObjectParm

ins_scid = s_inscust.b_long
ins_taskid = s_inscust.c_long
ins_printid = s_inscust.d_long

dw_1.retrieve(ins_scid,ins_taskid,ins_printid)
end event

type cb_func from w_publ_base`cb_func within w_saletaskmx_stopqty_edit
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_saletaskmx_stopqty_edit
integer x = 1093
integer y = 952
integer width = 302
integer height = 100
integer taborder = 40
end type

type dw_1 from datawindow within w_saletaskmx_stopqty_edit
integer x = 32
integer y = 24
integer width = 1947
integer height = 904
integer taborder = 10
boolean bringtotop = true
string title = "none"
string dataobject = "dw_saletaskmx_stopqty_edit"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_1 from uo_imflatbutton within w_saletaskmx_stopqty_edit
integer x = 594
integer y = 952
integer taborder = 30
boolean bringtotop = true
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;uo_saletask uo_sale
uo_sale = Create uo_saletask
uo_sale.commit_transaction = sqlca

dw_1.AcceptText()

Int rslt = 1
Long ll_row
Decimal ld_stopqty,ld_rebuyqty
String ls_stopreason,ls_mtrlcode
String arg_msg

ll_row = dw_1.GetRow()

ld_stopqty = dw_1.Object.u_saletaskmx_stopqty[ll_row]
ls_stopreason = dw_1.Object.u_saletaskmx_stopreason[ll_row]
ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ll_row]

IF uo_sale.uof_stopqty(ins_scid,ins_taskid,ins_printid,ld_stopqty,ls_stopreason,arg_msg,True) = 0 THEN
	MessageBox('Error',arg_msg)
	rslt = 0
	GOTO ext
END IF

ext:
Destroy uo_sale

IF rslt = 1 THEN
	MessageBox('系统提示','操作成功!')
	Close(Parent)
END IF





end event