CE PLUS - Nota 007696
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Complementar
Data/Hora da Publicação: 02/12/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 15:47:26
Descrição da Nota: AO CRIAR NF COMPLEMENTAR, INDICA 0,01 DE DIFERENÇA MESMO SEM DESPESAS
Sintoma
Ao criar NF Complementar, indica 0,01 de diferença mesmo sem despesas
Solução
fazer tratamento para não ocorrer a diferença de casas decimais.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07696 Data: 02/12/2008 Hora: 17:05:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07696
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO CRIAR NF COMPLEMENTAR, INDICA 0,01 DE DIFERENÇA MESMO SEM DESPESAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF COMPLEMENTAR - 0,01 - DIFERENÇA - SEM DESPESAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
FORM collect_despesas.
* >> Início da inclusão: FORM COLLECT_DESPESAS
DATA: v_val_totf2 TYPE /pws/zycit036-vlreal ,
v_val_tot TYPE /pws/zycit036-vlreal ,
v_ebeln TYPE /pws/zycit036-ebeln ,
v_ebelp TYPE /pws/zycit036-ebelp .
* << Fim da inclusão
...
...
* >> Início da inclusão: FORM COLLECT_DESPESAS
SORT itab_zycit100 BY ebeln ebelp DESCENDING .
READ TABLE itab_zycit100 INDEX 1.
IF sy-subrc = 0.
v_ebeln = itab_zycit100-ebeln.
v_ebelp = itab_zycit100-ebelp.
ENDIF.
LOOP AT itab_zycit100 .
v_val_totf2 = v_val_totf2 + itab_zycit100-vlfre.
IF ( itab_zycit100-ebeln NE v_ebeln OR
itab_zycit100-ebelp NE v_ebelp ).
v_val_tot = v_val_tot + itab_zycit100-vlfre.
ENDIF.
ENDLOOP.
* << Fim da inclusão
CLEAR wa_zycit048.
SELECT SINGLE * FROM /pws/zyglt369
INTO wa_zyglt369
WHERE bukrs EQ /pws/zycit085-bukrs
AND branch EQ /pws/zycit085-j_1bbranch
AND urfdesp EQ /pws/zycit085-urfdesp.
...
...
itab_zycit036_b-ebeln = itab_zycit036-ebeln.
itab_zycit036_b-ebelp = itab_zycit036-ebelp.
itab_zycit036_b-bukrs = itab_zycit036-bukrs.
PERFORM trata_decimais USING itab_zycit036-waers_real
CHANGING itab_zycit036-vlreal.
IF itab_zycit036-waers_real NE /pws/zycbt007-waersb.
CASE itab_zycit036-codigo.
WHEN 'FRETEI'.
* >> Início da inclusão: FORM COLLECT_DESPESAS
IF itab_zycit036_b-ebeln = v_ebeln AND
itab_zycit036_b-ebelp = v_ebelp.
itab_zycit036_b-vlreal = v_val_totf2 - v_val_tot .
ELSE.
* << Fim da inclusão
itab_zycit036_b-vlreal = itab_zycit036-vlreal
* /pws/zycit085-ukursfre.
* >> Início da inclusão: FORM COLLECT_DESPESAS
ENDIF.
* << Fim da inclusão
WHEN 'SEGURO'.
...
...
PERFORM trata_decimais USING itab_zycit036-waers_real
CHANGING itab_zycit036-vlreal.
IF itab_zycit036-waers_real NE /pws/zycbt007-waersb.
CASE itab_zycit036-codigo.
WHEN 'FRETEI'.
* >> Início da inclusão: FORM COLLECT_DESPESAS
IF v_ebeln = itab_zycit036-ebeln AND
v_ebelp = itab_zycit036-ebelp.
itab_zycit036_d-vlreal = v_val_totf2 - v_val_tot.
ELSE.
* << Fim da inclusão
itab_zycit036_d-vlreal = itab_zycit036-vlreal
* /pws/zycit085-ukursfre.
* >> Início da inclusão: FORM COLLECT_DESPESAS
v_val_tot = v_val_tot + itab_zycit036_d-vlreal.
ENDIF.
* << Fim da inclusão
WHEN 'SEGURO'.
...