CE PLUS - Nota 005352
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 29/11/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:58:15
Descrição da Nota: CRIADA A EXIT RCB017 NO RECEBIMENTO
Sintoma
Necessário criação de exit para emissão de mensagem no recebimento.
Solução
criada a exit rcb017 no recebimento
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05352 Data: 29/11/2007 Hora: 11:02:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05352
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04435 - 00001 - 7.0 - 00002 - RECEBIMENTO - TEXTOS CONTÁBEIS
----------------------------------------------------------------------------------------------------
CRIADA A EXIT RCB017 NO RECEBIMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - RCB017 - RECEBIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
FORM reverse_document_mr8m.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_MR8M
e_estorno = 'MR8M'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_MR8M
e_estorno = 'MR8M'.
* << Fim da exclusão
EXPORT e_estorno TO MEMORY ID '007_28'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
IMPORT e_subrc FROM MEMORY ID '006_28'.
ENDIF.
ENDIF.
...
...
* >> Início da inclusão:
FORM popup_message USING p_textline1
p_titel.
v_msg = '0' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB017'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB017' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF v_msg EQ '0'.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = p_textline1
titel = p_titel
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
ENDIF.
ENDFORM. " POPUP_MESSAGE
* << Fim da inclusão
* >> Início da exclusão: FORM POPUP_MESSAGE
FORM popup_message USING value(p_textline1)
value(p_titel).
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = p_textline1
titel = p_titel
defaultoption = 'N'
textline1 = p_textline1
titel = p_titel
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM reverse_document_mbst.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_MBST
e_estorno = 'MBST'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_MBST
e_estorno = 'MBST'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM fill_date_f_51.
* >> Início da inclusão: FORM FILL_DATE_F_51
v_f02 = 'F51'.
* << Fim da inclusão
...
...
IF v_subrc NE 'X'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB007'.
* >> Início da exclusão: FORM FILL_DATE_F_51
v_f02 = 'F51'.
* << Fim da exclusão
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB007' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
FORM reverse_document_fbra.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBRA
e_estorno = 'FBRA'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBRA
e_estorno = 'FBRA'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM fill_date_j1b2.
* >> Início da inclusão: FORM FILL_DATE_J1B2
e_receb = 'J1B2'. .
* << Fim da inclusão
e_subrc = '0' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB013'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB013' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM FILL_DATE_J1B2
e_receb = 'J1B2'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM fill_date_f_02.
* >> Início da inclusão: FORM FILL_DATE_F_02
v_f02 = 'IMP'.
* << Fim da inclusão
...
...
IF itab_zycbt034[] IS INITIAL AND
NOT itab_contas[] IS INITIAL.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB007'.
e_subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F_02
v_f02 = 'IMP'.
* << Fim da exclusão
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB007' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
...
...
FORM reverse_document_fb08.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
e_estorno = 'FB08'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
e_estorno = 'FB08'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM fill_date_j1b2_global.
* >> Início da inclusão: FORM FILL_DATE_J1B2_GLOBAL
e_receb = 'J1B2G'.
* << Fim da inclusão
e_subrc = '0' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB013'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB013' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM FILL_DATE_J1B2_GLOBAL
e_receb = 'J1B2G'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM reverse_documento_contab_fbra.
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_CONTAB_FBRA
e_estorno = 'FBRACT'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_CONTAB_FBRA
e_estorno = 'FBRACT'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM reverse_documento_fatura_mr8m.
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
e_estorno = 'MR8MFA'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
e_estorno = 'MR8MFA'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM reverse_documento_fisico_fbra.
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_FISICO_FBRA
e_estorno = 'FBRAFI'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FISICO_FBRA
e_estorno = 'FBRAFI'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM reverse_documento_impos_fb08.
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
e_estorno = 'IMPOS'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
e_estorno = 'IMPOS'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM fill_date_f_02b.
* >> Início da inclusão: FORM FILL_DATE_F_02B
v_f02 = 'SEG'.
* << Fim da inclusão
...
...
IF itab_zycbt034[] IS INITIAL AND
NOT itab_contas[] IS INITIAL.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB007'.
e_subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F_02B
v_f02 = 'SEG'.
* << Fim da exclusão
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB007' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
...
...
FORM reverse_documento_provseg_fb08.
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_PROVSEG_FB08
e_estorno = 'SEGURO'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_PROVSEG_FB08
e_estorno = 'SEGURO'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM reverse_cocumento_contab_fb08.
* >> Início da inclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
e_estorno = 'FB08CT'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
e_estorno = 'FB08CT'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM fill_date_f_02fre.
* >> Início da inclusão: FORM FILL_DATE_F_02FRE
v_f02 = 'FRE'.
* << Fim da inclusão
...
...
IF itab_zycbt034[] IS INITIAL AND
NOT itab_contas[] IS INITIAL.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB007'.
e_subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F_02FRE
v_f02 = 'FRE'.
* << Fim da exclusão
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB007' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
...
...
FORM reverse_documento_provfre_fb08.
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_PROVFRE_FB08
e_estorno = 'FRETE'.
* << Fim da inclusão
...
...
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_PROVFRE_FB08
e_estorno = 'FRETE'.
* << Fim da exclusão
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
...
...
FORM fill_date_j1b3_saida.
* >> Início da inclusão: FORM FILL_DATE_J1B3_SAIDA
e_receb = 'J1B3'.
* << Fim da inclusão
...
...
FORM fill_date_f_51_variacao.
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
v_f51 = 'VAR'.
* << Fim da inclusão
...
...
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
e_subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
v_f51 = 'VAR'.
* << Fim da exclusão
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB001'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB001'.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
IF e_subrc EQ '8'.
EXIT.
...
...
FORM fill_date_f_51_docs_miro.
* >> Início da inclusão: FORM FILL_DATE_F_51_DOCS_MIRO
v_f51 = 'MIRO'.
* << Fim da inclusão
...
...
IF /pws/zycit000-clucro_ia = ' '.
CLEAR: itab_zycbt035-c_kostl,
itab_zycbt035-d_kostl.
ENDIF.
MODIFY itab_zycbt035.
ENDLOOP.
e_subrc = 0.
* >> Início da exclusão: FORM FILL_DATE_F_51_DOCS_MIRO
v_f51 = 'MIRO'.
* << Fim da exclusão
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB012'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB012' BINARY SEARCH.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
e_estorno = 'MIRO51'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017X01
...
* >> Início da inclusão:
DATA V_MSG.
* << Fim da inclusão
DATA: END OF COMMON PART.