
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	 ：入出庫登録,寄託在庫登録
'	 作成日：2006/12/9
'	 作成者：Javanet
'	 目的	 ：入出庫データを登録する。
'          寄託倉庫(在庫テーブル)へ商品を登録する。
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content
	Dim ii, jj
	Dim AddFlg
	Dim SakuseiKaisyaCD         '作成会社CD
	Dim TorihikisakiCD          '取引先CD
	Dim KitakuGaisyaCD          '寄託会社CD
	Dim SenpoKitakuGaisyaCD     '先方寄託会社CD
	Dim UnsoGaisyaCD            '運送会社CD
	Dim BunsyoSyuruiCD          '文書種類CD
	Dim TmpBunsyoSyuruiCD          '一時文書種類CD
	Dim BunsyoNaiyoCD           '文書内容CD
	Dim TmpBunsyoNaiyoCD        '一時文書内容CD
	Dim SenpoBunsyoSyuruiCD     '先方文書種類CD
	Dim SenpoBunsyoNaiyoCD      '先方文書内容CD
	Dim Syoribi                 '処理日
	Dim SenpoSyoribi            '先方処理日
	Dim UntinSyogakariKubun     '運賃諸掛区分
	Dim Unsohi                  '運送費
	Dim SyohinCD(5)					    '商品コード
	Dim Suryo(5)						    '数量
	Dim Tanka(5)								'単価
	Dim UnsoTanka(5)						'運送単価


	'寄託
	Dim KitakuNo                '寄託受付番号
	Dim KitakuFrom							'寄託期間始
	Dim KitakuTo								'寄託期間終
	Dim NyukoNengappi						'入庫年月日
	Dim Basyo									  '倉庫場所
	Dim SokoBetsu								'倉庫種別
	Dim Tekiyo									'摘要
	Dim KasaiHokenKin						'火災保険料金
	Dim KasaiHokenRitsu					'火災保険料率
	Dim NiyakuKin								'荷役料金
	Dim Niyakuritsu							'荷役率
	Dim Jyoryoritsu							'従量率
	Dim Jyokaritsu							'従価率
	Dim HokanKin                '保管料金
	Dim SyokenNum								'倉荷証券番号
	Dim SyokenTesuryo						'倉荷証券発行手数料
	
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")				     '作成会社CD
	TorihikisakiCD = Request("TorihikisakiCD")				       '取引先CD
	UnsoGaisyaCD = Request("UnsoGaisyaCD")                   '運送会社CD
	KitakuGaisyaCD = Request("KitakuGaisyaCD")               '寄託会社CD(出庫側)
	SenpoKitakuGaisyaCD = Request("SenpoKitakuGaisyaCD")     '先方寄託会社CD(仕入側)
	TmpBunsyoSyuruiCD = Request("BunsyoSyuruiCD")				     '文書種類CD
	TmpBunsyoNaiyoCD = Request("BunsyoNaiyoCD")						   '文書内容CD
	SenpoBunsyoSyuruiCD = Request("BunsyoSyuruiCD")		       '先方文書種類CD
	SenpoBunsyoNaiyoCD = Request("BunsyoNaiyoCD")			       '先方文書内容CD
	Syoribi = Request("Syoribi")							               '処理日
	SenpoSyoribi = Request("SenpoSyoribi")					         '先方処理日
	UntinSyogakariKubun = Request("UntinSyogakariKubun")	   '運賃諸掛区分
	Unsohi = ConvMoneyToInt(Request("Unsohi"))				       '運送費
	
	'先方文書種類CD設定
	If SenpoBunsyoSyuruiCD = "KS" Then 
		BunsyoSyuruiCD = "SU"
		SenpoBunsyoSyuruiCD = "SS"
	End If

	'明細部
	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))	     '運送単価
	Next

	If Request("Action") = "Del" Then
		Query = "exec SPD入出庫削除 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"				            '演習CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"			      '会社CD
		Query = Query & ",'" & KaisyaCD & "'"			              '作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"			        '文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"              '文書内容CD
		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 & ",'" & SakuseiKaisyaCD & "'"			     '会社CD
		Query = Query & ",'" & TorihikisakiCD & "'"			       '作成会社CD
		Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"			 '文書種類CD
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"        '文書内容CD
		Set Content = OpenQuery(Query)
		Response.Redirect("fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD)
	End If

	'TGA入出庫TRNへデータを登録##############################
	'キー：システムCD,演習CD,会社CD,作成会社CD,文書種類CD
	
	AddFlg = 0
	If BunsyoNaiyoCD = "" Then					'追加モード
		AddFlg = 1
	End If

	If AddFlg = 1 Then
		Query = "exec SPD入出庫挿入4 '" & GB_SystemCD & "',"
	Else
		Query = "exec SPD入出庫更新4 '" & GB_SystemCD & "',"
	End If

	Query = Query & " '" & EnshuCD & "'"				             '演習CD
	Query = Query & ",'" & SakuseiKaisyaCD & "'"			       '会社CD
	Query = Query & ",'" & SakuseiKaisyaCD & "'"			       '作成会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"			         '文書種類CD
	If BunsyoNaiyoCD = "" Then
		Query = Query & ",''"
	Else
		Query = Query & ",'" & BunsyoNaiyoCD & "'"             '文書内容CD
	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
	If UntinSyogakariKubun = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & UntinSyogakariKubun & "'"	     '運賃諸掛区分
	End If
	If Unsohi = "" Then
		Query = Query & ", null"
	Else
		Query = Query & "," & Unsohi & ""		                   '運送費
	End If
	If GakuseiNo = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & GakuseiNo & "'"			             '学生番号
	End If
	If KitakuGaisyaCD = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & KitakuGaisyaCD & "'"			         '寄託会社CD
	End If
	If SenpoKitakuGaisyaCD = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SenpoKitakuGaisyaCD & "'"			   '先方寄託会社CD
	End If
	If UnsoGaisyaCD = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & UnsoGaisyaCD & "'"			           '運送会社CD
	End If
	
	'明細部
	jj = 0
	For ii = 1 To 5
		If SyohinCD(ii) = "" Then
			Query = Query & ",null,null,null,null,null"
		Else
			jj = jj + 1
			Query = Query & "," & jj						                 '伝票SEQ
			Query = Query & ",'"& SyohinCD(ii) & "'"		         '商品CD
			Query = Query & ","& Suryo(ii)					             '数量
			If Tanka(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & Tanka(ii) & ""		           '単価
			End If
			If UnsoTanka(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & UnsoTanka(ii) & ""		       '運送単価
			End If
		End If
	Next

	Set Content = OpenQuery(Query)


	'入出庫挿入4で採番した文書内容CDを取得
	While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			BunsyoNaiyoCD = Content.Fields(0)
		End If
		Set Content = Content.NextRecordset
	Wend

	'TGA入出庫TRNへ出庫先の会社用のデータを作成##############################
	If (BunsyoSyuruiCD = "SU" OR BunsyoSyuruiCD = "SX") Then
		Query = "exec SPD入出庫発信4 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"			             '演習CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"			     '会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"			     '作成会社CD
		Query = Query & ",'" & TorihikisakiCD & "'"			       '取引先CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"			       '文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"             '文書内容CD
		Query = Query & ",'" & Syoribi & "'"				           '処理日
		Query = Query & ",0"                                   '発行フラグ
		Query = Query & ",0"                                   '返信フラグ
		Query = Query & ",0"                                   '削除フラグ
		Query = Query & ",0"                                   '有効フラグ
		If GakuseiNo = "" Then
			Query = Query & ", null"
		Else
			Query = Query & ",'" & GakuseiNo & "'"			          '学生番号
		End If
		Set Content = OpenQuery(Query)
	End If

	'SPD入出庫発信4で採番した発信先文書内容CDを取得
	While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			SenpoBunsyoNaiyoCD = Content.Fields(0)
		End If
		Set Content = Content.NextRecordset
	Wend


'Response.Write("Query:" & Query)
'Exit Sub


	'TSA仕入売上書類Fの発行フラグを更新######################################
	If (BunsyoSyuruiCD = "SU" OR BunsyoSyuruiCD = "SX") THen
	
		Query = "UPDATE TSA仕入売上書類F SET 発行フラグ=1 WHERE "
	  Query = Query & " システムCD = '" & GB_SystemCD & "' AND "
	  Query = Query & " 演習CD = '" & EnshuCD & "' AND "
	  Query = Query & " 会社CD = '" & KaisyaCD & "' AND "
	  Query = Query & " 作成会社CD = '" & SakuseiKaisyaCD & "' AND "
	  Query = Query & " 文書種類CD = '" & TmpBunsyoSyuruiCD & "' AND "
	  Query = Query & " 文書内容CD = '" & TmpBunsyoNaiyoCD & "'"

		Set Content = db.Execute(Query)
	End If




	'TGC寄託在庫Fへデータを登録##############################################
	'キー：システムCD,演習CD,会社CD(寄託会社CD),作成会社CD(出庫した会社),寄託依頼会社CD(寄託を依頼している会社CD)
	
	If AddFlg = 1 Then
		Query = "exec SPD寄託在庫挿入2 '" & GB_SystemCD & "',"
	Else
		'こちらまだ未作成
		Query = "exec SPD寄託在庫更新2 '" & GB_SystemCD & "',"
	End If
	Query = Query & "  '" & EnshuCD & "'"				'演習CD
	Query = Query & ", '" & SenpoKitakuGaisyaCD & "'"	'会社CD
	Query = Query & ", '" & SakuseiKaisyaCD & "'"		'作成会社CD
	Query = Query & ", '" & TorihikisakiCD & "'"		'寄託依頼会社CD
	Query = Query & ", '" & BunsyoSyuruiCD & "'"		'商社側受付前は'SU'
	Query = Query & ", '" & SenpoBunsyoNaiyoCD & "'"	'SPD入出庫発信4で採番した発信先文書内容CDに連動させる
	Query = Query & ", null"							'寄託受付番号（採番）
	If KitakuFrom = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ", '" & KitakuFrom & "'"	'寄託開始年月日
	End If
	If KitakuTo = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ", '" & KitakuTo & "'"		'寄託保管期日
	End If
	If NyukoNengappi = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ", '" & NyukoNengappi & "'"	'入庫年月日
	End If
	Query = Query & ", '" & Basyo & "'"			    '倉庫場所
	Query = Query & ", '" & SokoBetsu & "'"			'倉庫種別
	If Syoribi = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ", '" & Syoribi & "'"		'処理日
	End If
	Query = Query & ", '" & GakuseiNo & "'"			             '学生番号
	Query = Query & ", '" & Tekiyo & "'"			                 '摘要
	If KasaiHokenKin = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & KasaiHokenKin & "'"			       '火災保険料金
	End If
	If KasaiHokenRitsu = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & KasaiHokenRitsu & "'"			      '火災保険料率
	End If
	If NiyakuKin = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & NiyakuKin & "'"			            '荷役料金
	End If
	If Niyakuritsu = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & Niyakuritsu & "'"			          '荷役量率
	End If
	If Jyoryoritsu = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & Jyoryoritsu & "'"			          '従量率
	End If
	If Jyokaritsu = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & Jyokaritsu & "'"			            '従価率
	End If
	If HokanKin = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & HokanKin & "'"			              '保管料金
	End If
	If SyokenNum = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SyokenNum & "'"			            '倉荷証券番号
	End If
	If SyokenTesuryo = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SyokenTesuryo & "'"			        '倉荷証券発行手数料
	End If
	
	'明細部
	jj = 0
	For ii = 1 To 5
		If SyohinCD(ii) = "" Then
			Query = Query & ",null,null,null,null,null"
		Else
			jj = jj + 1
			Query = Query & "," & jj						                 '寄託受付番号SEQ
			Query = Query & ",'"& SyohinCD(ii) & "'"		         '商品CD
			Query = Query & ","& Suryo(ii)					             '数量
			If Tanka(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & Tanka(ii) & ""		           '単価
			End If
			If UnsoTanka(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & UnsoTanka(ii) & ""		       '運送単価
			End If
		End If
	Next

	Set Content = OpenQuery(Query)

	'寄託受付番号取得
	While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			KitakuNo = Content.Fields(0)
		End If
		Set Content = Content.NextRecordset
	Wend

	If AddFlg = 1 Then
		Query = "exec SPD寄託確認文書挿入倉庫"	'寄託確認文書挿入
		Query = Query & " '" & GB_SystemCD & "'"
		Query = Query & ",'" & EnshuCD & "'"			'演習CD
		Query = Query & ",'" & KaisyaCD & "'"			'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"	'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"		'元文書種類CD(SU)
		Query = Query & ",'KK'"							'挿入文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"		'文書内容CD
'		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"	'発信先文書内容CDはSPD入出庫発信4で採番した発信先文書内容CD
		Query = Query & ",'" & Syoribi & "'"			'処理日
		Query = Query & ",'" & SakuseiKaisyaCD & "'"	'学生番号に作成会社CDを代入しておく
		Set Content = OpenQuery(Query)
	End If

	Response.Redirect("fu_kitaku_syukko_view.asp?Action=7&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD )

End Sub
%>