<% ' ' ' %> <% main() Sub main() Dim StressType, Second StressType = Request("StressType") Second = Request("Second") If StressType = "" Then StressType = "1" End If If Second = "" Then Second = "5" End If Dim Kaishibi, Syuryobi Dim CheckType CheckType = Request("CheckType") If CheckType = "" Then CheckType = "1" End If Dim RouteType RouteType = Request("RouteType") Dim Query Dim Content Dim InputSokanjyoMototyo , InputHojyobo, RiyoDenpyoSu, SyohinCheck, GenbutsuCheck InputSokanjyoMototyo = "1" InputHojyobo = "1" RiyoDenpyoSu = 5 SyohinCheck = "1" GenbutsuCheck = "1" Dim color1, color2 color1 = "#0000FF" color2 = "red" Dim iCount iCount = 0 Dim TmpSystemCD, TmpEnshuCD, TmpKaisyaCD Query = "SELECT TOP 20 COUNT(*), システムCD, 演習CD, 会社CD FROM TSK伝票F GROUP BY システムCD, 演習CD, 会社CD ORDER BY COUNT(*) DESC" Set Content = OpenQuery(Query) Randomize For ii = 0 To Int(19 * Rnd()) Content.MoveNext Next If Not(Content.BOF Or Content.EOF) Then TmpSystemCD = Content.Fields("システムCD") TmpEnshuCD = Content.Fields("演習CD") TmpKaisyaCD = Content.Fields("会社CD") End If If StressType = "0" Then Query = "exec SPM記帳チェック '" & TmpSystemCD & "','" & TmpEnshuCD & "','" & TmpKaisyaCD & "'" Else Query = "exec SPM記帳チェック挿入集計 '" & TmpSystemCD & "','" & TmpEnshuCD & "','" & TmpKaisyaCD & "'" End if iCount = 0 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) iCount = iCount + 1 Content.MoveNext Loop ReDim KubunCD(iCount), KanjyoMeisyo(iCount), KanjyoCD(iCount), CheckKubun(iCount) ReDim DenpyoKarikata(iCount), DenpyoKashikata(iCount), DenpyoZandaka(iCount) ReDim MototyoKarikata(iCount), MototyoKashikata(iCount), MototyoZandaka(iCount) ReDim HojyoboKarikata(iCount), HojyoboKashikata(iCount), HojyoboZandaka(iCount) ReDim GenbutsuKarikata(iCount), GenbutsuKashikata(iCount), GenbutsuZandaka(iCount) iCount = 0 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ' KubunCD(iCount) = Content.Fields("区分CD") KanjyoMeisyo(iCount) = Content.Fields("勘定名称") KanjyoCD(iCount) = Content.Fields("勘定CD") CheckKubun(iCount) = Content.Fields("チェック区分") 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("現物残高") iCount = iCount + 1 Content.MoveNext Loop %> <% = AppTitle %>
秒間隔で更新　
<% = Query %>　トップページへ
<% If InputSokanjyoMototyo = "1" Then %> <% End If %> <% If CheckType = "1" And InputHojyobo = "1" Then %> <% End If %> <% If CheckType = "2" Then %> <% End If %> <% If InputSokanjyoMototyo = "1" Then %> <% End If %> <% If InputHojyobo = "1" Then %> <% End If %>
勘定科目 伝　　　票（基準）元　　　帳補　助　簿現　　　物
借方金額 貸方金額 残高借方金額 貸方金額 残高借方金額 貸方金額 残高
<% Dim i Dim RowCount, RowBreakNum Dim ii, jj ii = 0 Dim bExistSeiMark bExistSeiMark = 0 RowCount = 0 RowBreakNum = 5 For ii = 0 To iCount - 1 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 GB_Admin = 0 Then 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=売掛金元帳" ElseIf ShikibetsuCD = "AD" Then addr = "fk_urikaikakekintyo.asp?PageType=買掛金元帳" ElseIf ShikibetsuCD = "AE" Then addr = "fk_uketorisiharaitegatatyo.asp?PageType=受取手形記入帳" ElseIf ShikibetsuCD = "AF" Then addr = "fk_uketorisiharaitegatatyo.asp?PageType=支払手形記入帳" ElseIf ShikibetsuCD = "AG" Then addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=売上帳" ElseIf ShikibetsuCD = "AH" Then addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=仕入帳" Else addr = "" End If 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) End If Next %>
") 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 CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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 CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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 CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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(" "" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/sj4web/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") If Left(CheckKubun(ii), 1) = "B" then Response.Write("----------") ElseIf DenpyoKarikata(ii) = HojyoboKarikata(ii) then Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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(" "" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/sj4web/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") If Left(CheckKubun(ii), 1) = "B" then Response.Write("----------") ElseIf DenpyoKashikata(ii) = HojyoboKashikata(ii) then Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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(" "" Then Response.Write("style='cursor:hand' onclick=""tblbtn2('/sj4web/user/bk/hojyobo/" & addr & "')""") End If Response.Write(">") If Left(CheckKubun(ii), 1) = "B" then Response.Write("----------") ElseIf DenpyoZandaka(ii) = HojyoboZandaka(ii) then Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true)) ElseIf CheckKubun(ii) = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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 Then %>
整 - 整理記入済みの仕入勘定では、金額が異なっていても間違いでは無い場合があります <% End If %>
<% End Sub %>