<% If PackageMode = 1 Then %>仕訳<% Else %>伝票<% End If %>番号

nowrap>

勘定科目

nowrap>

<% = 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 %> <% End If %>

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

取引日： <% If PackageMode = 1 Then %> <% If Jissenbi <> "" And DenpyoNo <> "" Then '実践日固定モード且つ修正モード %> <% ElseIf Jissenbi <> "" Then '実践日固定モード %> <% Else %> <% End If %> <% Else %> <% End If %>

<% = SetStringInsertSpace(PageType) %>

<% If PackageMode = 1 Then %>仕訳<% Else %>伝票<% End If %>番号： <% If PackageMode = 1 Then %> <% If JidoBangoDenpyo = "1" Or DenpyoNo <> "" Then %> <% Else %> <% End If %> <% Else %> <% If DenpyoNo = "" Then %> <% Else %> <% = DenpyoNo %> <% End If %> <% End If %>

<% If GB_IEmode = "1" Then %>

<% Else %> <% Dim HeightCell Dim WidthCell1 Dim WidthCell2 Dim WidthCell3 Dim WidthCell4 Dim WidthCell5 Dim WidthParent HeightCell = 24 WidthCell1 = 55 WidthCell5 = 188 WidthCell2 = 108 WidthParent = 485 %>

摘　　　　要

借方金額

貸方金額

<% 'スプレッドシート定義 ※全行共通なのでループ外 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) = "br1" 'セルスタイルclass SpCellStyle(1) = "" 'セルスタイル SpInputCls(1) = "Spread5C" 'フォームスタイル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) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(2) = "br3" 'セルスタイルclass SpCellStyle(2) = "" 'セルスタイル SpInputCls(2) = "Spread5L" 'フォームスタイル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) = "br3" 'セルスタイルclass SpCellStyle(3) = "" 'セルスタイル SpInputCls(3) = "Spread5R" 'フォームスタイル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) = "b0" 'セルスタイルclass SpCellStyle(4) = "" 'セルスタイル SpInputCls(4) = "Spread5R" 'フォームスタイル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") KarikataGokei = 0 KashikataGokei = 0 '仕訳帳で仕訳を行うモード If PackageMode = 1 Then Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoNo & "', 'S'" Else Query = "exec SPK帳簿_仕訳帳取得伝票番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoNo & "'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("借方金額") <> "" Then KarikataGokei = KarikataGokei + Content.Fields("借方金額") End If If "" & Content.Fields("貸方金額") <> "" Then KashikataGokei = KashikataGokei + Content.Fields("貸方金額") End If 'スプレッドシート行生成 ※此処で値のみ代入 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(Content.Fields("借方金額"), false, false) 'フォーム初期値 SpInputValue(4) = ConvIntToMoney(Content.Fields("貸方金額"), false, false) 'フォーム初期値 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される 'フォーム初期値を取得しておく(onLoadで代入する) If "" & Content.Fields("摘要") <> "" Then Tekiyo = Replace(Replace(Content.Fields("摘要"), "\", "\\"), """", "”") End If Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Content.MoveNext Loop 'スプレッドシートの空白行を発生させる SpInputValue(1) = "" 'フォーム初期値 SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf For Cnt = 1 To UBound(KamokuCDAry) SpInputOption(2) = SpInputOption(2) & ""' & vbCrLf Next SpInputValue(3) = "" 'フォーム初期値 SpInputValue(4) = "" 'フォーム初期値 For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される SpMaxRow = Cnt Next %>

<% = ConvIntToMoney(KarikataGokei, false, false) %>

<% = ConvIntToMoney(KashikataGokei, false, false) %>

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

<% End If %>

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

取引先：

小書き： <% Else %>

小書き： <% End If %>