CE PLUS - Nota 007194
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 26/08/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:13:33
Descrição da Nota: VERIFICAÇÃO PREENCHIMENTO DO NUMERO DA NF-E PARA CRIAR NOTA DE REMESSA
Sintoma
Ao tentar criar a nota fiscal de remessa está sendo exibida a mensagem "Ainda não houve saída da
nota fiscal"
Solução
Ajustado programa para verificar o tipo de nota e verificar o preenchimento do numero da nota com o
campo correto.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07194 Data: 26/08/2008 Hora: 10:21:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07194
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00062
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VERIFICAÇÃO PREENCHIMENTO DO NUMERO DA NF-E PARA CRIAR NOTA DE REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - ELETRÔNICA - NUMERO - PREENCHIMENTO - REMESSA
/PWS/SAPMZYCI016 - NFE - NF-E
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
MODULE user_command_0100 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0100
DATA: v_nfee TYPE c.
DATA: t_fields3(20) TYPE c VALUE 'J_1BNFDOC-NFE',
t_fields4(20) TYPE c VALUE 'J_1BNFDOC-NFENUM'.
FIELD-SYMBOLS: <nfenum> TYPE ANY,
<nfe> TYPE ANY.
* << Fim da inclusão
...
...
WHEN 'NFR1'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
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.
* << Fim da inclusão
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.
IF itab_zycit041-statusp_mr1m = 'C'.
MESSAGE i061 WITH text-050 ' ' v_valor text-051.
ELSEIF j_1bnfdoc-nfnum EQ '0' AND
NOT v_valor = '9999999999' AND
* >> Início da exclusão: MODULE USER_COMMAND_0100
NOT v_valor = '8888888888'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
NOT v_valor = '8888888888'
AND v_nfee EQ '0'.
* << Fim da inclusão
MESSAGE i061 WITH text-061.
ELSE.
PERFORM nfiscal_remessa.
ENDIF.
ELSE.
MESSAGE i015 WITH text-052 text-053.
ENDIF.
...