
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：仕入売上書類登録(寄託処理用)
'	 作成日：2006/12/11
'	 作成者：ジャワネット
'	 目的	：・仕入伝票データを登録する。
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content
	Dim w_no
	Dim w_tc
	Dim w_biko
	Dim w_aite
	Dim ii
	Dim jj
	Dim KK
	Dim q_siwake
	Dim r_siwake

	Dim SakuseiKaisyaCD                            '作成会社CD
	Dim TorihikisakiCD                             '取引先CD
	Dim UnsoGaisyaCD                               '運送会社CD
	Dim KitakuGaisyaCD                             '寄託会社CD
	Dim SenpoKitakuGaisyaCD                        '先方寄託会社CD
	Dim BunsyoSyuruiCD                             '文書種類CD
	Dim BunsyoNaiyoCD                              '文書内容CD
	Dim SenpoBunsyoSyuruiCD                        '先方文書種類CD
	Dim SenpoBunsyoNaiyoCD                         '先方文書内容CD
	Dim OldBunsyoNaiyoCD                           
	Dim Syoribi                                    '処理日
	Dim SenpoSyoribi                               '先方処理日
	Dim NonyuBasyoKubun                            '納入場所区分
	Dim NonyuKijitsu                               '納入期日
	Dim UntinSyogakariKubun                        '運賃諸掛区分
	Dim Unsohi                                     '運送費
	Dim UnsohiSeikyuFlg                            '運送費請求フラグ
	Dim Tekiyo                                     '摘要
	Dim ShiharaiHoho                               '支払方法
	Dim HasshinFlg                                 '発信フラグ
	Dim Kakeritsu                                  '掛率
	Dim RouteType                                  
	Dim BinType                                    
	Dim SyohinCD(5)														     '商品コード
	Dim Suryo(5)															     '数量
	Dim Tanka(5)															     '単価
	Dim TaxRate(5)	'消費税率
	Dim Kakaku(5)								                   '標準価格
	Dim SyohinName(5)							                 '商品名称
	Dim Kingaku(5)														     '金額
	Dim SojyushinKubun                             '送受信区分
	
	Dim AddFlg
	Dim UnsoTanka(5)                               '運送単価

	'寄託
	Dim KitakuNo                '寄託受付番号
	Dim KitakuFrom							'寄託期間始
	Dim KitakuTo								'寄託期間終
	Dim NyukoNengappi						'入庫年月日
	Dim Basyo									  '倉庫場所
	Dim SokoBetsu								'倉庫種別

	Dim KasaiHokenKin						'火災保険料金
	Dim KasaiHokenRitsu					'火災保険料率
	Dim NiyakuKin								'荷役料金
	Dim Niyakuritsu							'荷役率
	Dim Jyoryoritsu							'従量率
	Dim Jyokaritsu							'従価率
	Dim HokanKin                '保管料金
	Dim SyokenNum								'倉荷証券番号
	Dim SyokenTesuryo						'倉荷証券発行手数料
	
	Dim TmpBunsyoSyuruiCD
	Dim TmpBunsyoNaiyoCD
	Dim TmpSenpoBunsyoSyuruiCD

	Dim Tekiyo2


	Dim UnsohiSeikyuJido
	Dim AiteShukkoHitsuyo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		UnsohiSeikyuJido = Content.Fields("運送費請求書旧バージョン利用")	'0で自動処理を利用
		AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
	End If


	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")	           '作成会社CD
	TorihikisakiCD = Request("TorihikisakiCD")						   '取引先CD
	UnsoGaisyaCD = Request("UnsoGaisyaCD")							     '運送会社CD
	KitakuGaisyaCD = Request("KitakuGaisyaCD")							 '寄託会社CD
	SenpoKitakuGaisyaCD = Request("SenpoKitakuGaisyaCD")	   '先方寄託会社CD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")	             '文書種類CD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")							   '文書内容CD
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")	   '先方文書種類CD
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")			 '先方文書内容CD
	OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD")					 
	Syoribi = Request("Syoribi")									           '処理日
	SenpoSyoribi = Request("SenpoSyoribi")							     '先方処理日
	NonyuKijitsu = Request("NonyuKijitsu")							     '納入期日
	NonyuBasyoKubun = Request("NonyuBasyoKubun")					   '納入場所区分
	UntinSyogakariKubun = Request("UntinSyogakariKubun")		 '運賃諸掛区分
	Unsohi = ConvMoneyToInt(Request("Unsohi"))						   '運送費
	UnsohiSeikyuFlg = Request("UnsohiSeikyuFlg")					   '運送費請求フラグ
	Tekiyo = Request("Tekiyo")										           '摘要
	Tekiyo2 = Request("Tekiyo2")										           '摘要
	ShiharaiHoho = Request("ShiharaiHoho")							     '支払方法
	HasshinFlg = Request("HasshinFlg")									     '発行フラグ
	Kakeritsu = Request("Kakeritsu")								         '掛率
	BinType = Request("BinType")                             
	RouteType = Request("RouteType")                         
	SojyushinKubun = Request("SojyushinKubun")               '送受信区分

	TmpBunsyoSyuruiCD = BunsyoSyuruiCD
	TmpBunsyoNaiyoCD = BunsyoNaiyoCD
	TmpSenpoBunsyoSyuruiCD = SenpoBunsyoSyuruiCD
	
	'明細部
	For ii = 1 To 5
		SyohinCD(ii) = Request("SyohinCD" & ii)						'商品CD
		Suryo(ii) = ConvMoneyToInt(Request("Suryo" & ii))			'数量
		Tanka(ii) = ConvMoneyToInt(Request("Tanka" & ii))			'単価
		TaxRate(ii) = ConvMoneyToInt(Request("TaxRate" & ii))	'消費税率
		UnsoTanka(ii) = ConvMoneyToInt(Request("UnsoTanka" & ii))	'運送単価
	Next



	If BinType = "Hasshin" Then	'発信の場合は自動出庫内容・運送費請求会社などの情報を取得する
	'If BinType = "Hasshin" And BunsyoSyuruiCD = "KV" Then	'管理部納品請求書発信の場合は出庫する内容を取得する
	
		Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
			SenpoBunsyoSyuruiCD = Content.Fields("先方文書種類CD")
			SenpoSyoribi = Content.Fields("先方処理日")
			TorihikisakiCD = Content.Fields("取引先CD")
			HasshinFlg = Content.Fields("発行フラグ")
			Syoribi = Content.Fields("処理日")
			NonyuBasyoKubun = Content.Fields("納入場所区分")
			NonyuKijitsu = Content.Fields("納入期日")
			UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
			UnsoGaisyaCD = Content.Fields("運送会社CD")
			Unsohi = Content.Fields("運送費")
			UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ")
			Tekiyo = Content.Fields("摘要")
			Tekiyo2 = Content.Fields("摘要2")
			ShiharaiHoho = Content.Fields("支払方法")
			
			KitakuGaisyaCD = Content.Fields("寄託会社CD")
			SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD")

			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ,PreDenpyoSEQ
				DenpyoSEQ = Content.Fields("文書内容SEQ")
				SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
				
'				ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
				
				SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				Suryo(DenpyoSEQ) = Content.Fields("数量")
				Tanka(DenpyoSEQ) = Content.Fields("単価")
				Kingaku(DenpyoSEQ) = Content.Fields("単価")	* Content.Fields("数量")
				TaxRate(DenpyoSEQ) = Content.Fields("消費税率")
				UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
				Content.MoveNext
				PreDenpyoSEQ=DenpyoSEQ
			Loop

		End If

	End If

'Response.Write("運送単価：[" & UnsoTanka(1) & "]")
'Exit Sub

	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If

	If Unsohi = "" Then
		Unsohi = "0"
	End If

	If BinType = "Kaifu" Then
		Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "','" & SakuseiKaisyaCD &"', 'KU', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "','" & SakuseiKaisyaCD &"', 'KU', '" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fd_kitaku_syorui_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
	End If

'''''''''''削除
	If Request("BinType") = "Sakujyo" Then
		Query = "exec SPD仕入売上書類削除"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & KaisyaCD & "'"				'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)

		If InStr(RouteType, "RMail") > 0 Then
			Response.Redirect("/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Recv")
		ElseIf InStr(RouteType, "SMail") > 0 Then
			Response.Redirect("/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Send")
		Else
			Response.Redirect("fd_kitaku_syorui_view.asp?RouteType=" & RouteType & "&SojyushinKubun=" & SojyushinKubun & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
		End If
		Exit Sub
	End if



'ダイレクト出庫処理##############################################
If BunsyoSyuruiCD = "KP" Then '商社の管理部宛納品請求書の場合限定

	'文書種類CD変換
	If BunsyoSyuruiCD = "KP" Then 
		BunsyoSyuruiCD = "SU"
		SenpoBunsyoSyuruiCD = "SS"
	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 & "',"

		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 & "'"             '文書内容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)

		'文書内容CD取得
		While Not Content Is Nothing
			If Content.Fields.Count > 0 Then
				BunsyoNaiyoCD = Content.Fields(0)
			End If
			Set Content = Content.NextRecordset
		Wend
	
	End If
	

	'TGA入出庫TRNへ出庫先の会社用のデータを作成##############################
	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 & "'"				           '処理日
		If GakuseiNo = "" Then
			Query = Query & ", null"
		Else
			Query = Query & ",'" & GakuseiNo & "'"			          '学生番号
		End If
DebugQuery(Query)
		Set Content = OpenQuery(Query)
	End If
	
	BunsyoSyuruiCD = TmpBunsyoSyuruiCD
	SenpoBunsyoSyuruiCD = TmpSenpoBunsyoSyuruiCD
	
End If


'発信#################################################################
If BinType = "Hasshin" Then

	Query = "exec SPD仕入売上書類発信4"
	Query = Query & " '" & GB_SystemCD & "'"
	Query = Query & ",'" & EnshuCD & "'"					       '演習CD
	Query = Query & ",'" & KaisyaCD & "'"					       '会社CD
	Query = Query & ",'" & SakuseiKaisyaCD & "'"				 '作成会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"		       '文書種類CD
	Query = Query & ",'" & BunsyoNaiyoCD & "'"           '文書内容CD
	Query = Query & ",'" & Syoribi & "'"						     '処理日
	Query = Query & ",'" & GakuseiNo & "'"					     '学生番号
'Response.Write("Query:" & Query)
'Exit sub
	Set Content = OpenQuery(Query)


		'運送費請求書自動処理
		If (BunsyoSyuruiCD = "KN" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KP") And UnsoGaisyaCD <> "" And UnsohiSeikyuJido = "0" Then
'Response.Write(Query)
'Exit Sub
			'発信時は書類情報クエリが無いため再取得
			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				'運送費が存在しない場合は除外
				If "" & Content.Fields("運送費") <> "0" And "" & Content.Fields("運送費") <> "" And ("" & Content.Fields("運賃諸掛区分") = "K" OR "" & Content.Fields("運賃諸掛区分") = "U") Then

					Syoribi = Content.Fields("処理日")

					Query = "exec SPC運送費請求書挿入 '" & GB_SystemCD & "', '" & EnshuCD & "'" 
					Query = Query & ",'" & UnsoGaisyaCD &  "'" 	'会社CD（運送会社）
					Query = Query & ",'" & UnsoGaisyaCD &  "'" 	'会社CD（運送会社）
					Query = Query & ",'CA'"						'文書種類CD
					Query = Query & ",''"						'文書内容CD（採番）
					Query = Query & ",'" & Syoribi & "'"		'処理日
					Query = Query & ",'" & KaisyaCD & "'"		'取引先CD（買主/売主負担に関わらず発送元が支払う）
					Query = Query & ",'" & KaisyaCD & ":" & BunsyoSyuruiCD & ":" & BunsyoNaiyoCD & "'"	'納品請求書番号（元文書の会社CD:文書種類CD:文書内容CD）
					Query = Query & ",''"						'支払方法（空白）
					Query = Query & ",''"						'摘要（空白）
					Query = Query & ",'0'"
					Query = Query & ",'0'"
					'運送費請求書自動作成では学生番号は常にNULL（作成者が自分になってしまうため。模擬実践でも運送会社担当者は複数の可能性があり特定不能）
'					If GB_EnshuKubun = "P" AND GB_JisyaFlag = "0" Then
						Query = Query & ",''"		
'					Else
'						Query = Query & ",'" & GakuseiNo & "'"
'					End If
'Response.Write(Query)
'Exit Sub
					Set Content = OpenQuery(Query)

					Dim UnsoBunsyoNaiyoCD
					If Content.Fields.Count > 0 Then
						UnsoBunsyoNaiyoCD = Content.Fields(0)	'文書内容CD取得
					End If

					Query = "exec SPC運送費請求書発信 '" & GB_SystemCD & "', '" & EnshuCD & "'"
					Query = Query & ",'" & UnsoGaisyaCD & "'"	'会社CD（運送会社）
					Query = Query & ",'" & UnsoGaisyaCD & "'"	'会社CD（運送会社）
					Query = Query & ",'CA'"						'文書種類CD
					Query = Query & ",'" & UnsoBunsyoNaiyoCD & "'"	'文書内容CD（挿入時に取得した番号）
					Query = Query & ",'" & Syoribi & "'"		'処理日
					Query = Query & ",'" & GakuseiNo & "'"		'学生番号
					Set Content = OpenQuery(Query)

				End If
			End If
		End If



	If BunsyoSyuruiCD = "KV" Then	'管理部納品請求書の場合

		'文書種類CD変換
		BunsyoSyuruiCD = "SU"
		SenpoBunsyoSyuruiCD = "SS"

		Query = "exec SPD入出庫挿入4 '" & GB_SystemCD & "',"

		Query = Query & "  '" & EnshuCD & "'"				             '演習CD
		Query = Query & ", '" & KaisyaCD & "'"			               '会社CD
		Query = Query & ", '" & KaisyaCD & "'"			               '作成会社CD
		Query = Query & ", '" & BunsyoSyuruiCD & "'"	'文書種類CD
		Query = Query & ", ''"							'文書内容CD
		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 & ",'" & KaisyaCD & "'"			             '会社CD
			Query = Query & ",'" & KaisyaCD & "'"			             '作成会社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

		'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 = OpenQuery(Query)
		End If

		'TGC寄託在庫Fへデータを登録##############################################
		'キー：システムCD,演習CD,会社CD(寄託会社CD),作成会社CD(出庫した会社),寄託依頼会社CD(寄託を依頼している会社CD)
	
		Query = "exec SPD寄託在庫挿入2 '" & GB_SystemCD & "',"

		Query = Query & "  '" & EnshuCD & "'"				'演習CD
		Query = Query & ", '" & SenpoKitakuGaisyaCD & "'"	'会社CD
		Query = Query & ", '" & KaisyaCD & "'"				'作成会社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)

		Query = "exec SPD寄託確認文書挿入管理部"	'寄託確認文書挿入
		Query = Query & " '" & GB_SystemCD & "'"
		Query = Query & ",'" & EnshuCD & "'"		'演習CD
		Query = Query & ",'" & KaisyaCD & "'"		'会社CD
		Query = Query & ",'" & KaisyaCD & "'"	'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"	'元文書種類CD
		Query = Query & ",'KK'"				'挿入文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"	'文書内容CD
'		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"	'発信先文書内容CDはSPD入出庫発信4で採番した発信先文書内容CD
		Query = Query & ",'" & Syoribi & "'"		'処理日
		Query = Query & ",'" & KaisyaCD & "'"	'学生番号に作成会社CDを代入しておく
		Set Content = OpenQuery(Query)

	End If

	BunsyoSyuruiCD = TmpBunsyoSyuruiCD
	BunsyoNaiyoCD = TmpBunsyoNaiyoCD
	SenpoBunsyoSyuruiCD = TmpSenpoBunsyoSyuruiCD

	Response.Redirect("fd_kitaku_syorui_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=HasshinZumi")

End If


'寄託依頼############################################################
'fd_kitaku_syuko.aspから文書内容CD他、レコードを特定できる情報を受け取り、
'SPD寄託出庫依頼書挿入で、文書種類CD=KS(出庫依頼書)として、TSA仕入売上書類Fに新規挿入。
'Queryは、既存レコードから該当するレコードをコピーするので、書類発信タイプで作成。

	If BinType = "KitakuSyukoIrai" Then
			
			Query = "exec SPD寄託出庫依頼書挿入"
			Query = Query & " '" & GB_SystemCD & "'"
			Query = Query & ",'" & EnshuCD & "'"					       '演習CD
			Query = Query & ",'" & KaisyaCD & "'"					       '会社CD
			Query = Query & ",'" & SakuseiKaisyaCD & "'"				 '作成会社CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"		       '文書種類CD
			Query = Query & ",'" & BunsyoNaiyoCD & "'"           '文書内容CD
			Query = Query & ",'" & Syoribi & "'"						     '処理日
			Query = Query & ",'" & SenpoSyoribi & "'"						 '先方処理日
			Query = Query & ",'" & GakuseiNo & "'"					     '学生番号
		
		'Response.Write("Query:" & Query)
		'Exit Sub
		
		Set Content = OpenQuery(Query)

		Response.Redirect("fd_kitaku_syorui_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=KS&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=Hasshin")

	End If

'#####################################################################

	If BunsyoNaiyoCD <> OldBunsyoNaiyoCD Then
		Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
DebugQuery(Query)
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Response.Write("この書類番号は存在しています。<br>")
%>
	<a href="JavaScript:history.go(-1)">戻る</a>
<%
			Exit Sub
		End If
	End If

	'出庫側文書作成
	If OldBunsyoNaiyoCD = "" Then					'追加モード
		Query = "exec SPD仕入売上書類挿入4 '" & GB_SystemCD & "',"
	Else
		Query = "exec SPD仕入売上書類更新4 '" & GB_SystemCD & "',"
	End If

	Query = Query & " '" & EnshuCD & "'"						         '演習CD
	Query = Query & ",'" & KaisyaCD & "'"					           '会社CD
	Query = Query & ",'" & KaisyaCD & "'"					           '作成会社CD
	Query = Query & ",'" & BunsyoSyuruiCD & "'"					     '文書種類CD
	Query = Query & ",'" & BunsyoNaiyoCD & "'"               '文書内容CD

	If OldBunsyoNaiyoCD = "" Then
	Else
		Query = Query & ",'" & OldBunsyoNaiyoCD & "'"
	End If
	
	Query = Query & ",'S'"					                         '送受信区分
	
	If Syoribi = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & Syoribi & "'"						         '処理日
	End If
	
	Query = Query & ",'" & TorihikisakiCD & "'"					     '取引先CD
	
	If SenpoBunsyoNaiyoCD = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"				 '先方文書内容CD
	End If

	If SenpoBunsyoSyuruiCD = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"			 '先方文書種類CD
	End If
	
	If SenpoSyoribi = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SenpoSyoribi & "'"				       '先方処理日
	End If
	If NonyuKijitsu = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & NonyuKijitsu & "'"					     '納入期日
	End If
	If NonyuBasyoKubun = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & NonyuBasyoKubun & "'"				   '納入場所区分
	End If
	If UntinSyogakariKubun = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & UntinSyogakariKubun & "'"			 '運賃諸掛区分
	End If
	If UnsoGaisyaCD = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & UnsoGaisyaCD & "'"					     '運送会社CD
	End If
	If Unsohi = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ","  & Unsohi & ""							       '運送費
	End If
	If UnsohiSeikyuFlg = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ","  & UnsohiSeikyuFlg & ""					   '運送費請求フラグ
	End If
	If Tekiyo = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & Tekiyo & "'"							       '摘要
	End If
	Query = Query & ",'" & Tekiyo2 & "'"							       '摘要
	If ShiharaiHoho = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & ShiharaiHoho & "'"					     '支払方法
	End If
	Query = Query & ",'" & HasshinFlg & "'"						       '発行フラグ
	Query = Query & ",'0'"						                       '返信フラグ
	Query = Query & ",'0'"						                       '削除フラグ
	
	If GB_EnshuKubun = "P" AND GB_JisyaFlag = "0" 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

	'名細部
	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)					             '数量
			If "" & Tanka(ii) = "" Then
				Query = Query & ",null"
			Else
				Query = Query & ","& Tanka(ii)					           '単価
			End If
			If TaxRate(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & ", " & TaxRate(ii)	'消費税率
			End If
			If "" & UnsoTanka(ii) = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & UnsoTanka(ii) & ""		       '運送単価
			End If
		End If
	Next

	Set Content = OpenQuery(Query)
	
	'文書内容CD取得
	While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			BunsyoNaiyoCD = Content.Fields(0)
		End If
		Set Content = Content.NextRecordset
	Wend

'###############################################

	Response.Redirect("fd_kitaku_syorui_view.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)

End Sub
%>