<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim HyojunTankaHyoji
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
End If
ErrMSG = Request("ErrMSG")
Dim NRflg , ErrMSG , Action
Dim MousikomiNum '申込番号
'運送契約
Dim keiyakuNo '契約申込番号
Dim TorihikisakiCD '取引先CD
Dim TorihikisakiName '取引先名称
Dim Mosikomibi '申込年月日
Dim SyohinCD '商品コード
Dim Suryo '数量
Dim Tanka '単価
Dim NiukesakiCD '荷受取引先CD
Dim NiukesakiName '荷受取引先名称
Dim NiokusakiCD '荷送取引先CD
Dim NiokusakiName '荷送取引先名称
Dim Unchin '運賃
Dim ChikuwariRyo '地区割増料
Dim Ryoritsu
Dim HokenRyokin '保険料金
Dim NizouRyokin '荷造料金
Dim SekyuKingaku '請求金額
Dim Biko '備考
Dim Biko2 '備考
Dim SyohinJyuryo '商品重量
Dim SyohinYouseki '商品容積
Dim Goukeijyuryo '合計重量
Dim Goukeiyouseki '合計容積
Dim TelTo 'TEL着
Dim YubinTo '郵便番号着
Dim JyusyoTo1 '住所着１
Dim JyusyoTo2 '住所着２
Dim TelFrom 'TEL発
Dim YubinFrom '郵便番号発
Dim JyusyoFrom1 '住所発１
Dim JyusyoFrom2 '住所発２
Dim SyoKingaku '小計金額
Dim Syouhizei '消費税額
Dim Goukeikinngaku '合計金額
Dim Query
Dim Content
Dim CContent
NRflg = Request("nr")
Action = Request("Action")
keiyakuNo = Request("keiyakuNo")
ErrMSG = Request("ErrMSG")
'計算用データ
Dim Unchin0
Dim Juryo1
Dim Ryoritsu1
Dim Tani1
Dim Juryo4
Dim Ryoritsu4
Dim Tani4
Dim Wariritsu
If NRflg = "r" then
'SyukkoNo = Request("SyukkoNo")
'KitakuNo = Request("KitakuNo")
ErrMsg = Request("ErrMsg")
End If
If Action = 2 Then '修正をする場合
'対象データＧＥＴ保険情報取得
Query = "exec SPC運送契約取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& keiyakuNo &""
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
keiyakuNo= Content.Fields("申込番号")
TorihikisakiCD = Content.Fields("取引先CD")
SyohinCD = Content.Fields("商品CD")
Mosikomibi = SetTimeYYYYMMDD(Content.Fields("申込年月日"))
Suryo = Content.Fields("数量")
Tanka = Content.Fields("単価")
NiukesakiCD = Content.Fields("荷受取引先CD")
NiokusakiCD = Content.Fields("荷送取引先CD")
Unchin = Content.Fields("運賃")
ChikuwariRyo = Content.Fields("地区割増料")
HokenRyokin = Content.Fields("保険料金")
Ryoritsu = Content.Fields("料率")
NizouRyokin = Content.Fields("荷造料金")
SekyuKingaku= Content.Fields("請求金額")
Biko = Content.Fields("備考")
Unchin0 = Content.Fields("計算用1")
Juryo1 = Content.Fields("計算用2")
Ryoritsu1 = Content.Fields("計算用3")
Tani1 = Content.Fields("計算用4")
Juryo4 = Content.Fields("計算用5")
Ryoritsu4 = Content.Fields("計算用6")
Tani4 = Content.Fields("計算用7")
Wariritsu = Content.Fields("計算用8")
End If
End if
If Unchin="" or Isnull(Unchin) Then
Unchin=0
End If
If ChikuwariRyo="" or Isnull(ChikuwariRyo) Then
ChikuwariRyo=0
End If
If HokenRyokin="" or Isnull(HokenRyokin) Then
HokenRyokin=0
End If
If NizouRyokin="" or Isnull(NizouRyokin) Then
NizouRyokin=0
End If
%>
<% = HtmlHeader("") %>