Q5/ws_objects/Ew_buy.pbl.src/w_buytaskmx_mod.srw

$PBExportHeader$w_buytaskmx_mod.srw
forward
global type w_buytaskmx_mod from w_publ_base
end type
type dw_1 from u_dw_rbtnfilter within w_buytaskmx_mod
end type
type cb_1 from uo_imflatbutton within w_buytaskmx_mod
end type
end forward

global type w_buytaskmx_mod from w_publ_base
integer width = 3511
integer height = 2080
string title = "采购订单明细修改"
boolean minbox = false
windowtype windowtype = response!
event ue_formula_price ( )
dw_1 dw_1
cb_1 cb_1
end type
global w_buytaskmx_mod w_buytaskmx_mod

type variables
String ins_sqlerrtext
Long arg_scid,taskid
Long cusid,moneyid
decimal mrate

end variables

event ue_formula_price();String setting

//setting = dw_1.Describe("u_saletaskmx_enprice.Protect")
//
//IF setting = '1' THEN
//	MessageBox('系统提示','当前销售订单的单价不允许编辑')
//	RETURN
//END IF
//
//Long ll_row
//Decimal ld_price
//String ls_formula
//
//ll_row = dw_1.GetRow()
//
//IF ll_row <= 0 THEN
//	MessageBox('系统提示','请选择要编辑单价公式的明细')
//	RETURN
//END IF
//
//s_edit_index_tran s_formula,s_return
//
//s_formula.b_long = 2
//
//OpenWithParm(w_formula_sale_edit,s_formula)
//
//s_return = Message.PowerObjectParm
//
//ld_price = s_return.c_decimal
//ls_formula = s_return.c_string
//
//if ld_price < 0 then return 
//
//dw_1.Object.u_saletaskmx_enprice[ll_row] = ld_price
//dw_1.Object.u_saletaskmx_priceformula[ll_row] = ls_formula




end event

on w_buytaskmx_mod.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_buytaskmx_mod.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_1)
end on

event open;call super::open;s_edit_index_tran s_open
s_open = Message.PowerObjectParm


dw_1.SetTransObject(sqlca)
dw_1.Retrieve(s_open.b_long,s_open.c_long)

end event

type cb_func from w_publ_base`cb_func within w_buytaskmx_mod
end type

type cb_exit from w_publ_base`cb_exit within w_buytaskmx_mod
integer x = 1929
integer y = 1828
string text = "取消"
integer picsize = 16
end type

type dw_1 from u_dw_rbtnfilter within w_buytaskmx_mod
integer width = 3483
integer height = 1788
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_buytaskmx_mod"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)

end event

event dberror;call super::dberror;ins_sqlerrtext=sqlerrtext
return 1
end event

event doubleclicked;call super::doubleclicked;//If row > 0 Then
//	If dwo.Name = 'u_saletaskmx_priceformula' Or dwo.Name = 'u_saletaskmx_enprice' Then
//		Parent.TriggerEvent('ue_formula_price')
//	End If
//End If
//
end event

type cb_1 from uo_imflatbutton within w_buytaskmx_mod
integer x = 1435
integer y = 1828
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
string text = "保存"
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;int rslt = 1
Long ll_i
long ll_scid,ll_taskid,ll_printid
datetime arg_sptbackdate
string arg_delayreason

dw_1.AcceptText()

FOR ll_i = 1 To dw_1.RowCount()
	
	ll_scid = dw_1.Object.u_buytaskmx_scid[ll_i]
	ll_taskid = dw_1.Object.u_buytaskmx_taskid[ll_i]
	ll_printid = dw_1.Object.u_buytaskmx_printid[ll_i]
	arg_sptbackdate = dw_1.Object.u_buytaskmx_sptbackdate[ll_i]
	arg_delayreason = dw_1.Object.u_buytaskmx_delayreason[ll_i]
	
		UPDATE u_buytaskmx
			SET sptbackdate = :arg_sptbackdate,
			delayreason = :arg_delayreason
			WHERE u_buytaskmx.scid = :ll_scid
			AND u_buytaskmx.taskid = :ll_taskid
			AND u_buytaskmx.printid = :ll_printid;
	IF sqlca.SQLCode <> 0 THEN
		string err_msg
		err_msg = sqlca.SQLErrText
		ROLLBACK;
		MessageBox('Error','第'+String(ll_i)+'行,更新相关采购订单明细失败,'+err_msg)
		RETURN
	END IF
	
NEXT

COMMIT;
MessageBox('系统提示','更新成功!')
Close(Parent)








end event