<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Bango
Dim TorihikisakiCD
Dim Shoribi
Dim Basho
Dim Nyukobi
Dim Shukobi
Dim KikanFrom
Dim KikanTo
Dim Hokanryo
Dim Nyukoryo
Dim Shukoryo
Dim Biko
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("処理日"))
Basho = Content.Fields("貯蔵倉庫場所")
Nyukobi = SetTimeYYYYMMDD(Content.Fields("入庫日"))
Shukobi = SetTimeYYYYMMDD(Content.Fields("出庫日"))
KikanFrom = SetTimeYYYYMMDD(Content.Fields("期間始"))
KikanTo = SetTimeYYYYMMDD(Content.Fields("期間終"))
Hokanryo = Content.Fields("保管料")
Nyukoryo = Content.Fields("入庫料")
Shukoryo = Content.Fields("出庫料")
Shohizei = Content.Fields("消費税")
Shohizeiritsu = Content.Fields("消費税率")
Biko = Replace("" & Content.Fields("備考"), " ", vbCrLf)
If "" & Shohizeiritsu = "" And "" & Shohizei <> "" And ("" & Hokanryo <> "" Or "" & Nyukoryo <> "" Or "" & Shukoryo <> "") Then
Shohizeiritsu = 0
If "" & Hokanryo <> "" Then
Shohizeiritsu = Shohizeiritsu + Hokanryo
End If
If "" & Nyukoryo <> "" Then
Shohizeiritsu = Shohizeiritsu + Nyukoryo
End If
If "" & Shukoryo <> "" Then
Shohizeiritsu = Shohizeiritsu + Shukoryo
End If
Shohizeiritsu = Fix((Shohizei / Shohizeiritsu * 100) + 0.5)
End If
End If
End If
If "" & Shohizeiritsu = "" Then
Shohizeiritsu = GB_Shohizei
End If
%>
<% = AppTitle %>