CE PLUS - Nota 007836
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 24/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:43:53
Descrição da Nota: LIQUIDAÇÃO - PONTO DE EXIT LIQ030 - AJUSTE PONTO DE EXIT LIQ023
Sintoma
- No ponto de exit LIQ023 não esta verificando se a exit esta ativa, apenas se esta cadastrada. Esta
duplicado a chamada do ponto de exit.
- Criar ponto de exit que permita gerar uma nova contabilização no form baixa_cliente_performance.
Solução
Retirar duplicidade de chamada da exit LIQ023 e incluir verificação se a mesma esta ativa.
Incluir ponto de exit LIQ030.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07836 Data: 24/12/2008 Hora: 10:33:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07836
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00078
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03220 - 00001 - 6.0 - 00026 - CRIAÇÃO DAS EXIT¿S LIQ022 E LIQ023
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - PONTO DE EXIT LIQ030 - AJUSTE PONTO DE EXIT LIQ023
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO PONTO DE EXIT LIQ030 AJUSTE PONTO DE EXIT LIQ023
/PWS/ZYGLT100
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
i_func = v_rep
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ023'.
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
IF sy-subrc EQ 0
AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
* << Fim da inclusão
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ023'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da exclusão
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ030'.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_Q'
EXPORTING
v_modo = v_modo_bi
v_rateio = 'X'
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_partidas = itab_partidas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = 'ZYCBT006'
cpochv = itab_zycbe033-cpochv
tpmsg = 'S'.
IF sy-subrc EQ 0.
itab_zycbt006-belnr = itab_zycbt032-belnr.
MODIFY itab_zycbt006.
itab_contabil-nrinvoic = itab_zycbt006-nrinvoic.
itab_contabil-nrparcf = itab_zycbt006-nrparcf.
...