CE PLUS - Nota 004374
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 08/08/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:53:54
Descrição da Nota: EXIT NO RECEBIMENTO NO MOMENTO DA GRAVAÇÃO DOS DADOS DB
Sintoma
Abertura de exit no programa de Recebimento para tratativa dos dados do Drawback.
Solução
Abertura de exit no programa de Recebimento para tratativa dos dados do Drawback.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04374 Data: 08/08/2007 Hora: 16:11:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04374
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00007
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01981 - 00001 - 6.0 - 00024 - AJUSTE PARA TRATAR NOTAS FISCAIS DE REMESSA NO RECEBIMENTO VINC.
----------------------------------------------------------------------------------------------------
EXIT NO RECEBIMENTO NO MOMENTO DA GRAVAÇÃO DOS DADOS DB
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO DRAWBACK /PWS/ZYCIT279
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017TOP
REPS /PWS/MZYCI017X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
SELECT SINGLE * FROM /pws/zycit321.
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB015'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB015' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
...
...
DATA: v_tabix1 TYPE i.
CLEAR itab_zycit223. FREE itab_zycit223.
* >> Início da inclusão: FORM ESTORNA_SALDO_ATO
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB016'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB016' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017TOP
...
TABLES:
...
* >> Início da exclusão:
/pws/zycit321,
* << Fim da exclusão
...
...
* >> Início da exclusão:
/pws/zycit085,
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF itab_zycit100 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit100.
DATA: END OF itab_zycit100.
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF itab_zycit003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: total LIKE /pws/zycit003-vlreal.
DATA: END OF itab_zycit003.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017X01
...
* >> Início da inclusão:
tables:/pws/zycit085,
/pws/zycit321.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
...
...
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit100 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit100.
DATA: END OF itab_zycit100.
DATA: BEGIN OF itab_zycit003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: total LIKE /pws/zycit003-vlreal.
DATA: END OF itab_zycit003.
* << Fim da inclusão
DATA: end of common part.
...