
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：記帳チェック挿入集計更新
'	 作成日	：
'	 作成者	：小野
'	 目的	：SPM記帳チェック挿入集計更新の代替処理
'################################################
'-->
'
%>

<%
main()

Sub main()
	Dim Query, Content, Content2

	Dim ii
	If Request("KaisyaCD") <> "" Then
		KaisyaCD = Request("KaisyaCD")
	End If
	Dim Zandaka
	Zandaka = Request("Zandaka")
	Dim WaitTime
	WaitTime = Request("WaitTime")

	'製造部対応（080411小野）
	Dim Mode
	Mode = Request("Mode")


	'残高設定一括コピー用追加（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
	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")
		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



	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


	Dim InputGenkinSuitotyo
	Dim InputTouzayokinSuitotyo
	Dim InputUriagetyo
	Dim InputShiiretyo
	Dim InputUrikakekinMototyo
	Dim InputKaikakekinMototyo
	Dim InputUketoriTegatatyo
	Dim InputShiharaiTegatatyo

	Dim KinkoHyoji
	Dim YTegataHyoji
	Dim KTegataHyoji
	Dim TegataHyoji
	TegataHyoji = "1"

	Dim GinkoKozaToza
	Dim GinkoKozaFutu
	Dim GinkoKozaBetsudan
	Dim GinkoKozaTsumitate
	Dim GinkoKozaTeiki

	Dim InputSokanjyoMototyo , InputHojyobo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Dim YobiB
		InputSokanjyoMototyo = "" & Content.Fields("手動総勘定元帳表示")
		InputHojyobo = "" & Content.Fields("手動補助簿表示")
		InputGenkinSuitotyo = "" & Content.Fields("現金出納帳表示")
		InputTouzayokinSuitotyo = "" & Content.Fields("当座預金出納帳表示")
		InputUriagetyo = "" & Content.Fields("売上帳表示")
		InputShiiretyo = "" & Content.Fields("仕入帳表示")
		InputUrikakekinMototyo = "" & Content.Fields("売掛金元帳表示")
		InputKaikakekinMototyo = "" & Content.Fields("買掛金元帳表示")
		InputUketoriTegatatyo = "" & Content.Fields("受取手形記入帳表示")
		InputShiharaiTegatatyo = "" & Content.Fields("支払手形記入帳表示")
		KinkoHyoji = "" & Content.Fields("金庫表示")
		YTegataHyoji = "" & Content.Fields("約束手形表示")
		KTegataHyoji = "" & Content.Fields("為替手形表示")
		YobiB = Content.Fields("利用銀行口座種類")
		GinkoKozaToza = Mid(YobiB , 1, 1)
		GinkoKozaFutu = Mid(YobiB , 2, 1)
		GinkoKozaBetsudan = Mid(YobiB , 3, 1)
		GinkoKozaTsumitate = Mid(YobiB , 4, 1)
		GinkoKozaTeiki = Mid(YobiB , 5, 1)		
	End If

	If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then
		TegataHyoji = "0"
	End If

	If GinkoKozaFutu = "F" Then
		GinkoKozaFutu = 1
	Else
		GinkoKozaFutu = 0
	End If

	If GinkoKozaBetsudan = "B" Then
		GinkoKozaBetsudan = 1
	Else
		GinkoKozaBetsudan = 0
	End If

	If GinkoKozaTsumitate = "M" Then
		GinkoKozaTsumitate = 1
	Else
		GinkoKozaTsumitate = 0
	End If

	If GinkoKozaTeiki = "L" Then
		GinkoKozaTeiki = 1
	Else
		GinkoKozaTeiki = 0
	End If


Call Application.Lock() '多くの挿入処理が発生するためロックする

	Dim db
	Set db = InitQuery()

	Query = "exec SPM記帳チェック削除 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "',"
	Query = Query & " '" & KaisyaCD & "'"
	Set Content = ExecQuery(db, Query)

	Query = "exec SPM記帳チェック挿入伝票 '" & GB_SystemCD & "',"
	Query = Query & " '" & EnshuCD & "',"
	Query = Query & " '" & KaisyaCD & "'"
	Set Content = ExecQuery(db, Query)

	If InputSokanjyoMototyo = "1" Then
		Query = "exec SPM記帳チェック挿入元帳 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "',"
		Query = Query & " '" & KaisyaCD & "'"
		Set Content = ExecQuery(db, Query)
	End If

	If InputHojyobo = "1" Then
		Query = "exec SPM記帳チェック挿入補助簿個別 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
		Query = Query & ", '" & InputGenkinSuitotyo & "'"
		Query = Query & ", '" & InputTouzayokinSuitotyo & "'"
		Query = Query & ", '" & InputUriagetyo & "'"
		Query = Query & ", '" & InputShiiretyo & "'"
		Query = Query & ", '" & InputUrikakekinMototyo & "'"
		Query = Query & ", '" & InputKaikakekinMototyo & "'"
		Query = Query & ", '" & InputUketoriTegatatyo & "'"
		Query = Query & ", '" & InputShiharaiTegatatyo & "'"
'		Query = "exec SPM記帳チェック挿入補助簿 '" & GB_SystemCD & "',"
'		Query = Query & " '" & EnshuCD & "',"
'		Query = Query & " '" & KaisyaCD & "'"
		Set Content = ExecQuery(db, Query)
	End If

	If KinkoHyoji = "1" Then
		Query = "exec SPM記帳チェック挿入現物現金 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "',"
		Query = Query & " '" & KaisyaCD & "'"
		Set Content = ExecQuery(db, Query)
	End If

'	Query = "exec SPM記帳チェック挿入現物預金 '" & GB_SystemCD & "',"
'	Query = Query & " '" & EnshuCD & "',"
'	Query = Query & " '" & KaisyaCD & "'"
'	Set Content = ExecQuery(db, Query)

	Query = "exec SPM記帳チェック挿入現物預金2 '" & GB_SystemCD & "'"
	Query = Query & ", '" & EnshuCD & "'"
	Query = Query & ", '" & KaisyaCD & "'"
	Query = Query & ", " & GinkoKozaFutu
	Query = Query & ", " & GinkoKozaTeiki
	Query = Query & ", " & GinkoKozaTsumitate
	Query = Query & ", " & GinkoKozaBetsudan
	Set Content = ExecQuery(db, Query)


	If TegataHyoji = "1" Then
		Query = "exec SPM記帳チェック挿入現物受取手形 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "',"
		Query = Query & " '" & KaisyaCD & "'"
		Set Content = ExecQuery(db, Query)

		Query = "exec SPM記帳チェック挿入現物支払手形 '" & GB_SystemCD & "',"
		Query = Query & " '" & EnshuCD & "',"
		Query = Query & " '" & KaisyaCD & "'"
		Set Content = ExecQuery(db, Query)
	End If

Call Application.Unlock()


	End If
		Content2.MoveNext
	Loop


	Query = "exec SPMウェイトフラグ更新 '" & GB_SystemCD & "', '0'"
	Set Content = OpenQuery(Query)



	Dim TmpKaisya
	If CopyMoto <> "" Then
		TmpKaisya = CopyMoto
	Else
		TmpKaisya = Request("KaisyaCD")
	End If

	If CopyMoto <> "" Then
		Response.Redirect("../../../admin/master/kaisya/fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&ShijoCD=" & ShijoCD & "&Message=Copy&CopyMoto=" & CopyMoto & "&KaisyaCD=" & CopyMoto & "&Mode=" & Mode)
	ElseIf Zandaka = "kanjyo" Then
		Response.Redirect("fk_kanjyozandaka_view.asp?KaisyaCD=" & TmpKaisya & "&GyosyuCD=" & Request("GyosyuCD") & "&Mode=" & Mode & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg)
	ElseIf Zandaka = "tenki" Then
		Response.Redirect("fk_kanjyozandaka_view.asp?KaisyaCD=" & TmpKaisya & "&GyosyuCD=" & Request("GyosyuCD") & "&Mode=" & Mode & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&Zandaka=" & Zandaka)
	Else
		Response.Redirect("fk_kurikoshizandaka_view.asp?KaisyaCD=" & TmpKaisya & "&GyosyuCD=" & Request("GyosyuCD") & "&Mode=" & Mode & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg)
	End If


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_kityochecksonyusyukeikoushin_bin.asp">
<input type="hidden" name="KaisyaCD" value="<% = KaisyaCD %>">
<input type="hidden" name="Zandaka" value="<% = Zandaka %>">
<input type="hidden" name="WaitTime" value="<% = WaitTime %>">
<input type="hidden" name="CopyMoto" value="<% = CopyMoto %>">
<input type="hidden" name="ShijoCD" value="<% = ShijoCD %>">
<input type="hidden" name="HyojiFlg" value="<% = HyojiFlg %>">
<input type="hidden" name="Mode" value="<% = Mode %>">
<BR>
　　<FONT COLOR="#FFFFFF">ただいま処理中です。しばらくお待ちください。</FONT>
</body>
<script language="JavaScript">

	function SubmitCheck() {
		setTimeout("SubmitReal(form1)",250);
	}

</SCRIPT>
</html>
<%


End If


End Sub
%>