CE PLUS - Nota 007280
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 09/09/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:15:00
Descrição da Nota: FATURA PERMITE ESTORNO MESMO QUE EXISTA BOLETO OU FATURA DE CÂMBIO.
Sintoma
Fatura permite estorno mesmo que exista boleto ou fatura de câmbio.
Solução
Verificar se há boleto ou fatura de câmbio criada antes de permitir estorno.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07280 Data: 09/09/2008 Hora: 10:33:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07280
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00066
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03353 - 00001 - 7.0 - 00001 - AJUSTE NA CHAVE DE SELEÇÃO PARA A VERIFICAÇÃO DO BOLETO NO CAMBIO
04381 - 00002 - 7.0 - 00002 - DIFERENÇA NO RELATÓRIO DE CUSTO EFETIVOS NO VALOR DO FOB.
----------------------------------------------------------------------------------------------------
FATURA PERMITE ESTORNO MESMO QUE EXISTA BOLETO OU FATURA DE CÂMBIO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - ESTORNO - BOLETO - CÂMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
FORM eliminar_fatura.
* >> Início da inclusão: FORM ELIMINAR_FATURA
PERFORM verifica_boleto.
IF v_stop = 'X'.
EXIT.
ENDIF.
* << Fim da inclusão
...
...
FORM gravar_cambio.
* >> Início da exclusão: FORM GRAVAR_CAMBIO
TABLES /pws/zycbt064.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
* >> Início da inclusão:
FORM verifica_boleto.
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat.
IF sy-subrc EQ 0.
MESSAGE s015 WITH text-110.
v_stop = 'X' .
ELSE.
SELECT SINGLE * FROM /pws/zycbt064 WHERE
nrchave EQ /pws/zycie006-nrseq_pgfat AND
mdcorresp EQ 'IP'.
IF sy-subrc EQ 0.
MESSAGE s015 WITH text-110.
v_stop = 'X' .
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
/pws/zycie006-frpagto IS INITIAL AND
/pws/zycie006-waers IS INITIAL.
IMPORT /pws/zycie006-nrfat
/pws/zycie006-tpfatura
/pws/zycie006-zterm
/pws/zycie006-frpagto
/pws/zycie006-waers
FROM MEMORY ID 'IP003A'.
ENDIF.
IF NOT /pws/zycie006-nrseq_pgfat IS INITIAL.
* >> Início da exclusão: MODULE LOAD_DATA
SELECT SINGLE * FROM /pws/zycbt031
WHERE nrcorresp = /pws/zycie006-nrseq_pgfat
AND mdcorresp = 'IP'
AND belnr_p NE space.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
SELECT single * FROM /pws/zycbt064
WHERE nrchave = /pws/zycie006-nrseq_pgfat
AND mdcorresp = 'IP'.
* << Fim da inclusão
IF sy-subrc = 0.
IF v_existe_bol IS INITIAL.
MESSAGE i015 WITH text-110.
ENDIF.
v_existe_bol = 'X'.
ELSE.
CLEAR v_existe_bol.
ENDIF.
ENDIF.
IF /pws/zycit001-nrseq NE /pws/zycie001-nrseq.
...
...
MODULE verifica_boleto OUTPUT.
CLEAR v_existe_bol.
* >> Início da exclusão: MODULE VERIFICA_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
WHERE nrcorresp = /pws/zycie006-nrseq_pgfat
AND belnr_p NE space.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
WHERE nrchave = /pws/zycie006-nrseq_pgfat.
* << Fim da inclusão
IF sy-subrc = 0.
v_existe_bol = 'X'.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
...
* >> Início da inclusão:
TABLES /pws/zycbt064.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
...