<% ' ' ' %> <% 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 RouteType RouteType = Request("RouteType") Dim KinkoHyoji Dim YTegataHyoji Dim KTegataHyoji Dim TegataHyoji TegataHyoji = "1" Dim GinkoKozaToza Dim GinkoKozaFutu Dim GinkoKozaBetsudan Dim GinkoKozaTsumitate Dim GinkoKozaTeiki Dim Query Dim Content Dim InputSokanjyoMototyo , InputHojyobo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Dim YobiB InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputHojyobo = Content.Fields("手動補助簿表示") KinkoHyoji = "" & Content.Fields("金庫表示") YTegataHyoji = "" & Content.Fields("約束手形表示") KTegataHyoji = "" & Content.Fields("為替手形表示") YobiB = Content.Fields("利用銀行口座種類") GinkoKozaToza = Mid(YobiB , 1, 1) GinkoKozaFutu = Mid(YobiB , 2, 1) GinkoKozaBetsudan = Mid(YobiB , 3, 1) GinkoKozaTsumitate = Mid(YobiB , 4, 1) GinkoKozaTeiki = Mid(YobiB , 5, 1) End If If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then TegataHyoji = "0" End If If GinkoKozaFutu = "F" Then GinkoKozaFutu = 1 Else GinkoKozaFutu = 0 End If If GinkoKozaBetsudan = "B" Then GinkoKozaBetsudan = 1 Else GinkoKozaBetsudan = 0 End If If GinkoKozaTsumitate = "M" Then GinkoKozaTsumitate = 1 Else GinkoKozaTsumitate = 0 End If If GinkoKozaTeiki = "L" Then GinkoKozaTeiki = 1 Else GinkoKozaTeiki = 0 End If '未処理の受取・支払小切手存在チェック Dim ExistSKogitte ExistSKogitte = 0 Dim ExistRKogitte ExistRKogitte = 0 Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TGA手形F " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 作成会社CD = '" & KaisyaCD & "' " '自社が作成 Query = Query & " AND 文書種類CD = 'TG' " Query = Query & " AND 送受信区分 = 'R' " '他社が受取 Query = Query & " AND 発行フラグ < 2 " '未処理 Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ExistSKogitte = 1 '未処理の支払小切手が存在する End If Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TGA手形F " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 会社CD = '" & KaisyaCD & "' " '自社が受取 Query = Query & " AND 文書種類CD = 'TG' " Query = Query & " AND 送受信区分 = 'R' " '自社が受取 Query = Query & " AND 発行フラグ < 2 " '未処理 Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ExistRKogitte = 1 '未処理の受取小切手が存在する End If Dim HyojiSKogitte HyojiSKogitte = 0 Dim HyojiRKogitte HyojiRKogitte = 0 Dim bExistSeiMark Dim i Dim RowCount, RowBreakNum Dim ii, jj Dim addr, KanjyoCD Dim ShikibetsuCD Dim color1, color2 color1 = "#000000" color2 = "#000000" '元帳OFFの場合はレイアウトを調節する Dim CellWidth Dim FintSize CellWidth = 70 FintSize = "tx1012" If InputSokanjyoMototyo <> "1" Or InputHojyobo <> "1" Then CellWidth = 90 FintSize = "tx1214" End If %> <% = HtmlHeader("") %> <% = PrintScriptX %>

<% Response.Write(PrintHeader(0, "現物チェック")) %> <% If InputSokanjyoMototyo = "1" Then %> <% End If %> <% If InputSokanjyoMototyo = "1" Then %> <% End If %> <% ii = 0 bExistSeiMark = 0 RowCount = 0 RowBreakNum = 5 If DynamicKityoCheck = 0 Then Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Else Query = "exec SPM記帳チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" End If 'ロック Call Application.Lock() Set Content = OpenQuery(Query) 'ロック解除 Call Application.Unlock() Do While Not(Content.BOF Or Content.EOF) If CheckType = "1" Or (CheckType = "2" AND (Content.Fields("チェック区分") = "AA" OR Content.Fields("チェック区分") = "AB" OR Content.Fields("チェック区分") = "AE" OR Content.Fields("チェック区分") = "AF" OR (Content.Fields("チェック区分") = "DB" And GinkoKozaFutu = 1) OR (Content.Fields("チェック区分") = "DD" And GinkoKozaTeiki = 1) OR (Content.Fields("チェック区分") = "DE" And GinkoKozaTsumitate = 1) OR (Content.Fields("チェック区分") = "DF" And GinkoKozaBetsudan = 1))) Then '預金関係を追加（070710小野） 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 ShikibetsuCD = Content.Fields("チェック区分") If ShikibetsuCD = "AA" Then addr = "fk_genkinsuitotyo.asp" ElseIf ShikibetsuCD = "AB" Then addr = "fk_touzayokinsuitotyo.asp" ElseIf ShikibetsuCD = "AC" Then addr = "fk_urikaikakekintyo.asp?PageType=Urikake" ElseIf ShikibetsuCD = "AD" Then addr = "fk_urikaikakekintyo.asp?PageType=Kaikake" ElseIf ShikibetsuCD = "AE" Then addr = "fk_uketorisiharaitegatatyo.asp?PageType=Uketori" ElseIf ShikibetsuCD = "AF" Then addr = "fk_uketorisiharaitegatatyo.asp?PageType=Shiharai" ElseIf ShikibetsuCD = "AG" Then addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Uriage" ElseIf ShikibetsuCD = "AH" Then addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Shiire" ElseIf ShikibetsuCD = "AI" Then addr = "" ElseIf ShikibetsuCD = "AJ" 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) ii = ii + 1 End If Content.MoveNext Loop %> 勘定科目 伝　　　票（基準） 元　　　帳 現　　　物 借方金額 貸方金額 残高 借方金額 貸方金額 残高 借方金額 貸方金額 残高 ") Response.Write(SetStringFixWidth(Content.Fields("勘定名称"))) Response.Write(" " & ConvIntToMoney(Content.Fields("伝票借方"), false, true) & " " & ConvIntToMoney(Content.Fields("伝票貸方"), false, true) & " " & ConvIntToMoney(Content.Fields("伝票残高"), false, true) & " ") If Content.Fields("伝票借方") = Content.Fields("元帳借方") then Response.Write(ConvIntToMoney(Content.Fields("元帳借方"), false, true)) ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then Response.Write(ConvIntToMoney(Content.Fields("元帳借方"), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("元帳借方"), false, true) & "×") End If Response.Write(" ") If Content.Fields("伝票貸方") = Content.Fields("元帳貸方") then Response.Write(ConvIntToMoney(Content.Fields("元帳貸方"), false, true)) ElseIf Content.Fields("伝票貸方") = Content.Fields("元帳貸方") AND Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then Response.Write(ConvIntToMoney(Content.Fields("元帳貸方"), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("元帳貸方"), false, true) & "×") End If Response.Write(" ") If Content.Fields("伝票残高") = Content.Fields("元帳残高") then Response.Write(ConvIntToMoney(Content.Fields("元帳残高"), false, true)) ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then Response.Write(ConvIntToMoney(Content.Fields("元帳残高"), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("元帳残高"), false, true) & "×") End If Response.Write(" "" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") If Left(Content.Fields("チェック区分"), 1) = "B" then Response.Write("----------") ElseIf Content.Fields("伝票借方") = Content.Fields("補助簿借方") then Response.Write(ConvIntToMoney(Content.Fields("補助簿借方"), false, true)) ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then Response.Write(ConvIntToMoney(Content.Fields("補助簿借方"), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("補助簿借方"), false, true) & "×") End If Response.Write(" "" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") If Left(Content.Fields("チェック区分"), 1) = "B" then Response.Write("----------") ElseIf Content.Fields("伝票貸方") = Content.Fields("補助簿貸方") then Response.Write(ConvIntToMoney(Content.Fields("補助簿貸方"), false, true)) ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then Response.Write(ConvIntToMoney(Content.Fields("補助簿貸方"), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("補助簿貸方"), false, true) & "×") End If Response.Write(" "" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") If Left(Content.Fields("チェック区分"), 1) = "B" then Response.Write("----------") ElseIf Content.Fields("伝票残高") = Content.Fields("補助簿残高") then Response.Write(ConvIntToMoney(Content.Fields("補助簿残高"), false, true)) ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then Response.Write(ConvIntToMoney(Content.Fields("補助簿残高"), false, true)) Response.Write("整") bExistSeiMark = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("補助簿残高"), false, true) & "×") End If Response.Write(" ") If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then Response.Write("----------") ElseIf Content.Fields("伝票借方") = Content.Fields("現物借方") then Response.Write(ConvIntToMoney(Content.Fields("現物借方"), false, true)) ElseIf Content.Fields("チェック区分") = "AB" And ExistRKogitte = 1 then Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "受") HyojiRKogitte = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("現物借方"), false, true) & "×") End If Response.Write(" ") If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then Response.Write("----------") ElseIf Content.Fields("伝票貸方") = Content.Fields("現物貸方") then Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true)) ElseIf Content.Fields("チェック区分") = "AB" And ExistSKogitte = 1 then Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "送") HyojiSKogitte = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "×") End If Response.Write(" ") If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then Response.Write("----------") ElseIf Content.Fields("伝票残高") = Content.Fields("現物残高") then Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true)) ElseIf Content.Fields("チェック区分") = "AB" And ExistSKogitte = 1 then Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true) & "送") HyojiSKogitte = 1 ElseIf Content.Fields("チェック区分") = "AB" And ExistRKogitte = 1 then Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true) & "受") HyojiRKogitte = 1 Else Response.Write("" & ConvIntToMoney(Content.Fields("現物残高"), false, true) & "×") End If Response.Write(" ×が付いている項目は、伝票の数値と異なっている部分です。 <% If HyojiSKogitte = 1 Or HyojiRKogitte = 1 Then %> <% If HyojiSKogitte = 1 And HyojiRKogitte = 1 Then %> 「送」「受」 ・・・ 取引先に送付して出金されていない小切手、受け取って入金されていない小切手がある場合、当座預金額が異なっていても間違いではない場合があります <% ElseIf HyojiSKogitte = 1 Then %> 「送」 ・・・ 取引先に送付して出金されていない小切手がある場合、当座出金額が異なっていても間違いではない場合があります <% Else %> 「受」 ・・・ 受け取って入金されていない小切手がある場合、当座入金額が異なっていても間違いではない場合があります <% End If %> <% End If %> <% If bExistSeiMark = 1 Then %> 整 - 整理記入済みの仕入勘定では、金額が異なっていても間違いでは無い場合があります <% End If %> <% Response.Write(PrintFooter()) %>

<% = HtmlFooter %> <% End Sub %>