Amazon MWS API _GET_FLAT_FILE_ALL_ORDERS_DATA_BY_ORDER_DATE_ отчет о заказе не возвращает данные клиента - PullRequest
Новая
       70

Amazon MWS API _GET_FLAT_FILE_ALL_ORDERS_DATA_BY_ORDER_DATE_ отчет о заказе не возвращает данные клиента

0 голосов
/ 12 марта 2020

Мы используем API Amazon MWS _GET_FLAT_FILE_ALL_ORDERS_DATA_BY_ORDER_DATE_ для получения заказов. Но по состоянию на вчерашний день информация о клиенте пуста, за исключением города получателя, штатов, почтового индекса ,. Нет имени или адреса для отправки товаров.

Это приложение работает в течение многих лет.

Это происходит, даже если клиент извлекает отчет о заказе вручную с экранов Amazon. , Но если он РАСПИСАЛ отчет, информация о клиенте есть.

Но из нашего приложения мы не получаем информацию о клиенте. Единственные документы API, кажется, не охватывают изменения в этом методе _GET_FLAT_FILE_ALL_ORDERS_DATA_BY_ORDER_DATE_, которые я вижу и не понимаю, есть ли способ запланировать это через API и как этот процесс будет работать. Вот код, который создает отчет. 

    'Dim TheService As MarketplaceWebService.MarketplaceWebService
    Dim myFFn As String, myFNum As Integer, myResponseID As String
    pOutRequest = New RequestReportRequest()
    Dim config As New MarketplaceWebServiceConfig()
    ' United States:
    config.ServiceURL = GetUrl()
    config.SetUserAgentHeader(applicationName, applicationVersion, "VB", "<Parameter 1>", "<Parameter 2>")  ' Signature here

    If TheService Is Nothing Then TheService = New MarketplaceWebServiceClient(TheAccessKeyId, ThesecretAccessKey, config)

    pOutRequest.Merchant = My.MySettings.Default.merchantId
    pOutRequest.Marketplace = My.MySettings.Default.marketplaceId
    pOutRequest.StartDate = pStartDateTime
    pOutRequest.EndDate = pEndDateTime
    FnDebug("Get A Report Start=" & pStartDateTime & " end=" & pEndDateTime)
    pOutRequest.ReportType = pReportStr
    If MyTesting AndAlso pOutRequestID <> NIL Then
        FunRC = True
        GoTo exitfunction
    End If
    ' ================ Invoke Report  ===================================
    If Not RequestReportSample.InvokeRequestReport(TheService, request:=pOutRequest, _
            pOutRequestID:=pOutRequestID, pOutReason:=pOutReason) Then
        i = i
        If Not MyTesting Then
            GoTo ExitFunction
        End If
        GoTo ExitFunction
    End If

    If Not pWaitForRequestToComplete Then
        FunRC = True
        GoTo ExitFunction
    End If
    ' ================ Invoke Report  ===================================

    FunRC = True

ExitFunction: FnDebug («Получить выход из отчета» & FunR C & SP & pOutReason & "where at =" & WhereAt & "ReqID =" & pOutRequestID) Возврат FunR C

ErrX: Ern = Err.Number: Erd = Err.Description Msg = "Получить отчет Err =" & Ern & SP & Erd & "where at =" & WhereAt Если MyTesting, то остановка. Resume Resume. Возврат False End. Если если Ern = 57, то RetB = MsgBox («У другого процесса есть выходной файл. Пожалуйста, отпустите его. Да, чтобы повторить попытку, НЕТ ПРЕКРАТИТЬ.» Возобновить конец, если, если MyTesting, то Stop вернуть False. Возобновить, конец, если pOutReason = Msg

Пожалуйста, помогите.

...