Histórico da Página

Descrição

Este ponto epc altera o peso real dos itens conforme o peso bruto da nota fiscal

onto de Entrada - altera-item-docum-est

 Exemplo:

/*****************************************************************************

******************************************************************************/
{include/i-epc200.i upc-cdapi651}

DEF INPUT PARAM p-ind-event AS CHAR NO-UNDO.
DEF INPUT-OUTPUT PARAM TABLE FOR tt-epc.

{cdp/cdapi651.i}
DEFINE VARIABLE lc-xml AS CHAR NO-UNDO.
DEFINE VARIABLE r-rowid AS ROWID NO-UNDO.
DEFINE VARIABLE r-docum-est AS ROWID NO-UNDO.

DEFINE BUFFER bf-docum-est FOR docum-est.
DEFINE VARIABLE h-ttwm-docto-itens AS WIDGET-HANDLE NO-UNDO.
DEFINE VARIABLE h-Itens AS WIDGET-HANDLE NO-UNDO.
DEFINE VARIABLE h-buffer AS WIDGET-HANDLE NO-UNDO.

define variable h-cod-estabelec as WIDGET-handle no-undo.
define variable h-especie-doc as WIDGET-handle no-undo.
define variable h-cod-emitente as WIDGET-handle no-undo.
define variable h-serie-docto as WIDGET-handle no-undo.
define variable h-nro-docto as WIDGET-handle no-undo.
define variable h-nat-operacao as WIDGET-handle no-undo.
define variable h-sequencia as WIDGET-handle no-undo.
define variable h-it-codigo as WIDGET-handle no-undo.
define variable h-cont-uni-neg as WIDGET-handle no-undo.
define variable h-desc-item as WIDGET-handle no-undo.
define variable h-volume as WIDGET-handle no-undo.
define variable h-quantidade as WIDGET-handle no-undo.
define variable h-un as WIDGET-handle no-undo.
define variable h-peso-real as WIDGET-handle no-undo.
define variable h-peso-cubado as WIDGET-handle no-undo.
define variable h-nat-oper valor as WIDGET-handle no-undo.define variable

DEFINE VARIABLE h-tt-gedoc-codigo as itens AS WIDGET-handle noHANDLE NO-undoUNDO.
define variable h-fm-codigo as WIDGET-handle no-undo.
define variable h-valor as WIDGET-handle no-undo.
define variable h-unidade-neg as WIDGET-handle no-undo.
define variable h-tributacao as WIDGET-handle no-undo.
define variable h-idi-tributac-pis as WIDGET-handle no-undo.
define variable h-vl-subs as WIDGET-handle no-undo.
define variable h-vl-despesas as WIDGET-handle no-undo.
define variable h-cd-trib-icm as WIDGET-handle no-undo.
define variable h-nat-of as WIDGET-handle no-undo.
define variable h-peso-liquido as WIDGET-handle no-undo.

DEFINE VARIABLE h-tt-doc-itens AS WIDGET-HANDLE NO-UNDO.
DEFINE VARIABLE hQueryItens AS WIDGET-HANDLE NO-UNDO.
DEFINE VARIABLE hBTTItemDocumEst AS HANDLE NO-UNDO.
DEFINE VARIABLE hQTTItemDocumEst AS WIDGET-HANDLE NO-UNDO.

DEFINE VARIABLE de-quantidade AS DECIMAL NO-UNDO.
DEFINE VARIABLE de-peso-dif AS DECIMAL NO-UNDO.

DEFINE VARIABLE de-acum-peso AS DECIMAL NO-UNDO.
DEFINE VARIABLE de-percentual AS DECIMAL FORMAT "999.99" NO-UNDO.

IF p-ind-event = "altera-item-docum-est" THEN DO:

DEFINE VARIABLE hQueryItens AS WIDGET-HANDLE NO-UNDO.
DEFINE VARIABLE hBTTItemDocumEst AS HANDLE NO-UNDO.
DEFINE VARIABLE hQTTItemDocumEst AS WIDGET-HANDLE NO-UNDO.

DEFINE VARIABLE de-quantidade AS DECIMAL NO-UNDO.
DEFINE VARIABLE de-peso-dif AS DECIMAL NO-UNDO.

DEFINE VARIABLE de-acum-peso AS DECIMAL NO-UNDO.
DEFINE VARIABLE de-percentual AS DECIMAL FORMAT "999.99" NO-UNDO.

IF p-ind-event = "altera-item-docum-est" THEN DO:

    FIND FIRST tt-epc
    WHERE tt-epc.cod-event = "altera-item-docum-est"
        AND tt-epc.cod-parameter = "rowid-docum-est" NO-LOCK NO-ERROR.
    IF NOT AVA  IL tt-epc THEN
        RETURN "NOK":U.

    ASSIGN r-docum-est = TO-ROWID(tt-epc.val-parameter).

    FIND FIRST tt-epc NO-LOCK
    WHERE tt-epc.cod-event = "altera-item-docum-est"
        AND tt-epc.cod-parameter = "handle-tt-item-docum-est" NO-ERROR.
    IF AVAIL tt-epc THEN DO:

        ASSIGN h-Itens = WIDGET-HANDLE(tt-epc.val-parameter) .
        ASSIGN h-tt-doc-itens = WIDGET-HANDLE(tt-epc.val-parameter)
        hQueryItens = h-tt-doc-itens:DEFAULT-BUFFER-HANDLE.

    END.

    FIND FIRST bf-docum-est NO-LOCK
             WHERE ROWID(bf-docum-est) = r-docum-est     FIND FIRST tt-epc
    WHERE tt-epc.cod-event = "altera-item-docum-est"
        AND tt-epc.cod-parameter = "rowid-docum-est" NO-LOCK NO-ERROR.
    IF NOT AVA  IL tt-epc AVAIL bf-docum-est THEN
        RETURN "NOK":U.

    ASSIGN rIF bf-docum-est = TO-ROWID(tt-epc.val-parameter)..peso-bruto-tot = 0 THEN
        RETURN "NOK":U.

    CREATE BUFFER hBTTItemDocumEst FOR TABLE hQueryItens BUFFER-NAME "tt    FIND FIRST tt-epc NO-LOCK
    WHERE tt-epc.cod-event = "altera-item-docum-est".
    CREATE QUERY hQTTItemDocumEst.
    AND tt-epc.cod-parameter = "handle-hQTTItemDocumEst:SET-BUFFERS(hBTTItemDocumEst).
    hQTTItemDocumEst:QUERY-PREPARE("FOR EACH tt-item-docum-est" NO-ERROR).
    IF AVAIL tt-epc THEN DO:hQTTItemDocumEst:QUERY-OPEN.
        ASSIGN h-Itens = WIDGET-HANDLE(tt-epc.val-parameter) .hQTTItemDocumEst:GET-FIRST().

    DO WHILE NOT(hQTTItemDocumEst:QUERY-OFF-END):

        ASSIGN h-ttcod-doc-itens = WIDGET-HANDLE(tt-epc.val-parameter)
        hQueryItens = h-tt-doc-itens:DEFAULT-BUFFER-HANDLE.

    END.

    FIND FIRST bf-docum-est NO-LOCK
estabelec = hBTTItemDocumEst:BUFFER-FIELD('cod-estabelec')
                     h-especie-doc = hBTTItemDocumEst:BUFFER-FIELD('especie-doc')
                     WHERE ROWID(bf-docum-est) = r-docum-est NO-ERROR.
    IF NOT AVAIL bf-docum-est THEN
        RETURN "NOK":U.

    IF bf-docum-est.peso-bruto-tot = 0 THEN
        RETURN "NOK":U.

    CREATE BUFFER hBTTItemDocumEst FOR TABLE hQueryItens BUFFER-NAME "tt-item-docum-est".
    CREATE QUERY hQTTItemDocumEst.
    hQTTItemDocumEst:SET-BUFFERS(hBTTItemDocumEst).
    hQTTItemDocumEst:QUERY-PREPARE("FOR EACH tt-item-docum-est").
    hQTTItemDocumEst:QUERY-OPEN.
    hQTTItemDocumEst:GET-FIRST().

    DO WHILE NOT(hQTTItemDocumEst:QUERY-OFF-END):

        ASSIGN h-cod-estabelec  h-cod-emitente = hBTTItemDocumEst:BUFFER-FIELD('cod-emitente')
                     h-serie-docto = hBTTItemDocumEst:BUFFER-FIELD('serie-docto')
                     h-nro-docto = hBTTItemDocumEst:BUFFER-FIELD('nro-docto')
                     h-nat-operacao = hBTTItemDocumEst:BUFFER-FIELD('nat-operacao')
                     h-sequencia = hBTTItemDocumEst:BUFFER-FIELD('cod-estabelecsequencia')
                     h-especieit-doc codigo = hBTTItemDocumEst:BUFFER-FIELD('especieit-doccodigo')
                     h-cod-emitente volume = hBTTItemDocumEst:BUFFER-FIELD('cod-emitentevolume')
                     h-serie-docto quantidade = hBTTItemDocumEst:BUFFER-FIELD('serie-doctoquantidade')
                     h-nropeso-docto real = hBTTItemDocumEst:BUFFER-FIELD('nropeso-doctoreal')
                     h-natpeso-operacao cubado = hBTTItemDocumEst:BUFFER-FIELD('natpeso-operacaocubado').

        FIND FIRST tt-item-docum-est NO-LOCK
                 h-sequencia = hBTTItemDocumEst WHERE tt-item-docum-est.cod-emitente = INT(h-cod-emitente:BUFFER-FIELD('sequencia'VALUE)
                     h AND tt-it-codigo = hBTTItemDocumEstitem-docum-est.serie-docto = STRING(h-serie-docto:BUFFER-FIELD('it-codigo')
h-cont-uni-neg = hBTTItemDocumEst:BUFFER-FIELD('cont-uni-neg')
h-desc-item = hBTTItemDocumEst:BUFFER-FIELD('desc-item')
h-volume = hBTTItemDocumEst:BUFFER-FIELD('volume')
h-quantidade = hBTTItemDocumEst:BUFFER-FIELD('quantidade')
h-un = hBTTItemDocumEst:BUFFER-FIELD('un')
h-peso-real = hBTTItemDocumEst:BUFFER-FIELD('peso-real')
h-peso-cubado = hBTTItemDocumEst:BUFFER-FIELD('peso-cubado')
h-nat-oper = hBTTItemDocumEst:BUFFER-FIELD('nat-oper')
h-ge-codigo = hBTTItemDocumEst:BUFFER-FIELD('ge-codigo')
h-fm-codigo = hBTTItemDocumEst:BUFFER-FIELD('fm-codigo')
h-valor = hBTTItemDocumEst:BUFFER-FIELD('valor')
h-unidade-neg = hBTTItemDocumEst:BUFFER-FIELD('unidade-neg')
h-tributacao = hBTTItemDocumEst:BUFFER-FIELD('tributacao')
h-idi-tributac-pis = hBTTItemDocumEst:BUFFER-FIELD('idi-tributac-pis')
h-vl-subs = hBTTItemDocumEst:BUFFER-FIELD('vl-subs')
h-vl-despesas = hBTTItemDocumEst:BUFFER-FIELD('vl-despesas')
h-cd-trib-icm = hBTTItemDocumEst:BUFFER-FIELD('cd-trib-icm')
h-nat-of = hBTTItemDocumEst:BUFFER-FIELD('nat-of')
h-peso-liquido = hBTTItemDocumEst:BUFFER-FIELD('peso-VALUE)
                     AND tt-item-docum-est.nro-docto = STRING(h-nro-docto:BUFFER-VALUE)
                     AND tt-item-docum-est.it-codigo = STRING(h-it-codigo:BUFFER-VALUE)
                     AND tt-item-docum-est.nat-operacao = STRING(h-nat-operacao:BUFFER-VALUE) NO-ERROR.
       IF NOT AVAIL tt-item-docum-est THEN DO:

            CREATE tt-item-docum-est.
            ASSIGN tt-item-docum-est.cod-estabelec = string(h-cod-estabelec:buffer-value)
                         tt-item-docum-est.especie-doc = string(h-especie-doc:buffer-value)
                         tt-item-docum-est.cod-emitente = INT(h-cod-emitente:buffer-value)
                         tt-item-docum-est.serie-docto = string(h-serie-docto:buffer-value)
                         tt-item-docum-est.nro-docto = string(h-nro-docto:BUFFER-VALUE)
      liquido').    FIND FIRST tt-item-docum-est NO-LOCK
             WHERE tt-item-docum-est.cod-emitente = INT(h-cod-emitente:BUFFER-VALUE)
                 AND tt-   tt-item-docum-est.serienat-docto operacao = STRINGstring(h-serienat-doctooperacao:BUFFERbuffer-VALUEvalue)
                 AND tt         tt-item-docum-est.nro-docto sequencia = STRINGstring(h-nro-doctosequencia:BUFFER-VALUE)
                 AND tt         tt-item-docum-est.it-codigo = STRINGstring(h-it-codigo:BUFFERbuffer-VALUEvalue)
                     AND tt     tt-item-docum-est.nat-operacao volume = STRINGstring(h-nat-operacaovolume:BUFFER-VALUE) NO-ERROR.
   IF NOT AVAIL tt-item-docum-est THEN DO:
                CREATE tt-item-docum-est.
        ASSIGN tt tt-item-docum-est.cod-estabelec quantidade = stringDECIMAL(h-cod-estabelecquantidade:buffer-value)
                         tt-item-docum-est.especiepeso-doc real = stringDECIMAL(h-especiepeso-docreal:buffer-value)
                         tt-item-docum-est.codpeso-emitente cubado = INTDECIMAL(h-codpeso-emitentecubado:bufferBUFFER-valueVALUE)

        END.
        hBTTItemDocumEst:BUFFER-DELETE.

     tt-item-docum-est.serie-docto = string(h-serie-docto:buffer-value)    hQTTItemDocumEst:GET-NEXT.

    END.
     hQTTItemDocumEst:QUERY-CLOSE.
     DELETE OBJECT hQTTItemDocumEst.

         tt-item-docum-est.nro-docto = string(h-nro-docto:BUFFER-VALUE)ASSIGN de-acum-peso = 0
                     tt-item-docum-est.nat-operacao = string(h-nat-operacao:buffer-value) de-percentual = 0
                     tt de-peso-dif = 0.

    /* Verifica a quantidade total dos itens */
    FOR EACH tt-item-docum-est NO-LOCKitem-docum-est.sequencia = string(h-sequencia:BUFFER-VALUE)
                     tt WHERE tt-item-docum-est.itcod-codigo emitente = string(hbf-it-codigo:buffer-value)
docum-est.cod-emitente
                 and tt-item-docum-est.contserie-uni-neg = INT(h-cont-uni-neg:buffer-value)
docto = bf-docum-est.serie-docto
                 and tt-item-docum-est.descnro-item docto = string(hbf-desc-item:buffer-value)
docum-est.nro-docto
                 and tt-item-docum-est.volume = string(h-volume:BUFFER-VALUE)
tt-item-nat-operacao = bf-docum-est.quantidade = DECIMAL(h-quantidade:buffer-value)
tt-item-docum-est.un = string(h-un:BUFFER-VALUE)
nat-operacao :

          ASSIGN de-quantidade = de-quantidade + tt-item-docum-est.peso-real = DECIMAL.quantidade.
    END.

    /* Realiza o rateio do peso bruto do documento com base na quantidade de cada item */
    FOR EACH (h-peso-real:buffer-value)
tt-item-docum-est .peso-cubado = DECIMAL(h-peso-cubado:BUFFER-VALUE)
EXCLUSIVE-LOCK
           WHERE tt-item-docum-est.natcod-oper = string(h-nat-oper:BUFFER-VALUE)
emitente = bf-docum-est.cod-emitente
                and tt-item-docum-est.geserie-codigo docto = INT(hbf-ge-codigo:buffer-value)
docum-est.serie-docto
                and tt-item-docum-est.fmnro-codigo docto = STRING(hbf-fm-codigo:buffer-value)
docum-est.nro-docto
                and tt-item-docum-est.valor = DECIMAL(h-valor:BUFFER-VALUE)
tt-itemnat-operacao = bf-docum-est.nat-operacao :

           ASSIGN de-percentual = unidade-neg = string(h-unidade-neg:BUFFER-VALUE)
tt-item-docum-est.tributacao quantidade / de-quantidade.

           ASSIGN = INT(h-tributacao:BUFFER-VALUE)
tt-item-docum-est.idipeso-tributac-pis = INT(h-idi-tributac-pis:buffer-value)
real = bf-docum-est.peso-bruto-tot * de-percentual.

           ASSIGN de-acum-peso = de-acum-peso + tt-item-docum-est.vlpeso-real.
    END.

    /* Verifica questäes de arredondamento */
    IF de-acum-peso < bf--subs = DECIMAL(h-vl-subs:buffer-value)
tt-item-docum-est.vl-despesas = DECIMAL(h-vl-despesas:BUFFER-VALUE)
tt-item-peso-bruto-tot THEN DO:
        ASSIGN de-peso-dif = bf-docum-est.cdpeso-bruto-tot - de-acum-peso.

     END.

    IF de-peso-dif > 0 THEN DO:

        FOR LAST trib-icm = INT(h-cd-trib-icm:buffer-value)
tt-item-docum-est.nat-of = string(h-nat-of:buffer-value)
tt-item-docum-est .peso-liquido = DECIMAL(h-peso-liquido:BUFFER-VALUE).

    END.
    hBTTItemDocumEst:BUFFER-DELETE.

    hQTTItemDocumEst:GET-NEXT.
    END.
     hQTTItemDocumEst:QUERY-CLOSE.
     DELETE OBJECT hQTTItemDocumEst.    ASSIGN de-acum-peso = 0
EXCLUSIVE-LOCK
                WHERE tt-item-docum-est.cod-emitente = bf-docum-est.cod-emitente
                     and tt-item-docum-est.serie-docto = bf-docum-est.serie-docto
                     de-percentual = 0
 and tt-item-docum-est.nro-docto = bf-docum-est.nro-docto
                     de and tt-peso-dif = 0.    /* Verifica a quantidade total dos itens */
    FOR EACH tt-itemitem-docum-est.nat-operacao = bf-docum-est NO.nat-LOCKoperacao :

               WHERE    ASSIGN tt-item-docum-est.codpeso-emitente real = bftt-item-docum-est.cod-emitentepeso-real + de-peso-dif.

        END.
    END.

     and FOR EACH tt-item-docum-est.serie-docto = bf-docum-est.serie-docto
:

            ASSIGN h-buffer = h-Itens:DEFAULT-BUFFER-HANDLE.
                         and tt-item-docum-est.nro-docto = bf-docum-est.nro-docto  h-buffer:BUFFER-CREATE().

                 and tt-item-docum-est.nat-operacao = bf-docum-est.nat-operacao : ASSIGN h-cod-estabelec = h-buffer:BUFFER-FIELD('cod-estabelec')
                        ASSIGN de-quantidade = de-quantidade + tt-item-docum-est.quantidade.
    END.    /* Realiza o rateio do peso bruto do documento com base na quantidade de cada item */
    FOR EACH tt-item-docum-est EXCLUSIVE-LOCK
 h-especie-doc = h-buffer:BUFFER-FIELD('especie-doc')
                         WHERE tt-item-docum-est. h-cod-emitente = bfh-docum-est.buffer:BUFFER-FIELD('cod-emitente')
                        and tt h-itemserie-docum-est.serie-docto = bf-docum-est.docto = h-buffer:BUFFER-FIELD('serie-docto')
                        and tt-item-docum-est. h-nro-docto = bfh-docum-est.buffer:BUFFER-FIELD('nro-docto')
                      and tt-item-docum-est.   h-nat-operacao = bfh-docum-est.buffer:BUFFER-FIELD('nat-operacao :')
             ASSIGN de-percentual = tt-item-docum-est.quantidade / de-quantidade.             ASSIGN tt-item-docum-est.peso-real = bf-docum-est.peso-bruto-tot * de-percentual. h-sequencia = h-buffer:BUFFER-FIELD('sequencia')
           ASSIGN de-acum-peso = de-acum-peso + tt-item-docum-est.peso-real.
    END.

    /* Verifica questäes de arredondamento */
    IF de-acum-peso < bf-docum-est.peso-bruto-tot THEN DO:
        ASSIGN de-peso-dif = bf-docum-est.peso-bruto-tot - de-acum-peso.

     END.

    IF de-peso-dif > 0 THEN DO:

        FOR LAST tt-item-docum-est EXCLUSIVE-LOCK
                WHERE tt-item-docum-est.cod-emitente = bf-docum-est.cod-emitente
                     and tt-item-docum-est.serie-docto = bf-docum-est.serie-docto
                     and tt-item-docum-est.nro-docto = bf-docum-est.nro-docto
                     and tt-item-docum-est.nat-operacao = bf-docum-est.nat-operacao :

                 ASSIGN tt-item-docum-est.peso-real = tt-item-docum-est.peso-real + de-peso-dif.

        END.
    END.

    FOR EACH tt-item-docum-est:

ASSIGN h-buffer = h-Itens:DEFAULT-BUFFER-HANDLE.
h-buffer:BUFFER-CREATE().

ASSIGN h-cod-estabelec = h-buffer:BUFFER-FIELD('cod-estabelec')
h-especie-doc = h-buffer:BUFFER-FIELD('especie-doc')
h-cod-emitente = h-buffer:BUFFER-FIELD('cod-emitente')
h-serie-docto = h-buffer:BUFFER-FIELD('serie-docto')
h-nro-docto = h-buffer:BUFFER-FIELD('nro-docto')
h-nat-operacao = h-buffer:BUFFER-FIELD('nat-operacao')
h-sequencia = h-buffer:BUFFER-FIELD('sequencia')
h-it-codigo = h-buffer:BUFFER-FIELD('it-codigo')
h-cont-uni-neg = h-buffer:BUFFER-FIELD('cont-uni-neg')
h-desc-item = h-buffer:BUFFER-FIELD('desc-item')
h-volume = h-buffer:BUFFER-FIELD('volume')
h-quantidade = h-buffer:BUFFER-FIELD('quantidade')
h-un = h-buffer:BUFFER-FIELD('un')
h-peso-real = h-buffer:BUFFER-FIELD('peso-real')
h-peso-cubado = h-buffer:BUFFER-FIELD('peso-cubado')
h-nat-oper = h-buffer:BUFFER-FIELD('nat-oper')
h-ge-codigo = h-buffer:BUFFER-FIELD('ge-codigo')
h-fm-codigo = h-buffer:BUFFER-FIELD('fm-codigo')
h-valor = h-buffer:BUFFER-FIELD('valor')
h-unidade-neg = h-buffer:BUFFER-FIELD('unidade-neg')
h-tributacao = h-buffer:BUFFER-FIELD('tributacao')
h-idi-tributac-pis = h-buffer:BUFFER-FIELD('idi-tributac-pis')
h-vl-subs = h-buffer:BUFFER-FIELD('vl-subs')
h-vl-despesas = h-buffer:BUFFER-FIELD('vl-despesas')
h-cd-trib-icm = h-buffer:BUFFER-FIELD('cd-trib-icm')
h-nat-of = h-buffer:BUFFER-FIELD('nat-of')
h-peso-liquido = h-buffer:BUFFER-FIELD('peso-liquido').

               h-it-codigo = h-buffer:BUFFER-FIELD('it-codigo')
                         h-volume = h-buffer:BUFFER-FIELD('volume')
                         h-quantidade = h-buffer:BUFFER-FIELD('quantidade')
                         h-peso-real = h-buffer:BUFFER-FIELD('peso-real')
                         h-peso-cubado = h-buffer:BUFFER-FIELD('peso-cubado').

           ASSIGN h-cod-estabelecASSIGN h-cod-estabelec:buffer-value = tt-item-docum-est.cod-estabelec
h-especie-doc:buffer-value = tt-item-docum-est.especie-doc
h-cod-emitente:buffer-value = tt-item-docum-est.cod-emitente
h-serie-docto:buffer-value = tt-item-docum-est.serie-docto
h-nro-docto:buffer-value = tt-item-docum-est.nro-docto
h-nat-operacao:buffer-value = tt-item-docum-est.nat-operacao
h-sequencia:buffer-value = tt-item-docum-est.sequencia
h-it-codigo:buffer-value = tt-item-docum-est.it-codigo
h-cont-uni-neg:buffer-value = tt-item-docum-est.cont-uni-neg
h-desc-item:buffer-value = tt-item-docum-est.desc-item
h-volume:buffer-value = tt-item-docum-est.volume
h-quantidade:buffer-value = tt-item-docum-est.quantidade
h-un:buffer-value = tt-item-docum-est.un
h-peso-real:buffer-value = tt-item-docum-est.peso-real
h-peso-cubado:buffer-value = tt-item-docum-est.peso-cubado
h-nat-oper:buffer-value = tt-item-docum-est.nat-oper
h-ge-codigo:buffer-value = tt-item-docum-est.gecod-codigo
estabelec
                        h-fmespecie-codigodoc:buffer-value = tt-item-docum-est.fmespecie-codigo
h-valordoc
                        h-cod-emitente:buffer-value = tt-item-docum-est.valor
cod-emitente
                        h-unidadeserie-negdocto:buffer-value = tt-item-docum-est.unidadeserie-neg
h-tributacaodocto
                        h-nro-docto:buffer-value = tt-item-docum-est.tributacao
nro-docto
                        h-idinat-tributac-pisoperacao:buffer-value = tt-item-docum-est.idinat-tributac-pis
h-vl-subsoperacao
                        h-sequencia:buffer-value = tt-item-docum-est.vl-subs
h-vl-despesassequencia
                        h-it-codigo:buffer-value = tt-item-docum-est.vlit-despesas
h-cd-trib-icmcodigo
                        h-quantidade:buffer-value = tt-item-docum-est.cd-trib-icm
h-nat-ofquantidade
                        h-peso-real:buffer-value = tt-item-docum-est.natpeso-of
real
                        h-peso-liquidocubado:buffer-value = tt-item-docum-est.peso-liquido.
ENDcubado

       END.

END.

RETURN "OK":U.