question

atelieronweb avatar image
0 Likes"
atelieronweb asked

AddFixedPriceItem shop id

Hi guys, I am absolute beginner in programming against eBay. My task is to put selected items from an database on eBay. I followed the [tutorial][1] but I have not figured out how to assign products to a store. I tried as credentials Sandbox Application, I can get the itemID but the product is not released in my shop. My Context Private Function getContext() As ApiContext Dim context As New ApiContext Dim service As New eBayAPIInterfaceService service.RequesterCredentials = New CustomSecurityHeaderType service.RequesterCredentials.eBayAuthToken = strToken service.RequesterCredentials.Credentials = New UserIdPasswordType service.RequesterCredentials.Credentials.Username = "*****" service.RequesterCredentials.Credentials.Password = "*****" With context .ApiCredential.ApiAccount.Developer = strDevID .ApiCredential.ApiAccount.Application = strAppID .ApiCredential.ApiAccount.Certificate = strCertID .ApiCredential.eBayToken = strToken .Site = SiteCodeType.Italy .ApiCredential.eBayAccount = New eBayAccount .ApiCredential.eBayAccount.UserName = "******" .ApiCredential.eBayAccount.Password = "******" .SoapApiServerUrl = strAPIServerURL .ApiLogManager = New ApiLogManager .ApiLogManager.ApiLoggerList.Add(New eBay.Service.Util.FileLogger(" Log.txt", True, True, True)) .ApiLogManager.EnableLogging = True .Version = versioneDLL End With Return context End Function [1]: https://ebay.custhelp.com/app/answers/detail/a_id/1869/~/vb.net-addfixedpriceitem-sample-for-listing-an-item-with-product-identifier-for
addfixedpriceitem
10 |600 characters needed characters left characters exceeded

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

devanathan.developersupport@ebay.com avatar image
0 Likes"
devanathan.developersupport@ebay.com answered
Hello atelieronweb, The Storefront property is not set in the item object. // Storefront details item.Storefront = new StorefrontType(); item.Storefront.StoreCategoryID = 12345; Include the above 2 line and change the StoreCategoryID value. Give it a try and let me know. Best Regards, Devanathan Sampath, eBay Developer Support
10 |600 characters needed characters left characters exceeded

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

devanathan.developersupport@ebay.com avatar image
0 Likes"
devanathan.developersupport@ebay.com answered
Hello atelieronweb, Do you have a store subscribed in eBay? If yes, then you can list an item in your store using the Storefront container to list an item in your store. http://developer.ebay.com/devzone/xml/docs/Reference/ebay/AddFixedPriceItem.html#Request.Item.Storefront Specify the store categoryID in the StoreCategoryID field with in Storefront container http://developer.ebay.com/devzone/xml/docs/Reference/ebay/AddFixedPriceItem.html#Request.Item.Storefront.StoreCategoryID If you didn't include the Storefront container in the request then you can see the listing in you MyeBay page. If you can share your AddFixedPriceItem code part I can debug the code for you. Best Regards, Devanathan Sampath, eBay Developer Support
10 |600 characters needed characters left characters exceeded

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

atelieronweb avatar image
0 Likes"
atelieronweb answered

Thank you! Yes, i have a store. In fact, I do not receive errors, returns itemID, but it is not in my shop. Maybe the problem is with the token of the sandbox?

Private strEPSServerURL As String = " https://api.sandbox.ebay.com/ws/api.dll" Private strAPIServerURL As String = " https://api.sandbox.ebay.com/wsapi" ![alt text][1]

My test AddFixedPriceItem code

Dim picUrl As String = "http://i.ebayimg.sandbox.ebay.com/00/s/MTAwMFgxMDAw/$(KGrHqFHJE!FJ7dU1iVQBToDt,0pyQ~~60_12.JPG?set_id=880000500F"   


            Dim apiContext As New ApiContext
            Dim cred As ApiCredential = getContext.ApiCredential
            cred.eBayToken = strToken


            Dim fee As FeeType = Nothing

            Dim AddFPItemCall As New AddFixedPriceItemCall(getContext)
            AddFPItemCall.AutoSetItemUUID = True


            Dim item As New ItemType
            item.ConditionID = 1000
            item.Title = "Prova Prodotto"
            item.Description = "Descrizione di prova del prodotto"
            item.Site = SiteCodeType.Italy

            item.Location = "Italia - Fermo"
            item.PostalCode = 63900
            item.ListingDuration = "Days_10"

            item.InventoryTrackingMethod = InventoryTrackingMethodCodeType.SKU
            item.SKU = "VARPARENT124585356"

            'paypal
            item.PaymentMethods = New BuyerPaymentMethodCodeTypeCollection
            item.PaymentMethods.AddRange(New BuyerPaymentMethodCodeType() {BuyerPaymentMethodCodeType.PayPal})
            item.PayPalEmailAddress = "info@atelieronweb.com"


            item.Country = CountryCodeType.IT
            item.Currency = CurrencyCodeType.EUR

            Dim cat As New CategoryType
            cat.CategoryID = 53120
            item.PrimaryCategory = cat

            item.DispatchTimeMax = 1
            item.ShippingDetails = New ShippingDetailsType()
            item.ShippingDetails.ShippingServiceOptions = New ShippingServiceOptionsTypeCollection()
            Dim shipservice1 As New ShippingServiceOptionsType()
            shipservice1.ShippingService = "IT_IoInvio"
            shipservice1.ShippingServiceCost = New AmountType()
            shipservice1.ShippingServiceCost.currencyID = CurrencyCodeType.EUR
            shipservice1.ShippingServiceCost.Value = 10.0


            item.ShippingDetails.ShippingServiceOptions.Add(shipservice1)



            Dim returnPolicy As New ReturnPolicyType
            returnPolicy.ReturnsAccepted = "Returns Accepted"
            returnPolicy.ReturnsAcceptedOption = "ReturnsAccepted"
            item.ReturnPolicy = returnPolicy

            'personalizzazioni
            item.ItemSpecifics = New NameValueListTypeCollection

            Dim ItemSpecs As New NameValueListTypeCollection()

            Dim nv1 As New NameValueListType()
            Dim valueCol1 As New StringCollection()

            nv1.Name = "Brand"
            valueCol1.Add("Ralph Lauren")
            nv1.Value = valueCol1
            ItemSpecs.Add(nv1)

            item.ItemSpecifics = ItemSpecs

            'varianti
            item.Variations = New VariationsType()

            item.Variations.VariationSpecificsSet = New NameValueListTypeCollection()

            Dim NVListVS1 As New NameValueListType()
            NVListVS1.Name = "Size"
            Dim VSvaluecollection1 As New StringCollection()
            Dim Size As [String]() = {"XS", "S", "M", "L", "XL"}
            VSvaluecollection1.AddRange(Size)

            NVListVS1.Value = VSvaluecollection1
            item.Variations.VariationSpecificsSet.Add(NVListVS1)


            Dim VarCol As New VariationTypeCollection()

            'variante1 S
            Dim var1 As New VariationType()
            var1.SKU = "VAR185445"
            var1.Quantity = 10
            var1.StartPrice = New AmountType()
            var1.StartPrice.currencyID = CurrencyCodeType.EUR
            var1.StartPrice.Value = 135
            var1.VariationSpecifics = New NameValueListTypeCollection()

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

            Var1Spec1.Name = "Size"
            Var1Spec1Valuecoll.Add("S")
            Var1Spec1.Value = Var1Spec1Valuecoll

            var1.VariationSpecifics.Add(Var1Spec1)

            VarCol.Add(var1)

            'variante2 L
            Dim var2 As New VariationType()
            var2.SKU = "VAR2658995"
            var2.Quantity = 10
            var2.StartPrice = New AmountType()
            var2.StartPrice.currencyID = CurrencyCodeType.EUR
            var2.StartPrice.Value = 135
            var2.VariationSpecifics = New NameValueListTypeCollection()

            Dim Var2Spec1 As New NameValueListType()
            Dim Var2Spec1Valuecoll As New StringCollection()

            Var2Spec1.Name = "Size"
            Var2Spec1Valuecoll.Add("L")
            Var2Spec1.Value = Var2Spec1Valuecoll

            var2.VariationSpecifics.Add(Var2Spec1)

            VarCol.Add(var2)

            item.Variations.Variation = VarCol

            'pic
            item.PictureDetails = New PictureDetailsType
            item.PictureDetails.PictureURL = New StringCollection
            item.PictureDetails.PictureURL.Add(picUrl)
            item.PictureDetails.PhotoDisplay = PhotoDisplayCodeType.SuperSize
            item.PictureDetails.PhotoDisplaySpecified = True


            AddFPItemCall.Item = item

            AddFPItemCall.Execute()


            Dim s As String = AddFPItemCall.ApiResponse.ItemID
[1]: /storage/temp/150-immagine.jpg

immagine.jpg (140.4 KiB)
· 1
10 |600 characters needed characters left characters exceeded

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

Private strEPSServerURL As String = " https://api.sandbox.ebay.com/ws/api.dll" Private strAPIServerURL As String = " https://api.sandbox.ebay.com/wsapi" is that correct? ![alt text][1] [1]: /storage/temp/149-immagine.jpg
0 Likes 0 ·
immagine.jpg (140.4 KiB)
atelieronweb avatar image
0 Likes"
atelieronweb answered
ok thank you! I now have another error, but I write in the right section Best Regards
10 |600 characters needed characters left characters exceeded

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

Write an Answer

Hint: Notify or tag a user in this post by typing @username.

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.