
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：運送書類登録
'	 作成日：2003/1/17
'	 作成者：山崎　貴史
'	修正日：2003/1/17
'	修正者：重松
'	 目的	：・運送伝票データを登録する。
'
'	 概要　：
'			１．データの引継ぎ
'			２．ストアドプロシージャーの引数の作成
'			３．ストアドプロシージャー実行
'################################################
'-->
'
'
%>

<%
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 BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, TorihikisakiCD,UnsoCD
	Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim Kakeritsu, RouteType
	Dim BinType
	Dim SyohinCD(5)															'商品コード
	Dim Suryo(5)															'数量
	Dim Tanka(5)															'単価

	Dim Kakaku(5)								'標準価格
	Dim SyohinName(5)							'商品名称
	Dim Kingaku(5)													 	'金額
	Dim SakuseiKaisyaCD

'###############################################	 １．データの引継ぎ

	'ヘッダ部
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")							'文書内容CD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")						'文書種類CD
	Syoribi = Request("Syoribi")									'処理日
	TorihikisakiCD = Request("TorihikisakiCD")						'取引先CD
	UnsoCD = Request("UnsoCD")						'運送先CD
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")					'先方文書内容CD
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")	'先方仕入売上区分
	SenpoSyoribi = Request("SenpoSyoribi")							'先方処理日
	NonyuKijitsu = Request("NonyuKijitsu")							'納入期日
	NonyuBasyoKubun = Request("NonyuBasyoKubun")					'納入場所区分
	UntinSyogakariKubun = Request("UntinSyogakariKubun")			'運賃諸掛区分
	UnsoGaisyaCD = Request("UnsoGaisyaCD")							'運送会社CD
	Unsohi = ConvMoneyToInt(Request("Unsohi"))						'運送費
'	Unsohi = ConvMoneyToInt(Request("ZeikomiKingaku"))						'運送費
	UnsohiSeikyuFlg = Request("UnsohiSeikyuFlg")					'運送費請求フラグ
	Tekiyo = Request("Tekiyo")										'摘要
	ShiharaiHoho = Request("ShiharaiHoho")							'支払方法
	HasshinFlg = Request("HasshinFlg")									'発行フラグ
	Kakeritsu = Request("Kakeritsu")								'掛率
	BinType = Request("BinType")
	RouteType = Request("RouteType")
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")


	'明細部：TK仕入伝票明細Ｆ
	For ii = 1 To 5
		SyohinCD(ii) = Request("SyohinCD" & ii)				'商品CD
		Suryo(ii) = ConvMoneyToInt(Request("Suryo" & ii))		'数量
		Tanka(ii) = ConvMoneyToInt(Request("Tanka" & ii))		'単価
 		If JukaFlg = 1 Then
	 		Tanka(ii) = ConvMoneyToInt(Request("Kingaku" & ii))		'重量指定では単価フィールドを金額として利用
'Response.Write(Tanka(ii))
'Exit Sub
	 	End If
	Next



	If Unsohi = "" Then
		Unsohi = "0"
	End If

'''''''''''削除	SC運送発信前書類削除
	If BinType = "Del" Then
		Query = "exec SPC運送書類削除"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"					'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & KaisyaCD & "'"				'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"
		Query = Query & ",'" & BunsyoNaiyoCD & "'"
		Set Content = OpenQuery(Query)

		Response.Redirect("fu_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD)
	End If

	If BinType = "BunsyoDel" Then

		Query = "exec SPC運送受信書類削除 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD	&"', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"

		Set Content = OpenQuery(Query)
'		Response.Redirect("fu_syorui_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&RouteType=" & RouteType & "&TorihikisakiCD=" & TorihikisakiCD & "&SenpoFlg=1")

		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")
		End If

	End If

'''''''''''一括更新
'	If Kakeritsu <> "" Then
	If 1 = 0 Then
		Query = "exec SPC運送書類更新 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & BunsyoSyuruiCD & "','" & Kakeritsu & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fu_syorui_ikkatsu.asp?BunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD )
	End If

''''''''''''発信
	If Request("hasshin") = 1 Then
		Query = "exec SPC運送書類発信"
		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 & "'"					'学生番号
		Set Content = OpenQuery(Query)

		If BunsyoSyuruiCD = "KV" Then
			Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)

			If Not(Content.BOF Or Content.EOF) Then

				BunsyoNaiyoCD = Content.Fields("文書内容CD")
				TorihikisakiCD = Content.Fields("取引先CD")
				UnsoCD = Content.Fields("運送先CD")
				HasshinFlg = Content.Fields("発行フラグ")


				Syoribi = Content.Fields("処理日")
				SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
				SenpoSyoribi = Content.Fields("先方処理日")


				NonyuBasyoKubun = Content.Fields("納入場所区分")
				NonyuKijitsu = Content.Fields("納入期日")
				UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
				UnsoGaisyaCD = Content.Fields("運送会社CD")
				Unsohi = Content.Fields("運送費")
				UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ")
				Tekiyo = Content.Fields("摘要")
				ShiharaiHoho = Content.Fields("支払方法")

'				SakujyoFlg = Content.Fields("削除フラグ")


				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("数量")
'					GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
'					SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
'					ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku
					Content.MoveNext
				Loop
			End If





			Dim NyusyukoKubun
			NyusyukoKubun = "U"

			Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "',"
			Query = Query & " '" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KaisyaCD & "'"			'会社CD
			Query = Query & ",'" & NyusyukoKubun & "'"			'文書種類CD
			Query = Query & ",''"
			Query = Query & ",'" & Syoribi & "'"				'処理日
			Query = Query & ",'" & TorihikisakiCD & "'"			'取引先CD
			Query = Query & ", null"
			Query = Query & ",''"
			Query = Query & ", null"
			Query = Query & ",'" & UntinSyogakariKubun & "'"	'運賃諸掛区分

			If Unsohi = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & Unsohi & ""		'運送費
			End If

			If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then
				Query = Query & ",''"
			Else
				Query = Query & ",'" & GakuseiNo & "'"
			End If

			Query = Query & ", ''"				'先方仕入売上種類CD
			Query = Query & ", ''"				'先方仕入売上内容CD

			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)					'受注数量
					Query = Query & ","& Tanka(ii)					'受注単価
					Query = Query & ", null"
					End If
			Next
			Set Content = OpenQuery(Query)

		End If

		Response.Redirect("fu_syorui_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)

	End If



'###############################################	 ２．ストアドプロシージャーの引数の作成

	If UnsohiSeikyuFlg = "" Then
		UnsohiSeikyuFlg = "null"
	End If

	If Unsohi = "" Then
		Unsohi = "null"
	End If

	'実行プロシージャーの特定　
	If BunsyoNaiyoCD = "" Then					'追加モード
		Query = "exec SPC運送書類挿入 '" & GB_SystemCD & "',"
	Else
		Query = "exec SPC運送書類更新 '" & 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 & ",'" & Syoribi & "'"						'処理日
	Query = Query & ",'" & TorihikisakiCD & "'"					'取引先CD
	Query = Query & ",'" & UnsoCD & "'"					'運送先CD
	Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"				'先方文書種類CD
	If SenpoBunsyoNaiyoCD = "" Then
		Query = Query & ", null"
	Else
		Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"				'先方文書内容CD
	End If
	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 & ",'" & ShiharaiHoho & "'"					'支払方法
	Query = Query & ",'" & HasshinFlg & "'"						'発行フラグ
	If GB_EnshuKubun = "P" AND GB_JisyaFlag = "0" Then
		Query = Query & ",''"
	Else
		Query = Query & ",'" & GakuseiNo & "'"
	End If


	'**　画面明細部　
	jj = 0
	For ii = 1 To 5
			 If SyohinCD(ii) = "" Then
				 	Query = Query & ",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
			 End If
	Next


'###############################################	 ？．ストアドプロシージャ-実行


		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



'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fu_syorui_view.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)

End Sub
%>