CE PLUS - Nota 006345
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 08/04/2008 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:02:19
Descrição da Nota: EXIT DE MÚLTIPLOS LANÇAMENTOS NA FATURA.
Sintoma
EXIT DE MÚLTIPLOS LANÇAMENTOS NA FATURA.
Solução
Para a exit da F-51 da Miro, perform fill_date_f_51_docs_miro, utilizar exit FAT008 com variável
e_estorno = 'F51MIRO' e devolvendo a variável v_subrc preenchida.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06345 Data: 08/04/2008 Hora: 12:04:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06345
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00042
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EXIT DE MÚLTIPLOS LANÇAMENTOS NA FATURA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - ZYGLT100 - MÚLTIPLOS LANÇAMENTOS - FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
FORM fill_date_f-43_f-02.
* >> Início da exclusão: FORM FILL_DATE_F-43_F-02
DATA:
v_ukurs LIKE /pws/zycit085-ukursfob.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
DATA: v_ukurs LIKE /pws/zycit085-ukursfob.
* << Fim da inclusão
DATA: v_de LIKE tcurf-ffact,
v_para LIKE tcurf-tfact.
* >> Início da exclusão: FORM FILL_DATE_F-43_F-02
IF v_subrc IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
e_subrc = '0' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI003'
'FAT013'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'FAT013' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
v_ml = 'F43'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ '0'.
* << Fim da inclusão
PERFORM multiplos_lancamentos.
ENDIF.
PERFORM get_parameters_f-43_f-02.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = '/PWS/ZYCIT006'.
IF v_parcela = 'X'.
itab_zycbe033-tabela = '/PWS/ZYCIT132'.
ELSE.
itab_zycbe033-tabela = '/PWS/ZYCIT006'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
FORM fill_date_f_51.
CLEAR v_sede.
* >> Início da exclusão: FORM FILL_DATE_F_51
IF v_subrc IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51
e_subrc = '0' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI003'
'FAT013'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'FAT013' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
v_ml = 'F51'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ '0'.
* << Fim da inclusão
PERFORM multiplos_lancamentos_f_51.
ENDIF.
PERFORM get_parameters_f-51.
READ TABLE itab_zycit003 INDEX 1.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = '/PWS/ZYCIT006'.
itab_zycbe033-cpochv = /pws/zycie006-nrseq.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
...
...
READ TABLE itab_zyglt100 WITH KEY
zexit = 'FAT008' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
e_estorno = 'F51MIRO'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc EQ '0'.
* >> Início da inclusão: FORM FILL_DATE_F_51_DOCS_MIRO
IF v_subrc IS INITIAL.
* << Fim da inclusão
PERFORM clear_date_batch.
* >> Início da exclusão: FORM FILL_DATE_F_51_DOCS_MIRO
IF v_subrc IS INITIAL.
* << Fim da exclusão
PERFORM multiplos_lancamentos_f_51.
ENDIF.
PERFORM get_parameters_f-51.
SELECT SINGLE * FROM rbkp WHERE belnr = /pws/zycie006-belnr_mr1m
AND gjahr = /pws/zycie006-dt_mr1m(4).
v_belnr_miro = rbkp-stblg.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
* >> Início da inclusão:
datA: v_ml(5).
* << Fim da inclusão
DATA: END OF COMMON PART.