CE PLUS - Nota 000421
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 08/12/2005 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:12:29
Descrição da Nota: EXIT NA REMESSA FINANCEIRA DE PAGAMENTO PARA CÁLCULO DO CIDE E ISS
Sintoma
A exit para processamento do cálculo do imposto ISS não está sendo processada.
Solução
Inserido a consistência para verificar se a exit está ativa.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00421 Data: 08/12/2005 Hora: 14:43:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00421
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00399 - 00001 - 6.0 - 00022 - EXIT NA REMESSA FINANCEIRA DE PAGAMENTO PARA CÁLCULO DO CIDE E IS
----------------------------------------------------------------------------------------------------
EXIT NA REMESSA FINANCEIRA DE PAGAMENTO PARA CÁLCULO DO CIDE E ISS
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT REM003 CIDE ISS REMESSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA109I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109I01
Contexto: MODULE controla_impostos INPUT.
...
* ISS*******************************************************************
READ TABLE itab_zycat025 WITH KEY tpimp = 'ISS'.
IF sy-subrc = 0.
* Base de Cálculo
* Chamado 223057 - Renato Mendes - Inicio
v_control_is = v_control_is + 1.
* Chamado 223057 - Renato Mendes - Fim
* Ch. 274018 - 05/12/2005 - Início
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM003' BINARY SEARCH.
IF sy-subrc EQ 0.
* Verifica se a Exit está ativa.
* >> Início da Exclusão
IF itab_zyglt100-zexit_ativa IS INITIAL.
* >> Fim da Exclusão
* >> Início da Inclusão
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Fim da Inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ELSE.
* Ch. 274018 - 05/12/2005 - Fim
READ TABLE itab_zycat024 WITH KEY bukrs = /pws/zycbe124-bukrs
tpimp = itab_zycat025-tpimp.
IF sy-subrc EQ 0 AND
* Chamado 223057 - Renato Mendes - Inicio
( ( itab_zycat024-altera_base IS INITIAL OR
itab_zycat025-basecalc IS INITIAL ) OR
( v_control_is EQ 1 AND
sy-tcode EQ '/PWS/ZYCB109_C' ) ).
* Chamado 223057 - Renato Mendes - Fim
itab_zycat025-basecalc = /pws/zycbe124-vlme.
ENDIF.
ENDIF. "274018 - 05/12/2005
...
ENDMODULE. " controla_impostos INPUT
ENDMODULE. " controla_impostos INPUT
ENDMODULE. " controla_impostos INPUT