ERROR - REST (Duplicated Data)

Posted by rubiaoliveira on 01-Dec-2018 16:12

Hi everybody!

I have a for each inside a block in the structure, but everytime in the second register, I have an erro saying thats a duplicated data... (for each item-doc-est of docum-est no-lock:)

How can I correct this?

    for each docum-est
        where docum-est.cod-estab    = tt-recebimento.cod-estabel
          and docum-est.serie-docto  = tt-recebimento.serie-docto
          and docum-est.nro-docto    = tt-recebimento.nro-docto
          and docum-est.nat-operacao = tt-recebimento.nat-operacao
          and docum-est.cod-emitente = tt-recebimento.cod-emitente no-lock :
                     
        find first emitente where emitente.cod-emitente      = docum-est.cod-emitente no-lock no-error.
          
        assign idCode = docum-est.cod-estab + "-" + docum-est.serie-docto + "-" + docum-est.nro-docto + "-" + string(docum-est.cod-emitente) + "-" + docum-est.nat-operacao.

        httpUrl = "10.0.1.204:8091/.../set.json". /* "10.0.1.67:8091/.../set.json" */
                                          
        oJson = new JsonObject().
        oJson:Add('appId', 'totvs.1').
        oJson:Add('token', '').
        oJson:Add('activityId', 1).
        oJson:Add('idCode', IdCode).
        oJson:Add('invoice', docum-est.nro-docto).
        oJson:Add('arrivalDate', docum-est.dt-emissao).
        oJson:Add('supplierId', emitente.cod-emitente).
        oJson:Add('supplierName', emitente.nome-emit).
        oJson:Add('supplierCnpj', emitente.cgc).
        
        itemsJson = new JSonObject().
        oJson:Add('items', itemsJson).
        
        materialJson = new JSonObject().
        ItemsJson:Add('material', materialJson).
        
        for each item-doc-est of docum-est no-lock:
                         
            find first item     where item.it-codigo             = item-doc-est.it-codigo    no-lock no-error.
            find first item-reserva where item-reserva.it-codigo = item.it-codigo            no-lock no-error.
    
            materialJson:Add('id', item-doc-est.it-codigo).
            materialJson:Add('name', item.desc-item).
            materialJson:Add('desc1', item.narrativa).
            materialJson:Add('grade', 0).
            ItemsJson:Add('itemIdx', Item-doc-est.sequencia).
            ItemsJson:Add('itemSupBatch', Item-doc-est.lote).
            ItemsJson:Add('itemErpBatch', Item-doc-est.lote).
            ItemsJson:Add('itemExpiration', item-doc-est.dat-valid-lote-fabrican).
            ItemsJson:Add('itemProduction', '').
            ItemsJson:Add('itemUnit', Item-doc-est.un).
            ItemsJson:Add('convFactor', '').
            ItemsJson:Add('itemSetpoint', Item-doc-est.quantidade).
            ItemsJson:Add('itemMin', Item-reserva.dec-2).
            ItemsJson:Add('itemMax',Item-reserva.dec-1).
            
        end.
             
        oRequest = RequestBuilder:Post(httpUrl, oJson)
                        :AcceptJson()
                        :Request.
                         
        oResponse = ClientBuilder:Build():Client:Execute(oRequest).
        
                
        if type-of(oResponse:Entity, JsonObject) then do:
            message 1 skip
                    string(oResponse:Entity) view-as alert-box.
            
            oJsonRespObj = cast(oResponse:Entity, JsonObject).
            
            message 'TESTE '  oJsonRespObj:GetCharacter("msg")
                    view-as alert-box.
            
             /*   
            message string(oJsonRespObj:GetInt64("Id"))
                    string(oJsonRespObj:GetInt64("companyId"))
                    oJsonRespObj:GetCharacter("date")
                    oJsonRespObj:GetCharacter("batchIdcode") view-as alert-box.      
            */
        end.

          
          
    end.          

All Replies

This thread is closed