CE PLUS - Nota 002775
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 28/12/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:44:50
Descrição da Nota: COMPLEMENTO BOLETO REMESSA C/ CIDE:ZFBDT DEVE SER /PWS/ZYCBT031-DTVENCTO
Sintoma
Após criar uma remessa incluindo pagamento de CIDE, é encontrado erro no complemento do boleto na
transação FB02.
1-) O campo ZFBDT pode ser parametrizado na tabela /N/PWS/ZYGLT321 através do evento 004C para
buscar a data do vencimento DTVENCTO, nesta parametrização o BI deveria buscar da tabela
/PWS/ZYCBT031 o campo DTVENCTO.
2-) Se casualmente na /PWS/ZYCAT024 o tipo de imposto (CIDE) estiver com uma parametrização de
condição de pagamento, o BI não calcula corretamente a data.
Solução
Ajuste para passar para o zfbdt o campo /pws/zycbt031-dtvencto.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02775 Data: 28/12/2006 Hora: 10:02:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02775
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO BOLETO REMESSA C/ CIDE:ZFBDT DEVE SER /PWS/ZYCBT031-DTVENCTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO BOLETO REMESSA C/ CIDE:ZFBDT DEVE SER /PWS/ZYCBT031-DTVENCTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-xblnr = itab_zycbt124_aux-codpagto.
ELSEIF itab_zyglt321-cpocb = 'TPIMP'.
itab_zycbe033-xblnr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-xblnr = itab_zyglt321-descr.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
itab_zycbe033-zfbdt = itab_zycat025-dtvencto.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
itab_zycbe033-zfbdt = itab_zycbt031-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTINCL'.
itab_zycbe033-zfbdt = itab_zycbt124_aux-dtincl.
ELSEIF itab_zyglt321-cpocb = 'DTDOCTO'.
itab_zycbe033-zfbdt = itab_zycbt124_aux-dtdocto.
ELSEIF itab_zyglt321-cpocb = 'DTLANC'.
itab_zycbe033-zfbdt = itab_zycat025-dtlanc.
ENDIF.
WHEN 'ZUONR'.
IF itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-c_zuonr = itab_zycbt124_aux-nrseq.
...
...
IF sy-subrc = 0.
READ TABLE itab_zycat024 WITH KEY bukrs = /pws/zycbe031-bukrs
tpimp = itab_zycat025-tpimp.
IF sy-subrc = 0 AND NOT itab_zycat024-zterm IS INITIAL
AND itab_zycat024-atualiza_dtvenct NE 'N'.
PERFORM verifica_cond_pagto_cp USING /pws/zycbe031-dtcredpr
itab_zycat024-zterm
CHANGING itab_zycat025-dtvencto.
ELSEIF sy-subrc = 0 AND itab_zycat024-atualiza_dtvenct NE 'N'.
itab_zycat025-dtvencto = /pws/zycbe031-dtcredpr.
* >> Início da inclusão: FORM ATUALIZA_DTVENCTO_IMP_CP
ELSE.
itab_zycat025-dtvencto = /pws/zycbe031-dtvencto.
* << Fim da inclusão
ENDIF.
IF itab_zycat025-dtvencto EQ wa_zycat025-dtvencto.
CONTINUE.
ENDIF.
UPDATE /pws/zycat025 SET dtvencto = itab_zycat025-dtvencto
WHERE nrseq = itab_zycat025-nrseq
AND tpimp = itab_zycat025-tpimp.
MODIFY itab_zycat025 TRANSPORTING dtvencto
WHERE nrseq = itab_zycat025-nrseq
AND tpimp = itab_zycat025-tpimp.
...