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

$PBExportHeader$w_reissue_spt_ljfieb.srw
forward
global type w_reissue_spt_ljfieb from w_publ_base
end type
type dw_uc from datawindow within w_reissue_spt_ljfieb
end type
type dw_child from u_dw_rbtnfilter within w_reissue_spt_ljfieb
end type
type mle_1 from multilineedit within w_reissue_spt_ljfieb
end type
type st_1 from statictext within w_reissue_spt_ljfieb
end type
type st_2 from statictext within w_reissue_spt_ljfieb
end type
type sle_scname from singlelineedit within w_reissue_spt_ljfieb
end type
type cb_accept from uo_imflatbutton within w_reissue_spt_ljfieb
end type
type cb_feedback from uo_imflatbutton within w_reissue_spt_ljfieb
end type
type cb_reject from uo_imflatbutton within w_reissue_spt_ljfieb
end type
type mle_2 from multilineedit within w_reissue_spt_ljfieb
end type
type st_3 from statictext within w_reissue_spt_ljfieb
end type
type ln_bar from line within w_reissue_spt_ljfieb
end type
type ln_bar2 from line within w_reissue_spt_ljfieb
end type
type ln_1 from line within w_reissue_spt_ljfieb
end type
type ln_2 from line within w_reissue_spt_ljfieb
end type
type r_bar from rectangle within w_reissue_spt_ljfieb
end type
end forward

global type w_reissue_spt_ljfieb from w_publ_base
integer width = 3611
integer height = 2380
string title = "供应商费用申请单"
boolean minbox = false
windowtype windowtype = response!
windowstate windowstate = maximized!
event ue_quote ( )
dw_uc dw_uc
dw_child dw_child
mle_1 mle_1
st_1 st_1
st_2 st_2
sle_scname sle_scname
cb_accept cb_accept
cb_feedback cb_feedback
cb_reject cb_reject
mle_2 mle_2
st_3 st_3
ln_bar ln_bar
ln_bar2 ln_bar2
ln_1 ln_1
ln_2 ln_2
r_bar r_bar
end type
global w_reissue_spt_ljfieb w_reissue_spt_ljfieb

type variables
Transaction tr_eb_sqlca

s_packet_ljfieb s_inscust


long ins_scid,ins_cusid
string ins_sn

uo_quote uo_quote_mtrl

uo_ljfieb uo_fieb


long ins_sendid,ins_receid
string ins_sendsccode,ins_reccesccode
string ins_RelatedCode

datetime ins_addtime
string ins_adduser

string ins_relreissuecode
end variables

forward prototypes
public function integer wf_retrieve (string arg_sn, long arg_sendcuscommid, string arg_sendsccode, ref string arg_msg)
public function integer wf_importnewbj (long arg_cusid, long arg_moneyid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg)
public function integer wf_importnewprice (long arg_cusid, long arg_moneyid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg)
end prototypes

public function integer wf_retrieve (string arg_sn, long arg_sendcuscommid, string arg_sendsccode, ref string arg_msg);Int rslt = 1
String ls_cuscode
Long uc_row
Long ll_i, ll_rowcnt,ll_row
Long ll_moneyid,ll_banktypeid

Decimal ls_1stnewprice,ls_1stzqrate

dw_uc.Retrieve(arg_sn)
dw_child.Retrieve(arg_sn)

uc_row = dw_uc.GetRow()

IF uc_row <= 0 THEN
	rslt = 0
	arg_msg = '没有对应的单据信息'
	GOTO ext
END IF


SELECT CusCode
	INTO :ls_cuscode
	FROM LJFIEB_CusComm
	Where CusCommID = :arg_sendcuscommid Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	ls_cuscode = ''
END IF

IF Trim(ls_cuscode) = '' THEN
	rslt = 0
	arg_msg = '供应商信息不明确,请检查'
	GOTO ext
END IF

Long ll_sptid
String ls_sptcode, ls_sptname

SELECT sptid, sptcode, name
	INTO :ll_sptid,:ls_sptcode,:ls_sptname
	FROM u_spt
	WHERE  commcode = :ls_cuscode
	And commsccode = :arg_sendsccode Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询供应商信息失败,请检查通信设置是否正确,'+sqlca.SQLErrText
	GOTO ext
END IF

ins_cusid = ll_sptid

//dw_uc.Object.cusid[uc_row] = ll_sptid
dw_uc.Object.CusCode[uc_row] = ls_sptcode
dw_uc.Object.cusname[uc_row] = ls_sptname


ext:
RETURN rslt

end function

public function integer wf_importnewbj (long arg_cusid, long arg_moneyid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg);Int rslt = 1

IF arg_moneyid = 0  THEN
	rslt = 0
	arg_msg = '请先选择币种'
	GOTO ext
END IF

IF IsNull(arg_cusid) THEN arg_cusid = 0

IF arg_cusid = 0  THEN
	rslt = 0
	arg_msg = "请选择销售客户!"
	GOTO ext
END IF


SELECT u_cus_price.fprice_bj,u_cus_price.zqrate_bj
	INTO :arg_price,:arg_rebate
	FROM u_cus_price
	WHERE ( u_cus_price.cusid = :arg_cusid ) AND
	( u_cus_price.mtrlid = :arg_mtrlid ) AND
	( u_cus_price.status = :arg_status ) AND
	( u_cus_price.pcode = :arg_pcode ) AND
	( u_cus_price.woodcode = :arg_woodcode ) and 
	( u_cus_price.moneyid = :arg_moneyid);
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "没有最新销售价!"
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	arg_price = 0
	arg_rebate = 0
END IF

RETURN rslt

end function

public function integer wf_importnewprice (long arg_cusid, long arg_moneyid, long arg_mtrlid, string arg_status, string arg_woodcode, string arg_pcode, ref decimal arg_price, ref decimal arg_rebate, ref string arg_msg);Int rslt = 1

IF arg_moneyid = 0  THEN
	rslt = 0
	arg_msg = '请先选择币种'
	GOTO ext
END IF

IF IsNull(arg_cusid) THEN arg_cusid = 0

IF arg_cusid = 0  THEN
	rslt = 0
	arg_msg = "请选择销售客户!"
	GOTO ext
END IF


SELECT u_cus_price.fprice,u_cus_price.zqrate
	INTO :arg_price,:arg_rebate
	FROM u_cus_price
	WHERE ( u_cus_price.cusid = :arg_cusid ) AND
	( u_cus_price.mtrlid = :arg_mtrlid ) AND
	( u_cus_price.status = :arg_status ) AND
	( u_cus_price.pcode = :arg_pcode ) AND
	( u_cus_price.woodcode = :arg_woodcode ) and 
	( u_cus_price.moneyid = :arg_moneyid);
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = "没有最新销售价!"
	GOTO ext
END IF

ext:
IF rslt = 0 THEN
	arg_price = 0
	arg_rebate = 0
END IF

RETURN rslt

end function

on w_reissue_spt_ljfieb.create
int iCurrent
call super::create
this.dw_uc=create dw_uc
this.dw_child=create dw_child
this.mle_1=create mle_1
this.st_1=create st_1
this.st_2=create st_2
this.sle_scname=create sle_scname
this.cb_accept=create cb_accept
this.cb_feedback=create cb_feedback
this.cb_reject=create cb_reject
this.mle_2=create mle_2
this.st_3=create st_3
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.ln_1=create ln_1
this.ln_2=create ln_2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_uc
this.Control[iCurrent+2]=this.dw_child
this.Control[iCurrent+3]=this.mle_1
this.Control[iCurrent+4]=this.st_1
this.Control[iCurrent+5]=this.st_2
this.Control[iCurrent+6]=this.sle_scname
this.Control[iCurrent+7]=this.cb_accept
this.Control[iCurrent+8]=this.cb_feedback
this.Control[iCurrent+9]=this.cb_reject
this.Control[iCurrent+10]=this.mle_2
this.Control[iCurrent+11]=this.st_3
this.Control[iCurrent+12]=this.ln_bar
this.Control[iCurrent+13]=this.ln_bar2
this.Control[iCurrent+14]=this.ln_1
this.Control[iCurrent+15]=this.ln_2
this.Control[iCurrent+16]=this.r_bar
end on

on w_reissue_spt_ljfieb.destroy
call super::destroy
destroy(this.dw_uc)
destroy(this.dw_child)
destroy(this.mle_1)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.sle_scname)
destroy(this.cb_accept)
destroy(this.cb_feedback)
destroy(this.cb_reject)
destroy(this.mle_2)
destroy(this.st_3)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.ln_1)
destroy(this.ln_2)
destroy(this.r_bar)
end on

event open;call super::open;tr_eb_sqlca = sys_email_sqlca // 电子商务连接

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

dw_uc.settransobject(tr_eb_sqlca)
dw_child.settransobject(tr_eb_sqlca)

uo_fieb = Create uo_ljfieb
uo_fieb.commit_transaction = tr_eb_sqlca

s_inscust = Message.PowerObjectParm

ins_sn = s_inscust.serialnum

ins_sendid = s_inscust.sendcuscommid
ins_receid = s_inscust.receivecuscommid
ins_sendsccode = s_inscust.sendsccode
ins_reccesccode = s_inscust.receivesccode
ins_RelatedCode = s_inscust.RelatedCode
ins_addtime = s_inscust.addtime
ins_adduser = s_inscust.adduser

String ls_sccode,ls_scname
String arg_msg

ls_sccode = s_inscust.receivesccode

SELECT scid,scname
	INTO  :ins_scid,:ls_scname
	FROM u_scdef
	Where sccode = :ls_sccode;
IF sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询分部信息失败,'+sqlca.SQLErrText)
	RETURN
END IF

sle_scname.Text = ls_scname
mle_1.Text = s_inscust.postscript
mle_2.Text = s_inscust.remark

long ll_status

SELECT status INTO :ll_status
	FROM LJFIEB_packet
	Where serialnum = :ins_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	MessageBox('Error','查询通信数据失败,'+sqlca.SQLErrText)
	RETURN
END IF

if ll_status <> 5 then 
	cb_accept.enabled = false
	cb_reject.enabled = false
end if

IF wf_retrieve(ins_sn,ins_sendid,ins_sendsccode,arg_msg) = 0 THEN
	MessageBox('Error',arg_msg)
	RETURN
END IF

//更新对方状态-已打开
string ls_SerialNum

SELECT  TOP 1 NEWID() INTO :ls_SerialNum
	From u_user Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	return
END IF

IF IsNull(ls_SerialNum) THEN ls_SerialNum = ''

IF ls_SerialNum = '' THEN
	return 
END IF

IF uo_fieb.add_packet(ls_SerialNum,'',ins_receid,ins_reccesccode,ins_sendid,ins_sendsccode,5,'打开消息','','',ins_sn,'',0,arg_msg,True) = 0 THEN
	return
END IF


end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width

ln_1.endx = this.width
ln_2.endx = this.width

dw_child.width = this.WorkSpaceWidth() - 10

mle_1.width = dw_child.width - dw_uc.width - 4
mle_2.width = mle_1.width

dw_child.height = this.workspaceheight() - dw_child.y - 30
end event

event close;call super::close;destroy uo_fieb

closewithreturn(this,ins_relreissuecode)
end event

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

type cb_exit from w_publ_base`cb_exit within w_reissue_spt_ljfieb
integer x = 1221
integer width = 183
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type dw_uc from datawindow within w_reissue_spt_ljfieb
integer y = 296
integer width = 1966
integer height = 1092
integer taborder = 30
boolean bringtotop = true
string title = "none"
string dataobject = "dw_reissue_cus_ljfieb"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_child from u_dw_rbtnfilter within w_reissue_spt_ljfieb
integer y = 1404
integer width = 3584
integer height = 852
integer taborder = 20
boolean bringtotop = true
boolean titlebar = true
string title = "单据明细内容"
string dataobject = "dw_reissue_mx_ljfieb"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
end type

event rowfocuschanged;call super::rowfocuschanged;	IF currentrow <= 0 THEN RETURN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
	this.setrow(currentrow)
end event

event clicked;call super::clicked;	IF row <= 0 THEN RETURN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(row,TRUE)
	this.setrow(row)
end event

event rbuttondown;call super::rbuttondown;Long ll_row,ll_column
ll_row = This.GetRow()
ll_column = This.GetColumn()

IF ll_row <= 0 THEN RETURN
IF ll_column <= 0 THEN RETURN

IF Left( This.Describe( dwo.Name+ ".coltype"),4) = 'date' THEN
	s_calender_arg s_calender
	
	s_calender.PointerX = This.PointerX()
	s_calender.PointerY = This.PointerY()
	s_calender.X = This.X + Parent.X
	s_calender.Y = This.Y + Parent.Y
	
	OpenWithParm(w_calendar,s_calender)
	This.SetItem(ll_row,ll_column,id_date_selected)
END IF

end event

type mle_1 from multilineedit within w_reissue_spt_ljfieb
integer x = 1970
integer y = 360
integer width = 1595
integer height = 664
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
boolean autovscroll = true
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_reissue_spt_ljfieb
integer x = 1979
integer y = 300
integer width = 142
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 = 134217739
string text = "附言"
boolean focusrectangle = false
end type

type st_2 from statictext within w_reissue_spt_ljfieb
integer x = 23
integer y = 204
integer width = 155
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "分部"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_scname from singlelineedit within w_reissue_spt_ljfieb
integer x = 210
integer y = 188
integer width = 443
integer height = 84
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 cb_accept from uo_imflatbutton within w_reissue_spt_ljfieb
integer width = 494
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "转为供应商费用单"
string normalpicname = "ok.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;If Not f_power_ind(3407) Then
	MessageBox(publ_operator,sys_msg_pow)
	Return
End If

If MessageBox('询问','确定要接受当前费用申请单,转为正式供应商费用单吗?',question!,yesno!) = 2 Then Return

If ins_cusid = 0 Then
	MessageBox('系统提示','供应商信息不明确,不能生成供应商费用单,请检查')
	Return
End If

s_packet_ljfieb s_edit_tran
s_edit_tran.serialnum = ins_sn
s_edit_tran.cusid = ins_cusid
s_edit_tran.scid = ins_scid
s_edit_tran.billtype = 2

OpenWithParm(w_reissue_cus_ljfieb_edit,s_edit_tran)

String ls_relreissuecode

ls_relreissuecode = Message.StringParm

If ls_relreissuecode = '' Then Return

ins_relreissuecode = ls_relreissuecode

String arg_msg
String ls_SerialNum

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
End If

If IsNull(ls_SerialNum) Then ls_SerialNum = ''

If ls_SerialNum = '' Then
	MessageBox('Error','错误的发送序列号')
	Return
End If


If uo_fieb.add_packet(ls_SerialNum,'',ins_receid,ins_reccesccode,ins_sendid,ins_sendsccode,6,'安排报价','','',ins_sn,ins_RelatedCode,0,arg_msg,True) = 0 Then
	MessageBox('系统提示','发送确认指令失败 '+arg_msg)
	Return
End If

If MessageBox('系统提示','成功生成供应商费用单:'+ls_relreissuecode+',是否马上打开?',question!,yesno!) = 2 Then ins_relreissuecode = ''

Close(Parent)




end event

type cb_feedback from uo_imflatbutton within w_reissue_spt_ljfieb
integer x = 498
integer width = 494
integer height = 164
integer taborder = 10
boolean bringtotop = true
string text = "相关供应商费用单"
string normalpicname = "open.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long ll_row
String ls_code
Long cnt
String ls_relreissuecode

ll_row  = dw_uc.GetRow()

If ll_row <= 0 Then Return

If dw_uc.Object.flag[ll_row] = 0 Then
	MessageBox('系统提示','本客户费用申请单尚未进行处理')
	Return
End If

ls_code = dw_uc.Object.relreissuecode[ll_row]

Select count(*)
	Into :cnt
	From u_reissue
	Where reissuecode = :ls_code Using sqlca;
If sqlca.SQLCode <> 0 Then
	MessageBox('Error','查询费用单信息失败,'+sqlca.SQLErrText)
	Return
End If

If cnt = 0 Then
	If Not f_power_ind(3407) Then
		MessageBox('系统提示','无法查询相关费用单,可能已被删除')
		Return
	Else
		If MessageBox('询问','无法查询相关费用单,可能已被删除,是否重新生成新的费用单?',question!,yesno!) = 2 Then Return
		
		If ins_cusid = 0 Then
			MessageBox('系统提示','供应商信息不明确,不能生成供应商费用单,请检查')
			Return
		End If
		
		s_packet_ljfieb s_edit_tran
		s_edit_tran.serialnum = ins_sn
		s_edit_tran.cusid = ins_cusid
		s_edit_tran.scid = ins_scid
		s_edit_tran.billtype = 2
		
		
		OpenWithParm(w_reissue_cus_ljfieb_edit,s_edit_tran)
		
		
		ls_relreissuecode = Message.StringParm
		
		If ls_relreissuecode = '' Then Return
		
		dw_uc.Object.relreissuecode[ll_row] = ls_relreissuecode
		
		f_open_win(ins_scid,ls_relreissuecode)
	End If
Else
	f_open_win(ins_scid,ls_code)
End If







end event

type cb_reject from uo_imflatbutton within w_reissue_spt_ljfieb
integer x = 992
integer width = 219
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "拒绝"
string normalpicname = "DELETE.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

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

String arg_summary,arg_postscript,arg_remark
String arg_msg

String ls_SerialNum

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
END IF

IF IsNull(ls_SerialNum) THEN ls_SerialNum = ''

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

s_packet_ljfieb s_pack,s_return


//s_pack.summary = '拒绝订单:'+ins_RelatedCode

OpenWithParm(w_dscrp_edit_ljfieb,s_pack)

s_return = Message.PowerObjectParm

IF s_return.returnflag <> 1 THEN RETURN

//arg_summary = s_return.summary
arg_postscript = s_return.postscript
arg_remark = s_return.remark


UPDATE LJFIEB_tempspt_price_change
	SET flag = 2
	Where SerialNum = :ins_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	ROLLBACK Using tr_eb_sqlca;
	MessageBox('Error','更新费用单状态失败,'+tr_eb_sqlca.SQLErrText)
	RETURN 0
END IF

//更新本地通信记录
UPDATE LJFIEB_packet
	SET status = 10,
	Complete = 1
	Where SerialNum = :ins_sn Using tr_eb_sqlca;
IF tr_eb_sqlca.SQLCode <> 0 THEN
	ROLLBACK Using tr_eb_sqlca;
	MessageBox('Error', '更新本地通信记录失败,'+tr_eb_sqlca.SQLErrText)
	RETURN
END IF

IF uo_fieb.add_packet(ls_SerialNum,'',ins_receid,ins_reccesccode,ins_sendid,ins_sendsccode,11,arg_summary,arg_postscript,arg_remark,ins_sn,ins_RelatedCode,0,arg_msg,True) = 0 THEN
	MessageBox('系统提示','发送确认指令失败 '+arg_msg)
	RETURN
END IF

MessageBox('系统提示','操作成功')
Close(Parent)

end event

type mle_2 from multilineedit within w_reissue_spt_ljfieb
integer x = 1970
integer y = 1120
integer width = 1595
integer height = 264
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
boolean autovscroll = true
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within w_reissue_spt_ljfieb
integer x = 1979
integer y = 1060
integer width = 128
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "备注"
boolean focusrectangle = false
end type

type ln_bar from line within w_reissue_spt_ljfieb
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3200
integer endy = 172
end type

type ln_bar2 from line within w_reissue_spt_ljfieb
long linecolor = 16777215
integer linethickness = 4
integer beginx = 9
integer beginy = 176
integer endx = 3273
integer endy = 176
end type

type ln_1 from line within w_reissue_spt_ljfieb
long linecolor = 268435456
integer linethickness = 4
integer beginy = 284
integer endx = 3250
integer endy = 284
end type

type ln_2 from line within w_reissue_spt_ljfieb
long linecolor = 16777215
integer linethickness = 4
integer beginy = 288
integer endx = 3282
integer endy = 288
end type

type r_bar from rectangle within w_reissue_spt_ljfieb
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 3351
integer width = 87
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event