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

<%
'<!--
'################################################
'	 名称	:補助簿_現金出納帳
'	 作成日:2002/8/27
'	 作成者:山崎
'	 目的 :現金出納帳を表示する。
'	 概要	:
'		<<表示>>
'	・現金出納帳の画面
'	履歴 :2002/9/19 川崎 必須項目のチェックを追加
'
'################################################
'-->
'
%>
<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim PageType


	'期中口座開設の有無を確認するフラグ
	Dim KichuKaisetsu
	KichuKaisetsu = false


	Dim KozaKubun, KozaBango, BackGinkoCD
	BackGinkoCD = Request("BackGinkoCD")
	KozaKubun = Request("KozaKubun")
	KozaBango = Request("KozaBango")

	Dim GinkoCD
	If Left(GB_GyosyuKubun, 1) = "B" Then
		GinkoCD = KaisyaCD
		PageType = "口座一覧"
		PageType = "預金通帳"
	Else
		GinkoCD = Request("GinkoCD")
		PageType = "預金通帳"
	End If

	Dim TsutyoSyudoSyusei
	TsutyoSyudoSyusei = GetEnshuParam(EnshuCD, "通帳手動修正")

	If BackGinkoCD <> GinkoCD Then
		TsutyoSyudoSyusei = "0"
	End If

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	 method="POST" action="fb_torihikimeisai_bin.asp" name="form1" autocomplete="off">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="GinkoCD" value="<% = GinkoCD %>">
<input type="hidden" name="KozaKubun" value="<% = KozaKubun %>">
<input type="hidden" name="KozaBango" value="<% = KozaBango %>">
<input type="hidden" name="SendValue" value="">
<%
	If InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HtmlDesign(4))
	ElseIf InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HtmlDesign(2))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))



	If InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "社長室・総務部", "", "履歴", "", PageType, "","", "", "", ""))
	ElseIf GB_Gyosyu = "B" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "銀行", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b.asp')", "経理業務", "tblbtn('/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", PageType, "", "", "", "", ""))
	ElseIf GB_Gyosyu <> "B" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp?GinkoCD=" & GinkoCD & "')", PageType, "", "", "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", PageType, "", "", "", "", ""))
	End If


	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))


	If TsutyoSyudoSyusei = "1" Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem(document.vaSpread1);"))
	Else
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	End If

	If GB_Gyosyu = "B" Then
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("口座一覧", "tblbtn( 'fb_koza.asp?RouteType=" & RouteType & "&GinkoCD=" & BackGinkoCD & "&KozaBango=" & KozaBango & "')", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4(PageType, ConvKubunMeisyo("口座区分", KozaKubun) & ":" & KozaBango ))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="10">
<tr>
	<td align="center" valign="middle">
		<table width="720" height="99%" border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td height="5"><img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="100" height="5"></td>
		</tr>
		<tr>
			<td valign="bottom">
				<table width="720" height="100%" border="0" cellpadding="0" cellspacing="0">
				<tr>
					<td width="10" height="35">&nbsp;</td>
					<td height="35" valign="bottom">
						<table width="700" height="35" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFBED">
						<tr>
							<td width="30"><img src="/<% = HomeAlias %>/images/btb_mlu.gif?<% = GB_STU %>" width="10" height="35"></td>
							<td align="right" class="tx1416b" style="color:#FFAFA5"><% =ConvKaisyaRyakuMeisyoDx(EnshuCD, GinkoCD) %>  <% = ConvKubunMeisyo("口座区分", KozaKubun) & "預金" %>  <% = KozaBango %></td>
							<td width="30" align="right"><img src="/<% = HomeAlias %>/images/btb_mru.gif?<% = GB_STU %>" width="10" height="35"></td>
						</tr>
						</table>
					</td>
					<td width="10" height="35" valign="bottom"><img src="/<% = HomeAlias %>/images/btb_sdu.gif?<% = GB_STU %>" width="10" height="35"></td>
				</tr>
				<tr>
					<td height="25">&nbsp;</td>
					<td height="25">
						<table width="700" height="25" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFAFA5" background="/<% = HomeAlias %>/images/btb_ttbk.gif?<% = GB_STU %>" bgcolor="#FFFBED" frame="void" rules="cols" style="border-collapse:collapse" class="tx1416">
				<tr>
					<td width="16" height="25">&nbsp;</td>
					<td width="100" align="center">年月日</td>
					<td width="100" align="center">お支払金額</td>
					<td width="100" align="center">お預り金額</td>
					<td width="100" align="center">差引残高</td>
					<td width="100" align="center">取引内訳</td>
					<td align="center">摘要</td>
				</tr>
				</table>
			</td>
			<td height="25" background="/<% = HomeAlias %>/images/btb_sdc.gif?<% = GB_STU %>">&nbsp;</td>
		</tr>
		<tr>
			<td width="10">&nbsp;</td>
			<td valign="top">
			<div id="Layer1" style="position:absolute; width:700px; height:100%; z-index:1; overflow: auto;">
				<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
					<param name="lpkpath" value="spread6.lpk">
				</object>
				<object width="700" height="100%" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5"	codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread1" border="0">
				</object>
			</div>
			</td>
			<td width="10" background="/<% = HomeAlias %>/images/btb_sdc.gif?<% = GB_STU %>">&nbsp;</td>
		</tr>
		<tr>
			<td width="10" height="35">&nbsp;</td>
			<td height="35">
				<table width="700" height="35" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFAFA5" background="/<% = HomeAlias %>/images/btb_mc1.gif?<% = GB_STU %>" bgcolor="#FFF3E6" frame="void" rules="cols" style="border-collapse:collapse">
				<tr>
					<td width="16" height="20" bgcolor="#FFFBED"><img src="/<% = HomeAlias %>/images/btb_mld.gif?<% = GB_STU %>" width="16" height="35"></td>
					<td width="100">&nbsp;</td>
					<td width="100">&nbsp;</td>
					<td width="100">&nbsp;</td>
					<td width="100" background="/<% = HomeAlias %>/images/btb_mc2.gif?<% = GB_STU %>" bgcolor="#FFE9DD">&nbsp;</td>
					<td width="100">&nbsp;</td>
					<td align="right"><img src="/<% = HomeAlias %>/images/btb_mrd.gif?<% = GB_STU %>" width="5" height="35"></td>
				</tr>
				</table>
			</td>
			<td width="10" height="35"><img src="/<% = HomeAlias %>/images/btb_sdd.gif?<% = GB_STU %>" width="10" height="35"></td>
		</tr>
		</table>
	</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">

	function SubmitCheck()
	{

		form1.SendValue.value = ""
		for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++)
		{
			var bCheck;
			bCheck = Array();			
			RowText = "";	
			document.vaSpread1.Row = jj;
			for(ii = 1; ii <= document.vaSpread1.MaxCols; ii++)
			{
				document.vaSpread1.Col = ii;
				bCheck[ii] = 0;			
				var Text1;
				Text1 = document.vaSpread1.Text;

				if(document.vaSpread1.ColID == 12)
				{
					Text1 = ReplaceStr(Text1, ",", "")
				}

				RowText = RowText + Text1;
				RowText = RowText + ","

				if(Text1 == "")
				{
					bCheck[ii] = 1;
				}
				


			}
			if(ReplaceStr(RowText, ",", "") != "")
			{

				if(bCheck[1] == 1)
				{
					alert("取引日を入力して下さい");
					document.vaSpread1.SetActiveCell(1, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				else if(bCheck[4] == 1)
				{
					alert("残高を入力して下さい");
					document.vaSpread1.SetActiveCell(4, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}

			}
			form1.SendValue.value = form1.SendValue.value + RowText + ";"
		}
		SubmitReal(form1);
		return true;
	}



	function SpreadInit(fpSpread)
	{
		fpSpread.MaxRows = 0;
<%
	Dim Query
	Dim Content
	Dim ii, jj
	ii = 1

	Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & GinkoCD & "', '" & KozaKubun & "', '" & KozaBango & "'"

	Set Content = OpenQuery(Query)

	Dim Zandaka
	Zandaka = 0
	Do While Not(Content.BOF Or Content.EOF)
	'期中に口座開設が行われている場合は繰越金額0のゴミレコードを表示しない
	If Not(KichuKaisetsu) Or Content.Fields("処理時期区分") <> 0 Or Content.Fields("金額") > 0 Then
		If Content.Fields("処理時期区分") <> 0 And "" & Content.Fields("結果通知種類CD") = "BN" Then
			'期中に口座開設が行われている場合にフラグを立てる
			KichuKaisetsu = True
		End If
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		fpSpread.Row = " & ii & ";" & vbCrLf)
		Response.Write("		fpSpread.Col = 1;" & vbCrLf)
		Response.Write("		fpSpread.Text = """ & Content.Fields("処理日") & """;" & vbCrLf)
		Dim tmpKingaku
		tmpKingaku = Content.Fields("金額")
		If IsNull(tmpKingaku) Then
			tmpKingaku = 0
		End If

		If tmpKingaku = "" Then
			tmpKingaku = 0
		End If
		If Right(Content.Fields("銀行取引区分"), 1) <> "N" Then
			Response.Write("		fpSpread.Col = 2;" & vbCrLf)
			Zandaka = Zandaka - tmpKingaku
		Else
			Response.Write("		fpSpread.Col = 3;" & vbCrLf)
			Zandaka = Zandaka + tmpKingaku
		End If
		Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("金額"), false ,false) & """;" & vbCrLf)
		Response.Write("		fpSpread.Col = 4;" & vbCrLf)
		Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Zandaka , false ,false) & """;" & vbCrLf)
		Response.Write("		fpSpread.Col = 5;" & vbCrLf)
		Response.Write("		fpSpread.Text = """ & Content.Fields("銀行取引区分名称") & """;" & vbCrLf)
		Response.Write("		fpSpread.Col = 6;" & vbCrLf)
		If "" & Content.Fields("銀行取引区分") = "GN" And "" & Content.Fields("摘要") = "新規" Then
			Response.Write("		fpSpread.Text = ""ご新規"";" & vbCrLf)
		Else
			Response.Write("		fpSpread.Text = """ & Replace("" & Content.Fields("摘要"), "\", "\\") & """;" & vbCrLf)
		End If
		Response.Write("		fpSpread.Col = 0;" & vbCrLf)
		Response.Write("		fpSpread.Text = "" "";" & vbCrLf)
		ii = ii + 1
	End If
 		Content.MoveNext
	Loop

	For jj = ii To 23
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
	Next


	'全ての既読フラグを立てる(161220小野)
	Query = ""
	Query = Query & " UPDATE TGB銀行口座入出金TRN "
	Query = Query & " SET 既読フラグ = '1' "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " 	AND 銀行CD = '" & GinkoCD & "' "
	Query = Query & " 	AND 口座区分 = '" & KozaKubun & "' "
	Query = Query & " 	AND 口座番号 = '" & KozaBango & "' "
	Query = Query & " 	AND (既読フラグ <> '1' OR 既読フラグ IS NULL) "
	Set Content = OpenQuery(Query)

%>

 	}

</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
	SpreadKeyDown(this, KeyAsciiCode, KeyShift);
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript">
	Dim tmp
	tmp = SpreadChange(Me, ColNo, RowNo)
	If tmp = "ERR" Then
		Cancel = true
		SpreadReFocus(Me)
	End If
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
//	ヘッダー列クリック時にソートしない場合にはコメントアウトする
//	SpreadClick(this, ColNo, RowNo);
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="EditMode(Col, Row, Mode, ChangeMade)" LANGUAGE="JavaScript">
	this.Col = Col;
	this.Row = Row;
	if(this.CellType == 12)
	{
		if(!Mode)
		{
			this.TypeCurrencyLeadingZero = 2;
		}
	}
	this.focus();
</SCRIPT>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">

	if(typeof(form1.dummy) == "object")form1.dummy.focus();
//	document.vaSpread1.UnitType = 2;
	//	SpreadInit 第 3n + 1 引数 (nは整数)
	//	0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要
	document.vaSpread1.Redraw = false;
<%
	Dim TorihikiList
	If TsutyoSyudoSyusei = "1" Then
		TorihikiList = 8
	Else
		TorihikiList = 1
	End If
%>
	
	SpreadLoad(document.vaSpread1, "処理日", 0, 12.5, "出金", 12, 12.5, "入金", 12, 12.5, "残高", 12, 12.5, "取引", <% = TorihikiList %>, 12.5, "摘要", 22, 19.8);

	document.vaSpread1.ScriptEnhanced = true;
	//その他の Spread に関する設定はここに入れる

	//大外枠の色
	document.vaSpread1.BorderStyle = 0;

	//大外背景色
	document.vaSpread1.GrayAreaBackColor = 0xE6F3FF;

	//背景色
	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = -1;
	document.vaSpread1.BackColor = 0xE6F3FF;

	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 4;
	document.vaSpread1.BackColor = 0xDDE9FF;

	document.vaSpread1.ShadowColor = 0xEDFBFF;
	document.vaSpread1.ShadowDark = 0xA5AFFF;

	//グリット線
	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.GridColor = 0xA5AFFF;

	//列ヘッダの非表示
	document.vaSpread1.ColHeadersShow = false;

	//行ヘッダの高さ
//	document.vaSpread1.ColWidth(0) = 300;

	//幅
//	document.vaSpread1.RowHeight(-1) = 280;


	<% If TsutyoSyudoSyusei <> "1" Then %>
	document.vaSpread1.OperationMode = 1;
	document.vaSpread1.Lock = true;
	<% End if %>
	document.vaSpread1.Col = 5;
<%
	Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','銀行取引区分'"
	Set Content = OpenQuery(Query)

	Dim ListText
	ListText = ""
	Do While Not(Content.BOF Or Content.EOF)
		ListText = ListText & Content.Fields("区分名称")
		If ListText <> "" Then
			ListText = ListText & "\t"
		End If

		Content.MoveNext
	Loop
	Response.Write("document.vaSpread1.TypeComboBoxList = """ & ListText & """")

%>


	document.vaSpread1.RetainSelBlock = false;

	SpreadInit(document.vaSpread1);
	document.vaSpread1.Redraw = true;

</SCRIPT>

<% = HtmlFooter %>
</html>
<%
End Sub
%>