CE PLUS - Nota 002466
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 17/11/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:28:12
Descrição da Nota: SAÍDA DE PAGAMENTO/BOLETO - REMESSA - DATA DE LANÇAMENTO
Sintoma
Na saída de pagamento de uma importação de serviço, se eu tenho na capa da remessa a data de
lançamento diferente da data de lançamento encontrada no complemento do boleto, o sistema, ao buscar
o doc. pela chave de data de lançamento, não encontra a partida para pagar.
Solução
Ao efetuar o desemembramento do Principal na Saída de Pagamento ou Complemento do Boleto, quando a
Remessa for com Origem, atualizar o campo /PWS/ZYCBT124-DTDOCTO se o mesmo for diferente da data de
lançamento do documento contábil(F-51).
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02466 Data: 17/11/2006 Hora: 10:08:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02466
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00140
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02246 - 00001 - 6.0 - 00025 - SAÍDA DE PAGAMENTO/COMPLEMENTO - BOLETO/REMESSA FORMATO DE DATA
----------------------------------------------------------------------------------------------------
SAÍDA DE PAGAMENTO/BOLETO - REMESSA - DATA DE LANÇAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SAÍDA DE PAGAMENTO COMPLEMENTO DO BOLETO REMESSA DATA DE LANÇAMENTO
DESMEMBRAMENTO DOCUMENTO ORIGEM F-51 F-53 /PWS/ZYCBT124-DTDOCTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB115F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
tabela = '/PWS/ZYCBT031'
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
MESSAGE i218 WITH itab_zycbt032-belnr.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
IF v_dtlanc NE itab_zycbt124_aux-dtdocto AND
NOT v_dtlanc = '00000000' AND
NOT v_dtlanc = ' '.
itab_zycbt124_aux-dtdocto = v_dtlanc.
ELSEIF itab_zycbe033-budat NE itab_zycbt124_aux-dtdocto AND
NOT itab_zycbe033-budat = '00000000' AND
NOT itab_zycbe033-budat = ' '.
itab_zycbt124_aux-dtdocto = itab_zycbe033-budat.
ENDIF.
* << Fim da inclusão
UPDATE /pws/zycbt124 SET belnr_f51 = itab_zycbt032-belnr
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
dtdocto = itab_zycbt124_aux-dtdocto
* << Fim da inclusão
WHERE nrseq = itab_zycbt124_aux-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
IF sy-subrc = 0.
IF v_dtlanc2 NE itab_zycbt124-dtdocto AND
NOT v_dtlanc2 = '00000000' AND
NOT v_dtlanc2 = ' '.
itab_zycbt124-dtdocto = v_dtlanc2.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
ELSEIF itab_zycbe033-budat NE itab_zycbt124-dtdocto AND
NOT itab_zycbe033-budat = '00000000' AND
NOT itab_zycbe033-budat = ' '.
itab_zycbt124-dtdocto = itab_zycbe033-budat.
* << Fim da inclusão
ENDIF.
UPDATE /pws/zycbt124 SET belnr_f51 = itab_zycbt032-belnr
dtdocto = itab_zycbt124-dtdocto
WHERE nrseq = itab_zycbt124-nrseq.
MOVE itab_zycbt032-belnr TO itab_zycbt124-belnr_f51.
...