CE PLUS - Nota 005049
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 22/10/2007 00:00:00
Data/Hora Última Alteração: 21/02/2011 10:55:06
Descrição da Nota: VINCULAÇÃO - VERIFICAÇÃO DE DOCUMENTOS COMPENSADOS
Sintoma
O programa esta mostrando mensagem que o documento esta compensado e não está.
Solução
Alterada a maneira que o programa busca a data do documento.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05049 Data: 22/10/2007 Hora: 19:55:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05049
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00018
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04936 - 00001 - 7.0 - 00003 - VINCULAÇÃO - ESTORNO DE VINCULAÇÃO COM DATA POSTERIOR A ATUAL.
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - VERIFICAÇÃO DE DOCUMENTOS COMPENSADOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - VERIFICAÇÃO DE DOCS COMPENSADOS EXERC.FUTURO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F04
...
WHERE slvinc GT 0.
IF v_valor_vinculado LE 0.
EXIT.
ENDIF.
v_valor_vinculado = v_valor_vinculado - <fs_zycbt002>-slvinc.
IF <fs_zycbt002>-belnr2 IS INITIAL.
ASSIGN <fs_zycbt002>-belnr TO <fs_belnr>.
ELSE.
ASSIGN <fs_zycbt002>-belnr2 TO <fs_belnr>.
ENDIF.
* >> Início da exclusão: FORM DOCUMENTOS_PRINCIPAL
IF /pws/zycbe001-dtvincul IS INITIAL.
* << Fim da exclusão
IF <fs_zycbt002>-dtcont IS INITIAL.
CASE /pws/zycbe001-fdtlanc.
WHEN 'D'.
ASSIGN /pws/zycbe001-dtdesem TO <fs_dtdocto>.
WHEN 'O'.
ASSIGN /pws/zycbe001-dtcontr TO <fs_dtdocto>.
WHEN OTHERS.
ASSIGN /pws/zycbe001-dtcred TO <fs_dtdocto>.
ENDCASE.
* >> Início da inclusão: FORM DOCUMENTOS_PRINCIPAL
CASE /pws/zycbe001-tpcontr(1).
WHEN 'P' OR 'S'.
IF NOT <fs_zycbt002>-dtvincul IS INITIAL.
UNASSIGN <fs_dtdocto>.
ASSIGN <fs_zycbt002>-dtvincul TO <fs_dtdocto>.
ENDIF.
WHEN OTHERS.
IF NOT /pws/zycbe001-dtvincul IS INITIAL.
UNASSIGN <fs_dtdocto>.
ASSIGN /pws/zycbe001-dtvincul TO <fs_dtdocto>.
ENDIF.
ENDCASE.
* << Fim da inclusão
ELSE.
ASSIGN <fs_zycbt002>-dtcont TO <fs_dtdocto>.
* >> Início da exclusão: FORM DOCUMENTOS_PRINCIPAL
ENDIF.
ELSE.
ASSIGN /pws/zycbe001-dtvincul TO <fs_dtdocto>.
* << Fim da exclusão
ENDIF.
PERFORM adiciona_documentos
USING
...