CE PLUS - Nota 008720

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.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

TRATAMENTO PARA O NÚMERO DA NOTA FISCAL FECHADO PARA EDIÇÃO

AO CRIAR NF ELETRÔNICA TENTA LANÇAR CAMPO NFNUM SEM VERIFICAR SE EXISTE.

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