FXApp/ws_objects/app_cust_fx.pbl.src/w_saletask_fx_cp_edit.srw

$PBExportHeader$w_saletask_fx_cp_edit.srw
$PBExportComments$分销系统--packet打开模型
forward
global type w_saletask_fx_cp_edit from w_publ_base_style
end type
type cb_save from uo_imflatbutton within w_saletask_fx_cp_edit
end type
type dw_mx from u_dw_rbtnfilter within w_saletask_fx_cp_edit
end type
end forward

global type w_saletask_fx_cp_edit from w_publ_base_style
integer width = 4046
integer height = 2180
string title = ""
boolean minbox = false
windowtype windowtype = response!
long backcolor = 16777215
string icon = "graphics\chain_link_128px.ico"
boolean center = true
cb_save cb_save
dw_mx dw_mx
end type
global w_saletask_fx_cp_edit w_saletask_fx_cp_edit

type variables
s_edit_index_tran s_tran
Long ins_tid,ins_taskid

end variables

on w_saletask_fx_cp_edit.create
int iCurrent
call super::create
this.cb_save=create cb_save
this.dw_mx=create dw_mx
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_save
this.Control[iCurrent+2]=this.dw_mx
end on

on w_saletask_fx_cp_edit.destroy
call super::destroy
destroy(this.cb_save)
destroy(this.dw_mx)
end on

event open;call super::open;s_tran = Message.PowerObjectParm
ins_tid = s_tran.b_long
ins_taskid = s_tran.c_long
s_tran.arg_dw.rowscopy(1,s_tran.arg_dw.rowcount(),primary!,dw_mx,1,primary!)

end event

type cb_func from w_publ_base_style`cb_func within w_saletask_fx_cp_edit
boolean visible = false
end type

type cb_exit from w_publ_base_style`cb_exit within w_saletask_fx_cp_edit
end type

type ln_bar from w_publ_base_style`ln_bar within w_saletask_fx_cp_edit
end type

type ln_bar2 from w_publ_base_style`ln_bar2 within w_saletask_fx_cp_edit
end type

type r_bar from w_publ_base_style`r_bar within w_saletask_fx_cp_edit
end type

type cb_save from uo_imflatbutton within w_saletask_fx_cp_edit
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "保存"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;dw_mx.accepttext()
Long i
oleobject request,response,Item,ItemMx,mxs

request = FXAppCom.CreatePbDictionary()
request.SetString('token', app_token_fx)

Item = FXAppCom.CreatePbDictionary()
Item.SetInt('tid', ins_tid)
Item.SetInt('taskid', ins_taskid)

for i = 1 to dw_mx.rowcount()
	ItemMx = FXAppCom.CreatePbDictionary()
	ItemMx.SetInt('taskid', dw_mx.object.taskid[i])
	ItemMx.SetInt('printid', dw_mx.object.printid[i])
	ItemMx.SetString('mtrlcuscode', dw_mx.object.mtrlcuscode[i])
	ItemMx.SetString('mxdscrp', dw_mx.object.mxdscrp[i])
	ItemMx.SetString('mxdscrp2', dw_mx.object.mxdscrp2[i])
	
	mxs.Add(ItemMx)
next

request.SetObject('task', Item)
request.SetObject('taskmxList', mxs)

string arg_msg
response = FXAppCom.DoExecute('FxSaletaskEdit', request)
arg_msg = response.GetString('ErrMsg')

if (arg_msg <> '') then
	messagebox('提示', '修改失败,' + arg_msg)
	RETURN
else
	messagebox('提示', '修改成功！')
end if

CLOSE(PARENT)


end event

type dw_mx from u_dw_rbtnfilter within w_saletask_fx_cp_edit
integer y = 192
integer width = 4018
integer height = 1896
integer taborder = 30
boolean bringtotop = true
string dataobject = "dw_fx_saletaskmx_edit"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;if dw_edit_mode then return

if (row > 0) then
	this.SelectRow(0, false)
	this.SelectRow(row, true)
end if
end event