VB.NET RelistFixedPriceItem sample for relisting a multi-variation item

© 2010-2013 eBay Inc., All Rights Reserved
'Licensed under CDDL 1.0 - http://opensource.org/licenses/cddl1.php

Imports eBay.Service.Call
Imports eBay.Service.Core.Sdk
Imports eBay.Service.Util
Imports eBay.Service.Core.Soap

Namespace Trading_Samples

     Public Class RelistFixedPriceItem
          'Relist an ended item
          Private Sub RelistFixedPriceItem()

               'create the context
               Dim context As New ApiContext()

               'set the User token
               context.ApiCredential.eBayToken = "Your token"

               'set the server url
               context.SoapApiServerUrl = "https://api.sandbox.ebay.com/wsapi"

               'enable logging
               context.ApiLogManager = New ApiLogManager()
               context.ApiLogManager.ApiLoggerList.Add(New FileLogger("log.txt", True, True, True))
               context.ApiLogManager.EnableLogging = True

               'set the version
               context.Version = "817"
               context.Site = SiteCodeType.UK

               Dim relistFP As New RelistFixedPriceItemCall(context)

               Dim item As New ItemType()
               item.InventoryTrackingMethod = InventoryTrackingMethodCodeType.SKU
               item.SKU = "3349"

               'Specify Variations
               Dim VarCol As New VariationTypeCollection()

               'Add a new Variation - Black M
               Dim var1 As New VariationType()
               var1.SKU = "1100"
               var1.Quantity = 10
               var1.StartPrice = New AmountType()
               var1.StartPrice.currencyID = CurrencyCodeType.GBP
               var1.StartPrice.Value = 35
               var1.VariationSpecifics = New NameValueListTypeCollection()

               Dim Var1Spec1 As New NameValueListType()
               Dim Var1Spec1Valuecoll As New StringCollection()

               Var1Spec1.Name = "Colour"
               Var1Spec1Valuecoll.Add("Black")
               Var1Spec1.Value = Var1Spec1Valuecoll

               var1.VariationSpecifics.Add(Var1Spec1)

               Dim Var1Spec2 As New NameValueListType()
               Dim Var1Spec2Valuecoll As New StringCollection()

               Var1Spec2.Name = "Size"
               Var1Spec2Valuecoll.Add("M")
               Var1Spec2.Value = Var1Spec2Valuecoll

               var1.VariationSpecifics.Add(Var1Spec2)

               VarCol.Add(var1)

               'Delete existing Variation Blue L
               Dim var4 As New VariationType()
               var4.Delete = True
               'Variation is identified by its SKU
               var4.SKU = "1164"
               VarCol.Add(var4)

               item.Variations = New VariationsType()
               item.Variations.Variation = VarCol

               relistFP.Item = item

               relistFP.Execute()
               Console.WriteLine(relistFP.ApiResponse.Ack + " Relisted SKU. The new ItemID is  " + relistFP.ItemID)

          End Sub
     End Class
End Namespace