Q5/ws_objects/Ew_epmmsg.pbl.src/w_msg_send_normal.srw

$PBExportHeader$w_msg_send_normal.srw
forward
global type w_msg_send_normal from w_msg_send_mt
end type
end forward

global type w_msg_send_normal from w_msg_send_mt
string title = "发送消息"
end type
global w_msg_send_normal w_msg_send_normal

event open;this.triggerevent('ue_before_open')
wf_movetocenter()

s_msg = Message.PowerObjectParm
ins_kind = -1
dw_mt_fj.SetTransObject(sys_filedb_sqlca)

wf_dw()

If Integer(f_ProfileString (sys_empid,This.ClassName(), "x",String(This.X))) = 0 Then
	This.X = 23
	This.Y = 24
Else
	This.X = Integer(f_ProfileString (sys_empid,This.ClassName(), "x",String(This.X)))
	This.Y = Integer(f_ProfileString (sys_empid,This.ClassName(), "y",String(This.Y)))
End If

If s_msg.ifback = 1 Then
	mle_objdpm.Text = s_msg.sendemp
	sle_billcode.Text = s_msg.billcode
	sle_msgtitle.Text = '回复:'+s_msg.msgtitle
	uo_html.uf_sethtml('<DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><HR color=#b5c4df SIZE=1>' + s_msg.msg)
Else
	sle_billcode.Text = s_msg.billcode
	
	
End If



end event

on w_msg_send_normal.create
int iCurrent
call super::create
end on

on w_msg_send_normal.destroy
call super::destroy
end on

type cb_func from w_msg_send_mt`cb_func within w_msg_send_normal
end type

type cb_exit from w_msg_send_mt`cb_exit within w_msg_send_normal
end type

type sle_msgtitle from w_msg_send_mt`sle_msgtitle within w_msg_send_normal
string text = ""
end type

type st_2 from w_msg_send_mt`st_2 within w_msg_send_normal
end type

type mle_objdpm from w_msg_send_mt`mle_objdpm within w_msg_send_normal
end type

type dw_1 from w_msg_send_mt`dw_1 within w_msg_send_normal
end type

type rb_usergrp from w_msg_send_mt`rb_usergrp within w_msg_send_normal
end type

type rb_user from w_msg_send_mt`rb_user within w_msg_send_normal
end type

type cb_que from w_msg_send_mt`cb_que within w_msg_send_normal
end type

type cb_1 from w_msg_send_mt`cb_1 within w_msg_send_normal
end type

type st_1 from w_msg_send_mt`st_1 within w_msg_send_normal
end type

type sle_billcode from w_msg_send_mt`sle_billcode within w_msg_send_normal
end type

type st_3 from w_msg_send_mt`st_3 within w_msg_send_normal
end type

type uo_html from w_msg_send_mt`uo_html within w_msg_send_normal
end type

type dw_mt_fj from w_msg_send_mt`dw_mt_fj within w_msg_send_normal
end type

type p_fj_add from w_msg_send_mt`p_fj_add within w_msg_send_normal
end type

type st_4 from w_msg_send_mt`st_4 within w_msg_send_normal
end type

type st_fj_add from w_msg_send_mt`st_fj_add within w_msg_send_normal
end type

type st_6 from w_msg_send_mt`st_6 within w_msg_send_normal
end type

type st_send_suc_w from w_msg_send_mt`st_send_suc_w within w_msg_send_normal
end type

type ln_bar from w_msg_send_mt`ln_bar within w_msg_send_normal
end type

type ln_bar2 from w_msg_send_mt`ln_bar2 within w_msg_send_normal
end type

type r_bar from w_msg_send_mt`r_bar within w_msg_send_normal
end type

type st_send_suc from w_msg_send_mt`st_send_suc within w_msg_send_normal
end type