Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 03/09/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:17:24
Descrição da Nota: VERIF. SE NFE APROVADA ANTES DE CRIAR FISCAL DE REMESSA E COMPLEMENTAR
Sintoma
Incluida verificação da nota fiscal eletrônica para não permitir que sejam criadas notas de remessa
ou complementar antes que a nota fiscal global esteja aprovada.
Solução
Incluida verificação da nota fiscal eletrônica para não permitir que sejam criadas notas de remessa
ou complementar antes que a nota fiscal global esteja aprovada.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07244 Data: 03/09/2008 Hora: 14:09:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07244
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00063
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07164 - 00003 - 7.0 - 00006 - CORREÇÃO DO BATCH INPUT PARA NOTA FISCAL ELETRÔNICA
07194 - 00001 - 7.0 - 00006 - VERIFICAÇÃO PREENCHIMENTO DO NUMERO DA NF-E PARA CRIAR NOTA DE RE
07276 - 00002 - 7.0 - 00006 - DUMP AO TENTAR CRIAR NOTA FISCAL DE REMESSA
----------------------------------------------------------------------------------------------------
VERIF. SE NFE APROVADA ANTES DE CRIAR FISCAL DE REMESSA E COMPLEMENTAR
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - REMESSA - COMPLEMENTAR - ELETRÔNICA - NFE - APROVADA
/PWS/SAPMZYCI016 - NFE - NF-E
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016I01
REPT /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM chama_nfc_mult.
* >> Início da inclusão: FORM CHAMA_NFC_MULT
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.
* << Fim da inclusão
...
...
SET PARAMETER ID '/PWS/ZYCIP085' FIELD /pws/zycie041-nrseq.
IF sy-tcode = '/PWS/ZYCI016_E'.
CALL TRANSACTION '/PWS/ZYCI029_E'
AND SKIP FIRST SCREEN.
ELSE.
* >> Início da inclusão: FORM CHAMA_NFC_MULT
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>,
(t_fields) TO <nfe>.
IF <docsta> NE 1 AND
NOT <nfe> IS INITIAL.
MESSAGE i015 WITH text-108.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
CALL TRANSACTION '/PWS/ZYCI029_L'
AND SKIP FIRST SCREEN.
ENDIF.
ELSE.
MESSAGE i015 WITH text-052.
ENDIF.
ELSE.
IF sy-tcode = '/PWS/ZYCI016_E'.
MESSAGE s015 WITH text-062.
ELSE.
MOVE /pws/zycie041 TO /pws/zycie041a.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042-DOCNUM'.
/pws/zycie041a-docnum = v_valor.
* >> Início da inclusão: FORM CHAMA_NFC_MULT
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>,
(t_fields) TO <nfe>.
IF <docsta> NE 1 AND
NOT <nfe> IS INITIAL.
MESSAGE i015 WITH text-108.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
EXPORT /pws/zycie041a
TO MEMORY ID 'IP016A'.
CALL TRANSACTION '/PWS/ZYCI029_C'.
ELSE.
MESSAGE i015 WITH text-052.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
MODULE user_command_0100 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0100
DATA: t_docstat(20) TYPE c VALUE 'J_1BNFDOC-DOCSTAT'.
FIELD-SYMBOLS: <docsta> TYPE ANY.
* << Fim da inclusão
...
...
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
NOT v_valor = '8888888888'
AND v_nfee EQ '0'.
MESSAGE i061 WITH text-061.
ELSE.
* >> Início da inclusão: MODULE USER_COMMAND_0100
IF dd03l-fieldname = 'NFE' AND
NOT j_1bnfdoc-nftype IS INITIAL.
ASSIGN: (t_docstat) TO <docsta>.
IF <docsta> NE 1 AND
NOT <nfe> IS INITIAL.
MESSAGE i015 WITH text-108.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
PERFORM nfiscal_remessa.
ENDIF.
ELSE.
MESSAGE i015 WITH text-052 text-053.
ENDIF.
WHEN 'NFC'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI016
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 108
Texto: (19 caracteres)
"NFE not authorized!"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 108
Texto: (19 caracteres)
"NFE não autorizada!"
Comprimento máximo: 25