
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：経費管理・労務費管理
'	作成日	：2016/1/28
'	作成者	：小野
'	目的	：
'	概要	：
'################################################
'-->
'
'
%>

<%
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
	Dim Kubun

'###############################################	 １．データの引継ぎ

	Kubun = Request("Kubun")
	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 TmpTekiyo(10)
	Dim TmpKingaku(10)


	Dim ii
	Dim jj
	Dim kk
	Dim Query
	Dim Content

'###############################################	 ２．ストアドプロシージャーの引数の作成

	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("/" & HomeAlias & "/admin/master/shohin/fm_shohin_ichiran.asp?PageType=" & PageType & "&Mode=KeihiRoumuhi&Kubun=" & Kubun)

	Else

		Dim SendValue, TmpValue1, TmpValue2
		SendValue = Request("SendValue")

		Dim KeihiRoumuhiCD
		KeihiRoumuhiCD = 0

		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), ",")

			'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）
			Dim iii
			For iii = 0 To UBound(TmpValue2)
				TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",")
				TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";")
			Next
			'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）

			TmpTekiyo(jj) = TmpValue2(0)
			TmpKingaku(jj) = ConvMoneyToInt(TmpValue2(1))

			If jj = 10 Or ii = UBound(TmpValue1) - 1 Then
				Query = "exec SPM経費労務費挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "', '" & Kubun & "', " & jj
				For kk = 1 To jj
					KeihiRoumuhiCD = KeihiRoumuhiCD + 1
					Query = Query & ", " & KeihiRoumuhiCD & ", '" & TmpTekiyo(kk) & "'"
					If TmpKingaku(kk) <> "" Then
						Query = Query & ", " & TmpKingaku(kk)
					Else
						Query = Query & ", null"
					End If
				Next
				For kk = jj + 1 To 10	'余りは埋めないと例外エラーになる。プロシージャ側で無視されるので何でも良い。
					KeihiRoumuhiCD = KeihiRoumuhiCD + 1
					Query = Query & ", " & KeihiRoumuhiCD & ", '" & TmpTekiyo(kk) & "'"
					If TmpKingaku(kk) <> "" Then
						Query = Query & ", " & TmpKingaku(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
		Query = Query & ", '" & Kubun & "'"		'経費労務費区分

'###############################################	 ？．ストアドプロシージャ-実行
'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("fd_keihiroumuhi_view.asp?PageType=" & PageType & "&SyohinCD=" & SyohinCD & "&SyohinKubun=" & SyohinKubun & "&Mode=KeihiRoumuhi" & "&Kubun=" & Kubun)

	End If

End Sub
%>