900<% Else %>450<% End If %>" CELLSPACING="5" CELLPADDING="0" HEIGHT="100%" STYLE="BORDER:1px solid #000000; border-collapse:collapse" bgcolor="#FFFFFF">
| 元帳勘定科目
FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);<% End If %>TmpKanjyoCDChk(this.value)" class="tbox4" maxlength="4" onClick="this.focus();this.focus();">
|
| |
<% = 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 KanjyoCD <> "" Then %>
| 相手勘定科目 |
| |
<% = 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) %> |
|
|
|
<% End If %>
|
<% If GB_IEmode = "1" Then %>
|
<% End If %>
<% If GB_IEmode = "1" Then %>
|
<% = SetStringInsertSpace(PageType) %> |
|
|
<% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %> |
|
|
<% If KanjyoCD <> "" Then %>
<% Else %>
上のメニューより入力対象の勘定科目を選択してください
<% End If %>
|
<% Else %>
<% If KanjyoCD <> "" Then %>
|
<% = SetStringInsertSpace("総勘定元帳") %> |
|
|
|
<% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %> |
No.<% = KanjyoCD %> |
|
| 取引日 |
相手勘定科目 |
仕丁 |
借方 |
取引日 |
相手勘定科目 |
仕丁 |
貸方 |
|
|
<%
'スプレッドシート定義 ※全行共通なのでループ外
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) = WidthCell7 'セル幅(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")
If Shiwakebi = "1" Then
SpCellType(1) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
End If
'列2定義
SpCellType(2) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(2) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(2) = "br1" 'セルスタイルclass
SpCellStyle(2) = "" 'セルスタイル
SpInputCls(2) = "Spread4C" 'フォームスタイルclass
SpInputStyle(2) = "" 'フォームスタイル
SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
SpInputBlur(2) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
SpInputChange(2) = "" 'onChangeで作動させるスクリプト
SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
'列3定義
SpCellType(3) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(3) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(3) = "br1" 'セルスタイルclass
SpCellStyle(3) = "" 'セルスタイル
SpInputCls(3) = "Spread4L" 'フォームスタイルclass
SpInputStyle(3) = "" 'フォームスタイル
SpInputFocus(3) = "" 'onFocusで作動させるスクリプト
SpInputBlur(3) = "" 'onBlurで作動させるスクリプト
SpInputChange(3) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
'列4定義
SpCellType(4) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(4) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(4) = "br3" 'セルスタイルclass
SpCellStyle(4) = "" 'セルスタイル
SpInputCls(4) = "Spread4L" 'フォームスタイル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) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(5) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(5) = "br2" 'セルスタイル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) = "0" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(6) = WidthCell7 'セル幅(pixel指定)
SpCellCls(6) = "br1" 'セルスタイルclass
SpCellStyle(6) = "" 'セルスタイル
SpInputCls(6) = "Spread4C" 'フォームスタイルclass
SpInputStyle(6) = "" 'フォームスタイル
SpInputFocus(6) = "" 'onFocusで作動させるスクリプト
SpInputBlur(6) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
SpInputChange(6) = "" 'onChangeで作動させるスクリプト
SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
If Shiwakebi = "1" Then
SpCellType(6) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpInputBlur(6) = "" 'onBlurで作動させるスクリプト
End If
'列7定義
SpCellType(7) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(7) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(7) = "br1" 'セルスタイルclass
SpCellStyle(7) = "" 'セルスタイル
SpInputCls(7) = "Spread4C" 'フォームスタイルclass
SpInputStyle(7) = "" 'フォームスタイル
SpInputFocus(7) = "" 'onFocusで作動させるスクリプト
SpInputBlur(7) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
SpInputChange(7) = "" 'onChangeで作動させるスクリプト
SpInputRO(7) = "" 'フォームreadonlyフラグ("1")
'列8定義
SpCellType(8) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
SpCellWidth(8) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(8) = "br1" 'セルスタイルclass
SpCellStyle(8) = "" 'セルスタイル
SpInputCls(8) = "Spread4L" 'フォームスタイルclass
SpInputStyle(8) = "" 'フォームスタイル
SpInputFocus(8) = "" 'onFocusで作動させるスクリプト
SpInputBlur(8) = "" 'onBlurで作動させるスクリプト
SpInputChange(8) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
SpInputRO(8) = "" 'フォームreadonlyフラグ("1")
'列9定義
SpCellType(9) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
SpCellWidth(9) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
SpCellCls(9) = "br3" 'セルスタイルclass
SpCellStyle(9) = "" 'セルスタイル
SpInputCls(9) = "Spread4L" 'フォームスタイルclass
SpInputStyle(9) = "" 'フォームスタイル
SpInputFocus(9) = "" 'onFocusで作動させるスクリプト
SpInputBlur(9) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);" '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);" 'onBlurで作動させるスクリプト
SpInputChange(10) = "" 'onChangeで作動させるスクリプト
SpInputRO(10) = "" 'フォームreadonlyフラグ("1")
ii = 0
bExist = 2
Query = "exec SPK帳簿_総勘定元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCD & "'"
Set ContentKarikata = OpenQuery(Query)
Set ContentKashikata = OpenQuery(Query)
Do While bExist > 0
bExist = 2
Dim DbKarikataKingaku
Dim DbKashikataKingaku
KarikataTorihikibi = ""
KarikataTekiyo1 = ""
KarikataTekiyo2 = ""
KarikataAiteKanjyo = ""
KarikataShityo = ""
KarikataKingaku = ""
KarikataTaisyakuKubun = ""
KarikataZandaka = ""
KashikataTorihikibi = ""
KashikataTekiyo1 = ""
KashikataTekiyo2 = ""
KashikataAiteKanjyo = ""
KashikataShityo = ""
KashikataKingaku = ""
KashikataTaisyakuKubun = ""
KashikataZandaka = ""
For jj = 1 To 1000
If (ContentKarikata.BOF Or ContentKarikata.EOF) Then
bExist = bExist - 1
Exit For
Else
If IsNull(ContentKarikata.Fields("借方金額")) Then
ContentKarikata.MoveNext
ElseIf ContentKarikata.Fields("借方金額") = 0 Then
ContentKarikata.MoveNext
Else
KarikataTorihikibi = SetTimeYYYYMMDD(ContentKarikata.Fields("取引日"))
KarikataTekiyo2 = ContentKarikata.Fields("摘要")
KarikataAiteKanjyo = ContentKarikata.Fields("相手勘定CD")
KarikataShityo = ContentKarikata.Fields("仕丁")
KarikataKingaku = ContentKarikata.Fields("借方金額")
ContentKarikata.MoveNext
Exit For
End If
End If
Next
For jj = 1 To 1000
If (ContentKashikata.BOF Or ContentKashikata.EOF) Then
bExist = bExist - 1
Exit For
Else
If IsNull(ContentKashikata.Fields("貸方金額")) Then
ContentKashikata.MoveNext
ElseIf ContentKashikata.Fields("貸方金額") = 0 Then
ContentKashikata.MoveNext
Else
KashikataTorihikibi = SetTimeYYYYMMDD(ContentKashikata.Fields("取引日"))
KashikataTekiyo2 = ContentKashikata.Fields("摘要")
KashikataAiteKanjyo = ContentKashikata.Fields("相手勘定CD")
KashikataShityo = ContentKashikata.Fields("仕丁")
KashikataKingaku = ContentKashikata.Fields("貸方金額")
ContentKashikata.MoveNext
Exit For
End If
End If
Next
If bExist = 0 Then
Exit Do
End If
If IsNull(KarikataKingaku) or (KarikataKingaku="") Then
Else
KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku
KarikataMonthTotal = KarikataMonthTotal + KarikataKingaku
End If
If IsNull(KashikataKingaku) or (KashikataKingaku="") Then
Else
KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku
KashikataMonthTotal = KashikataMonthTotal + KashikataKingaku
End If
'スプレッドシート行生成 ※此処で値のみ代入
SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
SpMaxRow = SpRowCnt
If Shiwakebi = "1" Then
SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
If InStr(TmpShiwakebiAry, KarikataTorihikibi) < 1 Then
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
End If
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
For Cnt = 1 To UBound(ShiwakebiAry)
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
Next
Else
SpInputValue(1) = KarikataTorihikibi 'フォーム初期値
End If
SpInputValue(2) = KarikataAiteKanjyo 'フォーム初期値
' SpInputValue(3) = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KarikataAiteKanjyo) 'フォーム初期値
SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(3) = SpInputOption(3) & ""' & vbCrLf
For Cnt = 1 To UBound(KamokuCDAry)
If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外
SpInputOption(3) = SpInputOption(3) & ""' & vbCrLf
End If
Next
SpInputValue(4) = KarikataShityo 'フォーム初期値
SpInputValue(5) = ConvIntToMoney(KarikataKingaku, false, false) 'フォーム初期値
If Shiwakebi = "1" Then
SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
If InStr(TmpShiwakebiAry, KashikataTorihikibi) < 1 Then
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
End If
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
For Cnt = 1 To UBound(ShiwakebiAry)
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
Next
Else
SpInputValue(6) = KashikataTorihikibi 'フォーム初期値
End If
SpInputValue(7) = KashikataAiteKanjyo 'フォーム初期値
' SpInputValue(8) = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KashikataAiteKanjyo) 'フォーム初期値
SpInputOption(8) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(8) = SpInputOption(8) & ""' & vbCrLf
For Cnt = 1 To UBound(KamokuCDAry)
If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外
SpInputOption(8) = SpInputOption(8) & ""' & vbCrLf
Next
SpInputValue(9) = KashikataShityo 'フォーム初期値
SpInputValue(10) = ConvIntToMoney(KashikataKingaku, false, false) 'フォーム初期値
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される
If 0=1 Then
Response.Write("" & vbCrLf)
Response.Write("| " & KarikataTorihikibi & " | " & vbCrLf)
Response.Write("" & KarikataAiteKanjyo & " | " & vbCrLf)
Response.Write("" & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KarikataAiteKanjyo) & " | " & vbCrLf)
Response.Write("" & KarikataShityo & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(KarikataKingaku, false, false) & " | " & vbCrLf)
Response.Write("" & KashikataTorihikibi & " | " & vbCrLf)
Response.Write("" & KashikataAiteKanjyo & " | " & vbCrLf)
Response.Write("" & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KashikataAiteKanjyo) & " | " & vbCrLf)
Response.Write("" & KashikataShityo & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(KashikataKingaku, false, false) & " | " & vbCrLf)
Response.Write(" " & vbCrLf)
End If
ii = ii + 1
Loop
'スプレッドシートの空白行を発生させる
If Shiwakebi = "1" Then
SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
For Cnt = 1 To UBound(ShiwakebiAry)
SpInputOption(1) = SpInputOption(1) & ""' & vbCrLf
Next
Else
SpInputValue(1) = "" 'フォーム初期値
End If
SpInputValue(2) = "" 'フォーム初期値
SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(3) = SpInputOption(3) & ""' & vbCrLf
For Cnt = 1 To UBound(KamokuCDAry)
If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外
SpInputOption(3) = SpInputOption(3) & ""' & vbCrLf
End If
Next
SpInputValue(4) = "" 'フォーム初期値
SpInputValue(5) = "" 'フォーム初期値
If Shiwakebi = "1" Then
SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
For Cnt = 1 To UBound(ShiwakebiAry)
SpInputOption(6) = SpInputOption(6) & ""' & vbCrLf
Next
Else
SpInputValue(6) = "" 'フォーム初期値
End If
SpInputValue(7) = "" 'フォーム初期値
SpInputOption(8) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
SpInputOption(8) = SpInputOption(8) & ""' & vbCrLf
For Cnt = 1 To UBound(KamokuCDAry)
If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外
SpInputOption(8) = SpInputOption(8) & ""' & vbCrLf
End If
Next
SpInputValue(9) = "" 'フォーム初期値
SpInputValue(10) = "" 'フォーム初期値
For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
SpMaxRow = Cnt
Next
%>
|
|
※入力行が足りない場合は一度「保存」してください
|
<% Else %>
上のメニューより入力対象の勘定科目を選択してください
|
<% End If %>
<% End If %>
|
|