日付

勘定科目

<% = 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 %> <% Else %> <% Dim HeightCell Dim WidthCell1 '金額 Dim WidthCell2 '元丁/勘定CD Dim WidthCell3 '勘定科目 Dim WidthCell4 '摘要 Dim WidthParent HeightCell = 23 WidthCell1 = 92 WidthCell2 = 50 WidthCell3 = 152 WidthCell4 = 160 WidthParent = 572 Dim DbKarikataKingakuTotal, DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 %> <% End If %>

<% If GB_IEmode = "1" Then %> <% Else %> <% End If %>

<% = SetStringInsertSpace(PageType) %>

日付： <% If Torihikibi = "" Then %> <% Else %> <% = SetDate(Torihikibi, 1) %> <% End If %>

借方金額

勘定科目

摘要

貸方金額

<% 'スプレッドシート定義 ※全行共通なのでループ外 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);SpSetGokei();" 'onBlurで作動させるスクリプト SpInputChange(1) = "" 'onChangeで作動させるスクリプト SpInputRO(1) = "" 'フォームreadonlyフラグ("1") '列2定義 SpCellType(2) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨） SpCellWidth(2) = WidthCell2 'セル幅(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) = WidthCell3 'セル幅(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) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨） SpCellWidth(4) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(4) = "br3" 'セルスタイルclass SpCellStyle(4) = "" 'セルスタイル SpInputCls(4) = "Spread4L" 'フォームスタイルclass SpInputStyle(4) = "" 'フォームスタイル SpInputFocus(4) = "" 'onFocusで作動させるスクリプト SpInputBlur(4) = "FormStrLeftIME(this,100,true);" 'onBlurで作動させるスクリプト SpInputChange(4) = "" 'onChangeで作動させるスクリプト SpInputRO(4) = "" 'フォームreadonlyフラグ("1") '列5定義 SpCellType(5) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨） SpCellWidth(5) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(5) = "b0" 'セルスタイル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") ii = 0 Query = "exec SPK帳簿_仕訳集計表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Torihikibi & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim DbSokanjyoMototyoCD Dim DbKanjyoCD, DbMototyo, DbTekiyo Dim DbKarikataKingaku, DbKashikataKingaku Dim DbKanjyoMeisyo DbKanjyoCD = Content.Fields("勘定CD") DbKanjyoMeisyo = Content.Fields("勘定名称") DbKarikataKingaku = Content.Fields("借方金額") DbKashikataKingaku = Content.Fields("貸方金額") DbMototyo = Content.Fields("元丁") DbTekiyo = Content.Fields("摘要") If DbKarikataKingaku <> "" Then DbKarikataKingakuTotal = DbKarikataKingakuTotal + DbKarikataKingaku End If If DbKashikataKingaku <> "" Then DbKashikataKingakuTotal = DbKashikataKingakuTotal + DbKashikataKingaku End If 'スプレッドシート行生成 ※此処で値のみ代入 SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映) SpMaxRow = SpRowCnt SpInputValue(1) = ConvIntToMoney(DbKarikataKingaku, false, true) 'フォーム初期値 SpInputValue(2) = DbKanjyoCD 'フォーム初期値 SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(3) = SpInputOption(3) & ""' & vbCrLf For Cnt = 1 To UBound(KamokuCDAry) SpInputOption(3) = SpInputOption(3) & ""' & vbCrLf Next SpInputValue(4) = DbTekiyo 'フォーム初期値 SpInputValue(5) = ConvIntToMoney(DbKashikataKingaku, false, true) 'フォーム初期値 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される If 0=1 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") End If ii = ii + 1 Content.MoveNext Loop 'スプレッドシートの空白行を発生させる SpInputValue(1) = "" 'フォーム初期値 SpInputValue(2) = "" 'フォーム初期値 SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(3) = SpInputOption(3) & ""' & vbCrLf For Cnt = 1 To UBound(KamokuCDAry) SpInputOption(3) = SpInputOption(3) & ""' & vbCrLf Next SpInputValue(4) = "" 'フォーム初期値 SpInputValue(5) = "" 'フォーム初期値 For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される SpMaxRow = Cnt Next %>

" & ConvIntToMoney(DbKarikataKingaku, false, true) & "

" & DbMototyo & "

" & DbKanjyoCD & "

" & DbKanjyoMeisyo & "

" & DbTekiyo & "

" & ConvIntToMoney(DbKashikataKingaku, false, true) & "

<% = SetMoney(DbKarikataKingakuTotal, false, true) %>

合計

<% = SetMoney(DbKashikataKingakuTotal, false, true) %>

※入力行が足りない場合は一度「保存」してください