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

<%
'<!--
'################################################
'	 名称	：振替伝票処理
'	 作成日：2002/8/2
'	 作成者：山崎
'	 目的　：仕訳伝票画面を追加・修正処理する。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正:2002/8/19:山崎:データキーを使わないように修正
'	修正:2002/8/20:山崎:「振分」から「振替」に変更
'
'	修正:2002/8/21:山崎:Query文の「生徒NO」分を削除、形式区分を5に修正

'	＜修正＞
'	071015小野	：繰越商品の処理をスプレッドシートからのSendValueクエリに全面変更
'################################################
'-->
'
%>

<%
main()

Sub main()
	Dim KanjyoCD, KanjyoMeisyo, TekiyoCD, Tekiyo, KarikataKingaku, KashikataKingaku
	Dim Query, Content, Content2
	Dim db
	Dim Genkin
	Dim SyohinCD, Suryo, Tanka
	Dim GinkoCD(), GinkoKingaku(), GinkoKozaKubun(), GinkoSakujyo(), SyohinSakujyo(), DistGinkoCD()
	Dim TmpSyohinCD, TmpSyohinKosu, TmpSyohinKingaku, TmpGinkoCD, TmpGinkoKingaku, TmpGinkoSakujyo, TmpSyohinSakujyo
	Dim SyohinKosu1 , SyohinCD1 , Kingaku
	Dim KozaBango, KozaKubun, GinkoCD1, GinkoCD2
	Dim NumGinko
	NumGinko = CInt(Request("NumGinko"))
	ReDim GinkoCD(NumGinko), GinkoKingaku(NumGinko), GinkoKozaKubun(NumGinko), GinkoSakujyo(NumGinko), DistGinkoCD(NumGinko)

	Genkin = Request("Genkin")

	Dim Kitakuriyou
	Kitakuriyou = Request("Kitakuriyou")
	Dim KitakuGaisyaCD
	KitakuGaisyaCD = Request("KitakuGaisyaCD")

	Dim SendValue1, SendValue2, TmpValue1, TmpValue2 
	SendValue1 = Request("SendValue1")
	SendValue2 = Request("SendValue2")

	If Request("KaisyaCD") <> "" Then
		KaisyaCD = Request("KaisyaCD")
	End If

	'運用管理対応（080415小野）
	Dim Tmp2GakuseiNo
	Tmp2GakuseiNo = Request("TmpGakuseiNo")

	'製造部対応（080411小野）
	Dim Mode
	Mode = Request("Mode")

	Dim Label
	If Mode = "Seizo" Then	'製造部対応（080411小野）
		Label = "材料"
	Else
		Label = "商品"
	End If

	Dim ii, jj, kk
	For ii = 1 To NumGinko	'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


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

'Response.Write(SendValue1 & vbCrlf)
'Response.Write(SendValue2 & vbCrlf)
'Response.Write(GinkoCD(1) & vbCrlf)
'Response.Write(GinkoKingaku(1) & vbCrlf)
'Exit Sub


	'残高設定一括コピー用追加（080325小野）コピー元を取得する
	Dim ShijoCD
	ShijoCD = Request("ShijoCD")
	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")
	If "" & HyojiFlg = "" Then
		HyojiFlg = "1"	'表示フラグが無い場合は通常処理なので同時同業会社も含める
	End If
	Dim CopyMoto
	CopyMoto = Request("CopyMoto")
	Dim TmpGakuseiNo
	TmpGakuseiNo = ""
	Dim TmpGyoshu	'会社絞込み用業種CD
	If CopyMoto <> "" Then
		KaisyaCD = ""
		Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			TmpGyoshu = Content.Fields("業種CD")
			If GB_EnshuKubun = "P" And "" & Content.Fields("学生番号") <> "" Then
				TmpGakuseiNo = "-" & Content.Fields("学生番号")
			End If
		Else
			Exit Sub
		End If
		Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', 0, 0"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Genkin = Content.Fields("金額")
		End If
		ReDim GinkoCD(0), GinkoKingaku(0), GinkoKozaKubun(0), GinkoSakujyo(0), DistGinkoCD(0)	'リセット
		ii = 0
		Query = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			ii = ii + 1
			ReDim PreServe GinkoCD(ii), GinkoKingaku(ii), GinkoKozaKubun(ii), GinkoSakujyo(ii), DistGinkoCD(ii)
			GinkoCD(ii) = Replace(Content.Fields("銀行CD"), TmpGakuseiNo, "")	'銀行CDから学生番号を除外する
			GinkoKozaKubun(ii) = Content.Fields("口座区分")
			GinkoKingaku(ii) = 0
			GinkoSakujyo(ii) = 0
			Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & CopyMoto & "', '" & GinkoCD(ii) & TmpGakuseiNo & "', '" & GinkoKozaKubun(ii) & "', ''"
			Set Content2 = OpenQuery(Query)
			Do While Not(Content2.BOF Or Content2.EOF)
				If Content2.Fields("処理時期区分") = 0 Then
					GinkoKingaku(ii) = GinkoKingaku(ii) + Content2.Fields("金額")
				End If
				Content2.MoveNext
			Loop
			Content.MoveNext
		Loop
		NumGinko = ii	'コピー元の口座数を保持
		Dim BunsyoSyuruiCD
		Dim SyorijikiKubun0
		'製造部対応（080411小野）
		If Mode = "Seizo" Then
			BunsyoSyuruiCD = "ZS"
		Else
			BunsyoSyuruiCD = "SS"
		End If
		SendValue1 = ""	'リセット
		'処理時期区分0の入出庫番号を取得
		Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', '" & BunsyoSyuruiCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("処理時期区分") = 0 Then
				SyorijikiKubun0 = Content.Fields("文書内容CD")
			End If
			Content.MoveNext
		Loop
		Query = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', '" & BunsyoSyuruiCD & "', '" & SyorijikiKubun0 & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Mode = "Seizo" Then	'製造部対応（080411小野）
				SendValue1 = SendValue1 & "" & ConvZairyoMeisyo(Content.Fields("商品CD")) & ","
			Else
				SendValue1 = SendValue1 & "" & ConvSyohinMeisyo(Content.Fields("商品CD")) & ","
			End If
			SendValue1 = SendValue1 & "" & Content.Fields("数量") & ","
			SendValue1 = SendValue1 & "" & Content.Fields("単価") & ","
			SendValue1 = SendValue1 & "" & Content.Fields("数量") * Content.Fields("単価") & ";"
			Content.MoveNext
		Loop
		SendValue2 = ""	'リセット
		'処理時期区分0の入出庫番号を取得
		Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', 'MS'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("処理時期区分") = 0 Then
				SyorijikiKubun0 = Content.Fields("文書内容CD")
			End If
			Content.MoveNext
		Loop
		Query = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', 'MS', '" & SyorijikiKubun0 & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			SendValue2 = SendValue2 & "" & ConvSyohinMeisyo(Content.Fields("商品CD")) & ","
			SendValue2 = SendValue2 & "" & Content.Fields("数量") & ","
			SendValue2 = SendValue2 & "" & Content.Fields("単価") & ","
			SendValue2 = SendValue2 & "" & Content.Fields("数量") * Content.Fields("単価") & ";"
			Content.MoveNext
		Loop
	Else
		Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			TmpGyoshu = Content.Fields("業種CD")
			If GB_EnshuKubun = "P" And "" & Content.Fields("学生番号") <> "" Then
				TmpGakuseiNo = "-" & Content.Fields("学生番号")
			End If
		End If
		For ii = 1 To NumGinko
			GinkoCD(ii) = Replace(GinkoCD(ii), TmpGakuseiNo, "")	'銀行CDから学生番号を除外する
		Next
	End If


'Response.Write(GinkoCD(1) & vbCrlf)
'Response.Write(GinkoKingaku(1) & vbCrlf)
'Response.Write(SendValue1 & vbCrlf)
'Response.Write(SendValue2 & vbCrlf)
'Exit Sub

Dim SakuseisakiGinkoCD


'一括コピーかそうでないかのフラグ
'（MST処理のため。KaisyaCDが存在＆マスタ会社の場合のみMST処理とする）
Dim MSTKaishaCD
If GB_Admin > 0 Then
	MSTKaishaCD = KaisyaCD
	If MSTKaishaCD <> "" Then
		Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & MSTKaishaCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			If "" & Content.Fields("学生番号") <> "" Then
				MSTKaishaCD = ""
			End If
		End If
	End If
End If


'残高設定一括コピー用追加（080325小野）会社CDがNULLならば会社一覧ループで処理する
Query = "exec SPM会社一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & TmpGyoshu & "', " & HyojiFlg
Set Content2 = OpenQuery(Query)
Do While Not(Content2.BOF Or Content2.EOF)
If ShijoCD = "" Or "" & Content2.Fields("市場CD") = ShijoCD Then	'市場絞込み

	If KaisyaCD <> "" & Content2.Fields("会社CD") Then
		KaisyaCD = Content2.Fields("会社CD")
	End If
	TmpGakuseiNo = ""
	If GB_EnshuKubun = "P" And "" & Content2.Fields("学生番号") <> "" Then
		TmpGakuseiNo = "-" & Content2.Fields("学生番号")
	End If

	Dim NumGinko2
	NumGinko2 = NumGinko

	If CopyMoto <> "" Then

		'残高設定一括コピー用追加（080325小野）学生番号・作成先銀行CDを取得する
		SakuseisakiGinkoCD = ""
		If GB_EnshuKubun = "P" And "" & Content2.Fields("自社フラグ") <> "1" And "" & Content2.Fields("学生番号") <> "" Then
			SakuseisakiGinkoCD = Request("GinkoCD_" & Replace(Content2.Fields("会社CD"), "-" & Content2.Fields("学生番号"), "HyphenehpyH" & Content2.Fields("学生番号")))
		Else
			SakuseisakiGinkoCD = Request("GinkoCD_" & Content2.Fields("会社CD"))
		End If
		For ii = 1 To NumGinko
			GinkoCD(ii) = SakuseisakiGinkoCD	'上書き
		Next

		'残高設定一括コピー用追加（080325小野）期首段高を0にすべき銀行口座を取得する
		'※上記で上書きした銀行CDが基準になるため口座区分がコピー元に該当しない口座のみ0になる
		Dim bExistDistGinko
		Query = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			bExistDistGinko = 0
			For ii = 1 To NumGinko	'コピー元配列ループ　↓此処では学生番号を除外して比較する
				If GinkoCD(ii) = Replace(Content.Fields("銀行CD"), TmpGakuseiNo, "") And GinkoKozaKubun(ii) = Content.Fields("口座区分") Then
					bExistDistGinko = 1
					Exit For
				End If
			Next
			If bExistDistGinko = 0 Then
				NumGinko2 = NumGinko2 + 1
				ReDim PreServe GinkoCD(NumGinko2), GinkoKingaku(NumGinko2), GinkoKozaKubun(NumGinko2), GinkoSakujyo(NumGinko2), DistGinkoCD(NumGinko2)
				GinkoCD(NumGinko2) = Replace(Content.Fields("銀行CD"), TmpGakuseiNo, "")	'銀行CDから学生番号を除外する
				GinkoKozaKubun(NumGinko2) = Content.Fields("口座区分")
				GinkoKingaku(NumGinko2) = 0
				GinkoSakujyo(NumGinko2) = 0
			End If
			Content.MoveNext
		Loop

		'残高設定一括コピー用追加（080325小野）寄託会社を取得する
		If Kitakuriyou = "1" Then
			Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				KitakuGaisyaCD = "" & Content.Fields("寄託会社CD")
			End If
		End If

	End If


'Response.Write(GinkoKingaku(1) & vbCrlf)
'Response.Write(GinkoSakujyo(1) & vbCrlf)
'Response.Write(KaisyaCD & vbCrlf)
'Exit Sub

	Set db = InitQuery()

	jj = 0


For jj = 1 To 2	'2は製造部製品

	'テンポラリを強制削除（090917小野）
	Query = " DELETE FROM YTMP_TGA入出庫明細TRN "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " 	AND 会社CD = '" & KaisyaCD & "' "
	Query = Query & " 	AND 文書種類CD = "
	If Mode = "Seizo" And jj = 1 Then
		Query = Query & " 'ZS' "	'材料入庫
	ElseIf jj <> 1 Then
		Query = Query & " 'MS' "	'製品入庫
	Else
		Query = Query & " 'SS' "	'商品入庫
	End If
	Query = Query & " 	AND 文書内容CD = '0' "
'Response.Write(Query)
'Exit Sub
'	Set Content = ExecQuery(db, Query)
	'テンポラリを強制削除（寄託在庫）
	Query = " DELETE FROM YTMP_TGC寄託在庫明細F "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " 	AND 寄託依頼会社CD = '" & KaisyaCD & "' "
	Query = Query & " 	AND 寄託受付番号 = 0 "
'Response.Write(Query)
'Exit Sub
	Set Content = ExecQuery(db, Query)


	'ここで商品毎にYTMPに明細を挿入

	If jj = 1 Then
		TmpValue1 = split(SendValue1, ";")
	Else	'製造部製品（080502小野）
		TmpValue1 = split(SendValue2, ";")
	End If


Call Application.Lock()	'同時処理でテンポラリに同一番号が発生しないようアプリケーションロック（090917小野）

	For kk = 0 To UBound(TmpValue1) - 1

		TmpValue2 = split(TmpValue1(kk), ",")

'Response.Write(TmpValue2(0) & vbCrlf)
'Response.Write(TmpValue2(1) & vbCrlf)
'Response.Write(TmpValue2(2) & vbCrlf)
'Response.Write(SendValue1 & vbCrlf)
'Response.Write(Tmp2GakuseiNo & vbCrlf)
'Exit Sub
		If Mode = "Seizo" And jj = 1 Then	'製造部対応（080411小野）
			If GB_Admin >= 1 Then
				SyohinCD = ConvRevZairyoMeisyoAdmin(TmpValue2(0), Tmp2GakuseiNo)
			Else
				SyohinCD = ConvRevZairyoMeisyo(TmpValue2(0))
			End If
		Else	'商品及び製造部製品はこちら
			If GB_Admin >= 1 Then
				SyohinCD = ConvRevSyohinMeisyoAdmin(TmpValue2(0), Tmp2GakuseiNo)
			Else
				SyohinCD = ConvRevSyohinMeisyo(TmpValue2(0))
			End If
'Response.Write(SyohinCD & vbCrlf)
'Exit Sub
		End If
		Suryo = ConvMoneyToInt(TmpValue2(1))
		Tanka = ConvMoneyToInt(TmpValue2(2))

		'同時同業で一括コピー時はオリジナル商品は除外される（どうにもならない仕様です）
		If SyohinCD <> "" Then

			Query = "exec SPK繰越商品挿入"
			Query = Query & "  '" & GB_SystemCD & "'"
			Query = Query & ", '" & EnshuCD & "'"	'演習CD
			Query = Query & ", '" & KaisyaCD & "'"	'会社CD
			If Mode = "Seizo" And jj = 1 Then
				Query = Query & ", 'ZS'"	'材料入庫
			ElseIf jj <> 1 Then
				Query = Query & ", 'MS'"	'製品入庫
			Else
				Query = Query & ", 'SS'"	'商品入庫
			End If
			Query = Query & ", '" & SyohinCD & "'"	'商品CD
			If Suryo = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & Suryo & ""	'数量
			End If
			If Tanka = "" Then
				Query = Query & ", null"
			Else
				Query = Query & "," & Tanka & ""	'仕入単価
			End If
			Query = Query & ",0"					'受注単価
DebugQuery(Query)
'Response.Write(Query & vbCrlf)
'Exit Sub
			Set Content = ExecQuery(db, Query)
'Exit Sub

'			If (Mode <> "Seizo" Or jj = 2) And Kitakuriyou = "1" Then	'商品
			If Mode <> "Seizo" And jj = 1 And 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 & "'"	'商品CD
				Query = Query & "," & Suryo			'数量
				If Tanka = "" Then
					Query = Query & ", null"
				Else
					Query = Query & "," & Tanka & ""	'単価
				End If
				Query = Query & ",0"				'運送単価
				DebugQuery(Query)
				Set Content = ExecQuery(db, Query)
'Response.Write(Query & vbCrlf)
'Exit Sub
			End If

		End If

	Next


	'繰越商品の入庫を作成しYTMPから明細を一括挿入しYTMP削除
	If kk > 0 Then
		Query = "exec SPK繰越商品更新"
		Query = Query & "  '" & GB_SystemCD & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		If Mode = "Seizo" And jj = 1 Then
			Query = Query & ", 'ZS'"	'材料入庫
		ElseIf jj <> 1 Then
			Query = Query & ", 'MS'"	'製品入庫
		Else
			Query = Query & ", 'SS'"	'商品入庫
		End If
		Query = Query & ", '" & GB_KaikeiKaishibi & "'"
		If GB_Admin >= 1 Then
			Query = Query & ",''"
		Else
			Query = Query & ",'" & GakuseiNo & "'"
		End If
		DebugQuery(Query)
'Response.Write(Query & vbCrlf)
'Exit Sub
		Set Content = ExecQuery(db, Query)
'Response.Write(Query & vbCrlf)
'Exit Sub

'		If Mode <> "Seizo" And Kitakuriyou = "1" Then	'商品
		If Mode <> "Seizo" And jj = 1 And 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 & "'"
		Query = Query & ", '" & EnshuCD & "'"
		Query = Query & ", '" & KaisyaCD & "'"
		If Mode = "Seizo" And jj = 1 Then
			Query = Query & ", 'ZS'"	'材料入庫
		ElseIf jj <> 1 Then
			Query = Query & ", 'MS'"	'製品入庫
		Else
			Query = Query & ", 'SS'"	'商品入庫
		End If
		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 Mode <> "Seizo" And jj = 1 And 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

Call Application.Unlock()	'同時処理でテンポラリに同一番号が発生しないようアプリケーションロック（090917小野）

Next


If Mode <> "Seizo" Then

	For ii = 1 To NumGinko2
		DistGinkoCD(ii) = GinkoCD(ii)
		'（共通項目）同時同業で作成先銀行が自社設定でない場合のみ学生番号を付加
		If GB_EnshuKubun = "P" Then
			'この段階では -学生番号 は除外されているので自社銀行若しくはマスター銀行が取得される
			Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & DistGinkoCD(ii) & "'"
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				If "" & Content.Fields("自社フラグ") <> "1" Then	'マスター銀行の場合に成立
					DistGinkoCD(ii) = DistGinkoCD(ii) & TmpGakuseiNo
				End If
			End If
		End If
	Next
	Dim bCheck
'	For ii = 1 To UBound(GinkoCD)
	For ii = 1 To NumGinko2	'一括処理のため変更
		bCheck = 0

		If GinkoCD(ii) <> "" And GinkoKozaKubun(ii) <> "" Then
			KozaKubun = GinkoKozaKubun(ii)
			GinkoCD1 = GinkoCD(ii)
			GinkoCD2 = DistGinkoCD(ii)
			Kingaku = GinkoKingaku(ii)

'Response.Write(Kingaku & vbCrlf)
'Exit Sub

			Query = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Replace(Content.Fields("銀行CD"), TmpGakuseiNo, "") = 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 & ",'" & GinkoCD2 & "'"	'銀行CD
					Query = Query & ",'" & KozaKubun & "'"	'口座区分
					Query = Query & ",'" & KozaBango & "'"	'口座番号
					Set Content = OpenQuery(Query)
					If GB_Admin >= 1 Then
						'管理者の場合は運用管理マスタも削除
						Query = "exec SPB銀行口座削除"
						Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
						Query = Query & ",'MST:" & GinkoCD2 & "'"	'銀行CD
						Query = Query & ",'" & KozaKubun & "'"	'口座区分
						Query = Query & ",'" & KozaBango & "'"	'口座番号
						Set Content = OpenQuery(Query)
					End If
				End If
			Else

				If bCheck = 0 Then
					Query = "exec SPB銀行口座挿入"
					Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"				'演習CD
					Query = Query & ",'" & KaisyaCD & "'"	'会社CD
					Query = Query & ",'" & GinkoCD2 & "'"	'銀行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 & ",'" & GinkoCD2 & "'"	'銀行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
				Query = Query & ",'','',''"	'結果通知銀行CD・結果通知種類CD・結果通知内容CD（繰越では不要）


				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

	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

End If

End If
	Content2.MoveNext
Loop



	'マスタ会社のMST処理
	If MSTKaishaCD <> "" Then
		Query = "exec SPM期首残高マスタ複製繰越"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "', '" & MSTKaishaCD & "'"
		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小野）

	If CopyMoto <> "" Then
		If Mode <> "Seizo" Then
			Response.Redirect("fk_kurikoshizandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&Mode=Seizo")	'Mode<>"Seizo"なら製造部門の処理へ飛ぶ
		Else
			Response.Redirect("fk_kanjyozandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&Mode=")	'Mode="Seizo"ならModeをクリアして勘定残高の処理へ飛ぶ
		End If
	Else
		Response.Redirect("fk_kityochecksonyusyukeikoushin_bin.asp?KaisyaCD=" & Request("KaisyaCD") & "&GyosyuCD=" & Request("GyosyuCD") & "&Mode=" & Mode & "&Zandaka=kurikoshi&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg)
	End If

	'Response.Redirect("fk_kurikoshizandaka_view.asp?KaisyaCD=" & Request("KaisyaCD"))

End Sub
%>