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.
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,
...