CE PLUS - Nota 001695
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 07/07/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:11:09
Descrição da Nota: INCLUSÃO DE EXIT NA VINCULAÇÃO
Sintoma
Apesar do programa não permitir a vinculação de uma fatura que não está em liquidação em andamento,
no caso de um câmbio pronto, ao sair da tela de vinculação o programa abre uma janela se deseja
gravar a vinculação. Ao clicar para salvar o programa salva mesmo se a fatura não está em liquidação
em andamento.
Solução
A exit foi adicionada ao programa.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01695 Data: 07/07/2006 Hora: 15:34:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01695
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00121
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
INCLUSÃO DE EXIT NA VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009I01
...
IMPORTING
answer = v_resposta
EXCEPTIONS
OTHERS = 1.
IF sy-subrc EQ 0 AND v_resposta EQ 'J'.
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
Data v_subrc00 like sy-subrc.
READ TABLE itab_zyglt100 WITH KEY
zexit = 'VNC002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING v_subrc00.
IF v_subrc00 NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
PERFORM grava_tabelas.
ENDIF.
IF v_resposta EQ 'A'.
EXIT.
ENDIF.
...