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

$PBExportHeader$w_fj_manage_saletask.srw
forward
global type w_fj_manage_saletask from w_fj_manage
end type
type cb_confirm from uo_imflatbutton within w_fj_manage_saletask
end type
type st_mtfj_status from statictext within w_fj_manage_saletask
end type
end forward

global type w_fj_manage_saletask from w_fj_manage
string title = "订单附件查看"
cb_confirm cb_confirm
st_mtfj_status st_mtfj_status
end type
global w_fj_manage_saletask w_fj_manage_saletask

on w_fj_manage_saletask.create
int iCurrent
call super::create
this.cb_confirm=create cb_confirm
this.st_mtfj_status=create st_mtfj_status
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_confirm
this.Control[iCurrent+2]=this.st_mtfj_status
end on

on w_fj_manage_saletask.destroy
call super::destroy
destroy(this.cb_confirm)
destroy(this.st_mtfj_status)
end on

event open;call super::open;s_edit_index_tran s_tran //翻页功能窗口 传递参数使用
s_tran = Message.PowerObjectParm

IF s_tran.e_string = '' THEN
	st_mtfj_status.Visible = false
ELSE
	st_mtfj_status.Text =  s_tran.e_string
END IF




end event

type dw_file_fj from w_fj_manage`dw_file_fj within w_fj_manage_saletask
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event dw_file_fj::doubleclicked;call super::doubleclicked;cb_read.PostEvent(Clicked!)
end event

type cb_read from w_fj_manage`cb_read within w_fj_manage_saletask
end type

type cb_refresh from w_fj_manage`cb_refresh within w_fj_manage_saletask
end type

type cb_exit from w_fj_manage`cb_exit within w_fj_manage_saletask
integer x = 745
end type

type ln_bar from w_fj_manage`ln_bar within w_fj_manage_saletask
end type

type r_bar from w_fj_manage`r_bar within w_fj_manage_saletask
end type

type cb_confirm from uo_imflatbutton within w_fj_manage_saletask
integer x = 471
integer width = 274
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "确认接收"
string normalpicname = "audit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;string arg_msg
oleobject request,response

IF st_mtfj_status.Text <> '待确认接收' THEN
	messagebox('提示', '文件未更新,不需要确认!')
	return
END IF

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

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

if (arg_msg <> '') then
    messagebox('提示', '确认接收失败，原因：' + arg_msg)
    return
end if

messagebox('提示', '确认接收成功')
st_mtfj_status.Text =  '已确认'
end event

type st_mtfj_status from statictext within w_fj_manage_saletask
integer x = 1513
integer y = 52
integer width = 471
integer height = 96
boolean bringtotop = true
integer textsize = -14
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217857
long backcolor = 67108864
boolean enabled = false
boolean focusrectangle = false
end type