CE PLUS - Nota 008253
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 27/03/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:42:33
Descrição da Nota: ABERTURA DE PONTO DE EXIT NA NOTA FISCAL DE REMESSA AO CRIAR A NFR
Sintoma
Abertura de ponto de exit ao criar a nota fiscal de remessa
Solução
Abertura de ponto de exit ao criar a nota fiscal de remessa
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08253 Data: 27/03/2009 Hora: 16:42:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08253
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00091
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ABERTURA DE PONTO DE EXIT NA NOTA FISCAL DE REMESSA AO CRIAR A NFR
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - NOTA - FISCAL - REMESSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
v_status_s_nfr = 0.
CALL SCREEN '0200'.
ELSE.
MESSAGE s015 WITH text-013.
ENDIF.
WHEN 'NFR'.
MOVE /pws/zycie043a TO /pws/zycie043.
PERFORM find_nrseqc_nfr.
v_status_s_nfr = 1.
PERFORM seleciona_itens_nfr.
* >> Início da inclusão: MODULE USER_COMMAND_0002
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'NFR003'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'NFR003' 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
IF NOT itab_zycit044[] IS INITIAL.
CALL SCREEN '0200'.
ELSE.
MESSAGE i029.
ENDIF.
WHEN 'POSI'.
CALL SELECTION-SCREEN '0202' STARTING AT 01 01.
WHEN 'ACEND'.
CLEAR: v_coluna.
LOOP AT tc_lista_nfr-cols INTO wa_cols WHERE selected EQ 'X'.
...