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
Descrição: | Altera o peso dos itens rateados conforme o peso bruto da nota fiscal | ||||||||
Localização: | cdapi651.i1 | ||||||||
Eventos: | altera-item-docum-est | ||||||||
Programa Fonte: | cdp/cdapi651.i1 | ||||||||
Função: | CDAPI651 - Integração Nota Fiscal de Compra | ||||||||
Parâmetro 1: |
| ||||||||
Parâmetro 2: |
| ||||||||
Retorno: | Não é retornada nenhuma informação ao programa cdapi651 |
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.