| 日付 |
|
勘定科目 |
| |
<% = Spacer(1,1) %>資産<% = Spacer(2,1) %> |
|
<% = Spacer(2,1) %>負債<% = Spacer(2,1) %> |
|
<% = Spacer(2,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(2,1) %> |
|
<% = Spacer(2,1) %>収益<% = Spacer(2,1) %> |
|
<% = Spacer(2,1) %>費用<% = Spacer(2,1) %> |
|
<% = Spacer(2,1) %>営業外<% = Spacer(2,1) %> |
|
<% = Spacer(2,1) %>特別<% = Spacer(2,1) %> |
|
<% = Spacer(2,1) %>その他<% = Spacer(2,1) %> |
|
<% = Spacer(2,1) %>全て<% = Spacer(1,1) %> |
|
|
|
|
|
|
<% If GB_IEmode = "1" Then %>
<% = SetStringInsertSpace(PageType) %> |
<% Else %>
<% = SetStringInsertSpace(PageType) %> |
<% End If %>
|
|
|
|
|
<% If GB_IEmode = "1" Then %>
|
|
<% Else %>
<%
Dim HeightCell
Dim WidthCell1 '金額
Dim WidthCell2 '元丁/勘定CD
Dim WidthCell3 '勘定科目
Dim WidthParent
HeightCell = 23
WidthCell1 = 92
WidthCell2 = 50
WidthCell3 = 152
WidthParent = 700
Dim KarikataKingakuTotal
Dim KarikataZandakaTotal
Dim KashikataKingakuTotal
Dim KashikataZandakaTotal
KarikataKingakuTotal = 0
KarikataZandakaTotal = 0
KashikataKingakuTotal = 0
KashikataZandakaTotal = 0
%>
|
|
|
<%
'スプレッドシート定義 ※全行共通なのでループ外
Dim SpMaxRow
Dim SpRowCnt
Dim SpMaxCol
SpRowCnt = 0
SpMaxRow = SpRowCnt
'フォーム名
SpFormName = "SpCell" '
'行定義
SpRowHeight = HeightCell '高さ(pixel指定)
SpRowCls = "" '行スタイルclass
SpRowStyle = "" '行スタイル
'列1定義
SpCellType(1) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(1) = "br3" 'セルスタイルclass
SpCellStyle(1) = "" 'セルスタイル
SpInputCls(1) = "Spread4R" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetZandaka();" 'onBlurで作動させるスクリプト
SpInputChange(1) = "" 'onChangeで作動させるスクリプト
SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then
SpInputCls(1) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
SpInputRO(1) = "1" 'フォームreadonlyフラグ("1")
End If
'列2定義
SpCellType(2) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(2) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(2) = "br3" 'セルスタイルclass
SpCellStyle(2) = "" 'セルスタイル
SpInputCls(2) = "Spread4R" 'フォームスタイルclass
SpInputStyle(2) = "" 'フォームスタイル
SpInputFocus(2) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(2) = "" 'onChangeで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
'列3定義
SpCellType(3) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(3) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "br1" 'セルスタイルclass
SpCellStyle(3) = "" 'セルスタイル
SpInputCls(3) = "Spread4C" 'フォームスタイルclass
SpInputStyle(3) = "" 'フォームスタイル
SpInputFocus(3) = "" 'onFocusで作動させるスクリプト
SpInputBlur(3) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
SpInputChange(3) = "" 'onChangeで作動させるスクリプト
SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
'列4定義
SpCellType(4) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(4) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(4) = "br3" 'セルスタイルclass
SpCellStyle(4) = "" 'セルスタイル
SpInputCls(4) = "Spread4L" 'フォームスタイルclass
SpInputStyle(4) = "" 'フォームスタイル
SpInputFocus(4) = "" 'onFocusで作動させるスクリプト
SpInputBlur(4) = "" 'onBlurで作動させるスクリプト
SpInputChange(4) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
'列5定義
SpCellType(5) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(5) = WidthCell1 'セル幅(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);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(5) = "" 'onChangeで作動させるスクリプト
SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
'列6定義
SpCellType(6) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(6) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(6) = "b0" 'セルスタイルclass
SpCellStyle(6) = "" 'セルスタイル
SpInputCls(6) = "Spread4R" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetZandaka();" 'onBlurで作動させるスクリプト
SpInputChange(6) = "" 'onChangeで作動させるスクリプト
SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then
SpInputCls(6) = "Spread4Rro" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "this.blur();" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "" 'onBlurで作動させるスクリプト
SpInputRO(6) = "1" 'フォームreadonlyフラグ("1")
End If
Query = "exec SPK帳簿_合計残高試算表取得日付指定 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim KarikataZandaka, KarikataKingaku
Dim KanjyoCD, KanjyoKamoku
Dim KashikataZandaka, KashikataKingaku
KarikataZandaka = Content.Fields("借方残高")
KarikataKingaku = Content.Fields("借方金額")
KanjyoCD = Content.Fields("勘定CD")
KashikataKingaku = Content.Fields("貸方金額")
KashikataZandaka = Content.Fields("貸方残高")
If IsNull(KarikataZandaka) or (KarikataZandaka="") Then
Else
KarikataZandakaTotal = KarikataZandakaTotal + KarikataZandaka
End If
If IsNull(KarikataKingaku) or (KarikataKingaku="") Then
Else
KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku
End If
If IsNull(KashikataZandaka) or (KashikataZandaka="") Then
Else
KashikataZandakaTotal = KashikataZandakaTotal + KashikataZandaka
End If
If IsNull(KashikataKingaku) or (KashikataKingaku="") Then
Else
KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku
End If
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
SpInputValue(1) = ConvIntToMoney(Content.Fields("借方残高"), false, true) 'フォーム初期値
SpInputValue(2) = ConvIntToMoney(Content.Fields("借方金額"), false, true) 'フォーム初期値
SpInputValue(3) = Content.Fields("勘定CD") 'フォーム初期値
SpInputOption(4) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
For Cnt = 1 To UBound(KamokuCDAry)
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
Next
SpInputValue(5) = ConvIntToMoney(Content.Fields("貸方金額"), false, true) 'フォーム初期値
SpInputValue(6) = ConvIntToMoney(Content.Fields("貸方残高"), false, true) 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
If 0=1 Then
Response.Write("" & vbCrLf)
Response.Write("| " & ConvIntToMoney(Content.Fields("借方残高"), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("借方金額"), false, true) & " | " & vbCrLf)
Response.Write("" & Content.Fields("勘定CD") & " | " & vbCrLf)
Response.Write("" & Content.Fields("勘定名称") & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("貸方金額"), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("貸方残高"), false, true) & " | " & vbCrLf)
Response.Write(" ")
End If
ii = ii + 1
Content.MoveNext
Loop
'スプレッドシートの空白行を発生させる
SpInputValue(1) = "" 'フォーム初期値
SpInputValue(2) = "" 'フォーム初期値
SpInputValue(3) = "" 'フォーム初期値
SpInputOption(4) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
For Cnt = 1 To UBound(KamokuCDAry)
SpInputOption(4) = SpInputOption(4) & ""' & vbCrLf
Next
SpInputValue(5) = "" 'フォーム初期値
SpInputValue(6) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
|
| <% = ConvIntToMoney(KarikataZandakaTotal, false, true) %> |
<% = ConvIntToMoney(KarikataKingakuTotal, false, true) %> |
合計 |
<% = ConvIntToMoney(KashikataKingakuTotal, false, true) %> |
<% = ConvIntToMoney(KashikataZandakaTotal, false, true) %> |
|
|
※入力行が足りない場合は一度「保存」してください
|
<% End If %>
|
|