<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim GenkinNyusyukinCD, Tekiyo, Kingaku, Syoribi GenkinNyusyukinCD = Request("GenkinNyusyukinCD") Dim PageType PageType = Request("PageType") Dim Label If PageType = "Nyukin" Then Label = "入金" Else Label = "出金" End If Dim BinType BinType = Request("BinType") Dim Query, Content Dim CoinFlg CoinFlg = 0 Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 1, '" & GenkinNyusyukinCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) Kingaku = Content.Fields("金額") Tekiyo = Content.Fields("摘要") If Kingaku < 1000 Then CoinFlg = 1 End If End If Dim bMinusCheck bMinusCheck = 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 bMinusCheck = 1 End If Content.MoveNext Loop %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) If GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", Label, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", Label, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "","" ,"","" ,"", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("修正", "tblbtn('fk_nyukin.asp?PageType=" & PageType & "&GenkinNyusyukinCD=" & GenkinNyusyukinCD & "')", "削除", "tblbtn('fk_nyukin_bin.asp?PageType=" & PageType & "&GenkinNyusyukinCD=" & GenkinNyusyukinCD & "&Action=Del')", "", "", "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( '/" & HomeAlias & "/user/bk/kinko/fk_nyukin.asp?PageType=" & PageType & "')", "一覧表示", "tblbtn( 'fk_nyukin_ichiran.asp?PageType=" & PageType & "&GenkinNyusyukinCD=" & GenkinNyusyukinCD & "')", "", "", "", "", "", "")) Response.Write(HttpL4(Label, "")) If Request("BinType") = "Ins" Then If PageType = "Nyukin" Then Response.Write(HttpL5("現金が" & ConvIntToMoney(Kingaku, false, false) & "円増えました")) Else Response.Write(HttpL5("現金が" & ConvIntToMoney(Kingaku, false, false) & "円減りました")) End If End If %>
<% = HtmlFooter %> <% End Sub %>