<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :経費管理・労務費管理 ' 作成日 :2016/1/28 ' 作成者 :小野 ' 目的 : ' 概要 : '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim PageType 'ページの種類 "仕入" or "売上"かを判定 Dim SyohinCD , Shohinmei , ShohinRyakumei '商品コード、商品名称、商品略名称 Dim HanbaiTanka , ShireTnanka , UnsoTanka '標準販売単価、標準仕入単価、運送費単価 Dim SokoryoTanka , Jyuryo , Yoseki '倉庫料単価、重量、容積 Dim Bikou '備考 Dim GazoFile Dim Tani Dim Lot Dim SyohinKubun Dim ShijyoCD, SyoyuKaisyaCD Dim ii Dim Query Dim Content PageType = Request("Pagetype") SyohinCD = Request("SyohinCD") SyohinKubun = Request("SyohinKubun") Dim Mode Mode = Request("Mode") Dim Title If SyohinKubun = "Z" Then Title = "材料" Else Title = "商品" End If Dim Kubun Kubun = Request("Kubun") If Kubun = "" Then Kubun = "K" End If Dim Label Label = "経費" Dim LabelSep LabelSep = "経 費" If Kubun <> "K" Then Label = "労務費" LabelSep = "労 務 費" End If Dim GakuseiBango If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then Else GakuseiBango = GB_GakuseiNo End If '演習名称GET ' Dim EnshuName ' EnshuName = ConvEnshuMeisyo(EnshuCD) If SyohinCD <> "" Then Query = "exec SPM" & Title & "取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & SyohinCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShijyoCD = Content.Fields("市場CD") Shohinmei = Content.Fields("" & Title & "名称") ShohinRyakumei = Content.Fields("" & Title & "略名称") HanbaiTanka = Content.Fields("標準販売単価") ShireTnanka = Content.Fields("標準仕入単価") UnsoTanka = Content.Fields("運送料単価") SokoryoTanka = Content.Fields("倉庫料単価") Jyuryo = Content.Fields("" & Title & "重量") Yoseki = Content.Fields("" & Title & "容積") Bikou = Content.Fields("備考") GazoFile = Content.Fields("画像ファイル") Tani = Content.Fields("単位") Lot = Content.Fields("ロット") SyoyuKaisyaCD = Content.Fields("所有会社CD") End If End If Dim jj,tmps %> <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)" name="form1" method="POST" action="fd_keihiroumuhi_bin.asp" autocomplete="off"> <input type="hidden" name="PageType" value="<% = PageType %>"> <input type="hidden" name="SyohinCD" value="<% = SyohinCD %>"> <input type="hidden" name="SyohinKubun" value="<% = SyohinKubun %>"> <input type="hidden" name="Kubun" value="<% = Kubun %>"> <input type="hidden" name="SendValue" value=""> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(2)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", Label & "管理", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) If GB_IEmode = "1" Then '※HttpL3_1にボタンを追加する事前処理(210107小野) ' Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "") 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();SpSetKingaku();", "行↑", "SpRowShift('Up');", "行↓", "SpRowShift('Dn');")) End If Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/master/shohin/fm_shohin_ichiran.asp?PageType=" & PageType & "&SyohinCD=" & SyohinCD & "&SyohinKubun=" & SyohinKubun & "&Mode=" & Mode & "&Kubun=" & Kubun & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(Label & "管理", "")) %> <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" style="background-image: url('images/bkimg_bsq.gif'); background-repeat: repeat-y; background-attachment: scroll; background-position: 0% 50%"> <table width="601" height="388" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #111111"> <tr> <td width="600" height="40"> <table width="586" height="40" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" align="right" valign="bottom"> <table width="100%" border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td height="3" colspan="3" onMouseOver="this.focus();this.focus();"><img src="/<% = HomeAlias %>/images/spacer.gif" height="1"></td> </tr> <tr> <td width="30" valign="bottom"></td> <td width="145"> <table width="160" height="30" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="30" class="tx2022"><% = LabelSep %> 管 理 表</td> </tr> </table> </td> <td> <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0"> <tr class="tx1618"> <td height="20" align="right"><% = Title %>名:</td> <td height="20" align="left"><% = Shohinmei %></td> <td height="20" align="right">ロット:</td> <td height="20" align="left"><% = Lot %><% = Tani %></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> <% If GB_IEmode = "1" Then %> <tr> <td height="300" align="center" valign="top"> <table width="510" height="250" border="0" cellpadding="0" cellspacing="0"> <tr> <td> <object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331"> <param name="lpkpath" value="spread6.lpk"> </object> <object width="550" height="308" 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> <object width="550" height="20" 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> </table> </td> </tr> <% Else %> <tr height="26"> <td align="center" valign="top"> <table width="564" height="26" border="0" cellpadding="0" cellspacing="0"> <tr> <td> <table height="26" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"> <tr class="tx1416"> <td align="center" width="440">科目名</td> <td align="center" width="100">金額</td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td height="250" align="center" valign="top"> <table width="564" height="353" border="0" cellpadding="0" cellspacing="0"> <tr> <td> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:564px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"> <% 'スプレッドシート定義 ※全行共通なのでループ外 Dim SpMaxRow Dim SpRowCnt Dim SpMaxCol SpRowCnt = 0 SpMaxRow = SpRowCnt 'フォーム名 SpFormName = "SpCell" ' '行定義 SpRowHeight = "26" '高さ(pixel指定) SpRowCls = "tx1416" '行スタイルclass SpRowStyle = "" '行スタイル '列1定義 SpCellType(1) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(1) = "440" 'セル幅(pixel指定) SpCellCls(1) = "" 'セルスタイルclass SpCellStyle(1) = "" 'セルスタイル SpInputCls(1) = "Spread4L" 'フォームスタイルclass SpInputStyle(1) = "" 'フォームスタイル SpInputFocus(1) = "" 'onFocusで作動させるスクリプト SpInputBlur(1) = "FormStrLeftIME(this,100,true);" 'onBlurで作動させるスクリプト SpInputChange(1) = "" 'onChangeで作動させるスクリプト SpInputRO(1) = "" 'フォームreadonlyフラグ("1") '列2定義 SpCellType(2) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(2) = "100" 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(2) = "" 'セルスタイルclass SpCellStyle(2) = "" 'セルスタイル SpInputCls(2) = "Spread4R" 'フォームスタイルclass SpInputStyle(2) = "" 'フォームスタイル SpInputFocus(2) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(2) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetKingaku();" 'onBlurで作動させるスクリプト SpInputRO(2) = "" 'フォームreadonlyフラグ("1") Dim GokeiKingaku GokeiKingaku = 0 Query = "exec SPM経費労務費取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "', '" & Kubun & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 'スプレッドシート行生成 ※此処で値のみ代入 SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映) SpMaxRow = SpRowCnt SpInputValue(1) = Content.Fields("摘要") 'フォーム初期値 SpInputValue(2) = ConvIntToMoney(Content.Fields("金額"), false, false) 'フォーム初期値 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される If 0=1 Then %> <tr height="25" class="tx1416"> <td align="left"> <% = Content.Fields("摘要") %> <td width="110" align="right"><% = SetMoney(Content.Fields("金額"), false, true) %> </td> </tr> <% End If GokeiKingaku = GokeiKingaku + Content.Fields("金額") Content.MoveNext Loop 'スプレッドシートの空白行を発生させる SpInputValue(1) = "" 'フォーム初期値 SpInputValue(2) = "" 'フォーム初期値 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> </table> </td> </tr> <% End If %> </table> </td> </tr> </table> </div> </form> </body> <% 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() { //alert("SubmitCheck"); form1.SendValue.value = "" for (jj = SpMinRow; jj <= SpMaxRow; jj++) { Target = "SpCell" + jj + "_" //セル番号を除くフォーム名 var RowText; RowText = ""; var bCheck; bCheck = Array(); var Tekiyo, Kingaku for (ii = 1; ii <= SpMaxCol; ii++) { bCheck[ii] = 0; //通貨の0入力はクリア(onBlurで処理しているが念のため) if (ii == 2 && form1[Target + ii].value == "0") { form1[Target + ii].value = ""; } var Text1; Text1 = form1[Target + ii].value; //alert("SubmitCheck"); //通貨のカンマ区切りを外す if (ii == 2) { Text1 = ReplaceStr(Text1, ",", ""); } //文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理 Text1 = ReplaceStr(Text1, ",", "CommammoC") Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS") //テンポラリに代入 if (ii == 1) Tekiyo = '' + Text1; if (ii == 2) Kingaku = Math.floor(Text1); RowText = RowText + Text1; RowText = RowText + ","; if (Text1 == "") { bCheck[ii] = 1; } } if (ReplaceStr(RowText, ",", "") != "") { if (bCheck[1] == 1) { alert("科目名を入力してください "); form1[Target + 1].focus(); return; } if (bCheck[2] == 1) { alert("金額を入力してください "); form1[Target + 2].focus(); return; } form1.SendValue.value = form1.SendValue.value + RowText + ";" } } if (form1.SendValue.value == '') { alert("明細を入力してください"); return false; } //alert(form1.SendValue.value); SubmitReal(form1); return true; } window.onload = function() { form1.SpCell<% = (SpRowCnt + 1) %>_1.focus(); } </SCRIPT> <% Else 'IEモード %> <SCRIPT LANGUAGE="JavaScript"> //################################################ // 名称:SubmitCheck // 目的:更新前に入力値をチェックする。 //################################################ function SubmitCheck() { form1.SendValue.value = ""; //** 3.明細部のチェック for (jj = 1; jj <= document.vaSpread1.MaxRows; jj++) { document.vaSpread1.Row = jj; var RowText; RowText = ""; var TmpRowText; TmpRowText = ""; var bCheck; bCheck = Array(); var Tekiyo, Kingaku for (ii = 1; ii <= document.vaSpread1.MaxCols; ii++) { document.vaSpread1.Col = ii; bCheck[ii] = 0; //セルを取得 var Text1; Text1 = document.vaSpread1.Text; //文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) if(document.vaSpread1.ColID == 1 || document.vaSpread1.ColID == 22) { Text1 = ReplaceStr(Text1, ",", "CommammoC") Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS") } //文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) //通貨のカンマを除く if (document.vaSpread1.ColID == 12) { Text1 = ReplaceStr(Text1, ",", "") } //テンポラリに代入 if (ii == 1) { if ('' + Text1 == '------------------------------') { document.vaSpread1.Text = ''; Text1 = ''; } Tekiyo = '' + Text1; } if (ii == 2) Kingaku = Math.floor(Text1); //行テキストにセルをカンマ区切りで繋げる RowText = RowText + Text1; RowText = RowText + ","; //Nullならエラーフラグを立てる if(Text1 == "") { bCheck[ii] = 1; } } //行テキストに要素が存在する場合 if (ReplaceStr(RowText, ",", "") != "" && ReplaceStr(RowText, ",", "") != "0") { //"0"1文字のみは数量0のみなので要素無しと見なす if (bCheck[1] == 1) { alert("科目名を入力してください "); document.vaSpread1.SetActiveCell(1, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } if (bCheck[2] == 1) { alert("金額を入力してください "); document.vaSpread1.SetActiveCell(2, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } form1.SendValue.value = form1.SendValue.value + RowText + ";" } } if (form1.SendValue.value == '') { alert("明細を入力してください "); return false; } SubmitReal(form1); return true; } function SetGokei() { var TmpGokei = 0; for (ii = 1; ii <= document.vaSpread1.MaxRows; ii++) { document.vaSpread1.Row = ii; document.vaSpread1.Col = 2; var Text1, Text2; Text1 = document.vaSpread1.value; if (Text1 != "") { Text2 = Text1.replace(',', ''); Text1 = Text2.replace(',', ''); Text2 = Text1.replace(',', ''); Text1 = Text2.replace(',', ''); Text2 = Text1.replace(',', ''); Text1 = Text2.replace(',', ''); Text2 = eval(Text1); } else { Text2 = 0; } TmpGokei = TmpGokei + Text2; } document.vaSpread2.Row = 1; document.vaSpread2.Col = 2; document.vaSpread2.value = TmpGokei; } function SpreadInit(fpSpread) { fpSpread.MaxRows = 0; <% ii = 0 Query = "exec SPM経費労務費取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "', '" & Kubun & "'" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) '選択行の色を変える動作を停止(090624小野) Response.Write(" SpreadRowColorMode = false;" & vbCrLf) Do While Not(Content.BOF Or Content.EOF) ' Response.Write(" SyohinMeisyoArray[" & ii & "] = """ & ConvSyohinMeisyo(Content.Fields("商品CD")) & """;" & vbCrLf) ' Response.Write(" MotoSuryoArray[" & ii & "] = " & ConvIntToMoney(Content.Fields("数量"), false ,false) & ";" & vbCrLf) 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("摘要"), "\", "\\"), """", "”") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 2;" & 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); 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="Click(ColNo, RowNo)" LANGUAGE="JavaScript"> // SpreadClick(this, ColNo, RowNo); this.Col = this.ActiveCol; this.Row = this.ActiveRow; 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="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 FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript"> SetRenewCell(this, ColNo, RowNo) this.focus(); </SCRIPT> <SCRIPT LANGUAGE="JavaScript"> function SetRenewCell(obj, ColNo, RowNo) { SetGokei(); } </SCRIPT> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> if(typeof(form1.dummy) == "object")form1.dummy.focus(); // SpreadLoad 第 3n + 1 引数 (nは整数) // 0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要 document.vaSpread1.Redraw = false; document.vaSpread2.Redraw = false; SpreadLoad(document.vaSpread1, "科目名", 1, 51.4, "金額", 12, 12.2); SpreadLoad(document.vaSpread2, "科目名", 1, 51.4, "金額", 99, 12.2); 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 = 12; 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); document.vaSpread2.Col = 1; document.vaSpread2.Row = 1; document.vaSpread2.TypeHAlign = 1; //右寄せ document.vaSpread2.Text = "<% = Label %>合計 " document.vaSpread1.Col = 1; document.vaSpread1.Row = -1; document.vaSpread1.TypeMaxEditLen = 127; document.vaSpread1.Col = -1; document.vaSpread1.Row = -1; document.vaSpread1.FontSize = 12; // document.vaSpread1.Col = 2; // document.vaSpread1.BackColorStyle = 1; // document.vaSpread1.BackColor = 0xE6E6E6; // document.vaSpread1.Lock = true; document.vaSpread1.RetainSelBlock = false; SpreadInit(document.vaSpread1); SetGokei(); document.vaSpread1.Redraw = true; document.vaSpread2.ReDraw = true; // form1.Torihikibi.select; // form1.Torihikibi.focus(); // event.returnValue = false; // return; </SCRIPT> <% End If %> <% = HtmlFooter %> </html> <% End Sub %>