CE PLUS - Nota 012742
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 21/12/2012 00:00:00
Data/Hora Última Alteração: 04/04/2013 13:44:15
Descrição da Nota: LI FORNECEDOR VINCULAR PEDIDO
Sintoma
Quando vincula dois ou mais pedidos ao mesmo tempo o sistema checa e não deixa vincular caso
exista fornecedores diferentes.
Quando vincula um pedido e depois o outro, o sistema não checa se existe fornecedores diferentes
e deixa vincular o segundo pedido com fornecedor diferente do primeiro.
Solução
O Sistema passou a checar se os pedidos possuem fornecedores diferentes quando faz a vinculação ao
mesmo tempo ou quando faz de um pedido e depois de outro pedido.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12742 Data: 21/12/2012 Hora: 10:56:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12742
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00003
Agrupamento : 00140
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08553 - 00001 - 7.0 - 00010 - IMPLEMENTAÇÃO DO CAMPO MATERIAL MATNR NA LICENÇA DE IMPORTAÇÃO
11248 - 00002 - 8.0 - 00008 - NECESSÁRIO EXIT PARA DESENVOLVIMENTO ESPECÍFICO.
----------------------------------------------------------------------------------------------------
LI FORNECEDOR VINCULAR PEDIDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESEMBARAÇO LI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
READ TABLE itab_zyglt100 WITH KEY zexit = 'LI005' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_ITENS
IF NOT itab_itens[] IS INITIAL and
NOT it_zycit079[] IS INITIAL.
READ TABLE it_zycit079 INDEX 1.
LOOP AT itab_itens WHERE lifnr NE it_zycit079-LIFNR.
MESSAGE e015 WITH text-023.
ENDLOOP.
ENDIF.
* << Fim da inclusão
IF e_subrc EQ 0.
CLEAR itab_itens.
CLEAR v_ncmdf .
READ TABLE itab_itens INDEX 1 .
MOVE: itab_itens-lifnr TO v_lifnr,
itab_itens-waers TO v_waers,
itab_itens-inco1 TO v_inco1,
itab_itens-waers TO /pws/zycie000-waers,
itab_itens-lifnr TO /pws/zycie000-lifnr.
LOOP AT itab_itens WHERE waers NE v_waers.
...
...
it_zycit079-ncm.
MOVE: itab_itens-ebeln TO it_zycit079-ebeln ,
itab_itens-ebelp TO it_zycit079-ebelp ,
itab_itens-matnr TO it_zycit079-matnr ,
itab_itens-txz01 TO it_zycit079-descr ,
itab_itens-waers TO it_zycit079-waers ,
itab_itens-meins TO it_zycit079-meins ,
itab_itens-gewei TO it_zycit079-gewei ,
itab_itens-bednr TO it_zycit079-bednr ,
itab_itens-j_1bnbm TO it_zycit079-steuc1 ,
* >> Início da exclusão: FORM SELECIONAR_ITENS
/pws/zycie078-nrseqli TO it_zycit079-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
/pws/zycie078-nrseqli TO it_zycit079-nrseqli,
itab_itens-lifnr TO it_zycit079-lifnr.
* << Fim da inclusão
MOVE: itab_itens-lifnr TO v_forn.
CLEAR it_zycit092.
READ TABLE it_zycit092 WITH KEY ebeln = itab_itens-ebeln
ebelp = itab_itens-ebelp.
IF sy-subrc EQ 0 AND /pws/zycie078-nacion NE 'X'.
IF it_zycit092-menge NE itab_itens-menge.
it_zycit079-slqtde = it_zycit092-slqtde +
( itab_itens-menge - it_zycit092-menge ).
ELSE.
MOVE: it_zycit092-slqtde TO it_zycit079-slqtde.
...