$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