Q5/ws_objects/Ew_email.pbl.src/w_email_huizi.srw

$PBExportHeader$w_email_huizi.srw
forward
global type w_email_huizi from window
end type
type cb_2 from commandbutton within w_email_huizi
end type
type mle_1 from multilineedit within w_email_huizi
end type
type st_1 from statictext within w_email_huizi
end type
type cb_1 from commandbutton within w_email_huizi
end type
end forward

global type w_email_huizi from window
integer width = 1161
integer height = 872
boolean titlebar = true
string title = "发送回执"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
mle_1 mle_1
st_1 st_1
cb_1 cb_1
end type
global w_email_huizi w_email_huizi

type variables
s_email_set s_parm
end variables

forward prototypes
public subroutine wf_updte_ntflag ()
end prototypes

public subroutine wf_updte_ntflag ();//mailid
update u_email_msg set NTFlag =0 where id=:s_parm.id  Using sys_email_sqlca;
commit Using sys_email_sqlca;
end subroutine

on w_email_huizi.create
this.cb_2=create cb_2
this.mle_1=create mle_1
this.st_1=create st_1
this.cb_1=create cb_1
this.Control[]={this.cb_2,&
this.mle_1,&
this.st_1,&
this.cb_1}
end on

on w_email_huizi.destroy
destroy(this.cb_2)
destroy(this.mle_1)
destroy(this.st_1)
destroy(this.cb_1)
end on

event open;String ls_text

mle_1.Text = String(f_ProfileString(sys_empid,publ_userid+'_huizi', "text11",''))
s_parm = Message.PowerObjectParm

ls_text = "选择《确定》将会回复一封邮件给 "  + String(s_parm.revaddress ) + "  表示您已经收到对方的邮件。主题为："

st_1.Text = ls_text

IF Trim(mle_1.Text) = "" THEN
	mle_1.Text = "邮件已经收到，我将尽快处理" +Char(13) +Char(10)+ "I have received the mail, I will work on it and reply to you as soon as possible"
END IF

end event

type cb_2 from commandbutton within w_email_huizi
integer x = 622
integer y = 668
integer width = 457
integer height = 112
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;wf_updte_NTFlag()
close(parent)
end event

type mle_1 from multilineedit within w_email_huizi
integer y = 260
integer width = 1134
integer height = 400
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = true
boolean autovscroll = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_email_huizi
integer x = 27
integer y = 8
integer width = 1083
integer height = 232
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217751
long backcolor = 67108864
boolean focusrectangle = false
end type

type cb_1 from commandbutton within w_email_huizi
integer x = 50
integer y = 668
integer width = 457
integer height = 112
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;
s_parm.Subject = mle_1.Text
f_SetProfileString (sys_empid,publ_userid+'_huizi', "text11",String(mle_1.Text))
wf_updte_NTFlag()
OpenWithParm(w_email_send_new,s_parm)


w_email_send_new.cb_send.TriggerEvent('clicked')
close(parent)
end event