CE PLUS - Nota 001124
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 31/03/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:30:32
Descrição da Nota: COMPLEMENTO DO BOLETO - ERRO AO EXECUTAR EXIT
Sintoma
Ao executar a exit CBI002, o programa não executava as contabilizações relativas aos boletos de
faturas de importação.
Solução
Foi criada uma variável de controle V_CBI002, que deve ser tratada pelo programa específico. Para
que sejam executadas as contabilizações padrões do produto após a execução do programa chamado pela
exit CBI002, a variável V_CBI002 deve possuir o valor 'X'.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01124 Data: 31/03/2006 Hora: 13:36:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01124
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00107
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - ERRO AO EXECUTAR EXIT
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO BOLETO EXIT CBI002
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
REPS /PWS/MZYGL110X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
READ TABLE itab_zyglt100 WITH KEY zexit = 'CBI002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
* >> Início da inclusão: FORM CONTABILIZA_IA
IF v_cbi002 EQ 'X'.
* << Fim da inclusão
EXIT.
* >> Início da inclusão: FORM CONTABILIZA_IA
ENDIF.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
READ TABLE itab_zyglt100 WITH KEY zexit = 'CBI002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
* >> Início da inclusão: FORM MARCA_EXCLUSAO
IF v_cbi002 EQ 'X'.
* << Fim da inclusão
EXIT.
* >> Início da inclusão: FORM MARCA_EXCLUSAO
ENDIF.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110X01
...
itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycbt034a LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycbt036 LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE,
itab_zycbe035 LIKE /pws/zycbe035 OCCURS 0 WITH HEADER LINE.
DATA: ok_code LIKE sy-ucomm,
* >> Início da exclusão:
w_ok LIKE ok_code.
* << Fim da exclusão
* >> Início da inclusão:
w_ok LIKE ok_code,
v_cbi002(1) type c.
* << Fim da inclusão
DATA: END OF COMMON PART.