<% = AppTitle %>

<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim MousikomiNum MousikomiNum = Request("MousikomiNum") Dim syukkoNo SyukkoNo = Request("SyukkoNo") Dim RouteType RouteType = Request("RouteType") %> <% = AppTitle %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "出庫", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( 'fu_syuko.asp?Action=2&SyukkoNo=" & SyukkoNo & "')", "削除", "SubmitCheck()", "", "", "", "")) Response.Write(HttpL3("","", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示","tblbtn( 'fu_syuko_ichiran.asp')" , "", "", "", "", "", "", "", "")) Response.Write(HttpL4("出庫", "照会")) %>

<% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = Uososyuko(EnshuCD, KaisyaCD, SyukkoNo, AutoFlg, 0) %>

<%= HtmlFooter %> <% End Sub %>