<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Kaishibi, Syuryobi ,GB_GakuseiBango Dim CheckType CheckType = Request("CheckType") If CheckType = "" Then CheckType = "1" End If '仕訳日単位で集計するため Dim Shiwakebi Shiwakebi = Request("Shiwakebi") Dim RouteType RouteType = Request("RouteType") Dim Query Dim Content Dim Content2 Dim bCheckSeiriKinyugo bCheckSeiriKinyugo = CheckSeiriKinyugo(GB_KaisyaCD, GB_KaikeiSyuryobi) Dim bCheckKessanFurikaego bCheckKessanFurikaego = CheckKessanFurikaego(GB_KaisyaCD, GB_KaikeiSyuryobi) Dim InputSokanjyoMototyo, InputHojyobo, RiyoDenpyoSu Dim InputGenkinSuitotyo Dim InputKoguchiSuitocho Dim InputTouzayokinSuitotyo Dim InputUriagetyo Dim InputShiiretyo Dim InputUrikakekinMototyo Dim InputKaikakekinMototyo Dim InputUketoriTegatatyo Dim InputShiharaiTegatatyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputHojyobo = Content.Fields("手動補助簿表示") RiyoDenpyoSu = Content.Fields("利用伝票数区分") InputGenkinSuitotyo = "" & Content.Fields("現金出納帳表示") InputKoguchiSuitocho = "" & Content.Fields("小口現金出納帳表示") InputTouzayokinSuitotyo = "" & Content.Fields("当座預金出納帳表示") InputUriagetyo = "" & Content.Fields("売上帳表示") InputShiiretyo = "" & Content.Fields("仕入帳表示") InputUrikakekinMototyo = "" & Content.Fields("売掛金元帳表示") InputKaikakekinMototyo = "" & Content.Fields("買掛金元帳表示") InputUketoriTegatatyo = "" & Content.Fields("受取手形記入帳表示") InputShiharaiTegatatyo = "" & Content.Fields("支払手形記入帳表示") End If If InputGenkinSuitotyo <> "1" And InputKoguchiSuitocho <> "1" And InputTouzayokinSuitotyo <> "1" And InputUriagetyo <> "1" And InputShiiretyo <> "1" And InputUrikakekinMototyo <> "1" And InputKaikakekinMototyo <> "1" And InputUketoriTegatatyo <> "1" And InputShiharaiTegatatyo <> "1" Then InputHojyobo = "0" End If Dim bExistSeiMark Dim bExistFuriMark Dim i Dim ii, jj Dim KanjyoCD Dim color1, color2 color1 = "#000000" color2 = "#000000" Dim iCount iCount = 0 'チェック区分により集計された科目の内訳を表示する拡張(081125小野) Dim TmpKamokuCD TmpKamokuCD = "" Dim UCWKCheckKubun Dim UCWKKamokuCD Dim UCWKKamokuMeisho Dim UCWKDenpyoKarikata Dim UCWKDenpyoKashikata Dim UCWKDenpyoZanDaka Dim UCWKMototyoKarikata Dim UCWKMototyoKashikata Dim UCWKMototyoZanDaka Dim UCWKHyojiFlg ReDim UCWKCheckKubun(0) ReDim UCWKKamokuCD(0) ReDim UCWKKamokuMeisho(0) ReDim UCWKDenpyoKarikata(0) ReDim UCWKDenpyoKashikata(0) ReDim UCWKDenpyoZanDaka(0) ReDim UCWKMototyoKarikata(0) ReDim UCWKMototyoKashikata(0) ReDim UCWKMototyoZanDaka(0) ReDim UCWKHyojiFlg(0) 'チェック区分により集計される科目の内訳を取得 If DynamicKityoCheck = 0 Then Query = "exec SPM記帳チェック挿入一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("科目チェック区分") <> "" Then If "" & Content.Fields("チェック区分") <> TmpKamokuCD Then ReDim PreServe UCWKCheckKubun(UBound(UCWKCheckKubun) + 1) ReDim PreServe UCWKKamokuCD(UBound(UCWKCheckKubun)) ReDim PreServe UCWKKamokuMeisho(UBound(UCWKCheckKubun)) ReDim PreServe UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) ReDim PreServe UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) ReDim PreServe UCWKDenpyoZanDaka(UBound(UCWKCheckKubun)) ReDim PreServe UCWKMototyoKarikata(UBound(UCWKCheckKubun)) ReDim PreServe UCWKMototyoKashikata(UBound(UCWKCheckKubun)) ReDim PreServe UCWKMototyoZanDaka(UBound(UCWKCheckKubun)) ReDim PreServe UCWKHyojiFlg(UBound(UCWKCheckKubun)) UCWKCheckKubun(UBound(UCWKCheckKubun)) = Content.Fields("科目チェック区分") UCWKKamokuCD(UBound(UCWKCheckKubun)) = Content.Fields("チェック区分") UCWKKamokuMeisho(UBound(UCWKCheckKubun)) = Content.Fields("勘定名称") TmpKamokuCD = "" & Content.Fields("チェック区分") End If If "" & Content.Fields("チェック種類") = "1" Then UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) = Content.Fields("伝票借方") UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) = Content.Fields("伝票貸方") If "" & UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) = "" Then UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) = 0 End If If "" & UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) = "" Then UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) = 0 End If If "" & Content.Fields("貸借区分") = "D" Then UCWKDenpyoZanDaka(UBound(UCWKCheckKubun)) = UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) - UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) Else UCWKDenpyoZanDaka(UBound(UCWKCheckKubun)) = UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) - UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) End If ElseIf "" & Content.Fields("チェック種類") = "2" Then UCWKMototyoKarikata(UBound(UCWKCheckKubun)) = Content.Fields("元帳借方") UCWKMototyoKashikata(UBound(UCWKCheckKubun)) = Content.Fields("元帳貸方") If "" & UCWKMototyoKarikata(UBound(UCWKCheckKubun)) = "" Then UCWKMototyoKarikata(UBound(UCWKCheckKubun)) = 0 End If If "" & UCWKMototyoKashikata(UBound(UCWKCheckKubun)) = "" Then UCWKMototyoKashikata(UBound(UCWKCheckKubun)) = 0 End If If "" & Content.Fields("貸借区分") = "D" Then UCWKMototyoZanDaka(UBound(UCWKCheckKubun)) = UCWKMototyoKarikata(UBound(UCWKCheckKubun)) - UCWKMototyoKashikata(UBound(UCWKCheckKubun)) Else UCWKMototyoZanDaka(UBound(UCWKCheckKubun)) = UCWKMototyoKashikata(UBound(UCWKCheckKubun)) - UCWKMototyoKarikata(UBound(UCWKCheckKubun)) End If End If End If Content.MoveNext Loop End If '内訳を表示するチェック区分を特定する Dim TmpCheckKubun TmpCheckKubun = "" For ii = UBound(UCWKCheckKubun) To 1 Step -1 UCWKHyojiFlg(ii) = 0 If UCWKCheckKubun(ii) = TmpCheckKubun Then UCWKHyojiFlg(ii) = 1 UCWKHyojiFlg(ii + 1) = 1 End If TmpCheckKubun = "" & UCWKCheckKubun(ii) Next If DynamicKityoCheck = 0 Then If Shiwakebi <> "" Then Query = "exec SPM記帳チェック挿入集計2 '" & GB_SystemCD & "','" & EnshuCD & "','" & GB_KaisyaCD & "'" Else Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','" & EnshuCD & "','" & GB_KaisyaCD & "'" End If Else Query = "exec SPM記帳チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & GB_KaisyaCD & "'" 'リアルタイム集計は重いので非利用 End If ReDim KubunCD(0), KanjyoMeisyo(0), KanjyoCD(0), CheckKubun(0) ReDim DenpyoKarikata(0), DenpyoKashikata(0), DenpyoZandaka(0) ReDim MototyoKarikata(0), MototyoKashikata(0), MototyoZandaka(0) ReDim HojyoboKarikata(0), HojyoboKashikata(0), HojyoboZandaka(0) ReDim GenbutsuKarikata(0), GenbutsuKashikata(0), GenbutsuZandaka(0) iCount = 0 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) '原価会計勘定科目は表示しないよう変更 Dim GyoshuCheck Query = "exec SPM勘定科目取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & Content.Fields("勘定CD") & "'" Set Content2 = OpenQuery(Query) If Not(Content2.BOF Or Content2.EOF) Then GyoshuCheck = Content2.Fields("業種CD") End If '原価科目は除外 If GyoshuCheck = "G" Then '銀行以外の業種の場合は銀行科目を除外(業種変更時に不要な期首設定が残る場合があるため) ElseIf GB_Gyosyu <> "B" And GyoshuCheck = "B" Then 'チェック区分が存在する項目は常に表示される仕様であるため '普通・別段・積立・定期各預金チェック区分で伝票・元帳・補助簿の貸借が全て0なら表示しないよう修正 ElseIf Left(Content.Fields("チェック区分"),1) = "D" And Content.Fields("伝票借方") = 0 And Content.Fields("伝票貸方") = 0 And Content.Fields("元帳借方") = 0 And Content.Fields("元帳貸方") = 0 And Content.Fields("補助簿借方") = 0 And Content.Fields("補助簿貸方") = 0 Then Else iCount = iCount + 1 ReDim PreServe KubunCD(iCount), KanjyoMeisyo(iCount), KanjyoCD(iCount), CheckKubun(iCount) ReDim PreServe DenpyoKarikata(iCount), DenpyoKashikata(iCount), DenpyoZandaka(iCount) ReDim PreServe MototyoKarikata(iCount), MototyoKashikata(iCount), MototyoZandaka(iCount) ReDim PreServe HojyoboKarikata(iCount), HojyoboKashikata(iCount), HojyoboZandaka(iCount) ReDim PreServe GenbutsuKarikata(iCount), GenbutsuKashikata(iCount), GenbutsuZandaka(iCount) KanjyoMeisyo(iCount) = Content.Fields("勘定名称") KanjyoCD(iCount) = Content.Fields("勘定CD") CheckKubun(iCount) = Content.Fields("チェック区分") 'バージョン5未満ではチェック区分「小口現金」を除外 If MajorVersion < 5 And CheckKubun(iCount) = "AI" Then CheckKubun(iCount) = "" End If DenpyoKarikata(iCount) = Content.Fields("伝票借方") DenpyoKashikata(iCount) = Content.Fields("伝票貸方") DenpyoZandaka(iCount) = Content.Fields("伝票残高") MototyoKarikata(iCount) = Content.Fields("元帳借方") MototyoKashikata(iCount) = Content.Fields("元帳貸方") MototyoZandaka(iCount) = Content.Fields("元帳残高") HojyoboKarikata(iCount) = Content.Fields("補助簿借方") HojyoboKashikata(iCount) = Content.Fields("補助簿貸方") HojyoboZandaka(iCount) = Content.Fields("補助簿残高") GenbutsuKarikata(iCount) = Content.Fields("現物借方") GenbutsuKashikata(iCount) = Content.Fields("現物貸方") GenbutsuZandaka(iCount) = Content.Fields("現物残高") 'チェック区分により集計された科目の内訳を表示する拡張(081125小野) For ii = 1 To UBound(UCWKCheckKubun) If UCWKCheckKubun(ii) = CheckKubun(iCount) Then If UCWKHyojiFlg(ii) = 1 Then iCount = iCount + 1 ReDim PreServe KubunCD(iCount), KanjyoMeisyo(iCount), KanjyoCD(iCount), CheckKubun(iCount) ReDim PreServe DenpyoKarikata(iCount), DenpyoKashikata(iCount), DenpyoZandaka(iCount) ReDim PreServe MototyoKarikata(iCount), MototyoKashikata(iCount), MototyoZandaka(iCount) ReDim PreServe HojyoboKarikata(iCount), HojyoboKashikata(iCount), HojyoboZandaka(iCount) ReDim PreServe GenbutsuKarikata(iCount), GenbutsuKashikata(iCount), GenbutsuZandaka(iCount) KanjyoMeisyo(iCount) = "(" & UCWKKamokuMeisho(ii) & ")" KanjyoCD(iCount) = UCWKKamokuCD(ii) CheckKubun(iCount) = UCWKCheckKubun(ii) DenpyoKarikata(iCount) = UCWKDenpyoKarikata(ii) DenpyoKashikata(iCount) = UCWKDenpyoKashikata(ii) DenpyoZandaka(iCount) = UCWKDenpyoZandaka(ii) MototyoKarikata(iCount) = UCWKMototyoKarikata(ii) MototyoKashikata(iCount) = UCWKMototyoKashikata(ii) MototyoZandaka(iCount) = UCWKMototyoZanDaka(ii) HojyoboKarikata(iCount) = "----------" HojyoboKashikata(iCount) = "----------" HojyoboZandaka(iCount) = "----------" Else '内訳を表示しない場合は実際の科目名称を表示する(090520小野) KanjyoMeisyo(iCount) = UCWKKamokuMeisho(ii) End If End If Next End If Content.MoveNext Loop '元帳または補助簿全てがOFFの場合はレイアウトを調節する Dim CellWidth Dim FintSize CellWidth = 70 FintSize = "tx1012" If InputSokanjyoMototyo <> "1" And InputHojyobo <> "1" Then CellWidth = 110 FintSize = "tx1214" ElseIf InputSokanjyoMototyo <> "1" Or InputHojyobo <> "1" Then CellWidth = 90 FintSize = "tx1214" End If %> <% = HtmlHeader("") %> <% = PrintScriptX %>
<% Dim RowBreakNum, RowCount Dim Page RowCount = 0 RowBreakNum = 40 For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% Response.Write(PrintHeader(0, "記帳チェック")) %>
<% If InputSokanjyoMototyo = "1" Then %> <% End If %> <% If InputHojyobo = "1" Then %> <% End If %> <% If InputSokanjyoMototyo = "1" Then %> <% End If %> <% If InputHojyobo = "1" Then %> <% End If %> <% ii = 0 bExistSeiMark = 0 bExistFuriMark = 0 Dim RowShift RowShift = RowBreakNum * (Page - 1) For ii = 1 + RowShift To iCount If CheckType = "1" Or (CheckType = "2" AND (KanjyoMeisyo(ii) = "現金" OR KanjyoMeisyo(ii) = "当座預金" OR KanjyoMeisyo(ii) = "受取手形" OR KanjyoMeisyo(ii) = "支払手形")) Then RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If InputSokanjyoMototyo = "1" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If If CheckType = "1" And InputHojyobo = "1" Then Dim addr, ShikibetsuCD ShikibetsuCD = CheckKubun(ii) addr = "" If ShikibetsuCD = "AA" Then If InputGenkinSuitotyo <> "1" Then addr = "OFF" Else addr = "fk_genkinsuitotyo.asp" End If ElseIf ShikibetsuCD = "AB" Then If InputTouzayokinSuitotyo <> "1" Then addr = "OFF" Else addr = "fk_touzayokinsuitotyo.asp" End If ElseIf ShikibetsuCD = "AC" Then If InputUrikakekinMototyo <> "1" Then addr = "OFF" Else addr = "fk_urikaikakekintyo.asp?PageType=Urikake" End If ElseIf ShikibetsuCD = "AD" Then If InputKaikakekinMototyo <> "1" Then addr = "OFF" Else addr = "fk_urikaikakekintyo.asp?PageType=Kaikake" End If ElseIf ShikibetsuCD = "AE" Then If InputUketoriTegatatyo <> "1" Then addr = "OFF" Else addr = "fk_uketorisiharaitegatatyo.asp?PageType=Uketori" End If ElseIf ShikibetsuCD = "AF" Then If InputShiharaiTegatatyo <> "1" Then addr = "OFF" Else addr = "fk_uketorisiharaitegatatyo.asp?PageType=Shiharai" End If ElseIf ShikibetsuCD = "AG" Then If InputUriagetyo <> "1" Then addr = "OFF" Else addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Uriage" End If ElseIf ShikibetsuCD = "AH" Then If InputShiiretyo <> "1" Then addr = "OFF" Else addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Shiire" End If ElseIf MajorVersion => 5 And ShikibetsuCD = "AI" Then If InputKoguchiSuitocho <> "1" Then addr = "OFF" Else addr = "fk_koguchisuitocho.asp" End If Else addr = "" End If If GB_Admin > 0 And addr <> "OFF" Then addr = "" End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If If CheckType = "2" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) If (RowCount Mod RowBreakNum = 0) Then Exit For End If End If Next %>
<% = Shiwakebi %> <% If RiyoDenpyoSu < 1 Then %>仕 訳 帳<% Else %>伝   票<% End If %>(基準)元   帳補 助 簿
勘定科目 借方金額 貸方金額 残高借方金額 貸方金額 残高借方金額 貸方金額 残高
") Response.Write(SetStringFixWidth(KanjyoMeisyo(ii))) Response.Write("" & ConvIntToMoney(DenpyoKarikata(ii), false, true) & "" & ConvIntToMoney(DenpyoKashikata(ii), false, true) & "" & ConvIntToMoney(DenpyoZandaka(ii), false, true) & "") If DenpyoKarikata(ii) = MototyoKarikata(ii) then Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true)) Response.Write("整") bExistSeiMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true)) Response.Write("振") bExistFuriMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(MototyoKarikata(ii), false, true) & "×") End If Response.Write("") If DenpyoKashikata(ii) = MototyoKashikata(ii) then Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true)) Response.Write("整") bExistSeiMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true)) Response.Write("振") bExistFuriMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(MototyoKashikata(ii), false, true) & "×") End If Response.Write("") If DenpyoZandaka(ii) = MototyoZandaka(ii) then Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true)) Response.Write("整") bExistSeiMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true)) Response.Write("振") bExistFuriMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(MototyoZandaka(ii), false, true) & "×") End If Response.Write(" "" And addr <> "OFF" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") ' If IsNull(CheckKubun(ii)) Then 'チェック区分の先頭が"A"で無ければ補助簿非表示(預金関係勘定の対応) 'チェック区分により集計された科目の内訳行は補助簿非表示(081126小野) If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboKarikata(ii) = "----------" Then Response.Write("--------") ElseIf DenpyoKarikata(ii) = HojyoboKarikata(ii) then Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true)) Response.Write("整") bExistSeiMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true)) Response.Write("振") bExistFuriMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(HojyoboKarikata(ii), false, true) & "×") End If Response.Write(" "" And addr <> "OFF" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") ' If IsNull(CheckKubun(ii)) Then 'チェック区分の先頭が"A"で無ければ補助簿非表示(預金関係勘定の対応) 'チェック区分により集計された科目の内訳行は補助簿非表示(081126小野) If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboKashikata(ii) = "----------" Then Response.Write("--------") ElseIf DenpyoKashikata(ii) = HojyoboKashikata(ii) then Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true)) Response.Write("整") bExistSeiMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true)) Response.Write("振") bExistFuriMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(HojyoboKashikata(ii), false, true) & "×") End If Response.Write(" "" And addr <> "OFF" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") ' If IsNull(CheckKubun(ii)) Then 'チェック区分の先頭が"A"で無ければ補助簿非表示(預金関係勘定の対応) 'チェック区分により集計された科目の内訳行は補助簿非表示(081126小野) If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboZandaka(ii) = "----------" Then Response.Write("--------") ElseIf DenpyoZandaka(ii) = HojyoboZandaka(ii) then Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true)) Response.Write("整") bExistSeiMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true)) Response.Write("振") bExistFuriMark = 1 ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(HojyoboZandaka(ii), false, true) & "×") End If Response.Write("") If DenpyoKarikata(ii) = GenbutsuKarikata(ii) then Response.Write(ConvIntToMoney(GenbutsuKarikata(ii), false, true)) Else Response.Write("" & ConvIntToMoney(GenbutsuKarikata(ii), false, true) & "×") End If Response.Write("") If DenpyoKashikata(ii) = GenbutsuKashikata(ii) then Response.Write(ConvIntToMoney(GenbutsuKashikata(ii), false, true)) Else Response.Write("" & ConvIntToMoney(GenbutsuKashikata(ii), false, true) & "×") End If Response.Write("") If DenpyoZandaka(ii) = GenbutsuZandaka(ii) then Response.Write(ConvIntToMoney(GenbutsuZandaka(ii), false, true)) Else Response.Write("" & ConvIntToMoney(GenbutsuZandaka(ii), false, true) & "×") End If Response.Write("
×が付いている項目は、伝票の数値と異なっている部分です。 <% If bExistSeiMark = 1 Or bExistFuriMark = 1 Then %>
<% If bExistSeiMark = 1 And bExistFuriMark = 1 Then %> 「整」「振」 ・・・ 決算整理・決算振替済みの仕入・売上勘定では、金額が異なっていても間違いでは無い場合があります <% ElseIf bExistSeiMark = 1 Then %> 「整」 ・・・ 決算整理済みの仕入・売上勘定では、金額が異なっていても間違いでは無い場合があります <% Else %> 「振」 ・・・ 決算振替済みの売上勘定では、金額が異なっていても間違いでは無い場合があります <% End If %> <% End If %>
<% Response.Write(PrintFooter()) %>
<% If ii > iCount Then Exit For End If Next %> <% = HtmlFooter %> <% End Sub %>