CE PLUS - Nota 008374
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Frete Nacional
Data/Hora da Publicação: 06/05/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:43:53
Descrição da Nota: DUMP AO CRIAR FRETE NACIONAL COM NFE NOTA FISCAL ELETRONICA
Sintoma
Ao criar a Frete Nacional para parâmetros de Nota Fiscal Eletrônica o programa causa Dump
Solução
Na verificação do Frete Nacional com Nota Fiscal Eletrônica, passar o SQL Dinâmico concatenando os
valores.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08374 Data: 06/05/2009 Hora: 15:45:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08374
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00097
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DUMP AO CRIAR FRETE NACIONAL COM NFE NOTA FISCAL ELETRONICA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FRETE - NACIONAL - NFE - NOTA - FISCAL - ELETRONICA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI061F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI061F01
...
CLEAR v_bukrs.
GET PARAMETER ID 'BUK' FIELD v_bukrs.
READ TABLE itab_zycit415 INDEX 1.
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: FORM AJUSTA_MIRO
t_where = 'nftype = /pws/zycit048-tiponf and nfe = C_X.'."#EC NOTEXT
* << Fim da exclusão
* >> Início da inclusão: FORM AJUSTA_MIRO
CONCATENATE ' NFTYPE = ' '''' /pws/zycit048-tiponf '''' 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.
IF v_nfe = 'X'.
CONCATENATE itab_zycit415-nfnum '-' itab_zycit415-series
INTO v_nfserie.
...