
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：入出庫登録
'	 作成日：2002/9/20
'	 作成者：山崎　貴史
'	 目的	：・入出庫データを登録する。
'
'	 概要　：
'			１．データの引継ぎ
'			２．ストアドプロシージャーの引数の作成
'			３．ストアドプロシージャー実行
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim AddFlg
	Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, UntinSyogakariKubun, Unsohi
	Dim BunsyoSyuruiCD, SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim SyohinCD(5)														'商品コード
	Dim Suryo(5)															'数量
	Dim Tanka(5)															'単価
	
	Dim UnsoTanka(5)													'運送単価
	Dim Query
	Dim Content
	Dim ii, jj

	Dim MotoTanka(5)													'元単価

	Dim SenpoShiireUriageSyuruiCD	'先方注文書の文書種類CD
	Dim SenpoShiireUriageNaiyoCD	'先方注文書の文書内容CD


'###############################################	 １．データの引継ぎ

	'ヘッダ部
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")						'文書内容CD
	Syoribi = Request("Syoribi")												'処理日
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")	'先方文書内容CD
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")'先方文書種類CD
	SenpoSyoribi = Request("SenpoSyoribi")							'先方処理日
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")					'文書種類CD
	TorihikisakiCD = Request("TorihikisakiCD")					'取引先CD
	UntinSyogakariKubun = Request("UntinSyogakariKubun")'運賃諸掛区分
	Unsohi = ConvMoneyToInt(Request("Unsohi"))					'運送費
	SenpoShiireUriageSyuruiCD = Request("SenpoShiireUriageSyuruiCD")	'先方注文書の文書種類CD
	SenpoShiireUriageNaiyoCD = Request("SenpoShiireUriageNaiyoCD")		'先方注文書の文書内容CD

	'明細部
	For ii = 1 To 5
			SyohinCD(ii) = Request("SyohinCD" & ii)										'商品CD

			Suryo(ii) = ConvMoneyToInt(Request("Suryo" & ii))					'数量
			Tanka(ii) = ConvMoneyToInt(Request("Tanka" & ii))					'単価
			UnsoTanka(ii) = ConvMoneyToInt(Request("UnsoTanka" & ii))	'運送単価
			
			MotoTanka(ii) = ConvMoneyToInt(Request("MotoTanka" & ii))					'元単価

			If Tanka(ii) = "" Then
				Tanka(ii) = "null"
			End If


			If MotoTanka(ii) = "" Then
				MotoTanka(ii) = "null"
			End If
			
						
'			If Tanka(ii) <> "" Then
'				If BunsyoSyuruiCD = "X" Or BunsyoSyuruiCD = "1" Then
'					Suryo(ii) = -1 * Int(Suryo(ii))
'				End If
'			End If
	Next



'###############################################	 ２．ストアドプロシージャーの引数の作成

	If Request("Action") = "Del" Then
		Query = "exec SPD入出庫削除 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"	'会社CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD)
	End If


	If Request("Action") = "Deny" Then
		Query = "exec SPD入出庫非受付 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"			'会社CD
		Query = Query & ",'" & TorihikisakiCD & "'"			'会社CD
		Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"			'文書種類CD
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD)
	End If



	'実行プロシージャーの特定　
	AddFlg = 0
	If BunsyoNaiyoCD = "" Then					'追加モード
		AddFlg = 1
	End If

	If AddFlg = 1 Then
		Query = "exec SPD入出庫挿入3 '" & GB_SystemCD & "',"
	Else
		Query = "exec SPD入出庫更新3 '" & GB_SystemCD & "',"
	End If

	Query = Query & " '" & EnshuCD & "'"				'演習CD
	Query = Query & ",'" & KaisyaCD & "'"			'会社CD
	Query = Query & ",'" & KaisyaCD & "'"			'会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"			'文書種類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 & ",'" & SenpoShiireUriageSyuruiCD & "'"	'先方注文書の文書種類CD
	Query = Query & ",'" & SenpoShiireUriageNaiyoCD & "'"	'先方注文書の文書内容CD



	'**　画面明細部　

	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)					'受注数量
			Query = Query & ","& Tanka(ii)					'受注単価

			If UnsoTanka(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & UnsoTanka(ii) & ""		'運送単価
			End If
			
			Query = Query & ","& MotoTanka(ii)					'元単価
			
		End If
	Next

'Response.Write("Query:" & 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




'入出庫処理##########################################################

	If (BunsyoSyuruiCD = "SU" OR BunsyoSyuruiCD = "SX") Then

		Query = "exec SPD入出庫発信 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"							'演習CD
		Query = Query & ",'" & KaisyaCD & "'"							'会社CD
		Query = Query & ",'" & KaisyaCD & "'"							'会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"				'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"        '文書内容CD
		Query = Query & ",'" & Syoribi & "'"							'処理日
		Query = Query & ",'" & GakuseiNo & "'"						'学生番号

		DebugQuery(Query)

		'Response.Write("BunsyoSyuruiCD" & BunsyoSyuruiCD & "<br>")
		'Response.Write("AddFlg" & AddFlg & "<br>")
		'Exit Sub

		Set Content = OpenQuery(Query)

	End If
	
'####################################################################

	If AddFlg = 1 Then
		If Not(BunsyoSyuruiCD = "SU" OR BunsyoSyuruiCD = "SX") THen
			Query = "exec SPD入出庫受付 '" & GB_SystemCD & "',"
			Query = Query & " '" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KaisyaCD & "'"			'会社CD
			Query = Query & ",'" & TorihikisakiCD & "'"			'会社CD
			Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"			'文書種類CD
			Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"
DebugQuery(Query)
			Set Content = OpenQuery(Query)
		End If
	End If
'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fd_nyusyukko_view.asp?Action=7&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD )

End Sub
%>