<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = "経理業務" Dim Query, Content Dim KyuyoDaichoHyoji Dim AutoGenkinNyuSyukinRireki Dim InputGenkinSuitotyo Dim AutoGenkinSuitotyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Dim YobiA YobiA = Content.Fields("履歴表示") AutoGenkinNyuSyukinRireki = Mid(YobiA, 1, 1) KyuyoDaichoHyoji = "" & Content.Fields("給与台帳表示") InputGenkinSuitotyo = "" & Content.Fields("現金出納帳表示") AutoGenkinSuitotyo = "" & Content.Fields("自動転記現金出納帳表示") End If Dim bGenkinMinusCheck, bGinkoMinusCheck bGenkinMinusCheck = 0 bGinkoMinusCheck = 0 Dim Nyukin , Syukin , Zandaka Zandaka = 0 Query = "exec SPK現金入出金履歴一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("現金取引区分") = "GN" Then Nyukin = Content.Fields("金額") Syukin = 0 ElseIf Content.Fields("現金取引区分") = "GS" Then Nyukin = 0 Syukin = Content.Fields("金額") Else Nyukin = Content.Fields("金額") Syukin = Content.Fields("金額") End If Zandaka = Zandaka + Nyukin - Syukin If Zandaka < 0 Then bGenkinMinusCheck = 1 End If Content.MoveNext Loop Dim Query1, Content1 Query = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Query1 = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '', '" & Content.Fields("銀行CD") & "', '" & Content.Fields("口座区分") & "', '" & Content.Fields("口座番号") & "'" Set Content1 = OpenQuery(Query1) Zandaka = 0 Do While Not(Content1.BOF Or Content1.EOF) Dim tmpKingaku tmpKingaku = Content1.Fields("金額") If IsNull(tmpKingaku) Then tmpKingaku = 0 End If If tmpKingaku = "" Then tmpKingaku = 0 End If If Right(Content1.Fields("銀行取引区分"), 1) = "N" Then Zandaka = Zandaka + tmpKingaku Else Zandaka = Zandaka - tmpKingaku End If If Zandaka < 0 Then bGinkoMinusCheck = 1 End If Content1.MoveNext Loop Content.MoveNext Loop %> <% = AppTitle %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "銀行", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b.asp')", PageType , "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType , "")) If bGenkinMinusCheck = 1 Then Response.Write(HttpL5("現金がマイナスになっている時点があります")) ElseIf bGinkoMinusCheck = 1 Then Response.Write(HttpL5("預金がマイナスになっている時点があります")) End If %> <% = HtmlFooter %> <% End Sub %>