[RESOLVIDO] EPC para NF-e - Adicionar TAG´s

Caros colegas,


Para atender as montadoras de automóveis (FIAT e outras), faz-se necessário adicionar mais informações na TAG "infAdProd" do arquivo XML.

Alguém já fez alguma coisa parecida, através de EPC na rotina AXESP006, onde deve ser informado conteúdo para está tag, exemplo abaixo:

Código:

    FOR FIRST tt-epc NO-LOCK
        WHERE tt-epc.cod-event     = p-ind-event 
        AND   tt-epc.cod-parameter = "ttDet":U :
    
        ASSIGN h-ttDet      = WIDGET-HANDLE(tt-epc.val-parameter)
               hQueryBuffer = h-ttDet:DEFAULT-BUFFER-HANDLE.
    
        IF  VALID-HANDLE(hQueryBuffer) THEN DO:
             CREATE QUERY h-query.
             h-query:SET-BUFFERS(hQueryBuffer).
             h-query:QUERY-PREPARE('for each ' + h-ttDet:NAME + ' no-lock').
             h-query:QUERY-OPEN().

            REPEAT ON ERROR UNDO, LEAVE:
        
                h-query:GET-NEXT() NO-ERROR.
                IF h-query:QUERY-OFF-END THEN LEAVE.

                /* Exemplo de leitura da tabele it-nota-fisc a partir do buffer ttDet */
                ASSIGN h-cod-estabel = hQueryBuffer:BUFFER-FIELD('CodEstabelNF') NO-ERROR.
                ASSIGN h-serie       = hQueryBuffer:BUFFER-FIELD('SerieNF') NO-ERROR.
                ASSIGN h-nr-nota-fis = hQueryBuffer:BUFFER-FIELD('NrNotaFisNF') NO-ERROR.
                ASSIGN h-it-codigo   = hQueryBuffer:BUFFER-FIELD('ItCodigoNF') NO-ERROR.
                ASSIGN h-nr-seq-fat  = hQueryBuffer:BUFFER-FIELD('NrSeqFatNF') NO-ERROR.
                
                FOR FIRST it-nota-fisc
                    WHERE it-nota-fisc.cod-estabel = h-cod-estabel:BUFFER-VALUE
                    AND   it-nota-fisc.serie       = h-serie:BUFFER-VALUE
                    AND   it-nota-fisc.nr-nota-fis = h-nr-nota-fis:BUFFER-VALUE
                    AND   it-nota-fisc.nr-seq-fat  = h-nr-seq-fat:BUFFER-VALUE
                    AND   it-nota-fisc.it-codigo   = h-it-codigo:BUFFER-VALUE  NO-LOCK: 

                END.

                /* Exemplo de atualiza‡Æo do valor do campo InfAdProd no buffer ttDet */
                ASSIGN h-campo = hQueryBuffer:BUFFER-FIELD('infAdProd') NO-ERROR.
                ASSIGN h-campo:BUFFER-VALUE = "Colocar aqui o conte£do desejado para a TAG InfAdProd". 

            END.
        END.
    END.

Neste local "ASSIGN h-campo:BUFFER-VALUE = 'Colocar aqui o conte£do desejado para a TAG InfAdProd'." devo estar colocando as tag´s customizadas, como devo inserir estas informações:


Att.



Eduardo Leite