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

$PBExportHeader$w_buytask_urgemx_aff.srw
$PBExportComments$分销系统--packet打开模型
forward
global type w_buytask_urgemx_aff from w_publ_base_style
end type
type cb_ok from uo_imflatbutton within w_buytask_urgemx_aff
end type
type st_1 from statictext within w_buytask_urgemx_aff
end type
type mle_summary from multilineedit within w_buytask_urgemx_aff
end type
type st_2 from statictext within w_buytask_urgemx_aff
end type
type cb_1 from uo_imflatbutton within w_buytask_urgemx_aff
end type
type cb_2 from commandbutton within w_buytask_urgemx_aff
end type
type cb_3 from commandbutton within w_buytask_urgemx_aff
end type
end forward

global type w_buytask_urgemx_aff from w_publ_base_style
integer width = 2043
integer height = 1400
string title = "批确认"
boolean maxbox = true
boolean resizable = true
long backcolor = 16777215
string icon = "graphics\chain_link_128px.ico"
boolean center = true
cb_ok cb_ok
st_1 st_1
mle_summary mle_summary
st_2 st_2
cb_1 cb_1
cb_2 cb_2
cb_3 cb_3
end type
global w_buytask_urgemx_aff w_buytask_urgemx_aff

type variables
s_edit_index_tran s_tran

Long id_arr[]

end variables

on w_buytask_urgemx_aff.create
int iCurrent
call super::create
this.cb_ok=create cb_ok
this.st_1=create st_1
this.mle_summary=create mle_summary
this.st_2=create st_2
this.cb_1=create cb_1
this.cb_2=create cb_2
this.cb_3=create cb_3
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_ok
this.Control[iCurrent+2]=this.st_1
this.Control[iCurrent+3]=this.mle_summary
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.cb_1
this.Control[iCurrent+6]=this.cb_2
this.Control[iCurrent+7]=this.cb_3
end on

on w_buytask_urgemx_aff.destroy
call super::destroy
destroy(this.cb_ok)
destroy(this.st_1)
destroy(this.mle_summary)
destroy(this.st_2)
destroy(this.cb_1)
destroy(this.cb_2)
destroy(this.cb_3)
end on

event open;call super::open;s_tran = Message.PowerObjectParm
id_arr = s_tran.arr_long 
end event

event resize;call super::resize;//if (this.Width < 3762) then this.Width = 3762
//if (this.Height < 2292) then this.Height = 2292
//
//mle_summary.Width = this.workspacewidth( ) - mle_summary.X - 14
//mle_postscript.Width = mle_summary.Width
//mle_remark.Width = mle_summary.Width


end event

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

type cb_exit from w_publ_base_style`cb_exit within w_buytask_urgemx_aff
boolean visible = false
integer x = 549
boolean enabled = false
end type

type ln_bar from w_publ_base_style`ln_bar within w_buytask_urgemx_aff
boolean visible = false
end type

type ln_bar2 from w_publ_base_style`ln_bar2 within w_buytask_urgemx_aff
boolean visible = false
end type

type r_bar from w_publ_base_style`r_bar within w_buytask_urgemx_aff
end type

event r_bar::constructor;//
end event

type cb_ok from uo_imflatbutton within w_buytask_urgemx_aff
boolean visible = false
integer x = 603
integer y = 1100
integer width = 384
integer height = 108
integer taborder = 30
boolean bringtotop = true
boolean enabled = false
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;int rslt = 1
Long i
String ls_dscrp
String arg_msg = '',arg_msg_tmp

ls_dscrp = mle_summary.text


oleobject list,request,response,lo_mx,mxItem
request = FXAppCom.CreatePbDictionary()
request.SetString("token",app_token_fx)

lo_mx = FXAppCom.NewPBArray()
FOR i = 1 To upperbound(id_arr)
	mxItem = FXAppCom.CreatePbDictionary()
	mxItem.SetInt('id',id_arr[i])
	mxItem.SetString('feedback',ls_dscrp)
	lo_mx.AddObject(mxItem)
NEXT

request.SetObject("urgemxList", lo_mx)

oleobject lo_rsp
lo_rsp = FXAppCom.DoExecute("UpdateBuytaskmxUrgeFlag", request)
arg_msg_tmp = lo_rsp.GetString("ErrMsg")
 If arg_msg_tmp <> "" Then
	arg_msg = arg_msg_tmp
	rslt = 0
	goto ext
 END IF



ext:
IF rslt = 0 THEN
	messagebox("提示","保存失败"+arg_msg)
	return
ELSEIF rslt = 1  THEN
	messagebox("提示","保存成功")
END IF

close(parent)

end event

type st_1 from statictext within w_buytask_urgemx_aff
integer x = 64
integer y = 40
integer width = 1056
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "确定要对选中的催货通知进行批确认操作吗"
boolean focusrectangle = false
end type

type mle_summary from multilineedit within w_buytask_urgemx_aff
integer x = 59
integer y = 180
integer width = 1929
integer height = 900
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
boolean autovscroll = true
end type

type st_2 from statictext within w_buytask_urgemx_aff
integer x = 64
integer y = 108
integer width = 256
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "反馈信息"
boolean focusrectangle = false
end type

type cb_1 from uo_imflatbutton within w_buytask_urgemx_aff
boolean visible = false
integer x = 1019
integer y = 1100
integer width = 384
integer height = 108
integer taborder = 40
boolean bringtotop = true
boolean enabled = false
string text = "退出"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_2 from commandbutton within w_buytask_urgemx_aff
integer x = 603
integer y = 1128
integer width = 384
integer height = 108
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;int rslt = 1
Long i
String ls_dscrp
String arg_msg = '',arg_msg_tmp

ls_dscrp = mle_summary.text


oleobject list,request,response,lo_mx,mxItem
request = FXAppCom.CreatePbDictionary()
request.SetString("token",app_token_fx)

lo_mx = FXAppCom.NewPBArray()
FOR i = 1 To upperbound(id_arr)
	mxItem = FXAppCom.CreatePbDictionary()
	mxItem.SetInt('id',id_arr[i])
	mxItem.SetString('feedback',ls_dscrp)
	lo_mx.AddObject(mxItem)
NEXT

request.SetObject("urgemxList", lo_mx)

oleobject lo_rsp
lo_rsp = FXAppCom.DoExecute("UpdateBuytaskmxUrgeFlag", request)
arg_msg_tmp = lo_rsp.GetString("ErrMsg")
 If arg_msg_tmp <> "" Then
	arg_msg = arg_msg_tmp
	rslt = 0
	goto ext
 END IF



ext:
IF rslt = 0 THEN
	messagebox("提示","保存失败"+arg_msg)
	return
ELSEIF rslt = 1  THEN
	messagebox("提示","保存成功")
END IF

close(parent)

end event

type cb_3 from commandbutton within w_buytask_urgemx_aff
integer x = 1019
integer y = 1128
integer width = 384
integer height = 108
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "退出"
end type

event clicked;close(parent)
end event