<% If GB_IEmode = "1" Then %>
<% = SetStringInsertSpace(Label) %>
<% Else %>
<%
Dim WidthTorihikibi, WidthKingaku, WidthSashizuSho, WidthTekiyo, WidthParent, WidthParent2
Dim HeightCell
HeightCell = 23
WidthTorihikibi = 82
WidthKingaku = 91
WidthSashizuSho = 82
WidthTekiyo = 250
WidthParent = 718
WidthParent2 = 698
%>
<% = SetStringInsertSpace(Label) %>
日付
指図書番号
配賦率
配賦基準
配賦額
備 考
<%
'スプレッドシート定義 ※全行共通なのでループ外
Dim SpMaxRow
Dim SpRowCnt
Dim SpMaxCol
SpRowCnt = 0
SpMaxRow = SpRowCnt
'フォーム名
SpFormName = "SpCell" '
'行定義
SpRowHeight = HeightCell '高さ(pixel指定)
SpRowCls = "" '行スタイルclass
SpRowStyle = "" '行スタイル
'列1定義
SpCellType(1) = "0" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(1) = WidthTorihikibi 'セル幅(pixel指定)
SpCellCls(1) = "br1" 'セルスタイルclass
SpCellStyle(1) = "" 'セルスタイル
SpInputCls(1) = "Spread4C" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
SpInputChange(1) = "" 'onChangeで作動させるスクリプト
SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
'列2定義
SpCellType(2) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(2) = WidthSashizuSho 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(2) = "br3" 'セルスタイルclass
SpCellStyle(2) = "" 'セルスタイル
SpInputCls(2) = "Spread4L" 'フォームスタイルclass
SpInputStyle(2) = "" 'フォームスタイル
SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "FormStrLeftIME(this,20,true);" 'onBlurで作動させるスクリプト
SpInputChange(2) = "" 'onChangeで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
'列3定義
SpCellType(3) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(3) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "br3" 'セルスタイルclass
SpCellStyle(3) = "" 'セルスタイル
SpInputCls(3) = "Spread4R" 'フォームスタイルclass
SpInputStyle(3) = "" 'フォームスタイル
SpInputFocus(3) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(3) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputChange(3) = "" 'onChangeで作動させるスクリプト
SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
'列4定義
SpCellType(4) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(4) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(4) = "br3" 'セルスタイルclass
SpCellStyle(4) = "" 'セルスタイル
SpInputCls(4) = "Spread4R" 'フォームスタイルclass
SpInputStyle(4) = "" 'フォームスタイル
SpInputFocus(4) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(4) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputChange(4) = "" 'onChangeで作動させるスクリプト
SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
'列5定義
SpCellType(5) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(5) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(5) = "br3" 'セルスタイルclass
SpCellStyle(5) = "" 'セルスタイル
SpInputCls(5) = "Spread4R" 'フォームスタイルclass
SpInputStyle(5) = "" 'フォームスタイル
SpInputFocus(5) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(5) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputChange(5) = "" 'onChangeで作動させるスクリプト
SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
'列6定義
SpCellType(6) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(6) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(6) = "b0" 'セルスタイルclass
SpCellStyle(6) = "" 'セルスタイル
SpInputCls(6) = "Spread4L" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "FormStrLeftIME(this,40,true);" 'onBlurで作動させるスクリプト
SpInputChange(6) = "" 'onChangeで作動させるスクリプト
SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
ii = 0
Dim Gokei1, Gokei2, Gokei3, Gokei4, Gokei5
Gokei1 = 0
Gokei2 = 0
Gokei3 = 0
Query = "exec SPK補助簿_製造間接費配賦表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim Torihikibi, SashizuSho, HaifuRitsu, HaifuKijun, HaihuGaku, Tekiyo
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
SashizuSho = Content.Fields("製造指図書")
HaifuRitsu = Content.Fields("配賦率")
HaifuKijun = Content.Fields("配賦基準")
HaihuGaku = Content.Fields("配賦額")
Tekiyo = Content.Fields("摘要")
'If "" & HaifuRitsu <> "" Then Gokei1 = Gokei1 + HaifuRitsu
If "" & HaifuKijun <> "" Then Gokei2 = Gokei2 + HaifuKijun
If "" & HaihuGaku <> "" Then Gokei3 = Gokei3 + HaihuGaku
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
SpInputValue(1) = Torihikibi 'フォーム初期値
SpInputValue(2) = SashizuSho 'フォーム初期値
SpInputValue(3) = ConvIntToMoney(HaifuRitsu, false, false) 'フォーム初期値
SpInputValue(4) = ConvIntToMoney(HaifuKijun, false, false) 'フォーム初期値
SpInputValue(5) = ConvIntToMoney(HaihuGaku, false, false) 'フォーム初期値
SpInputValue(6) = Tekiyo 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
If 0=1 Then
Response.Write("" & vbCrLf)
Response.Write("" & Torihikibi & " " & vbCrLf)
Response.Write("" & SashizuSho & " " & vbCrLf)
Response.Write("" & ConvIntToMoney(HaifuRitsu, false, false) & " " & vbCrLf)
Response.Write("" & ConvIntToMoney(HaifuKijun, false, false) & " " & vbCrLf)
Response.Write("" & ConvIntToMoney(HaihuGaku, false, false) & " " & vbCrLf)
Response.Write("" & Tekiyo & " " & vbCrLf)
Response.Write(" " & vbCrLf)
End If
ii = ii + 1
Content.MoveNext
Loop
'スプレッドシートの空白行を発生させる
SpInputValue(1) = "" 'フォーム初期値
SpInputValue(2) = "" 'フォーム初期値
SpInputValue(3) = "" 'フォーム初期値
SpInputValue(4) = "" 'フォーム初期値
SpInputValue(5) = "" 'フォーム初期値
SpInputValue(6) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
<% If 0=1 And (Content.BOF Or Content.EOF) Then %>
<% = ConvIntToMoney(Gokei2, false, true) %>
<% = ConvIntToMoney(Gokei3, false, true) %>
<% End If %>
※入力行が足りない場合は一度「保存」してください
<% End If %>