
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：仕入売上書類登録
'	 作成日：2002/9/10
'	 作成者：山崎　貴史
'	 目的	：・仕入伝票データを登録する。
'
'	 概要　：
'			１．データの引継ぎ
'			２．ストアドプロシージャーの引数の作成
'			３．ストアドプロシージャー実行
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim ShowDel
	ShowDel = Request("ShowDel")
	Dim ShowRet
	ShowRet = Request("ShowRet")


	Dim Content
	Dim w_no, Query, w_tc, w_biko, w_aite, ii, jj, KK, q_siwake, r_siwake

	Dim SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, OldBunsyoNaiyoCD
	Dim Syoribi, TorihikisakiCD
	Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, KitakuGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim Kakeritsu, RouteType
	Dim BinType
	Dim SyohinCD(5)														'商品コード
	Dim Suryo(5)															'数量
	Dim Tanka(5)															'単価
	Dim TaxRate(5)	'消費税率

	Dim UnsoTanka(5)													'運送単価

	Dim Kakaku(5)								'標準価格
	Dim SyohinName(5)							'商品名称
	Dim Kingaku(5)														'金額
	Dim SojyushinKubun

	Dim Tekiyo2


	Dim UnsohiSeikyuJido
	Dim AiteShukkoHitsuyo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		UnsohiSeikyuJido = Content.Fields("運送費請求書旧バージョン利用")	'0で自動処理を利用
		AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
	End If

'###############################################	 １．データの引継ぎ


	'ヘッダ部
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")	'作成会社CD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")	'文書種類CD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")							'文書内容CD
	OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD")							'文書内容CD
	Syoribi = Request("Syoribi")									'処理日
	TorihikisakiCD = Request("TorihikisakiCD")						'取引先CD
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")					'先方文書内容CD
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")	'先方仕入売上区分
	SenpoSyoribi = Request("SenpoSyoribi")							'先方処理日
	NonyuKijitsu = Request("NonyuKijitsu")							'納入期日
	NonyuBasyoKubun = Request("NonyuBasyoKubun")					'納入場所区分
	UntinSyogakariKubun = Request("UntinSyogakariKubun")			'運賃諸掛区分
	UnsoGaisyaCD = Request("UnsoGaisyaCD")							'運送会社CD
	Unsohi = ConvMoneyToInt(Request("Unsohi"))						'運送費
	UnsohiSeikyuFlg = Request("UnsohiSeikyuFlg")					'運送費請求フラグ
	Tekiyo = Request("Tekiyo")										'摘要
	ShiharaiHoho = Request("ShiharaiHoho")							'支払方法
	HasshinFlg = Request("HasshinFlg")									'発行フラグ
	Kakeritsu = Request("Kakeritsu")								'掛率
	BinType = Request("BinType")
	RouteType = Request("RouteType")
	SojyushinKubun = Request("SojyushinKubun")
	Tekiyo2 = Request("Tekiyo2")

	'明細部：TK仕入伝票明細Ｆ
	For ii = 1 To 5
		SyohinCD(ii) = Request("SyohinCD" & ii)				'商品CD
		Suryo(ii) = ConvMoneyToInt(Request("Suryo" & ii))		'数量
		Tanka(ii) = ConvMoneyToInt(Request("Tanka" & ii))		'単価
		TaxRate(ii) = ConvMoneyToInt(Request("TaxRate" & ii))	'消費税率
		UnsoTanka(ii) = ConvMoneyToInt(Request("UnsoTanka" & ii))		'単価
	Next

	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If


	If Unsohi = "" Then
		Unsohi = "0"
	End If

	If BinType = "Kaifu" Then
		Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "','" & SakuseiKaisyaCD &"', 'KU', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "','" & SakuseiKaisyaCD &"', 'KU', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fd_syorui_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
	End If

'''''''''''削除
	If Request("BinType") = "Sakujyo" Then
		Query = "exec SPD仕入売上書類削除"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & KaisyaCD & "'"				'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)

		If InStr(RouteType, "RMail") > 0 Then
			Response.Redirect("/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Revc")
		ElseIf InStr(RouteType, "SMail") > 0 Then
			Response.Redirect("/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Send")
		Else
			Response.Redirect("fd_syorui_view.asp?RouteType=" & RouteType & "&SojyushinKubun=" & SojyushinKubun & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
		End If
		Exit Sub
	End if

'''''''''''先方書類削除
	If Request("BinType") = "SenpoSakujo" Then
		Query = "exec SPD仕入売上書類削除"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"				'作成会社CD
		Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fd_syorui_ichiran.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&ShowDel=" & ShowDel & "&ShowRet=" & ShowRet)
		Exit Sub
	End if

'''''''''''一括更新
'	If Kakeritsu <> "" Then
	If 1 = 0 Then
		Query = "exec SPD仕入売上一括更新 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & BunsyoSyuruiCD & "','" & Kakeritsu & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fd_syorui_ikkatsu.asp?BunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD )
	End If

''''''''''''発信
	If BinType = "Hasshin" Then

Call Application.Lock()
		If BunsyoSyuruiCD <> "KD" Then
			Query = "exec SPD仕入売上書類発信"
			Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"						'演習CD
			Query = Query & ",'" & KaisyaCD & "'"					'会社CD
			Query = Query & ",'" & SakuseiKaisyaCD & "'"					'作成会社CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"		'文書種類CD
			Query = Query & ",'" & BunsyoNaiyoCD & "'"
			Query = Query & ",'" & Syoribi & "'"						'処理日
			Query = Query & ",'" & GakuseiNo & "'"					'学生番号
		Else '寄託出庫の場合は運送会社へ依頼文書を発行する
			Query = "exec SPD仕入売上書類発信2"
			Query = Query & " '" & GB_SystemCD & "','" & EnshuCD & "'"						'演習CD
			Query = Query & ",'" & KaisyaCD & "'"					'会社CD
			Query = Query & ",'" & SakuseiKaisyaCD & "'"					'作成会社CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"		'文書種類CD
			Query = Query & ",'" & BunsyoNaiyoCD & "'"
			Query = Query & ",'" & Syoribi & "'"						'処理日
			Query = Query & ",'" & GakuseiNo & "'"					'学生番号
		End If
Call Application.UnLock()
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)


		'運送費請求書自動処理
		If (BunsyoSyuruiCD = "KN" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KP") And UnsoGaisyaCD <> "" And UnsohiSeikyuJido = "0" Then
			'発信時は書類情報クエリが無いため再取得
			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				'運送費が存在しない場合は除外
				If "" & Content.Fields("運送費") <> "0" And "" & Content.Fields("運送費") <> "" And ("" & Content.Fields("運賃諸掛区分") = "K" OR "" & Content.Fields("運賃諸掛区分") = "U") Then

					Syoribi = Content.Fields("処理日")

					Query = "exec SPC運送費請求書挿入 '" & GB_SystemCD & "', '" & EnshuCD & "'" 
					Query = Query & ",'" & UnsoGaisyaCD &  "'" 	'会社CD（運送会社）
					Query = Query & ",'" & UnsoGaisyaCD &  "'" 	'会社CD（運送会社）
					Query = Query & ",'CA'"						'文書種類CD
					Query = Query & ",''"						'文書内容CD（採番）
					Query = Query & ",'" & Syoribi & "'"		'処理日
					Query = Query & ",'" & KaisyaCD & "'"		'取引先CD（買主/売主負担に関わらず発送元が支払う）
					Query = Query & ",'" & KaisyaCD & ":" & BunsyoSyuruiCD & ":" & BunsyoNaiyoCD & "'"	'納品請求書番号（元文書の会社CD:文書種類CD:文書内容CD）
					Query = Query & ",''"						'支払方法（空白）
					Query = Query & ",''"						'摘要（空白）
					Query = Query & ",'0'"
					Query = Query & ",'0'"
					'運送費請求書自動作成では学生番号は常にNULL（作成者が自分になってしまうため。模擬実践でも運送会社担当者は複数の可能性があり特定不能）
'					If GB_EnshuKubun = "P" AND GB_JisyaFlag = "0" Then
						Query = Query & ",''"		
'					Else
'						Query = Query & ",'" & GakuseiNo & "'"
'					End If
'Response.Write(Query)
'Exit Sub
					Set Content = OpenQuery(Query)

					Dim UnsoBunsyoNaiyoCD
					If Content.Fields.Count > 0 Then
						UnsoBunsyoNaiyoCD = Content.Fields(0)	'文書内容CD取得
					End If

					Query = "exec SPC運送費請求書発信 '" & GB_SystemCD & "', '" & EnshuCD & "'"
					Query = Query & ",'" & UnsoGaisyaCD & "'"	'会社CD（運送会社）
					Query = Query & ",'" & UnsoGaisyaCD & "'"	'会社CD（運送会社）
					Query = Query & ",'CA'"						'文書種類CD
					Query = Query & ",'" & UnsoBunsyoNaiyoCD & "'"	'文書内容CD（挿入時に取得した番号）
					Query = Query & ",'" & Syoribi & "'"		'処理日
					Query = Query & ",'" & GakuseiNo & "'"		'学生番号
					Set Content = OpenQuery(Query)

				End If
			End If
		End If


		'自動出庫処理（管理部納品請求書の場合のみ）
		If BunsyoSyuruiCD = "KV" Then

			'発信時は書類情報クエリが無いため再取得
			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				TorihikisakiCD = Content.Fields("取引先CD")
				Syoribi = Content.Fields("処理日")
				SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
				SenpoSyoribi = Content.Fields("先方処理日")
				UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
				UnsoGaisyaCD = Content.Fields("運送会社CD")

				Do While Not(Content.BOF Or Content.EOF)
					Dim DenpyoSEQ,PreDenpyoSEQ
					DenpyoSEQ = Content.Fields("文書内容SEQ")
					SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
					Suryo(DenpyoSEQ) = Content.Fields("数量")
					Tanka(DenpyoSEQ) = Content.Fields("単価")
					TaxRate(DenpyoSEQ) = Content.Fields("消費税率")
					UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
					Content.MoveNext
				Loop
			End If

			'TGA入出庫TRNへデータを登録##############################
			'キー：システムCD,演習CD,会社CD,作成会社CD,文書種類CD
			Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "',"
			Query = Query & " '" & EnshuCD & "'"			'演習CD
			Query = Query & ",'" & KaisyaCD & "'"			'会社CD
			Query = Query & ",'" & KaisyaCD & "'"			'作成会社CD
			Query = Query & ",'SU'"		'文書種類CD
			If BunsyoNaiyoCD = "" Then
				Query = Query & ",''"
			Else
				Query = Query & ",'" & BunsyoNaiyoCD & "'"
			End If
			Query = Query & ",1"							'処理時期区分
			Query = Query & ",'" & Syoribi & "'"			'処理日
			Query = Query & ",'" & TorihikisakiCD & "'"		'取引先CD
			If SenpoBunsyoNaiyoCD = "" Then
				Query = Query & ", null"
			Else
				Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"	'先方文書内容CD
			End If
			Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"	'先方文書種類CD
			If SenpoSyoribi = "" Then
				Query = Query & ", null"
			Else
				Query = Query & ",'" & SenpoSyoribi & "'"			'先方処理日
			End If
			Query = Query & ",'" & UntinSyogakariKubun & "'"	'運賃諸掛区分
			If Unsohi = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & Unsohi & ""		'運送費
			End If
			Query = Query & ",'" & GakuseiNo & "'"			'学生番号
			Query = Query & ",''"	'先方注文書の文書種類CD
			Query = Query & ",''"	'先方注文書の文書内容CD
			'明細部
			jj = 0
			For ii = 1 To 5
				If SyohinCD(ii) = "" Then
					Query = Query & ",null,null,null,null,null"
				Else
					jj = jj + 1
					Query = Query & "," & jj						'伝票SEQ
					Query = Query & ",'"& SyohinCD(ii) & "'"		'商品CD
					Query = Query & ","& Suryo(ii)					'受注数量
					Query = Query & ","& Tanka(ii)					'受注単価
					If "" & UnsoTanka(ii) = "" Then
						Query = Query & ", null"
					Else
						Query = Query & "," & UnsoTanka(ii) & ""		'運送単価
					End If
				 End If
			Next
			Set Content = OpenQuery(Query)

			'文書内容CD取得
			Dim TmpBunsyoNaiyoCD
			While Not Content Is Nothing
				If Content.Fields.Count > 0 Then
					TmpBunsyoNaiyoCD = Content.Fields(0)
				End If
				Set Content = Content.NextRecordset
			Wend

			If AiteShukkoHitsuyo = "1" Then
				'TGA入出庫TRNへ出庫先の会社用のデータを作成##############################
				Query = "exec SPD入出庫発信 '" & GB_SystemCD & "',"
				Query = Query & " '" & EnshuCD & "'"				'演習CD
				Query = Query & ",'" & KaisyaCD & "'"			'会社CD
				Query = Query & ",'" & KaisyaCD & "'"			'会社CD
				Query = Query & ",'SU'"			'文書種類CD
				Query = Query & ",'" & TmpBunsyoNaiyoCD & "'"
				Query = Query & ",'" & Syoribi & "'"				'処理日
				If GakuseiNo = "" Then
					Query = Query & ", null"
				Else
					Query = Query & ",'" & GakuseiNo & "'"			          '学生番号
				End If
DebugQuery(Query)
				Set Content = OpenQuery(Query)
			End If

		End If


		Do While Not Content Is Nothing
			If Content.Fields.Count > 0 Then
				Exit Do
			End If
			Set Content = Content.NextRecordSet()
		Loop


		'※ウェイトを挿入してからリダイレクトする
		'Response.Redirect("fd_syorui_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=HasshinZumi")
		Call WaitRedirect("fd_syorui_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=HasshinZumi", 500)
		Exit Sub

	End If



'###############################################	 ２．ストアドプロシージャーの引数の作成

	If UnsohiSeikyuFlg = "" Then
		UnsohiSeikyuFlg = "null"
	End If

	If Unsohi = "" Then
		Unsohi = "null"
	End If


	If BunsyoNaiyoCD <> OldBunsyoNaiyoCD Then
		Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
DebugQuery(Query)
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Response.Write("この書類番号は存在しています。<br>")
%>
	<a href="JavaScript:history.go(-1)">戻る</a>
<%
			Exit Sub
		End If
	End If

	'実行プロシージャーの特定　
	If OldBunsyoNaiyoCD = "" Then					'追加モード
		Query = "exec SPD仕入売上書類挿入 '" & GB_SystemCD & "',"
	Else
		Query = "exec SPD仕入売上書類更新 '" & GB_SystemCD & "',"
	End If

	'伝票番号
	Query = Query & " '" & EnshuCD & "'"						'演習CD
	Query = Query & ",'" & KaisyaCD & "'"					'会社CD
	Query = Query & ",'" & KaisyaCD & "'"					'作成会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"					'文書種類CD
	Query = Query & ",'" & BunsyoNaiyoCD & "'"

	If OldBunsyoNaiyoCD = "" Then
	Else
		Query = Query & ",'" & OldBunsyoNaiyoCD & "'"
	End If

	Query = Query & ",'S'"					'送受信区分
	Query = Query & ",'" & Syoribi & "'"						'処理日
	Query = Query & ",'" & TorihikisakiCD & "'"					'取引先CD
	If SenpoBunsyoNaiyoCD = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"				'先方文書内容CD
	End If
	Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"				'先方文書種類CD
	If SenpoSyoribi = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SenpoSyoribi & "'"				'先方処理日
	End If
	Query = Query & ",'" & NonyuKijitsu & "'"					'納入期日
	Query = Query & ",'" & NonyuBasyoKubun & "'"				'納入場所区分
	Query = Query & ",'" & UntinSyogakariKubun & "'"			'運賃諸掛区分
	Query = Query & ",'" & UnsoGaisyaCD & "'"					'運送会社CD
	Query = Query & "," & Unsohi & ""							'運送費
	Query = Query & "," & UnsohiSeikyuFlg & ""					'運送費請求フラグ
	Query = Query & ",'" & Tekiyo & "'"							'摘要
	Query = Query & ",'" & Tekiyo2 & "'"							'摘要
	Query = Query & ",'" & ShiharaiHoho & "'"					'支払方法
	Query = Query & ",'" & HasshinFlg & "'"						'発行フラグ
	Query = Query & ",'0'"						'発行フラグ
	Query = Query & ",'0'"						'返信フラグ
	
	If GB_EnshuKubun = "P" AND GB_JisyaFlag = "0" Then
		Query = Query & ",''"
	Else
		Query = Query & ",'" & GakuseiNo & "'"
	End If
	
	'**　画面明細部　
	jj = 0
	For ii = 1 To 5
		If SyohinCD(ii) = "" Then
			Query = Query & ",null,null,null,null,null,null"
		Else
			jj = jj + 1
			Query = Query & "," & jj						'伝票SEQ
			Query = Query & ",'"& SyohinCD(ii) & "'"		'商品CD
			Query = Query & ","& Suryo(ii)					'受注数量
			If Tanka(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & ","& Tanka(ii)					'受注単価
			End If
			If TaxRate(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & ","& TaxRate(ii)	'消費税率
			End If
			If UnsoTanka(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & ","& UnsoTanka(ii)				'運送単価
			End If
		End If
	Next
'Response.Write(Query)
'Exit Sub


'###############################################	 ？．ストアドプロシージャ-実行
DebugQuery(Query)
	Set Content = OpenQuery(Query)

	While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			BunsyoNaiyoCD = Content.Fields(0)
		End If
		Set Content = Content.NextRecordset
	Wend

'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fd_syorui_view.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)

End Sub
%>