CE PLUS - Nota 001340
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 15/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:34:24
Descrição da Nota: ARREDONDAMENTO DA BASE DO ICMS, BASE DO IPI E VALOR CONTÁBIL
Sintoma
Está havendo diferença nos valores de Base do IPI, Base do ICMS e Valor Contábil da Nota fiscal.
Solução
Foi criado um ponto de Exit no final do Perform fill_data_j1b1.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01340 Data: 15/05/2006 Hora: 10:01:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01340
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00113
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ARREDONDAMENTO DA BASE DO ICMS, BASE DO IPI E VALOR CONTÁBIL
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT, ICMS, IPI, VALOR CONTÀBIL, NF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF sy-subrc NE 0.
PERFORM contabiliza_impostos.
ENDIF.
ENDIF.
CLEAR v_modo_bi.
* >> Início da inclusão: FORM FILL_DATA_J1B1
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF009'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF009' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND .
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFORM.
...