CE PLUS - Nota 006810
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Reports
Data/Hora da Publicação: 19/06/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:44:10
Descrição da Nota: CODE INSPECTOR CLASSE /PWS/ZYCI
Sintoma
Code Insepector Classe /PWS/ZYCI
DI, Recebimento, NF e relatorios zycir005 e zycir177
Solução
Code Insepector Classe /PWS/ZYCI
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06810 Data: 19/06/2008 Hora: 13:26:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06810
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00053
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06608 - 00002 - 7.0 - 00005 - INCLUSÃO DE VERIFICAÇÃO DO NUMERO DA DECLARAÇÃO DA DI
06651 - 00001 - 7.0 - 00005 - DUMP NO MOMENTO DE EMITIR A NOTA FISCAL, QUANDO AMBIENTE POSSUI N
----------------------------------------------------------------------------------------------------
CODE INSPECTOR CLASSE /PWS/ZYCI
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE - INSPECTOR - CLASSE - /PWS/ZYCI
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_BUSCA_NFNUM
REPS /PWS/MZYCI023F03
REPT /PWS/SAPLZYCIGF2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_BUSCA_NFNUM
...
fieldname = 'NFE'.
IF sy-subrc = 0 AND
NOT j_1bnfdoc-nftype IS INITIAL.
clear dd03l.
SELECT SINGLE * FROM dd03l
WHERE tabname = 'J_1BNFDOC' AND
fieldname = 'NFENUM'.
IF sy-subrc = 0.
CLEAR t_fields.
REFRESH t_fields.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
t_fields = 'nfenum SERIES SUBSER NFE'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
t_fields = text-054.
* << Fim da inclusão
APPEND t_fields.
ELSE.
CLEAR t_fields.
REFRESH t_fields.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
t_fields = 'nfnum SERIES SUBSER NFE'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_BUSCA_NFNUM
t_fields = text-055.
* << Fim da inclusão
APPEND t_fields.
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM verifica_nrdi.
DATA: v_nrseqdi TYPE /pws/zycie085-nrseqdi.
IF NOT t001-land1 EQ 'CL' AND NOT t001-land1 EQ 'AR'.
IF NOT /pws/zycie085-nrdi IS INITIAL.
SELECT SINGLE nrseqdi FROM /pws/zycit085 INTO v_nrseqdi
WHERE nrseqdi NE /pws/zycie085-nrseqdi
* >> Início da exclusão: FORM VERIFICA_NRDI
AND nrdi EQ /pws/zycie085-nrdi.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRDI
AND nrdi EQ /pws/zycie085-nrdi. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0 .
MESSAGE e015 WITH text-254 v_nrseqdi.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCIGF2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (24 caracteres)
"nfenum SERIES SUBSER NFE"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 055
Texto: (23 caracteres)
"nfnum SERIES SUBSER NFE"
Comprimento máximo: 23