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

$PBExportHeader$w_outware_sale_mod_th.srw
forward
global type w_outware_sale_mod_th from w_publ_base
end type
type dw_uc from datawindow within w_outware_sale_mod_th
end type
type cb_1 from uo_imflatbutton within w_outware_sale_mod_th
end type
end forward

global type w_outware_sale_mod_th from w_publ_base
integer width = 2400
integer height = 1472
string title = "销售退货单修改结算方式"
boolean minbox = false
windowtype windowtype = response!
dw_uc dw_uc
cb_1 cb_1
end type
global w_outware_sale_mod_th w_outware_sale_mod_th

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

on w_outware_sale_mod_th.destroy
call super::destroy
destroy(this.dw_uc)
destroy(this.cb_1)
end on

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

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

end event

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

type cb_exit from w_publ_base`cb_exit within w_outware_sale_mod_th
integer x = 2030
integer y = 1272
end type

type dw_uc from datawindow within w_outware_sale_mod_th
integer width = 2400
integer height = 1252
integer taborder = 30
boolean bringtotop = true
string title = "none"
string dataobject = "dw_outware_sale_mod_th"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_1 from uo_imflatbutton within w_outware_sale_mod_th
integer x = 1399
integer y = 1272
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
end type

event clicked;call super::clicked;Long uc_row
DateTime ldt_outdate,ldt_outdate_ori,ldt_balcdate
Long ll_scid,ll_outwareid,ll_storageid

dw_uc.AcceptText()

uc_row = dw_uc.GetRow()
If uc_row <= 0 Then
	MessageBox('系统提示','请选定当前目标单据!')
	Return
End If

ll_scid = dw_uc.Object.u_outware_scid[uc_row]
ll_outwareid = dw_uc.Object.u_outware_outwareid[uc_row]
ll_storageid = dw_uc.Object.u_outware_storageid[uc_row]

If Not dw_uc.Object.u_outware_outdate[uc_row] > DateTime(2000-01-01,Now()) Then
	MessageBox('系统提示','不合理发生时间')
	dw_uc.SetFocus()
	dw_uc.SetColumn("u_outware_outdate")
	Return
End If

If dw_uc.Object.u_outware_relint_1[uc_row] = 0 Then
	MessageBox('系统提示','请选择结算方式')
	dw_uc.SetFocus()
	dw_uc.SetColumn("u_outware_relint_1")
	Return
End If

If dw_uc.Update() = -1 Then
	Rollback;
	MessageBox('系统提示','保存资料失败,请重试!')
	Return
End If

String arg_msg
f_setsysoplog('销售发货单','销售退货单摘要修改,code:'+dw_uc.Object.u_outware_outwarecode[uc_row],arg_msg,True)
Close(Parent)

end event