CE PLUS - Nota 007801
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 17/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:43:48
Descrição da Nota: LIQUIDAÇÃO - MENSAGEM FALTA DATA DE PRORROGAÇÃO INCORRETA
Sintoma
Ao tentar liquidar um contrato de ACC, informa que falta data de prorrogação, mas a mesma esta
informada no contrato, sendo ela igual a data da liquidação.
Solução
Tratar para verificar prorrogação do tipo P apenas para contratos do tipo PT e ST. Para os outros
tipos de contrato, verificar prorrogação do tipo L.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07801 Data: 17/12/2008 Hora: 14:19:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07801
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00083
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07290 - 00001 - 7.0 - 00006 - DUMP NO PROGRAMA DE LIQUIDAÇÃO - PRÉ PAGTO (LINEAR SOBRE CAMBIAIS
07760 - 00002 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - MENSAGEM FALTA DATA DE PRORROGAÇÃO INCORRETA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO MENSAGEM FALTA DATA DE PRORROGAÇÃO INCORRETA
ACC
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
----------------------------------------------------------------------------------------------------
OBSERVAÇÃO - SE NÃO TIVER A NOTA PRECEDENTE 7760 NO AMBIENTE, IGNORAR O IF:
IF v_vinculacao IS INITIAL.
ENDIF.
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
v_dtaux = /pws/zycbt001-dtcontr.
WHEN 'C' OR ' '.
v_dtaux = /pws/zycbt001-dtcred.
ENDCASE.
IF v_dtpagto LT v_dtaux.
MESSAGE i011(pc) WITH text-026.
v_dtpagto = sy-datum.
CALL SCREEN '0100'.
ENDIF.
IF v_dtpagto > /pws/zycbt001-dtliquid.
* >> Início da inclusão: FORM VERIFICA_DTPAGTO
IF /pws/zycbe001-tpcontr(1) = 'S' OR
/pws/zycbe001-tpcontr(1) = 'P'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt003
WHERE nrseqc = /pws/zycbt001-nrseqc AND
tppror = 'P' AND
dtpror >= v_dtpagto.
IF sy-subrc NE 0.
IF ( /pws/zycbe005-tpcontr(1) = 'P' OR
/pws/zycbe005-tpcontr(1) = 'S' ) AND
/pws/zycbe001-ffrcalc = 'C' .
MESSAGE e011(pc) WITH text-202.
ENDIF.
IF v_vinculacao IS INITIAL.
MESSAGE i011(pc) WITH text-202.
* >> Início da inclusão: FORM VERIFICA_DTPAGTO
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycbt003
WHERE nrseqc = /pws/zycbt001-nrseqc AND
tppror = 'L' AND
dtpror >= v_dtpagto.
IF sy-subrc NE 0.
IF v_vinculacao IS INITIAL.
MESSAGE i011(pc) WITH text-201.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona_paga_documento.
PERFORM verifica_status_linha.
PERFORM verif_contas.
IF v_cta_bloq EQ 'S'.
EXIT.
ENDIF.
...