<!-- #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 %>