<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：精算表整理記入
' 作成日：2002/8/27
' 作成者：山崎
' 目的 ：精算表整理記入を表示する。
' 概要 ：
' <<表示>>
' ・精算表整理記入の画面
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Cnt
Dim RouteType
RouteType = Request("RouteType")
'振替記入にトグルするためのフラグ（081021小野）
Dim Kimatsu
Kimatsu = Request("Kimatsu")
Dim PageType
Dim Label
PageType = "精算表整理記入"
Label = "整理"
If Kimatsu = "Kurikoshi" Then
PageType = "精算表振替記入"
Label = "振替"
End If
Dim Kaishibi
Dim Syuryobi
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
'勘定科目一覧を配列化
Dim KamokuCDAry
Dim KamokuMeiAry
Dim KamokuSaimokuAry
Dim KamokuKubunAry
ReDim KamokuCDAry(0)
ReDim KamokuMeiAry(0)
ReDim KamokuSaimokuAry(0)
ReDim KamokuKubunAry(0)
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
ReDim PreServe KamokuCDAry(UBound(KamokuCDAry) + 1) '配列+1
ReDim PreServe KamokuMeiAry(UBound(KamokuMeiAry) + 1) '配列+1
ReDim PreServe KamokuSaimokuAry(UBound(KamokuSaimokuAry) + 1) '配列+1
ReDim PreServe KamokuKubunAry(UBound(KamokuKubunAry) + 1) '配列+1
KamokuCDAry(UBound(KamokuCDAry)) = "" & Content.Fields("勘定CD")
KamokuMeiAry(UBound(KamokuMeiAry)) = "" & Content.Fields("勘定名称")
KamokuSaimokuAry(UBound(KamokuSaimokuAry)) = "" & Content.Fields("勘定細目")
KamokuKubunAry(UBound(KamokuKubunAry)) = "" & Content.Fields("勘定区分")
Content.MoveNext
Loop
Dim PreKanjyoMeisai
%>
<html>
<% = HtmlHeader("sj3tyobored11") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 2;
-->
</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="fk_seisanhyo_bin.asp" name="form1" autocomplete="off">
<input type="hidden" name="Kimatsu" value="<% = Kimatsu %>">
<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')", PageType, "", "", "", "", "", "", "", "", ""))
'ElseIf RouteType = "Ginko" Then
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_b1.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')", PageType, "", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If GB_IEmode = "1" Then
If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then
Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem3(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem2(document.vaSpread1);", "", ""))
Else
Response.Write(HttpL3_1("行の追加", "SpreadAddItem3(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem2(document.vaSpread1);", "", "", "", ""))
End If
Else
If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then
Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
End If
End If
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
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 HEIGHT="40" align="center" valign="middle">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%">
<tr align="CENTER">
<td height="32" onMouseOver="this.focus();this.focus();"> <!-- 勘定科目ボタン部分マウスオーバーでスプレッドシートオフフォーカス（061218小野）-->
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" WIDTH="680" HEIGHT="100%" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
<tr align="CENTER">
<td height="32"> </td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('A');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
<TR>
<TD id="TDAL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
<TD id="TDAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>資産</TD>
<TD id="TDAR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('B');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
<TR>
<TD id="TDBL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
<TD id="TDBC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>負債</TD>
<TD id="TDBR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('C');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
<TR>
<TD id="TDCL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
<TD id="TDCC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %></TD>
<TD id="TDCR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('D');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
<TR>
<TD id="TDDL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
<TD id="TDDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>収益</TD>
<TD id="TDDR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('E');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
<TR>
<TD id="TDEL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
<TD id="TDEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>費用</TD>
<TD id="TDER" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('F');" BGCOLOR="#33CCFF" CLASS="tbtn1">
<TR>
<TD id="TDFL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
<TD id="TDFC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>営業外損益</TD>
<TD id="TDFR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('G');" BGCOLOR="#33CCFF" CLASS="tbtn1">
<TR>
<TD id="TDGL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
<TD id="TDGC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>特別損益</TD>
<TD id="TDGR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('H');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
<TR>
<TD id="TDHL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
<TD id="TDHC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>その他</TD>
<TD id="TDHR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
<TR>
<TD id="TDL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>"></TD>
<TD id="TDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" nowrap>全勘定</TD>
<TD id="TDR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>"></TD>
</TR>
</TABLE>
</td>
<td height="32"> </td>
</tr>
</TABLE>
</td>
</tr>
</TABLE>
</td>
</tr>
<tr>
<td align="center" valign="middle">
<table width="680" height="100%" border="0" cellspacing="5" cellpadding="10" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center"<% If GB_IEmode = "1" Then %> background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"<% End If %>>
<table width="600" height="100%" border="0" cellspacing="0" cellpadding="0">
<% If GB_IEmode = "1" Then %>
<tr>
<td valign="middle">
<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<param name="lpkpath" value="spread6.lpk">
</object>
<object width="908" 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>
<tr>
<td height="49">
<object width="908" height="100%" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5" codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread2" border="0">
</object>
</td>
</tr>
<% Else %>
<%
Dim ShisanhyoKarikataGokei, ShisanhyoKashikataGokei
Dim SyuseikinyuKarikataGokei, SyuseikinyuKashikataGokei
Dim SonekikeisansyoKarikataGokei, SonekikeisansyoKashikataGokei
Dim TaisyakutaisyohyoKarikataGokei, TaisyakutaisyohyoKashikataGokei
ShisanhyoKarikataGokei = 0
ShisanhyoKashikataGokei = 0
SyuseikinyuKarikataGokei = 0
SyuseikinyuKashikataGokei = 0
SonekikeisansyoKarikataGokei = 0
SonekikeisansyoKashikataGokei = 0
TaisyakutaisyohyoKarikataGokei = 0
TaisyakutaisyohyoKashikataGokei = 0
Dim WidthCell1, WidthCell2, WidthParent, WidthParent2
Dim WidthCell3 '勘定科目
Dim HeightCell
HeightCell = 20
WidthCell1 = 50
WidthCell1 = 37 'フォント対応 -13
WidthCell2 = 89
WidthCell2 = 96 'フォント対応 +7 x 8 = +56
WidthCell3 = 152
WidthCell3 = 121 'フォント対応 -(56 - 13 - 12)
WidthParent = 949
WidthParent2 = 932
WidthParent = 961 'フォント対応+12
WidthParent2 = 944 'フォント対応+12
%>
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="<% = WidthParent %>" class="tx1214">
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
<tr HEIGHT="20">
<td rowspan="2" align="center" CLASS="br3b1" width="<% = WidthCell1 + WidthCell3 + 1 %>">勘定科目</td>
<td colspan="2" align="center" CLASS="br3b1">残高試算表</td>
<td colspan="2" align="center" CLASS="br3b1"><% = Label %>記入</td>
<td colspan="2" align="center" CLASS="br3b1">損益計算書</td>
<td colspan="2" align="center" CLASS="bb1">貸借対照表</td>
</tr>
<tr HEIGHT="20">
<td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td>
<td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td>
<td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td>
<td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td>
<td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td>
<td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td>
<td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td>
<td align="center" width="<% = WidthCell2 %>" CLASS="bb1">貸方</td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD HEIGHT="1" VALIGN="BOTTOM"></TD>
</TR>
<TR>
<TD VALIGN="TOP">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:<% = WidthParent %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<TABLE ID="SyoukaiList" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse: collapse">
<%
'スプレッドシート定義 ※全行共通なのでループ外
Dim SpMaxRow
Dim SpRowCnt
Dim SpMaxCol
SpRowCnt = 0
SpMaxRow = SpRowCnt
'フォーム名
SpFormName = "SpCell" '
'行定義
SpRowHeight = "23" '高さ(pixel指定)
SpRowCls = "" '行スタイルclass
SpRowStyle = "" '行スタイル
'列1定義
SpCellType(1) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(1) = "br1" 'セルスタイルclass
SpCellStyle(1) = "" 'セルスタイル
SpInputCls(1) = "Spread4Cro" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "this.blur();" 'onFocusで作動させるスクリプト
' SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
SpInputChange(1) = "" 'onChangeで作動させるスクリプト
SpInputRO(1) = "1" 'フォームreadonlyフラグ("1")
'列2定義
SpCellType(2) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(2) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(2) = "br3" 'セルスタイルclass
SpCellStyle(2) = "" 'セルスタイル
SpInputCls(2) = "Spread4Lro" 'フォームスタイルclass
SpInputStyle(2) = "" 'フォームスタイル
SpInputFocus(2) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
' SpInputChange(2) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
SpInputChange(2) = "" 'onChangeで作動させるスクリプト
SpInputRO(2) = "1" 'フォームreadonlyフラグ("1")
'列3定義
SpCellType(3) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(3) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "br1" 'セルスタイルclass
SpCellStyle(3) = "" 'セルスタイル
SpInputCls(3) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(3) = "" 'フォームスタイル
SpInputFocus(3) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(3) = "" 'onBlurで作動させるスクリプト
SpInputChange(3) = "" 'onChangeで作動させるスクリプト
SpInputRO(3) = "1" 'フォームreadonlyフラグ("1")
'列4定義
SpCellType(4) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(4) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(4) = "br3" 'セルスタイルclass
SpCellStyle(4) = "" 'セルスタイル
SpInputCls(4) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(4) = "" 'フォームスタイル
SpInputFocus(4) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(4) = "" 'onBlurで作動させるスクリプト
SpInputChange(4) = "" 'onChangeで作動させるスクリプト
SpInputRO(4) = "1" 'フォームreadonlyフラグ("1")
'列5定義
SpCellType(5) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(5) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(5) = "br1" 'セルスタイルclass
SpCellStyle(5) = "" 'セルスタイル
SpInputCls(5) = "Spread4R" 'フォームスタイルclass
SpInputStyle(5) = "" 'フォームスタイル
SpInputFocus(5) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(5) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(5) = "" 'onChangeで作動させるスクリプト
SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
'列6定義
SpCellType(6) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(6) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(6) = "br3" 'セルスタイルclass
SpCellStyle(6) = "" 'セルスタイル
SpInputCls(6) = "Spread4R" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(6) = "" 'onChangeで作動させるスクリプト
SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
'列7定義
SpCellType(7) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(7) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(7) = "br1" 'セルスタイルclass
SpCellStyle(7) = "" 'セルスタイル
SpInputCls(7) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(7) = "" 'フォームスタイル
SpInputFocus(7) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(7) = "" 'onBlurで作動させるスクリプト
SpInputChange(7) = "" 'onChangeで作動させるスクリプト
SpInputRO(7) = "1" 'フォームreadonlyフラグ("1")
'列8定義
SpCellType(8) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(8) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(8) = "br3" 'セルスタイルclass
SpCellStyle(8) = "" 'セルスタイル
SpInputCls(8) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(8) = "" 'フォームスタイル
SpInputFocus(8) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(8) = "" 'onBlurで作動させるスクリプト
SpInputChange(8) = "" 'onChangeで作動させるスクリプト
SpInputRO(8) = "1" 'フォームreadonlyフラグ("1")
'列9定義
SpCellType(9) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(9) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(9) = "br1" 'セルスタイルclass
SpCellStyle(9) = "" 'セルスタイル
SpInputCls(9) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(9) = "" 'フォームスタイル
SpInputFocus(9) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(9) = "" 'onBlurで作動させるスクリプト
SpInputChange(9) = "" 'onChangeで作動させるスクリプト
SpInputRO(9) = "1" 'フォームreadonlyフラグ("1")
'列10定義
SpCellType(10) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(10) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(10) = "b0" 'セルスタイルclass
SpCellStyle(10) = "" 'セルスタイル
SpInputCls(10) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(10) = "" 'フォームスタイル
SpInputFocus(10) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(10) = "" 'onBlurで作動させるスクリプト
SpInputChange(10) = "" 'onChangeで作動させるスクリプト
SpInputRO(10) = "1" 'フォームreadonlyフラグ("1")
ii = 0
Query = "exec SPK自動転記帳簿_八桁精算表照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Kaishibi & "','" & Syuryobi & "'"
If Kimatsu = "Kurikoshi" Then
Query = Query & ", 10"
Else
Query = Query & ", 9"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim ShisanhyoKarikata, ShisanhyoKashikata
Dim SyuseikinyuKarikata, SyuseikinyuKashikata
Dim SonekikeisansyoKarikata, SonekikeisansyoKashikata
Dim TaisyakutaisyohyoKarikata, TaisyakutaisyohyoKashikata
ShisanhyoKarikata = Content.Fields("試算表借方金額")
ShisanhyoKashikata = Content.Fields("試算表貸方金額")
SyuseikinyuKarikata = Content.Fields("整理記入借方金額")
SyuseikinyuKashikata = Content.Fields("整理記入貸方金額")
SonekikeisansyoKarikata = Content.Fields("損益計算書借方金額")
SonekikeisansyoKashikata = Content.Fields("損益計算書貸方金額")
TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額")
TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額")
'※この部分は社長に騙されて完全に誤ってた
'「資産勘定で貸方」または「資産勘定以外で借方」なら貸借対照表の貸借金額を反転する（090119小野）
' If Content.Fields("勘定細目") = "A" And Content.Fields("貸借区分") = "C" Then
' TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額") - Content.Fields("貸借対照表貸方金額")
' TaisyakutaisyohyoKashikata = 0
' End If
' その他勘定は反転しない（111012小野）
If Content.Fields("勘定細目") <> "A" And Content.Fields("勘定細目") <> "H" And Content.Fields("貸借区分") = "D" Then
TaisyakutaisyohyoKarikata = 0
TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額") - Content.Fields("貸借対照表借方金額")
End If
If IsNull(ShisanhyoKarikata) Then ShisanhyoKarikata = 0 End If
If IsNull(ShisanhyoKashikata) Then ShisanhyoKashikata = 0 End If
If IsNull(SyuseikinyuKarikata) Then SyuseikinyuKarikata = 0 End If
If IsNull(SyuseikinyuKashikata) Then SyuseikinyuKashikata = 0 End If
If IsNull(SonekikeisansyoKarikata) Then SonekikeisansyoKarikata = 0 End If
If IsNull(SonekikeisansyoKashikata) Then SonekikeisansyoKashikata = 0 End If
If IsNull(TaisyakutaisyohyoKarikata) Then TaisyakutaisyohyoKarikata = 0 End If
If IsNull(TaisyakutaisyohyoKashikata) Then TaisyakutaisyohyoKashikata = 0 End If
ShisanhyoKarikataGokei = ShisanhyoKarikataGokei + ShisanhyoKarikata
ShisanhyoKashikataGokei = ShisanhyoKashikataGokei + ShisanhyoKashikata
SyuseikinyuKarikataGokei = SyuseikinyuKarikataGokei + SyuseikinyuKarikata
SyuseikinyuKashikataGokei = SyuseikinyuKashikataGokei + SyuseikinyuKashikata
SonekikeisansyoKarikataGokei = SonekikeisansyoKarikataGokei + SonekikeisansyoKarikata
SonekikeisansyoKashikataGokei = SonekikeisansyoKashikataGokei + SonekikeisansyoKashikata
TaisyakutaisyohyoKarikataGokei = TaisyakutaisyohyoKarikataGokei + TaisyakutaisyohyoKarikata
TaisyakutaisyohyoKashikataGokei = TaisyakutaisyohyoKashikataGokei + TaisyakutaisyohyoKashikata
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
'試算表残高が存在しない行は編集・削除可能
If ShisanhyoKarikata = 0 And ShisanhyoKashikata = 0 Then
'列1定義
SpCellType(1) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpInputCls(1) = "Spread4C" 'フォームスタイルclass
SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
'列2定義
SpCellType(2) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpInputCls(2) = "Spread4L" 'フォームスタイルclass
SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
SpInputChange(2) = "KanjoMeiChange(this);SpSetBSPL();SpSetGokei();" 'onChangeで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
SpInputValue(1) = Content.Fields("勘定CD") 'フォーム初期値
SpInputValue(2) = ""
SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf
For Cnt = 1 To UBound(KamokuMeiAry)
SpInputOption(2) = SpInputOption(2) & "<option value=""" & KamokuCDAry(Cnt) & """"
If KamokuMeiAry(Cnt) = "" & Content.Fields("勘定名称") Then
SpInputOption(2) = SpInputOption(2) & " selected"
End If
SpInputOption(2) = SpInputOption(2) & ">" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf
Next
Else
'列1定義
SpCellType(1) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpInputCls(1) = "Spread4Cro" 'フォームスタイルclass
SpInputFocus(1) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
SpInputRO(1) = "1" 'フォームreadonlyフラグ("1")
'列2定義
SpCellType(2) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpInputCls(2) = "Spread4Lro" 'フォームスタイルclass
SpInputFocus(2) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
SpInputChange(2) = "" 'onChangeで作動させるスクリプト
SpInputRO(2) = "1" 'フォームreadonlyフラグ("1")
SpInputValue(1) = Content.Fields("勘定CD") 'フォーム初期値
SpInputValue(2) = Content.Fields("勘定名称") 'フォーム初期値
SpInputOption(2) = ""
End If
SpInputValue(3) = ConvIntToMoney(ShisanhyoKarikata, false, true) 'フォーム初期値
SpInputValue(4) = ConvIntToMoney(ShisanhyoKashikata, false, true) 'フォーム初期値
SpInputValue(5) = ConvIntToMoney(SyuseikinyuKarikata, false, true) 'フォーム初期値
SpInputValue(6) = ConvIntToMoney(SyuseikinyuKashikata, false, true) 'フォーム初期値
SpInputValue(7) = ConvIntToMoney(SonekikeisansyoKarikata, false, true) 'フォーム初期値
SpInputValue(8) = ConvIntToMoney(SonekikeisansyoKashikata, false, true) 'フォーム初期値
SpInputValue(9) = ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) 'フォーム初期値
SpInputValue(10) = ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
ii = ii + 1
If 0=1 Then
Response.Write("<TR HEIGHT=""" & HeightCell & """>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""center"" class=""br1"">" & Content.Fields("勘定CD") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell3 & """ ALIGN=""LEFT"" class=""br3"">" & AscLeft(Content.Fields("勘定名称"),18) & "</TD>" & vbCrLf) '勘定名称を18Byteで切り捨て（061102小野）
Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(ShisanhyoKarikata, false, true) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(ShisanhyoKashikata, false, true) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(SyuseikinyuKarikata, false, true) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(SyuseikinyuKashikata, false, true) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(SonekikeisansyoKarikata, false, true) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(SonekikeisansyoKashikata, false, true) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) & "</TD>" & vbCrLf)
Response.Write("</TR>" & vbCrLf)
End If
Content.MoveNext
Loop
'スプレッドシートの空白行を発生させる
'※↓↓↓追加行は勘定科目可変なので再定義
'列1定義
SpCellType(1) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpInputCls(1) = "Spread4C" 'フォームスタイルclass
SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
'列2定義
SpCellType(2) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpInputCls(2) = "Spread4L" 'フォームスタイルclass
SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
SpInputChange(2) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
'※↑↑↑追加行は勘定科目可変なので再定義
SpInputValue(1) = "" 'フォーム初期値
SpInputValue(2) = "" 'フォーム初期値
SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf
For Cnt = 1 To UBound(KamokuMeiAry)
SpInputOption(2) = SpInputOption(2) & "<option value=""" & KamokuCDAry(Cnt) & """>" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf
Next
SpInputValue(3) = "" 'フォーム初期値
SpInputValue(4) = "" 'フォーム初期値
SpInputValue(5) = "" 'フォーム初期値
SpInputValue(6) = "" 'フォーム初期値
SpInputValue(7) = "" 'フォーム初期値
SpInputValue(8) = "" 'フォーム初期値
SpInputValue(9) = "" 'フォーム初期値
SpInputValue(10) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
</TABLE>
</DIV>
</TD>
</TR>
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="<% = WidthParent %>" class="tx1214">
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" STYLE="border-collapse: collapse">
<tr HEIGHT="<% = HeightCell %>">
<td align="left" width="<% = WidthCell1 + WidthCell3 + 1 %>" class="br3b1">試算表合計</td>
<td id="ShisanhyoKarikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ShisanhyoKarikataGokei, false, true) %></td>
<td id="ShisanhyoKashikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br3b1" style="padding-right:3px;"><% = ConvIntToMoney(ShisanhyoKashikataGokei, false, true) %></td>
<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
<td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td>
<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
<td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td>
<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
<td align="right" width="<% = WidthCell2 %>" class="bb1"> </td>
</tr>
<tr HEIGHT="<% = HeightCell %>">
<td id="SonekiLabel" align="left" class="br3b1"><%
If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then
Response.Write("当期利益")
ElseIf SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then
Response.Write("当期損失")
Else
Response.Write("当期")
End If
%></td>
<%
Dim ToukiPLKari
Dim ToukiPLKashi
Dim ToukiBSKari
Dim ToukiBSKashi
ToukiPLKari = SonekikeisansyoKashikataGokei - SonekikeisansyoKarikataGokei
ToukiPLKashi = SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei
ToukiBSKari = TaisyakutaisyohyoKashikataGokei - TaisyakutaisyohyoKarikataGokei
ToukiBSKashi = TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei
If ToukiPLKari <= 0 Then ToukiPLKari = null End If
If ToukiPLKashi <= 0 Then ToukiPLKashi = null End If
If ToukiBSKari <= 0 Then ToukiBSKari = null End If
If ToukiBSKashi <= 0 Then ToukiBSKashi = null End If
%>
<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
<td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td>
<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
<td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td>
<td id="ToukiPLKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiPLKari, false, true) %></td>
<td id="ToukiPLKashi" align="right" width="<% = WidthCell2 - 3 %>" class="br3b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiPLKashi, false, true) %></td>
<td id="ToukiBSKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiBSKari, false, true) %></td>
<td id="ToukiBSKashi" align="right" width="<% = WidthCell2 - 3 %>" class="bb1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiBSKashi, false, true) %></td>
</tr>
<tr HEIGHT="<% = HeightCell %>">
<%
Dim GokeiPLKari
Dim GokeiPLKashi
Dim GokeiBSKari
Dim GokeiBSKashi
If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then
GokeiPLKari = SonekikeisansyoKashikataGokei
Else
GokeiPLKari = SonekikeisansyoKarikataGokei
End If
If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then
GokeiPLKashi = SonekikeisansyoKarikataGokei
Else
GokeiPLKashi = SonekikeisansyoKashikataGokei
End If
If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei < 0 Then
GokeiBSKari = TaisyakutaisyohyoKashikataGokei
Else
GokeiBSKari = TaisyakutaisyohyoKarikataGokei
End If
If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei > 0 Then
GokeiBSKashi = TaisyakutaisyohyoKarikataGokei
Else
GokeiBSKashi = TaisyakutaisyohyoKashikataGokei
End If
%>
<td align="left" class="br3b3">合計</td>
<td align="right" width="<% = WidthCell2 %>" class="br1b3"> </td>
<td align="right" width="<% = WidthCell2 %>" class="br3b3"> </td>
<td id="SyuseikinyuKarikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(SyuseikinyuKarikataGokei, false, true) %></td>
<td id="SyuseikinyuKashikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br3b3" style="padding-right:3px;"><% = ConvIntToMoney(SyuseikinyuKashikataGokei, false, true) %></td>
<td id="GokeiPLKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiPLKari, false, true) %></td>
<td id="GokeiPLKashi" align="right" width="<% = WidthCell2 - 3 %>" class="br3b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiPLKashi, false, true) %></td>
<td id="GokeiBSKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiBSKari, false, true) %></td>
<td id="GokeiBSKashi" align="right" width="<% = WidthCell2 - 3 %>" class="bb3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiBSKashi, false, true) %></td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD colspan="10" height="1" align="center" class="tx1214">
※入力行が足りない場合は一度「保存」してください
</td>
</TR>
<% End If %>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
<%
Dim KanjyoCDCol
KanjyoCDCol = 1
%>
<SCRIPT LANGUAGE="JavaScript">
//↓ブラウザ不問の共通関数
var KanjyoMeisaiSelected;
KanjyoMeisaiSelected = "";
//勘定CDから勘定名称に変換
function ConvKanjyoMeisyoDx(KanjyoCD) {
<%
For Cnt = 1 To UBound(KamokuCDAry)
Response.Write(" if (KanjyoCD == """ & KamokuCDAry(Cnt) & """)return """ & KamokuMeiAry(Cnt) & """;" & vbCrLf)
Next
%>
return "";
}
//勘定名称から勘定CDを逆引き
function ConvRevKanjyoMeisyo(KanjyoMeisyo) {
<%
For Cnt = 1 To UBound(KamokuCDAry)
Response.Write(" if (KanjyoMeisyo == """ & KamokuMeiAry(Cnt) & """)return """ & KamokuCDAry(Cnt) & """;" & vbCrLf)
Next
%>
return "";
}
//↑ブラウザ不問の共通関数
</SCRIPT>
<% If GB_IEmode <> "1" Then %>
<SCRIPT LANGUAGE="JavaScript">
SpMinRow = 1;
SpMaxRow = <% = SpMaxRow %>;
<%
'最大セル番号を取得
SpMaxCol = 0
For Cnt = 1 To UBound(SpCellType)
If "" & SpCellType(Cnt) <> "" Then
SpMaxCol = Cnt
End If
Next
%>
SpMaxCol = <% = SpMaxCol %>;
//勘定CDから勘定区分に変換
function ConvKanjyoKubun(KanjyoCD) {
<%
For Cnt = 1 To UBound(KamokuCDAry)
Response.Write(" if (KanjyoCD == """ & KamokuCDAry(Cnt) & """)return """ & KamokuKubunAry(Cnt) & """;" & vbCrLf)
Next
%>
return "";
}
//各行のBS/PL横計 ※勘定区分B/Pに従ってBS/PLに集計する
function SpSetBSPL() {
var Karikata = 0;
var Kashikata = 0;
var KamokuKubun = ConvKanjyoKubun(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_1")[0].value);
if (KamokuKubun != "") {
document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_7")[0].value = "";
document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_8")[0].value = "";
document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_9")[0].value = "";
document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_10")[0].value = "";
//整理記入の金額を取得
if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_5")[0].value != "") {
Karikata = Karikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_5")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_6")[0].value != "") {
Kashikata = Kashikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_6")[0].value));
}
//借方と貸方の差を計算
if (Karikata > Kashikata) {
Karikata = Karikata - Kashikata;
Kashikata = 0;
} else if (Kashikata > Karikata) {
Kashikata = Kashikata - Karikata;
Karikata = 0;
} else {
Karikata = 0;
Kashikata = 0;
}
//残高試算表の金額を加算
if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_3")[0].value != "") {
Karikata = Karikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_3")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_4")[0].value != "") {
Kashikata = Kashikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_4")[0].value));
}
if (KamokuKubun == "P") {
//PLに反映
if (Karikata > 0) {
document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_7")[0].value = NumComma(Karikata, false); //NumCommaはマイナスを許容＆文字列引数で動作する
}
if (Kashikata > 0) {
document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_8")[0].value = NumComma(Kashikata, false); //NumCommaはマイナスを許容＆文字列引数で動作する
}
} else if (KamokuKubun == "B") {
//BSに反映
if (Karikata > 0) {
document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_9")[0].value = NumComma(Karikata, false); //NumCommaはマイナスを許容＆文字列引数で動作する
}
if (Kashikata > 0) {
document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_10")[0].value = NumComma(Kashikata, false); //NumCommaはマイナスを許容＆文字列引数で動作する
}
}
}
}
//保存時のチェックに使うのでグローバル
var SyuseikinyuKarikataGokei = 0;
var SyuseikinyuKashikataGokei = 0;
function SpSetGokei() {
//alert("");
//縦集計
ShisanhyoKarikataGokei = 0;
ShisanhyoKashikataGokei = 0;
SyuseikinyuKarikataGokei = 0;
SyuseikinyuKashikataGokei = 0;
SonekikeisansyoKarikataGokei = 0;
SonekikeisansyoKashikataGokei = 0;
TaisyakutaisyohyoKarikataGokei = 0;
TaisyakutaisyohyoKashikataGokei = 0;
for (ii = SpMinRow; ii <= SpMaxRow; ii++) {
if (document.getElementsByName("<% = SpFormName %>" + ii + "_3")[0].value != "") {
ShisanhyoKarikataGokei = ShisanhyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_3")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + ii + "_4")[0].value != "") {
ShisanhyoKashikataGokei = ShisanhyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_4")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + ii + "_5")[0].value != "") {
SyuseikinyuKarikataGokei = SyuseikinyuKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_5")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + ii + "_6")[0].value != "") {
SyuseikinyuKashikataGokei = SyuseikinyuKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_6")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + ii + "_7")[0].value != "") {
SonekikeisansyoKarikataGokei = SonekikeisansyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_7")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + ii + "_8")[0].value != "") {
SonekikeisansyoKashikataGokei = SonekikeisansyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_8")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + ii + "_9")[0].value != "") {
TaisyakutaisyohyoKarikataGokei = TaisyakutaisyohyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_9")[0].value));
}
if (document.getElementsByName("<% = SpFormName %>" + ii + "_10")[0].value != "") {
TaisyakutaisyohyoKashikataGokei = TaisyakutaisyohyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_10")[0].value));
}
}
//試算表合計
document.getElementById("ShisanhyoKarikataGokei").innerHTML = NumComma(ShisanhyoKarikataGokei, false); //NumCommaはマイナスを許容＆文字列引数で動作する
document.getElementById("ShisanhyoKashikataGokei").innerHTML = NumComma(ShisanhyoKashikataGokei, false); //NumCommaはマイナスを許容＆文字列引数で動作する
//当期利益/損失
ToukiPLKari = SonekikeisansyoKashikataGokei - SonekikeisansyoKarikataGokei;
ToukiPLKashi = SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei;
ToukiBSKari = TaisyakutaisyohyoKashikataGokei - TaisyakutaisyohyoKarikataGokei;
ToukiBSKashi = TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei;
document.getElementById("ToukiPLKari").innerHTML = "";
document.getElementById("ToukiPLKashi").innerHTML = "";
document.getElementById("ToukiBSKari").innerHTML = "";
document.getElementById("ToukiBSKashi").innerHTML = "";
if (ToukiPLKari > 0) {
document.getElementById("ToukiPLKari").innerHTML = NumComma(ToukiPLKari, false); //NumCommaはマイナスを許容＆文字列引数で動作する
}
if (ToukiPLKashi > 0) {
document.getElementById("ToukiPLKashi").innerHTML = NumComma(ToukiPLKashi, false); //NumCommaはマイナスを許容＆文字列引数で動作する
}
if (ToukiBSKari > 0) {
document.getElementById("ToukiBSKari").innerHTML = NumComma(ToukiBSKari, false); //NumCommaはマイナスを許容＆文字列引数で動作する
}
if (ToukiBSKashi > 0) {
document.getElementById("ToukiBSKashi").innerHTML = NumComma(ToukiBSKashi, false); //NumCommaはマイナスを許容＆文字列引数で動作する
}
document.getElementById("SonekiLabel").innerHTML = "当期";
if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0) {
document.getElementById("SonekiLabel").innerHTML = "当期利益";
} else if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0) {
document.getElementById("SonekiLabel").innerHTML = "当期損失";
}
//合計
document.getElementById("SyuseikinyuKarikataGokei").innerHTML = NumComma(SyuseikinyuKarikataGokei, false); //NumCommaはマイナスを許容＆文字列引数で動作する;
document.getElementById("SyuseikinyuKashikataGokei").innerHTML = NumComma(SyuseikinyuKashikataGokei, false); //NumCommaはマイナスを許容＆文字列引数で動作する;
GokeiPLKari = 0;
GokeiPLKashi = 0;
GokeiBSKari = 0;
GokeiBSKashi = 0;
GokeiPLKari = SonekikeisansyoKarikataGokei;
if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0) {
GokeiPLKari = SonekikeisansyoKashikataGokei;
}
GokeiPLKashi = SonekikeisansyoKashikataGokei;
if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0) {
GokeiPLKashi = SonekikeisansyoKarikataGokei;
}
GokeiBSKari = TaisyakutaisyohyoKarikataGokei;
if (TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei < 0) {
GokeiBSKari = TaisyakutaisyohyoKashikataGokei;
}
GokeiBSKashi = TaisyakutaisyohyoKashikataGokei;
if (TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei > 0) {
GokeiBSKashi = TaisyakutaisyohyoKarikataGokei;
}
document.getElementById("GokeiPLKari").innerHTML = NumComma(GokeiPLKari, false); //NumCommaはマイナスを許容＆文字列引数で動作する;
document.getElementById("GokeiPLKashi").innerHTML = NumComma(GokeiPLKashi, false); //NumCommaはマイナスを許容＆文字列引数で動作する;
document.getElementById("GokeiBSKari").innerHTML = NumComma(GokeiBSKari, false); //NumCommaはマイナスを許容＆文字列引数で動作する;
document.getElementById("GokeiBSKashi").innerHTML = NumComma(GokeiBSKashi, false); //NumCommaはマイナスを許容＆文字列引数で動作する;
}
//勘定科目セルがinput(readonry)とselectの2種類があるので行挿入・行削除・行移動ができない。なので以下は非利用。
function SpRowInsertSub() {
//プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する
//現在の絞込み状態を保持
TmpKanjoSaimoku = KanjyoMeisaiSelected;
//絞込みを解除(全科目は除く)
if (TmpKanjoSaimoku != "") {
SetKanjyoKamokuList("");
}
//行挿入
SpRowInsert();
//絞込みを復元(全科目は除く)
if (TmpKanjoSaimoku != "") {
SetKanjyoKamokuList(TmpKanjoSaimoku);
}
}
function SpRowDeleteSub() {
//プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する
//現在の絞込み状態を保持
TmpKanjoSaimoku = KanjyoMeisaiSelected;
//絞込みを解除(全科目は除く)
if (TmpKanjoSaimoku != "") {
SetKanjyoKamokuList("");
}
//行削除
SpRowDelete();
//絞込みを復元(全科目は除く)
if (TmpKanjoSaimoku != "") {
SetKanjyoKamokuList(TmpKanjoSaimoku);
}
SpSetGokei(); //削除時は再計算
}
function SpRowShiftSub(UpDown) {
//プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する
//現在の絞込み状態を保持
TmpKanjoSaimoku = KanjyoMeisaiSelected;
//絞込みを解除(全科目は除く)
if (TmpKanjoSaimoku != "") {
SetKanjyoKamokuList("");
}
//行入れ替え
SpRowShift(UpDown);
//絞込みを復元(全科目は除く)
if (TmpKanjoSaimoku != "") {
SetKanjyoKamokuList(TmpKanjoSaimoku);
}
}
function KanjoCDChange(Form) {
TmpValue = Form.value;
TmpForm = Form.name.split("_");
Target = TmpForm[0] + "_" + (eval(TmpForm[1]) + 1);
//alert(Target);
elm = document.getElementsByName(Target)[0];
if (TmpValue != "") {
if (ConvKanjyoMeisyoDx(TmpValue) == "") {
alert("入力された勘定科目コードは存在しません");
Form.value = "";
TmpValue = "";
}
}
//プルダウンの先頭項目にセット(TmpValueがnullならクリアされる)
SetKamokuList(elm, TmpValue);
}
function KanjoMeiChange(Form) {
//alert(Form.value);
TmpForm = Form.name.split("_");
Target = TmpForm[0] + "_" + (eval(TmpForm[1]) - 1);
//alert(Target);
elm = document.getElementsByName(Target)[0];
elm.value = Form.value;
}
function SetKanjyoKamokuList(kanjyomeisai) {
KanjyoMeisaiSelected = kanjyomeisai;
var Meisais;
var ii;
Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", "");
for (ii=0; ii<Meisais.length; ii++) {
// document.all.item("TD" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>";
document.getElementById("TD" + Meisais[ii] + "L").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>')";
document.getElementById("TD" + Meisais[ii] + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>')";
document.getElementById("TD" + Meisais[ii] + "R").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>')";
}
// document.all.item("TD" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>";
document.getElementById("TD" + KanjyoMeisaiSelected + "L").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>')";
document.getElementById("TD" + KanjyoMeisaiSelected + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>')";
document.getElementById("TD" + KanjyoMeisaiSelected + "R").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>')";
for (ii = SpMinRow; ii <= SpMaxRow; ii++) {
Target = "<% = SpFormName %>" + ii + "_2";
elm = document.getElementsByName(Target)[0];
if (elm.tagName.toLowerCase() == "select") { //selectタグのみ
//現在選択されている科目を保持する
TmpValue = elm.options[elm.selectedIndex].value;
SetKamokuList(elm, TmpValue);
}
}
}
function SetKamokuList(elm, TmpValue) {
//プルダウン項目を全クリア
do {
elm.options[0] = null;
} while (elm.length != 0)
Idx = 0;
if (TmpValue != "") {
//先頭項目に追加
elm.options[Idx] = new Option(ConvKanjyoMeisyoDx(TmpValue), TmpValue);
Idx = Idx + 1;
}
elm.options[Idx] = new Option("", ""); //空白項目
Idx = Idx + 1;
//2行目以降は現在選択されている勘定細目(KanjyoMeisaiSelected)に従う
<%
PreKanjyoMeisai = ""
Response.Write("if (1 == 0) {" & vbCrLf) '最初のネストを開く（ループ内で常に閉じてから開くためのダミー）
For Cnt = 1 To UBound(KamokuCDAry)
' If KamokuCDAry(Cnt) <> KanjyoCD Then '元帳勘定科目を除外
If PreKanjyoMeisai <> KamokuSaimokuAry(Cnt) Then
'勘定科目が変わったらネストを閉じて開く
Response.Write("}" & vbCrLf)
Response.Write("if (KanjyoMeisaiSelected == """" || KanjyoMeisaiSelected == """ & KamokuSaimokuAry(Cnt) & """) {" & vbCrLf)
PreKanjyoMeisai = KamokuSaimokuAry(Cnt)
End If
Response.Write("elm.options[Idx] = new Option(""" & KamokuMeiAry(Cnt) & """, """ & KamokuCDAry(Cnt) & """);")
Response.Write("Idx = Idx + 1;" & vbCrLf)
' End If
Next
Response.Write("}" & vbCrLf) '最後のネストを閉じる
%>
// elm.selectedIndex = 0; //常に先頭行を選択する
elm.value = TmpValue; //該当項目を選択
}
function SubmitCheck() {
//alert(SubmitCheck);
SpSetGokei();
if (SyuseikinyuKarikataGokei != SyuseikinyuKashikataGokei) {
alert("<% = Label %>記入の貸借が一致しません ");
return false;
}
form1.SendValue.value = "";
for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
Target = "SpCell" + jj + "_" //セル番号を除くフォーム名
var Text1, Text5, Text6;
Text1 = form1[Target + 1].value;
Text5 = form1[Target + 5].value;
Text6 = form1[Target + 6].value;
//通貨のカンマ区切りを外す
Text5 = ReplaceStr(Text5, ",", "")
Text6 = ReplaceStr(Text6, ",", "")
//文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理（070201小野）
// Text1 = ReplaceStr(Text1, ",", "CommammoC")
// Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS")
if (((Text5 != "0" && Text5 != "") || (Text6 != "0" && Text6 != "")) && Text1 == "") {
alert("勘定科目を選択してください");
form1[Target + 2].focus();
return;
}
form1.SendValue.value = form1.SendValue.value + Text1;
form1.SendValue.value = form1.SendValue.value + ","
form1.SendValue.value = form1.SendValue.value + Text5;
form1.SendValue.value = form1.SendValue.value + ","
form1.SendValue.value = form1.SendValue.value + Text6;
form1.SendValue.value = form1.SendValue.value + ","
form1.SendValue.value = form1.SendValue.value + ";"
}
//alert(form1.SendValue.value);
SubmitReal(form1);
return true;
}
window.onload = function() {
}
</SCRIPT>
<% Else %>
<SCRIPT LANGUAGE="JavaScript">
var StrKanjyoKubun, aKanjyoKubun ;
var StrTaisyakuKubun, aTaisyakuKubun ;
function SubmitCheck() {
var kari;
var kasi;
var sa;
document.vaSpread2.Row = 3;
document.vaSpread2.Col = 5;
kari = ConvMoneyToInt(document.vaSpread2.value);
if (isNaN(kari)) {
kari=0;
}
document.vaSpread2.Col = 6;
kasi = ConvMoneyToInt(document.vaSpread2.value);
if (isNaN(kasi)) {
kasi=0;
}
sa = kari - kasi;
if(sa != 0) {
alert("整理記入の貸借の差が" + Math.abs(sa) + "円あり、一致しません ");
return false;
}
form1.SendValue.value = ""
for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++)
{
document.vaSpread1.Row = jj;
var Text1, Text5, Text6;
document.vaSpread1.Col = 1;
Text1 = document.vaSpread1.Text;
document.vaSpread1.Col = 5;
Text5 = document.vaSpread1.Text;
Text5 = ReplaceStr(Text5, ",", "")
document.vaSpread1.Col = 6;
Text6 = document.vaSpread1.Text;
Text6 = ReplaceStr(Text6, ",", "")
if(((Text5 != "0" && Text5 != "") || (Text6 != "0" && Text6 != "")) && Text1 == "")
{
alert("勘定科目を選択してください");
document.vaSpread1.SetActiveCell(1, document.vaSpread1.Row);
document.vaSpread1.focus();
document.vaSpread1.EditMode = true;
return;
}
form1.SendValue.value = form1.SendValue.value + Text1;
form1.SendValue.value = form1.SendValue.value + ","
form1.SendValue.value = form1.SendValue.value + Text5;
form1.SendValue.value = form1.SendValue.value + ","
form1.SendValue.value = form1.SendValue.value + Text6;
form1.SendValue.value = form1.SendValue.value + ","
form1.SendValue.value = form1.SendValue.value + ";"
}
SubmitReal(form1);
return true;
}
KanjyoMeisaiSelected = "";
function SetKanjyoKamokuList(kanjyomeisai)
{
KanjyoMeisaiSelected = kanjyomeisai;
var Meisais;
var ii;
Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", "");
for(ii=0; ii<Meisais.length; ii++)
{
document.all.item("TD" + Meisais[ii] + "L").background = "/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>";
document.all.item("TD" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>";
document.all.item("TD" + Meisais[ii] + "R").background = "/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>";
}
document.all.item("TD" + KanjyoMeisaiSelected + "L").background = "/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>";
document.all.item("TD" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>";
document.all.item("TD" + KanjyoMeisaiSelected + "R").background = "/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>";
var ii;
var Idx;
Idx = 0;
var listout;
listout = "";
document.vaSpread1.Redraw = false;
<%
Response.Write("StrKanjyoKubun = """";" & vbCrLf)
Response.Write("StrTaisyakuKubun = """";" & vbCrLf)
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
PreKanjyoMeisai = ""
Response.Write("if(1 == 0){" & vbCrLf)
Do While Not(Content.BOF Or Content.EOF)
If PreKanjyoMeisai <> Content.Fields("勘定細目") Then
Response.Write("}" & vbCrLf)
Response.Write("if(kanjyomeisai == """" || kanjyomeisai == """ & Content.Fields("勘定細目") & """){" & vbCrLf)
PreKanjyoMeisai = Content.Fields("勘定細目")
End If
' Response.Write("if(listout != """")listout = listout + ""\t"";" & vbCrLf)
Response.Write("listout = listout + ""\t"";" & vbCrLf)
Response.Write("listout = listout + """ & Content.Fields("勘定名称") & """;" & vbCrLf)
Response.Write("StrKanjyoKubun = StrKanjyoKubun + ""-" & Content.Fields("勘定区分") & """;" & vbCrLf)
Response.Write("StrTaisyakuKubun = StrTaisyakuKubun + ""-" & Content.Fields("貸借区分") & """;" & vbCrLf)
Content.MoveNext
Loop
Response.Write("}" & vbCrLf)
Response.Write("aKanjyoKubun = StrKanjyoKubun.split(""-"");" & vbCrLf)
Response.Write("aTaisyakuKubun = StrTaisyakuKubun.split(""-"");" & vbCrLf)
%>
document.vaSpread1.Col = <% = KanjyoCDCol + 1 %>;
for(i=1; i<= document.vaSpread1.MaxRows; i++)
{
document.vaSpread1.Row = i;
if(document.vaSpread1.Text == "")
{
// document.vaSpread1.TypeComboBoxList = "\t" + listout;
document.vaSpread1.TypeComboBoxList = listout;
}
else
{
document.vaSpread1.TypeComboBoxList = document.vaSpread1.Text + "\t" + listout;
}
}
document.vaSpread1.Redraw = true;
return false;
}
<%
'勘定科目プルダウン用の ListText 変数を生成する
Dim StrKanjyoKubun, StrTaisyakuKubun
Dim ListText
Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
Set Content = OpenQuery(Query)
ListText = ""
Do While Not(Content.BOF Or Content.EOF)
StrKanjyoKubun = StrKanjyoKubun & "-" & Content.Fields("勘定区分")
StrTaisyakuKubun = StrTaisyakuKubun & "-" & Content.Fields("貸借区分")
ListText = ListText & "\t"
ListText = ListText & Content.Fields("勘定名称")
Content.MoveNext
Loop
%>
function SpreadInit(fpSpread) {
fpSpread.MaxRows = 0;
<%
Dim Query
Dim Content
Dim ii
ii = 0
Query = "exec SPK自動転記帳簿_八桁精算表照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Kaishibi & "','" & Syuryobi & "'"
If Kimatsu = "Kurikoshi" Then
Query = Query & ", 10"
Else
Query = Query & ", 9"
End If
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)
If Content.Fields("試算表借方金額") = 0 And Content.Fields("試算表貸方金額") = 0 Then
'試算表残高が存在しない行は編集・削除可能（170517小野）
Response.Write(" fpSpread.Col = 1;" & vbCrLf)
Response.Write(" fpSpread.Lock = false;" & vbCrLf)
Response.Write(" fpSpread.BackColor = 0xFFFFFF;" & vbCrLf)
Response.Write(" fpSpread.Col = 2;" & vbCrLf)
Response.Write(" fpSpread.Lock = false;" & vbCrLf)
Response.Write(" fpSpread.BackColor = 0xFFFFFF;" & vbCrLf)
Response.Write(" fpSpread.CellType = 8;" & vbCrLf)
Response.Write(" fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf)
End If
Response.Write(" fpSpread.Col = 1;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & Content.Fields("勘定CD") & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 2;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvKanjyoMeisyo(Content.Fields("勘定CD")) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 3;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("試算表借方金額"), false ,true) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 4;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("試算表貸方金額"), false ,true) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 5;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("整理記入借方金額"), false ,true) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 6;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("整理記入貸方金額"), false ,true) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 7;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("損益計算書借方金額"), false ,true) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 8;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("損益計算書貸方金額"), false ,true) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 9;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("貸借対照表借方金額"), false ,true) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 10;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("貸借対照表貸方金額"), false ,true) & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 11;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & Content.Fields("勘定区分") & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 12;" & vbCrLf)
Response.Write(" fpSpread.Text = """ & Content.Fields("貸借区分") & """;" & vbCrLf)
Response.Write(" fpSpread.Col = 0;" & vbCrLf)
Response.Write(" fpSpread.Text = "" "";" & vbCrLf)
Content.MoveNext
Loop
'選択行の色を変える動作を再開（090624小野）
Response.Write(" SpreadRowColorMode = true;" & vbCrLf)
Response.Write(" SpreadRowColor(fpSpread);") '選択行の色を変える（090624小野）
%>
}
function SpreadInsertItem2(fpSpread)
{
fpSpread.MaxRows = fpSpread.MaxRows + 1;
fpSpread.InsertRows(fpSpread.ActiveRow,1);
fpSpread.Row = fpSpread.ActiveRow;
fpSpread.Col = 0;
fpSpread.Text = " ";
fpSpread.Col = 1;
fpSpread.Lock = false;
fpSpread.BackColor = 0xFFFFFF;
fpSpread.Col = 2;
fpSpread.Lock = false;
fpSpread.BackColor = 0xFFFFFF;
fpSpread.CellType = 8;
<%
Response.Write("fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf)
%>
SpreadRowColor(fpSpread); //選択行の色を変える（090624小野）
}
StrKanjyoKubun = "<% = StrKanjyoKubun %>";
aKanjyoKubun = StrKanjyoKubun.split("-");
StrTaisyakuKubun = "<% = StrTaisyakuKubun %>";
aTaisyakuKubun = StrTaisyakuKubun.split("-");
function SpreadDelItem2(fpSpread) {
fpSpread.Row = fpSpread.ActiveRow;
fpSpread.Col = 1;
if (fpSpread.Lock != true) {
if (fpSpread.MaxRows >= 1) {
fpSpread.DeleteRows(fpSpread.ActiveRow,1);
fpSpread.MaxRows = fpSpread.MaxRows - 1;
SetGokei();
}
} else {
alert("試算表貸借が存在する行は削除できません \n\n整理記入の貸借をクリアしたい場合は \n額面に 0 を入力して保存してください ");
}
SpreadRowColor(fpSpread); //選択行の色を変える（090624小野）
}
function SpreadAddItem3(fpSpread)
{
fpSpread.MaxRows = fpSpread.MaxRows + 1;
fpSpread.Col = 0;
fpSpread.Row = fpSpread.MaxRows;
fpSpread.Text = " ";
fpSpread.Col = 1;
fpSpread.Lock = false;
fpSpread.BackColor = 0xFFFFFF;
fpSpread.Col = 2;
fpSpread.Lock = false;
fpSpread.BackColor = 0xFFFFFF;
fpSpread.CellType = 8;
<%
Response.Write("fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf)
%>
fpSpread.focus();
fpSpread.SetActiveCell(1, fpSpread.MaxRows);
SpreadRowColor(fpSpread); //選択行の色を変える（090624小野）
}
function SetGokei()
{
var Tmp = Array(10);
var TmpGokei = Array(10);
for(jj = 3; jj <= 10; jj++)
{
TmpGokei[jj] = 0;
}
for(ii = 1; ii <= document.vaSpread1.MaxRows; ii++)
{
var Tmp1, KanjyoKubun, TaisyakuKubun;
Tmp1 = 0;
for(jj = 3; jj <= 10; jj++)
{
document.vaSpread1.Row = ii;
document.vaSpread1.Col = 11;
KanjyoKubun = document.vaSpread1.Text;
document.vaSpread1.Col = 12;
TaisyakuKubun = document.vaSpread1.Text;
document.vaSpread1.Col = jj;
var Text1;
Text1 = ""
if(jj == 3 || jj == 4 || jj == 5 || jj == 6)
{
Text1 = document.vaSpread1.Text;
Text1 = ReplaceStr(Text1, ",", "")
if(Text1 == "")
{
Text1 = 0;
}
else
{
Text1 = Math.floor(Text1);
}
if(jj == 3){Tmp1 = Text1;}
else if(jj == 4){Tmp1 = Tmp1 - Text1;}
else if(jj == 5){Tmp1 = Tmp1 + Text1;}
else if(jj == 6){Tmp1 = Tmp1 - Text1;}
}
else
{
Text1 = 0;
//if(jj == 7 && KanjyoKubun == "P" && TaisyakuKubun == "D"){Text1 = Tmp1;}
//else if(jj == 8 && KanjyoKubun == "P" && TaisyakuKubun == "C"){Text1 = -1 * Tmp1;}
//else if(jj == 9 && KanjyoKubun == "B" && TaisyakuKubun == "D"){Text1 = Tmp1;}
//else if(jj == 10 && KanjyoKubun == "B" && TaisyakuKubun == "C"){Text1 = -1 * Tmp1;}
//貸借区分に依存させない（100215小野）
if(jj == 7 && KanjyoKubun == "P" && Tmp1 > 0){Text1 = Tmp1;}
else if(jj == 8 && KanjyoKubun == "P" && Tmp1 < 0){Text1 = -1 * Tmp1;}
else if(jj == 9 && KanjyoKubun == "B" && Tmp1 > 0){Text1 = Tmp1;}
else if(jj == 10 && KanjyoKubun == "B" && Tmp1 < 0){Text1 = -1 * Tmp1;}
if(Text1 != 0)
{
document.vaSpread1.value = Text1;
}
else
{
document.vaSpread1.value = "";
}
}
Tmp[jj] = Text1;
TmpGokei[jj] = TmpGokei[jj] + Text1;
}
}
for(jj = 3; jj <= 4; jj++)
{
document.vaSpread2.Row = 1;
document.vaSpread2.Col = jj;
document.vaSpread2.value = TmpGokei[jj];
}
for(jj = 5; jj <= 6; jj++)
{
document.vaSpread2.Row = 3;
document.vaSpread2.Col = jj;
document.vaSpread2.value = TmpGokei[jj];
}
if (TmpGokei[7] > TmpGokei[8]) {
document.vaSpread2.Row = 2;
document.vaSpread2.Col = 2;
document.vaSpread2.value = "当期損失";
document.vaSpread2.Col = 7;
document.vaSpread2.value = "";
document.vaSpread2.Col = 8;
document.vaSpread2.value = TmpGokei[7] - TmpGokei[8];
document.vaSpread2.Col = 9;
document.vaSpread2.value = TmpGokei[7] - TmpGokei[8];
document.vaSpread2.Col = 10;
document.vaSpread2.value = "";
document.vaSpread2.Row = 3;
document.vaSpread2.Col = 7;
document.vaSpread2.value = TmpGokei[7];
document.vaSpread2.Col = 8;
document.vaSpread2.value = TmpGokei[7];
document.vaSpread2.Col = 9;
document.vaSpread2.value = TmpGokei[10];
document.vaSpread2.Col = 10;
document.vaSpread2.value = TmpGokei[10];
} else {
document.vaSpread2.Row = 2;
document.vaSpread2.Col = 2;
if (TmpGokei[7] < TmpGokei[8]) {
document.vaSpread2.value = "当期利益";
} else {
document.vaSpread2.value = "当期";
}
document.vaSpread2.Col = 7;
document.vaSpread2.value = TmpGokei[8] - TmpGokei[7];
document.vaSpread2.Col = 8;
document.vaSpread2.value = "";
document.vaSpread2.Col = 9;
document.vaSpread2.value = "";
document.vaSpread2.Col = 10;
document.vaSpread2.value = TmpGokei[8] - TmpGokei[7];
document.vaSpread2.Row = 3;
document.vaSpread2.Col = 7;
document.vaSpread2.value = TmpGokei[8];
document.vaSpread2.Col = 8;
document.vaSpread2.value = TmpGokei[8];
document.vaSpread2.Col = 9;
document.vaSpread2.value = TmpGokei[9];
document.vaSpread2.Col = 10;
document.vaSpread2.value = TmpGokei[9];
}
}
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
// if(KeyAsciiCode == 9 && KeyShift == 0){}
// else SpreadKeyDown(this, KeyAsciiCode, KeyShift);
if(KeyAsciiCode == 46 && this.EditMode == false)
{
SetGokei();
}
</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)
End If
Call SetRenewCell(Me, ColNo, RowNo)
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript">
SetRenewCell(this, ColNo, RowNo)
this.focus();
</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
function SetRenewCell(obj, ColNo, RowNo)
{
if(ColNo == 1)
{
obj.Row = RowNo;
var tmp, tmpIdx;
obj.Col = 1;
tmp = "" + obj.value;
tmp = ConvKanjyoMeisyoDx(tmp);
obj.Col = 2;
for(ii = 1; ii <= obj.TypeComboBoxCount; ii++)
{
obj.TypeComboBoxIndex = ii;
if(tmp == obj.TypeComboBoxString)
{
tmpIdx = ii;
obj.Col = 11;
obj.Text = aKanjyoKubun[tmpIdx];
tmpIdx = ii;
obj.Col = 12;
obj.Text = aTaisyakuKubun[tmpIdx];
}
}
obj.Col = 2;
obj.TypeComboBoxRemoveItem(2, RowNo, 0);
obj.TypeComboBoxIndex = 0;
obj.TypeComboBoxString = tmp;
obj.Text = tmp;
obj.Col = 2;
tmpIdx = obj.TypeComboBoxCurSel;
}
else if(ColNo == 2)
{
obj.Row = RowNo;
obj.Col = 2;
var tmp, tmpIdx;
tmpIdx = obj.TypeComboBoxCurSel;
obj.Col = 2;
obj.Row = RowNo;
tmp = ConvRevKanjyoMeisyo(obj.Text);
obj.Col = 1;
obj.value = tmp;
obj.Col = 2;
for(ii = 1; ii <= obj.TypeComboBoxCount; ii++)
{
obj.TypeComboBoxIndex = ii;
if(obj.Text == obj.TypeComboBoxString)
{
tmpIdx = ii;
obj.Col = 11;
obj.Text = aKanjyoKubun[tmpIdx];
tmpIdx = ii;
obj.Col = 12;
obj.Text = aTaisyakuKubun[tmpIdx];
}
}
// obj.focus();
}
else if(ColNo == 5 || ColNo == 6)
{
SetGokei();
}
}
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
// ヘッダー列クリック時にソートしない場合にはコメントアウトする
// SpreadClick(this, ColNo, RowNo);
this.Col = this.ActiveCol;
this.Row = this.ActiveRow;
SpreadRowColor(this); //選択行の色を変える（090624小野）
this.EditMode = true;
</SCRIPT>
<SCRIPT FOR="vaSpread2" EVENT="onfocus" LANGUAGE="JavaScript">
document.vaSpread1.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(typeof(form1.dummy) == "object")form1.dummy.focus();
// SpreadInit 第 3n + 1 引数 (nは整数)
// 0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要
document.vaSpread1.Redraw = false;
document.vaSpread2.Redraw = false;
// SpreadLoad(document.vaSpread1, "勘定CD", 21, 4, "勘定名称", 1, 13, "試算表借方", 12, 9, "試算表貸方", 12, 9, "整理記入借方", 12, 9, "整理記入貸方", 12, 9, "損益計算書借方", 12, 9, "損益計算書貸方", 12, 9, "貸借対照表借方", 12, 9, "貸借対照表貸方", 12, 9, "勘定区分", 1, 0, "貸借区分", 1, 0);
// SpreadLoad(document.vaSpread2, "勘定CD", 21, 4, "勘定名称", 1, 13, "試算表借方", 12, 9, "試算表貸方", 12, 9, "整理記入借方", 12, 9, "整理記入貸方", 12, 9, "損益計算書借方", 12, 9, "損益計算書貸方", 12, 9, "貸借対照表借方", 12, 9, "貸借対照表貸方", 12, 9);
SpreadLoad(document.vaSpread1, "勘定CD", 21, 5.6, "勘定名称", 1, 19, "試算表借方", 12, 10.4, "試算表貸方", 12, 10.4, "整理記入借方", 12, 10.4, "整理記入貸方", 12, 10.4, "損益計算書借方", 12, 10.4, "損益計算書貸方", 12, 10.4, "貸借対照表借方", 12, 10.4, "貸借対照表貸方", 12, 10.4, "勘定区分", 1, 0, "貸借区分", 1, 0);
SpreadLoad(document.vaSpread2, "勘定CD", 21, 5.6, "勘定名称", 1, 19, "試算表借方", 12, 10.4, "試算表貸方", 12, 10.4, "整理記入借方", 12, 10.4, "整理記入貸方", 12, 10.4, "損益計算書借方", 12, 10.4, "損益計算書貸方", 12, 10.4, "貸借対照表借方", 12, 10.4, "貸借対照表貸方", 12, 10.4);
document.vaSpread1.ScriptEnhanced = true;
document.vaSpread2.ScriptEnhanced = true;
document.vaSpread2.OperationMode = 1;
document.vaSpread2.ColHeadersShow = false;
document.vaSpread2.Col = -1;
document.vaSpread2.Row = -1;
document.vaSpread2.FontSize = 10;
document.vaSpread2.BackColorStyle = 1;
document.vaSpread2.Row = -1;
document.vaSpread2.Col = -1;
document.vaSpread2.BackColor = 0xE6E6E6;
document.vaSpread2.Lock = true;
document.vaSpread2.MaxRows = 0;
SpreadAddItem(document.vaSpread2);
SpreadAddItem(document.vaSpread2);
SpreadAddItem(document.vaSpread2);
document.vaSpread2.Col = 2;
document.vaSpread2.Row = 1;
document.vaSpread2.Text = "試算表合計"
document.vaSpread2.Row = 2;
document.vaSpread2.Text = "当期損益"
document.vaSpread2.Row = 3;
document.vaSpread2.Text = "合計"
document.vaSpread1.Col = -1;
document.vaSpread1.Row = 0;
document.vaSpread1.FontSize = 10;
document.vaSpread1.RowHeight(0) = 10;
document.vaSpread1.ColHeaderRows = 2;
//その他の Spread に関する設定はここに入れる
document.vaSpread1.Col = -1;
document.vaSpread1.Row = -1;
document.vaSpread1.FontSize = 10;
document.vaSpread1.BackColorStyle = 1;
document.vaSpread1.Row = -1;
document.vaSpread1.Col = -1;
document.vaSpread1.BackColor = 0xE6E6E6;
document.vaSpread1.Lock = true;
document.vaSpread1.Col = 5;
document.vaSpread1.BackColor = 0xFFFFFF;
document.vaSpread1.Lock = false;
document.vaSpread1.Col = 6;
document.vaSpread1.BackColor = 0xFFFFFF;
document.vaSpread1.Lock = false;
document.vaSpread1.Col = -1;
document.vaSpread1.Row = 0;
document.vaSpread1.FontSize = 11;
document.vaSpread1.RowHeight(0) = 12;
document.vaSpread1.ColHeaderRows = 2;
var SpreadHeader;
SpreadHeader = -1000;
document.vaSpread1.AddCellSpan(1, SpreadHeader, 2, 2);
document.vaSpread1.AddCellSpan(3, SpreadHeader, 2, 1);
document.vaSpread1.AddCellSpan(5, SpreadHeader, 2, 1);
document.vaSpread1.AddCellSpan(7, SpreadHeader, 2, 1);
document.vaSpread1.AddCellSpan(9, SpreadHeader, 2, 1);
document.vaSpread1.Row = SpreadHeader;
document.vaSpread1.Col = 1;
document.vaSpread1.Text = "勘定科目";
document.vaSpread1.Col = 3;
<% If Kimatsu = "Kurikoshi" Then %>
document.vaSpread1.Text = "修正後残高試算表";
<% Else %>
document.vaSpread1.Text = "残高試算表";
<% End If %>
document.vaSpread1.Col = 5;
<% If Kimatsu = "Kurikoshi" Then %>
document.vaSpread1.Text = "振替記入";
<% Else %>
document.vaSpread1.Text = "整理記入";
<% End If %>
document.vaSpread1.Col = 7;
document.vaSpread1.Text = "損益計算書";
document.vaSpread1.Col = 9;
document.vaSpread1.Text = "貸借対照表";
document.vaSpread1.Row = SpreadHeader + 1;
document.vaSpread1.Col = 3;
document.vaSpread1.Text = "借方";
document.vaSpread1.Col = 4;
document.vaSpread1.Text = "貸方";
document.vaSpread1.Col = 5;
document.vaSpread1.Text = "借方";
document.vaSpread1.Col = 6;
document.vaSpread1.Text = "貸方";
document.vaSpread1.Col = 7;
document.vaSpread1.Text = "借方";
document.vaSpread1.Col = 8;
document.vaSpread1.Text = "貸方";
document.vaSpread1.Col = 9;
document.vaSpread1.Text = "借方";
document.vaSpread1.Col = 10;
document.vaSpread1.Text = "貸方";
document.vaSpread1.RetainSelBlock = false;
SpreadInit(document.vaSpread1);
SetGokei();
document.vaSpread1.ReDraw = true;
document.vaSpread2.ReDraw = true;
</SCRIPT>
<% End If %>
<% = HtmlFooter %>
</html>
<%
End Sub
%>