CE PLUS - Nota 006651
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 30/05/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:16:35
Descrição da Nota: DUMP NO MOMENTO DE EMITIR A NOTA FISCAL, QUANDO AMBIENTE POSSUI NFE
Sintoma
DUMP no momento de emitir a nota fiscal, quando ambiente possui NFE standard
Solução
Foram corrigidas as seleções do numero da NFE, da Série e da Subsérie
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06651 Data: 30/05/2008 Hora: 09:16:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06651
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00049
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06573 - 00001 - 7.0 - 00005 - AJUSTES PARA ATENDER A GERAÇÃO DA NOTA FISCAL ELETRÔNICA VIA SAP
06619 - 00002 - 7.0 - 00005 - CODE INSPECTOR NAS CLASSES /PWS/ZYCI E /PWS/ZYCF
----------------------------------------------------------------------------------------------------
DUMP NO MOMENTO DE EMITIR A NOTA FISCAL, QUANDO AMBIENTE POSSUI NFE
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - NOTA FISCAL ELETRONICA - NFE
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_BUSCA_NFNUM
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_BUSCA_NFNUM
FUNCTION /pws/zyci_busca_nfnum.
TABLES: j_1bnfdoc.
DATA: t_fields(50) OCCURS 0 WITH HEADER LINE,
t_fields2(50) OCCURS 0 WITH HEADER LINE,
t_where(50) OCCURS 0 WITH HEADER LINE.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
CONSTANTS c_x VALUE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
CONSTANTS: c_x VALUE 'X'.
DATA c_nfenum(9).
* << Fim da inclusão
IF NOT docnum IS INITIAL.
CLEAR j_1bnfdoc.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum = docnum.
clear nfe.
SELECT SINGLE * FROM dd03l
WHERE tabname = 'J_1BNFDOC' AND
fieldname = 'NFE'.
IF sy-subrc = 0 AND
NOT j_1bnfdoc-nftype IS INITIAL.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
CLEAR t_where.
REFRESH t_where.
t_where = 'nftype = j_1bnfdoc-NFTYPE and nfe = C_X.'. "#EC NOTEXT
APPEND t_where.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
clear dd03l.
SELECT SINGLE * FROM dd03l
WHERE tabname = 'J_1BNFDOC' AND
fieldname = 'NFENUM'.
IF sy-subrc = 0.
CLEAR t_fields.
REFRESH t_fields.
t_fields = 'nfenum SERIES SUBSER NFE'.
APPEND t_fields.
ELSE.
* << Fim da inclusão
CLEAR t_fields.
REFRESH t_fields.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
t_fields = 'NFENUM SERIES SUBSER'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
t_fields = 'nfnum SERIES SUBSER NFE'.
* << Fim da inclusão
APPEND t_fields.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
CLEAR t_fields2.
REFRESH t_fields2.
t_fields2 = '(NFNUM,SERIES,SUBSER)'.
APPEND t_fields2.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
ENDIF.
IF dd03l-datatype = 'CHAR'.
SELECT SINGLE (t_fields)
FROM j_1bnfdoc
INTO (c_nfenum,series,subser,nfe)
WHERE docnum = docnum and
nftype = j_1bnfdoc-NFTYPE.
MOVE c_nfenum TO nfnum.
ELSE.
* << Fim da inclusão
SELECT SINGLE (t_fields)
FROM j_1bnfdoc
* >> Início da exclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
INTO (t_fields2)
WHERE (t_where).
IF sy-subrc = 0.
nfe = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
INTO (nfnum,series,subser,NFE)
WHERE docnum = docnum and
nftype = j_1bnfdoc-NFTYPE.
* << Fim da inclusão
ENDIF.
ENDIF.
...