<!-- #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
'演習名称ＧＥＴ
' 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 = "";
//** ３．明細部のチェック
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
%>