CE PLUS - Nota 007025
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 25/07/2008 00:00:00
Data/Hora Última Alteração: 02/02/2011 09:38:40
Descrição da Nota: O MENU NÃO VERIFICAVA FATURA TIPO P CONTABILIZADA PARA GERAR NOTA FISCAL
Sintoma
Ao criar Nota fiscal pelo menu ele não verificava se a fatura estava contabilizada
Solução
Atualização do programa de Nota Fiscal para que o sistema não permita a emissão de Nota Fiscal pelo
menu se todas as faturas não estiverem contabilizadas.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07025 Data: 25/07/2008 Hora: 11:19:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07025
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00058
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
O MENU NÃO VERIFICAVA FATURA TIPO P CONTABILIZADA PARA GERAR NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - P - CONTABILIZADA - MENU
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016TOP
REPS /PWS/MZYCI016X01
REPT /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM gera_itab_zycit042.
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
data: v_fat.
* << Fim da inclusão
...
...
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
eliminado = space.
IF sy-subrc EQ 0.
READ TABLE itab_zycit263 INDEX 1.
SELECT SINGLE frpagto INTO /pws/zycit006-frpagto
FROM /pws/zycit006
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
if not itab_zycit263[] is initial.
select * from /pws/zycit094
into table itab_zycit094
where nrseq eq itab_zycit263-nrseq.
read table itab_zycit094 index 1.
select * from /pws/zycit006
into table itab_zycit006
for all entries in itab_zycit263
where nrseq_pgfat eq itab_zycit263-nrseq_pgfat
and nrseqce = itab_zycit094-nrseqce.
endif.
loop at itab_zycit006 where eliminado ne 'X'
and tpfatura eq '01'
and frpagto ne 'A'
and belnr_p eq space.
select single * from /pws/zycit132
where nrseq = itab_zycit006-nrseq and
eliminado ne 'X' and
belnr_p eq space.
if sy-subrc = 0.
v_fat = 'X'.
else.
select single * from /pws/zycit132
where nrseq = itab_zycit006-nrseq and
eliminado ne 'X'.
if sy-subrc ne 0.
v_fat = 'X'.
endif.
endif.
endloop.
if not v_fat is initial.
message i015 with text-106 text-107.
leave program.
endif.
* << Fim da inclusão
IF /pws/zycit006-frpagto EQ 'A'.
itab_zycit042-tpnf = /pws/zycit012-tpnf_ld.
ENDIF.
ENDIF.
itab_zycit042-waersb = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE j_1bmatuse INTO ekpo-j_1bmatuse
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016TOP
...
INCLUDE /pws/mzyci016oo.
INCLUDE /pws/mzyci016x01.
TABLES:
* >> Início da exclusão:
/pws/zycit001, /pws/zycie001,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit132,
/pws/zycit001,
/pws/zycie001,
* << Fim da inclusão
/pws/zycit004,
/pws/zycet079,
/pws/zycie005,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
* >> Início da inclusão:
data itab_zycit006 like /pws/zycie006 occurs 0 with header line.
* << Fim da inclusão
DATA: END OF COMMON PART a.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI016
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 106
Texto: (35 caracteres)
"Existem Faturas não Contabilizadas,"
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 107
Texto: (23 caracteres)
"não é possível gerar NF"
Comprimento máximo: 23