<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim Kitakuriyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = Content.Fields("寄託倉庫利用") End If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("運輸・倉庫・保険業務", "")) %>

【運送業務】

運送契約
管理

運送費
見積書

運送費
請求書

【倉庫業務】

<% 'Kitakuriyou = "1" %> 360<% Else %>240<% End If %>" HEIGHT="80" BORDER="0" CELLSPACING="0" CELLPADDING="0"> <% If Kitakuriyou = "1" Then %> <% End If %>

<% If Kitakuriyou = "1" Then %> <% Else %>

<% End If %>

寄託受付

入庫

<% If Kitakuriyou = "1" Then %> <% Else %>

<% End If %>

出庫

【保険業務】

火災保険料
計算

運送保険料
計算

【白紙帳票】

運送保険
請求書

倉荷証券
発行手数料
請求書

倉庫料
請求書

【請求書・領収書】

火災保険
請求書
領収書

運送保険
請求書
領収書

運送費
請求書
領収書

倉庫料
請求書
領収書

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