<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :株主資本等変動計算書の入力 ' 作成日 :2007/1/26 ' 作成者 :小野 ' 目的 :株主資本等変動計算書を記帳する ' 概要 : '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim RouteType RouteType = Request("RouteType") Dim PageType Dim PageType2 PageType = "株主資本等変動計算書" PageType2 = "株主資本変動計算" Dim Url Url = Request.ServerVariables("URL") %> <html> <% = HtmlHeader("") %> <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="<% = Replace(Url, ".asp", "_bin.asp") %>" name="form1" autocomplete="off"> <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 PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", PageType2, "", "", "", "", "", "", "")) 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')", PageType2, "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) If GB_IEmode = "1" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) Else '※HttpL3_1にボタンを追加する事前処理(210107小野) Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsert();", "行削除", "SpRowDelete();SpSetZandaka();", "行↑", "SpRowShift('Up');", "行↓", "SpRowShift('Dn');")) End If 'Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "')", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&AutoPrint=1')", "", "", "", "", "", "")) 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="680" height="100%" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000"> <tr> <td align="center"> <table width="620" height="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" align="center" height="30"> <table border="0" width="120" cellspacing="0" cellpadding="0"> <tr> <td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpaceH(PageType) %></td> </tr> </table> </td> </tr> <% 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="864" 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> <% Else %> <% Dim WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7, WidthParent Dim HeightCell HeightCell = 23 WidthCell1 = 150 WidthCell2 = 180 WidthCell3 = 180 WidthCell4 = 95 WidthCell5 = 120 WidthCell6 = 40 WidthCell7 = 100 WidthParent = 892 %> <TR> <TD VALIGN="BOTTOM" HEIGHT="<% = HeightCell %>"> <TABLE HEIGHT="<% = HeightCell %>" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#DDDDDD" CLASS="tx1214" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER" HEIGHT="<% = HeightCell %>"> <TD WIDTH="<% = WidthCell1 %>">集計分類1</TD> <TD WIDTH="<% = WidthCell2 %>">集計分類2</TD> <TD WIDTH="<% = WidthCell3 %>">集計分類3</TD> <TD WIDTH="<% = WidthCell4 %>">集計区分</TD> <TD WIDTH="<% = WidthCell5 %>">変動額細目</TD> <TD WIDTH="<% = WidthCell6 %>" CLASS="tx1416">±</TD> <TD WIDTH="<% = WidthCell7 %>">金額</TD> </TR> </TABLE> </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="1" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1214" 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) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(1) = "" 'セルスタイルclass SpCellStyle(1) = "border:1px solid #000000;" 'セルスタイル SpInputCls(1) = "Spread4L" 'フォームスタイルclass SpInputStyle(1) = "" 'フォームスタイル SpInputFocus(1) = "" 'onFocusで作動させるスクリプト SpInputBlur(1) = "FormStrLeftIME(this,30,true);" 'onBlurで作動させるスクリプト SpInputChange(1) = "" 'onChangeで作動させるスクリプト SpInputRO(1) = "" 'フォームreadonlyフラグ("1") '列2定義 SpCellType(2) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(2) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(2) = "" 'セルスタイルclass SpCellStyle(2) = "border:1px solid #000000;" 'セルスタイル SpInputCls(2) = "Spread4L" 'フォームスタイルclass SpInputStyle(2) = "" 'フォームスタイル SpInputFocus(2) = "" 'onFocusで作動させるスクリプト SpInputBlur(2) = "FormStrLeftIME(this,30,true);" 'onBlurで作動させるスクリプト SpInputChange(2) = "" 'onChangeで作動させるスクリプト SpInputRO(2) = "" 'フォームreadonlyフラグ("1") '列3定義 SpCellType(3) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(3) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(3) = "" 'セルスタイルclass SpCellStyle(3) = "border:1px solid #000000;" 'セルスタイル SpInputCls(3) = "Spread4L" 'フォームスタイルclass SpInputStyle(3) = "" 'フォームスタイル SpInputFocus(3) = "" 'onFocusで作動させるスクリプト SpInputBlur(3) = "FormStrLeftIME(this,30,true);" 'onBlurで作動させるスクリプト SpInputChange(3) = "" 'onChangeで作動させるスクリプト SpInputRO(3) = "" 'フォームreadonlyフラグ("1") '列4定義 SpCellType(4) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(4) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(4) = "" 'セルスタイルclass SpCellStyle(4) = "border:1px solid #000000;" 'セルスタイル SpInputCls(4) = "Spread4L" 'フォームスタイルclass SpInputStyle(4) = "" 'フォームスタイル SpInputFocus(4) = "" 'onFocusで作動させるスクリプト SpInputBlur(4) = "" 'onBlurで作動させるスクリプト SpInputChange(4) = "" 'onChangeで作動させるスクリプト SpInputRO(4) = "" 'フォームreadonlyフラグ("1") '列5定義 SpCellType(5) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(5) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(5) = "" 'セルスタイルclass SpCellStyle(5) = "border:1px solid #000000;" 'セルスタイル SpInputCls(5) = "Spread4L" 'フォームスタイルclass SpInputStyle(5) = "" 'フォームスタイル SpInputFocus(5) = "" 'onFocusで作動させるスクリプト SpInputBlur(5) = "FormStrLeftIME(this,30,true);" 'onBlurで作動させるスクリプト SpInputChange(5) = "" 'onChangeで作動させるスクリプト SpInputRO(5) = "" 'フォームreadonlyフラグ("1") '列6定義 SpCellType(6) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(6) = WidthCell6 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(6) = "" 'セルスタイルclass SpCellStyle(6) = "border:1px solid #000000;" 'セルスタイル SpInputCls(6) = "Spread4L" 'フォームスタイルclass SpInputStyle(6) = "" 'フォームスタイル SpInputFocus(6) = "" 'onFocusで作動させるスクリプト SpInputBlur(6) = "" 'onBlurで作動させるスクリプト SpInputChange(6) = "" 'onChangeで作動させるスクリプト SpInputRO(6) = "" 'フォームreadonlyフラグ("1") '列7定義 SpCellType(7) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(7) = WidthCell7 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(7) = "" 'セルスタイルclass SpCellStyle(7) = "border:1px solid #000000;" 'セルスタイル SpInputCls(7) = "Spread4R" 'フォームスタイルclass SpInputStyle(7) = "" 'フォームスタイル SpInputFocus(7) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(7) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト SpInputChange(7) = "" 'onChangeで作動させるスクリプト SpInputRO(7) = "" 'フォームreadonlyフラグ("1") ii = 0 Query = "exec SPK帳簿_株主資本等変動計算書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Content.BOF Or Content.EOF Then '存在しなければSYSORIGNのマスタを取得 Query = "exec SPK帳簿_株主資本等変動計算書取得M '" & GB_SystemCD & "', 'SYSORIGN', 'K001'" Set Content = OpenQuery(Query) End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 'スプレッドシート行生成 ※此処で値のみ代入 SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映) SpMaxRow = SpRowCnt SpInputValue(1) = Content.Fields("集計分類1") 'フォーム初期値 SpInputValue(2) = Content.Fields("集計分類2") 'フォーム初期値 SpInputValue(3) = Content.Fields("集計分類3") 'フォーム初期値 SpInputOption(4) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(4) = SpInputOption(4) & "<option value=""""></option>"' & vbCrLf SpInputOption(4) = SpInputOption(4) & "<option value=""前期末残高""" If "" & Content.Fields("集計区分") = "1" Then SpInputOption(4) = SpInputOption(4) & " selected" End If SpInputOption(4) = SpInputOption(4) & ">前期末残高</option>"' & vbCrLf SpInputOption(4) = SpInputOption(4) & "<option value=""当期変動額""" If "" & Content.Fields("集計区分") = "2" Then SpInputOption(4) = SpInputOption(4) & " selected" End If SpInputOption(4) = SpInputOption(4) & ">当期変動額</option>"' & vbCrLf SpInputValue(5) = Content.Fields("変動額細目") 'フォーム初期値 SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(6) = SpInputOption(6) & "<option value=""""></option>"' & vbCrLf SpInputOption(6) = SpInputOption(6) & "<option value=""+""" If "" & Content.Fields("加減区分") = "+" Then SpInputOption(6) = SpInputOption(6) & " selected" End If SpInputOption(6) = SpInputOption(6) & ">+</option>"' & vbCrLf SpInputOption(6) = SpInputOption(6) & "<option value=""-""" If "" & Content.Fields("加減区分") = "-" Then SpInputOption(6) = SpInputOption(6) & " selected" End If SpInputOption(6) = SpInputOption(6) & ">-</option>"' & vbCrLf SpInputValue(7) = ConvIntToMoney(Content.Fields("金額"), false ,false) 'フォーム初期値 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される If 0=1 Then Response.Write("<TR ALIGN=""CENTER"" HEIGHT=""" & HeightCell & """>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""LEFT"">" & Content.Fields("集計分類1") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""LEFT"">" & Content.Fields("集計分類2") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell3 & """ ALIGN=""LEFT"">" & Content.Fields("集計分類3") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell4 & """ ALIGN=""CENTER"">" & Content.Fields("集計区分") & "</TD>" & vbCrLf) '1:前期末残高 2:当期変動額 Response.Write("<TD WIDTH=""" & WidthCell5 & """ ALIGN=""LEFT"">" & Content.Fields("変動額細目") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell6 & """ ALIGN=""CENTER"" CLASS=""tx1416"">" & Content.Fields("加減区分") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell7 & """ ALIGN=""CENTER"">" & ConvIntToMoney(Content.Fields("金額"), false ,false) & "</TD>" & vbCrLf) Response.Write("</TR>") End If ii = ii + 1 Content.MoveNext Loop 'スプレッドシートの空白行を発生させる SpInputValue(1) = "" 'フォーム初期値 SpInputValue(2) = "" 'フォーム初期値 SpInputValue(3) = "" 'フォーム初期値 SpInputOption(4) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(4) = SpInputOption(4) & "<option value=""""></option>"' & vbCrLf SpInputOption(4) = SpInputOption(4) & "<option value=""前期末残高"">前期末残高</option>"' & vbCrLf SpInputOption(4) = SpInputOption(4) & "<option value=""当期変動額"">当期変動額</option>"' & vbCrLf SpInputValue(5) = "" 'フォーム初期値 SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(6) = SpInputOption(6) & "<option value=""""></option>"' & vbCrLf SpInputOption(6) = SpInputOption(6) & "<option value=""+"">+</option>"' & vbCrLf SpInputOption(6) = SpInputOption(6) & "<option value=""-"">-</option>"' & vbCrLf SpInputValue(7) = "" 'フォーム初期値 For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される SpMaxRow = Cnt Next %> </TABLE> </DIV> </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> <SCRIPT LANGUAGE="JavaScript"> //↓ブラウザ不問の共通関数 //↑ブラウザ不問の共通関数 </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 %>; function SubmitCheck() { form1.SendValue.value = "" for (jj = SpMinRow; jj <= SpMaxRow; jj++) { Target = "SpCell" + jj + "_" //セル番号を除くフォーム名 var RowText; var bCheck; bCheck = new Array(); RowText = ""; for (ii = 1; ii <= SpMaxCol; ii++) { var Text1; Text1 = form1[Target + ii].value; //通貨のカンマ区切りを外す if (ii == 7) { Text1 = ReplaceStr(Text1, ",", "") } //文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) Text1 = ReplaceStr(Text1, ",", "CommammoC") Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS") RowText = RowText + Text1; RowText = RowText + ","; bCheck[ii] = 0; if (Text1 == "") { bCheck[ii] = 1; } } if (ReplaceStr(RowText, ",", "") != "") { if (bCheck[4] == 1) { alert("集計区分を選択してください"); form1[Target + 4].focus(); return; } if (bCheck[7] == 1) { //金額NULLは0扱いなので許容 // alert("金額を入力してください"); // form1[Target + 7].focus(); // return; } form1.SendValue.value = form1.SendValue.value + RowText + ";" } } //alert(form1.SendValue.value); SubmitReal(form1); return true; } window.onload = function() { // form1.SpCell<% = (SpRowCnt + 1) %>_1.focus(); form1.SpCell1_7.focus(); } </SCRIPT> <% Else 'IEモード %> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { form1.SendValue.value = "" for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++) { document.vaSpread1.Row = jj; var RowText; var bCheck; bCheck = new Array(); RowText = ""; for(ii = 1; ii <= document.vaSpread1.MaxCols; ii++) { document.vaSpread1.Col = ii; var Text1; Text1 = document.vaSpread1.Text; //文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) if(document.vaSpread1.ColID == 1 || document.vaSpread1.ColID == 18 || document.vaSpread1.ColID == 21 || document.vaSpread1.ColID == 22) { Text1 = ReplaceStr(Text1, ",", "CommammoC") Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS") } //文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) if(document.vaSpread1.ColID == 12) //通貨型からカンマを除く処理 { Text1 = ReplaceStr(Text1, ",", "") } RowText = RowText + Text1; RowText = RowText + ","; bCheck[ii] = 0; if(Text1 == "") { bCheck[ii] = 1; } } if(ReplaceStr(RowText, ",", "") != "") { if(bCheck[4] == 1) { alert("集計区分を選択してください"); document.vaSpread1.SetActiveCell(4, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } if(bCheck[7] == 1) { //金額NULLは0扱いなので許容 // 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; <% Dim Query Dim Content Dim ii ii = 0 Query = "exec SPK帳簿_株主資本等変動計算書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Content.BOF Or Content.EOF Then Query = "exec SPK帳簿_株主資本等変動計算書取得M '" & GB_SystemCD & "', 'SYSORIGN', 'K001'" Set Content = OpenQuery(Query) End If '選択行の色を変える動作を停止(090624小野) Response.Write(" SpreadRowColorMode = false;" & vbCrLf) Dim ShukeiKubun 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) Response.Write(" fpSpread.Text = """ & Replace(Replace("" & Content.Fields("集計分類1"), "\", "\\"), """", "”") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 2;" & vbCrLf) Response.Write(" fpSpread.Text = """ & Replace(Replace("" & Content.Fields("集計分類2"), "\", "\\"), """", "”") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 3;" & vbCrLf) Response.Write(" fpSpread.Text = """ & Replace(Replace("" & Content.Fields("集計分類3"), "\", "\\"), """", "”") & """;" & vbCrLf) ShukeiKubun = "" & Content.Fields("集計区分") If ShukeiKubun = "1" Then ShukeiKubun = "前期末残高" Else ShukeiKubun = "当期変動額" End If Response.Write(" fpSpread.Col = 4;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ShukeiKubun & """;" & vbCrLf) Response.Write(" fpSpread.Col = 5;" & vbCrLf) Response.Write(" fpSpread.Text = """ & Replace(Replace("" & Content.Fields("変動額細目"), "\", "\\"), """", "”") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 6;" & vbCrLf) Response.Write(" fpSpread.Text = """ & 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 If ii = 0 Then Response.Write(" SpreadAddItem(fpSpread);") Response.Write(" fpSpread.SetActiveCell(1, 1);" & vbCrLf) Response.Write(" fpSpread.EditMode=true;") End If '選択行の色を変える動作を再開(090624小野) Response.Write(" SpreadRowColorMode = true;" & vbCrLf) Response.Write(" SpreadRowColor(fpSpread);") '選択行の色を変える(090624小野) %> } </SCRIPT> <SCRIPT FOR="vaSpread2" EVENT="onfocus" LANGUAGE="JavaScript"> document.vaSpread1.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; SpreadLoad(document.vaSpread1, "集計分類1", 1, 20, "集計分類2", 1, 20, "集計分類3", 1, 20, "集計区分", 8, 12, "当期変動額細目", 1, 15, "±", 8, 3.5, "金額", 12, 12); document.vaSpread1.ScriptEnhanced = true; //その他の Spread に関する設定はここに入れる document.vaSpread1.Row = -1; document.vaSpread1.Col = -1; document.vaSpread1.FontSize = 11; document.vaSpread1.Row = 0; document.vaSpread1.FontSize = 11; var SpreadHeader; SpreadHeader = -1000; document.vaSpread1.Row = -1; document.vaSpread1.Col = 4; document.vaSpread1.TypeComboBoxList = "\t前期末残高\t当期変動額" document.vaSpread1.Col = 6; document.vaSpread1.TypeComboBoxList = "\t+\t-" SpreadInit(document.vaSpread1); document.vaSpread1.SetActiveCell(1,1) document.vaSpread1.ReDraw = true; </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="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript"> this.focus(); </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="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> <% End If %> <% = HtmlFooter %> </html> <% End Sub %>