<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Bango Dim TorihikisakiCD Dim Shoribi Dim TaishoKingaku Dim HokenRyokin Dim KikanFrom Dim KikanTo Dim Biko Dim Syubetsu Syubetsu = Request("Syubetsu") Dim Seq Seq = Request("Seq") Dim Query Dim Content If Seq <> "" Then '修正をする場合 '対象データＧＥＴ保険情報取得 Query = "exec SPU保険請求領収書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Syubetsu & "', " & 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("処理日")) TaishoKingaku = Content.Fields("保険対象金額") HokenRyokin = Content.Fields("保険料金") KikanFrom = SetTimeYYYYMMDD(Content.Fields("期間始")) KikanTo = SetTimeYYYYMMDD(Content.Fields("期間終")) Biko = Replace("" & Content.Fields("備考"), "
", vbCrLf) End If End If Dim SyubetsuLabel If Syubetsu <> "" Then Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "', '保険種別'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("区分CD") = Syubetsu Then SyubetsuLabel = Replace("" & Content.Fields("区分名称"), "保険", "") Exit Do End If Content.MoveNext Loop 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')", SyubetsuLabel & "保険請求書", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()","", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_hoken_ichiran.asp?Syubetsu=" & Syubetsu & "')", "", "", "", "", "", "", "", "")) If Seq <> "" then Response.Write(HttpL4(SyubetsuLabel & "保険請求書・領収書", "修正")) Else Response.Write(HttpL4(SyubetsuLabel & "保険請求書・領収書", "入力")) End If %>
<% = HtmlFooter %> <% End Sub %>