CE PLUS - Nota 003482
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 17/04/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:16:19
Descrição da Nota: SISTEMA NÃO PERMITE ELIMINAR BL MESMO NÃO TENDO FATURA
Sintoma
Sistema não permite estornar B/L, aparece a mensagem que existe fatura não estornada, poém as
faturas já foram estornadas.
Solução
verificar itens que estejam eliminados nas tabelas e atualizá-los.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03482 Data: 17/04/2007 Hora: 16:58:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03482
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00162
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02511 - 00001 - 6.0 - 00025 - TRATAMENTO NO EMBARQUE DE MATERIAL + SERVIÇO E BL VINCULADO
----------------------------------------------------------------------------------------------------
SISTEMA NÃO PERMITE ELIMINAR BL MESMO NÃO TENDO FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ELIMINAR BL - MENSAGEM DE ERRO - EXISTÊNCIA DE FATURA
REGISTRO INCORRETO - ITEM ELIMINADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
ENDIF.
ENDIF.
IF ( /pws/zycie093-meiotransp NE 'LC' ) AND
( v_tcode EQ '/PWS/ZYCI002_C' OR v_tcode EQ '/PWS/ZYCI002_A' ).
IF ( /pws/zycie093-dtemb IS INITIAL ).
MOVE: /pws/zycie093-dtemiss TO /pws/zycie093-dtemb.
ENDIF.
ENDIF.
ENDFORM.
FORM trata_botao_dele.
* >> Início da inclusão: FORM TRATA_BOTAO_DELE
data: begin of itab_zycit006 occurs 0.
include structure /pws/zycit006.
data: end of itab_zycit006 .
data: begin of itab_zycit263 occurs 0.
include structure /pws/zycit263.
data: end of itab_zycit263 .
data: v_tabix type sy-tabix.
* << Fim da inclusão
DATA: v_confirm(1) TYPE c VALUE space.
CLEAR: wa_zycie085_del.
SELECT * UP TO 1 ROWS FROM /pws/zycit085 INTO wa_zycie085_del
WHERE nrbl EQ /pws/zycie093-nrseqce.
ENDSELECT.
IF sy-subrc EQ 0.
MESSAGE s061 WITH text-025 text-026 wa_zycie085_del-nrseqdi.
EXIT.
ELSE.
* >> Início da inclusão: FORM TRATA_BOTAO_DELE
SELECT * FROM /pws/zycit006
into table itab_zycit006
WHERE nrseqce = /pws/zycie093-nrseqce AND
eliminado = space
AND tpfatura NE '11'.
loop at itab_zycit006.
v_tabix = sy-tabix.
if itab_zycit006-tpfatura eq '01'.
read table itab_zycit263
with key nrseq_pgfat = itab_zycit006-nrseq_pgfat.
if sy-subrc ne 0.
itab_zycit006-eliminado = 'X'.
modify itab_zycit006 index v_tabix.
modify /pws/zycit006 from itab_zycit006.
else.
if itab_zycit263-eliminado = 'X'.
itab_zycit006-eliminado = 'X'.
modify itab_zycit006 index v_tabix.
modify /pws/zycit006 from itab_zycit006.
endif.
endif.
endif.
endloop.
commit work.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit006
WHERE nrseqce = /pws/zycie093-nrseqce AND
eliminado = space
AND tpfatura NE '11'.
IF sy-subrc = 0.
MESSAGE s061 WITH text-025 text-102.
EXIT.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
...