CE PLUS - Nota 008449
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 26/05/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:59:53
Descrição da Nota: CRIADA EXIT NFR004
Sintoma
Criada exit NFR004
Solução
Criada exit NFR004
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08449 Data: 26/05/2009 Hora: 15:53:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08449
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CRIADA EXIT NFR004
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - REMESSA - EXIT - NFR004
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016TOP
REPS /PWS/MZYCI016X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM nfiscal_remessa.
* >> Início da inclusão: FORM NFISCAL_REMESSA
e_subrc = '0'.
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'NFR004'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'NFR004' BINARY SEARCH.
IF sy-subrc EQ 0 AND
NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND .
ENDIF.
IF e_subrc NE '0'.
EXIT.
ENDIF.
* << Fim da inclusão
MOVE:
/pws/zycie041-embarca TO /pws/zycie043-embarca,
/pws/zycie041-nrseq TO /pws/zycie043-nrseq,
/pws/zycie041-bukrs TO /pws/zycie043-bukrs,
/pws/zycie041-werks TO /pws/zycie043-werks,
/pws/zycie041-nrdi TO /pws/zycie043-nrdi,
/pws/zycie041-nfglobal TO /pws/zycie043-nfglobal,
/pws/zycie041-nfexterna TO /pws/zycie043-nfexterna,
/pws/zycie041-j_1bbranch TO /pws/zycie043-j_1bbranch,
v_valor TO /pws/zycie043-docnumnfg,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016TOP
...
* >> Início da exclusão:
v_valor LIKE /pws/zycie042-docnum,
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
* >> Início da inclusão:
DATA: v_valor TYPE /pws/zycie042-docnum.
* << Fim da inclusão
DATA: END OF COMMON PART a.