CE PLUS - Nota 004022
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 22/06/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:14:24
Descrição da Nota: VALOR NEGATIVO NO RATEIO PESO BRUTO NA NOTA FISCAL QUANDO GRANEL.
Sintoma
valor negativo no rateio do peso bruto na nota fiscal, quando o embarque é de granel.
Solução
ajustar cálculo do peso.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04022 Data: 22/06/2007 Hora: 16:39:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04022
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00171
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03512 - 00001 - 7.0 - 00001 - AO RATEAR O PESO BRUTO DOS ITENS, NÃO BATE COM O TOTAL DA NF
----------------------------------------------------------------------------------------------------
VALOR NEGATIVO NO RATEIO PESO BRUTO NA NOTA FISCAL QUANDO GRANEL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR NEGATIVO - RATEIO - PESO BRUTO - NOTA FISCAL.
GRANEL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
v_ebeln TYPE /pws/zycit003-ebeln ,
v_ebelp TYPE /pws/zycit003-ebelp .
SORT itab_zycit003 BY ebeln ebelp DESCENDING.
READ TABLE itab_zycit003 INDEX 1.
v_ebeln = itab_zycit003-ebeln.
v_ebelp = itab_zycit003-ebelp.
LOOP AT itab_zycit003.
IF ( itab_zycit003-ebeln EQ v_ebeln AND
itab_zycit003-ebelp EQ v_ebelp ) .
ELSE.
* >> Início da inclusão: FORM PESO_GLOBAL_SEP
IF NOT local_tntgew IS INITIAL .
IF NOT itab_zycit003-ntgewd IS INITIAL.
* << Fim da inclusão
v_brgewtot = v_brgewtot +
* >> Início da inclusão: FORM PESO_GLOBAL_SEP
( ( itab_zycit003-ntgewd / local_tntgew ) *
/pws/zycit093-brgew ).
ELSE.
v_brgewtot = v_brgewtot +
* << Fim da inclusão
( ( itab_zycit003-ntgew / local_tntgew ) *
/pws/zycit093-brgew ).
* >> Início da inclusão: FORM PESO_GLOBAL_SEP
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
CLEAR: v_ntgew, v_brgew.
LOOP AT itab_zycit003_aux
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
v_ntgew = v_ntgew + itab_zycit003_aux-ntgew.
IF ( itab_zycit042-ebeln EQ v_ebeln AND
itab_zycit042-ebelp EQ v_ebelp ).
...