CE PLUS - Nota 007843
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 29/12/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:15:56
Descrição da Nota: NOTA FISCAL NÃO ESTA LIMPANDO OS DADOS DO FUNDAP NO ESTORNO DA NOTA
Sintoma
NOTA FISCAL - FUNDAP
Ao excluir uma nota fiscal num processo FUNDAP, os valores da tabela 480 não estão sendo "limpados".
Solução
limpar a a tabela /pws/zycit480 quando excluir uma Nota Fiscal
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07843 Data: 29/12/2008 Hora: 11:42:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07843
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00078
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NOTA FISCAL NÃO ESTA LIMPANDO OS DADOS DO FUNDAP NO ESTORNO DA NOTA
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - FUNDAP - ESTORNO - CANCELAMENTO
/PWS/ZYCIT480
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
LOOP AT itab_zycit042.
READ TABLE it_zycet005 WITH KEY tcode = text-030
tabela = text-014
cpochv = /pws/zycie041-nfglobal
tpmsg = 'S'.
IF sy-subrc EQ 0 OR
NOT j_1bnfdoc-cancel IS INITIAL.
IF ( v_modalidade NE '99' ) OR
( v_modalidade = '99' AND v_apaga NE 'X' )
AND ( t001-land1 NE 'AR' AND t001-land1 NE 'CL' ).
* >> Início da inclusão: FORM FILL_DATA_J1B3
PERFORM DELETA_FUNDAP.
* << Fim da inclusão
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
DELETE FROM /pws/zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
...
...
MESSAGE i015 WITH it_zycet005-msg+0(50)
it_zycet005-msg+50(50).
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF ( v_apaga NE 'X' AND v_modalidade NE '99' ) OR
v_apaga = 'X'.
LOOP AT itab_zycit042.
* >> Início da inclusão: FORM FILL_DATA_J1B3
PERFORM DELETA_FUNDAP.
* << Fim da inclusão
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
DELETE FROM /pws/zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
...
...
WHERE nfremessa IN s_nfr
AND docnum IN s_docnum
AND nfnum IN s_nfnum.
tc_lista_nfr-top_line = sy-tabix.
EXIT.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-003.
ENDIF.
ENDFORM.
* >> Início da inclusão:
form DELETA_FUNDAP.
IF NOT /pws/zycit085-opfundap IS INITIAL.
DELETE FROM /PWS/ZYCIT480
WHERE NRSEQ = itab_zycit042-nrseq
AND EBELN = itab_zycit042-ebeln
AND EBELP = itab_zycit042-ebelp.
ENDIF.
endform.
* << Fim da inclusão