CE PLUS - Nota 012778
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 22/01/2013 00:00:00
Data/Hora Última Alteração: 04/04/2013 13:49:01
Descrição da Nota: NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO
Sintoma
Cliente necessita tratamento específico.
Solução
Criada a chamada de exit LI006.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12778 Data: 22/01/2013 Hora: 16:50:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12778
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00003
Agrupamento : 00145
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03452 - 00001 - 7.0 - 00001 - O PROGRAMA DA LI ESTÁ SEMPRE RECALCULANDO A QUANTIDADE ESTATISTIC
03820 - 00002 - 7.0 - 00001 - LI - QUANTIDADE UM ESTATÍSTICA
06213 - 00003 - 7.0 - 00005 - O PROGRAMA NÃO ESTÁ SOMANDO AS QUANTIDADES NA UM ESTATISTICA
07015 - 00004 - 7.0 - 00006 - UNIDADE DE MEDIDA ESTATISTICA (PEDIDOS COM CLASSIFICAÇÃO FISCAL)
07831 - 00005 - 7.0 - 00008 - CALCULO DA QUANTIDADE ESTATISTICA
09495 - 00006 - 8.0 - 00002 - LI NÃO RECALCULA QTDE UM ESTATÍSTICA SE ALTERAR A QUANTIDADE
12186 - 00007 - 8.0 - 00011 - ERRO AO FAZER PRÉ CRÍTICA NA PLI E VINCULAÇÃO NO EMBARQUE
12190 - 00008 - 8.0 - 00011 - ERRO AO VINCULAR EMBARQUE A LI.
12436 - 00009 - 9.0 - 00001 - CALCULO QUANTIDADE ESTATÍSTICA LI DRAWBACK
----------------------------------------------------------------------------------------------------
NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - ZYGLT100 - DESENVOLVIMENTO ESPECÍFICO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
v_peso = v_peso + it_zycit079-ntgew.
v_qtdtot = v_qtdtot + it_zycit079-qtd_iten.
IF NOT it_ekpo-matnr IS INITIAL.
PERFORM converte_um_ncm USING it_ekpo-matnr
CHANGING it_zycit079-meins
it_zycit079-qtd_iten.
ENDIF.
v_qtdest = v_qtdest +
it_zycit079-qtd_iten.
ENDLOOP.
* >> Início da inclusão: MODULE LOAD_DATA
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'LI006'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'LI006' 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 .
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
IF /pws/zycie078-qtdest IS INITIAL OR
( /pws/zycie078-qtdest <> v_qtdest AND v_novo_item IS INITIAL ).
IF /pws/zycie078-qtdest IS INITIAL.
/pws/zycie078-qtdest = v_qtdest.
ELSE.
IF NOT itab_itens[] IS INITIAL.
IF v_novo_item EQ 'X'.
IF NOT it_zycit079-qtd_iten IS INITIAL.
/pws/zycie078-qtdest = /pws/zycie078-qtdest +
it_zycit079-qtd_iten.
...
...
AND ebelp EQ it_zycit079-ebelp.
CLEAR v_novo_item.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSEIF /pws/zycie078-qtdest <> v_qtdest AND
NOT v_novo_item IS INITIAL.
/pws/zycie078-qtdest = v_qtdest.
CLEAR v_novo_item.
* >> Início da inclusão: MODULE LOAD_DATA
ENDIF.
* << Fim da inclusão
ENDIF.
LOOP AT it_079_del.
READ TABLE it_ekpo WITH KEY ebeln = it_079_del-ebeln
ebelp = it_079_del-ebelp.
IF sy-subrc NE 0.
SELECT SINGLE * FROM ekpo INTO it_ekpo
WHERE ebeln EQ it_079_del-ebeln
AND ebelp EQ it_079_del-ebelp.
IF sy-subrc EQ 0.
APPEND it_ekpo.
...