
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	–¼Ì	FŽd“ü”„ã“`•[•\Ž¦
'	ì¬“úF2002/8/25
'	ì¬ŽÒFìè
'	–Ú“I@FŽd“üE”„ã“`•[‰æ–Ê‚ð•\Ž¦‚·‚éB
'	ŠT—v	F
'	 <<•\Ž¦>>
'	E‰Šú‚Í"’Ç‰Áƒ‚[ƒh"F“`•[”Ô†‚Í‚m‚t‚k‚k
'	E“`•[”Ô†‚ªŽw’è‚µ‚Ä‚ ‚éê‡‚Í"C³ƒ‚[ƒh"
'	‚PDu“`•[vƒwƒbƒ_•”‚Ìƒf[ƒ^‚ðŽæ“¾B
'	‚QDuŽd“ü–¾×v–¾×•”‚Ìƒf[ƒ^‚ðŽæ“¾B
'	<<“ü—Íƒ`ƒFƒbƒN>>
'	‚PDŽæˆø“ú‚Ìƒ`ƒFƒbƒN
'	‚QDŽæˆøæ‚Ìƒ`ƒFƒbƒN
'	‚RD–¾×•”‚Ìƒ`ƒFƒbƒN
'Œë“ü—ÍŽž‚Ìƒ_ƒCƒAƒƒO•\Ž¦C³(ƒtƒH[ƒJƒXˆÚ“®Žž‚ÍAƒ`ƒFƒbƒN‚µ‚È‚¢‚æ‚¤‚É+ƒf[ƒ^ƒNƒŠƒA) 
'      2006/06/14@@By Hamada
'################################################
'-->
'
%>

<%
main()

Sub main()

	'ƒ}ƒXƒ^‚Ì•W€Á”ïÅ—¦‚ðŽæ“¾
	Dim StdTaxRate
	Dim StdTaxRateUnso
	StdTaxRate = GB_Shohizei
	StdTaxRateUnso = GB_Shohizei
	If GB_ShohizeiMode = 1 Then
		Query = " SELECT * FROM TDAÁ”ïÅ—¦M WHERE ƒVƒXƒeƒ€CD = '" & GB_SystemCD & "' AND ‰‰KCD = '" & EnshuCD & "' AND (•W€ = '1' OR ‰^‘—”ï•W€ = '1') "
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("•W€") = "1" Then
				StdTaxRate = Content.Fields("Á”ïÅ—¦")
			End If
			If "" & Content.Fields("‰^‘—”ï•W€") = "1" Then
				StdTaxRateUnso = Content.Fields("Á”ïÅ—¦")
			End If
			Content.MoveNext
		Loop
	End If


	Dim TmpCnt

	Dim DenpyoNo, Torihikibi, DenpyoTekiyo,TorihikisakiCD		'“`•[”Ô†AŽæˆø“úA“`•[“E—vAŽæˆøæCD
	Dim DenpyoSyoriKubun,TujyoHenpinKubun,TmpTorihikisakiName	'“`•[ˆ—‹æ•ªA’Êí•Ô•i‹æ•ªAŽæˆøæ–¼Ì
	Dim PageType								'ƒy[ƒW‚ÌŽí—Þ	"Žd“ü"@or@"”„ã"‚©‚ð”»’è
	Dim SyohinCD(5)								'¤•iƒR[ƒh
	Dim SyohinName(5)							'¤•i–¼Ì
	Dim Kakaku(5)								'•W€‰¿Ši
	Dim Suryo(5)									'”—Ê
	Dim Tanka(5)									'’P‰¿
	Dim Kingaku(5)							 	'‹àŠz
	Dim TaxRate(5)							 	'Á”ïÅ—¦
	Dim GokeiKingaku								'‡Œv
	Dim SyohizeiKingaku							'Á”ïÅ
	Dim ZeikomiKingaku							'Åž‚Ý‹àŠz
	Dim Checked_N,Checked_R
	Dim GakuseiShimei							'Šw¶Ž–¼iŒWˆój
	Dim OldDenpyoNo
	SyohizeiKingaku = 0
	For TmpCnt = 1 To 5
		TaxRate(TmpCnt) = StdTaxRate
	Next

	Dim ShowDel
	ShowDel = Request("ShowDel")

	Dim LabelSoumu
	Dim LabelTanto
	Dim LabelKakari
	LabelSoumu = ""
	LabelTanto = ""
	LabelKakari = "ŒW@ˆó"
	If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If
	If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If
	If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If

	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Shimei
	DenpyoNo = Request("DenpyoNo")
	PageType=	Request("Pagetype")
	Dim title
		If PageType = "Shiire" Then
		title = "Žd“ü“`•["
	Else
		title = "”„ã“`•["
	End If

	Dim GakuseiBango
	If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then
	Else
		GakuseiBango =  GB_GakuseiNo
	End If



	Dim ErrorFlg
	ErrorFlg = Request("ErrorFlg")

	'’Ç‰Áƒ‚[ƒh‚ÅƒŠƒWƒFƒNƒg‚³‚ê‚½ê‡‚ÍƒNƒGƒŠ‚ðŽæ“¾i090528¬–ìj
	If ErrorFlg <> "" Then

		DenpyoNo = Request("DenpyoNo")
		Torihikibi = Request("Torihikibi")
		TorihikisakiCD = Request("TorihikisakiCD")
		TujyoHenpinKubun = Request("TujyoHenpinKubun")
		DenpyoTekiyo = Request("DenpyoTekiyo")
		For TmpCnt = 1 To 5
			SyohinCD(TmpCnt) = Request("SyohinCD" & CStr(TmpCnt))
			Suryo(TmpCnt) = ConvMoneyToInt(Request("Suryo" & CStr(TmpCnt)))
			Tanka(TmpCnt) = ConvMoneyToInt(Request("Tanka" & CStr(TmpCnt)))
			Kingaku(TmpCnt) = ConvMoneyToInt(Request("Kingaku" & CStr(TmpCnt)))
			Kingaku(TmpCnt) = Request("Kingaku" & CStr(TmpCnt))
			TaxRate(TmpCnt) = Request("TaxRate" & CStr(TmpCnt))
			If Kingaku(TmpCnt) <> "" Then
				GokeiKingaku = GokeiKingaku + CLng(Kingaku(TmpCnt))
				'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
				If TaxRate(TmpCnt) <> "" Then
					SyohizeiKingaku = SyohizeiKingaku + (Kingaku(TmpCnt) * CCur(TaxRate(TmpCnt)) / 100)
				Else
					SyohizeiKingaku = SyohizeiKingaku + (Kingaku(TmpCnt) * StdTaxRate / 100)
				End If
			End If
		Next
		ZeikomiKingaku = Fix(SyohizeiKingaku) + GokeiKingaku
		If TujyoHenpinKubun = "N" Then	'’Êí
			Checked_N = "checked"
			Checked_R = ""
		Else
			Checked_R = "checked"
			Checked_N = ""
		End If

	'C³ƒ‚[ƒh
	ElseIf DenpyoNo <> "" Then

		OldDenpyoNo = DenpyoNo	'‚±‚Ìê‡‚Ì‚ÝOldDenpyoNo‚ðŽ‚½‚¹‚éi090528¬–ìj

		'///////	‚PDu“`•[vƒwƒbƒ_•”‚Ìƒf[ƒ^‚ðŽæ“¾B
		If PageType = "Shiire" Then
			Query = "exec SPK“`•[_Žd“ü“`•[Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
		Else
			Query = "exec SPK“`•[_”„ã“`•[Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
		End If
		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			Torihikibi = SetTimeYYYYMMDD(Content.Fields("Žæˆø“ú"))
			DenpyoTekiyo = Content.Fields("“`•[“E—v")
			DenpyoSyoriKubun = Content.Fields("“`•[ˆ—‹æ•ª")
			TorihikisakiCD = Content.Fields("ŽæˆøæCD")
			TujyoHenpinKubun = Content.Fields("’Êí•Ô•i‹æ•ª")
			GakuseiShimei = Content.Fields("Ž–¼")
			GakuseiBango = Content.Fields("Šw¶”Ô†")

			If TujyoHenpinKubun = "N" Then	'’Êí
				Checked_N = "checked"
				Checked_R = ""
			Else
				Checked_R = "checked"
				Checked_N = ""
			End If


		End IF

		'///////	‚QDuŽd“ü–¾×v–¾×•”‚Ìƒf[ƒ^‚ðŽæ“¾B
		If PageType = "Shiire" Then
			Query = "exec SPK“`•[_Žd“ü–¾×Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
		Else
			Query = "exec SPK“`•[_”„ã–¾×Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
		End If
		Set Content = OpenQuery(Query)

		GokeiKingaku = 0
		If Not(Content.BOF Or Content.EOF) Then
			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ
				DenpyoSEQ = Content.Fields("Žd“ü”„ã–¾×SEQ")
				SyohinCD(DenpyoSEQ) = Content.Fields("¤•iCD")
				SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("¤•iCD"))
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("¤•iCD"))
				Suryo(DenpyoSEQ) = Content.Fields("Žó’”—Ê")
				Tanka(DenpyoSEQ) = Content.Fields("Žó’’P‰¿")
				Kingaku(DenpyoSEQ) = Content.Fields("Žó’’P‰¿") * Content.Fields("Žó’”—Ê")
				TaxRate(DenpyoSEQ) = Content.Fields("Á”ïÅ—¦")
				If "" & TaxRate(DenpyoSEQ) = "" Or GB_ShohizeiMode <> 1 Then
					TaxRate(DenpyoSEQ) = StdTaxRate
				End If
				GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
				'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
				SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * TaxRate(DenpyoSEQ) / 100)
'Response.Write(Kingaku(DenpyoSEQ) * TaxRate(DenpyoSEQ) & "<br>")
				Content.MoveNext
			Loop
		End If
		ZeikomiKingaku = Fix(SyohizeiKingaku) + GokeiKingaku

	Else
		Checked_N = "checked"
		Checked_R = ""
	End If

	Dim jj,tmps

'	Dim JidoBangoDenpyo
'	JidoBangoDenpyo = GetEnshuParam(EnshuCD, "Ž©“®”Ô†“`•[")

	'Ž©“®”Ô†“`•[ƒtƒ‰ƒOEŽÀ‘H“úŽæ“¾
	Dim JidoBangoDenpyo
	Dim Jissenbi
	Dim ShiireUriageSyohizei
	Dim HyojunTankaHyoji
	Jissenbi = ""
	Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		JidoBangoDenpyo = "" & Content.Fields("Ž©“®”Ô†“`•[")
		Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("ŽÀ‘H“ú"))
		ShiireUriageSyohizei = "" & Content.Fields("Žd“ü”„ã“`•[Á”ïÅŽè“®Žd–ó")
		HyojunTankaHyoji = "" & Content.Fields("•W€”Ì”„’P‰¿•\Ž¦")
	End If

	Dim KouriRiyo
	KouriRiyo = KourihanbaiRiyo()

	If ShiireUriageSyohizei = "1" Then
		SyohizeiKingaku = 0
		ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku
	End If


	Dim CategoryEnable 'ƒJƒeƒSƒŠ‘¶Ýƒtƒ‰ƒOiƒTƒCƒo[‰ïŒvƒ‚[ƒhj
	CategoryEnable = False
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT ƒJƒeƒSƒŠ "
	Query = Query & " FROM TDA¤•iM "
	Query = Query & " WHERE ƒVƒXƒeƒ€CD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND ‰‰KCD = '" & EnshuCD & "' "
	Query = Query & " 	AND ƒJƒeƒSƒŠ <> '' AND ƒJƒeƒSƒŠ IS NOT NULL "
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		CategoryEnable = True
	End If


	'‰ïŽÐ”z—ñì¬
	Dim KaishaCDA
	Dim KaishaNameA
	Dim KaishaShijoA
	ReDim KaishaCDA(0)
	ReDim KaishaNameA(0)
	ReDim KaishaShijoA(0)
	Query = "exec SPM‰ïŽÐ‘S•”ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚Å‚Í‘S‰ïŽÐ•\Ž¦i091007¬–ìj
		If (PackageMode = 1 Or ((Content.Fields("ŽsêCD") = GB_ShijyoCD And Content.Fields("‹ÆŽíCD") = "K") OR Content.Fields("‹ÆŽíCD") = "S")) And Content.Fields("‰ïŽÐ—ª–¼Ì") <> GB_KaisyaRyakuMeisyo Then
			ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'”z—ñ”+1
			ReDim PreServe KaishaNameA(UBound(KaishaCDA))
			ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
			KaishaCDA(UBound(KaishaCDA)) = "" & Content.Fields("‰ïŽÐCD")
			KaishaNameA(UBound(KaishaCDA)) = "" & Content.Fields("‰ïŽÐ–¼Ì")
			KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("ŽsêCD")
		End If
		Content.MoveNext
	Loop
	If KouriRiyo > 0 And PageType = "Uriage" Then '”„ã“`•[‚Ì‚Ý
		ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'”z—ñ”+1
		ReDim PreServe KaishaNameA(UBound(KaishaCDA))
		ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
		KaishaCDA(UBound(KaishaCDA)) = "SJ4KOURIHANBAI"
		KaishaNameA(UBound(KaishaCDA)) = "" & ConvKaisyaMeisyo("SJ4KOURIHANBAI")
		KaishaShijoA(UBound(KaishaCDA)) = ""
	End If


	'Á”ïÅ—¦”z—ñì¬iÁ”ïÅ—¦ƒ}ƒXƒ^‹y‚Ñ¤•iƒ}ƒXƒ^EŒ»Ý“`•[‚©‚ç‚·‚×‚Ä‚ÌÝ’èÅ—¦‚ðŽæ“¾‚·‚éj
	'‚Ü‚¸‰¼”z—ñ‚É‘ã“ü‚µ‚»‚ÌŒã–{”z—ñ‚Éƒ\[ƒg‚·‚é
	Dim TmpTaxRateAry
	ReDim TmpTaxRateAry(0)
	Dim TmpTaxRate
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT * "
	Query = Query & " FROM TDAÁ”ïÅ—¦M "
	Query = Query & " WHERE ƒVƒXƒeƒ€CD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND ‰‰KCD = '" & EnshuCD & "' "
	Query = Query & " ORDER BY Á”ïÅ—¦ DESC "
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '”z—ñ+1
		TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("Á”ïÅ—¦")
'Response.Write(TmpTaxRateAry(UBound(TmpTaxRateAry)) & "<br>")
		TmpTaxRate = TmpTaxRate & "'" & Content.Fields("Á”ïÅ—¦") & "'" '‘¶Ýƒ`ƒFƒbƒN—p—…—ñ
		Content.MoveNext
	Loop
	Query = "exec SPM¤•iˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("•W€Á”ïÅ—¦") <> "" Then
			If InStr(TmpTaxRate, "'" & Content.Fields("•W€Á”ïÅ—¦") & "'") < 1 Then
				ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '”z—ñ+1
				TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("•W€Á”ïÅ—¦")
				TmpTaxRate = TmpTaxRate & "'" & Content.Fields("•W€Á”ïÅ—¦") & "'" '‘¶Ýƒ`ƒFƒbƒN—p—…—ñ
			End If
		End If
		Content.MoveNext
	Loop
	For TmpCnt = 1 To 5
		If "" & TaxRate(TmpCnt) <> "" Then
			If InStr(TmpTaxRate, "'" & TaxRate(TmpCnt) & "'") < 1 Then
				ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '”z—ñ+1
				TmpTaxRateAry(UBound(TmpTaxRateAry)) = CCur(TaxRate(TmpCnt))
				TmpTaxRate = TmpTaxRate & "'" & TaxRate(TmpCnt) & "'" '‘¶Ýƒ`ƒFƒbƒN—p—…—ñ
			End If
		End If
	Next
	'–{”z—ñ‚Éƒ\[ƒg
	Dim TCnt
	Dim TaxRateAry
	ReDim TaxRateAry(0)
	ReDim PreServe TaxRateAry(UBound(TmpTaxRateAry)) '‰¼”z—ñ‚Æ“¯‚¶’·‚³
	For TCnt = 1 To UBound(TaxRateAry)
		TaxRateAry(Tcnt) = 0 '‚·‚×‚Ä‚Éƒ[ƒ‚ð‘ã“ü
	Next
	TmpTaxRate = "" '‘¶Ýƒ`ƒFƒbƒN—p—…—ñƒŠƒZƒbƒg
	For TCnt = 1 To UBound(TaxRateAry)
		For TmpCnt = 1 To UBound(TmpTaxRateAry)
			'‚»‚ÌŽž“_‚Å—LŒø‚ÈÅ‘åÅ—¦‚ðŽæ“¾‚·‚é
			If InStr(TmpTaxRate, "'" & TmpTaxRateAry(TmpCnt) & "'") < 1 Then
				If TmpTaxRateAry(TmpCnt) > TaxRateAry(TCnt) Then
					TaxRateAry(TCnt) = TmpTaxRateAry(TmpCnt)
				End If
			End If
		Next
		TmpTaxRate = TmpTaxRate & "'" & TaxRateAry(TCnt) & "'" '‘¶Ýƒ`ƒFƒbƒN—p—…—ñ
	Next
For TmpCnt = 1 To UBound(TmpTaxRateAry)
'	Response.Write(TmpTaxRateAry(TmpCnt) & "<br>")
Next
For TCnt = 1 To UBound(TaxRateAry)
'	Response.Write(TaxRateAry(TCnt) & "<br>")
Next
'Response.Write(TmpTaxRate & "<br>")
'Exit Sub


	'¤•i”z—ñì¬
	Dim ShohinCDA
	Dim ShohinNameA
	Dim ShohinShijoA
	Dim ShohinShiireA 'Žd“üæCDiƒTƒCƒo[‰ïŒv—pj
	Dim ShohinCategoryA 'ƒJƒeƒSƒŠiƒTƒCƒo[‰ïŒv—pj
	ReDim ShohinCDA(0)
	ReDim ShohinNameA(0)
	ReDim ShohinShijoA(0)
	ReDim ShohinShiireA(0)
	ReDim ShohinCategoryA(0)
	Query = "exec SPM¤•iˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		'If PackageMode = 1 And GB_EnshuKubun = "G" And "" & Content.Fields("Š—L‰ïŽÐCD") <> "" And "" & Content.Fields("Šw¶”Ô†") <> "" And (UCase(Content.Fields("Š—L‰ïŽÐCD")) <> UCase(GB_GakuseiNo) Or UCase(Content.Fields("Šw¶”Ô†")) <> UCase(GB_GakuseiNo)) Then
		'Else
			ReDim PreServe ShohinCDA(UBound(ShohinCDA) + 1)	'”z—ñ”+1
			ReDim PreServe ShohinNameA(UBound(ShohinCDA))
			ReDim PreServe ShohinShijoA(UBound(ShohinCDA))
			ReDim PreServe ShohinShiireA(UBound(ShohinCDA))
			ReDim PreServe ShohinCategoryA(UBound(ShohinCDA))
			ShohinCDA(UBound(ShohinCDA)) = "" & Content.Fields("¤•iCD")
			ShohinNameA(UBound(ShohinCDA)) = "" & Content.Fields("¤•i–¼Ì")
			ShohinShijoA(UBound(ShohinCDA)) = "" & Content.Fields("ŽsêCD")
			ShohinShiireA(UBound(ShohinCDA)) = "" & Content.Fields("Žd“üæCD")
			If GB_EnshuKubun = "P" And ShohinShiireA(UBound(ShohinCDA)) <> "" And Right(ShohinShiireA(UBound(ShohinCDA)), Len("-" & GB_GakuseiNo)) <> "-" & GB_GakuseiNo Then
				ShohinShiireA(UBound(ShohinCDA)) = ShohinShiireA(UBound(ShohinCDA)) & "-" & GB_GakuseiNo
			End If
			ShohinCategoryA(UBound(ShohinCDA)) = "" & Content.Fields("ƒJƒeƒSƒŠ")
		'End If
		Content.MoveNext
	Loop
	'ƒVƒXƒeƒ€—\–ñ¤•i
	ReDim PreServe ShohinCDA(UBound(ShohinCDA) + 1)	'”z—ñ”+1
	ReDim PreServe ShohinNameA(UBound(ShohinCDA))
	ReDim PreServe ShohinShijoA(UBound(ShohinCDA))
	ReDim PreServe ShohinShiireA(UBound(ShohinCDA))
	ReDim PreServe ShohinCategoryA(UBound(ShohinCDA))
	ShohinCDA(UBound(ShohinCDA)) = "ETCSHOHIN"
	ShohinNameA(UBound(ShohinCDA)) = "‚»‚Ì‘¼‚Ì¤•i"
	ShohinShijoA(UBound(ShohinCDA)) = ""
	ShohinShiireA(UBound(ShohinCDA)) = ""
	ShohinCategoryA(UBound(ShohinCDA)) = ""



	'¤•i–¼Ìƒƒjƒ…[•ƒgƒOƒ‹
	Dim ShohinWidth
	ShohinWidth = 145
	If HyojunTankaHyoji = "0" Then '•W€”Ì”„’P‰¿”ñ•\Ž¦
		ShohinWidth = ShohinWidth + 104
	End If


	Dim ii


	Dim ShijoCDSSelndex
	Dim ShijoCDSSelndexSonzai
	ShijoCDSSelndex = 0
	ShijoCDSSelndexSonzai = False



'GB_ShohizeiMode = 0

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 2;
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	 name="form1" method="POST" action="fk_shiireuriage_bin.asp" autocomplete="off">
<input type="hidden" name="PageType" value="<% = PageType %>">
<input type="hidden" name="OldDenpyoNo" value="<% = OldDenpyoNo %>">
<input type="hidden" name="ShowDel" value="<% = ShowDel %>">
<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(2))

	If PackageMode = 1 Then
		Response.Write(HttpL2("ƒƒCƒ“ƒƒjƒ…[" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "“`•[", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", Title, "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "Œo—•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "“`•[", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", Title, "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage.asp?DenpyoNo=" & DenpyoNo & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("•Û‘¶", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	If OldDenpyoNo <> "" Then
		Response.Write(HttpL3_2("’Ç‰Á", "tblbtn( 'fk_shiireuriage.asp?DenpyoNo=" & DenpyoNo & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "ˆê——•\Ž¦", "tblbtn( 'fk_shiireuriage_ichiran.asp?DenpyoNo=" & DenpyoNo & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("ˆê——•\Ž¦", "tblbtn( 'fk_shiireuriage_ichiran.asp?DenpyoNo=" & DenpyoNo & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", "", "", "", "", "", "", ""))
	End If

	If OldDenpyoNo <> "" Then
		Response.Write(HttpL4(Title, "C³"))
	Else
		Response.Write(HttpL4(Title, "’Ç‰Á"))
	End If

	Response.Write(HttpL5(ErrorFlg))

%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">


<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td align="center" class="tx1416">
		<% If PackageMode = 1 And Not(CategoryEnable) Then %>
		<% Else %>
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" HEIGHT="1" STYLE="BORDER:1px solid #000000; border-collapse:collapse" bgcolor="#FFFFFF">
				<TR>
					<TD height="30" valign="bottom" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">
						<table height="30" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td width="100%" align="CENTER" valign="MIDDLE">
									<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
										<tr>
											<td align="left" nowrap>&nbsp;
			<% If PackageMode = 1 Then %>
			¤•iƒJƒeƒSƒŠ
			<select size="1" name="ShijoCDS" class="tbox4" onChange="SetShohinMenu(this.selectedIndex);">
				<option value="">‘S‚Ä•\Ž¦</option>
				<%
					ShijoCDSSelndex = 0
					Query = ""
					Query = Query & "  "
					Query = Query & " SELECT ƒJƒeƒSƒŠ "
					Query = Query & " FROM TDA¤•iM "
					Query = Query & " WHERE ƒVƒXƒeƒ€CD = '" & GB_SystemCD & "' "
					Query = Query & " 	AND ‰‰KCD = '" & EnshuCD & "' "
					Query = Query & " 	AND ƒJƒeƒSƒŠ <> '' AND ƒJƒeƒSƒŠ IS NOT NULL "
					Query = Query & " GROUP BY ƒJƒeƒSƒŠ "
					Query = Query & " ORDER BY ƒJƒeƒSƒŠ " 'ƒvƒ‹ƒ_ƒEƒ“‚Ìs”Ô†‚ªŠî€‚È‚Ì‚Åƒ\[ƒg‡‚ð”z—ñ‚Æ‡‚í‚¹‚é
					Set Content = OpenQuery(Query)
					Do While Not(Content.BOF Or Content.EOF)
						Response.Write("<option value=""" & Content.Fields("ƒJƒeƒSƒŠ") & """")
						Response.Write(">" & Content.Fields("ƒJƒeƒSƒŠ") & "</option>" & vbCrLf)
						If Not(ShijoCDSSelndexSonzai) Then
							ShijoCDSSelndex = ShijoCDSSelndex + 1
							If "" & Content.Fields("ƒJƒeƒSƒŠ") = Session(HomeAlias & "ShijoCDS") Then
								ShijoCDSSelndexSonzai = True
							End If
						End If
						Content.MoveNext
					Loop
					Response.Write("<option value="""">ƒƒJƒeƒSƒŠ–¢Ý’è„</option>" & vbCrLf)
					If Not(ShijoCDSSelndexSonzai) Then
						ShijoCDSSelndex = 0
					End If
				%>
			</select>&nbsp;&nbsp;
			<% Else %>
			ŽæˆøæŽsê
			<select size="1" name="ShijoCD" class="tbox4" onChange="SetTorihikisakiMenu(this.selectedIndex);">
				<option value="">‘S‚Ä•\Ž¦</option>
				<%
					Query = "exec SPMŽsêˆê—— '" & GB_SystemCD & "','" & EnshuCD & "'"
					Set Content = OpenQuery(Query)
					Do While Not(Content.BOF Or Content.EOF)
						Response.Write("<option value=""" & Content.Fields("ŽsêCD") & """")
						Response.Write(">" & Content.Fields("Žsê–¼Ì") & "</option>" & vbCrLf)
						Content.MoveNext
					Loop
				%>
			</select>
			&nbsp;&nbsp;&nbsp;
			¤•iŽæˆµŽsê
			<select size="1" name="ShijoCDS" class="tbox4" onChange="SetShohinMenu(this.selectedIndex);">
				<option value="">‘S‚Ä•\Ž¦</option>
				<%
					Query = "exec SPMŽsêˆê—— '" & GB_SystemCD & "','" & EnshuCD & "'"
					Set Content = OpenQuery(Query)
					Do While Not(Content.BOF Or Content.EOF)
						Response.Write("<option value=""" & Content.Fields("ŽsêCD") & """")
						Response.Write(">" & Content.Fields("Žsê–¼Ì") & "</option>" & vbCrLf)
						Content.MoveNext
					Loop
					Response.Write("<option value="""">Žsê”ñŒÀ’è</option>" & vbCrLf)
				%>
			</select>&nbsp;&nbsp;
			<% End If %>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</TD>
				</TR>
			</table>
			<div><% = Spacer(1,10) %></div>
		<% End If %>
		<table width="<% If GB_ShohizeiMode = 1 Then %>700<% Else %>650<% End If %>" height="420" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #111111">
			<tr>
			<td width="<% If GB_ShohizeiMode = 1 Then %>700<% Else %>650<% End If %>" height="60">
				<table width="<% If GB_ShohizeiMode = 1 Then %>674<% Else %>630<% End If %>" height="65" border="0" cellpadding="0" cellspacing="0">
				<tr>
					<td width="<% If GB_ShohizeiMode = 1 Then %>560<% Else %>510<% End If %>" align="right" valign="bottom">


					<table border="0" cellpadding="0" cellspacing="0" width="100%">
					<tr>
						<td width="<% If GB_ShohizeiMode = 1 Then %>22<% Else %>18<% End If %>" valign="bottom"></td>
						<td width="165">
							<table width="140" height="45" border="0" cellpadding="0" cellspacing="0">
								<tr>
								<td height="45" class="tx2022" style="color:#5500FF"><% = Left(title,1) & space(1) & Mid(title, 2, 1) %> “` •[</td>
								</tr>
							</table>
						</td>
						<td valign="bottom">
							<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
								<tr class="tx1416">
								<td width="72" height="20" align="right" style="color:#5500FF" nowrap>“`•[”Ô†F</td>
								<td height="20">
<% If JidoBangoDenpyo = "1" Or (DenpyoNo <> "" And ErrorFlg = "") Then %>
																		<input type="text" name="DenpyoNo" size="20" readonly class="tbox4_ro" value="<% = DenpyoNo %>" tabindex="-1">
<% Else %>
																		<input type="text" name="DenpyoNo" size="20" onKeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrLeftEdge(this,12,true,false);FormStrTrim(this,true);" class="tbox4" value="<% = DenpyoNo %>" maxlength="12"><!-- ”¼ŠpƒVƒƒ[ƒv‚ð‹‘”Û -->
<% End If %>
								</td>
								</tr>
							</table>
						</td>
					</tr>
					<tr>
						<td width="15">
						</td>
						<td>
							<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
								<tr class="tx1416">
								<td width="55" height="20" align="right" style="color:#5500FF" nowrap>Žæˆø“úF</td>
								<td height="20">
								<% If Jissenbi <> "" And DenpyoNo <> "" Then 'ŽÀ‘H“úŒÅ’èƒ‚[ƒhŠŽ‚ÂC³ƒ‚[ƒh %>
									<input type="text" name="Torihikibi" size="12" value="<% = Torihikibi %>" onKeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true, '<% = Torihikibi %>', '')" readonly class="tbox4_ro" tabindex="-1">
								<% ElseIf Jissenbi <> "" Then 'ŽÀ‘H“úŒÅ’èƒ‚[ƒh %>
									<input type="text" name="Torihikibi" size="12" value="<% = Jissenbi %>" onKeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true, '<% = Jissenbi %>', '')" readonly class="tbox4_ro" tabindex="-1">
								<% Else %>
									<input type="text" name="Torihikibi" size="12" onKeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true)" class="tbox4" value="<% = Torihikibi %>">
								<% End If %>
								</td>
								</tr>
							</table>
						</td>
						<td>
							<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
								<tr class="tx1416">
								<td width="72" height="20" align="right" style="color:#5500FF" nowrap>“E—vF</td>
								<td height="20">
									<input type="text" name="DenpyoTekiyo" size="<% If GB_ShohizeiMode = 1 Then %>30<% Else %>27<% End If %>" value="<% = DenpyoTekiyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,30,true)">
								</td>
								</tr>
							</table>
						</td>
					</tr>
					<tr>
						<td width="15">
						</td>

						<td>
							<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
								<tr class="tx1416">
									<td width="55" height="20" align="right" style="color:#5500FF" nowrap>ŽæˆøæF</td>
									<td height="20">
										<select size="1" name="TorihikisakiCD" class="tbox4" style="width:175px;"<% If PackageMode = "1" And PageType = "Shiire" Then %> onChange="SetShohinMenuS(this.selectedIndex);"<% End If %> onKeydown="SelectSearch(this);">
											<option value="">@@@@</option>
											<%
												'‰ïŽÐ”z—ñ‚æ‚è
												For ii = 1 To UBound(KaishaCDA)
													Response.Write("<option value=""" & KaishaCDA(ii) & """")
													If KaishaCDA(ii) = TorihikisakiCD Then
														Response.Write(" selected")
													End If
													Response.Write(">" & KaishaNameA(ii) & "</option>" & vbCrLf)
												Next
											%>
										</select>
									</td>
								</tr>
							</table>
						</td>
						<td>
							<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
								<tr class="tx1416">
								<td width="72" height="20" align="right" style="color:#5500FF" nowrap>“`•[‹æ•ªF</td>
								<td height="20" style="color:#5500FF" nowrap>
									<input type="radio" value="N" name="TujyoHenpinKubun" <% = Checked_N %>>’Êí
									<input type="radio" value="R" name="TujyoHenpinKubun" <% = Checked_R %>>•Ô•i
									</td>
								</tr>
							</table>
						</td>
					</tr>
					</table>
					</td>
					<td align="right" valign="bottom">
						<table width="120" height="40" border="1" cellpadding="0" cellspacing="0" bordercolor="#5500FF" STYLE="border-collapse: collapse">
							<tr class="tx1214" style="color:#5500FF">
							<td width="40" height="14" align="center"><% = LabelSoumu %></td>
							<td width="40" height="14" align="center"><% = LabelTanto %></td>
							<td width="40" height="14" align="center"><% = LabelKakari %></td>
							</tr>
							<tr class="tx1214">
							<td width="40" height="40" align="center">@</td>
							<td width="40" height="40" align="center">@</td>
							<td width="40" height="40" align="center"><font color="FF0000"><% = ConvShimeiRyakuMeisyo(GakuseiBango)  %></font></td>
							</tr>
						</table>
					</td>
				</tr>
				</table>
			</td>
			</tr>
			<tr>
			<td height="265" align="center" valign="top">
				<table width="<% If GB_ShohizeiMode = 1 Then %>650<% Else %>612<% End If %>" height="300" border="1" cellpadding="0" cellspacing="0" bordercolor="#5500FF" style="border-collapse: collapse">
				<tr>
					<td valign="TOP">
					<table width="100%" height="26" border="1" cellpadding="0" cellspacing="0" frame="below" style="border-collapse: collapse" bordercolor="#5500FF" class="tx1416">
						<tr style="color:#5500FF">
						<td align="center">¤•i–¼Ì</td>
					<% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %>
						<td align="center" width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("•W€‰¿Ši") End If %></td>
					<% End If %>
						<td align="center" width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%">”@—Ê</td>
						<td align="center" width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%">’P@‰¿</td>
						<td align="center" width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%">‹à@Šz</td>
					<% If GB_ShohizeiMode = 1 Then %>
						<td align="center" width="8%" class="tx1113">Á”ïÅ—¦</td>
					<% End If %>
						</tr>
					</table>
					</td>
				</tr>
				<tr>
					<td>

					<table width="100%" height="190" border="1" cellpadding="0" cellspacing="0" bordercolor="#5500FF" frame="below" class="tx1214"  style="border-collapse: collapse">
						<tr>
						<td align="center">
							<select name="SyohinCD1" size="1" style="width:<% = ShohinWidth %>px;" onChange="SetSyohinKakaku(1);" onKeydown="SelectSearch(this);" class="tbox4">
								<option value="">@@@@</option>
								 <%
									'¤•i”z—ñ‚æ‚è
									For ii = 1 To UBound(ShohinCDA)
										Response.Write("<option value=""" & ShohinCDA(ii) & """")
										If ShohinCDA(ii) = SyohinCD(1) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & ShohinNameA(ii) & "</option>" & vbCrLf)
									Next
								%>
<!--”z—ñ‰»‚µ‚½‚Ì‚Å•s—v
								<option value="ETCSHOHIN" <% If SyohinCD(1) = "ETCSHOHIN" Then Response.Write(" selected") End If %>>‚»‚Ì‘¼‚Ì¤•i</option><!--ƒVƒXƒeƒ€—\–ñ¤•i-->
-->
							</select>
						</td>
					<% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %>
						<td width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%" align="center">
							<input type="text" name="Kakaku1" size="1" style="width:100px;" value="<% = ConvIntToMoney(Kakaku(1), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% Else %>
						<input type="hidden" name="Kakaku1" value="<% = ConvIntToMoney(Kakaku(1), false, true) %>">
					<% End If %>
						<td width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%" align="center">
							<input type="text" name="Suryo1" size="1" style="width:100px;" value="<% = SetNumber(Suryo(1), false) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,9,0);SetKingaku(1);SetGokei();" onKeypress="FormStrFloat(this,9,0);SetKingaku(1);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,9,0,true);FormStrFloatCutoff(this,true);SetKingaku(1);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
						</td>
						<td width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%" align="center">
							<input type="text" name="Tanka1" size="1" style="width:100px;" value="<% = SetMoney(Tanka(1), false, true) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,10,0);SetKingaku(1);SetGokei();" onKeypress="FormStrFloat(this,10,0);SetKingaku(1);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetKingaku(1);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5"></td>
						</td>
						<td width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%" align="center">
							<input type="text" name="Kingaku1" size="1" style="width:100px;" value="<% = SetMoney(Kingaku(1), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% If GB_ShohizeiMode = 1 Then %>
						<td width="8%" align="center">
							<select name="TaxRate1" size="1" class="tbox4" style="width:43px;" onChange="SetGokei();">
								 <%
									'Á”ïÅ—¦”z—ñ‚æ‚è
									For TCnt = 1 To UBound(TaxRateAry)
										Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
										If "" & TaxRateAry(TCnt) = "" & TaxRate(1) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
									Next
								%>
							</select>
						</td>
					<% Else %>
						<input type="hidden" name="TaxRate1" value="<% = TaxRate(1) %>">
					<% End If %>
						</tr>
						<tr>
						<td align="center">
							<select name="SyohinCD2" size="1" style="width:<% = ShohinWidth %>px;" onChange="SetSyohinKakaku(2);" onKeydown="SelectSearch(this);" class="tbox4">
								<option value="">@@@@</option>
								 <%
									'¤•i”z—ñ‚æ‚è
									For ii = 1 To UBound(ShohinCDA)
										Response.Write("<option value=""" & ShohinCDA(ii) & """")
										If ShohinCDA(ii) = SyohinCD(2) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & ShohinNameA(ii) & "</option>" & vbCrLf)
									Next
								%>
<!--”z—ñ‰»‚µ‚½‚Ì‚Å•s—v
								<option value="ETCSHOHIN" <% If SyohinCD(1) = "ETCSHOHIN" Then Response.Write(" selected") End If %>>‚»‚Ì‘¼‚Ì¤•i</option><!--ƒVƒXƒeƒ€—\–ñ¤•i-->
-->
							</select>
						</td>
					<% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %>
						<td align="center">
							<input type="text" name="Kakaku2" size="1" style="width:100px;" value="<% = ConvIntToMoney(Kakaku(2), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% Else %>
						<input type="hidden" name="Kakaku2" value="<% = ConvIntToMoney(Kakaku(2), false, true) %>">
					<% End If %>
						<td align="center">
							<input type="text" name="Suryo2" size="1" style="width:100px;" value="<% = SetNumber(Suryo(2), false) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,9,0);SetKingaku(2);SetGokei();" onKeypress="FormStrFloat(this,9,0);SetKingaku(2);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,9,0,true);FormStrFloatCutoff(this,true);SetKingaku(2);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
						</td>
						<td align="center">
							<input type="text" name="Tanka2" size="1" style="width:100px;" value="<% = SetMoney(Tanka(2), false, true) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,10,0);SetKingaku(2);SetGokei();" onKeypress="FormStrFloat(this,10,0);SetKingaku(2);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetKingaku(2);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5"></td>
						</td>
						<td align="center">
							<input type="text" name="Kingaku2" size="1" style="width:100px;" value="<% = SetMoney(Kingaku(2), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% If GB_ShohizeiMode = 1 Then %>
						<td align="center">
							<select name="TaxRate2" size="1" class="tbox4" style="width:43px;" onChange="SetGokei();">
								 <%
									'Á”ïÅ—¦”z—ñ‚æ‚è
									For TCnt = 1 To UBound(TaxRateAry)
										Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
										If "" & TaxRateAry(TCnt) = "" & TaxRate(2) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
									Next
								%>
							</select>
						</td>
					<% Else %>
						<input type="hidden" name="TaxRate2" value="<% = TaxRate(2) %>">
					<% End If %>
						</tr>
						<tr>
						<td align="center">
							<select name="SyohinCD3" size="1" style="width:<% = ShohinWidth %>px;" onChange="SetSyohinKakaku(3);" onKeydown="SelectSearch(this);" class="tbox4">
								<option value="">@@@@</option>
								 <%
									'¤•i”z—ñ‚æ‚è
									For ii = 1 To UBound(ShohinCDA)
										Response.Write("<option value=""" & ShohinCDA(ii) & """")
										If ShohinCDA(ii) = SyohinCD(3) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & ShohinNameA(ii) & "</option>" & vbCrLf)
									Next
								%>
<!--”z—ñ‰»‚µ‚½‚Ì‚Å•s—v
								<option value="ETCSHOHIN" <% If SyohinCD(1) = "ETCSHOHIN" Then Response.Write(" selected") End If %>>‚»‚Ì‘¼‚Ì¤•i</option><!--ƒVƒXƒeƒ€—\–ñ¤•i-->
-->
							</select>
						</td>
					<% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %>
						<td align="center">
							<input type="text" name="Kakaku3" size="1" style="width:100px;" value="<% = ConvIntToMoney(Kakaku(3), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% Else %>
						<input type="hidden" name="Kakaku3" value="<% = ConvIntToMoney(Kakaku(3), false, true) %>">
					<% End If %>
						<td align="center">
							<input type="text" name="Suryo3" size="1" style="width:100px;" value="<% = SetNumber(Suryo(3), false) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,9,0);SetKingaku(3);SetGokei();" onKeypress="FormStrFloat(this,9,0);SetKingaku(3);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,9,0,true);FormStrFloatCutoff(this,true);SetKingaku(3);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
						</td>
						<td align="center">
							<input type="text" name="Tanka3" size="1" style="width:100px;" value="<% = SetMoney(Tanka(3), false, true) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,10,0);SetKingaku(3);SetGokei();" onKeypress="FormStrFloat(this,10,0);SetKingaku(3);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetKingaku(3);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5"></td>
						</td>
						<td align="center">
							<input type="text" name="Kingaku3" size="1" style="width:100px;" value="<% = SetMoney(Kingaku(3), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% If GB_ShohizeiMode = 1 Then %>
						<td align="center">
							<select name="TaxRate3" size="1" class="tbox4" style="width:43px;" onChange="SetGokei();">
								 <%
									'Á”ïÅ—¦”z—ñ‚æ‚è
									For TCnt = 1 To UBound(TaxRateAry)
										Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
										If "" & TaxRateAry(TCnt) = "" & TaxRate(3) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
									Next
								%>
							</select>
						</td>
					<% Else %>
						<input type="hidden" name="TaxRate3" value="<% = TaxRate(3) %>">
					<% End If %>
						</tr>
						<tr>
						<td align="center">
							<select name="SyohinCD4" size="1" style="width:<% = ShohinWidth %>px;" onChange="SetSyohinKakaku(4);" onKeydown="SelectSearch(this);" class="tbox4">
								<option value="">@@@@</option>
								 <%
									'¤•i”z—ñ‚æ‚è
									For ii = 1 To UBound(ShohinCDA)
										Response.Write("<option value=""" & ShohinCDA(ii) & """")
										If ShohinCDA(ii) = SyohinCD(4) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & ShohinNameA(ii) & "</option>" & vbCrLf)
									Next
								%>
<!--”z—ñ‰»‚µ‚½‚Ì‚Å•s—v
								<option value="ETCSHOHIN" <% If SyohinCD(1) = "ETCSHOHIN" Then Response.Write(" selected") End If %>>‚»‚Ì‘¼‚Ì¤•i</option><!--ƒVƒXƒeƒ€—\–ñ¤•i-->
-->
							</select>
						</td>
					<% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %>
						<td align="center">
							<input type="text" name="Kakaku4" size="1" style="width:100px;" value="<% = ConvIntToMoney(Kakaku(4), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% Else %>
						<input type="hidden" name="Kakaku4" value="<% = ConvIntToMoney(Kakaku(4), false, true) %>">
					<% End If %>
						<td align="center">
							<input type="text" name="Suryo4" size="1" style="width:100px;" value="<% = SetNumber(Suryo(4), false) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,9,0);SetKingaku(4);SetGokei();" onKeypress="FormStrFloat(this,9,0);SetKingaku(4);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,9,0,true);FormStrFloatCutoff(this,true);SetKingaku(4);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
						</td>
						<td align="center">
							<input type="text" name="Tanka4" size="1" style="width:100px;" value="<% = SetMoney(Tanka(4), false, true) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,10,0);SetKingaku(4);SetGokei();" onKeypress="FormStrFloat(this,10,0);SetKingaku(4);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetKingaku(4);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5"></td>
						</td>
						<td align="center">
							<input type="text" name="Kingaku4" size="1" style="width:100px;" value="<% = SetMoney(Kingaku(4), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% If GB_ShohizeiMode = 1 Then %>
						<td align="center">
							<select name="TaxRate4" size="1" class="tbox4" style="width:43px;" onChange="SetGokei();">
								 <%
									'Á”ïÅ—¦”z—ñ‚æ‚è
									For TCnt = 1 To UBound(TaxRateAry)
										Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
										If "" & TaxRateAry(TCnt) = "" & TaxRate(4) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
									Next
								%>
							</select>
						</td>
					<% Else %>
						<input type="hidden" name="TaxRate4" value="<% = TaxRate(4) %>">
					<% End If %>
						</tr>
						<tr>
						<td align="center">
							<select name="SyohinCD5" size="1" style="width:<% = ShohinWidth %>px;" onChange="SetSyohinKakaku(5);" onKeydown="SelectSearch(this);" class="tbox4">
								<option value="">@@@@</option>
								 <%
									'¤•i”z—ñ‚æ‚è
									For ii = 1 To UBound(ShohinCDA)
										Response.Write("<option value=""" & ShohinCDA(ii) & """")
										If ShohinCDA(ii) = SyohinCD(5) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & ShohinNameA(ii) & "</option>" & vbCrLf)
									Next
								%>
<!--”z—ñ‰»‚µ‚½‚Ì‚Å•s—v
								<option value="ETCSHOHIN" <% If SyohinCD(1) = "ETCSHOHIN" Then Response.Write(" selected") End If %>>‚»‚Ì‘¼‚Ì¤•i</option><!--ƒVƒXƒeƒ€—\–ñ¤•i-->
-->
							</select>
						</td>
					<% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %>
						<td align="center">
							<input type="text" name="Kakaku5" size="1" style="width:100px;" value="<% = ConvIntToMoney(Kakaku(5), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% Else %>
						<input type="hidden" name="Kakaku5" value="<% = ConvIntToMoney(Kakaku(5), false, true) %>">
					<% End If %>
						<td align="center">
							<input type="text" name="Suryo5" size="1" style="width:100px;" value="<% = SetNumber(Suryo(5), false) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,9,0);SetKingaku(5);SetGokei();" onKeypress="FormStrFloat(this,9,0);SetKingaku(5);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,9,0,true);FormStrFloatCutoff(this,true);SetKingaku(5);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
						</td>
						<td align="center">
							<input type="text" name="Tanka5" size="1" style="width:100px;" value="<% = SetMoney(Tanka(5), false, true) %>" <% If GB_IEmode = "1" Then %> onKeyup="FormStrFloat(this,10,0);SetKingaku(5);SetGokei();" onKeypress="FormStrFloat(this,10,0);SetKingaku(5);SetGokei();" <% End If %> onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetKingaku(5);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5"></td>
						</td>
						<td align="center">
							<input type="text" name="Kingaku5" size="1" style="width:100px;" value="<% = SetMoney(Kingaku(5), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% If GB_ShohizeiMode = 1 Then %>
						<td align="center">
							<select name="TaxRate5" size="1" class="tbox4" style="width:43px;" onChange="SetGokei();">
								 <%
									'Á”ïÅ—¦”z—ñ‚æ‚è
									For TCnt = 1 To UBound(TaxRateAry)
										Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
										If "" & TaxRateAry(TCnt) = "" & TaxRate(5) Then
											Response.Write(" selected")
										End If
										Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
									Next
								%>
							</select>
						</td>
					<% Else %>
						<input type="hidden" name="TaxRate5" value="<% = TaxRate(5) %>">
					<% End If %>
						</tr>
					</table>
					</td>
				</tr>
				<tr>
					<td>
					<table width="100%" height="84" border="1" cellpadding="0" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="#5500FF"  class="tx1416">
						<tr>
						<td align="center" rowspan="3">@</td>
						<td align="center" width="<% If GB_ShohizeiMode = 1 Then %>34<% Else %>36<% End If %>%" style="color:#5500FF">‡Œv‹àŠz</td>
						<td align="center" width="<% If GB_ShohizeiMode = 1 Then %>17<% Else %>18<% End If %>%">
							<input type="text" name="GokeiKingaku" size="1" style="width:100px;" value="<% = SetMoney(GokeiKingaku, false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
					<% If GB_ShohizeiMode = 1 Then %>
						<td align="center" width="8%" rowspan="3"></td>
					<% End If %>
						</tr>
<% 'ShiireUriageSyohizei = "1" %>
<% If ShiireUriageSyohizei <> "1" Then %>
						<tr>
						<td align="center" style="color:#5500FF">Á”ïÅŠz</td>
						<td align="center">
							<input type="text" name="SyohizeiKingaku" size="1" style="width:100px;" value="<% = SetMoney(SyohizeiKingaku, false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
						</tr>
						<tr>
						<td align="center" style="color:#5500FF">Åž‹àŠz</td>
						<td align="center">
							<input type="text" name="ZeikomiKingaku" size="1" style="width:100px;" value="<% = SetMoney(ZeikomiKingaku, false, true) %>" readonly class="tbox5_ro" tabindex="-1">
						</td>
						</tr>
<% Else %>
							<input type="hidden" name="SyohizeiKingaku" value="<% = SetMoney(SyohizeiKingaku, false, true) %>">
							<input type="hidden" name="ZeikomiKingaku" value="<% = SetMoney(ZeikomiKingaku, false, true) %>">
<% End If %>
					</table>

					</td>
				</tr>
				</table>
			</td>
			</tr>
		</table>
		</td>
	</tr>
	</table>

</div>
</form>
</body>

<SCRIPT LANGUAGE="JavaScript">

//################################################
//	–¼ÌFSubmitCheck
//	–Ú“IFXV‘O‚É“ü—Í’l‚ðƒ`ƒFƒbƒN‚·‚éB
//@ŠT—vFTS¤•iM‚Ìˆê——‚ð•\Ž¦‚·‚éB
//################################################
	function SubmitCheck()
	{
<%
		If DenpyoNo <> "" Then
%>
<% If JidoBangoDenpyo <> "1" Then %>
//		if(form1.OldDenpyoNo.value == form1.DenpyoNo.value)
//		{
//			alert("“`•[‚ðC³‚·‚éê‡‚ÍAV‚µ‚¢“`•[”Ô†‚ð•t‚¯‚é•K—v‚ª‚ ‚è‚Ü‚·B");
//			return false;
//		}
<% End If %>
//		if(!confirm("‚±‚Ì“`•[‚ðíœ‚µAV‚µ‚¢“`•[‚ð•Û‘¶‚µ‚Ü‚·B\r\n•Û‘¶‚µ‚Ä‚à‚æ‚ë‚µ‚¢‚Å‚·‚©H"))
//		{
//			return false;
//		}
<%
		End If
%>


<% If JidoBangoDenpyo <> "1" Then %>
				if(form1.DenpyoNo.value == "")
				{
					alert("“`•[”Ô†‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢B");
					form1.DenpyoNo.focus();
					return false;
				}
<% End If %>


// 9999999999 x 5 ‚Í 900000000000000 ‚ð’´‚¦‚È‚¢‚Ì‚Åƒ`ƒFƒbƒN‚Í•s—v
//		if(ConvMoneyToInt(form1.ZeikomiKingaku.value) > 900000000000000)
//		{
//			alert("900,000,000,000,000‰~ˆÈ‰º‚Ì‹àŠz‚É‚È‚é‚æ‚¤‚Éƒf[ƒ^‚ðC³‚µ‚Ä‚­‚¾‚³‚¢B");
//			return false;
//		}

		//** ‚PDŽæˆø“ú‚Ìƒ`ƒFƒbƒN
		if(form1.Torihikibi.value == "")
		{
			alert("Žæˆø“ú‚ð“ü—Í‚µ‚Ä‰º‚³‚¢");
			return false;
		}

		//** ‚QDŽæˆøæ‚Ìƒ`ƒFƒbƒN
		if(form1.TorihikisakiCD.value == "")
		{
			alert("Žæˆøæ‚ð“ü—Í‚µ‚Ä‰º‚³‚¢");
			return false;
		}

		//** ‚RD–¾×•”‚Ìƒ`ƒFƒbƒN
		var ii;
		var cnt=0;
		for(ii = 1;ii <= 5; ii++)
		{
			var SyohinCD;
			SyohinCD = document.form1["SyohinCD" + ii].value;

			if(SyohinCD != "")
			{
				if(ConvSyohinMeisyo(SyohinCD) == "" && SyohinCD != "ETCSHOHIN") //u‚»‚Ì‘¼‚Ì¤•iv‚Íƒ`ƒFƒbƒNœŠO
				{
					alert("¤•i‚ð³‚µ‚­‘I‘ð‚µ‚Ä‰º‚³‚¢");
					return false;
				}
				else if(form1["Suryo" + ii].value == "")
				{
					alert("”—Ê‚ð³‚µ‚­“ü—Í‚µ‚Ä‰º‚³‚¢");
					return false;
				}
				else if(form1["Tanka" + ii].value == "")
				{
					alert("’P‰¿‚ð³‚µ‚­“ü—Í‚µ‚Ä‰º‚³‚¢");
					return false;
				}
				cnt++;
			}
			else
			{
				if(form1["Suryo" + ii].value != "")
				{
					alert("¤•i‚ð³‚µ‚­‘I‘ð‚µ‚Ä‰º‚³‚¢");
					return false;
				}
				else if(form1["Tanka" + ii].value != "")
				{
					alert("¤•i‚ð³‚µ‚­‘I‘ð‚µ‚Ä‰º‚³‚¢");
					return false;
				}
				cnt++;
			}
		}

//		if ((ConvMoneyToInt(form1.GokeiKingaku.value) == 0) || (cnt == 0) )
		if (cnt == 0)
		{
			alert("–¾×‚ð“ü—Í‚µ‚Ä‰º‚³‚¢");
			return false;
		}


		SubmitReal(form1);
		return true;
	}

//################################################
//	–¼ÌFSetKingaku
//	–Ú“IFs‚²‚Æ‚Ì‹àŠz‚Ì’l‚ðƒZƒbƒg‚·‚éB
//################################################
	function SetKingaku(ii)
	{
		var kingaku;

		if(form1["Tanka" + ii].value == "" || form1["Suryo" + ii].value == "" )
		{
			form1["Kingaku" + ii].value = "";
		}
		else
		{
			kingaku = ConvMoneyToInt(form1["Tanka" + ii].value) * ConvMoneyToInt(form1["Suryo" + ii].value)
			if (kingaku > 9999999999) {
				alert("¤•i‚Ì‹àŠz‚ª10Œ…‚ð’´‚¦‚Ü‚µ‚½@");
				form1["Suryo" + ii].value = "";
				form1["Kingaku" + ii].value = "";
				form1["Suryo" + ii].focus();
				form1["Suryo" + ii].select();
				return false;
			}
			form1["Kingaku" + ii].value = ConvIntToMoney(kingaku, false, false);
		}
	}

//################################################
//	–¼ÌFSetGokei
//	–Ú“IF‡Œv‹àŠzAÁ”ïÅŠzAÅž‹àŠz@‚ðƒZƒbƒg‚·‚éB
//################################################
	function SetGokei() {
		var Kingaku;
		var TaxRate;
		var Gokei;
		var SyohiZei;
		var ii;
		Gokei = 0;
		SyohiZei = 0;
		for (ii = 1; ii<=5; ii=ii+1) {
			Kingaku = ConvMoneyToInt(form1["Kingaku" + ii].value);	//form1["Kingaku" + ii].value‚ª10Œ…‚ð’´‚¦‚Ä‚¢‚é‚ÆŸˆ‚ÅƒGƒ‰[‚ªo‚é
			if (Kingaku == "" || Kingaku == "isNaN" || Kingaku == "ERR") {
				Kingaku = 0;
			}
			TaxRate = form1["TaxRate" + ii].value;
			if (TaxRate != "" && !isNaN(TaxRate)) {
				TaxRate = parseFloat(TaxRate); //¬”‚ ‚è’ˆÓI
			} else {
				TaxRate = 0;
			}
			Gokei = Gokei + Kingaku;
			SyohiZei = SyohiZei + ((Kingaku * TaxRate) / 100);
//alert(Math.floor((Kingaku * TaxRate) / 100));
		}
		SyohiZei = Math.floor(SyohiZei); //‡Œv‚µ‚Ä‚©‚çØ‚èŽÌ‚Ä
<% If ShiireUriageSyohizei <> "1" Then %>
//		SyohiZei = Gokei * <% = StdTaxRate %> / 100;
//		SyohiZei = Math.floor(SyohiZei);
<% Else %>
		SyohiZei = 0;
<% End If %>
		form1["GokeiKingaku"].value = ConvIntToMoney(Gokei, false, false);
		form1["SyohizeiKingaku"].value = ConvIntToMoney(SyohiZei, false, false) ;
		form1["ZeikomiKingaku"].value = ConvIntToMoney(Gokei + SyohiZei, false, false);
	}


//################################################
//	–¼ÌFSetSyohin
//	–Ú“IF¤•i–¼ÌA¤•i•W€‰¿Ši‚ðƒZƒbƒg‚·‚éB
//@ì¬F2002/8/26@ìè
//################################################
	function SetSyohin()
	{
		form1["TmpSyohin" + iiflag].value = ConvSyohinMeisyo(document.form1["SyohinCD" + iiflag].value);
		form1["Kakaku" + iiflag].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD" + iiflag].value));
	}



//################################################
//	–¼ÌFConvSyohinHanbaiTanka
//	–Ú“IF¤•iƒŠƒXƒg‚Ì•\Ž¦
//@ì¬F2002/8/26@ìè
//@ŠT—vFTS¤•iM‚Ì•W€”Ì”„’P‰¿‚ð•Ô‚·B
//################################################
	function ConvSyohinHanbaiTanka(SyohinCD)
	{
<%
	Query = "exec SPM¤•iˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		Response.Write("if(SyohinCD == """ & Content.Fields("¤•iCD") & """)return """ & Content.Fields("•W€”Ì”„’P‰¿") & """;" & vbCrLf)
		Content.MoveNext
	Loop
%>
		return "";
	}

//################################################
//	–¼ÌFConvSyohinTaxRate
//################################################
	function ConvSyohinTaxRate(SyohinCD) {
<%
	Query = "exec SPM¤•iˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("•W€Á”ïÅ—¦") <> "" And GB_ShohizeiMode = 1 Then
			Response.Write("		if (SyohinCD == """ & Content.Fields("¤•iCD") & """) return """ & Content.Fields("•W€Á”ïÅ—¦") & """;" & vbCrLf)
		Else
			Response.Write("		if (SyohinCD == """ & Content.Fields("¤•iCD") & """) return """ & StdTaxRate & """;" & vbCrLf)
		End If
		Content.MoveNext
	Loop
%>
		return "<% = StdTaxRate %>";
	}

//################################################
//	–¼ÌFConvSyohinMeisyo
//	–Ú“IF¤•i–¼‚Ì•\Ž¦
//@ì¬F2002/8/26@ìè
//@ŠT—vFTS¤•iM‚Ì•W€”Ì”„’P‰¿‚ð•Ô‚·B
//################################################
	function ConvSyohinMeisyo(SyohinCD)
	{
<%
	'¤•i”z—ñ‚æ‚è
	For ii = 1 To UBound(ShohinCDA)
		Response.Write("if(SyohinCD == """ & ShohinCDA(ii) & """)return """ & ShohinNameA(ii) & """;" & vbCrLf)
	Next
%>
		return "";
	}



//################################################
//	–¼ÌFSetSyohinKakaku
//	–Ú“IF¤•i•W€‰¿Ši‚ðƒZƒbƒg‚·‚éB
//@ì¬F2002/9/12@ŽRè
//################################################
	function SetSyohinKakaku(ii) {
		form1["Kakaku" + ii].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD" + ii].value));
		form1["TaxRate" + ii].value = ConvSyohinTaxRate(document.form1["SyohinCD" + ii].value);
	}



//////Žæˆøæƒƒjƒ…[•ÏXƒƒWƒbƒN

	//ŽæˆøæCD‹y‚ÑŽæˆøæ–¼Ì‚Ì”z—ñ‚ðì¬
	var Val = new Array();	//”z—ñ”Ô†Žsêƒƒjƒ…[‚ÌselectedIndex‚Å“®ì‚·‚é
	var Tex = new Array();
	//¤•iCD‹y‚Ñ¤•i–¼Ì‚Ì”z—ñ‚ðì¬
	var ValS = new Array();	//”z—ñ”Ô†Žsêƒƒjƒ…[‚ÌselectedIndex‚Å“®ì‚·‚é
	var TexS = new Array();
<%
	Dim ContentTorihikisaki
	Dim iii
	Dim jjj
	iii = 0
	jjj = 0


	If PackageMode = 1 Then
		'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚Å‚ÍƒJƒeƒSƒŠˆê——‚ðŽæ“¾
		Query = ""
		Query = Query & "  "
		Query = Query & " SELECT ƒJƒeƒSƒŠ "
		Query = Query & " FROM TDA¤•iM "
		Query = Query & " WHERE ƒVƒXƒeƒ€CD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND ‰‰KCD = '" & EnshuCD & "' "
		Query = Query & " 	AND ƒJƒeƒSƒŠ <> '' AND ƒJƒeƒSƒŠ IS NOT NULL "
		Query = Query & " GROUP BY ƒJƒeƒSƒŠ "
		Query = Query & " ORDER BY ƒJƒeƒSƒŠ " 'ƒvƒ‹ƒ_ƒEƒ“‚Ìs”Ô†‚ªŠî€‚È‚Ì‚Åƒ\[ƒg‡‚ð‡‚í‚¹‚é
	Else
		'TDAŽsêM‚©‚çŽsê(ŽsêCD)‚ðŽæ“¾
		Query = "exec SPMŽsêˆê—— '" & GB_SystemCD & "','" & EnshuCD & "'"
	End If
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Do While Not(Content.BOF Or Content.EOF)
			'Žæˆøæ
			Response.Write("Val[" & iii & "] = new Array()" & vbCrLf)	'2ŽŸŒ³”z—ñ
			Response.Write("Tex[" & iii & "] = new Array()" & vbCrLf)
			If UBound(KaishaCDA) > 0 Then
				jjj = 0
				Response.Write("Val[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("Tex[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				jjj = jjj + 1
				'“E—v”z—ñ‚æ‚è
				For ii = 1 To UBound(KaishaCDA)
					If PackageMode = 1 Then
						'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚ÍŽsêiž‚Ý–³‚µ
						Response.Write("Val[" & iii & "][" & jjj & "] = '" & KaishaCDA(ii) & "'" & vbCrLf)
						Response.Write("Tex[" & iii & "][" & jjj & "] = '" & KaishaNameA(ii) & "'" & vbCrLf)
						jjj = jjj + 1
					Else
						'iii=0‚Í‘SŽæˆøæŽæ“¾	KaishaShijoA(ii)=NULL‚àŽæ“¾i¬”„”Ì”„‘Î‰žj
						If iii = 0 Or KaishaShijoA(ii) = "" Or KaishaShijoA(ii) = Content.Fields("ŽsêCD") Then
							Response.Write("Val[" & iii & "][" & jjj & "] = '" & KaishaCDA(ii) & "'" & vbCrLf)
							Response.Write("Tex[" & iii & "][" & jjj & "] = '" & KaishaNameA(ii) & "'" & vbCrLf)
							jjj = jjj + 1
						End If
					End If
				Next
			End If
			'¤•i
			Response.Write("ValS[" & iii & "] = new Array()" & vbCrLf)	'2ŽŸŒ³”z—ñ
			Response.Write("TexS[" & iii & "] = new Array()" & vbCrLf)
			If UBound(ShohinCDA) > 0 Then
				jjj = 0
				Response.Write("ValS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("TexS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				jjj = jjj + 1
				'“E—v”z—ñ‚æ‚è
				For ii = 1 To UBound(ShohinCDA)
					If PackageMode = 1 Then
						'ƒTƒCƒo[‰ïŒvƒ‚[ƒh‚ÍƒJƒeƒSƒŠiž‚Ý
						'iii=0‚Í‘SŽæˆøæŽæ“¾
						If iii = 0 Or  ShohinCategoryA(ii) = "" & Content.Fields("ƒJƒeƒSƒŠ") Then
							Response.Write("ValS[" & iii & "][" & jjj & "] = '" & ShohinCDA(ii) & "'" & vbCrLf)
							Response.Write("TexS[" & iii & "][" & jjj & "] = '" & ShohinNameA(ii) & "'" & vbCrLf)
							jjj = jjj + 1
						End If
					Else
						'iii=0‚Í‘SŽæˆøæŽæ“¾
						If iii = 0 Or  ShohinShijoA(ii) = Content.Fields("ŽsêCD") Then
							Response.Write("ValS[" & iii & "][" & jjj & "] = '" & ShohinCDA(ii) & "'" & vbCrLf)
							Response.Write("TexS[" & iii & "][" & jjj & "] = '" & ShohinNameA(ii) & "'" & vbCrLf)
							jjj = jjj + 1
						End If
					End If
				Next
			End If
			'iii=0‚Í‘SŽæˆøæŽæ“¾‚È‚Ì‚ÅMoveNext‚µ‚È‚¢
			If iii <> 0 then
				Content.MoveNext
			End If
			iii = iii + 1
		Loop
	End If
	'Å‰º—ñ‚ÉŽsê”ñŒÀ’èˆê——iƒTƒCƒo[‰ïŒv‚ÍƒJƒeƒSƒŠ–¢Ý’èˆê——j
	Response.Write("ValS[" & iii & "] = new Array()" & vbCrLf)	'2ŽŸŒ³”z—ñ
	Response.Write("TexS[" & iii & "] = new Array()" & vbCrLf)
	If UBound(ShohinCDA) > 0 Then
		jjj = 0
		Response.Write("ValS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
		Response.Write("TexS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
		jjj = jjj + 1
		'“E—v”z—ñ‚æ‚è
		For ii = 1 To UBound(ShohinCDA)
			If (PackageMode = 1 And ShohinCategoryA(ii) = "") Or (PackageMode <> 1 And ShohinShijoA(ii) = "") Then
'			If ShohinShijoA(ii) = "" Then
				Response.Write("ValS[" & iii & "][" & jjj & "] = '" & ShohinCDA(ii) & "'" & vbCrLf)
				Response.Write("TexS[" & iii & "][" & jjj & "] = '" & ShohinNameA(ii) & "'" & vbCrLf)
				jjj = jjj + 1
			End If
		Next
	End If

%>

	function SetTorihikisakiMenu(selindex) {
			var plusLen = 0;
			//Œ»Ý‘I‘ð‚³‚ê‚Ä‚¢‚éƒƒjƒ…[“à—e‚ðŽæ“¾
			var selVal = form1.TorihikisakiCD.value;
			var selTex = form1.TorihikisakiCD.options[form1.TorihikisakiCD.selectedIndex].text;
			//ƒƒjƒ…[‚Ì”z—ñ’·‚ð•ÏXiVal‚Ì2ŽŸŒ³–Ú‚Ì”z—ñ’·j
			if (selVal != '') {
				plusLen = 1;
				//Œ»Ý‘I‘ð‚³‚ê‚Ä‚¢‚éƒƒjƒ…[“à—e‚ªnull‚Å–³‚¯‚ê‚Î”z—ñ’·+1•æ“ªƒƒjƒ…[”z—ñ‚ÉƒZƒbƒg
				form1.TorihikisakiCD.options.length = Val[selindex].length + plusLen;
				form1.TorihikisakiCD.options[0].value = selVal;
				form1.TorihikisakiCD.options[0].text = selTex;
			} else {
				form1.TorihikisakiCD.options.length = Val[selindex].length;
			}
			for (jj=0; jj<Val[selindex].length; jj++) {
				//ƒƒjƒ…[‚Ì“à—e‚ð•ÏX
				form1.TorihikisakiCD.options[jj + plusLen].value = Val[selindex][jj]
				form1.TorihikisakiCD.options[jj + plusLen].text = Tex[selindex][jj]
			}
			form1.TorihikisakiCD.selectedIndex = 0;
	}


	function SetShohinMenu(selindex) {
		for (ii=1; ii<=5; ii++) {
			var plusLen = 0;
			//Œ»Ý‘I‘ð‚³‚ê‚Ä‚¢‚éƒƒjƒ…[“à—e‚ðŽæ“¾
			var selVal = form1['SyohinCD' + ii].value;
			var selTex = form1['SyohinCD' + ii].options[form1['SyohinCD' + ii].selectedIndex].text;
			//ƒƒjƒ…[‚Ì”z—ñ’·‚ð•ÏXiVal‚Ì2ŽŸŒ³–Ú‚Ì”z—ñ’·j
			if (selVal != '') {
				plusLen = 1;
				//Œ»Ý‘I‘ð‚³‚ê‚Ä‚¢‚éƒƒjƒ…[“à—e‚ªnull‚Å–³‚¯‚ê‚Î”z—ñ’·+1•æ“ªƒƒjƒ…[”z—ñ‚ÉƒZƒbƒg
				form1['SyohinCD' + ii].options.length = ValS[selindex].length + plusLen;
				form1['SyohinCD' + ii].options[0].value = selVal;
				form1['SyohinCD' + ii].options[0].text = selTex;
			} else {
				form1['SyohinCD' + ii].options.length = ValS[selindex].length;
			}
			for (jj=0; jj<ValS[selindex].length; jj++) {
				//ƒƒjƒ…[‚Ì“à—e‚ð•ÏX
				form1['SyohinCD' + ii].options[jj + plusLen].value = ValS[selindex][jj]
				form1['SyohinCD' + ii].options[jj + plusLen].text = TexS[selindex][jj]
			}
			form1['SyohinCD' + ii].selectedIndex = 0;
		}
	}




//////ƒTƒCƒo[‰ïŒv‚ÌŽd“üæŽw’è‚É‚æ‚é¤•iƒƒjƒ…[•ÏXƒƒWƒbƒN
	//¤•iCD‹y‚Ñ¤•i–¼Ì‚Ì”z—ñ‚ðì¬
	var ValSS = new Array();	//”z—ñ”Ô†Žæˆøæƒƒjƒ…[‚ÌselectedIndex‚Å“®ì‚·‚é
	var TexSS = new Array();
<%
	iii = 0
	jjj = 0
	'‰ïŽÐ”z—ñ‚æ‚è
	For iii = 0 To UBound(KaishaCDA) '”z—ñ0”Ô‚ÍŽg‚Á‚Ä‚È‚¢‚Ì‚ÅŽæˆøæ–¢‘I‘ðˆµ‚¢

			'¤•i
			Response.Write("ValSS[" & iii & "] = new Array()" & vbCrLf)	'2ŽŸŒ³”z—ñ
			Response.Write("TexSS[" & iii & "] = new Array()" & vbCrLf)
			If UBound(ShohinCDA) > 0 Then
				jjj = 0
				Response.Write("ValSS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("TexSS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				jjj = jjj + 1
				'“E—v”z—ñ‚æ‚è
				For ii = 1 To UBound(ShohinCDA)
					'iii=0‚Í‘S¤•iŽæ“¾
					If iii = 0 Or ShohinShiireA(ii) = "" Or ShohinShiireA(ii) = KaishaCDA(iii) Then
						Response.Write("ValSS[" & iii & "][" & jjj & "] = '" & ShohinCDA(ii) & "'" & vbCrLf)
						Response.Write("TexSS[" & iii & "][" & jjj & "] = '" & ShohinNameA(ii) & "'" & vbCrLf)
						jjj = jjj + 1
					End If
				Next
			End If
	Next

%>

	function SetShohinMenuS(selindex) {
		for (ii=1; ii<=5; ii++) {
			var plusLen = 0;
			//Œ»Ý‘I‘ð‚³‚ê‚Ä‚¢‚éƒƒjƒ…[“à—e‚ðŽæ“¾
			var selVal = form1['SyohinCD' + ii].value;
			var selTex = form1['SyohinCD' + ii].options[form1['SyohinCD' + ii].selectedIndex].text;
			//ƒƒjƒ…[‚Ì”z—ñ’·‚ð•ÏXiVal‚Ì2ŽŸŒ³–Ú‚Ì”z—ñ’·j
			if (selVal != '') {
				plusLen = 1;
				//Œ»Ý‘I‘ð‚³‚ê‚Ä‚¢‚éƒƒjƒ…[“à—e‚ªnull‚Å–³‚¯‚ê‚Î”z—ñ’·+1•æ“ªƒƒjƒ…[”z—ñ‚ÉƒZƒbƒg
				form1['SyohinCD' + ii].options.length = ValSS[selindex].length + plusLen;
				form1['SyohinCD' + ii].options[0].value = selVal;
				form1['SyohinCD' + ii].options[0].text = selTex;
			} else {
				form1['SyohinCD' + ii].options.length = ValSS[selindex].length;
			}
			for (jj=0; jj<ValSS[selindex].length; jj++) {
				//ƒƒjƒ…[‚Ì“à—e‚ð•ÏX
				form1['SyohinCD' + ii].options[jj + plusLen].value = ValSS[selindex][jj]
				form1['SyohinCD' + ii].options[jj + plusLen].text = TexSS[selindex][jj]
			}
			form1['SyohinCD' + ii].selectedIndex = 0;
		}
	}



window.onload = function() {

SetGokei(); //VBScript‚Å‚ÍÅ—¦‚ª¬”‚¾‚ÆŠÛ‚ßŒë·‚Å³‚µ‚­‚È‚ç‚È‚¢‚Ì‚ÅJavaScript‚ÅŒvŽZ‚·‚é

<% If PackageMode = 1 And ShijoCDSSelndex > 0 Then %>
	form1.ShijoCDS.selectedIndex = <% = ShijoCDSSelndex %>;
	SetShohinMenu(form1.ShijoCDS.selectedIndex);
<% End If %>

<% If ErrorFlg <> "" Then '“`•[”Ô†d•¡Žž‚Ìˆ—i090528¬–ìj%>
	alert("<% = ErrorFlg %>");
	form1.DenpyoNo.focus();
	form1.DenpyoNo.select();
<% Else %>
	form1.Torihikibi.focus();
	form1.Torihikibi.select();
<% End If %>
	event.returnValue = false;
	return;

}



</SCRIPT>

<% = HtmlFooter %>
</html>
<%
End Sub
%>