Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Função
Data/Hora da Publicação: 23/07/2009 00:00:00
Data/Hora Última Alteração: 20/06/2011 11:57:44
Descrição da Nota: VERIFICA CAMPO NFENUM PARA O BATCH INPUT
Sintoma
Verifica se o campo NFENUM está disponivel para preenchimento pelo batch input da transação J1B1N.
Solução
Verifica se o campo NFENUM está disponivel para preenchimento pelo batch input da transação J1B1N.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08720 Data: 23/07/2009 Hora: 13:52:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08720
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00106
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07385 - 00001 - 7.0 - 00007 - TRATAMENTO PARA O NÚMERO DA NOTA FISCAL FECHADO PARA EDIÇÃO
08713 - 00002 - 7.0 - 00010 - AO CRIAR NF ELETRÔNICA TENTA LANÇAR CAMPO NFNUM SEM VERIFICAR SE
----------------------------------------------------------------------------------------------------
VERIFICA CAMPO NFENUM PARA O BATCH INPUT
----------------------------------------------------------------------------------------------------
Palavras Chave:
J1B1N - BATCH - INPUT - CAMPO - NFENUM
/PWS/ZYCI_TRANSACAO_J1B1N
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCIGF2F01
REPT /PWS/SAPLZYCIGF2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF2F01
...
p_itab_oculto-campo = 'J_1BDYDOC-PARVW'.
APPEND p_itab_oculto.
ENDIF.
IF v_string+3(1) = '+'.
IF p_t_dados-nfnum = space.
CLEAR p_t_campos.
READ TABLE p_t_campos WITH KEY campo = 'J_1BDYDOC-NFNUM'.
IF sy-subrc <> 0.
p_t_campos-mandt = p_t_dados-mandt.
p_t_campos-campo = 'J_1BDYDOC-NFNUM'.
* >> Início da exclusão: FORM TRATA_CAMPO_OBRIGATORIO
p_t_campos-descricao = text-002.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_CAMPO_OBRIGATORIO
p_t_campos-descricao = text-057.
* << Fim da inclusão
APPEND p_t_campos.
RAISE campo_em_branco.
ELSE.
IF ( p_t_campos-conteudo = space ).
RAISE campo_em_branco.
ELSE.
MOVE p_t_campos-conteudo TO p_t_dados-nfnum.
MODIFY p_t_dados TRANSPORTING nfnum.
DELETE p_t_campos INDEX sy-tabix.
CLEAR p_t_campos.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+3(1) NE '.'.
p_itab_oculto-campo = 'J_1BDYDOC-NFNUM'.
APPEND p_itab_oculto.
ENDIF.
* >> Início da inclusão: FORM TRATA_CAMPO_OBRIGATORIO
IF v_string+77(1) = '+'.
IF p_t_dados-nfnum = space.
CLEAR p_t_campos.
READ TABLE p_t_campos WITH KEY campo = 'J_1BDYDOC-NFENUM'.
IF sy-subrc <> 0.
p_t_campos-mandt = p_t_dados-mandt.
p_t_campos-campo = 'J_1BDYDOC-NFENUM'.
p_t_campos-descricao = text-057.
APPEND p_t_campos.
RAISE campo_em_branco.
ELSE.
IF ( p_t_campos-conteudo = space ).
RAISE campo_em_branco.
ELSE.
MOVE p_t_campos-conteudo TO p_t_dados-nfnum.
MODIFY p_t_dados TRANSPORTING nfnum.
DELETE p_t_campos INDEX sy-tabix.
CLEAR p_t_campos.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+77(1) NE '.'.
p_itab_oculto-campo = 'J_1BDYDOC-NFENUM'.
APPEND p_itab_oculto.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCIGF2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 057
Texto: (30 caracteres)
"Informar número da nota fiscal"
Comprimento máximo: 50