
<!-- #include virtual="/sj4web/include.asp" -->

<%
'<!--
'################################################
'	 名称	：振替伝票処理
'	 作成日：2002/8/2
'	 作成者：山崎
'	 目的　：仕訳伝票画面を追加・修正処理する。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正:2002/8/19:山崎:データキーを使わないように修正
'	修正:2002/8/20:山崎:「振分」から「振替」に変更
'
'	修正:2002/8/21:山崎:Query文の「生徒NO」分を削除、形式区分を5に修正
'################################################
'-->
'
%>

<%
main()

Sub main()
	Dim KanjyoCD, KanjyoMeisyo, TekiyoCD, Tekiyo, KarikataKingaku, KashikataKingaku
	Dim Query, Content
	Dim db
	Dim Genkin
	Dim SyohinCD(), Suryo(), Tanka(), GinkoCD(), GinkoKingaku(), GinkoKozaKubun(), GinkoSakujyo(), SyohinSakujyo()
	Dim TmpSyohinCD, TmpSyohinKosu, TmpSyohinKingaku, TmpGinkoCD, TmpGinkoKingaku, TmpGinkoSakujyo, TmpSyohinSakujyo
	Dim SyohinKosu1 , SyohinCD1 , Kingaku
	Dim KozaBango, KozaKubun, GinkoCD1
	Dim NumGinko, NumSyohin
	NumGinko = CInt(Request("NumGinko"))
	NumSyohin = CInt(Request("NumSyohin"))
	ReDim SyohinCD(NumSyohin), Suryo(NumSyohin), Tanka(NumSyohin), SyohinSakujyo(NumSyohin)
	ReDim GinkoCD(NumGinko), GinkoKingaku(NumGinko), GinkoKozaKubun(NumGinko), GinkoSakujyo(NumGinko)

	Dim Kitakuriyou
	Kitakuriyou = Request("Kitakuriyou")
	Dim KitakuGaisyaCD
	KitakuGaisyaCD = Request("KitakuGaisyaCD")

	If Request("KaisyaCD") <> "" Then
		KaisyaCD = Request("KaisyaCD")
	End If

	Dim ii, jj, kk
	For ii = 1 To NumGinko
		jj = "" & ii

		TmpGinkoCD = Request("GinkoCD" & jj)
		TmpGinkoKingaku = ConvMoneyToInt(Request("GinkoKingaku" & jj))
		TmpGinkoSakujyo = Request("GinkoSakujyo" & jj)

		If TmpGinkoCD <> "" Then
			Dim Tmp
			Tmp = split(TmpGinkoCD, "_")
			GinkoCD(ii) = Tmp(0)
			GinkoKozaKubun(ii) = Tmp(1)
		End If
		If TmpGinkoKingaku <> "" Then
			GinkoKingaku(ii) = ConvMoneyToInt(TmpGinkoKingaku)
		End If
		If TmpGinkoSakujyo = "ON" Then
			GinkoSakujyo(ii) = 1
		Else
			GinkoSakujyo(ii) = 0
		End If

	Next



	For ii = 1 To NumSyohin
		jj = "" & ii

		TmpSyohinCD = Request("SyohinCD" & jj)
		TmpSyohinKosu = ConvMoneyToInt(Request("SyohinKosu" & jj))
		TmpSyohinKingaku = ConvMoneyToInt(Request("SyohinKingaku" & jj))
		TmpSyohinSakujyo = Request("SyohinSakujyo" & jj)

		If TmpSyohinCD <> "" Then
			SyohinCD(ii) = TmpSyohinCD
		End If
		If TmpSyohinKosu <> "" Then
			Suryo(ii) = TmpSyohinKosu
		End If
		If TmpSyohinKingaku <> "" Then
			Tanka(ii) = ConvMoneyToInt(TmpSyohinKingaku)
		End If
		If TmpSyohinSakujyo = "ON" Then
			SyohinSakujyo(ii) = 1
		Else
			SyohinSakujyo(ii) = 0
		End If
	Next



	Set db = InitQuery()

	jj = 0
	'ここで商品毎にYTMPに明細を挿入
	For kk = 1 To NumSyohin
		If SyohinCD(kk) <> "" And Suryo(kk) <> "" AND Tanka(kk) <> "" And SyohinSakujyo(kk) = 0 Then '削除がチェックされていたら無視

			jj = jj + 1

			Query = "exec SPK繰越商品挿入"
			Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
			Query = Query & ",'" & KaisyaCD & "'"			'会社CD
			Query = Query & ",'"& SyohinCD(kk) & "'"			'商品CD
			Query = Query & ","& Suryo(kk)						'受注数量
			Query = Query & ","& Tanka(kk)						'受注単価
			Query = Query & ",0"								'受注単価
DebugQuery(Query)
			Set Content = ExecQuery(db, Query)

			If Kitakuriyou = "1" Then
				Query = "exec SPD寄託在庫繰越商品挿入 '" & GB_SystemCD & "',"
				Query = Query & " '" & EnshuCD & "'"		'演習CD
				Query = Query & ",'" & KaisyaCD & "'"		'会社CD
				Query = Query & ",'" & KitakuGaisyaCD & "'"	'寄託会社CD
				If GB_Admin >= 1 Then
					Query = Query & ",''"
				Else
					Query = Query & ",'" & GakuseiNo & "'"	'学生番号
				End If
				Query = Query & ",'" & SyohinCD(kk) & "'"	'商品CD
				Query = Query & "," & Suryo(kk)			'数量
				If Tanka(kk) = "" Then
					Query = Query & ", null"
				Else
					Query = Query & "," & Tanka(kk) & ""	'単価
				End If
				Query = Query & ",0"				'運送単価
				DebugQuery(Query)
				Set Content = ExecQuery(db, Query)
			End If

		End If
	Next


	'繰越商品の入庫を作成しYTMPから明細を一括挿入しYTMP削除
	If jj > 0 Then
		Query = "exec SPK繰越商品更新"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",'" & GB_KaikeiKaishibi & "'"
		If GB_Admin >= 1 Then
			Query = Query & ",''"
		Else
			Query = Query & ",'" & GakuseiNo & "'"
		End If
		DebugQuery(Query)
		Set Content = ExecQuery(db, Query)

		If Kitakuriyou = "1" Then
			Query = "exec SPD寄託在庫繰越商品更新 '" & GB_SystemCD & "',"
			Query = Query & " '" & EnshuCD & "'"		'演習CD
			Query = Query & ",'" & KaisyaCD & "'"		'会社CD
			Query = Query & ",'" & KitakuGaisyaCD & "'"	'寄託会社CD
			If GB_Admin >= 1 Then
				Query = Query & ",''"
			Else
				Query = Query & ",'" & GakuseiNo & "'"	'学生番号
			End If
			DebugQuery(Query)
			Set Content = ExecQuery(db, Query)
		End If

	'繰越商品の入庫を削除（明細はYTMP操作時に空になる）
	Else
		Query = "exec SPK繰越商品削除"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Query = Query & ",'" & GB_KaikeiKaishibi & "'"
		If GB_Admin >= 1 Then
			Query = Query & ",''"
		Else
			Query = Query & ",'" & GakuseiNo & "'"
		End If
		DebugQuery(Query)
		Set Content = ExecQuery(db, Query)

		If Kitakuriyou = "1" Then
			Query = "exec SPD寄託在庫繰越商品削除 '" & GB_SystemCD & "',"
			Query = Query & " '" & EnshuCD & "'"		'演習CD
			Query = Query & ",'" & KaisyaCD & "'"		'会社CD
			Query = Query & ",'" & GB_KaikeiKaishibi & "'"
			If GB_Admin >= 1 Then
				Query = Query & ",''"
			Else
				Query = Query & ",'" & GakuseiNo & "'"	'学生番号
			End If
			DebugQuery(Query)
			Set Content = ExecQuery(db, Query)
		End If

	End If

	Dim bCheck
	For ii = 1 To UBound(GinkoCD)
		bCheck = 0

		If GinkoCD(ii) <> "" And GinkoKozaKubun(ii) <> "" Then
			KozaKubun = GinkoKozaKubun(ii)
			GinkoCD1 = GinkoCD(ii)
			Kingaku = GinkoKingaku(ii)

			Query = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("銀行CD") = GinkoCD1 And Content.Fields("口座区分") = KozaKubun Then
					KozaBango = Content.Fields("口座番号")
					bCheck = 1
				End If
				Content.MoveNext
			Loop

			If GinkoSakujyo(ii) = 1 Then
				If bCheck = 1 Then
					Query = "exec SPB銀行口座削除"
					Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
					Query = Query & ",'" & GinkoCD1 & "'"			'銀行CD
					Query = Query & ",'" & KozaKubun & "'"				'口座区分
					Query = Query & ",'" & KozaBango & "'"				'口座番号

					Set Content = OpenQuery(Query)
				End If
			Else

				If bCheck = 0 Then
					Query = "exec SPB銀行口座挿入"
					Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
					Query = Query & ",'" & KaisyaCD & "'"			'会社CD
					Query = Query & ",'" & GinkoCD1 & "'"			'銀行CD
					Query = Query & ",'" & KozaKubun & "'"		'口座区分
					Query = Query & ",''"
					Query = Query & ",'" & GB_KaikeiKaishibi & "'"		'処理日
					If GB_Admin >= 1 Then
						Query = Query & ",''"
					Else
						Query = Query & ",'" & GakuseiNo & "'"
					End If

					Query = Query & ",0"								'金額
					Query = Query & ",'繰越'"			'摘要
					If GB_Admin >= 1 Then
						Query = Query & ",''"
					Else
						Query = Query & ",'" & GakuseiNo & "'"
					End If
					Set Content = OpenQuery(Query)
					While Not Content Is Nothing
						If Content.Fields.Count > 0 Then
							KozaBango = Content.Fields(0)
						End If
						Set Content = Content.NextRecordset
					Wend
				End If

				If Kingaku = "" Then
					Kingaku = "0"
				End If
				Query = "exec SPB銀行口座入出金挿入"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
				Query = Query & ",'" & GinkoCD1 & "'"			'銀行CD
				Query = Query & ",'" & KozaKubun & "'"				'口座区分
				Query = Query & ",'" & KozaBango & "'"				'口座番号
				Query = Query & ",0"
				Query = Query & ",'" & GB_KaikeiKaishibi & "'"			'処理日
				Query = Query & "," & Kingaku				'金額
				Query = Query & ",'GN'"	'銀行取引区分
				Query = Query & ",'繰越'"			'摘要
				If GB_Admin >= 1 Then
					Query = Query & ",''"
				Else
					Query = Query & ",'" & GakuseiNo & "'"
				End If


				Set Content = OpenQuery(Query)
			End If
		End If
	Next

	Dim bExistGenkin
	bExistGenkin = 0
	Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
		bExistGenkin = 1
		End If

		Genkin = Request("Genkin")
	If Not(bExistGenkin = 0 And Genkin = "") Then
		Genkin = ConvMoneyToInt(Genkin)
		If Genkin = "" Then
			Genkin = 0
		End If

		Query = "exec SPK現金入出金挿入"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
		Query = Query & ",'" & KaisyaCD & "'"			'会社CD
		Query = Query & ", null"
		Query = Query & ",'" & GB_KaikeiKaishibi & "'"		'処理日
		Query = Query & "," & Genkin						'金額
		Query = Query & ",'GN'"	'現金取引区分
		Query = Query & ",0"
		Query = Query & ",'繰越'"					'摘要
		If GB_Admin >= 1 Then
			Query = Query & ",''"
		Else
			Query = Query & ",'" & GakuseiNo & "'"
		End If


		Set Content = OpenQuery(Query)
	End If

'###############################################	 １．データの引継ぎ

'修正　BY Hamada 2006/06/09
'		Query = "exec SPM記帳チェック挿入集計更新 '" & GB_SystemCD & "',"
'		Query = Query & " '" & EnshuCD & "',"
'		Query = Query & " '" & GakuseiNo & "'"
'		Set Content = OpenQuery(Query)

'SPM記帳チェック挿入集計更新は使わず
'別ASPモジュールから個別クエリするようにしてみた
'これでSQL無応答現象が抑えられれば良いのだが・・・（070228小野）

	Response.Redirect("fk_kityochecksonyusyukeikoushin_bin.asp?KaisyaCD=" & Request("KaisyaCD") & "&Zandaka=kurikoshi")
'	Response.Redirect("fk_kurikoshizandaka_view.asp?KaisyaCD=" & Request("KaisyaCD"))

End Sub
%>