<% = AppTitle %>

<% main() Sub main() ' If Not(SessionCheck()) Then ' Exit Sub ' End If Dim Query Dim Content Dim keiyakuNo keiyakuNo = Request("keiyakuNo") '計算用データ Dim Unchin0 Dim Juryo1 Dim Ryoritsu1 Dim Tani1 Dim Juryo4 Dim Ryoritsu4 Dim Tani4 Dim Wariritsu If keiyakuNo <> "" Then Query = "exec SPC運送契約取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & keiyakuNo & "" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then 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 Else Tani1 = "100" Tani4 = "100" End If 'デバッグ用 'PackageMode = 1 %> <% = AppTitle %>


		運賃計算


1000kgまでの運賃

1トンを超え、4トンまでの運賃		運賃料金表額		- 1000 (kg) 加算単位 (kg)
	＝		×


4トンを超えるものの運賃		運賃料金表額		- 4000 (kg) 加算単位 (kg)
	＝		×


運　賃		1000kgまで	1トンを超え、4トンまでの		4トンを超えるもの
	＝		＋	＋

割増運賃

運　賃

割増率

計算する

＝

％

支払額

運　賃

割増運賃

決定

キャンセル

＝

<% = HtmlFooter %>