|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual Basic 6.0) UPS Rate RequestSee more UPS ExamplesSimple UPS Rate Example For more information, see https://developer.ups.com/api/reference?loc=en_US#operation/Rate
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New ChilkatHttp ' 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" ' } ' } ' } ' } ' } Dim json As New ChilkatJsonObject success = json.UpdateString("RateRequest.Request.TransactionReference.CustomerContext","CustomerContext") success = json.UpdateString("RateRequest.Shipment.Shipper.Name","ShipperName") success = json.UpdateString("RateRequest.Shipment.Shipper.ShipperNumber","ShipperNumber") success = json.UpdateString("RateRequest.Shipment.Shipper.Address.AddressLine[0]","ShipperAddressLine") success = json.UpdateString("RateRequest.Shipment.Shipper.Address.AddressLine[1]","ShipperAddressLine") success = json.UpdateString("RateRequest.Shipment.Shipper.Address.AddressLine[2]","ShipperAddressLine") success = json.UpdateString("RateRequest.Shipment.Shipper.Address.City","TIMONIUM") success = json.UpdateString("RateRequest.Shipment.Shipper.Address.StateProvinceCode","MD") success = json.UpdateString("RateRequest.Shipment.Shipper.Address.PostalCode","21093") success = json.UpdateString("RateRequest.Shipment.Shipper.Address.CountryCode","US") success = json.UpdateString("RateRequest.Shipment.ShipTo.Name","ShipToName") success = json.UpdateString("RateRequest.Shipment.ShipTo.Address.AddressLine[0]","ShipToAddressLine") success = json.UpdateString("RateRequest.Shipment.ShipTo.Address.AddressLine[1]","ShipToAddressLine") success = json.UpdateString("RateRequest.Shipment.ShipTo.Address.AddressLine[2]","ShipToAddressLine") success = json.UpdateString("RateRequest.Shipment.ShipTo.Address.City","Alpharetta") success = json.UpdateString("RateRequest.Shipment.ShipTo.Address.StateProvinceCode","GA") success = json.UpdateString("RateRequest.Shipment.ShipTo.Address.PostalCode","30005") success = json.UpdateString("RateRequest.Shipment.ShipTo.Address.CountryCode","US") success = json.UpdateString("RateRequest.Shipment.ShipFrom.Name","ShipFromName") success = json.UpdateString("RateRequest.Shipment.ShipFrom.Address.AddressLine[0]","ShipFromAddressLine") success = json.UpdateString("RateRequest.Shipment.ShipFrom.Address.AddressLine[1]","ShipFromAddressLine") success = json.UpdateString("RateRequest.Shipment.ShipFrom.Address.AddressLine[2]","ShipFromAddressLine") success = json.UpdateString("RateRequest.Shipment.ShipFrom.Address.City","TIMONIUM") success = json.UpdateString("RateRequest.Shipment.ShipFrom.Address.StateProvinceCode","MD") success = json.UpdateString("RateRequest.Shipment.ShipFrom.Address.PostalCode","21093") success = json.UpdateString("RateRequest.Shipment.ShipFrom.Address.CountryCode","US") success = json.UpdateString("RateRequest.Shipment.PaymentDetails.ShipmentCharge.Type","01") success = json.UpdateString("RateRequest.Shipment.PaymentDetails.ShipmentCharge.BillShipper.AccountNumber","ShipperNumber") success = json.UpdateString("RateRequest.Shipment.Service.Code","03") success = json.UpdateString("RateRequest.Shipment.Service.Description","Ground") success = json.UpdateString("RateRequest.Shipment.NumOfPieces","1") success = json.UpdateString("RateRequest.Shipment.Package.PackagingType.Code","02") success = json.UpdateString("RateRequest.Shipment.Package.PackagingType.Description","Packaging") success = json.UpdateString("RateRequest.Shipment.Package.Dimensions.UnitOfMeasurement.Code","IN") success = json.UpdateString("RateRequest.Shipment.Package.Dimensions.UnitOfMeasurement.Description","Inches") success = json.UpdateString("RateRequest.Shipment.Package.Dimensions.Length","5") success = json.UpdateString("RateRequest.Shipment.Package.Dimensions.Width","5") success = json.UpdateString("RateRequest.Shipment.Package.Dimensions.Height","5") success = json.UpdateString("RateRequest.Shipment.Package.PackageWeight.UnitOfMeasurement.Code","LBS") success = json.UpdateString("RateRequest.Shipment.Package.PackageWeight.UnitOfMeasurement.Description","Pounds") success = 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. Dim jsonToken As New ChilkatJsonObject Dim success As Long success = jsonToken.LoadFile("qa_data/tokens/ups_oauth2_token.json") If (success <> 1) Then Debug.Print "Failed to load ups_oauth2_token.json" Exit Sub End If ' 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. success = 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. success = http.SetUrlVar("requestoption","Rate") Dim resp As ChilkatHttpResponse Set resp = http.PostJson3("https://wwwcie.ups.com/api/rating/{$version}/{$requestoption}?additionalinfo=string","application/json",json) If (http.LastMethodSuccess = 0) Then Debug.Print http.LastErrorText Exit Sub End If Dim sbResponseBody As New ChilkatStringBuilder success = resp.GetBodySb(sbResponseBody) Dim jResp As New ChilkatJsonObject success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = 0 Debug.Print "Response Body:" Debug.Print 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. ' ---------------------------------------------------------------------------------------------------------- Dim respStatusCode As Long respStatusCode = resp.StatusCode Debug.Print "Response Status Code = " & respStatusCode If (respStatusCode >= 400) Then Debug.Print "Response Header:" Debug.Print resp.Header Debug.Print "Failed." Exit Sub End If ' 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 Dim Level As String Dim j As Long Dim count_j As Long Dim Value As String Dim ServiceCode As String Dim ServiceDescription As String Dim RateChart As String Dim BillableWeightCalculationMethod As String Dim RatingMethod As String Dim UnitOfMeasurementCode As String Dim UnitOfMeasurementDescription As String Dim Weight As String Dim CurrencyCode As String Dim MonetaryValue As String Dim BaseServiceChargeCurrencyCode As String Dim BaseServiceChargeMonetaryValue As String Dim GrossChargeCurrencyCode As String Dim GrossChargeMonetaryValue As String Dim DiscountAmountCurrencyCode As String Dim DiscountAmountMonetaryValue As String Dim DiscountPercentage As String Dim NetChargeCurrencyCode As String Dim NetChargeMonetaryValue As String Dim Density As String Dim TotalCubicFeet As String Dim ServiceOptionsChargesCurrencyCode As String Dim ServiceOptionsChargesMonetaryValue As String Dim TotalChargesCurrencyCode As String Dim TotalChargesMonetaryValue As String Dim TotalChargesWithTaxesCurrencyCode As String Dim TotalChargesWithTaxesMonetaryValue As String Dim TotalChargeCurrencyCode As String Dim TotalChargeMonetaryValue As String Dim PickupDate As String Dim DocumentsOnlyIndicator As String Dim PackageBillType As String Dim GuaranteedIndicator As String Dim Disclaimer As String Dim Date As String Dim Time As String Dim BusinessDaysInTransit As String Dim PickupTime As String Dim DayOfWeek As String Dim CustomerCenterCutoff As String Dim DelayCount As String Dim HolidayCount As String Dim RestDays As String Dim TotalTransitDays As String Dim SaturdayDelivery As String Dim SaturdayDeliveryDisclaimer As String Dim SundayDelivery As String Dim SundayDeliveryDisclaimer As String Dim AutoDutyCode As String Dim TimeInTransitDisclaimer As String Dim ScheduledDeliveryDate As String Dim RoarRatedIndicator As String Dim SubType As String Dim Quantity As String Dim TypeCode As String Dim TypeDescription As String Dim UnitOfMeasurement As String Dim Length As String Dim Width As String Dim Height As String Dim AdjustedHeightValue As String Dim AdjustedHeightUnitOfMeasurement As String Dim v_Type As String Dim TransportationChargesCurrencyCode As String Dim TransportationChargesMonetaryValue As String Dim BillingWeightWeight As String Dim SimpleRateCode As String Dim k As Long Dim count_k As Long Dim nullVal As Long Dim ModifierType As String Dim ModifierDesc As String Dim Amount As String Dim Code As String Code = jResp.StringOf("RateResponse.Response.ResponseStatus.Code") Dim Description As String Description = jResp.StringOf("RateResponse.Response.ResponseStatus.Description") Dim CustomerContext As String CustomerContext = jResp.StringOf("RateResponse.Response.TransactionReference.CustomerContext") Dim i As Long i = 0 Dim count_i As Long count_i = jResp.SizeOfArray("RateResponse.Response.Alert") Do While i < count_i jResp.I = i Code = jResp.StringOf("RateResponse.Response.Alert[i].Code") Description = jResp.StringOf("RateResponse.Response.Alert[i].Description") i = i + 1 Loop i = 0 count_i = jResp.SizeOfArray("RateResponse.Response.AlertDetail") Do While i < count_i 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") Do While j < count_j 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 Loop i = i + 1 Loop i = 0 count_i = jResp.SizeOfArray("RateResponse.RatedShipment") Do While i < count_i 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") Do While j < count_j jResp.J = j Code = jResp.StringOf("RateResponse.RatedShipment[i].Disclaimer[j].Code") Description = jResp.StringOf("RateResponse.RatedShipment[i].Disclaimer[j].Description") j = j + 1 Loop j = 0 count_j = jResp.SizeOfArray("RateResponse.RatedShipment[i].RatedShipmentAlert") Do While j < count_j jResp.J = j Code = jResp.StringOf("RateResponse.RatedShipment[i].RatedShipmentAlert[j].Code") Description = jResp.StringOf("RateResponse.RatedShipment[i].RatedShipmentAlert[j].Description") j = j + 1 Loop j = 0 count_j = jResp.SizeOfArray("RateResponse.RatedShipment[i].ItemizedCharges") Do While j < count_j 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 Loop j = 0 count_j = jResp.SizeOfArray("RateResponse.RatedShipment[i].FRSShipmentData.HandlingUnits") Do While j < count_j 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 Loop j = 0 count_j = jResp.SizeOfArray("RateResponse.RatedShipment[i].TaxCharges") Do While j < count_j 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 Loop j = 0 count_j = jResp.SizeOfArray("RateResponse.RatedShipment[i].NegotiatedRateCharges.ItemizedCharges") Do While j < count_j 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 Loop j = 0 count_j = jResp.SizeOfArray("RateResponse.RatedShipment[i].NegotiatedRateCharges.TaxCharges") Do While j < count_j 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 Loop j = 0 count_j = jResp.SizeOfArray("RateResponse.RatedShipment[i].RatedPackage") Do While j < count_j 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") Do While k < count_k 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 Loop k = 0 count_k = jResp.SizeOfArray("RateResponse.RatedShipment[i].RatedPackage[j].ItemizedCharges") Do While k < count_k 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 Loop k = 0 count_k = jResp.SizeOfArray("RateResponse.RatedShipment[i].RatedPackage[j].NegotiatedCharges.ItemizedCharges") Do While k < count_k jResp.K = k nullVal = jResp.IsNullOf("RateResponse.RatedShipment[i].RatedPackage[j].NegotiatedCharges.ItemizedCharges[k]") k = k + 1 Loop k = 0 count_k = jResp.SizeOfArray("RateResponse.RatedShipment[i].RatedPackage[j].RateModifier") Do While k < count_k 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 Loop j = j + 1 Loop i = i + 1 Loop |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.