<%
'
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
%>
<% = HtmlHeader("") %>