CE PLUS - Nota 008077
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 18/02/2009 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:11:03
Descrição da Nota: CRIADA EXIT FAT014
Sintoma
Criada EXIT FAT014
Solução
Criada EXIT FAT014
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08077 Data: 18/02/2009 Hora: 14:05:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08077
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00086
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CRIADA EXIT FAT014
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - FAT014 - FATURA - SALVAR - DADOS
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
FORM salvar_dados.
DATA :v_tot_fat2 LIKE /pws/zycie006-vltotal,
v_salva_desp.
DATA: itab_zycit483s TYPE /pws/zycit483 OCCURS 0.
* >> Início da inclusão: FORM SALVAR_DADOS
e_subrc = '0' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI003'
'FAT014'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'FAT014' BINARY SEARCH.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
IF e_subrc EQ '8'.
EXIT.
ENDIF.
* << Fim da inclusão
CLEAR v_stop.
IF /pws/zycie006-tpfatura NE '11' AND
( /pws/zycie006-tpfatura NE '04' AND /pws/zycie006-vinserv EQ 'X' ).
IF /pws/zycie006-nrseqce IS INITIAL.
MESSAGE i015 WITH text-075.
v_stop = 'X'.
ENDIF.
ENDIF.
MOVE /pws/zycie006-vltotal TO v_tot_fat2.
PERFORM retorna_decimais USING /pws/zycie006-waers
...