CE PLUS - Nota 006621
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 27/05/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:21:11
Descrição da Nota: AJUSTE PARA NÃO TRAZER PARA O EMBARQUE PEDIDOS SEM SALDO
Sintoma
O programa do embarque traz pedidos sem saldo e ao preencher uma quantidade o sistema se perde no
controle de saldo e permite salvar com saldo negativo.
Solução
Excluir da seleção os pedidos que não possuam saldo.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06621 Data: 27/05/2008 Hora: 09:20:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06621
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00049
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06500 - 00001 - 7.0 - 00005 - AO VINCULAR PEDIDOS SEM SALDO NO EMBARQUE, DÁ DUMP
----------------------------------------------------------------------------------------------------
AJUSTE PARA NÃO TRAZER PARA O EMBARQUE PEDIDOS SEM SALDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SELEÇÃO - PEDIDO - SALDO - EMBARQUE
/PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
ebelp = itab_itens-ebelp.
IF sy-subrc NE 0.
MOVE-CORRESPONDING itab_itens TO itab_zycit003.
MOVE: /pws/zycie001-nrseq TO itab_zycit003-nrseq.
PERFORM load_pttext USING itab_itens-matnr
itab_itens-spras.
CLEAR itab_zycit013.
READ TABLE itab_zycit013 WITH KEY ebeln = itab_itens-ebeln
ebelp = itab_itens-ebelp.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SELECIONAR_ITENS
IF itab_zycit013-menge NE itab_itens-menge.
itab_zycit013-slqtde = itab_zycit013-slqtde +
( itab_itens-menge - itab_zycit013-menge ).
ELSE.
MOVE: itab_zycit013-slqtde TO itab_zycit003-slqtde.
ENDIF.
* << Fim da inclusão
IF ( sy-tcode EQ '/PWS/ZYCI001_C' or
sy-tcode EQ '/PWS/ZYCI001_A' ) AND
itab_zycit013-slqtde < 0.
MESSAGE i015 WITH
text-472 itab_zycit003-ebeln
text-473 itab_zycit003-ebelp.
* >> Início da inclusão: FORM SELECIONAR_ITENS
ENDIF.
IF itab_zycit013-slqtde <= 0.
* << Fim da inclusão
CONTINUE.
* >> Início da exclusão: FORM SELECIONAR_ITENS
ENDIF.
IF itab_zycit013-menge NE itab_itens-menge.
itab_zycit013-slqtde = itab_zycit013-slqtde +
( itab_itens-menge - itab_zycit013-menge ).
ELSE.
MOVE: itab_zycit013-slqtde TO itab_zycit003-slqtde.
* << Fim da exclusão
ENDIF.
...