CE PLUS - Nota 007276
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 08/09/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:17:33
Descrição da Nota: DUMP AO TENTAR CRIAR NOTA FISCAL DE REMESSA
Sintoma
Ao tentar criar uma nota fiscal de remessa está ocorrendo DUMP.
Solução
Alterar verificação da nota fiscal eletrônica para ser realizada após seleção da nota fiscal.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07276 Data: 08/09/2008 Hora: 14:59:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07276
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00064
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07244 - 00001 - 7.0 - 00006 - VERIF. SE NFE APROVADA ANTES DE CRIAR FISCAL DE REMESSA E COMPLEM
----------------------------------------------------------------------------------------------------
DUMP AO TENTAR CRIAR NOTA FISCAL DE REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP - NOTA - FISCAL - REMESSA - ELETRÔNICA - VERIFICAÇÃO - STATUS
/PWS/SAPMZYCI016 - NFE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
WHEN 'NFR1'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM' AND NOT v_valor = 0.
READ TABLE itab_zycit041 WITH KEY docnum = v_valor.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum = v_valor.
* << Fim da inclusão
v_nfee = '0'.
SELECT SINGLE * FROM dd03l
WHERE tabname = 'J_1BNFDOC' AND
fieldname = 'NFE'.
IF sy-subrc = 0 AND
NOT j_1bnfdoc-nftype IS INITIAL.
ASSIGN: (t_fields4) TO <nfenum>,
(t_fields3) TO <nfe>.
IF NOT <nfenum> IS INITIAL AND
NOT <nfe> IS INITIAL.
v_nfee = '1'.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0100
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM' AND NOT v_valor = 0.
READ TABLE itab_zycit041 WITH KEY docnum = v_valor.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum = v_valor.
* << Fim da exclusão
...