CE PLUS - Nota 003474
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 17/04/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 15:16:38
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO - PROVISÃO COMISSÃO DUPLICADA
Sintoma
Ao rodar a rotina mensal de câmbio exportação, o programa está gerando dois documentos de provisão
para as comissões de contrato e para o IR sobre a comissão, quando o correto seria gerar um
documento para a comissão e outro documento para o IR sobre a comissão.
Solução
Tratar para não gerar dois registros de comissão na itab_contabil, evitando assim a duplicidade nas
contabilizações.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03474 Data: 17/04/2007 Hora: 09:44:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03474
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00162
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO - PROVISÃO COMISSÃO DUPLICADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO PROVISÃO COMISSÃO DUPLICADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
v_tipo_jur = '(ACC)'.
ELSE.
v_tipo_jur = '(ACE)'.
ENDIF.
ENDIF.
ELSE.
CLEAR v_tipo_jur.
ENDIF.
IF ( NOT p_v_vlmej IS INITIAL ) OR
( NOT p_impr IS INITIAL ).
* >> Início da exclusão: FORM PROCESSA_SUBTOTAL_WAERS
IF NOT itab_relat-tpcontab = 'T' OR
NOT wa_itab_relat-tpcontab = 'T'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_SUBTOTAL_WAERS
IF NOT itab_relat-tpcontab = 'T'.
IF wa_itab_relat-tpcontab IS INITIAL
OR wa_itab_relat EQ itab_relat.
* << Fim da inclusão
PERFORM preenche_itab_contabil USING p_v_vlmej
CHANGING v_vlrjprov.
* >> Início da inclusão: FORM PROCESSA_SUBTOTAL_WAERS
ENDIF.
* << Fim da inclusão
ENDIF.
ULINE.
FORMAT COLOR 2 INVERSE OFF INTENSIFIED ON.
IF wa_itab_relat-tpcontab EQ 'C'.
IF wa_zycbt007-fprovisao EQ 'C'.
...