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

$PBExportHeader$w_ljmail_msg_fx.srw
$PBExportComments$龙嘉邮件(查看)
forward
global type w_ljmail_msg_fx from w_publ_base_style
end type
type uo_msg from uo_html_editor within w_ljmail_msg_fx
end type
type st_1 from statictext within w_ljmail_msg_fx
end type
type sle_sendempname from singlelineedit within w_ljmail_msg_fx
end type
type st_2 from statictext within w_ljmail_msg_fx
end type
type sle_comname from singlelineedit within w_ljmail_msg_fx
end type
type st_sendtime from statictext within w_ljmail_msg_fx
end type
type cb_re from uo_imflatbutton within w_ljmail_msg_fx
end type
type st_3 from statictext within w_ljmail_msg_fx
end type
type sle_subject from singlelineedit within w_ljmail_msg_fx
end type
end forward

global type w_ljmail_msg_fx from w_publ_base_style
integer width = 3154
integer height = 1972
string title = "邮件"
boolean maxbox = true
boolean resizable = true
long backcolor = 16777215
string icon = "graphics\chain_link_128px.ico"
uo_msg uo_msg
st_1 st_1
sle_sendempname sle_sendempname
st_2 st_2
sle_comname sle_comname
st_sendtime st_sendtime
cb_re cb_re
st_3 st_3
sle_subject sle_subject
end type
global w_ljmail_msg_fx w_ljmail_msg_fx

type variables
long ins_msgid

long ins_sendcomid, ins_sendflag
string ins_ljmail
end variables

forward prototypes
public function integer wf_read_msg ()
end prototypes

public function integer wf_read_msg ();int rslt = 1

string arg_msg
oleobject msg
msg = FXAppCom.GetMsgByMsgid(app_token_fx, ins_msgid, ref arg_msg)

if not IsNull(msg) then
	if (msg.GetInt('msgid') > 0) then
		string html
		html = msg.GetString('htmlbody')
		uo_msg.uf_SetHtml(html)
		
		sle_subject.Text = msg.GetString('subject')
		sle_sendempname.Text = msg.GetString('sendempname') + '<' + msg.GetString('ljmail') + '>'
		sle_comname.Text = msg.GetString('comname')
		if not IsNull(msg.GetDateTime('sendtime')) then
			st_sendtime.Text = '发件时间:' + string(msg.GetDateTime('sendtime'), 'yyyy-MM-dd hh:mm:ss')
		end if
		
		ins_sendcomid = msg.GetInt('sendcomid')
		ins_ljmail = msg.GetString('ljmail')
		ins_sendflag = msg.GetInt('sendflag')
		if (ins_sendflag = 3) then
			cb_re.Enabled = true
		end if
	else
		rslt = 0
		goto ext
	end if
else
	rslt = 0
	goto ext
end if

if (arg_msg <> '') then
	rslt = 0
	goto ext
end if

ext:
if (rslt = 0 and arg_msg <> '') then
	MessageBox('提示', arg_msg)
end if

return rslt
end function

on w_ljmail_msg_fx.create
int iCurrent
call super::create
this.uo_msg=create uo_msg
this.st_1=create st_1
this.sle_sendempname=create sle_sendempname
this.st_2=create st_2
this.sle_comname=create sle_comname
this.st_sendtime=create st_sendtime
this.cb_re=create cb_re
this.st_3=create st_3
this.sle_subject=create sle_subject
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_msg
this.Control[iCurrent+2]=this.st_1
this.Control[iCurrent+3]=this.sle_sendempname
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.sle_comname
this.Control[iCurrent+6]=this.st_sendtime
this.Control[iCurrent+7]=this.cb_re
this.Control[iCurrent+8]=this.st_3
this.Control[iCurrent+9]=this.sle_subject
end on

on w_ljmail_msg_fx.destroy
call super::destroy
destroy(this.uo_msg)
destroy(this.st_1)
destroy(this.sle_sendempname)
destroy(this.st_2)
destroy(this.sle_comname)
destroy(this.st_sendtime)
destroy(this.cb_re)
destroy(this.st_3)
destroy(this.sle_subject)
end on

event open;call super::open;long temp
temp = Message.DoubleParm

if not IsNull(temp) then
	if (temp > 0) then
		ins_msgid = temp
		wf_read_msg()
	end if
end if

uo_msg.uf_setreadonly( )
//uo_msg.ole_web.object.Document.ExecCommand("FontSize", false, 9)
end event

event resize;call super::resize;if (this.Width < 3000) then this.Width = 3000
if (this.Height < 1800) then this.Height = 1800

sle_subject.Width = this.workspacewidth( ) - sle_subject.X - 50

uo_msg.Width = this.workspacewidth( )
uo_msg.Height = this.workspaceheight( ) - uo_msg.Y

cb_exit.X = this.workspacewidth( ) - cb_exit.Width
end event

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

type cb_exit from w_publ_base_style`cb_exit within w_ljmail_msg_fx
integer x = 1307
end type

type ln_bar from w_publ_base_style`ln_bar within w_ljmail_msg_fx
end type

type ln_bar2 from w_publ_base_style`ln_bar2 within w_ljmail_msg_fx
end type

type r_bar from w_publ_base_style`r_bar within w_ljmail_msg_fx
end type

type uo_msg from uo_html_editor within w_ljmail_msg_fx
integer y = 368
integer width = 2624
integer height = 1196
integer taborder = 30
boolean bringtotop = true
end type

on uo_msg.destroy
call uo_html_editor::destroy
end on

type st_1 from statictext within w_ljmail_msg_fx
integer x = 14
integer y = 200
integer width = 219
integer height = 56
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 sle_sendempname from singlelineedit within w_ljmail_msg_fx
integer x = 210
integer y = 188
integer width = 873
integer height = 68
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_ljmail_msg_fx
integer x = 1102
integer y = 200
integer width = 315
integer height = 56
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 sle_comname from singlelineedit within w_ljmail_msg_fx
integer x = 1403
integer y = 192
integer width = 681
integer height = 68
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_sendtime from statictext within w_ljmail_msg_fx
integer x = 2117
integer y = 200
integer width = 914
integer height = 56
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_re from uo_imflatbutton within w_ljmail_msg_fx
integer width = 151
integer height = 164
integer taborder = 40
boolean bringtotop = true
boolean enabled = false
string text = "回复"
string normalpicname = "graphics\fx_send.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;//	sle_subject.Text = '回复:' + temp.subject
//	string html
//	html = '<P>####################原始邮件####################</P>' + temp.htmlbody
//	uo_1.uf_sethtml(html)
//	
//	wf_get_contact(temp.revcomid, temp.revljmail)

s_ljmail_msg s_tran
s_tran.subject = Trim(sle_subject.Text)
string temp
temp = '<P>' + sle_sendempname.Text + '(' + st_sendtime.Text + ')</P>'
s_tran.htmlbody = temp + uo_msg.uf_gethtml( )
s_tran.revcomid = ins_sendcomid
s_tran.revljmail = ins_ljmail

OpenWithParm(w_ljmail_send_fx, s_tran)
end event

type st_3 from statictext within w_ljmail_msg_fx
integer x = 14
integer y = 288
integer width = 183
integer height = 56
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 sle_subject from singlelineedit within w_ljmail_msg_fx
integer x = 210
integer y = 280
integer width = 2816
integer height = 68
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type