|
<% If GB_IEmode = "1" Then %>
<% = SetStringInsertSpace(PageType) %> |
<% Else %>
<% = SetStringInsertSpace(PageType) %> |
<% End If %>
|
|
|
<% = SetDate(GB_KaikeiSyuryobi, 2) %> |
|
|
<% If GB_IEmode = "1" Then %>
|
|
|
|
<% Else %>
<%
Dim ShisanhyoKarikataGokei, ShisanhyoKashikataGokei
Dim SyuseikinyuKarikataGokei, SyuseikinyuKashikataGokei
Dim SonekikeisansyoKarikataGokei, SonekikeisansyoKashikataGokei
Dim TaisyakutaisyohyoKarikataGokei, TaisyakutaisyohyoKashikataGokei
ShisanhyoKarikataGokei = 0
ShisanhyoKashikataGokei = 0
SyuseikinyuKarikataGokei = 0
SyuseikinyuKashikataGokei = 0
SonekikeisansyoKarikataGokei = 0
SonekikeisansyoKashikataGokei = 0
TaisyakutaisyohyoKarikataGokei = 0
TaisyakutaisyohyoKashikataGokei = 0
Dim WidthCell1, WidthCell2, WidthParent, WidthParent2
Dim WidthCell3 '勘定科目
Dim HeightCell
HeightCell = 20
WidthCell1 = 50
WidthCell2 = 89
WidthCell3 = 152
WidthParent = 949
WidthParent2 = 932
%>
| 勘定科目 |
残高試算表 |
整理記入 |
損益計算書 |
貸借対照表 |
| 借方 |
貸方 |
借方 |
貸方 |
借方 |
貸方 |
借方 |
貸方 |
|
|
<%
'スプレッドシート定義 ※全行共通なのでループ外
Dim SpMaxRow
Dim SpRowCnt
Dim SpMaxCol
SpRowCnt = 0
SpMaxRow = SpRowCnt
'フォーム名
SpFormName = "SpCell" '
'行定義
SpRowHeight = "23" '高さ(pixel指定)
SpRowCls = "" '行スタイルclass
SpRowStyle = "" '行スタイル
'列1定義
SpCellType(1) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(1) = "br1" 'セルスタイルclass
SpCellStyle(1) = "" 'セルスタイル
SpInputCls(1) = "Spread4C" 'フォームスタイルclass
SpInputStyle(1) = "" 'フォームスタイル
SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
SpInputChange(1) = "" 'onChangeで作動させるスクリプト
SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
'列2定義
SpCellType(2) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(2) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(2) = "br3" 'セルスタイルclass
SpCellStyle(2) = "" 'セルスタイル
SpInputCls(2) = "Spread4L" 'フォームスタイルclass
SpInputStyle(2) = "" 'フォームスタイル
SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
SpInputChange(2) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
'列3定義
SpCellType(3) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(3) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "br1" 'セルスタイルclass
SpCellStyle(3) = "" 'セルスタイル
SpInputCls(3) = "Spread4R" 'フォームスタイルclass
SpInputStyle(3) = "" 'フォームスタイル
SpInputFocus(3) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(3) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(3) = "" 'onChangeで作動させるスクリプト
SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
'列4定義
SpCellType(4) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(4) = WidthCell2 'セル幅(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);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(4) = "" 'onChangeで作動させるスクリプト
SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
'列5定義
SpCellType(5) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(5) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(5) = "br1" 'セルスタイル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) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(6) = "br3" 'セルスタイルclass
SpCellStyle(6) = "" 'セルスタイル
SpInputCls(6) = "Spread4R" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(6) = "" 'onChangeで作動させるスクリプト
SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
'列7定義
SpCellType(7) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(7) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(7) = "br1" 'セルスタイルclass
SpCellStyle(7) = "" 'セルスタイル
SpInputCls(7) = "Spread4R" 'フォームスタイルclass
SpInputStyle(7) = "" 'フォームスタイル
SpInputFocus(7) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(7) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(7) = "" 'onChangeで作動させるスクリプト
SpInputRO(7) = "" 'フォームreadonlyフラグ("1")
'列8定義
SpCellType(8) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(8) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(8) = "br3" 'セルスタイルclass
SpCellStyle(8) = "" 'セルスタイル
SpInputCls(8) = "Spread4R" 'フォームスタイルclass
SpInputStyle(8) = "" 'フォームスタイル
SpInputFocus(8) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(8) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(8) = "" 'onChangeで作動させるスクリプト
SpInputRO(8) = "" 'フォームreadonlyフラグ("1")
'列9定義
SpCellType(9) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(9) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(9) = "br1" 'セルスタイルclass
SpCellStyle(9) = "" 'セルスタイル
SpInputCls(9) = "Spread4R" 'フォームスタイルclass
SpInputStyle(9) = "" 'フォームスタイル
SpInputFocus(9) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(9) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(9) = "" 'onChangeで作動させるスクリプト
SpInputRO(9) = "" 'フォームreadonlyフラグ("1")
'列10定義
SpCellType(10) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(10) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(10) = "b0" 'セルスタイルclass
SpCellStyle(10) = "" 'セルスタイル
SpInputCls(10) = "Spread4R" 'フォームスタイルclass
SpInputStyle(10) = "" 'フォームスタイル
SpInputFocus(10) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
SpInputBlur(10) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetGokei();" 'onBlurで作動させるスクリプト
SpInputChange(10) = "" 'onChangeで作動させるスクリプト
SpInputRO(10) = "" 'フォームreadonlyフラグ("1")
ii = 0
Query = "exec SPK帳簿_八桁精算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim ShisanhyoKarikata, ShisanhyoKashikata
Dim SyuseikinyuKarikata, SyuseikinyuKashikata
Dim SonekikeisansyoKarikata, SonekikeisansyoKashikata
Dim TaisyakutaisyohyoKarikata, TaisyakutaisyohyoKashikata
ShisanhyoKarikata = Content.Fields("試算表借方金額")
ShisanhyoKashikata = Content.Fields("試算表貸方金額")
SyuseikinyuKarikata = Content.Fields("整理記入借方金額")
SyuseikinyuKashikata = Content.Fields("整理記入貸方金額")
SonekikeisansyoKarikata = Content.Fields("損益計算書借方金額")
SonekikeisansyoKashikata = Content.Fields("損益計算書貸方金額")
TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額")
TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額")
'※この部分は社長に騙されて完全に誤ってた
'「資産勘定で貸方」または「資産勘定以外で借方」なら貸借対照表の貸借金額を反転する（090119小野）
' If Content.Fields("勘定細目") = "A" And Content.Fields("貸借区分") = "C" Then
' TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額") - Content.Fields("貸借対照表貸方金額")
' TaisyakutaisyohyoKashikata = 0
' End If
' その他勘定は反転しない（111012小野）
If Content.Fields("勘定細目") <> "A" And Content.Fields("勘定細目") <> "H" And Content.Fields("貸借区分") = "D" Then
TaisyakutaisyohyoKarikata = 0
TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額") - Content.Fields("貸借対照表借方金額")
End If
If IsNull(ShisanhyoKarikata) Then ShisanhyoKarikata = 0 End If
If IsNull(ShisanhyoKashikata) Then ShisanhyoKashikata = 0 End If
If IsNull(SyuseikinyuKarikata) Then SyuseikinyuKarikata = 0 End If
If IsNull(SyuseikinyuKashikata) Then SyuseikinyuKashikata = 0 End If
If IsNull(SonekikeisansyoKarikata) Then SonekikeisansyoKarikata = 0 End If
If IsNull(SonekikeisansyoKashikata) Then SonekikeisansyoKashikata = 0 End If
If IsNull(TaisyakutaisyohyoKarikata) Then TaisyakutaisyohyoKarikata = 0 End If
If IsNull(TaisyakutaisyohyoKashikata) Then TaisyakutaisyohyoKashikata = 0 End If
ShisanhyoKarikataGokei = ShisanhyoKarikataGokei + ShisanhyoKarikata
ShisanhyoKashikataGokei = ShisanhyoKashikataGokei + ShisanhyoKashikata
SyuseikinyuKarikataGokei = SyuseikinyuKarikataGokei + SyuseikinyuKarikata
SyuseikinyuKashikataGokei = SyuseikinyuKashikataGokei + SyuseikinyuKashikata
SonekikeisansyoKarikataGokei = SonekikeisansyoKarikataGokei + SonekikeisansyoKarikata
SonekikeisansyoKashikataGokei = SonekikeisansyoKashikataGokei + SonekikeisansyoKashikata
TaisyakutaisyohyoKarikataGokei = TaisyakutaisyohyoKarikataGokei + TaisyakutaisyohyoKarikata
TaisyakutaisyohyoKashikataGokei = TaisyakutaisyohyoKashikataGokei + TaisyakutaisyohyoKashikata
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
SpInputValue(1) = Content.Fields("勘定CD") 'フォーム初期値
SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
For Cnt = 1 To UBound(KamokuMeiAry)
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
Next
SpInputValue(3) = ConvIntToMoney(ShisanhyoKarikata, false, true) 'フォーム初期値
SpInputValue(4) = ConvIntToMoney(ShisanhyoKashikata, false, true) 'フォーム初期値
SpInputValue(5) = ConvIntToMoney(SyuseikinyuKarikata, false, true) 'フォーム初期値
SpInputValue(6) = ConvIntToMoney(SyuseikinyuKashikata, false, true) 'フォーム初期値
SpInputValue(7) = ConvIntToMoney(SonekikeisansyoKarikata, false, true) 'フォーム初期値
SpInputValue(8) = ConvIntToMoney(SonekikeisansyoKashikata, false, true) 'フォーム初期値
SpInputValue(9) = ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) 'フォーム初期値
SpInputValue(10) = ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
ii = ii + 1
If 0=1 Then
Response.Write("" & vbCrLf)
Response.Write("| " & Content.Fields("勘定CD") & " | " & vbCrLf)
Response.Write("" & AscLeft(Content.Fields("勘定名称"),18) & " | " & vbCrLf) '勘定名称を18Byteで切り捨て（061102小野）
Response.Write("" & ConvIntToMoney(ShisanhyoKarikata, false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(ShisanhyoKashikata, false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(SyuseikinyuKarikata, false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(SyuseikinyuKashikata, false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(SonekikeisansyoKarikata, false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(SonekikeisansyoKashikata, false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) & " | " & vbCrLf)
Response.Write(" " & vbCrLf)
End If
Content.MoveNext
Loop
'スプレッドシートの空白行を発生させる
SpInputValue(1) = "" 'フォーム初期値
SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
For Cnt = 1 To UBound(KamokuMeiAry)
SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf
Next
SpInputValue(3) = "" 'フォーム初期値
SpInputValue(4) = "" 'フォーム初期値
SpInputValue(5) = "" 'フォーム初期値
SpInputValue(6) = "" 'フォーム初期値
SpInputValue(7) = "" 'フォーム初期値
SpInputValue(8) = "" 'フォーム初期値
SpInputValue(9) = "" 'フォーム初期値
SpInputValue(10) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
|
| 試算表合計 |
<% = ConvIntToMoney(ShisanhyoKarikataGokei, false, true) %> |
<% = ConvIntToMoney(ShisanhyoKashikataGokei, false, true) %> |
|
|
|
|
|
|
| <%
If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then
Response.Write("当期利益")
ElseIf SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then
Response.Write("当期損失")
Else
Response.Write("当期")
End If
%> |
<%
Dim ToukiPLKari
Dim ToukiPLKashi
Dim ToukiBSKari
Dim ToukiBSKashi
ToukiPLKari = SonekikeisansyoKashikataGokei - SonekikeisansyoKarikataGokei
ToukiPLKashi = SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei
ToukiBSKari = TaisyakutaisyohyoKashikataGokei - TaisyakutaisyohyoKarikataGokei
ToukiBSKashi = TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei
If ToukiPLKari <= 0 Then ToukiPLKari = null End If
If ToukiPLKashi <= 0 Then ToukiPLKashi = null End If
If ToukiBSKari <= 0 Then ToukiBSKari = null End If
If ToukiBSKashi <= 0 Then ToukiBSKashi = null End If
%>
|
|
|
|
<% = ConvIntToMoney(ToukiPLKari, false, true) %> |
<% = ConvIntToMoney(ToukiPLKashi, false, true) %> |
<% = ConvIntToMoney(ToukiBSKari, false, true) %> |
<% = ConvIntToMoney(ToukiBSKashi, false, true) %> |
<%
Dim GokeiPLKari
Dim GokeiPLKashi
Dim GokeiBSKari
Dim GokeiBSKashi
If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then
GokeiPLKari = SonekikeisansyoKashikataGokei
Else
GokeiPLKari = SonekikeisansyoKarikataGokei
End If
If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then
GokeiPLKashi = SonekikeisansyoKarikataGokei
Else
GokeiPLKashi = SonekikeisansyoKashikataGokei
End If
If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei < 0 Then
GokeiBSKari = TaisyakutaisyohyoKashikataGokei
Else
GokeiBSKari = TaisyakutaisyohyoKarikataGokei
End If
If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei > 0 Then
GokeiBSKashi = TaisyakutaisyohyoKarikataGokei
Else
GokeiBSKashi = TaisyakutaisyohyoKashikataGokei
End If
%>
| 合計 |
|
|
<% = ConvIntToMoney(SyuseikinyuKarikataGokei, false, true) %> |
<% = ConvIntToMoney(SyuseikinyuKashikataGokei, false, true) %> |
<% = ConvIntToMoney(GokeiPLKari, false, true) %> |
<% = ConvIntToMoney(GokeiPLKashi, false, true) %> |
<% = ConvIntToMoney(GokeiBSKari, false, true) %> |
<% = ConvIntToMoney(GokeiBSKashi, false, true) %> |
|
|
※入力行が足りない場合は一度「保存」してください
|
<% End If %>
|
|