CE PLUS - Nota 002384
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 06/11/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:43:40
Descrição da Nota: EXCLUSÃO DE ITENS DE EMBARQUE SOB MESMO FATURAMENTO OU REMESSA
Sintoma
Ao se haver muitos itens sob um mesmo faturamento, ou mesmo que haja somente uma remessa para vários
itens, ao se selecionar um item e solicitar a sua exclusão, os itens de mesmo faturamento ou remessa
não eram excluídos juntamente ao item selecionado.
Solução
Verificar faturamentos e remessas dos itens e excluir os itens relacionados com o item selecionado,
com relação à faturamento e remessa.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02384 Data: 06/11/2006 Hora: 17:06:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02384
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
EXCLUSÃO DE ITENS DE EMBARQUE SOB MESMO FATURAMENTO OU REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA; FATURAMENTO; EMBARQUE; ITENS; EXCLUSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F02
REPS /PWS/SAPMZYCE003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
IF sy-subrc NE 0.
IF p_marcados EQ 'X'.
MESSAGE s323(v1).
ENDIF.
EXIT.
* >> Início da inclusão: FORM ELIMINA_ITENS_MARCADOS
ELSE.
IF NOT itab_002-vbeln_vf IS INITIAL.
itab_002-mark = 'X'.
MODIFY itab_002 TRANSPORTING mark
WHERE vbeln_vf EQ itab_002-vbeln_vf.
ELSEIF NOT itab_002-vbeln_vl IS INITIAL.
MODIFY itab_002 TRANSPORTING mark
WHERE vbeln_vf EQ itab_002-vbeln_vl.
ENDIF.
* << Fim da inclusão
ENDIF.
LOOP AT itab_002 WHERE mark = 'X'.
IF p_marcados EQ 'X'.
IF itab_002-staprop EQ 'A'.
IF itab_002-vbeln_vl IS INITIAL.
...
zeile = 'CAN_NOT_DEL_I'.
ENDIF.
CONTINUE.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ELIMINA_ITENS_MARCADOS
READ TABLE itab_002 WITH KEY mark = 'X'
staprop = 'A'
TRANSPORTING NO FIELDS.
CHECK NOT sy-subrc IS INITIAL.
* << Fim da inclusão
READ TABLE itab_excluir
WITH KEY vbeln_va = itab_002-vbeln_va
aupos = itab_002-aupos
vbeln_vl = itab_002-vbeln_vl
posnl = itab_002-posnl
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE003
* >> Não houve alterações relevantes neste include <<