Sintoma

Ao emitir Nfe o sistema esta preenchendo o campo NFNUM na J1B1N com "00000"

Solução

Atualizado programa para na função de BatchInput de NFE enviar somente o campo NFNUM quando não for

"0000"

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 13582 Data: 15/01/2014 Hora: 11:21:04

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 13582

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00169

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

08713  - 00001 - 7.0    - 00010  - AO CRIAR NF ELETRÔNICA TENTA LANÇAR CAMPO NFNUM SEM VERIFICAR SE

08720  - 00002 - 7.0    - 00010  - VERIFICA CAMPO NFENUM PARA O BATCH INPUT

08723  - 00003 - 7.0    - 00010  - VERIFICA CAMPO NFENUM PARA O BATCH INPUT

13382  - 00004 - 9.0    - 00006  - ERRO AO TRATAR CAMPO OBRIGATÓRIO NA NF-E

----------------------------------------------------------------------------------------------------

NF ERRO PREENCHIMENTO NFENUM COM ZEROS

----------------------------------------------------------------------------------------------------

Palavras Chave:

NF - NOTA FISCA - NFENUM - ZERO

----------------------------------------------------------------------------------------------------

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

REPS /PWS/LZYCIGF2F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

...

          PERFORM bdc_campo USING:

                 'J_1BDYDOC-SERIES'        t_dados-series.

        ENDIF.

        IF NOT t_dados-subser IS INITIAL.

          PERFORM bdc_campo USING:

                 'J_1BDYDOC-SUBSER'        t_dados-subser.

        ENDIF.

        PERFORM bdc_campo USING:

               'J_1BDYDOC-DOCDAT'        v_data_doc,

               'J_1BDYDOC-PSTDAT'        v_data_pst.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

        IF NOT t_dados-nfnum IS INITIAL.

* << Fim da inclusão

        PERFORM bdc_campo USING:

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

                  'J_1BDYDOC-NFENUM'         t_dados-nfnum,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

            'J_1BDYDOC-NFENUM'         t_dados-nfnum.

        ENDIF.

        PERFORM bdc_campo USING:

* << Fim da inclusão

                    'BDC_OKCODE'              '=TAB5'.

...

...

               'J_1BDYLIN-NETINS'        v_netins,

               'J_1BDYLIN-NETFRE'        v_netfre,

               'J_1BDYLIN-NETOTH'        v_netoth,

               'J_1BDYLIN-BWTAR'         t_itens-bwtar,

               'J_1BDYLIN-CFOP'          t_itens-cfop,

               'J_1BDYLIN-TAXLW1'        t_itens-taxlw1,

               'J_1BDYLIN-TAXLW2'        t_itens-taxlw2,

               'J_1BDYLIN-NBM'           t_itens-nbm,

               'J_1BDYLIN-MATORG'    t_itens-matorg.

        IF v_nfe = 'X'.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

          IF NOT t_dados-nfnum IS INITIAL.

* << Fim da inclusão

          PERFORM bdc_campo  USING:

               'J_1BDYDOC-NFENUM'         t_dados-nfnum.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

          ENDIF.

* << Fim da inclusão

        ELSE.

          MOVE t_dados-nfnum TO v_nfnum.

          PERFORM bdc_campo  USING:

               'J_1BDYDOC-NFNUM'         v_nfnum.

        ENDIF.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/LZYCIGF2F01

...

          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 exclusão: FORM TRATA_CAMPO_OBRIGATORIO

  IF v_string+77(1) = '+'.

* << Fim da exclusão

* >> Início da inclusão: FORM TRATA_CAMPO_OBRIGATORIO

  IF v_string+76(1) = '+'.

* << Fim da inclusão

    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.

        CLEAR: itab_bdc. REFRESH: itab_bdc.

        RAISE campo_em_branco.

...