CE PLUS - Nota 008234
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 24/03/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:15:53
Descrição da Nota: REMESSA FINANCEIRA - COMPLEMENTO DO BOLETO - CONTABILIZAÇÃO
Sintoma
Data do lançamento está incorreta na contabilização do IRRF no Complemento do Boleto quando IRRF é
deduzido do valor ME.
Solução
Realizado ajuste para selecionar a data correta do Complemento do Boleto para contabilizar os
impostos.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08234 Data: 24/03/2009 Hora: 14:46:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08234
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00091
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01188 - 00001 - 6.0 - 00023 - COMPLEMENTO DO BOLETO(REMESSA) IRRF 3ª F-51
----------------------------------------------------------------------------------------------------
REMESSA FINANCEIRA - COMPLEMENTO DO BOLETO - CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA FINANCEIRA - COMPLEMENTO DO BOLETO - DATA CONTABILIZAÇÃO IRRF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
PERFORM get_parameters_cp USING itab_zycat025-tpimp.
ENDIF.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-tabela = '/PWS/ZYCBT124'.
itab_zycbe033-cpochv = itab_zycbt124_aux-nrseq.
IF sy-index <= 1.
itab_zycbe033-budat = itab_zycbt124_aux-dtdocto.
itab_zycbe033-kursf = itab_zycbt124_aux-kursf.
ELSE.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
IF p_recontabiliza IS INITIAL.
itab_zycbe033-budat = itab_zycat025-dtlanc.
ELSE.
* << Fim da exclusão
itab_zycbe033-budat = itab_dados_tc-dtlanc.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
ENDIF.
* << Fim da exclusão
itab_zycbe033-kursf = /pws/zycbe031-taxair.
ENDIF.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
IF /pws/zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
ELSE.
...
...
WHERE tpimp(4) = 'IRRF'.
READ TABLE itab_dados_tc WITH KEY tpimp(4) = 'IRRF'.
IF sy-subrc = 0.
MOVE-CORRESPONDING itab_dados_tc TO itab_dados_tc_aux.
MODIFY itab_dados_tc_aux TRANSPORTING kursf vlmi bcooper
dtlanc pagtoirrf belnr
WHERE tpimp(4) = 'IRRF'.
ENDIF.
ENDIF.
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
IF NOT p_recontabiliza IS INITIAL.
* << Fim da exclusão
itab_zycat025-dtlanc = itab_dados_tc-dtlanc.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
ENDIF.
* << Fim da exclusão
MODIFY itab_zycat025 TRANSPORTING dtlanc belnr_pr
WHERE tpimp(4) = 'IRRF'
AND nrseq = itab_zycbt124_aux-nrseq.
UPDATE /pws/zycat025 SET dtlanc = itab_zycat025-dtlanc
belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
...