CE PLUS - Nota 007591
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 17/11/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:25:34
Descrição da Nota: CALCULO DE SALDO LI, PLI
Sintoma
Após gerar a LI através da PLI está exibindo mensagem informando ultrapassou o saldo disponível.
Solução
Ajustado programa para abater o saldo dos itens de acordo com o tipo de documento.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07591 Data: 17/11/2008 Hora: 16:34:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07591
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00074
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06014 - 00001 - 7.0 - 00004 - NA LI NÃO DEIXA CRIAR UMA LI SUBSTITUTIVA
----------------------------------------------------------------------------------------------------
CALCULO DE SALDO LI, PLI
----------------------------------------------------------------------------------------------------
Palavras Chave:
SALDO - ITENS - PLI - LI
/PWS/SAPMZCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
LOOP AT it_zycit092.
CLEAR: itab_ekpo, itab_zycit079_util.
READ TABLE itab_ekpo WITH KEY ebeln = it_zycit092-ebeln
ebelp = it_zycit092-ebelp.
IF sy-subrc EQ 0.
CLEAR v_qtdemb.
LOOP AT itab_zycit079_util WHERE ebeln EQ it_zycit092-ebeln
AND ebelp EQ it_zycit092-ebelp.
SELECT SINGLE * FROM /pws/zycit078
WHERE nrseqli EQ itab_zycit079_util-nrseqli.
* >> Início da exclusão: FORM CARREGA_SALDO
IF /pws/zycit078-nrseqlisub IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_SALDO
IF /pws/zycit078-nrseqlisub IS INITIAL AND
/pws/zycit078-flagpli EQ /pws/zycie078-flagpli.
* << Fim da inclusão
v_qtdemb = v_qtdemb + itab_zycit079_util-qtd_iten.
ENDIF.
ENDLOOP.
ENDIF.
v_slqtde = itab_ekpo-menge - v_qtdemb.
it_zycit092-slqtde = v_slqtde.
it_zycit092-menge = itab_ekpo-menge.
UPDATE /pws/zycit092 SET slqtde = it_zycit092-slqtde
menge = itab_ekpo-menge
WHERE ebeln = it_zycit092-ebeln
...