CE PLUS - Nota 011517
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 05/10/2011 00:00:00
Data/Hora Última Alteração: 06/10/2011 10:52:00
Descrição da Nota: NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO NA FATURA
Sintoma
Necessário desenvolvimento específico na fatura
Solução
Criada chamada de exit FAT019 no perform rotina_de_contabilizacao, antes da f-02/f-43
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11517 Data: 05/10/2011 Hora: 10:09:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11517
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00088
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO NA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ZYGLT100 - EXIT - DESENVOLVIMENTO ESPECÍFICO - FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
IF /pws/zycie006-tpfatura EQ '02' OR
/pws/zycie006-tpfatura EQ '03' OR
/pws/zycie006-tpfatura EQ '04'.
PERFORM visualiza_rateio.
ELSE.
v_resp = 'S'.
ENDIF.
IF v_resp EQ 'S'.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI003'
'FAT019'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'FAT019' 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 = 0 .
* << Fim da inclusão
IF /pws/zycie006-frpagto NE 'A'.
IF /pws/zycie006-frpagto EQ 'N' OR
/pws/zycie006-frpagto EQ 'D' OR
( /pws/zycie006-frpagto EQ 'P' AND NOT v_di IS INITIAL ).
IF wa_zycie006_ini-dtincl NE /pws/zycie006-dtincl OR
wa_zycie006_ini-tpfatura NE /pws/zycie006-tpfatura OR
wa_zycie006_ini-frpagto NE /pws/zycie006-frpagto OR
wa_zycie006_ini-waers NE /pws/zycie006-waers OR
wa_zycie006_ini-vltotal NE /pws/zycie006-vltotal OR
wa_zycie006_ini-vlmerc NE /pws/zycie006-vlmerc OR
...
...
ENDIF.
ELSE.
MESSAGE i015 WITH text-169.
ENDIF.
ELSE.
MESSAGE i015 WITH text-135.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
ENDIF.
* << Fim da inclusão
IF NOT itab_zycit132[] IS INITIAL AND
/pws/zycie006-frpagto = 'P'.
v_parcela = 'X'.
ENDIF.
CLEAR v_estorno.
...