CE PLUS - Nota 004937
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 08/10/2007 00:00:00
Data/Hora Última Alteração: 03/02/2010 16:57:02
Descrição da Nota: NECESSÁRIO EXIT PARA CÁLCULO DE VALOR REALIZADO NA FATURA
Sintoma
NECESSÁRIO EXIT PARA CÁLCULO DE VALOR REALIZADO NA FATURA.
Solução
criada a exit FAT011 no perform atualizando_total da fatura.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04937 Data: 08/10/2007 Hora: 16:16:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04937
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00016
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NECESSÁRIO EXIT PARA CÁLCULO DE VALOR REALIZADO NA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - FATURA - VALOR REALIZADO - /PWS/ZYGLT100
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
itab_zycit003-total = ( itab_zycit003-toinv * itab_zycit003-vlreal )
+ itab_zycit003-vlfre_aux + itab_zycit003-vlseg_aux.
ENDIF.
v_tot_aux = v_tot_aux + itab_zycit003-total.
ELSE.
itab_zycit003-total = ( itab_zycit003-toinv * itab_zycit003-vlreal )
+ itab_zycit003-vlfre_aux + itab_zycit003-vlseg_aux.
ENDIF.
PERFORM trata_decimais USING itab_zycit003-waers
CHANGING itab_zycit003-total.
* >> Início da inclusão: FORM ATUALIZANDO_TOTAL
perform verifica_exit using 'D'
'/PWS/SAPMZYCI003'
'FAT011'.
clear itab_zyglt100 .
read table itab_zyglt100 with key zexit = 'FAT011' 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.
* << Fim da inclusão
ENDFORM.
FORM verifica_alteracoes.
CHECK sy-dynnr = '0100'.
IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).
LOOP AT itab_zycit003.
READ TABLE itab_zycit003_ini WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
MOVE: itab_zycit003-total TO itab_zycit003_ini-total,
itab_zycit003-livre TO itab_zycit003_ini-livre,
...