CE PLUS - Nota 004936
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 08/10/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 17:25:14
Descrição da Nota: VINCULAÇÃO - ESTORNO DE VINCULAÇÃO COM DATA POSTERIOR A ATUAL.
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
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04936 Data: 08/10/2007 Hora: 15:57:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04936
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00017
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - ESTORNO DE VINCULAÇÃO COM DATA POSTERIOR A ATUAL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - ESTORNO DE VINCULAÇÃO COM DATA POSTERIOR A ATUAL.
----------------------------------------------------------------------------------------------------
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 inclusão: FORM DOCUMENTOS_PRINCIPAL
IF /pws/zycbe001-dtvincul IS INITIAL.
* << Fim da inclusã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.
ELSE.
ASSIGN <fs_zycbt002>-dtcont TO <fs_dtdocto>.
* >> Início da inclusão: FORM DOCUMENTOS_PRINCIPAL
ENDIF.
ELSE.
ASSIGN /pws/zycbe001-dtvincul TO <fs_dtdocto>.
* << Fim da inclusão
ENDIF.
PERFORM adiciona_documentos
USING
/pws/zycbe001-bukrs
<fs_belnr>
<fs_dtdocto>
'H'.
ENDLOOP.
ENDFORM.
FORM documento_fatura
...