CE PLUS - Nota 010162
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 18/05/2010 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:35:40
Descrição da Nota: CRIADA EXIT PRT015
Sintoma
Criada exit PRT015
Solução
Criada exit PRT015
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10162 Data: 18/05/2010 Hora: 15:40:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10162
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
10161 - 00001 - DESENVOLVIMENTO DA PRESTAÇÃO DE CONTAS PARA AMÉRICA LATINA.
----------------------------------------------------------------------------------------------------
CRIADA EXIT PRT015
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - PRT015 - PRESTAÇÃO - CONTAS
/PWS/SAPMZYCI004
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI004F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI004F01
...
ENDLOOP.
wa_headerdata-gross_amount = wa_headerdata-gross_amount +
v_gross_amount.
ENDIF.
CLEAR: itab_account.
ADD 1 TO itab_glaccount-invoice_doc_item.
MODIFY itab_glaccount TRANSPORTING invoice_doc_item
WHERE invoice_doc_item NE itab_glaccount-invoice_doc_item.
wa_headerdata-gross_amount = wa_headerdata-gross_amount +
itab_retorno-hwste.
* >> Início da inclusão: FORM MIRO
e_subrc = '0' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI004'
'PRT015'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'PRT015' 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 e_subrc EQ '0'.
* << Fim da inclusão
PERFORM miro_dinamica.
* >> Início da inclusão: FORM MIRO
ELSEIF e_subrc EQ '8'.
EXIT.
ENDIF.
* << Fim da inclusão
IF NOT v_belnr_mr1m IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
MESSAGE i010 WITH v_belnr_mr1m.
CLEAR: v_awkey.
CONCATENATE v_belnr_mr1m v_gjahr INTO v_awkey.
SELECT SINGLE belnr FROM bkpf INTO v_doc_miro
WHERE awtyp EQ 'RMRP'
...