<% ' %> <% main() Sub main() Dim SyoriYMD Dim Query Dim Content Dim Action Dim TorihikisakiCD If Not(SessionCheck()) Then Exit Sub End If Dim BunsyoNaiyoCD, Syoribi, GakuseiBango Dim ShiharaiHoho , HasshinFlg, Tekiyo Dim GokeiKingaku, SyohizeiKingaku, ZeikomiKingaku Dim ShiireUriageBunsyoNaiyoCD, tmps Dim HakoFlg, SakujyoFlg BunsyoNaiyoCD = Request("BunsyoNaiyoCD") TorihikisakiCD = Request("TorihikisakiCD") SyoriYMD = Request("SyoriYMD") Action = Request("Action") ShiireUriageBunsyoNaiyoCD = Request("ShiireUriageBunsyoNaiyoCD") Dim SyoruiMei SyoruiMei = "運送費請求書" Query = "exec SPC運送費請求書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'CA', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Syoribi = Content.Fields("処理日") TorihikisakiCD = Content.Fields("取引先CD") ShiireUriageBunsyoNaiyoCD = Content.Fields("納品請求書番号群") ShiharaiHoho = Content.Fields("支払方法") Tekiyo = Content.Fields("摘要") HakoFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") GakuseiBango = Content.Fields("学生番号") End If tmps = split(ShiireUriageBunsyoNaiyoCD, ",") %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(1)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "運送費請求書", "", "", "", "", "")) Response.Write(HttpL3( "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1( "保存","SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_seikyu_ichiran.asp')", "請求先一覧","tblbtn( 'fu_seikyu_ichiran1.asp')", "請求一覧","tblbtn( 'fu_seikyu_ichiran2.asp?TorihikisakiCD=" & TorihikisakiCD & "')", "", "", "", "")) Response.Write(HttpL4("運送費請求書", "追加")) %>
　 <% = HtmlFooter %> <% End Sub %>