<!-- #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>
<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 = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="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">
<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"> </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"> </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"> </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 %>"> </td>
</tr>
<tr>
<td width="10"> </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 %>"> </td>
</tr>
<tr>
<td width="10" height="35"> </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"> </td>
<td width="100"> </td>
<td width="100"> </td>
<td width="100" background="/<% = HomeAlias %>/images/btb_mc2.gif?<% = GB_STU %>" bgcolor="#FFE9DD"> </td>
<td width="100"> </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
%>