CE PLUS - Nota 009597
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Complementar
Data/Hora da Publicação: 18/12/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:23:00
Descrição da Nota: PERMITIR CRIAÇÃO DE NOTA FISCAL COMPLEMENTAR PARA NOTA DE CONTINGÊNCIA
Sintoma
Ao tentar gerar a nota fiscal complementar para uma nota fiscal de contingência o programa exibe a
mensagem "NFE não autorizada!".
Solução
Ajustado programa para permitir a criação de nota fiscal complementar para nota fiscal de
contingência.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09597 Data: 18/12/2009 Hora: 14:50:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09597
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
PERMITIR CRIAÇÃO DE NOTA FISCAL COMPLEMENTAR PARA NOTA DE CONTINGÊNCIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - COMPLEMENTAR - CONTINGÊNCIA - ELETRÔNICA
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM chama_nfc_mult.
* >> Início da inclusão: FORM CHAMA_NFC_MULT
DATA: t_fields3(20) TYPE c VALUE 'J_1BNFDOC-CONTING'.
FIELD-SYMBOLS <conting> TYPE ANY.
* << Fim da inclusão
DATA: t_fields(20) TYPE c VALUE 'J_1BNFDOC-NFE',
t_fields2(20) TYPE c VALUE 'J_1BNFDOC-DOCSTAT'.
FIELD-SYMBOLS: <docsta> TYPE ANY,
<nfe> TYPE ANY.
LOOP AT itab_zycit042 WHERE docnum IS initial.
ENDLOOP.
IF sy-subrc = 0.
MESSAGE i015 WITH text-068.
ELSE.
SELECT SINGLE * FROM /pws/zycit264
...
...
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ELSE.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie041a-docnum.
SELECT SINGLE * FROM dd03l
WHERE tabname = 'J_1BNFDOC' AND
fieldname = 'NFE'.
IF sy-subrc = 0 AND
NOT j_1bnfdoc-nftype IS INITIAL.
ASSIGN: (t_fields2) TO <docsta>,
* >> Início da inclusão: FORM CHAMA_NFC_MULT
(t_fields3) TO <conting>,
* << Fim da inclusão
(t_fields) TO <nfe>.
IF <docsta> NE 1 AND
* >> Início da inclusão: FORM CHAMA_NFC_MULT
<conting> IS INITIAL AND
* << Fim da inclusão
NOT <nfe> IS INITIAL.
MESSAGE i015 WITH text-108.
EXIT.
ENDIF.
ENDIF.
...
...
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
/pws/zycie041a-docnum = v_valor.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie041a-docnum.
SELECT SINGLE * FROM dd03l
WHERE tabname = 'J_1BNFDOC' AND
fieldname = 'NFE'.
IF sy-subrc = 0 AND
NOT j_1bnfdoc-nftype IS INITIAL.
ASSIGN: (t_fields2) TO <docsta>,
* >> Início da inclusão: FORM CHAMA_NFC_MULT
(t_fields3) TO <conting>,
* << Fim da inclusão
(t_fields) TO <nfe>.
IF <docsta> NE 1 AND
* >> Início da inclusão: FORM CHAMA_NFC_MULT
<conting> IS INITIAL AND
* << Fim da inclusão
NOT <nfe> IS INITIAL.
MESSAGE i015 WITH text-108.
EXIT.
ENDIF.
ENDIF.
...