
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：倉庫料請求書・領収書
'	作成日	：2013/09/14
'	作成者	：小野美
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Bango
	Bango = Request("Bango")
	Dim TorihikisakiCD
	TorihikisakiCD = Request("TorihikisakiCD")
	Dim Shoribi
	Shoribi = Request("Shoribi")
	Dim Basho
	Basho = Request("Basho")
	Dim Nyukobi
	Nyukobi = Request("Nyukobi")
	Dim Shukobi
	Shukobi = Request("Shukobi")
	Dim KikanFrom
	KikanFrom = Request("KikanFrom")
	Dim KikanTo
	KikanTo = Request("KikanTo")
	Dim Hokanryo
	Hokanryo = ConvMoneyToInt(Request("Hokanryo"))
	Dim Nyukoryo
	Nyukoryo = ConvMoneyToInt(Request("Nyukoryo"))
	Dim Shukoryo
	Shukoryo = ConvMoneyToInt(Request("Shukoryo"))
	Dim Shohizei
	Shohizei = ConvMoneyToInt(Request("Shohizei"))
	Dim Shohizeiritsu
	Shohizeiritsu = ConvMoneyToInt(Request("Shohizeiritsu"))
	Dim Biko
	Biko = Replace("" & Request("Biko"), vbCrLf, "<br>")

	Dim Seq
	Seq = Request("Seq")


	Dim Query
	Dim Content
	Dim Ng , ErrMSG , rsts
	ErrMsg = Request("ErrMsg")
	rsts = True

'Response.Write("[" & Tanka & "]")
'Exit Sub

	If rsts = False Then
		Ng = "fu_souko.asp?action=" & Action & "&nr=r" & "&EnshuCD=" & EnshuCD & "&HokenKubun=" & HokenKubun
		Ng = Ng & "&MousikomiNum=" & MousikomiNum & "&KaisyaCD=" & KaisyaCD & "&TorihikisakiCD=" & TorihikisakiCD
		Ng = Ng & "&HSyubetsuCode=" & HSyubetsuCode & "&Mosikomibi=" & Mosikomibi
		Ng = Ng & "&HokenkikanFrom=" & HokenkikanFrom & "&HokenkikanTo=" & HokenkikanTo
		Ng = Ng & "&SyohinCD=" & SyohinCD & "&Tanka=" & Tanka
		Ng = Ng & "&Kingaku=" & Kingaku & "&Suryo=" & Suryo
		Ng = Ng & "&Ryoritsu=" & Ryoritsu & "&HokenRyokin=" & HokenRyokin
		Ng = Ng & "&Biko=" & Biko
		Ng = Ng & "&ErrMSG=" & ErrMSG
'		Response.Redirect(Ng)
		Response.Write(SubmitHystoryBack(Ng))
		Exit Sub
	End If

	If Request("Delete") <> "" Then
		Query = "exec SPU倉庫料請求領収書削除 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & Request("Delete") & " "
	Else
		Query = "exec SPU倉庫料請求領収書更新 '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		If "" & Seq = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", " & Seq
		End If
		Query = Query & ", '" & Bango & "'"
		Query = Query & ", '" & TorihikisakiCD & "'"
		If "" & Shoribi = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", '" & Shoribi & "'"
		End If
		Query = Query & ", '" & Basho & "'"
		If "" & Nyukobi = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", '" & Nyukobi & "'"
		End If
		If "" & Shukobi = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", '" & Shukobi & "'"
		End If
		If "" & KikanFrom = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", '" & KikanFrom & "'"
		End If
		If "" & KikanTo = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", '" & KikanTo & "'"
		End If
		If "" & Hokanryo = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", " & Hokanryo
		End If
		If "" & Nyukoryo = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", " & Nyukoryo
		End If
		If "" & Shukoryo = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", " & Shukoryo
		End If
		If "" & Shohizei = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", " & Shohizei
		End If
		If "" & Shohizeiritsu = "" Then
			 Query = Query & ", null"
		Else
			 Query = Query & ", " & Shohizeiritsu
		End If
		Query = Query & ", '" & Biko & "'"
	End If
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		Seq = Content.Fields(0)
	End If

	If Request("Delete") <> "" Then
		Response.Redirect("fu_souko_ichiran.asp")
	Else
		Response.Redirect("fu_souko_view.asp?Seq=" & Seq)
	End If

End Sub
%>