CE PLUS - Nota 008713

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 22/07/2009 00:00:00

Data/Hora Última Alteração: 23/02/2011 09:17:14

Descrição da Nota: AO CRIAR NF ELETRÔNICA TENTA LANÇAR CAMPO NFNUM SEM VERIFICAR SE EXISTE.

Sintoma

Ao criar NF Eletrônica tenta lançar campo NFNUM e dá erro de batch input.

 

 

Solução

Verificar campo correto, se está oculto ou não antes do batch input.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

NÃO TENTAR PREENCHER SERIE E SUBSERIE QUANDO NÃO FOREM INFORMADOS.

NOTA FISCAL ELETRONICA.

Informações Complementares

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

Nota Número 08713 Data: 22/07/2009 Hora: 14:06:05

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

 

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

Nota Número              : 08713

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00106

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

Referência às notas relacionadas:

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

 

06807  - 00001 - 7.0    - 00006  - NOTA FISCAL ELETRONICA.

07514  - 00002 - 7.0    - 00007  - NÃO TENTAR PREENCHER SERIE E SUBSERIE QUANDO NÃO FOREM INFORMADOS

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

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

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

Palavras Chave:

NFE - NF ELETRÔNICA - NFNUM - NFENUM - ERRO DE BATCH INPUT

 

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

 

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

 

...

             'J_1BDYLIN-INCLTX'        'X',

             'BDC_OKCODE'              '/00'.

    ENDIF.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    IF NOT t_dados-observat IS INITIAL.

      PERFORM bdc_campo USING 'J_1BDYDOC-OBSERVAT'   t_dados-observat.

    ENDIF.

    IF NOT t_dados-docref IS INITIAL.

      PERFORM bdc_campo USING 'J_1BDYDOC-DOCREF'    t_dados-docref.

    ENDIF.

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

    IF v_nfe = 'X'.

* << Fim da inclusão

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

    READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.

* << Fim da exclusão

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

      READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFENUM'.

* << Fim da inclusão

    IF sy-subrc <> 0 AND v_refer NE '0004'.

      IF NOT t_dados-series IS INITIAL.

        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 exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

      IF v_nfe = 'X'.

* << Fim da exclusão

        PERFORM bdc_campo USING:

                  'J_1BDYDOC-NFENUM'         t_dados-nfnum,

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

                    'BDC_OKCODE'              '=TAB5'.

      ELSE.

        PERFORM bdc_campo  USING:

               'J_1BDYDOC-DOCDAT'        v_data_doc,

               'J_1BDYDOC-PSTDAT'        v_data_pst,

* << Fim da inclusão

                    'BDC_OKCODE'              '=TAB5'.

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

      ENDIF.

* << Fim da inclusão

      ELSE.

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

      READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.

      IF sy-subrc <> 0 AND v_refer NE '0004'.

        IF NOT t_dados-series IS INITIAL.

          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.

* << Fim da inclusão

        MOVE t_dados-nfnum TO v_nfnum.

        PERFORM bdc_campo USING:

                  'J_1BDYDOC-NFNUM'         v_nfnum,

                    'BDC_OKCODE'              '=TAB5'.

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

      ENDIF.

* << Fim da exclusão

    ELSE.

      PERFORM bdc_campo  USING:

             'J_1BDYDOC-DOCDAT'        v_data_doc,

             'J_1BDYDOC-PSTDAT'        v_data_pst,

             'BDC_OKCODE'              '=TAB5'.

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

      ENDIF.

* << Fim da inclusão

    ENDIF.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    PERFORM bdc_campo USING: 'J_1BDYDOC-TRATY' t_dados-traty,

                             'J_1BDYDOC-SHPMRK' t_dados-shpmrk,

                             'J_1BDYDOC-ANZPK' t_dados-quant,

                             'J_1BDYDOC-SHPUNT' t_dados-SHPUNT.

    IF NOT t_dados-vstel IS INITIAL.

      PERFORM bdc_campo USING:

                      'J_1BDYDOC-VSTEL'       t_dados-vstel.

    ENDIF.

...