<!-- #include file="../../../include.asp" -->

<%
'<!--
'############################################################
'	 名称	:小売販売データSQL出力
'	 作成日	:2007/02/14
'	 作成者	:Masayoshi Wada
'	 目的	:小売販売データをSQLに出力する
'
'	 概要 	:買上票のフォームの内容を全て引き継ぐ
'		 1.データの引継ぎ
'		 2.ストアドプロシージャーの引数の作成
'		 3.ストアドプロシージャー実行
'###########################################################
'-->
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim ii, jj

	Dim KaiageTensu, GokeiKingaku, UnsohiSeikyugaku, SyohizeiKingaku, ZeikomiKingaku, Unsohi, UnsohiSeikyuFlg

	Dim S(6)
	Dim ShohinCD(6)
	Dim Suryo(6)
	Dim Henpin(6)
	Dim Tanka(6)
	Dim Kingaku(6)
	Dim ShohinMei(6)
	Dim ShohinRyakumei(6)
	Dim HyojyunTanka(6)
	Dim ShiireTanka(6)
	Dim TaxRate(5)	'消費税率

	Dim GakuseiShimei					'学生氏名
	Dim GakuseiBango					'学生番号
	Dim GakuseiRyakusho					'学生略称(印)

	Dim SyoruiMei
	SyoruiMei = "お買い上げ票"

	Dim Query
	Dim Content

	Dim PageType
	PageType = Request("PageType")
	Dim RouteType
	RouteType = Request("RouteType")
	Dim Action
	Action = Request("Action")
	Dim SakuseiKaisyaCD
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	Dim BunsyoSyuruiCD
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	Dim BunsyoNaiyoCD
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")

	Dim NyusyukoKubun
	NyusyukoKubun = Request("NyusyukoKubun")
	Dim UntinSyogakariKubun
	UntinSyogakariKubun = Request("UntinSyogakariKubun")
	Dim Syoribi
	Syoribi = Request("Syoribi")
	Dim Shimei
	Shimei = Request("Shimei")
	Dim Tekiyo 
	Tekiyo = Request("Tekiyo")

	S(0) = Request("S1")
	ShohinCD(0) = Request("SyohinCD1")
	Suryo(0) = ConvMoneyToInt(Request("Suryo1"))
	Tanka(0) = ConvMoneyToInt(Request("Tanka1"))
	Kingaku(0) = ConvMoneyToInt(Request("Kingaku1"))
	TaxRate(0) = ConvMoneyToInt(Request("TaxRate1"))	'消費税率
	S(1) = Request("S2")
	ShohinCD(1) = Request("SyohinCD2")
	Suryo(1) = ConvMoneyToInt(Request("Suryo2"))
	Tanka(1) = ConvMoneyToInt(Request("Tanka2"))
	Kingaku(1) = ConvMoneyToInt(Request("Kingaku2"))
	TaxRate(1) = ConvMoneyToInt(Request("TaxRate2"))	'消費税率
	S(2) = Request("S3")
	ShohinCD(2) = Request("SyohinCD3")
	Suryo(2) = ConvMoneyToInt(Request("Suryo3"))
	Tanka(2) = ConvMoneyToInt(Request("Tanka3"))
	Kingaku(2) = ConvMoneyToInt(Request("Kingaku3"))
	TaxRate(2) = ConvMoneyToInt(Request("TaxRate3"))	'消費税率
	S(3) = Request("S4")
	ShohinCD(3) = Request("SyohinCD4")
	Suryo(3) = ConvMoneyToInt(Request("Suryo4"))
	Tanka(3) = ConvMoneyToInt(Request("Tanka4"))
	Kingaku(3) = ConvMoneyToInt(Request("Kingaku4"))
	TaxRate(3) = ConvMoneyToInt(Request("TaxRate4"))	'消費税率
	S(4) = Request("S5")
	ShohinCD(4) = Request("SyohinCD5")
	Suryo(4) = ConvMoneyToInt(Request("Suryo5"))
	Tanka(4) = ConvMoneyToInt(Request("Tanka5"))
	Kingaku(4) = ConvMoneyToInt(Request("Kingaku5"))
	TaxRate(4) = ConvMoneyToInt(Request("TaxRate5"))	'消費税率

	GokeiKingaku = ConvMoneyToInt(Request("GokeiKingaku"))
	UnsohiSeikyugaku= ConvMoneyToInt(Request("UnsohiSeikyugaku"))
	SyohizeiKingaku = ConvMoneyToInt(Request("SyohizeiKingaku"))
	ZeikomiKingaku = ConvMoneyToInt(Request("ZeikomiKingaku"))
	Unsohi = ConvMoneyToInt(Request("Unsohi"))
	UnsohiSeikyuFlg = Request("UnsohiSeikyuFlg")

' 今日の日付取得
	Dim today
	today = Year(Now) 
	today = today  & "/" & Month(Now)
	today = today & "/" & Day(Now)

' 商品名・標準単価・仕入単価の取得
	Dim k, n
	n = 0
	KaiageTensu = 0
	For k = 1 To 5
		If ShohinCD(n) <> "" Then
			Query = "exec SPM商品取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShohinCD(n) & "'"
			Set Content = OpenQuery(Query)

			While Not Content Is Nothing
				If Content.Fields.Count > 0 Then
					ShohinMei(n) = Content.Fields("商品名称")
					ShohinRyakumei(n) = Content.Fields("商品略名称")
					HyojyunTanka(n) = ConvMoneyToInt(Content.Fields("標準販売単価"))
					ShiireTanka(n) = ConvMoneyToInt(Content.Fields("標準仕入単価"))
				End If
				Set Content = Content.NextRecordset
				KaiageTensu = KaiageTensu + Suryo(n)
			Wend
		Else
			Exit For
		End IF
		n = n + 1
	Next

' 学生番号・学生氏名・略称の取得

        Query = "exec SPMユーザー取得 '" & GB_SystemCD & "','" & GB_GakuseiNo & "'"
        
        Set Content = OpenQuery(Query)
        
	While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			GakuseiBango = Content.Fields("学生番号")
			GakuseiShimei = Content.Fields("氏名")
			GakuseiRyakusho = Content.Fields("氏名略名称")
		End If
		Set Content = Content.NextRecordset
	Wend

	'寄託利用フラグ取得
	Dim Kitakuriyo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyo = Content.Fields("寄託倉庫利用") 
	End If

%>
	<a href="JavaScript:history.go(-1)">戻る</a>
<%


'For Debug
'Response.Write("<br>")
'Response.Write("GB_SystemCD:" & GB_SystemCD & "<br>")
'Response.Write("EnshuCD:" & EnshuCD & "<br>")
'Response.Write("KaisyaCD:" & KaisyaCD & "<br>")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "<br>")
'Response.Write("Action:" & Action & "<br>")
'Response.Write("RouteType:" & RouteType & "<br>")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "<br>")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "<br>")

'##### 生徒からの(廃棄又は返品)注.現行はテーブルから削除する #####
	If Action = "Delete" AND RouteType <> "admin" Then

		' 小売販売テーブルメイン部(TTL)削除
		Query = "exec SPK小売販売TTL削除 '" & GB_SystemCD & "',"	'システムCD
		Query = Query & " '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"			'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"			'会社CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"			'文書内容CD

		Set Content = OpenQuery(Query)

		' 引き続き販売テーブルの明細部(TRN)削除
		Query = "exec SPK小売販売TRN削除 '" & GB_SystemCD & "',"	'システムCD
		Query = Query & " '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"			'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"			'会社CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"			'文書内容CD

		Set Content = OpenQuery(Query)
		
'CALL DebugResponse("Query", Query)

		Response.Redirect("kh_kouri_ichiran.asp?Action=ichiran&EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&PageType=" & PageType & "&RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "")
	End If

'##### 先生からの(廃棄又は返品))注.現行はテーブルから削除する  #####
	If Action = "Delete" AND RouteType = "admin" Then

		' 小売販売テーブルメイン部(TTL)削除
		Query = "exec SPK小売販売TTL削除 '" & GB_SystemCD & "',"	'システムCD
		Query = Query & " '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"			'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"			'会社CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"			'文書内容CD

		Set Content = OpenQuery(Query)

		' 引き続き販売テーブルの明細部(TRN)削除
		Query = "exec SPK小売販売TRN削除 '" & GB_SystemCD & "',"	'システムCD
		Query = Query & " '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"			'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"			'会社CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"			'文書内容CD

		Set Content = OpenQuery(Query)
		
'CALL DebugResponse("Query", Query)

		Response.Redirect("kh_kouri_ichiran.asp?Action=ichiran&EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&SakuseiKaisyaCD=" & KaisyaCD & "&PageType=" & PageType & "&RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "")
	End If

'###########################################################
'#	出荷時の対応 
'#	更新された小売ファイルを読み込み展開してから
'#	入出庫TRN及び明細にデータを更新する
'###########################################################
	If RouteType <> "admin" and Action = "shukka" Then

		Dim TorihikisakiCD
		Dim SenpoBunsyoNaiyoCD
		SenpoBunsyoNaiyoCD = ""
		Dim SenpoBunsyoSyuruiCD
		SenpoBunsyoSyuruiCD = ""
		Dim SenpoSyoribi
		SenpoSyoribi = ""
		
		Dim BunSyuCD
		Dim BunNaiCD
		
		Dim KaiageKingaku
		Dim GokeiUriage
		Dim KaimonohyoPrintF
		Dim ShukkaF
		Dim RyoshushoF
		Dim KoshinF
		Dim SakujyoF
		Dim KitakuSokoriyo
		Dim KoshinDate
		Dim ShohiZei
		Dim Soryo

		'###  該当の小売データの読み込み
		Query = "exec SPK小売販売取得_合計 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "','" & BunsyoNaiyoCD & "'"

		Set Content = OpenQuery(Query)

		Dim kk

		Do While Not(Content.BOF Or Content.EOF)

			Shimei = Content.Fields("客氏名")					'客氏名
			Syoribi = Content.Fields("買上日")					'買上日
			Tekiyo = Content.Fields("摘要")						'摘要
			GakuseiBango = Content.Fields("学生番号")				'学生番号
			GakuseiShimei = Content.Fields("学生氏名")	 			'学生氏名(係印)
			KaiageTensu = ConvMoneyToInt(Content.Fields("買上点数"))		'買上点数
			KaiageKingaku = ConvMoneyToInt(Content.Fields("買上金額"))		'買上金額
			ShohiZei = ConvMoneyToInt(Content.Fields("消費税"))			'消費税
			Soryo = ConvMoneyToInt(Content.Fields("送料"))				'送料
			GokeiUriage = ConvMoneyToInt(Content.Fields("合計金額"))		'合計金額
			KaimonohyoPrintF = Content.Fields("買上票印刷フラグ")			'買い物票印刷フラグ
			ShukkaF = Content.Fields("出荷フラグ")					'出荷フラグ
			RyoshushoF = Content.Fields("領収書印刷フラグ")				'領収書印刷フラグ
			KoshinF = Content.Fields("入出庫更新フラグ")				'入出庫更新フラグ
			SakujyoF = Content.Fields("削除フラグ")					'削除フラグ
			KitakuSokoriyo = Content.Fields("寄託倉庫利用")				'寄託倉庫利用
			KoshinDate = Content.Fields("更新日時")					'更新日時

			Content.MoveNext

		Loop

		'###  小売販売明細部読み込み
		Query = "exec SPK小売販売取得_明細 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"

		kk = 0										'行シーケンス

		Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)

			ShohinCD(kk) = Content.Fields("商品CD")					'商品CD
			ShohinMei(kk) = Content.Fields("商品名")				'商品名
			ShohinRyakumei(kk) = Content.Fields("商品略称")				'商品略称
			HyojyunTanka(kk) = ConvMoneyToInt(Content.Fields("標準売価"))		'標準売価
			Tanka(kk) = ConvMoneyToInt(Content.Fields("実販売単価"))		'実販売単価
			ShiireTanka(kk) = ConvMoneyToInt(Content.Fields("仕入単価"))		'仕入単価
			Suryo(kk) = ConvMoneyToInt(Content.Fields("数量"))			'数量
			Henpin(kk) = ConvMoneyToInt(Content.Fields("返品数量"))			'返品数量
			Kingaku(kk) = ConvMoneyToInt(Content.Fields("金額"))			'金額

			kk = kk + 1
			ShohinCD(kk) = ""
			Content.MoveNext
		Loop
'For Debug
'Response.Write("<br>")
'Response.Write("ShohinCD1 :" & ShohinCD(0) & "<br>")
'Response.Write("ShohinMe1i:" & ShohinMei(0) & "<br>")
'Response.Write("ShohinCD2 :" & ShohinCD(1) & "<br>")
'Response.Write("ShohinMei2:" & ShohinMei(1) & "<br>")

'		
		'###  入出庫TRN、明細TRN更新
		'入出庫更新時 文書種類CDを「HU」から「SU」に変換して更新する
		'       文書内容CDも新しくなる為、ブランクにして更新する
		BunSyuCD = "SU"
		BunNaiCD = ""

		AddFlg = 1

		Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "',"			'システムCD

		'###  画面トータル部
		Query = Query & " '" & EnshuCD & "'"					'演習CD
		Query = Query & ",'" & KaisyaCD & "'"					'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"				'作成会社CD
		Query = Query & ",'" & BunSyuCD & "'"					'文書種類CD

		Query = Query & ",1"							'文書内容CD
'		Query = Query & ",''"

		Query = Query & ",1"							'処理時期区分
		Query = Query & ",'" & Syoribi & "'"					'処理日

		'取引先CDは小売の為、共通の「SJ4KOURIHANBAI」にて出力
		TorihikisakiCD = "SJ4KOURIHANBAI"
		Query = Query & ",'" & TorihikisakiCD & "'"				'取引先CD

		If SenpoBunsyoNaiyoCD = "" Then						'先方文書内容CD
			Query = Query & ", null"
		Else
			Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'"	
		End If

		If SenpoBunsyoSyuruiCD = "" Then					'先方文書種類CD
			Query = Query & ", null"
		Else
			Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'"	
		End If

		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 Soryo = "" Then
			Query = Query & ", null"
		Else
			Query = Query & "," & Soryo & ""				'運送費
		End If

		Query = Query & ",'" & GakuseiBango & "'"				'学生番号

		Query = Query & ", ''"				'先方仕入売上種類CD
		Query = Query & ", ''"				'先方仕入売上内容CD

		'###  画面明細部 

		jj = 0
		For ii = 1 To 5
			If ShohinCD(jj) = "" Then
				Query = Query & ",null,null,null,null,null"
			Else
				Query = Query & "," & ii				'伝票SEQ
				Query = Query & ",'"& ShohinCD(jj) & "'"		'商品CD
				Query = Query & "," & Suryo(jj)				'販売数量
				Query = Query & "," & Tanka(jj)				'実販売単価
				Query = Query & ",0"					'運送単価=0
			End If
			jj = jj + 1
		Next

'#####  ストアドプロシージャ-実行
'DebugQuery(Query)

		Set Content = OpenQuery(Query)

		While Not Content Is Nothing
			If Content.Fields.Count > 0 Then
				KoshinF = Content.Fields(0)
			End If
			Set Content = Content.NextRecordset
		Wend

'For Debug
'Response.Write("<br>")
'Response.Write("KoshiF :" & KoshinF & "<br>")
		'###  小売販売テーブルメイン部に出荷済みフラグをON(1)にする:出荷済み
		Query = "exec SPK小売販売出荷FON '" & GB_SystemCD & "',"		'システムCD
		Query = Query & " '" & EnshuCD & "'"					'演習CD
		Query = Query & ",'" & KaisyaCD & "'"					'会社CD
		Query = Query & ",'" & SakuseiKaisyaCD & "'"				'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"				'会社CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"				'文書内容CD

		Set Content = OpenQuery(Query)

		Response.Redirect("kh_kouri_view.asp?Action=" & Action & "&EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&SakuseiKaisyaCD=" & KaisyaCD & "&PageType=" & PageType & "&RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "")

	End If

'##### 印刷済みの対応 #####
	If RouteType <> "admin" AND Action = "kaiagehyo" Then
		' 小売販売テーブルメイン部に印刷済みフラグをON(1)にする:買上票印刷済み
		Query = "exec SPK小売販売買上票印刷FON '" & GB_SystemCD & "',"	'システムCD
		Query = Query & " '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & KaisyaCD & "'"				'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"			'会社CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"			'文書内容CD

		Set Content = OpenQuery(Query)

		Response.Redirect("kh_kouri_view.asp?Action=" & Action & "&EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&SakuseiKaisyaCD=" & KaisyaCD & "&PageType=" & PageType & "&RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "")
	End If

'##### 更新モードの指定(更新or追加)条件:「生徒」で且つ「UPDATE」モード時のみ有効 #####
	If RouteType <> "admin" and Action = "update" Then
'For Debug
'Response.Write("<br>")
'Response.Write("GB_SystemCD:" & GB_SystemCD & "<br>")
'Response.Write("EnshuCD:" & EnshuCD & "<br>")
'Response.Write("KaisyaCD:" & KaisyaCD & "<br>")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "<br>")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "<br>")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "<br>")
		Dim AddFlg
		AddFlg = 2								'修正モード
		If BunsyoNaiyoCD = "" Then	
			BunsyoNaiyoCD = "1"
			AddFlg = 1							'追加モード
		Else
			'##### 修正モード時は、削除後に追加する
			' 小売販売テーブルメイン部(TTL)削除
			Query = "exec SPK小売販売TTL削除 '" & GB_SystemCD & "',"	'システムCD
			Query = Query & " '" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KaisyaCD & "'"				'会社CD
			Query = Query & ",'" & SakuseiKaisyaCD & "'"			'作成会社CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"			'会社CD
			Query = Query & ",'" & BunsyoNaiyoCD & "'"			'文書内容CD

			Set Content = OpenQuery(Query)

			' 引き続き販売テーブルの明細部(TRN)削除
			Query = "exec SPK小売販売TRN削除 '" & GB_SystemCD & "',"	'システムCD
			Query = Query & " '" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KaisyaCD & "'"				'会社CD
			Query = Query & ",'" & SakuseiKaisyaCD & "'"			'作成会社CD
			Query = Query & ",'" & BunsyoSyuruiCD & "'"			'会社CD
			Query = Query & ",'" & BunsyoNaiyoCD & "'"			'文書内容CD

			Set Content = OpenQuery(Query)

			BunsyoNaiyoCD = "1"
			AddFlg = 1							'追加モード
		End If

		'データ内容チェック
		If KaiageTensu = "" Then
			KaiageTensu = "0"
		End If
		If GokeiKingaku = "" Then
			GokeiKingaku = "0"
		End If
		If SyohizeiKingaku = "" Then
			SyohizeiKingaku = "0"
		End If
		If Unsohi = "" Then
			Unsohi = "0"
		End If
		If ZeikomiKingaku = "" Then
			ZeikomiKingaku = "0"
		End If

		' 実行プロシージャーの特定 
		' KEY部
		Query = "exec SPK小売販売更新_TTL " & AddFlg & ""		'【処理区分】
		Query = Query & ",'" & GB_SystemCD & "'"			'システムCD
		Query = Query & ",'" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"				'会社CD
		Query = Query & ",'" & KaisyaCD & "'"				'作成会社CD
		Query = Query & ",'" & BunsyoSyuruiCD & "'"			'文書種類CD
		Query = Query & ",'" & BunsyoNaiyoCD & "'"			'文書内容CD

		' データ部
		Query = Query & ",'" & Shimei & "'"				'客氏名
		Query = Query & ",'" & Syoribi & "'"				'買上日
		Query = Query & ",'" & Tekiyo & "'"				'摘要
		Query = Query & ",'" & GakuseiBango & "'"			'学生番号
		Query = Query & ",'" & GakuseiShimei & "'"			'学生氏名
		Query = Query & "," & KaiageTensu & ""				'買上点数
		Query = Query & "," & GokeiKingaku & ""				'買上金額
		Query = Query & "," & SyohizeiKingaku & ""			'消費税
		Query = Query & "," & Unsohi & ""				'送料
		Query = Query & "," & ZeikomiKingaku & ""			'合計金額
		Query = Query & ",0"						'買上票印刷フラグ
		Query = Query & ",0"						'出荷フラグ
		Query = Query & ",0"						'領収書印刷フラグ
		Query = Query & ",0"						'入出庫更新フラグ
		Query = Query & ",0"						'削除フラグ
		Query = Query & "," & Kitakuriyo & ""				'寄託倉庫利用
		Query = Query & ",'" & today & "'"				'更新日付(今日)

		Set Content = OpenQuery(Query)
'For Debug
'Response.Write("<br>")
'Response.Write("商品CD:" & ShohinCD(2) & "<br>")
'Response.Write("商品名:" & ShohinMei(2) & "<br>")
'Response.Write("商品略称:" & ShohinRyakumei(2) & "<br>")
'Response.Write("数量:" & Suryo(2) & "<br>")
'Response.Write("Tanka:" & Tanka(2) & "<br>")
'Response.Write("Kingaku:" & Kingaku(2) & "<br>")

		'ヘッダ部出力時の「文書内容CD」を確保
		BunsyoNaiyoCD = Content.Fields(0)

		'画面明細部出力
		jj = 0
		For ii = 1 To 5
			If ShohinCD(jj) = "" Then
				Exit For
			Else

			'KEY部
				Query = "exec SPK小売販売更新_TRN " & AddFlg & ""	'【処理区分】
				Query = Query & ",'" & GB_SystemCD & "'"		'システムCD
				Query = Query & ",'" & EnshuCD & "'"			'演習CD
				Query = Query & ",'" & KaisyaCD & "'"			'会社CD
				Query = Query & ",'" & KaisyaCD & "'"			'作成会社CD
				Query = Query & ",'" & BunsyoSyuruiCD & "'"		'文書種類CD
				Query = Query & ",'" & BunsyoNaiyoCD & "'"		'文書内容CD

			'データ部
				Query = Query & ",1"					'小売販売SEQ
				Query = Query & ",'"& ShohinCD(jj) & "'"		'商品CD
				Query = Query & ",'" & ShohinMei(jj) & "'"		'商品名
				Query = Query & ",'" & ShohinRyakumei(jj) & "'"		'商品略称
				Query = Query & "," & HyojyunTanka(jj) & ""		'標準単価
				Query = Query & "," & Tanka(jj) & ""			'実売単価
				Query = Query & "," & ShiireTanka(jj)			'仕入単価
				Query = Query & "," & Suryo(jj) & ""			'数量
				Query = Query & ",0"					'返品数量
				Query = Query & "," & Kingaku(jj) & ""			'金額
				Query = Query & "," & TaxRate(jj) & ""	'消費税率
				Query = Query & ",'" & today & "'"			'更新日

				Set Content = OpenQuery(Query)

			End If
			jj = jj + 1
		Next

	End IF

	Response.Redirect("kh_kouri_view.asp?Action=" & Action & "&EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&SakuseiKaisyaCD=" & KaisyaCD & "&PageType=" & PageType & "&RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "")

End Sub
%>