<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Bango Dim TorihikisakiCD Dim Shoribi Dim Unsobi Dim Kingaku Dim Shohizei Dim Shohizeiritsu Dim Seq Seq = Request("Seq") Dim Query Dim Content If Seq <> "" Then '修正をする場合 '対象データＧＥＴ保険情報取得 Query = "exec SPU運送費請求領収書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & Seq & " " Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ' KaisyaCD = Content.Fields("会社CD") Bango = Content.Fields("番号") TorihikisakiCD = Content.Fields("取引先CD") Shoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) Unsobi = SetTimeYYYYMMDD(Content.Fields("運送日")) Kingaku = Content.Fields("金額") Shohizei = Content.Fields("消費税") Shohizeiritsu = Content.Fields("消費税率") If "" & Shohizeiritsu = "" And "" & Shohizei <> "" And "" & Kingaku <> "" Then Shohizeiritsu = Fix((Shohizei / Kingaku * 100) + 0.5) End If End If End If If "" & Shohizeiritsu = "" Then Shohizeiritsu = GB_Shohizei End If %> <% = 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_unso_ichiran.asp');", "", "", "", "", "", "", "", "")) If Seq <> "" then Response.Write(HttpL4("運送費請求書・領収書", "修正")) Else Response.Write(HttpL4("運送費請求書・領収書", "入力")) End If %>
<% = HtmlFooter %> <% End Sub %>