Request Field Name Data Type Description AuthHeader SC.AuthHeader Header object with details needed to authenticate the request ServiceOptions Service Options Different Settings that can be set in regards to shipping in SellerCloud request OrdersUpdateShippingForOrderRequest Request with all the details related to shipping this package Sample vb.net code
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 |
Dim scService As New SC.SCServiceSoapClient Dim authHeader As New SC.AuthHeader authHeader.ApplicationName = "SimplifiedTrackingService" authHeader.ApplicationVersion = "ONE" authHeader.UserName = "" //USERNAME GOES HERE authHeader.Password = "" //PASSWORD GOES HERE Dim req As New SC.OrdersUpdateShippingForOrderRequest With req If tbOrderID.Text "" Then .OrderID = CInt(tbOrderID.Text) ElseIf tbPONumber.Text "" Then .PONumber = CInt(tbPONumber.Text) ElseIf tbOrderSOurceOrderID.Text "" Then .OrderSourceOrderID = tbOrderSOurceOrderID.Text Dim ordersource As SimplifiedTrackingService.SC.OrderSource = Nothing Select Case tbOrderSource.Text Case "website", "shopify", "site" ordersource = SC.OrderSource.Website Case "amazon" ordersource = SC.OrderSource.Amazon Case "ebay" ordersource = SC.OrderSource.eBayOrder Case "newegg" ordersource = SC.OrderSource.NewEggdotcom Case "walmart" ordersource = SC.OrderSource.Walmart Case "wayfair" ordersource = SC.OrderSource.Wayfair Case Else ordersource = SC.OrderSource.Website End Select Else Throw New Exception("The is no identifier for this order to submit to SellerCloud API") End If .CarrierName = tbCarrier.Text .ShipMethod = tbMethod.Text If tbCarrierFee.Text "" Then .ShippingCost = CDec(tbCarrierFee.Text) End If .TrackingNumber = tbTrackingNumber.Text If tbCurrency.Text "" Then Dim currency As New SC.CurrencyCodeType Select Case tbCurrency.Text Case "USA", "US", "USD" currency = SC.CurrencyCodeType.USD Case "AUD", "AU" currency = SC.CurrencyCodeType.AUD Case Else currency = SC.CurrencyCodeType.USD End Select .CurrencyCode = currency End If If tbShipDate.Text "" Then .ShipDate = CDate(tbShipDate.Text) //SHOULD BE FORMATED AS ISO DATETIME: (Sample DateTime from XML in ISO Format: 2016-08-09T13:21:38.2702685-04:00) Else .ShipDate = Now End If If tbShipFromWarehouse.Text "" Then .WarehouseName = tbShipFromWarehouse.Text End With Dim serviceO As New SC.ServiceOptions With serviceO .AllowAnyProductShippingMethods = True .AlwaysRecalculateWeight = True .AnyAttr = "" .BulkDeleteShadows = False .BulkResetOffsetQty = True .BulkWipeRelationships = False .CalculateWeightIgnoreZeroWeightProducts = True .CreateNewProducts = False .DebugInfo = "" .DoNotDownloadImageData = True .DoNotGetClientUser = False .DontIncludePORMAImages = True .DontNeedCompanyProfile = False .FetchUserDefinedColumnsForProducts = False .IncludeClientUserAddressBook = False .PaymentNotNeeded = True .SaveOrderPackageDimensions = True .SkipBundleItemQtyUpdating = False .SkipCWAShippingRules = False .SplitItems = False .UseCache = False End With Dim result As New SC.Orders_UpdateShippingForOrderResponse Dim res As Boolean = False Try result = SC.SCServiceSoap.Orders_UpdateShippingForOrder(request) If scService.Orders_UpdateShippingForOrder(authHeader, serviceO, req) Then lblResponse.Text = "Order has been updated." End If Catch ex As Exception lblResponse.Text = "ERROR: " & vbCrLf & ex.Message |
Attachments: SimplifiedTrackingService.zip
