CE PLUS - Nota 007637
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 25/11/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:56:33
Descrição da Nota: EXIT PARA ATUALIZAÇÃO DE DADOS DE RECEBIMENTO QUANDO FOR NF ELETRÔNICA
Sintoma
Exit para atualização de dados de recebimento quando for NF eletrônica
Solução
criada chamada de exit RCB019
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07637 Data: 25/11/2008 Hora: 14:04:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07637
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00075
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07530 - 00001 - 7.0 - 00007 - AJUSTE PARA NÃO TENTAR ATUALIZAR DATA DA NOTA FISCAL ELETRÔNICA.
----------------------------------------------------------------------------------------------------
EXIT PARA ATUALIZAÇÃO DE DADOS DE RECEBIMENTO QUANDO FOR NF ELETRÔNICA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - ZYGLT100 - NFE - NF ELETRÔNICA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
IF v_mb01_ok EQ 'S'.
v_sdep = 'X'.
PERFORM trata_f_51.
IF v_f_51_ok EQ 'S'.
PERFORM congelamov_saldo_ato.
IF v_flagnfe EQ 'X'.
* >> Início da inclusão: FORM EXECUTA_RECEBIMENTO
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB019'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'RCB019' 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
CLEAR wa_global.
SELECT SINGLE * FROM /pws/zycit041
INTO wa_global
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
AND docnum = wa_nf-docnumnfg
AND cancel EQ space.
IF v_existe_nfr EQ 'S'.
...