
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：部品展開表挿入・更新・削除
'	作成日	：2008/3/19
'	作成者	：小野
'	目的	：部品展開表の挿入・更新・削除を行う。
'	概要	：
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim RouteType
	Dim PageType
	Dim SyohinCD , Shohinmei , ShohinRyakumei		'商品コード、商品名称、商品略名称
	Dim HanbaiTanka , ShireTnanka , UnsoTanka		'標準販売単価、標準仕入単価、運送費単価
	Dim SokoryoTanka , Jyuryo , Yoseki			'倉庫料単価、重量、容積
	Dim Bikou						'備考
	Dim GazoFile
	Dim Tani
	Dim Lot
	Dim SyohinKubun
	Dim ShijyoCD, SyoyuKaisyaCD
	Dim BinType

'###############################################	 １．データの引継ぎ

	BinType = Request("BinType")
	RouteType = Request("RouteType")
	SyohinCD = Request("SyohinCD")
	Shohinmei = Request("Shohinmei")
	ShohinRyakumei = Request("ShohinRyakumei")
	HanbaiTanka = ConvMoneyToInt(Request("HanbaiTanka"))
	ShireTnanka = ConvMoneyToInt(Request("ShireTnanka"))
	UnsoTanka = ConvMoneyToInt(Request("UnsoTanka"))
	SokoryoTanka = ConvMoneyToInt(Request("SokoryoTanka"))
	Jyuryo = ConvMoneyToInt(Request("Jyuryo"))
	Yoseki = ConvMoneyToInt(Request("Yoseki"))
	Bikou = Request("Bikou")
	Tani = Request("Tani")
	Lot = ConvMoneyToInt(Request("Lot"))
	ShijyoCD = Request("ShijyoCD")
	PageType = Request("PageType")
	SyoyuKaisyaCD = Request("SyoyuKaisyaCD")
	SyohinKubun = Request("SyohinKubun")


	Dim TmpSuryo(10)
	Dim TmpZairyoCD(10)
	Dim TmpZairyoKubun(10)


	Dim ii
	Dim jj
	Dim kk
	Dim Query
	Dim Content

	Dim Seq
	Seq = 0

'###############################################	 ２．ストアドプロシージャーの引数の作成

	If BinType = "Del" Then

'		Query = "exec SPK伝票_削除 '" & GB_SystemCD & "',"
'		Query = Query & "'" & EnshuCD & "'"		'演習CD
'		Query = Query & ",'" & KaisyaCD & "'"	'会社CD
'		Query = Query & ",'D7'"					'伝票区分
'		Query = Query & ",'" & DenpyoNo & "'"
'		Set Content = OpenQuery(Query)

		Response.Redirect("fm_shohin_ichiran.asp?PageType=" & PageType & "&Mode=BuhinTenkai")

	Else

		Dim SendValue, TmpValue1, TmpValue2
		SendValue = Request("SendValue")

		Dim db
		Set db = InitQuery()

		TmpValue1 = split(SendValue, ";")
		Dim bCheck
		bCheck = 0
		For ii = 0 To UBound(TmpValue1) - 1

			If jj = 10 Then
				jj = 1
			Else 
				jj = jj + 1
			End If

			TmpValue2 = split(TmpValue1(ii), ",")

			If Left(TmpValue2(0), 4) = "《製品》" Then
				TmpZairyoCD(jj) = ConvRevSyohinMeisyo(Replace(TmpValue2(0), "《製品》", ""))
				TmpZairyoKubun(jj) = "SH"
			Else
				TmpZairyoCD(jj) = ConvRevZairyoMeisyo(TmpValue2(0))
				TmpZairyoKubun(jj) = "ZR"
			End If
			TmpSuryo(jj) = ConvMoneyToInt(TmpValue2(1))

			If jj = 10 Or ii = UBound(TmpValue1) - 1 Then
				Query = "exec SPM部品展開表挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "', " & jj
				For kk = 1 To jj
					Seq = Seq + 1
					Query = Query & ", " & Seq & ""
					Query = Query & ", '" & TmpZairyoKubun(kk) & "', '" & TmpZairyoCD(kk) & "'"
					If TmpSuryo(kk) <> "" Then
						Query = Query & ", " & TmpSuryo(kk)
					Else
						Query = Query & ", null"
					End If
				Next
				For kk = jj + 1 To 10	'余りは埋めないと例外エラーになる。プロシージャ側で無視されるので何でも良い。
					Seq = Seq + 1
					Query = Query & ", null"
					Query = Query & ", '" & TmpZairyoKubun(kk) & "', '" & TmpZairyoCD(kk) & "'"
					If TmpSuryo(kk) <> "" Then
						Query = Query & ", " & TmpSuryo(kk)
					Else
						Query = Query & ", null"
					End If
				Next
DebugQuery(Query)
				bCheck = 1
'Response.Write(Query)
'Exit Sub
				Set Content = OpenQuery(Query)
			End If

		Next

'Response.Write(DenpyoNo)
'Exit Sub

		Query = "exec SPM部品展開表更新 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"		'演習CD
		Query = Query & ", '" & KaisyaCD & "'"		'会社CD
		Query = Query & ", '" & SyohinKubun & "'"	'商品区分
		Query = Query & ", '" & SyohinCD & "'"		'商品CD

'###############################################	 ？．ストアドプロシージャ-実行
'Response.Write(Query)
'Exit Sub

		Set Content = OpenQuery(Query)

		While Not Content Is Nothing
			If Content.Fields.Count > 0 Then
			End If
			Set Content = Content.NextRecordset
		Wend


'###############################################	 ４．更新データをビューで表示
		Response.Redirect("fm_buhintenkai_view.asp?PageType=" & PageType & "&SyohinCD=" & SyohinCD & "&SyohinKubun=" & SyohinKubun & "&Mode=BuhinTenkai")

	End If

End Sub
%>