Delphi ActiveX
Delphi ActiveX
UPS Rate Request
See more UPS Examples
Simple UPS Rate ExampleChilkat Delphi ActiveX Downloads
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;
...
procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
json: TChilkatJsonObject;
jsonToken: TChilkatJsonObject;
resp: TChilkatHttpResponse;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
Level: WideString;
j: Integer;
count_j: Integer;
Value: WideString;
ServiceCode: WideString;
ServiceDescription: WideString;
RateChart: WideString;
BillableWeightCalculationMethod: WideString;
RatingMethod: WideString;
UnitOfMeasurementCode: WideString;
UnitOfMeasurementDescription: WideString;
Weight: WideString;
CurrencyCode: WideString;
MonetaryValue: WideString;
BaseServiceChargeCurrencyCode: WideString;
BaseServiceChargeMonetaryValue: WideString;
GrossChargeCurrencyCode: WideString;
GrossChargeMonetaryValue: WideString;
DiscountAmountCurrencyCode: WideString;
DiscountAmountMonetaryValue: WideString;
DiscountPercentage: WideString;
NetChargeCurrencyCode: WideString;
NetChargeMonetaryValue: WideString;
Density: WideString;
TotalCubicFeet: WideString;
ServiceOptionsChargesCurrencyCode: WideString;
ServiceOptionsChargesMonetaryValue: WideString;
TotalChargesCurrencyCode: WideString;
TotalChargesMonetaryValue: WideString;
TotalChargesWithTaxesCurrencyCode: WideString;
TotalChargesWithTaxesMonetaryValue: WideString;
TotalChargeCurrencyCode: WideString;
TotalChargeMonetaryValue: WideString;
PickupDate: WideString;
DocumentsOnlyIndicator: WideString;
PackageBillType: WideString;
GuaranteedIndicator: WideString;
Disclaimer: WideString;
Date: WideString;
Time: WideString;
BusinessDaysInTransit: WideString;
PickupTime: WideString;
DayOfWeek: WideString;
CustomerCenterCutoff: WideString;
DelayCount: WideString;
HolidayCount: WideString;
RestDays: WideString;
TotalTransitDays: WideString;
SaturdayDelivery: WideString;
SaturdayDeliveryDisclaimer: WideString;
SundayDelivery: WideString;
SundayDeliveryDisclaimer: WideString;
AutoDutyCode: WideString;
TimeInTransitDisclaimer: WideString;
ScheduledDeliveryDate: WideString;
RoarRatedIndicator: WideString;
SubType: WideString;
Quantity: WideString;
TypeCode: WideString;
TypeDescription: WideString;
UnitOfMeasurement: WideString;
Length: WideString;
Width: WideString;
Height: WideString;
AdjustedHeightValue: WideString;
AdjustedHeightUnitOfMeasurement: WideString;
v_Type: WideString;
TransportationChargesCurrencyCode: WideString;
TransportationChargesMonetaryValue: WideString;
BillingWeightWeight: WideString;
SimpleRateCode: WideString;
k: Integer;
count_k: Integer;
nullVal: Integer;
ModifierType: WideString;
ModifierDesc: WideString;
Amount: WideString;
Code: WideString;
Description: WideString;
CustomerContext: WideString;
i: Integer;
count_i: Integer;
begin
success := 0;
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := TChilkatHttp.Create(Self);
// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON
// The following JSON is sent in the request body.
// {
// "RateRequest": {
// "Request": {
// "TransactionReference": {
// "CustomerContext": "CustomerContext"
// }
// },
// "Shipment": {
// "Shipper": {
// "Name": "ShipperName",
// "ShipperNumber": "ShipperNumber",
// "Address": {
// "AddressLine": [
// "ShipperAddressLine",
// "ShipperAddressLine",
// "ShipperAddressLine"
// ],
// "City": "TIMONIUM",
// "StateProvinceCode": "MD",
// "PostalCode": "21093",
// "CountryCode": "US"
// }
// },
// "ShipTo": {
// "Name": "ShipToName",
// "Address": {
// "AddressLine": [
// "ShipToAddressLine",
// "ShipToAddressLine",
// "ShipToAddressLine"
// ],
// "City": "Alpharetta",
// "StateProvinceCode": "GA",
// "PostalCode": "30005",
// "CountryCode": "US"
// }
// },
// "ShipFrom": {
// "Name": "ShipFromName",
// "Address": {
// "AddressLine": [
// "ShipFromAddressLine",
// "ShipFromAddressLine",
// "ShipFromAddressLine"
// ],
// "City": "TIMONIUM",
// "StateProvinceCode": "MD",
// "PostalCode": "21093",
// "CountryCode": "US"
// }
// },
// "PaymentDetails": {
// "ShipmentCharge": {
// "Type": "01",
// "BillShipper": {
// "AccountNumber": "ShipperNumber"
// }
// }
// },
// "Service": {
// "Code": "03",
// "Description": "Ground"
// },
// "NumOfPieces": "1",
// "Package": {
// "PackagingType": {
// "Code": "02",
// "Description": "Packaging"
// },
// "Dimensions": {
// "UnitOfMeasurement": {
// "Code": "IN",
// "Description": "Inches"
// },
// "Length": "5",
// "Width": "5",
// "Height": "5"
// },
// "PackageWeight": {
// "UnitOfMeasurement": {
// "Code": "LBS",
// "Description": "Pounds"
// },
// "Weight": "1"
// }
// }
// }
// }
// }
json := TChilkatJsonObject.Create(Self);
json.UpdateString('RateRequest.Request.TransactionReference.CustomerContext','CustomerContext');
json.UpdateString('RateRequest.Shipment.Shipper.Name','ShipperName');
json.UpdateString('RateRequest.Shipment.Shipper.ShipperNumber','ShipperNumber');
json.UpdateString('RateRequest.Shipment.Shipper.Address.AddressLine[0]','ShipperAddressLine');
json.UpdateString('RateRequest.Shipment.Shipper.Address.AddressLine[1]','ShipperAddressLine');
json.UpdateString('RateRequest.Shipment.Shipper.Address.AddressLine[2]','ShipperAddressLine');
json.UpdateString('RateRequest.Shipment.Shipper.Address.City','TIMONIUM');
json.UpdateString('RateRequest.Shipment.Shipper.Address.StateProvinceCode','MD');
json.UpdateString('RateRequest.Shipment.Shipper.Address.PostalCode','21093');
json.UpdateString('RateRequest.Shipment.Shipper.Address.CountryCode','US');
json.UpdateString('RateRequest.Shipment.ShipTo.Name','ShipToName');
json.UpdateString('RateRequest.Shipment.ShipTo.Address.AddressLine[0]','ShipToAddressLine');
json.UpdateString('RateRequest.Shipment.ShipTo.Address.AddressLine[1]','ShipToAddressLine');
json.UpdateString('RateRequest.Shipment.ShipTo.Address.AddressLine[2]','ShipToAddressLine');
json.UpdateString('RateRequest.Shipment.ShipTo.Address.City','Alpharetta');
json.UpdateString('RateRequest.Shipment.ShipTo.Address.StateProvinceCode','GA');
json.UpdateString('RateRequest.Shipment.ShipTo.Address.PostalCode','30005');
json.UpdateString('RateRequest.Shipment.ShipTo.Address.CountryCode','US');
json.UpdateString('RateRequest.Shipment.ShipFrom.Name','ShipFromName');
json.UpdateString('RateRequest.Shipment.ShipFrom.Address.AddressLine[0]','ShipFromAddressLine');
json.UpdateString('RateRequest.Shipment.ShipFrom.Address.AddressLine[1]','ShipFromAddressLine');
json.UpdateString('RateRequest.Shipment.ShipFrom.Address.AddressLine[2]','ShipFromAddressLine');
json.UpdateString('RateRequest.Shipment.ShipFrom.Address.City','TIMONIUM');
json.UpdateString('RateRequest.Shipment.ShipFrom.Address.StateProvinceCode','MD');
json.UpdateString('RateRequest.Shipment.ShipFrom.Address.PostalCode','21093');
json.UpdateString('RateRequest.Shipment.ShipFrom.Address.CountryCode','US');
json.UpdateString('RateRequest.Shipment.PaymentDetails.ShipmentCharge.Type','01');
json.UpdateString('RateRequest.Shipment.PaymentDetails.ShipmentCharge.BillShipper.AccountNumber','ShipperNumber');
json.UpdateString('RateRequest.Shipment.Service.Code','03');
json.UpdateString('RateRequest.Shipment.Service.Description','Ground');
json.UpdateString('RateRequest.Shipment.NumOfPieces','1');
json.UpdateString('RateRequest.Shipment.Package.PackagingType.Code','02');
json.UpdateString('RateRequest.Shipment.Package.PackagingType.Description','Packaging');
json.UpdateString('RateRequest.Shipment.Package.Dimensions.UnitOfMeasurement.Code','IN');
json.UpdateString('RateRequest.Shipment.Package.Dimensions.UnitOfMeasurement.Description','Inches');
json.UpdateString('RateRequest.Shipment.Package.Dimensions.Length','5');
json.UpdateString('RateRequest.Shipment.Package.Dimensions.Width','5');
json.UpdateString('RateRequest.Shipment.Package.Dimensions.Height','5');
json.UpdateString('RateRequest.Shipment.Package.PackageWeight.UnitOfMeasurement.Code','LBS');
json.UpdateString('RateRequest.Shipment.Package.PackageWeight.UnitOfMeasurement.Description','Pounds');
json.UpdateString('RateRequest.Shipment.Package.PackageWeight.Weight','1');
// Load the OAuth2 access token obtained via client credentials as shown
// in this UPS OAuth2 Client Credentials example.
jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/ups_oauth2_token.json');
if (success <> 1) then
begin
Memo1.Lines.Add('Failed to load ups_oauth2_token.json');
Exit;
end;
// The access token JSON looks something like this:
// {
// "token_type": "Bearer",
// "issued_at": "1686911985606",
// "client_id": "2498righ8wr6aihe98rt8rhowirtyw9er6twe80rtywrehrt",
// "access_token": "eyJraW......R2sbqrY",
// "expires_in": "14399",
// "status": "approved"
// }
// Adds the "Authorization: Bearer <YOUR_TOKEN_HERE>" header.
http.AuthToken := jsonToken.StringOf('access_token');
http.SetRequestHeader('Content-Type','application/json');
http.SetRequestHeader('transId','string');
http.SetRequestHeader('transactionSrc','testing');
// The "version" indicates Rate API to display the new release features in Rate API response based on Rate release.
// Supported values: v1, v1601, v1607, v1701, v1707, v2108, v2205.
http.SetUrlVar('version','v1');
// The "requestoption" has the following valid values:
// Rate = The server rates (The default Request option is Rate if a Request Option is not provided).
// Shop = The server validates the shipment, and returns rates for all UPS products from the ShipFrom to the ShipTo addresses.
// Rate is the only valid request option for Ground Freight Pricing requests.
http.SetUrlVar('requestoption','Rate');
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpJson('POST','https://wwwcie.ups.com/api/rating/{$version}/{$requestoption}?additionalinfo=string',json.ControlInterface,'application/json',resp.ControlInterface);
if (success = 0) then
begin
Memo1.Lines.Add(http.LastErrorText);
Exit;
end;
sbResponseBody := TChilkatStringBuilder.Create(Self);
resp.GetBodySb(sbResponseBody.ControlInterface);
jResp := TChilkatJsonObject.Create(Self);
jResp.LoadSb(sbResponseBody.ControlInterface);
jResp.EmitCompact := 0;
Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.Emit());
// ----------------------------------------------------------------------------------------------------------
// Important: If you get the following error response, read further for the solution..
//
// {
// "response": {
// "errors": [
// {
// "code": "250002",
// "message": "Invalid Authentication Information."
// }
// ]
// }
// }
//
// It means you didn't add the Rating API permission to your app.
// To add the Rating API, login to your developer account and go to your Apps page at https://developer.ups.com/apps?loc=en_US
// Then edit your app and add the Rating API.
// ----------------------------------------------------------------------------------------------------------
respStatusCode := resp.StatusCode;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
begin
Memo1.Lines.Add('Response Header:');
Memo1.Lines.Add(resp.Header);
Memo1.Lines.Add('Failed.');
Exit;
end;
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "RateResponse": {
// "Response": {
// "ResponseStatus": {
// "Code": "s",
// "Description": "string"
// },
// "Alert": [
// {
// "Code": "string",
// "Description": "string"
// }
// ],
// "AlertDetail": [
// {
// "Code": "string",
// "Description": "string",
// "ElementLevelInformation": {
// "Level": "s",
// "ElementIdentifier": [
// {
// "Code": null,
// "Value": null
// }
// ]
// }
// }
// ],
// "TransactionReference": {
// "CustomerContext": "string"
// }
// },
// "RatedShipment": [
// {
// "Disclaimer": [
// {
// "Code": "st",
// "Description": "string"
// }
// ],
// "Service": {
// "Code": "str",
// "Description": "string"
// },
// "RateChart": "s",
// "RatedShipmentAlert": [
// {
// "Code": "string",
// "Description": "string"
// }
// ],
// "BillableWeightCalculationMethod": "st",
// "RatingMethod": "st",
// "BillingWeight": {
// "UnitOfMeasurement": {
// "Code": "str",
// "Description": "string"
// },
// "Weight": "strin"
// },
// "TransportationCharges": {
// "CurrencyCode": "str",
// "MonetaryValue": "stringstringstri"
// },
// "BaseServiceCharge": {
// "CurrencyCode": "str",
// "MonetaryValue": "stringstringstri"
// },
// "ItemizedCharges": [
// {
// "Code": "str",
// "Description": "string",
// "CurrencyCode": "str",
// "MonetaryValue": "string",
// "SubType": "string"
// }
// ],
// "FRSShipmentData": {
// "TransportationCharges": {
// "GrossCharge": {
// "CurrencyCode": "str",
// "MonetaryValue": "string"
// },
// "DiscountAmount": {
// "CurrencyCode": "str",
// "MonetaryValue": "string"
// },
// "DiscountPercentage": "st",
// "NetCharge": {
// "CurrencyCode": "str",
// "MonetaryValue": "string"
// }
// },
// "FreightDensityRate": {
// "Density": "strin",
// "TotalCubicFeet": "string"
// },
// "HandlingUnits": [
// {
// "Quantity": "string",
// "Type": {
// "Code": null,
// "Description": null
// },
// "Dimensions": {
// "UnitOfMeasurement": null,
// "Length": null,
// "Width": null,
// "Height": null
// },
// "AdjustedHeight": {
// "Value": null,
// "UnitOfMeasurement": null
// }
// }
// ]
// },
// "ServiceOptionsCharges": {
// "CurrencyCode": "str",
// "MonetaryValue": "string"
// },
// "TaxCharges": [
// {
// "Type": "string",
// "MonetaryValue": "string"
// }
// ],
// "TotalCharges": {
// "CurrencyCode": "str",
// "MonetaryValue": "string"
// },
// "TotalChargesWithTaxes": {
// "CurrencyCode": "str",
// "MonetaryValue": "string"
// },
// "NegotiatedRateCharges": {
// "ItemizedCharges": [
// {
// "Code": "str",
// "Description": "string",
// "CurrencyCode": "str",
// "MonetaryValue": "string",
// "SubType": "string"
// }
// ],
// "TaxCharges": [
// {
// "Type": "string",
// "MonetaryValue": "string"
// }
// ],
// "TotalCharge": {
// "CurrencyCode": "string",
// "MonetaryValue": "string"
// },
// "TotalChargesWithTaxes": {
// "CurrencyCode": "string",
// "MonetaryValue": "string"
// }
// },
// "RatedPackage": [
// {
// "BaseServiceCharge": {
// "CurrencyCode": "str",
// "MonetaryValue": "string"
// },
// "TransportationCharges": {
// "CurrencyCode": "string",
// "MonetaryValue": "string"
// },
// "ServiceOptionsCharges": {
// "CurrencyCode": "string",
// "MonetaryValue": "string"
// },
// "TotalCharges": {
// "CurrencyCode": "string",
// "MonetaryValue": "string"
// },
// "Weight": "string",
// "BillingWeight": {
// "UnitOfMeasurement": {
// "Code": null,
// "Description": null
// },
// "Weight": "string"
// },
// "Accessorial": [
// {
// "Code": null,
// "Description": null
// }
// ],
// "ItemizedCharges": [
// {
// "Code": null,
// "Description": null,
// "CurrencyCode": null,
// "MonetaryValue": null,
// "SubType": null
// }
// ],
// "NegotiatedCharges": {
// "ItemizedCharges": [
// null
// ]
// },
// "SimpleRate": {
// "Code": "st"
// },
// "RateModifier": [
// {
// "ModifierType": null,
// "ModifierDesc": null,
// "Amount": null
// }
// ]
// }
// ],
// "TimeInTransit": {
// "PickupDate": "stringst",
// "DocumentsOnlyIndicator": "string",
// "PackageBillType": "st",
// "ServiceSummary": {
// "Service": {
// "Description": "string"
// },
// "GuaranteedIndicator": "string",
// "Disclaimer": "string",
// "EstimatedArrival": {
// "Arrival": {
// "Date": null,
// "Time": null
// },
// "BusinessDaysInTransit": "strin",
// "Pickup": {
// "Date": null,
// "Time": null
// },
// "DayOfWeek": "string",
// "CustomerCenterCutoff": "string",
// "DelayCount": "str",
// "HolidayCount": "st",
// "RestDays": "st",
// "TotalTransitDays": "strin"
// },
// "SaturdayDelivery": "string",
// "SaturdayDeliveryDisclaimer": "string",
// "SundayDelivery": "string",
// "SundayDeliveryDisclaimer": "string"
// },
// "AutoDutyCode": "st",
// "Disclaimer": "string"
// },
// "ScheduledDeliveryDate": "string",
// "RoarRatedIndicator": "string"
// }
// ]
// }
// }
// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
Code := jResp.StringOf('RateResponse.Response.ResponseStatus.Code');
Description := jResp.StringOf('RateResponse.Response.ResponseStatus.Description');
CustomerContext := jResp.StringOf('RateResponse.Response.TransactionReference.CustomerContext');
i := 0;
count_i := jResp.SizeOfArray('RateResponse.Response.Alert');
while i < count_i do
begin
jResp.I := i;
Code := jResp.StringOf('RateResponse.Response.Alert[i].Code');
Description := jResp.StringOf('RateResponse.Response.Alert[i].Description');
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('RateResponse.Response.AlertDetail');
while i < count_i do
begin
jResp.I := i;
Code := jResp.StringOf('RateResponse.Response.AlertDetail[i].Code');
Description := jResp.StringOf('RateResponse.Response.AlertDetail[i].Description');
Level := jResp.StringOf('RateResponse.Response.AlertDetail[i].ElementLevelInformation.Level');
j := 0;
count_j := jResp.SizeOfArray('RateResponse.Response.AlertDetail[i].ElementLevelInformation.ElementIdentifier');
while j < count_j do
begin
jResp.J := j;
Code := jResp.StringOf('RateResponse.Response.AlertDetail[i].ElementLevelInformation.ElementIdentifier[j].Code');
Value := jResp.StringOf('RateResponse.Response.AlertDetail[i].ElementLevelInformation.ElementIdentifier[j].Value');
j := j + 1;
end;
i := i + 1;
end;
i := 0;
count_i := jResp.SizeOfArray('RateResponse.RatedShipment');
while i < count_i do
begin
jResp.I := i;
ServiceCode := jResp.StringOf('RateResponse.RatedShipment[i].Service.Code');
ServiceDescription := jResp.StringOf('RateResponse.RatedShipment[i].Service.Description');
RateChart := jResp.StringOf('RateResponse.RatedShipment[i].RateChart');
BillableWeightCalculationMethod := jResp.StringOf('RateResponse.RatedShipment[i].BillableWeightCalculationMethod');
RatingMethod := jResp.StringOf('RateResponse.RatedShipment[i].RatingMethod');
UnitOfMeasurementCode := jResp.StringOf('RateResponse.RatedShipment[i].BillingWeight.UnitOfMeasurement.Code');
UnitOfMeasurementDescription := jResp.StringOf('RateResponse.RatedShipment[i].BillingWeight.UnitOfMeasurement.Description');
Weight := jResp.StringOf('RateResponse.RatedShipment[i].BillingWeight.Weight');
CurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].TransportationCharges.CurrencyCode');
MonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].TransportationCharges.MonetaryValue');
BaseServiceChargeCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].BaseServiceCharge.CurrencyCode');
BaseServiceChargeMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].BaseServiceCharge.MonetaryValue');
GrossChargeCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.TransportationCharges.GrossCharge.CurrencyCode');
GrossChargeMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.TransportationCharges.GrossCharge.MonetaryValue');
DiscountAmountCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.TransportationCharges.DiscountAmount.CurrencyCode');
DiscountAmountMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.TransportationCharges.DiscountAmount.MonetaryValue');
DiscountPercentage := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.TransportationCharges.DiscountPercentage');
NetChargeCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.TransportationCharges.NetCharge.CurrencyCode');
NetChargeMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.TransportationCharges.NetCharge.MonetaryValue');
Density := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.FreightDensityRate.Density');
TotalCubicFeet := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.FreightDensityRate.TotalCubicFeet');
ServiceOptionsChargesCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].ServiceOptionsCharges.CurrencyCode');
ServiceOptionsChargesMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].ServiceOptionsCharges.MonetaryValue');
TotalChargesCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].TotalCharges.CurrencyCode');
TotalChargesMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].TotalCharges.MonetaryValue');
TotalChargesWithTaxesCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].TotalChargesWithTaxes.CurrencyCode');
TotalChargesWithTaxesMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].TotalChargesWithTaxes.MonetaryValue');
TotalChargeCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.TotalCharge.CurrencyCode');
TotalChargeMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.TotalCharge.MonetaryValue');
TotalChargesWithTaxesCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.TotalChargesWithTaxes.CurrencyCode');
TotalChargesWithTaxesMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.TotalChargesWithTaxes.MonetaryValue');
PickupDate := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.PickupDate');
DocumentsOnlyIndicator := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.DocumentsOnlyIndicator');
PackageBillType := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.PackageBillType');
ServiceDescription := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.Service.Description');
GuaranteedIndicator := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.GuaranteedIndicator');
Disclaimer := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.Disclaimer');
Date := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.Arrival.Date');
Time := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.Arrival.Time');
BusinessDaysInTransit := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.BusinessDaysInTransit');
PickupDate := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.Pickup.Date');
PickupTime := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.Pickup.Time');
DayOfWeek := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.DayOfWeek');
CustomerCenterCutoff := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.CustomerCenterCutoff');
DelayCount := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.DelayCount');
HolidayCount := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.HolidayCount');
RestDays := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.RestDays');
TotalTransitDays := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.EstimatedArrival.TotalTransitDays');
SaturdayDelivery := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.SaturdayDelivery');
SaturdayDeliveryDisclaimer := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.SaturdayDeliveryDisclaimer');
SundayDelivery := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.SundayDelivery');
SundayDeliveryDisclaimer := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.ServiceSummary.SundayDeliveryDisclaimer');
AutoDutyCode := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.AutoDutyCode');
TimeInTransitDisclaimer := jResp.StringOf('RateResponse.RatedShipment[i].TimeInTransit.Disclaimer');
ScheduledDeliveryDate := jResp.StringOf('RateResponse.RatedShipment[i].ScheduledDeliveryDate');
RoarRatedIndicator := jResp.StringOf('RateResponse.RatedShipment[i].RoarRatedIndicator');
j := 0;
count_j := jResp.SizeOfArray('RateResponse.RatedShipment[i].Disclaimer');
while j < count_j do
begin
jResp.J := j;
Code := jResp.StringOf('RateResponse.RatedShipment[i].Disclaimer[j].Code');
Description := jResp.StringOf('RateResponse.RatedShipment[i].Disclaimer[j].Description');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('RateResponse.RatedShipment[i].RatedShipmentAlert');
while j < count_j do
begin
jResp.J := j;
Code := jResp.StringOf('RateResponse.RatedShipment[i].RatedShipmentAlert[j].Code');
Description := jResp.StringOf('RateResponse.RatedShipment[i].RatedShipmentAlert[j].Description');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('RateResponse.RatedShipment[i].ItemizedCharges');
while j < count_j do
begin
jResp.J := j;
Code := jResp.StringOf('RateResponse.RatedShipment[i].ItemizedCharges[j].Code');
Description := jResp.StringOf('RateResponse.RatedShipment[i].ItemizedCharges[j].Description');
CurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].ItemizedCharges[j].CurrencyCode');
MonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].ItemizedCharges[j].MonetaryValue');
SubType := jResp.StringOf('RateResponse.RatedShipment[i].ItemizedCharges[j].SubType');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits');
while j < count_j do
begin
jResp.J := j;
Quantity := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].Quantity');
TypeCode := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].Type.Code');
TypeDescription := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].Type.Description');
UnitOfMeasurement := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].Dimensions.UnitOfMeasurement');
Length := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].Dimensions.Length');
Width := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].Dimensions.Width');
Height := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].Dimensions.Height');
AdjustedHeightValue := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].AdjustedHeight.Value');
AdjustedHeightUnitOfMeasurement := jResp.StringOf('RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits[j].AdjustedHeight.UnitOfMeasurement');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('RateResponse.RatedShipment[i].TaxCharges');
while j < count_j do
begin
jResp.J := j;
v_Type := jResp.StringOf('RateResponse.RatedShipment[i].TaxCharges[j].Type');
MonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].TaxCharges[j].MonetaryValue');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('RateResponse.RatedShipment[i].NegotiatedRateCharges.ItemizedCharges');
while j < count_j do
begin
jResp.J := j;
Code := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.ItemizedCharges[j].Code');
Description := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.ItemizedCharges[j].Description');
CurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.ItemizedCharges[j].CurrencyCode');
MonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.ItemizedCharges[j].MonetaryValue');
SubType := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.ItemizedCharges[j].SubType');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('RateResponse.RatedShipment[i].NegotiatedRateCharges.TaxCharges');
while j < count_j do
begin
jResp.J := j;
v_Type := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.TaxCharges[j].Type');
MonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].NegotiatedRateCharges.TaxCharges[j].MonetaryValue');
j := j + 1;
end;
j := 0;
count_j := jResp.SizeOfArray('RateResponse.RatedShipment[i].RatedPackage');
while j < count_j do
begin
jResp.J := j;
BaseServiceChargeCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].BaseServiceCharge.CurrencyCode');
BaseServiceChargeMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].BaseServiceCharge.MonetaryValue');
TransportationChargesCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].TransportationCharges.CurrencyCode');
TransportationChargesMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].TransportationCharges.MonetaryValue');
ServiceOptionsChargesCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].ServiceOptionsCharges.CurrencyCode');
ServiceOptionsChargesMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].ServiceOptionsCharges.MonetaryValue');
TotalChargesCurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].TotalCharges.CurrencyCode');
TotalChargesMonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].TotalCharges.MonetaryValue');
Weight := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].Weight');
UnitOfMeasurementCode := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].BillingWeight.UnitOfMeasurement.Code');
UnitOfMeasurementDescription := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].BillingWeight.UnitOfMeasurement.Description');
BillingWeightWeight := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].BillingWeight.Weight');
SimpleRateCode := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].SimpleRate.Code');
k := 0;
count_k := jResp.SizeOfArray('RateResponse.RatedShipment[i].RatedPackage[j].Accessorial');
while k < count_k do
begin
jResp.K := k;
Code := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].Accessorial[k].Code');
Description := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].Accessorial[k].Description');
k := k + 1;
end;
k := 0;
count_k := jResp.SizeOfArray('RateResponse.RatedShipment[i].RatedPackage[j].ItemizedCharges');
while k < count_k do
begin
jResp.K := k;
Code := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].ItemizedCharges[k].Code');
Description := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].ItemizedCharges[k].Description');
CurrencyCode := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].ItemizedCharges[k].CurrencyCode');
MonetaryValue := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].ItemizedCharges[k].MonetaryValue');
SubType := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].ItemizedCharges[k].SubType');
k := k + 1;
end;
k := 0;
count_k := jResp.SizeOfArray('RateResponse.RatedShipment[i].RatedPackage[j].NegotiatedCharges.ItemizedCharges');
while k < count_k do
begin
jResp.K := k;
nullVal := jResp.IsNullOf('RateResponse.RatedShipment[i].RatedPackage[j].NegotiatedCharges.ItemizedCharges[k]');
k := k + 1;
end;
k := 0;
count_k := jResp.SizeOfArray('RateResponse.RatedShipment[i].RatedPackage[j].RateModifier');
while k < count_k do
begin
jResp.K := k;
ModifierType := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].RateModifier[k].ModifierType');
ModifierDesc := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].RateModifier[k].ModifierDesc');
Amount := jResp.StringOf('RateResponse.RatedShipment[i].RatedPackage[j].RateModifier[k].Amount');
k := k + 1;
end;
j := j + 1;
end;
i := i + 1;
end;
end;