CE PLUS - Nota 008013

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 05/02/2009 00:00:00

Data/Hora Última Alteração: 09/03/2010 16:27:44

Descrição da Nota: DUMP AO CRIAR NOTA FISCAL ELETRÔNICA

Sintoma

 

Ao criar a Nota Fiscal Eletrônica o programa causa um Dump

 

Solução

 

Na verificação de Nota Fiscal Eletrônica passar o SQL Dinâmico concatenando os valores.

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 08013 Data: 05/02/2009 Hora: 15:56:41

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

 

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

Nota Número              : 08013

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00084

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

DUMP AO CRIAR NOTA FISCAL ELETRÔNICA

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

Palavras Chave:

NOTA - FISCAL - ELETRÔNICA DUMP - NFE

 

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

 

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

 

...

                                           t_campos

                                           itab_oculto

                                    USING  v_string.

    CLEAR v_nfe.

    SELECT SINGLE * FROM dd03l

      WHERE tabname = 'J_1BAA' AND

            fieldname = 'NFE'.

    IF sy-subrc = 0.

      CLEAR t_where.

      REFRESH t_where.

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

      t_where = 'nftype = t_dados-nftype and nfe = C_X.'.   "#EC NOTEXT

* << Fim da exclusão

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

      CONCATENATE ' NFTYPE = ' '''' t_dados-nftype '''' INTO t_where.

      APPEND t_where.

      CONCATENATE '  AND NFE = ' '''' c_x '''' INTO t_where.

* << Fim da inclusão

      APPEND t_where.

      SELECT SINGLE * FROM j_1baa

      WHERE (t_where).

      IF sy-subrc = 0.

        v_nfe = 'X'.

      ENDIF.

    ENDIF.

    WRITE: t_dados-bukrs    TO  v_bukrs,

           t_dados-docdat   TO  v_data_doc,

           t_dados-pstdat   TO  v_data_pst,

...