<% If GB_IEmode = "1" Then %>
<% Else %>
<%
Dim WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7, WidthCell8, WidthCell9, WidthParent
Dim HeightCell
HeightCell = 23
WidthCell1 = 66
WidthCell2 = 270
WidthCell3 = 42
WidthCell4 = 66
WidthCell5 = 42
WidthCell6 = 42
WidthCell7 = 42
WidthCell8 = 42
WidthCell9 = 42
WidthParent = 686
%>
集計コード
集計名称
貸借 区分
集計先 コード
(+-)
行間
下線
表示 位置
構成 表示
<%
'スプレッドシート定義 ※全行共通なのでループ外
Dim SpMaxRow
Dim SpRowCnt
Dim SpMaxCol
SpRowCnt = 0
SpMaxRow = SpRowCnt
'フォーム名
SpFormName = "SpCell" '
'行定義
SpRowHeight = HeightCell '高さ(pixel指定)
SpRowCls = "" '行スタイルclass
SpRowStyle = "" '行スタイル
'列1定義
SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(1) = "" 'セルスタイルclass
SpCellStyle(1) = "border:1px solid #000000;" 'セルスタイル
SpInputCls(1) = "Spread5L" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,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) = "Spread5L" 'フォームスタイルclass
SpInputStyle(2) = "" 'フォームスタイル
SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "FormStrLeftIME(this,100,true,true);" 'onBlurで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
'列3定義
SpCellType(3) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
SpCellWidth(3) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "" 'セルスタイルclass
SpCellStyle(3) = "border:1px solid #000000;" 'セルスタイル
SpInputCls(3) = "Spread5L" 'フォームスタイルclass
SpInputStyle(3) = "" 'フォームスタイル
SpInputFocus(3) = "" 'onFocusで作動させるスクリプト
SpInputBlur(3) = "" 'onBlurで作動させるスクリプト
SpInputChange(3) = "" 'onChangeで作動させるスクリプト
SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
'列4定義
SpCellType(4) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(4) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(4) = "" 'セルスタイルclass
SpCellStyle(4) = "border:1px solid #000000;" 'セルスタイル
SpInputCls(4) = "Spread5L" 'フォームスタイルclass
SpInputStyle(4) = "" 'フォームスタイル
SpInputFocus(4) = "" 'onFocusで作動させるスクリプト
SpInputBlur(4) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);" 'onBlurで作動させるスクリプト
SpInputChange(4) = "" 'onChangeで作動させるスクリプト
SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
'列5定義
SpCellType(5) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
SpCellWidth(5) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(5) = "" 'セルスタイルclass
SpCellStyle(5) = "border:1px solid #000000;" 'セルスタイル
SpInputCls(5) = "Spread5L" 'フォームスタイルclass
SpInputStyle(5) = "" 'フォームスタイル
SpInputFocus(5) = "" 'onFocusで作動させるスクリプト
SpInputBlur(5) = "" 'onBlurで作動させるスクリプト
SpInputChange(5) = "" 'onChangeで作動させるスクリプト
SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
'列6定義
SpCellType(6) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
SpCellWidth(6) = WidthCell6 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(6) = "" 'セルスタイルclass
SpCellStyle(6) = "border:1px solid #000000;" 'セルスタイル
SpInputCls(6) = "Spread5C" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "FormStrFloatEdge(this,1,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
SpInputChange(6) = "" 'onChangeで作動させるスクリプト
SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
'列7定義
SpCellType(7) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
SpCellWidth(7) = WidthCell7 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(7) = "" 'セルスタイルclass
SpCellStyle(7) = "border:1px solid #000000;" 'セルスタイル
SpInputCls(7) = "Spread5L" 'フォームスタイルclass
SpInputStyle(7) = "" 'フォームスタイル
SpInputFocus(7) = "" 'onFocusで作動させるスクリプト
SpInputBlur(7) = "" 'onBlurで作動させるスクリプト
SpInputChange(7) = "" 'onChangeで作動させるスクリプト
SpInputRO(7) = "" 'フォームreadonlyフラグ("1")
'列8定義
SpCellType(8) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
SpCellWidth(8) = WidthCell8 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(8) = "" 'セルスタイルclass
SpCellStyle(8) = "border:1px solid #000000;" 'セルスタイル
SpInputCls(8) = "Spread5L" 'フォームスタイルclass
SpInputStyle(8) = "" 'フォームスタイル
SpInputFocus(8) = "" 'onFocusで作動させるスクリプト
SpInputBlur(8) = "" 'onBlurで作動させるスクリプト
SpInputChange(8) = "" 'onChangeで作動させるスクリプト
SpInputRO(8) = "" 'フォームreadonlyフラグ("1")
'列9定義
SpCellType(9) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
SpCellWidth(9) = WidthCell9 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(9) = "" 'セルスタイルclass
SpCellStyle(9) = "border:1px solid #000000;" 'セルスタイル
SpInputCls(9) = "Spread5L" 'フォームスタイルclass
SpInputStyle(9) = "" 'フォームスタイル
SpInputFocus(9) = "" 'onFocusで作動させるスクリプト
SpInputBlur(9) = "" 'onBlurで作動させるスクリプト
SpInputChange(9) = "" 'onChangeで作動させるスクリプト
SpInputRO(9) = "" 'フォームreadonlyフラグ("1")
Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TyohyoKubun & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
SpInputValue(1) = Content.Fields("集計CD") 'フォーム初期値
SpInputValue(2) = Content.Fields("集計名称") 'フォーム初期値
SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(3) = SpInputOption(3) & " "' & vbCrLf
SpInputOption(3) = SpInputOption(3) & "借 "' & vbCrLf
SpInputOption(3) = SpInputOption(3) & "貸 "' & vbCrLf
SpInputValue(4) = Content.Fields("集計先") 'フォーム初期値
SpInputOption(5) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(5) = SpInputOption(5) & " "' & vbCrLf
SpInputOption(5) = SpInputOption(5) & "+ "' & vbCrLf
SpInputOption(5) = SpInputOption(5) & "− "' & vbCrLf
SpInputValue(6) = Content.Fields("ラインコントロール") 'フォーム初期値
SpInputOption(7) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(7) = SpInputOption(7) & " "' & vbCrLf
SpInputOption(7) = SpInputOption(7) & "有 "' & vbCrLf
SpInputOption(8) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(8) = SpInputOption(8) & " "' & vbCrLf
SpInputOption(8) = SpInputOption(8) & "右 "' & vbCrLf
SpInputOption(8) = SpInputOption(8) & "左 "' & vbCrLf
SpInputOption(9) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(9) = SpInputOption(9) & " "' & vbCrLf
SpInputOption(9) = SpInputOption(9) & "有 "' & vbCrLf
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
If 0=1 Then
Response.Write("" & vbCrLf)
Response.Write("" & Content.Fields("集計CD") & " " & vbCrLf)
Response.Write("" & Content.Fields("集計名称") & " " & vbCrLf)
Response.Write("" & ConvKubunMeisyo("貸借略区分", Content.Fields("貸借")) & " " & vbCrLf)
Response.Write("" & Content.Fields("集計先") & " " & vbCrLf)
Response.Write("" & Content.Fields("加減区分") & " " & vbCrLf)
Response.Write("" & Content.Fields("ラインコントロール") & " " & vbCrLf)
Response.Write("" & ConvKubunMeisyo("アンダーライン", Content.Fields("アンダーライン")) & " " & vbCrLf)
Response.Write("" & ConvKubunMeisyo("右方表示", Content.Fields("右方表示")) & " " & vbCrLf)
Response.Write("" & ConvKubunMeisyo("構成表示", Content.Fields("構成表示")) & " " & vbCrLf)
Response.Write(" ")
End If
Content.MoveNext
Loop
'スプレッドシートの空白行を発生させる
SpInputValue(1) = "" 'フォーム初期値
SpInputValue(2) = "" 'フォーム初期値
SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(3) = SpInputOption(3) & " "' & vbCrLf
SpInputOption(3) = SpInputOption(3) & "借 "' & vbCrLf
SpInputOption(3) = SpInputOption(3) & "貸 "' & vbCrLf
SpInputValue(4) = "" 'フォーム初期値
SpInputOption(5) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(5) = SpInputOption(5) & " "' & vbCrLf
SpInputOption(5) = SpInputOption(5) & "+ "' & vbCrLf
SpInputOption(5) = SpInputOption(5) & "− "' & vbCrLf
SpInputValue(6) = "" 'フォーム初期値
SpInputOption(7) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(7) = SpInputOption(7) & " "' & vbCrLf
SpInputOption(7) = SpInputOption(7) & "有 "' & vbCrLf
SpInputOption(8) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(8) = SpInputOption(8) & " "' & vbCrLf
SpInputOption(8) = SpInputOption(8) & "右 "' & vbCrLf
SpInputOption(8) = SpInputOption(8) & "左 "' & vbCrLf
SpInputOption(9) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(9) = SpInputOption(9) & " "' & vbCrLf
SpInputOption(9) = SpInputOption(9) & "有 "' & vbCrLf
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
<% End If %>
<% If TyohyoKubun = "P" Then %>
*期末修正記入後は「売上原価(期首商品棚卸高・期末商品棚卸高)を仕入高にまとめて表示」することが可能です。
それを利用する場合は、集計マスターのP200番台は変更しないでください。
<% End If %>
<% If TyohyoKubun = "B" Then %>
<% = Spacer(1,8) %>
仕訳集計により生じた当期損益の挿入先
<% Else %>
<% End IF %>