
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：仕入売上書類登録
'	 作成日：2002/9/10
'	 作成者：山崎　貴史
'	 目的	：・仕入伝票データを登録する。
'
'	 概要　：
'			１．データの引継ぎ
'			２．ストアドプロシージャーの引数の作成
'			３．ストアドプロシージャー実行
'################################################
'-->
'
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Content
	Dim w_no, Query, w_tc, w_biko, w_aite, ii, jj, KK, q_siwake, r_siwake


	'マスタの標準消費税率を取得
	Dim StdTaxRate
	Dim StdTaxRateUnso
	StdTaxRate = GB_Shohizei
	StdTaxRateUnso = GB_Shohizei
	If GB_ShohizeiMode = 1 Then
		Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND (標準 = '1' OR 運送費標準 = '1') "
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("標準") = "1" Then
				StdTaxRate = Content.Fields("消費税率")
			End If
			If "" & Content.Fields("運送費標準") = "1" Then
				StdTaxRateUnso = Content.Fields("消費税率")
			End If
			Content.MoveNext
		Loop
	End If

	Dim TmpCnt


	Dim SenpoKitakuGaisyaCD
	Dim TmpBunsyoSyuruiCD
	Dim TmpSenpoBunsyoSyuruiCD
	
	'寄託
	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 BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, SakuseiKaisyaCD
	Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, Tekiyo2, ShiharaiHoho, HasshinFlg
	Dim Kakeritsu
	Dim BinType
	Dim SyohinCD(5)														'商品コード
	Dim Suryo(5)															'数量
	Dim Tanka(5)															'単価
	Dim TaxRate(5)	'マスタの標準消費税率

	Dim Kakaku(5)								'標準価格
	Dim SyohinName(5)							'商品名称
	Dim Kingaku(5)													 	'金額

	Dim UnsoTanka(5)							'運送単価
	Dim UnsohiSyohin(5)							'商品運送費
	Dim UnsohiGokei
	Dim OldSyoruiFlg
	UnsohiGokei = 0
	OldSyoruiFlg = 0

	Dim mm, nn

	If Unsohi = "" Then
		Unsohi = "0"
	End If

	Dim DefSenpoBunsyoSyuruiCD

	Dim KakeritsuAry(5)
	Dim SenchakuTo(5)
	Dim SenchakuCnt
	SenchakuCnt = 0
	Dim Cnt
	For Cnt = 1 To UBound(KakeritsuAry)
		KakeritsuAry(Cnt) = Request("Kakeritsu" & Cnt)
		SenchakuTo(Cnt) = Request("SenchakuTo" & Cnt)
		If Cnt > 1 And KakeritsuAry(Cnt) = "" Then
			KakeritsuAry(Cnt) = KakeritsuAry(Cnt - 1)
		End If
		If SenchakuTo(Cnt) = "" Then
			SenchakuTo(Cnt) = 0
		Else
			SenchakuTo(Cnt) = CInt(SenchakuTo(Cnt))
		End If
	Next
'Response.Write(KakeritsuAry(5))
'Exit Sub


	Kakeritsu = Request("Kakeritsu")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	DefSenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	Dim NextPageParam
	NextPageParam = Request("NextPageParam")


	'商社側先方書類には運送会社が指定されていないのでフォームから取得（100915小野）
	Dim TmpUnsoGaisyaCD
	TmpUnsoGaisyaCD = Request("UnsoGaisyaCD")


	Dim UnsohiSeikyuJido
	Dim AiteShukkoHitsuyo
	Dim Kitakuriyou
	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("入庫時相手出庫必要")
		Kitakuriyou = "" & Content.Fields("寄託倉庫利用")
	End If
	'寄託利用状態を整数化（070207小野）
	If Kitakuriyou = "1" Then
		Kitakuriyou = 1
	Else
		Kitakuriyou = 0
	End If


	Dim tmp1, tmp2
	tmp1 = Split(NextPageParam, ";") '文書羅列を分解
	For mm = 0 To UBound(tmp1)

		SenchakuCnt = SenchakuCnt + 1
		If SenchakuTo(1) = 0 Or SenchakuCnt <= SenchakuTo(1) Then
			Kakeritsu = CInt(KakeritsuAry(1))
		ElseIf SenchakuTo(2) = 0 Or SenchakuCnt <= SenchakuTo(2) Then
			Kakeritsu = CInt(KakeritsuAry(2))
		ElseIf SenchakuTo(3) = 0 Or SenchakuCnt <= SenchakuTo(3) Then
			Kakeritsu = CInt(KakeritsuAry(3))
		ElseIf SenchakuTo(4) = 0 Or SenchakuCnt <= SenchakuTo(4) Then
			Kakeritsu = CInt(KakeritsuAry(4))
		Else 'SenchakuTo(5)は必ずNULL
			Kakeritsu = CInt(KakeritsuAry(5))
		End If
'Response.Write(Kakeritsu)
'Exit Sub

		tmp2 = Split(tmp1(mm), ",")
		If UBound(tmp2) >= 2 Then
			SakuseiKaisyaCD = tmp2(0)
			SenpoBunsyoSyuruiCD = tmp2(1)
			SenpoBunsyoNaiyoCD = tmp2(2)
		End If

		Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "','" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
DebugQuery(Query)
		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			SenpoSyoribi = Content.Fields("処理日")
			Syoribi = SenpoSyoribi
			NonyuKijitsu = Content.Fields("納入期日")
			NonyuBasyoKubun = Content.Fields("納入場所区分")
			UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
			UnsoGaisyaCD = "" & Content.Fields("運送会社CD")
			'先方書類で運送会社が指定されていない場合はフォームから取得（通常はこちら）
			If UnsoGaisyaCD = "" Then
				UnsoGaisyaCD = TmpUnsoGaisyaCD
			End If
			Unsohi = Content.Fields("運送費")
			UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ")
			Tekiyo = Content.Fields("摘要")
			Tekiyo2 = Content.Fields("摘要2")
			ShiharaiHoho = Content.Fields("支払方法")
			HasshinFlg = Content.Fields("発行フラグ")

			BunsyoNaiyoCD = Content.Fields("文書内容CD")

			For ii = 1 To 5
				SyohinCD(ii) = ""
				Suryo(ii) = ""
				TaxRate(ii) = StdTaxRate
			Next

'			SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
'			SakuseiKaisyaCD = Content.Fields("取引先CD")
'			GakuseiShimei = Content.Fields("氏名")
'			SakujyoFlg = Content.Fields("削除フラグ")
'			NonyuBasyoMeisyo = Content.Fields("納入場所名称")
'			UntinSyogakariMeisyo = Content.Fields("運賃諸掛名称")

			Dim DefUnsohi
			DefUnsohi = 0

			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ
				DenpyoSEQ = Content.Fields("文書内容SEQ")
				SyohinCD(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("標準消費税率")
				If "" & TaxRate(DenpyoSEQ) = "" Or GB_ShohizeiMode <> 1 Then
					TaxRate(DenpyoSEQ) = StdTaxRate
				End If
				UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
				If "" & UnsoTanka(DenpyoSEQ) = "" Then
					UnsoTanka(DenpyoSEQ) = "null"
				End If
'				GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
'				SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
'				ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku

				'商品マスタからデフォルト送料を算出しておく
				DefUnsohi = DefUnsohi + (ConvSyohinSoryoTanka(Content.Fields("商品CD")) * Content.Fields("数量"))

				Content.MoveNext
			Loop
		End If

'Response.Write(Unsohi)
'Exit Sub




		If IsNull(UnsohiSeikyuFlg) Or UnsohiSeikyuFlg = "" Then
			UnsohiSeikyuFlg = "null"
		End If

		If IsNull(Unsohi) Or Unsohi = "" Then
			Unsohi = "null"
		End If

		'一括処理では送料を挿入出来ないのでマスタ送料を代入（100915小野）
		If Unsohi = "null" Or Unsohi = 0 Then
			Unsohi = DefUnsohi
		End If

		Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "','" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
DebugQuery(Query)
		Set Content = OpenQuery(Query)


		'実行プロシージャーの特定　
		Query = "exec SPD仕入売上書類挿入 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "'"						'演習CD
		Query = Query & ",'" & KaisyaCD & "'"					'会社CD
		Query = Query & ",'" & KaisyaCD & "'"					'会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"					'文書種類CD
		Query = Query & ",''"
		Query = Query & ",'S'"
		Query = Query & ",'" & SenpoSyoribi & "'"						'処理日
		Query = Query & ",'" & SakuseiKaisyaCD & "'"					'取引先CD
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"				'先方文書内容CD
		Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"				'先方文書種類CD
		If SenpoSyoribi = "" Then
			Query = Query & ", null"
		Else
			Query = Query & ",'" & SenpoSyoribi & "'"				'先方処理日
		End If
		Query = Query & ",'" & NonyuKijitsu & "'"					'納入期日
		Query = Query & ",'" & NonyuBasyoKubun & "'"				'納入場所区分
		Query = Query & ",'" & UntinSyogakariKubun & "'"			'運賃諸掛区分
		Query = Query & ",'" & UnsoGaisyaCD & "'"					'運送会社CD
		Query = Query & "," & Unsohi & ""							'運送費
		Query = Query & "," & UnsohiSeikyuFlg & ""					'運送費請求フラグ
		Query = Query & ",'" & Tekiyo & "'"							'摘要
		Query = Query & ",'" & Tekiyo2 & "'"						'摘要2
		Query = Query & ",'" & ShiharaiHoho & "'"					'支払方法
		Query = Query & ",0"						'発行フラグ
		Query = Query & ",0"						'返信フラグ
		Query = Query & ",0"						'削除フラグ
		Query = Query & ",'" & GakuseiNo & "'"					'学生番号


		'**　画面明細部　
		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 & "," & ConvSyohinHanbaiTanka(SyohinCD(ii)) * Int(Kakeritsu) / 100
				Query = Query & ","& TaxRate(ii)	'消費税率（マスタの標準消費税率）
				Query = Query & "," & UnsoTanka(ii)				'運送単価
			End If
		Next

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


		Query = "exec SPD仕入売上書類発信"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"						'演習CD
		Query = Query & ",'" & KaisyaCD & "'"					'会社CD
		Query = Query & ",'" & KaisyaCD & "'"					'会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"		'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Query = Query & ",'" & Syoribi & "'"						'処理日
		Query = Query & ",'" & GakuseiNo & "'"					'学生番号
DebugQuery(Query)
		Set Content = OpenQuery(Query)



		Query = "exec SPD仕入売上書類返信済みフラグ適用"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"						'演習CD
		Query = Query & ",'" & KaisyaCD & "'"					'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"					'会社CD
		Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"		'文書種類CD
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"
DebugQuery(Query)
		Set Content = OpenQuery(Query)


		'運送費請求書自動処理（100915小野）
		If BunsyoSyuruiCD = "KV" And UnsoGaisyaCD <> "" And UnsohiSeikyuJido = "0" Then

			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				 If "" & 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変換
			TmpBunsyoSyuruiCD = BunsyoSyuruiCD
			TmpSenpoBunsyoSyuruiCD = SenpoBunsyoSyuruiCD
			BunsyoSyuruiCD = "SU"
			SenpoBunsyoSyuruiCD = "SS"
	
			'TGA入出庫TRNへデータを登録##############################
			'キー：システムCD,演習CD,会社CD,作成会社CD,文書種類CD
			Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				SenpoKitakuGaisyaCD = Content.Fields("寄託会社CD")
			End If

			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 & ",'" & SakuseiKaisyaCD & "'"			         '取引先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
			Query = Query & ", null"		         '寄託会社CD
			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 & "," & ConvSyohinHanbaiTanka(SyohinCD(ii)) * Int(Kakeritsu) / 100 & ""		           '単価
'					End If
					If "" & UnsoTanka(ii) = "" Then
						Query = Query & ", null"
					Else
						Query = Query & "," & UnsoTanka(ii)				'運送単価
					End If
				End If
			Next
'DebugQuery(Query)
			Set Content = OpenQuery(Query)

			'文書内容CD取得
			Do While Not Content Is Nothing
				If Content.Fields.Count > 0 Then
					BunsyoNaiyoCD = Content.Fields(0)
					Exit Do
				End If
				Set Content = Content.NextRecordset
			Loop


			If Kitakuriyou > 0 Or AiteShukkoHitsuyo = "1" Then
				'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 & "'"
					Query = Query & ",'" & Syoribi & "'"				'処理日
					If GakuseiNo = "" Then
						Query = Query & ", null"
					Else
						Query = Query & ",'" & GakuseiNo & "'"			          '学生番号
					End If
DebugQuery(Query)
					Set Content = OpenQuery(Query)
				End If
			End If

			'SPD入出庫発信で採番した発信先文書内容CDを取得
			Do While Not Content Is Nothing
				If Content.Fields.Count > 0 Then
					SenpoBunsyoNaiyoCD = Content.Fields(0)
					Exit Do
				End If
				Set Content = Content.NextRecordset
			Loop



			'寄託在庫挿入処理
			If Kitakuriyou > 0 Then

				'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 & ", '" & SakuseiKaisyaCD & "'"			         '寄託依頼会社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 & "," & ConvSyohinHanbaiTanka(SyohinCD(ii)) * Int(Kakeritsu) / 100 & ""		           '単価
						End If
						If "" & UnsoTanka(ii) = "" Then
							Query = Query & ", null"
						Else
							Query = Query & "," & UnsoTanka(ii)				'運送単価
						End If
					End If
				Next
DebugQuery(Query)
				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 & ",'" & Syoribi & "'"		'処理日
				Query = Query & ",'" & KaisyaCD & "'"	'学生番号に作成会社CDを代入しておく
				Set Content = OpenQuery(Query)

			End If

			'文書種類CDを元に戻す
			BunsyoSyuruiCD = TmpBunsyoSyuruiCD
			SenpoBunsyoSyuruiCD = TmpSenpoBunsyoSyuruiCD

		End If

	Next

'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fd_syorui_ikkatsu.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & DefSenpoBunsyoSyuruiCD & "&ErrMsg=完了しました")

End Sub
%>