CE PLUS - Nota 000646
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 12/01/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:47:48
Descrição da Nota: TRATAMENTO DE SBU NO ESTORNO DA LIQUIDAÇÃO PELA EXIT LIQ016
Sintoma
Da mesma forma que foi aberto EXIT para tratamento de SBU na vinculação (Estorno), vou precisar de
uma EXIT ao realizar o estorno da uma fatura na liquidação. Este ponto deverá ser no momento em que
o estorno foi realizado com sucesso, ou seja, no momento em que o documento contábil foi criados
corretamente, para que eu posso atualizar ou excluir o registro de SBU.
Solução
Inserido a exit LIQ016 no estorno da liquidação.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00646 Data: 12/01/2006 Hora: 14:32:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00646
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00096
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
TRATAMENTO DE SBU NO ESTORNO DA LIQUIDAÇÃO PELA EXIT LIQ016
----------------------------------------------------------------------------------------------------
Palavras Chave:
SBU LIQUIDAÇÃO EXIT LIQ016 ESTORNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB004I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
p_valor_aj = p_valor / 100.
ELSE.
p_valor_aj = p_valor * 100.
ENDIF.
ENDFORM.
* >> Início da inclusão:
* CHAMADO 281159 - 11/01/2006 - INICIO
* --------------------------------------------------------------------
* Form executa_exit_p
* --------------------------------------------------------------------
* Objetivo: Executar uma Exit do Embarque, verificando as consistên-
* : cias para a chamada da mesma.
* --------------------------------------------------------------------
* Parâmetros: ( --> Entrada ) ( <-- Saída ) ( <T> Tabelas )
* --------------------------------------------------------------------
* --> p_exit => nome da Exit a ser chamada
* <-- <nenhum>
* <T> <nenhum>
* --------------------------------------------------------------------
* Chamado Data Descrição
* --------------------------------------------------------------------
* 281159 11/01/2006 Codificação Inicial
* --------------------------------------------------------------------
FORM executa_exit_p
USING value(p_exit) LIKE /pws/zyglt100-zexit.
CONSTANTS:
c_nome_prog LIKE /PWS/ZYGLT100-FUNC VALUE '/PWS/SAPMZYCB009'.
IF itab_zyglt100[] IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'E'
i_func = c_nome_prog
TABLES
itab_zyglt100 = itab_zyglt100.
ENDIF.
CLEAR itab_zyglt100.
READ TABLE itab_zyglt100 WITH KEY zexit = p_exit.
CHECK:
sy-subrc EQ 0,
itab_zyglt100-zexit_ativa EQ 'X',
NOT itab_zyglt100-formulario IS INITIAL,
NOT itab_zyglt100-programa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004I01
MODULE user_command_0100 INPUT.
...
IF v_exit EQ 'S'.
v_exit = 'N'.
EXIT.
ENDIF.
PERFORM grava_tabelas.
* >> Início da inclusão: MODULE USER_COMMAND_0100
PERFORM executa_exit_p USING 'LIQ016'.
* << Fim da inclusão
CLEAR v_modo_bi.
v_status_s = '0'.
v_trans = '3'.
WHEN 'DELE'.
IF /pws/zycbe001-f_encerrado NE ' ' AND
...
ENDMODULE. " USER_COMMAND_0100 INPUT
ENDMODULE. " USER_COMMAND_0100 INPUT