<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim title, tmpyoto Dim Label Dim PageType PageType = Request("PageType") If PageType = "Nyukin" Then title = "引出" tmpyoto = "銀行から引出して入金" Label = "入金" Else title = "預入" tmpyoto = "出金して銀行に預入" Label = "出金" End If Dim Query, Content Dim GenkinNyusyukinCD , ExceptionGenkinNyusyukinCD GenkinNyusyukinCD = "" & Request("GenkinNyusyukinCD") Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 1, '" & GenkinNyusyukinCD & "'" Set Content = OpenQuery(Query) Dim Syoribi , Kingaku , Tekiyo If Not(Content.BOF Or Content.EOF) Then Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) Kingaku = Content.Fields("金額") Tekiyo = Content.Fields("摘要") End If ExceptionGenkinNyusyukinCD = GenkinNyusyukinCD If ExceptionGenkinNyusyukinCD = "" Then ExceptionGenkinNyusyukinCD = "-1" End If '実践日取得 Dim Jissenbi Jissenbi = "" Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) End If %> <% = 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("実行","SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(Label,"SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_nyukin_ichiran.asp?PageType=" & PageType & "&GenkinNyusyukinCD=" & GenkinNyusyukinCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(Label, "")) %>
<% = HtmlFooter %> <% End Sub %>