<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim NRflg , ErrMSG , Action
Dim MousikomiNum '申込番号
Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
Dim SyohinCD '商品コード
Dim SyohinName '商品名称
Dim Tanka '単価
Dim Suryo '数量
Dim Kakaku '標準価格
Dim Kingaku '金額
Dim Ryoritsu '料率
Dim HokenRyokin '保険料金
Dim HSyubetsuCode '保険種別CD
Dim Biko '備考
Dim Mosikomibi
Dim Query
Dim Content
Dim CContent
NRflg = Request("nr")
Action = Request("Action")
MousikomiNum = Request("MousikomiNum")
ErrMSG = Request("ErrMSG")
If NRflg = "r" then
MousikomiNum = Request("MousikomiNum")
ErrMsg = Request("ErrMsg")
End If
If Action = 2 Then '修正をする場合
'対象データＧＥＴ保険情報取得
Query = "exec SPC保険取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& MousikomiNum &""
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
' KaisyaCD = Content.Fields("会社CD")
MousikomiNum = Content.Fields("申込番号")
if IsNull(Content.Fields("取引先CD")) then
TorihikisakiCD=""
else
TorihikisakiCD=Content.Fields("取引先CD")
end if
if IsNull(Content.Fields("保険種別")) then
HSyubetsuCode=""
else
HSyubetsuCode = Content.Fields("保険種別")
end if
if IsNull(Content.Fields("申込年月日")) then
'Mosikomibi=""
else
Mosikomibi = Content.Fields("申込年月日")
end if
if IsNull(Content.Fields("保険開始年月日")) then
'HokenkikanFrom=""
else
HokenkikanFrom = Content.Fields("保険開始年月日")
end if
if IsNull(Content.Fields("保険終了年月日")) then
'HokenkikanTo=""
else
HokenkikanTo = Content.Fields("保険終了年月日")
end if
if IsNull(Content.Fields("商品CD")) then
SyohinCD=""
else
SyohinCD = Content.Fields("商品CD")
end if
'標準販売単価ではなく単価を指定する方式に変更
If IsNull(Content.Fields("単価")) Then
If SyohinCD <> "" then
'旧バージョン仕様
Tanka = ConvSyohinHanbaiTanka(SyohinCD)
Else
Tanka = ""
End If
Else
Tanka = Content.Fields("単価")
End If
if IsNull(Content.Fields("数量")) then
Suryo=""
else
Suryo = Content.Fields("数量")
end if
if IsNull(Content.Fields("料率")) then
Ryoritsu=""
else
Ryoritsu = Content.Fields("料率")
end if
if IsNull(Content.Fields("請求金額")) then
HokenRyokin=""
else
HokenRyokin = Content.Fields("請求金額")
end if
if IsNull(Content.Fields("備考")) then
Biko=""
else
Biko = Content.Fields("備考")
end if
End If
end if
%>
<% = AppTitle %>