CE PLUS - Nota 003396
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 04/04/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:47:41
Descrição da Nota: EXCLUSÃO DE ITENS DA MESMA FATURA / REMESSA
Sintoma
Ao excluir mais de um item no embarque, o programa não excluía todos os itens da mesma fatura ou da
mesma remessa.
Solução
O tratamento existente foi extendido para a exclusão de mais de um item.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03396 Data: 04/04/2007 Hora: 13:49:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03396
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02384 - 00001 - 6.0 - 00025 - EXCLUSÃO DE ITENS DE EMBARQUE SOB MESMO FATURAMENTO OU REMESSA
----------------------------------------------------------------------------------------------------
EXCLUSÃO DE ITENS DA MESMA FATURA / REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE EXCLUSÃO FATURA REMESSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
ELSE.
itab_002[] = itab_zycet002[].
ENDIF.
READ TABLE itab_002 WITH KEY mark = 'X'.
IF sy-subrc NE 0.
IF p_marcados EQ 'X'.
MESSAGE s323(v1).
ENDIF.
EXIT.
ELSE.
* >> Início da inclusão: FORM ELIMINA_ITENS_MARCADOS
LOOP AT itab_002 WHERE mark = 'X'.
* << Fim da inclusão
IF NOT itab_002-vbeln_vf IS INITIAL.
* >> Início da exclusão: FORM ELIMINA_ITENS_MARCADOS
itab_002-mark = 'X'.
* << Fim da exclusão
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
* >> Início da exclusão: FORM ELIMINA_ITENS_MARCADOS
WHERE vbeln_vf EQ itab_002-vbeln_vl.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_ITENS_MARCADOS
WHERE vbeln_vl EQ itab_002-vbeln_vl.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM ELIMINA_ITENS_MARCADOS
ENDLOOP.
* << 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.
CALL FUNCTION 'MESSAGE_STORE'
...