Q5/ws_objects/Ew_ljfieb.pbl.src/w_message_mng_ljfieb.srw

$PBExportHeader$w_message_mng_ljfieb.srw
forward
global type w_message_mng_ljfieb from w_publ_base
end type
type tab_1 from tab within w_message_mng_ljfieb
end type
type tabpage_1 from userobject within tab_1
end type
type p_3 from picture within tabpage_1
end type
type p_2 from picture within tabpage_1
end type
type p_1 from picture within tabpage_1
end type
type cbx_ifshow from checkbox within tabpage_1
end type
type st_ok from uo_text_m_main within tabpage_1
end type
type st_feedback from uo_text_m_main within tabpage_1
end type
type st_retrieve_rece from uo_text_m_main within tabpage_1
end type
type st_1 from statictext within tabpage_1
end type
type mle_rece from multilineedit within tabpage_1
end type
type dw_1 from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
p_3 p_3
p_2 p_2
p_1 p_1
cbx_ifshow cbx_ifshow
st_ok st_ok
st_feedback st_feedback
st_retrieve_rece st_retrieve_rece
st_1 st_1
mle_rece mle_rece
dw_1 dw_1
end type
type tabpage_2 from userobject within tab_1
end type
type p_4 from picture within tabpage_2
end type
type st_retrieve_send from uo_text_m_main within tabpage_2
end type
type em_2 from editmask within tabpage_2
end type
type st_7 from statictext within tabpage_2
end type
type em_1 from editmask within tabpage_2
end type
type st_6 from statictext within tabpage_2
end type
type st_5 from statictext within tabpage_2
end type
type mle_send from multilineedit within tabpage_2
end type
type dw_2 from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
p_4 p_4
st_retrieve_send st_retrieve_send
em_2 em_2
st_7 st_7
em_1 em_1
st_6 st_6
st_5 st_5
mle_send mle_send
dw_2 dw_2
end type
type tab_1 from tab within w_message_mng_ljfieb
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type
end forward

global type w_message_mng_ljfieb from w_publ_base
integer width = 3611
integer height = 2380
string title = "电子商务消息管理"
boolean minbox = false
windowtype windowtype = response!
tab_1 tab_1
end type
global w_message_mng_ljfieb w_message_mng_ljfieb

type variables
int ins_billtype// 1 - 供应商消息, 2 - 客户消息

uo_ljfieb uo_fieb
Transaction tr_eb_sqlca

end variables

forward prototypes
public function integer wf_read (long arg_row)
end prototypes

public function integer wf_read (long arg_row);String ls_SerialNum,arg_msg
Long ll_sendid,ll_receid
String ls_recesccode,ls_sendsccode
String ls_sn

IF arg_row <= 0 THEN RETURN 0

ls_sn = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_SerialNum[arg_row]

ll_sendid = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_SendCusCommID[arg_row]
ll_receid = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_receivecuscommid[arg_row]
ls_recesccode = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_receivesccode[arg_row]
ls_sendsccode = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_SendSCcode[arg_row]

SELECT  TOP 1 NEWID() INTO :ls_SerialNum
	From u_user Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK Using sqlca;
	MessageBox('Error','生成序列号失败,'+sqlca.SQLErrText)
	RETURN 0
END IF

IF IsNull(ls_SerialNum) THEN ls_SerialNum = ''

IF ls_SerialNum = '' THEN
	MessageBox('Error','错误的发送序列号')
	RETURN 0
END IF

UPDATE LJFIEB_packet
	SET Complete = 1 ,
	status = 6,
	ConfirmTime = getdate(),
	ConfirmUser = :publ_operator
	Where SerialNum = :ls_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	ROLLBACK Using tr_eb_sqlca;
	MessageBox('Errr','更新消息状态失败,'+tr_eb_sqlca.SQLErrText)
	RETURN 0
END IF

IF uo_fieb.add_packet(ls_SerialNum,'',ll_receid,ls_recesccode,ll_sendid,ls_sendsccode,6,'确认消息','','',ls_sn,'',0,arg_msg,True) = 0 THEN
	MessageBox('Error','发送确认指令失败 '+arg_msg)
	RETURN 0
END IF

RETURN 1

end function

on w_message_mng_ljfieb.create
int iCurrent
call super::create
this.tab_1=create tab_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.tab_1
end on

on w_message_mng_ljfieb.destroy
call super::destroy
destroy(this.tab_1)
end on

event open;call super::open;IF sys_email_sqlca.DBHandle() = 0  THEN
	MessageBox('Error','电子商务数据库连接失败,请检查')
	RETURN
END IF

tr_eb_sqlca = sys_email_sqlca // 电子商务连接

ins_billtype = message.doubleparm


if ins_billtype = 1 then 
	this.title = '供应商电子商务消息管理'
else
	this.title = '客户电子商务消息管理'
end if

uo_fieb = Create uo_ljfieb
uo_fieb.commit_transaction = tr_eb_sqlca


tab_1.tabpage_1.dw_1.settransobject(sys_email_sqlca)
tab_1.tabpage_2.dw_2.settransobject(sys_email_sqlca)

tab_1.tabpage_1.st_retrieve_rece.triggerevent(clicked!)
tab_1.tabpage_2.st_retrieve_send.triggerevent(clicked!)
end event

type cb_func from w_publ_base`cb_func within w_message_mng_ljfieb
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_message_mng_ljfieb
integer x = 3191
integer y = 2172
end type

type tab_1 from tab within w_message_mng_ljfieb
integer width = 3589
integer height = 2148
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.Control[]={this.tabpage_1,&
this.tabpage_2}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 112
integer width = 3552
integer height = 2020
long backcolor = 16777215
string text = "收件箱"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
string picturename = "OutputNext!"
long picturemaskcolor = 536870912
p_3 p_3
p_2 p_2
p_1 p_1
cbx_ifshow cbx_ifshow
st_ok st_ok
st_feedback st_feedback
st_retrieve_rece st_retrieve_rece
st_1 st_1
mle_rece mle_rece
dw_1 dw_1
end type

on tabpage_1.create
this.p_3=create p_3
this.p_2=create p_2
this.p_1=create p_1
this.cbx_ifshow=create cbx_ifshow
this.st_ok=create st_ok
this.st_feedback=create st_feedback
this.st_retrieve_rece=create st_retrieve_rece
this.st_1=create st_1
this.mle_rece=create mle_rece
this.dw_1=create dw_1
this.Control[]={this.p_3,&
this.p_2,&
this.p_1,&
this.cbx_ifshow,&
this.st_ok,&
this.st_feedback,&
this.st_retrieve_rece,&
this.st_1,&
this.mle_rece,&
this.dw_1}
end on

on tabpage_1.destroy
destroy(this.p_3)
destroy(this.p_2)
destroy(this.p_1)
destroy(this.cbx_ifshow)
destroy(this.st_ok)
destroy(this.st_feedback)
destroy(this.st_retrieve_rece)
destroy(this.st_1)
destroy(this.mle_rece)
destroy(this.dw_1)
end on

type p_3 from picture within tabpage_1
integer x = 485
integer y = 20
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\ok.bmp"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_1.st_ok.triggerevent(clicked!)
end event

type p_2 from picture within tabpage_1
integer x = 251
integer y = 20
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\open.bmp"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_1.st_feedback.triggerevent(clicked!)
end event

type p_1 from picture within tabpage_1
integer x = 27
integer y = 20
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\refresh.BMP"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_1.st_retrieve_rece.triggerevent(clicked!)
end event

type cbx_ifshow from checkbox within tabpage_1
integer x = 933
integer y = 12
integer width = 553
integer height = 76
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "只显示待确认消息"
boolean checked = true
end type

event clicked;tab_1.tabpage_1.st_retrieve_rece.triggerevent(clicked!)
end event

type st_ok from uo_text_m_main within tabpage_1
integer x = 567
integer y = 28
integer width = 128
integer height = 56
integer textsize = -9
string text = "确认"
end type

event clicked;call super::clicked;IF Not f_power_ind(1596) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF


Long ll_row
String ls_sn
Int li_status

ll_row = tab_1.tabpage_1.dw_1.getrow()

if ll_row <= 0 then
	messagebox('系统提示','请选择要确认的消息')
	return 
end if

ls_sn = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_SerialNum[ll_row]

SELECT status
	INTO :li_status
	FROM LJFIEB_packet
	Where SerialNum = :ls_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	ROLLBACK Using tr_eb_sqlca;
	MessageBox('Errr','查询消息状态失败,'+tr_eb_sqlca.SQLErrText)
	RETURN 0
END IF

IF li_status <> 5 THEN
	MessageBox('系统提示','消息已确认,不能重复操作')
	RETURN
END IF

IF MessageBox('询问','是否要确认本条消息?',question!,yesno!) = 2 THEN RETURN

IF wf_read(ll_row) = 0 THEN RETURN
tab_1.tabpage_1.st_retrieve_rece.TriggerEvent(Clicked!)

end event

type st_feedback from uo_text_m_main within tabpage_1
integer x = 334
integer y = 28
integer width = 128
integer height = 56
integer textsize = -9
string text = "回复"
end type

event clicked;call super::clicked;IF Not f_power_ind(1595) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF


Long ll_row
string ls_sn

ll_row =  tab_1.tabpage_1.dw_1.GetRow()

IF ll_row <= 0 THEN RETURN

s_edit_index_tran s_buy_msg

s_buy_msg.b_long = ins_billtype // 1 - 选供应商, 2 - 选客户
s_buy_msg.c_long = 1

s_buy_msg.b_string = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_Summary[ll_row]

s_buy_msg.c_string = tab_1.tabpage_1.dw_1.Object.ljfieb_cuscomm_s_cuscode[ll_row]
s_buy_msg.d_string = tab_1.tabpage_1.dw_1.Object.ljfieb_cuscomm_s_cusname[ll_row]
s_buy_msg.e_string = tab_1.tabpage_1.dw_1.Object.ljfieb_packet_sendsccode[ll_row]
s_buy_msg.f_string = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_Postscript[ll_row]

OpenWithParm(w_msg_send_ljfieb,s_buy_msg)

Int li_ifsend,li_status

li_ifsend = Message.DoubleParm

ls_sn = tab_1.tabpage_1.dw_1.Object.LJFIEB_packet_SerialNum[ll_row]


SELECT status
	INTO :li_status
	FROM LJFIEB_packet
	Where SerialNum = :ls_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	ROLLBACK Using tr_eb_sqlca;
	MessageBox('Errr','查询消息状态失败,'+tr_eb_sqlca.SQLErrText)
	RETURN 0
END IF



IF li_status = 5 And li_ifsend = 1 THEN
	
	IF wf_read(ll_row) = 0 THEN RETURN
	
	tab_1.tabpage_1.st_retrieve_rece.TriggerEvent(Clicked!)
END IF



end event

type st_retrieve_rece from uo_text_m_main within tabpage_1
integer x = 101
integer y = 28
integer width = 128
integer height = 56
integer textsize = -9
string text = "刷新"
end type

event clicked;call super::clicked;Int li_ifshow

Long ll_i
String ls_cuscode
Long ll_sendcuscommid,ll_cusareaid
String ls_custype,ls_receivesccode,ls_scstr,ls_SendSCcode
String ls_areastr,ls_outrep
Long ll_scid


IF tab_1.tabpage_1.cbx_ifshow.Checked THEN
	li_ifshow = 0
ELSE
	li_ifshow = -1
END IF

tab_1.tabpage_1.dw_1.SetRedraw(False)
tab_1.tabpage_1.dw_1.Retrieve(li_ifshow,ins_billtype)


IF Not sys_power_issuper THEN
	
	tab_1.tabpage_1.dw_1.AcceptText()
	
	FOR ll_i = tab_1.tabpage_1.dw_1.RowCount() To 1 Step -1
		ll_sendcuscommid = tab_1.tabpage_1.dw_1.Object.ljfieb_packet_sendcuscommid[ll_i]
		ls_receivesccode = tab_1.tabpage_1.dw_1.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_1.tabpage_1.dw_1.Object.ljfieb_packet_SendSCcode [ll_i]
		
		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_receivesccode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				tab_1.tabpage_1.dw_1.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF
		
		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_sendcuscommid Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT cusareaid,
			custype
			INTO
			:ll_cusareaid,
			:ls_custype
			FROM u_cust
			WHERE commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_areastr <> '0' THEN
			ls_areastr = ','+String( ll_cusareaid)+','
			IF Pos(sys_areastr,ls_areastr) = 0 THEN
				tab_1.tabpage_1.dw_1.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
		
		IF sys_user_outrepstr <> '0' THEN
			ls_outrep = ','+String( ls_custype)+','
			IF Pos(sys_user_outrepstr,ls_outrep) = 0 THEN
				tab_1.tabpage_1.dw_1.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_1.tabpage_1.dw_1.SetRedraw(True)

end event

type st_1 from statictext within tabpage_1
integer x = 18
integer y = 1184
integer width = 178
integer height = 48
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_rece from multilineedit within tabpage_1
integer y = 1248
integer width = 3534
integer height = 772
integer taborder = 30
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 dw_1 from u_dw_rbtnfilter within tabpage_1
integer y = 100
integer width = 3534
integer height = 1064
integer taborder = 20
string dataobject = "dw_salemsg_rece_mng"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN
	tab_1.tabpage_1.mle_rece.Text = ''
	RETURN
END IF

This.SelectRow(0,False)
This.SelectRow(currentrow,True)

IF This.GetRow() > 0 THEN
	tab_1.tabpage_1.mle_rece.Text = '*' + This.Object.LJFIEB_packet_Summary[This.GetRow()] + '*' + '~r~n' + '~r~n'+ This.Object.LJFIEB_packet_Postscript[This.GetRow()]
ELSE
	tab_1.tabpage_1.mle_rece.Text = ''
END IF


end event

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 112
integer width = 3552
integer height = 2020
long backcolor = 16777215
string text = "发件箱"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
string picturename = "OutputPrevious!"
long picturemaskcolor = 536870912
p_4 p_4
st_retrieve_send st_retrieve_send
em_2 em_2
st_7 st_7
em_1 em_1
st_6 st_6
st_5 st_5
mle_send mle_send
dw_2 dw_2
end type

on tabpage_2.create
this.p_4=create p_4
this.st_retrieve_send=create st_retrieve_send
this.em_2=create em_2
this.st_7=create st_7
this.em_1=create em_1
this.st_6=create st_6
this.st_5=create st_5
this.mle_send=create mle_send
this.dw_2=create dw_2
this.Control[]={this.p_4,&
this.st_retrieve_send,&
this.em_2,&
this.st_7,&
this.em_1,&
this.st_6,&
this.st_5,&
this.mle_send,&
this.dw_2}
end on

on tabpage_2.destroy
destroy(this.p_4)
destroy(this.st_retrieve_send)
destroy(this.em_2)
destroy(this.st_7)
destroy(this.em_1)
destroy(this.st_6)
destroy(this.st_5)
destroy(this.mle_send)
destroy(this.dw_2)
end on

type p_4 from picture within tabpage_2
integer x = 1138
integer y = 12
integer width = 73
integer height = 64
string pointer = "HAND.CUR"
boolean originalsize = true
string picturename = "graphics\refresh.BMP"
boolean focusrectangle = false
end type

event clicked;tab_1.tabpage_2.st_retrieve_send.triggerevent(clicked!)
end event

type st_retrieve_send from uo_text_m_main within tabpage_2
integer x = 1216
integer y = 20
integer width = 133
integer height = 60
integer textsize = -9
string text = "刷新"
end type

event clicked;call super::clicked;DateTime ld_first
DateTime ld_end

Long ll_i
String ls_cuscode
Long ll_receivecuscommid,ll_cusareaid
String ls_custype,ls_receivesccode,ls_scstr,ls_SendSCcode
String ls_areastr,ls_outrep
Long ll_scid


ld_first = DateTime(Date(tab_1.tabpage_2.em_1.Text),Time('0'))
ld_end = DateTime(Date(tab_1.tabpage_2.em_2.Text),Time('23:59:59'))

tab_1.tabpage_2.dw_2.setredraw(false)
tab_1.tabpage_2.dw_2.Retrieve(ld_first,ld_end,ins_billtype)

IF Not sys_power_issuper THEN
	
	tab_1.tabpage_2.dw_2.AcceptText()
	
	FOR ll_i = tab_1.tabpage_2.dw_2.RowCount() To 1 Step -1
		ll_receivecuscommid = tab_1.tabpage_2.dw_2.Object.ljfieb_packet_receivecuscommid[ll_i]
		ls_receivesccode = tab_1.tabpage_2.dw_2.Object.ljfieb_packet_receivesccode[ll_i]
		ls_SendSCcode = tab_1.tabpage_2.dw_2.Object.ljfieb_packet_SendSCcode [ll_i]

		IF sys_user_scstr <> '0' THEN
			SELECT scid INTO :ll_scid
				FROM u_scdef
				Where sccode = :ls_SendSCcode Using sqlca;
			IF sqlca.SQLCode <> 0 THEN
				ll_scid = 0
			END IF
			
			ls_scstr = ','+String(ll_scid)+','
			
			IF Pos(sys_user_scstr,ls_scstr) = 0 THEN
				tab_1.tabpage_2.dw_2.DeleteRow(ll_i)
				CONTINUE
			END IF
			
		END IF

		SELECT CusCode
			INTO :ls_cuscode
			FROM LJFIEB_CusComm
			Where CusCommID = :ll_receivecuscommid Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			ls_cuscode = ''
		END IF
		
		IF Trim(ls_cuscode) = '' THEN CONTINUE
		
		SELECT cusareaid,
			custype
			INTO
			:ll_cusareaid,
			:ls_custype
			FROM u_cust
			WHERE commcode = :ls_cuscode
			And commsccode = :ls_SendSCcode Using sqlca;
		IF sqlca.SQLCode <> 0 THEN CONTINUE
		
		IF sys_areastr <> '0' THEN
			ls_areastr = ','+String( ll_cusareaid)+','
			IF Pos(sys_areastr,ls_areastr) = 0 THEN
				tab_1.tabpage_2.dw_2.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
		
		IF sys_user_outrepstr <> '0' THEN
			ls_outrep = ','+String( ls_custype)+','
			IF Pos(sys_user_outrepstr,ls_outrep) = 0 THEN
				tab_1.tabpage_2.dw_2.DeleteRow(ll_i)
				CONTINUE
			END IF
		END IF
	NEXT
	
END IF
tab_1.tabpage_2.dw_2.setredraw(true)
end event

type em_2 from editmask within tabpage_2
integer x = 727
integer y = 8
integer width = 389
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.text = string(today(),'yyyy-mm-dd')
end event

type st_7 from statictext within tabpage_2
integer x = 631
integer y = 20
integer width = 101
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "到"
alignment alignment = center!
boolean focusrectangle = false
end type

type em_1 from editmask within tabpage_2
integer x = 224
integer y = 8
integer width = 402
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event constructor;this.text = string(today(),'yyyy-mm')+'-01'
end event

type st_6 from statictext within tabpage_2
integer x = 27
integer y = 24
integer width = 197
integer height = 48
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 st_5 from statictext within tabpage_2
integer x = 18
integer y = 1184
integer width = 146
integer height = 48
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_send from multilineedit within tabpage_2
integer y = 1248
integer width = 3534
integer height = 772
integer taborder = 40
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 dw_2 from u_dw_rbtnfilter within tabpage_2
integer y = 100
integer width = 3534
integer height = 1064
integer taborder = 20
string dataobject = "dw_salemsg_send_mng"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow <= 0 THEN
	tab_1.tabpage_2.mle_send.Text = ''
	RETURN
END IF

This.SelectRow(0,False)
This.SelectRow(currentrow,True)

IF This.GetRow() > 0 THEN
	tab_1.tabpage_2.mle_send.Text = '*' + This.Object.LJFIEB_packet_Summary[This.GetRow()] + '*' + '~r~n' + '~r~n'+ This.Object.LJFIEB_packet_Postscript[This.GetRow()]
ELSE
	tab_1.tabpage_2.mle_send.Text = ''
END IF


end event