<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :補助簿_当座預金出納帳 ' 作成日:2002/9/6 ' 作成者:山崎 ' 目的 :補助簿_当座預金出納帳を表示する。 ' 概要 : ' <<表示>> ' ・補助簿_当座預金出納帳の画面 '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim GinkoCD GinkoCD = Request("GinkoCD") Dim PageType PageType = "当座預金出納帳" Dim RouteType RouteType = Request("RouteType") Dim Query Dim Content Dim ii,jj Dim AutoZandakaNyuryoku AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算") '仕訳日選択モード Dim Shiwakebi Shiwakebi = "0" If ShiwakebiSelect = 1 Then Shiwakebi = GetEnshuParam(EnshuCD, "日付仕訳日指定") End If ' Shiwakebi = "0" ' Shiwakebi = "1" Dim TmpShiwakebiAry If Shiwakebi = "1" Then Query = "" Query = Query & " " Query = Query & " " Query = Query & " SELECT 取引日 " Query = Query & " FROM TSK伝票F " Query = Query & " WHERE 削除フラグ = 0 " Query = Query & " AND システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 会社CD = '" & KaisyaCD & "' " Query = Query & " GROUP BY 取引日 " Query = Query & " ORDER BY 取引日 DESC " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) TmpShiwakebiAry = TmpShiwakebiAry & "\t" & SetTimeYYYYMMDD(Content.Fields("取引日")) Content.MoveNext Loop 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"> <link href="../../../binx/sj3tyobored.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 = 2; --> </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="fk_touzayokinsuitotyo_bin.asp" name="form1"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <input type="hidden" name="SendValue" value=""> <% If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", PageType, "", "", "", "", "","", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", PageType, "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", PageType, "tblbtn( '/" & HomeAlias & "/user/bk/hojyobo/fk_touzayokinsuitotyo.asp')", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If GinkoCD <> "" Then '※HttpL3_1にボタンを追加する事前処理(210107小野) Call HttpL3_1_AddBtn("行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up');", "行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn');", "", "", "", "", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行追加", "SpreadAddItem2(document.vaSpread1);", "行挿入", "SpreadInsertItem(document.vaSpread1);", "行削除", "SpreadDelItem(document.vaSpread1);", "", "")) Else Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) End If If GinkoCD <> "" Then 'Response.Write(HttpL3_2("照会", "tblbtn( 'fk_touzayokinsuitotyo_view.asp?RouteType=" & RouteType & "&GinkoCD=" & GinkoCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( 'fk_touzayokinsuitotyo_view.asp?RouteType=" & RouteType & "&GinkoCD=" & GinkoCD & "')", "印刷", "tblbtn( 'fk_touzayokinsuitotyo_view.asp?RouteType=" & RouteType & "&GinkoCD=" & GinkoCD & "&AutoPrint=1')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4(PageType, "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td align="center" valign="middle"> <table width="650" height="100%" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000"> <tr> <td align="center"> <table width="723" height="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" align="center" height="30"> <table border="0" width="180" cellspacing="0" cellpadding="0"> <tr> <td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpace(PageType) %></td> </tr> </table> </td> </tr> <tr> <td align="center" valign="middle" height="30"> <table height="30" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" class="tx1416">銀行名: </td> <td align="center"> <select size="1" name="GinkoCD" onChange="GinkoSelect()" onMouseOver="if(SubmitFlg!=0){this.focus();}" class="tbox4_w"> <option value=""> </option> <% Dim KaishaCDAry ReDim KaishaCDAry(0) Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 'サイバー会計では全会社表示(091110小野) If PackageMode = "1" Or Content.Fields("業種CD") = "B" Then ReDim PreServe KaishaCDAry(UBound(KaishaCDAry) + 1) '配列+1 KaishaCDAry(UBound(KaishaCDAry)) = Content.Fields("会社CD") Response.Write("<option value=""" & Content.Fields("会社CD") & """") If Content.Fields("会社CD") = GinkoCD Then Response.Write(" selected") End If Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf) End If Content.MoveNext Loop 'ゴミデータにもアクセス出来るようにする(091119小野) Dim TmpKaishaCD TmpKaishaCD = "" Query = "exec SPK補助簿_当座預金出納帳取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', ''" '全取得 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If TmpKaishaCD <> Content.Fields("銀行CD") Then TmpKaishaCD = Content.Fields("銀行CD") Dim SonzaiChk Dim TmpCnt SonzaiChk = 0 For TmpCnt = 1 To UBound(KaishaCDAry) If Content.Fields("銀行CD") = KaishaCDAry(TmpCnt) Then SonzaiChk = 1 Exit For End If Next If SonzaiChk = 0 Then Response.Write("<option value=""" & Content.Fields("銀行CD") & """") If Content.Fields("銀行CD") = GinkoCD Then Response.Write(" selected") End If Response.Write(">" & ConvKaisyaRyakuMeisyoDx(EnshuCD, Content.Fields("銀行CD")) & "</option>" & vbCrLf) End If End If Content.MoveNext Loop %> </select> </td> </tr> </table> </td> </tr> <tr> <td align="center" valign="middle"> <% If GinkoCD <> "" Then %> <table width="612" height="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="middle"> <object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331"> <param name="lpkpath" value="spread6.lpk"> </object> <object width="746" 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> </td> </tr> </table> <% Else %> <span class="tx1618"><font color="#ff0000">上のメニューより入力対象の銀行を選択してください</font></span> <BR> <BR> <BR> <BR> <BR> <% End If %> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <SCRIPT LANGUAGE="JavaScript"> function GinkoSelect(){ var v,i; i = form1.GinkoCD.selectedIndex; v = form1.GinkoCD.options[i].value; tblbtn("fk_touzayokinsuitotyo.asp?RouteType=<% = RouteType %>&GinkoCD=" + v); } var PlusCelNo, MinusCelNo, TotalCelNo,TaisyakuCelNo; var Zandaka , PlusMinus; PlusCelNo = 4; MinusCelNo = 5; TaisyakuCelNo = 6; TotalCelNo = 7; function SubmitCheck() { ////////残高チェックここから Zandaka = 0; ////////残高チェックここまで form1.SendValue.value = ""; var tmp1; for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++) { document.vaSpread1.Row = jj; var RowText; RowText = ""; var bCheck; PlusMinus = 0; PlusMinusFlg = 0; //残高補完フラグ(080620小野) bCheck = Array(); for(ii = 1; ii <= document.vaSpread1.MaxCols; ii++) { document.vaSpread1.Col = ii; //収入・支出の0入力はクリア if ((ii == MinusCelNo || ii == PlusCelNo) && document.vaSpread1.Text == "0") { document.vaSpread1.Text = ""; } <% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %> //残高自動設定 //収入・支出がNULLで無ければ残高補完フラグを立てる(080620小野) if ((ii == MinusCelNo || ii == PlusCelNo) && document.vaSpread1.Text != "") { PlusMinusFlg = 1; } //残高補完フラグが立っていれば補完する(080620小野) if (ii == TaisyakuCelNo && PlusMinusFlg == 1) { if(Zandaka >= 0)document.vaSpread1.Text = "借"; else document.vaSpread1.Text = "貸"; } if (ii == TotalCelNo && PlusMinusFlg == 1) { document.vaSpread1.Text = Math.abs(Zandaka); } <% End If %> bCheck[ii] = 0; var Text1; Text1 = document.vaSpread1.Text; //文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) if(document.vaSpread1.ColID == 1 || document.vaSpread1.ColID == 18 || document.vaSpread1.ColID == 22 || document.vaSpread1.ColID == 44) { Text1 = ReplaceStr(Text1, ",", "CommammoC") Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS") } //文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) if(document.vaSpread1.ColID == 12) { Text1 = ReplaceStr(Text1, ",", "") } RowText = RowText + Text1; RowText = RowText + ","; if(Text1 == "") { bCheck[ii] = 1; } ////////残高チェックここから if(Text1 != "") { if(ii == PlusCelNo) { Zandaka = Zandaka + Math.floor(Text1); } else if(ii == MinusCelNo) { Zandaka = Zandaka - Math.floor(Text1); } else if(ii == TaisyakuCelNo) { PlusMinus = 0; if(Text1=="借") { PlusMinus = 1; } else if(Text1=="貸") { PlusMinus = -1; } } if(ii == TotalCelNo) { var GamenZandaka = Math.floor(Text1) * PlusMinus; if(Zandaka != GamenZandaka) { alert("残高が合いません"); if(Zandaka == Math.abs(GamenZandaka)) { ii = TaisyakuCelNo; } document.vaSpread1.SetActiveCell(ii, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } } } ////////残高チェックここまで if (((ii == 4) || (ii == 5)) && (Text1 == "0")) { bCheck[ii] = 1; } } if(ReplaceStr(RowText, ",", "") != "") { if(bCheck[1] == 1) { alert("取引日を入力して下さい"); document.vaSpread1.SetActiveCell(1, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } if(bCheck[4] == 1 && bCheck[5] == 1) { alert("預入または引出を入力して下さい"); document.vaSpread1.SetActiveCell(4, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } if(bCheck[4] == 0 && bCheck[5] == 0) { alert("預入・引出両方には入力できません"); document.vaSpread1.SetActiveCell(4, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } if(bCheck[6] == 1) { alert("貸借を入力して下さい"); document.vaSpread1.SetActiveCell(6, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } if(bCheck[7] == 1) { alert("残高を入力して下さい"); document.vaSpread1.SetActiveCell(7, 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; <% ii = 0 Query = "exec SPK補助簿_当座預金出納帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & GinkoCD & "'" Set Content = OpenQuery(Query) '選択行の色を変える動作を停止(090624小野) Response.Write(" SpreadRowColorMode = false;" & vbCrLf) Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" fpSpread.Row = " & ii & ";" & vbCrLf) Response.Write(" fpSpread.Col = 1;" & vbCrLf) '仕訳日選択モード If Shiwakebi = "1" Then 'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加 If InStr(TmpShiwakebiAry, SetTimeYYYYMMDD(Content.Fields("取引日"))) < 1 Then Response.Write(" fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(Content.Fields("取引日")) & "\t" & TmpShiwakebiAry & """;" & vbCrLf) End If End If Response.Write(" fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("取引日")) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 2;" & vbCrLf) Response.Write(" fpSpread.Text = """ & Replace(Replace(Content.Fields("摘要"), "\", "\\"), """", "”") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 3;" & vbCrLf) Response.Write(" fpSpread.Text = """ & Replace(Replace(Content.Fields("小切手NO"), "\", "\\"), """", "”") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 4;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("預入金額"), false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 5;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("払出金額"), false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 6;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvKubunMeisyo("貸借略区分", Content.Fields("貸借区分")) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 7;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("残高"), false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 0;" & vbCrLf) Response.Write(" fpSpread.Text = "" "";" & vbCrLf) Content.MoveNext Loop '空白行を5行追加し1行目を選択状態にする(080620小野) ii = ii + 1 Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" document.vaSpread1.SetActiveCell(1, " & ii & ");" & vbCrLf) Response.Write(" fpSpread.EditMode=true;" & vbCrLf) '選択行の色を変える動作を再開(090624小野) Response.Write(" SpreadRowColorMode = true;" & vbCrLf) Response.Write(" SpreadRowColor(fpSpread);") '選択行の色を変える(090624小野) %> } </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript"> // SpreadKeyDown(this, KeyAsciiCode, KeyShift); </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript"> SpreadKeyUp(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) Else Call SetRenewCell(Me, ColNo, RowNo) End If </SCRIPT> <SCRIPT LANGUAGE="JavaScript"> function SetRenewCell(obj, ColNo, RowNo) { <% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %> //残高自動設定(080704小野) tmp = 0; for (jj = 1; jj <= obj.MaxRows; jj++) { ErrFlg = 0; obj.Row = jj; obj.Col = PlusCelNo; if ('' + obj.Text != '') { tmp = tmp + Math.floor(ConvMoneyToInt(obj.Text)); } else { ErrFlg = 1; } obj.Col = MinusCelNo; if ('' + obj.Text != '') { tmp = tmp - Math.floor(ConvMoneyToInt(obj.Text)); } else if (ErrFlg == 1) { ErrFlg = 2; } if (ErrFlg < 2) { obj.Col = TaisyakuCelNo; if (tmp < 0) { obj.Text = "貸"; } else { obj.Text = "借"; } obj.Col = TotalCelNo; obj.Text = Math.abs(tmp); } } <% End If %> } //スプレッドシート行移動(210107小野) function SpreadShiftRowSub(obj, Mode) { if (SpreadShiftRow(obj, Mode)) { //includesj.js //勘定科目名はSetRenewCellが必要 // var KanjoCDCol = 1; //勘定CD列を指定 // SetRenewCell(obj, KanjoCDCol, obj.ActiveRow); // if (obj.ActiveRow - 1 >= 1) { // SetRenewCell(obj, KanjoCDCol, obj.ActiveRow - 1); // } // if (obj.ActiveRow + 1 <= obj.MaxRows) { // SetRenewCell(obj, KanjoCDCol, obj.ActiveRow + 1); // } } } </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript"> // SpreadClick(this, ColNo, RowNo); this.Col = this.ActiveCol; this.Row = this.ActiveRow; this.EditMode = true; </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript"> this.focus(); </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; } } SpreadRowColor(this); //選択行の色を変える(090624小野) this.focus(); </SCRIPT> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> <% If GinkoCD <> "" Then %> document.vaSpread1.Redraw = false; <% If Shiwakebi = "1" Then %> //仕訳日選択モード SpreadLoad(document.vaSpread1, "取引日", 8, 12.5, "摘要", 44, 25, "小切手NO", 18, 12, "預入", 12, 12, "引出", 12, 12, "貸借", 8, 4.4, "残高", 12, 12); <% Else %> SpreadLoad(document.vaSpread1, "取引日", 0, 10.5, "摘要", 44, 25, "小切手NO", 18, 12, "預入", 12, 12, "引出", 12, 12, "貸借", 8, 4.4, "残高", 12, 12); <% End If %> document.vaSpread1.ScriptEnhanced = true; document.vaSpread1.Col = -1; document.vaSpread1.Row = -1; document.vaSpread1.fontsize = 11; document.vaSpread1.Col = 3; document.vaSpread1.Row = 0; document.vaSpread1.fontsize = 11; if(typeof(form1.dummy) == "object")form1.dummy.focus(); // SpreadInit 第 3n + 1 引数 (nは整数) // 0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要 44:摘要100byte <% If Shiwakebi = "1" Then %> //仕訳日選択モード document.vaSpread1.Row = -1; document.vaSpread1.Col = 1; document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>" <% End If %> document.vaSpread1.Row = -1; document.vaSpread1.Col = 6; document.vaSpread1.TypeComboBoxList = "\t借\t貸" //残高自動設定 <% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %> document.vaSpread1.Row = -1; document.vaSpread1.Col = 7; document.vaSpread1.BackColorStyle = 1; document.vaSpread1.BackColor = 0xE6E6E6; document.vaSpread1.Lock = true; <% End If %> document.vaSpread1.RetainSelBlock = false; SpreadInit(document.vaSpread1); document.vaSpread1.Redraw = true; <% End If %> </SCRIPT> <% = HtmlFooter %> </html> <% End Sub %>