<% If GB_IEmode = "1" Then %>
<% = SetStringInsertSpace(Label) %>
製造指図書
#<% = BunsyoNaiyoCD %>
製 品 名
<% = ShohinMeisho %>
着手日
<% = SetDate(Syoribi, 3) %>
完成日
<% = SetDate(Kanryobi, 3) %>
命令数量
<% = SeizoLot %> ロット
完成数量
<% If Kanryobi <> "" Then %>
<% = SeizoLot %> ロット
<% Else %>
<% End If %>
<% Else %>
<%
Dim WidthTorihikibi, WidthTekiyo, WidthKingaku, WidthParent, WidthParent2
Dim HeightCell
HeightCell = 22
WidthTorihikibi = 78
WidthTekiyo = 57
WidthKingaku = 86
WidthParent = 928
' WidthParent2 = 902
Dim SpreadCls
SpreadCls = "Spread4"
%>
<% = SetStringInsertSpace(Label) %>
製造指図書
#<% = BunsyoNaiyoCD %>
製 品 名
<% = ShohinMeisho %>
着手日
<% = SetDate(Syoribi, 3) %>
完成日
<% = SetDate(Kanryobi, 3) %>
命令数量
<% = SeizoLot %> ロット
完成数量
<% If Kanryobi <> "" Then %>
<% = SeizoLot %> ロット
<% Else %>
<% End If %>
直接材料費
直接労務費
直接経費
製造間接費
日付
摘要
金額
日付
摘要
金額
日付
摘要
金額
日付
摘要
金額
<%
'スプレッドシート定義 ※全行共通なのでループ外
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) = SpreadCls & "C" 'フォームスタイル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) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(2) = "br3" 'セルスタイルclass
SpCellStyle(2) = "" 'セルスタイル
SpInputCls(2) = SpreadCls & "L" 'フォームスタイル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:通貨)
SpCellWidth(3) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "br3" 'セルスタイルclass
SpCellStyle(3) = "" 'セルスタイル
SpInputCls(3) = SpreadCls & "R" 'フォームスタイル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) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(4) = WidthTorihikibi 'セル幅(pixel指定)
SpCellCls(4) = "br1" 'セルスタイルclass
SpCellStyle(4) = "" 'セルスタイル
SpInputCls(4) = SpreadCls & "C" 'フォームスタイルclass
SpInputStyle(4) = "" 'フォームスタイル
SpInputFocus(4) = "" 'onFocusで作動させるスクリプト
SpInputBlur(4) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
SpInputChange(4) = "" 'onChangeで作動させるスクリプト
SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
'列5定義
SpCellType(5) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(5) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(5) = "br3" 'セルスタイルclass
SpCellStyle(5) = "" 'セルスタイル
SpInputCls(5) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(5) = "" 'フォームスタイル
SpInputFocus(5) = "" 'onFocusで作動させるスクリプト
SpInputBlur(5) = "FormStrLeftIME(this,20,true);" 'onBlurで作動させるスクリプト
SpInputChange(5) = "" 'onChangeで作動させるスクリプト
SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
'列6定義
SpCellType(6) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(6) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(6) = "br3" 'セルスタイルclass
SpCellStyle(6) = "" 'セルスタイル
SpInputCls(6) = SpreadCls & "R" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputChange(6) = "" 'onChangeで作動させるスクリプト
SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
'列7定義
SpCellType(7) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(7) = WidthTorihikibi 'セル幅(pixel指定)
SpCellCls(7) = "br1" 'セルスタイルclass
SpCellStyle(7) = "" 'セルスタイル
SpInputCls(7) = SpreadCls & "C" 'フォームスタイルclass
SpInputStyle(7) = "" 'フォームスタイル
SpInputFocus(7) = "" 'onFocusで作動させるスクリプト
SpInputBlur(7) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
SpInputChange(7) = "" 'onChangeで作動させるスクリプト
SpInputRO(7) = "" 'フォームreadonlyフラグ("1")
'列8定義
SpCellType(8) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(8) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(8) = "br3" 'セルスタイルclass
SpCellStyle(8) = "" 'セルスタイル
SpInputCls(8) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(8) = "" 'フォームスタイル
SpInputFocus(8) = "" 'onFocusで作動させるスクリプト
SpInputBlur(8) = "FormStrLeftIME(this,20,true);" 'onBlurで作動させるスクリプト
SpInputChange(8) = "" 'onChangeで作動させるスクリプト
SpInputRO(8) = "" 'フォームreadonlyフラグ("1")
'列9定義
SpCellType(9) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(9) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(9) = "br3" 'セルスタイルclass
SpCellStyle(9) = "" 'セルスタイル
SpInputCls(9) = SpreadCls & "R" 'フォームスタイルclass
SpInputStyle(9) = "" 'フォームスタイル
SpInputFocus(9) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(9) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputChange(9) = "" 'onChangeで作動させるスクリプト
SpInputRO(9) = "" 'フォームreadonlyフラグ("1")
'列10定義
SpCellType(10) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(10) = WidthTorihikibi 'セル幅(pixel指定)
SpCellCls(10) = "br1" 'セルスタイルclass
SpCellStyle(10) = "" 'セルスタイル
SpInputCls(10) = SpreadCls & "C" 'フォームスタイルclass
SpInputStyle(10) = "" 'フォームスタイル
SpInputFocus(10) = "" 'onFocusで作動させるスクリプト
SpInputBlur(10) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
SpInputChange(10) = "" 'onChangeで作動させるスクリプト
SpInputRO(10) = "" 'フォームreadonlyフラグ("1")
'列11定義
SpCellType(11) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(11) = WidthTekiyo 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(11) = "br3" 'セルスタイルclass
SpCellStyle(11) = "" 'セルスタイル
SpInputCls(11) = SpreadCls & "L" 'フォームスタイルclass
SpInputStyle(11) = "" 'フォームスタイル
SpInputFocus(11) = "" 'onFocusで作動させるスクリプト
SpInputBlur(11) = "FormStrLeftIME(this,20,true);" 'onBlurで作動させるスクリプト
SpInputChange(11) = "" 'onChangeで作動させるスクリプト
SpInputRO(11) = "" 'フォームreadonlyフラグ("1")
'列12定義
SpCellType(12) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(12) = WidthKingaku 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(12) = "b0" 'セルスタイルclass
SpCellStyle(12) = "" 'セルスタイル
SpInputCls(12) = SpreadCls & "R" 'フォームスタイルclass
SpInputStyle(12) = "" 'フォームスタイル
SpInputFocus(12) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(12) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputChange(12) = "" 'onChangeで作動させるスクリプト
SpInputRO(12) = "" 'フォームreadonlyフラグ("1")
ii = 0
Dim Gokei1, Gokei2, Gokei3, Gokei4
Gokei1 = 0
Gokei2 = 0
Gokei3 = 0
Gokei4 = 0
Query = "exec SPK補助簿_原価計算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If 0=1 And Not(Content.BOF Or Content.EOF) Then
Do While Not(Content.BOF Or Content.EOF)
Bottom = Bottom + 1
If "" & Content.Fields("直接材料費") <> "" Then
Gokei1 = Gokei1 + Content.Fields("直接材料費")
End If
If "" & Content.Fields("直接労務費") <> "" Then
Gokei2 = Gokei2 + Content.Fields("直接労務費")
End If
If "" & Content.Fields("直接経費") <> "" Then
Gokei3 = Gokei3 + Content.Fields("直接経費")
End If
If "" & Content.Fields("製造間接費") <> "" Then
Gokei4 = Gokei4 + Content.Fields("製造間接費")
End If
Content.MoveNext
Loop
Content.MoveFirst
End If
Do While Not(Content.BOF Or Content.EOF)
Dim Torihikibi1, Torihikibi2, Torihikibi3, Torihikibi4, Tekiyo1, Tekiyo2, Tekiyo3, Tekiyo4, Kingaku1, Kingaku2, Kingaku3, Kingaku4
Torihikibi1 = SetTimeYYYYMMDD(Content.Fields("直接材料費日付"))
Torihikibi2 = SetTimeYYYYMMDD(Content.Fields("直接労務費日付"))
Torihikibi3 = SetTimeYYYYMMDD(Content.Fields("直接経費日付"))
Torihikibi4 = SetTimeYYYYMMDD(Content.Fields("製造間接費日付"))
Tekiyo1 = Content.Fields("直接材料費摘要")
Tekiyo2 = Content.Fields("直接労務費摘要")
Tekiyo3 = Content.Fields("直接経費摘要")
Tekiyo4 = Content.Fields("製造間接費摘要")
Kingaku1 = Content.Fields("直接材料費")
Kingaku2 = Content.Fields("直接労務費")
Kingaku3 = Content.Fields("直接経費")
Kingaku4 = Content.Fields("製造間接費")
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
SpInputValue(1) = Torihikibi1 'フォーム初期値
SpInputValue(2) = Tekiyo1 'フォーム初期値
SpInputValue(3) = ConvIntToMoney(Kingaku1, false, false) 'フォーム初期値
SpInputValue(4) = Torihikibi2 'フォーム初期値
SpInputValue(5) = Tekiyo2 'フォーム初期値
SpInputValue(6) = ConvIntToMoney(Kingaku2, false, false) 'フォーム初期値
SpInputValue(7) = Torihikibi3 'フォーム初期値
SpInputValue(8) = Tekiyo3 'フォーム初期値
SpInputValue(9) = ConvIntToMoney(Kingaku3, false, false) 'フォーム初期値
SpInputValue(10) = Torihikibi4 'フォーム初期値
SpInputValue(11) = Tekiyo4 'フォーム初期値
SpInputValue(12) = ConvIntToMoney(Kingaku4, false, false) 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
If 0=1 Then
Response.Write("" & vbCrLf)
Response.Write("" & Torihikibi1 & " " & vbCrLf)
Response.Write("" & Tekiyo1 & " " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku1, false, false) & " " & vbCrLf)
Response.Write("" & Torihikibi2 & " " & vbCrLf)
Response.Write("" & Tekiyo2 & " " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku2, false, false) & " " & vbCrLf)
Response.Write("" & Torihikibi3 & " " & vbCrLf)
Response.Write("" & Tekiyo3 & " " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku3, false, false) & " " & vbCrLf)
Response.Write("" & Torihikibi4 & " " & vbCrLf)
Response.Write("" & Tekiyo4 & " " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku4, false, false) & " " & vbCrLf)
Response.Write(" " & vbCrLf)
End If
ii = ii + 1
Content.MoveNext
Loop
'スプレッドシートの空白行を発生させる
SpInputValue(1) = "" 'フォーム初期値
SpInputValue(2) = "" 'フォーム初期値
SpInputValue(3) = "" 'フォーム初期値
SpInputValue(4) = "" 'フォーム初期値
SpInputValue(5) = "" 'フォーム初期値
SpInputValue(6) = "" 'フォーム初期値
SpInputValue(7) = "" 'フォーム初期値
SpInputValue(8) = "" 'フォーム初期値
SpInputValue(9) = "" 'フォーム初期値
SpInputValue(10) = "" 'フォーム初期値
SpInputValue(11) = "" 'フォーム初期値
SpInputValue(12) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
※入力行が足りない場合は一度「保存」してください
<% End If %>