
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：勘定残高更新処理
'	作成日	：2007/07/03
'	作成者	：小野
'	目的	：期首伝票を挿入更新する。
'	概要	：
'	修正:2007/07/03:小野:SPK繰越残高設定挿入10により最大10行までまとめて処理するよう変更
'	修正:2007/07/03:小野:ASPのConvRevTekiyoMeisyo()を使わないよう変更
'################################################
'-->
'
%>

<%
main()

Sub main()
	Dim KanjyoCD(10)
	Dim KanjyoMeisyo(10)
	Dim TekiyoCD(10)
	Dim Tekiyo(10)
	Dim KarikataKingaku(10)
	Dim KashikataKingaku(10)
	Dim ii
	Dim jj
	Dim kk
	Dim ss
	Dim tt
	jj = 0
	tt = 0
	Dim Query, Content, Content2

	Dim SendValue, TmpValue1, TmpValue2
	SendValue = Request("SendValue")

	Dim KurikoshiSyohinSonzai
	KurikoshiSyohinSonzai = 0

	If Request("KaisyaCD") <> "" Then
		KaisyaCD = Request("KaisyaCD")
	End If

	'製造部対応（080411小野）
	Dim Mode
	Mode = Request("Mode")


	'繰越商品の明細を期首仕入伝票として保存する処理の準備
	Dim KurikoshiSyohinMeisai
	Dim KurikoshiSyohinMeisaiSave
	Dim KurikoshiSyohinKingaku
	KurikoshiSyohinMeisai = Request("KurikoshiSyohinMeisai")
	KurikoshiSyohinMeisaiSave = Request("KurikoshiSyohinMeisaiSave")
	KurikoshiSyohinKingaku = Request("KurikoshiSyohinKingaku")
	Dim KanjoCDKurikoshi
	If KurikoshiSyohinMeisaiSave = "Save" And KurikoshiSyohinMeisai <> "" Then
		If Mode = "Seizo" Then	'製造部対応（080411小野）
			Query = "exec SPM勘定科目詳細一覧 '" & GB_SystemCD & "','" & EnshuCD & "','G','%'"
		Else
			Query = "exec SPM勘定科目詳細一覧 '" & GB_SystemCD & "','" & EnshuCD & "','S','%'"
		End If
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("特別勘定区分") = "DJ" Or Content.Fields("特別勘定区分") = "GJ" Then
				KanjoCDKurikoshi = Content.Fields("勘定CD")
				Exit Do
			End If
			Content.MoveNext
		Loop
	End If


	'残高設定一括コピー用追加（080324小野）コピー元を取得する
	Dim ShijoCD
	ShijoCD = Request("ShijoCD")
	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")
	If "" & HyojiFlg = "" Then
		HyojiFlg = "1"	'表示フラグが無い場合は通常処理なので同時同業会社も含める
	End If
	Dim CopyMoto
	CopyMoto = Request("CopyMoto")
	Dim TmpGyoshu	'会社絞込み用業種CD（製造部振替伝票処理でもこの部分は同じ）
	If CopyMoto <> "" Then
		KaisyaCD = ""
		SendValue = ""
		KurikoshiSyohinMeisai = ""
		KurikoshiSyohinMeisaiSave = "Save"
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & CopyMoto & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			TmpGyoshu = Content.Fields("業種CD")
			If Mode = "Seizo" Then	'製造部対応（080411小野）
				Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & CopyMoto & "', '0000000', 'G'"
			Else
				Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & CopyMoto & "', '0000000', '" & ConvKaisyaGyosyuKubun(CopyMoto) & "'"
			End If
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				SendValue = SendValue & "" & Content.Fields("勘定CD") & ","
				SendValue = SendValue & "" & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, Content.Fields("勘定CD")) & ","
				SendValue = SendValue & "" & Content.Fields("摘要CD") & ","
				SendValue = SendValue & "" & Content.Fields("摘要") & ","
				SendValue = SendValue & "" & Content.Fields("借方金額") & ","
				SendValue = SendValue & "" & Content.Fields("貸方金額") & ";"
				Content.MoveNext
			Loop
			'商品(材料)繰越残高の取得
			Dim QueryNyusyuko, ContentNyusyuko, KingakuNyusyuko, NyusyukoBango
			If Mode = "Seizo" Then	'製造部対応
				QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', 'ZS'"
			Else
				QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', 'SS'"
			End If
			Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
			Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
				If ContentNyusyuko.Fields("処理時期区分") = 0 Then
					NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
				End If
				ContentNyusyuko.MoveNext
			Loop
			If Mode = "Seizo" Then	'製造部対応
				QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', 'ZS', '" & NyusyukoBango & "'"
			Else
				QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', 'SS', '" & NyusyukoBango & "'"
			End If
			Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
			Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
				'繰越商品の明細を取得しておく（期首仕入伝票作成のため）
				If KurikoshiSyohinMeisai <> "" Then
					KurikoshiSyohinMeisai = KurikoshiSyohinMeisai & ";"
				End If
				KurikoshiSyohinMeisai = KurikoshiSyohinMeisai & ContentNyusyuko.Fields("商品CD") & ":" & ContentNyusyuko.Fields("数量") & ":" & ContentNyusyuko.Fields("単価")
				ContentNyusyuko.MoveNext
			Loop
		End If
	Else
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			TmpGyoshu = Content.Fields("業種CD")
		End If
	End If


	Dim WaitTime
	WaitTime = Request("WaitTime")

	If WaitTime <> "" And WaitTime <> "0" And WaitTime <> "1" Then
		Query = "exec SPMウェイトフラグ更新 '" & GB_SystemCD & "', '0'"
		Set Content = OpenQuery(Query)
		WaitTime = ""
	End If

	Dim WaitFlg
	WaitFlg = ""
	Query = "SELECT * FROM TC0ウェイトフラグ"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		WaitFlg = "" & Content.Fields("ウェイトフラグ")
	End If

	If WaitFlg <> "1" Then

		Query = "exec SPMウェイトフラグ更新 '" & GB_SystemCD & "', '1'"
		Set Content = OpenQuery(Query)


		'残高設定一括コピー用追加（080324小野）会社CDがNULLならば会社一覧ループで処理する
		Query = "exec SPM会社一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & TmpGyoshu & "', " & HyojiFlg
'Response.Write(Query)
'Exit Sub
		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

			'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

			Dim db
			Set db = InitQuery()

			TmpValue1 = split(SendValue, ";")
			Dim bCheck
			bCheck = 0
			jj = 0
			For ii = 0 To UBound(TmpValue1) - 1

				If jj = 10 Then
					jj = 1
				Else 
					jj = jj + 1
				End If

				TmpValue2 = split(TmpValue1(ii), ",")

				'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）
				Dim iii
				For iii = 0 To UBound(TmpValue2) - 1
					TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",")
					TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";")
				Next
				'半角カンマ・セミコロンを代替文字から元に戻す処理（070201小野）

				KanjyoCD(jj) = TmpValue2(0)
				KanjyoMeisyo(jj) = TmpValue2(1)
	'			TekiyoCD(jj) = ConvRevTekiyoMeisyo(TmpValue2(2))	'送信側で変換するため廃止
				TekiyoCD(jj) = TmpValue2(2)
				Tekiyo(jj) = TmpValue2(3)
				KarikataKingaku(jj) = TmpValue2(4)
				KashikataKingaku(jj) = TmpValue2(5)

				'繰越残高設定の繰越商品の合計額と繰越商品科目の金額が合わなければ繰越商品明細の期首仕入伝票を作成しない
				If KanjyoCD(jj) = KanjoCDKurikoshi Then
					KurikoshiSyohinSonzai = 1
					If KarikataKingaku(jj) <> KurikoshiSyohinKingaku Then
						KurikoshiSyohinMeisaiSave = ""
					End If
				End If

				If KarikataKingaku(jj) = "" Or KarikataKingaku(jj) = "0" Then
					KarikataKingaku(jj) = "null"
				End If

				If KashikataKingaku(jj) = "" Or KashikataKingaku(jj) = "0" Then
					KashikataKingaku(jj) = "null"
				End If

				If jj = 10 Or ii = UBound(TmpValue1) - 1 Then
					Query = "exec SPK繰越残高設定挿入10 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
					If Mode = "Seizo" Then	'製造部対応（080411小野）
						Query = Query & ", 'D8'"	'製造部振替伝票
					Else
						Query = Query & ", 'D5'"	'振替伝票
					End If
					Query = Query & ", " & jj	'行数
					For kk = 1 To jj
						Query = Query & ", '" & KanjyoCD(kk) & "'"
						Query = Query & ", '" & TekiyoCD(kk) & "'"
						Query = Query & ", '" & Tekiyo(kk) & "'"
						Query = Query & ",  " & KarikataKingaku(kk)
						Query = Query & ",  " & KashikataKingaku(kk)
					Next
					For kk = jj + 1 To 10	'余りは埋めないと例外エラーになる。プロシージャ側で無視されるので何でも良い。
						Query = Query & ", '" & KanjyoCD(jj) & "'"
						Query = Query & ", '" & TekiyoCD(jj) & "'"
						Query = Query & ", '" & Tekiyo(jj) & "'"
						Query = Query & ", null"
						Query = Query & ", null"
					Next
DebugQuery(Query)
					bCheck = 1
					Set Content = ExecQuery(db, Query)
				End If

			Next


			Query = "exec SPK繰越残高設定更新 '" & GB_SystemCD & "',"
			Query = Query & "  '" & EnshuCD & "'"
			Query = Query & ", '" & KaisyaCD & "'"
			If Mode = "Seizo" Then	'製造部対応（080411小野）
				Query = Query & ", 'D8'"	'製造部振替伝票
			Else
				Query = Query & ", 'D5'"	'振替伝票
			End If
			Query = Query & ", '" & GB_KaikeiKaishibi & "'"
			Query = Query & ", '" & GakuseiNo & "'"
DebugQuery(Query)
			Set Content = ExecQuery(db, Query)


			'繰越商品明細を期首仕入伝票として保存する（110124小野）
			If KurikoshiSyohinMeisaiSave = "Save" And KurikoshiSyohinMeisai <> "" And KurikoshiSyohinSonzai = 1 Then
				TmpValue1 = split(KurikoshiSyohinMeisai, ";")
				For ii = 0 To UBound(TmpValue1)
					TmpValue2 = split(TmpValue1(ii), ":")
					Query = "exec SPK繰越商品仕訳挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
					If Mode = "Seizo" Then
						Query = Query & ", 'D8'"	'製造部振替伝票
					Else
						Query = Query & ", 'D5'"	'振替伝票
					End If
					Query = Query & ", '" & TmpValue2(0) & "'"
					If TmpValue2(1) <> "" Then
						Query = Query & ", " & TmpValue2(1) & ""
					Else
						Query = Query & ", null"
					End If
					If TmpValue2(2) <> "" Then
						Query = Query & ", " & TmpValue2(2) & ""
					Else
						Query = Query & ", null"
					End If
					Query = Query & ", '" & GB_KaikeiKaishibi & "'"
					Query = Query & ", '" & GakuseiNo & "'"
					Set Content = ExecQuery(db, Query)
'Response.Write(Query)
'Exit Sub
				Next
			End If
			'繰越商品明細を期首仕入伝票を作成しない場合は削除として動作する
			Query = "exec SPK繰越商品仕訳更新 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
			If Mode = "Seizo" Then	'製造部対応
				Query = Query & ", 'D8'"	'製造部振替伝票
			Else
				Query = Query & ", 'D5'"	'振替伝票
			End If
			Query = Query & ", '" & GB_KaikeiKaishibi & "'"
			Query = Query & ", '" & GakuseiNo & "'"
			Set Content = ExecQuery(db, Query)

			'マスタ会社のMST処理
			If MSTKaishaCD <> "" Then
				Query = "exec SPM期首残高マスタ複製勘定"
				Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "', '" & MSTKaishaCD & "'"
				Set Content = OpenQuery(Query)
'Exit Sub
			End If

		End If
		Content2.MoveNext
	Loop



		Query = "exec SPMウェイトフラグ更新 '" & GB_SystemCD & "', '0'"
		Set Content = OpenQuery(Query)


'###############################################	 １．データの引継ぎ

		If CopyMoto <> "" Then
			If Mode <> "Seizo" Then
				Response.Redirect("fk_kanjyozandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&Mode=Seizo")	'Mode<>"Seizo"なら製造部門の処理へ飛ぶ
			Else
				Response.Redirect("fk_kanjyozandaka_tenki.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg)	'Mode="Seizo"なら帳簿転記へ飛ぶ
			End If
		End If

'		Query = "exec SPM記帳チェック挿入集計更新 '" & GB_SystemCD & "',"
'		Query = Query & " '" & EnshuCD & "',"
'		Query = Query & " '" & KaisyaCD & "'"
'		Set Content = OpenQuery(Query)

'SPM記帳チェック挿入集計更新は使わず
'別ASPモジュールから個別クエリするようにしてみた
'これでSQL無応答現象が抑えられれば良いのだが・・・（070228小野）

		Response.Redirect("fk_kityochecksonyusyukeikoushin_bin.asp?KaisyaCD=" & Request("KaisyaCD") & "&CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&Mode=" & Mode & "&Zandaka=kanjyo")
'	Response.Redirect("fk_kanjyozandaka_view.asp?KaisyaCD=" & Request("KaisyaCD"))

'	Response.Write("◆" & KaisyaMeisyo & "◆" & KaisyaRyakuMeisyo)

	Else


		If WaitTime = "1" Then
			WaitTime = "2"
		Else
			WaitTime = "1"
		End If

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 0;
-->
</SCRIPT>
<body bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="SubmitCheck()">
<form name="form1" method="POST" action="fk_kanjyozandaka_bin.asp">
<input type="hidden" name="KaisyaCD" value="<% = KaisyaCD %>">
<input type="hidden" name="SendValue" value="<% = SendValue %>">
<input type="hidden" name="Zandaka" value="kanjyo">
<input type="hidden" name="WaitTime" value="<% = WaitTime %>">
<input type="hidden" name="CopyMoto" value="<% = CopyMoto %>">
<input type="hidden" name="Mode" value="<% = Mode %>">
<input type="hidden" name="HyojiFlg" value="<% = HyojiFlg %>">
<BR>
　　<FONT COLOR="#FFFFFF">ただいま処理中です。しばらくお待ちください。</FONT>
</body>
<script language="JavaScript">

	function SubmitCheck() {
		setTimeout("SubmitReal(form1)",250);
	}

</SCRIPT>
</html>
<%


	End If


End Sub
%>