CE PLUS - Nota 004487
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 22/08/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:10:38
Descrição da Nota: AJUSTE PARA TRATAR A QUANTIDADE BASE DA LISTA TÉCNICA POR AGRUPAMENTO
Sintoma
Ajuste para tratar a quantidade base da lista técnica por agrupamento.
Solução
Ajuste para tratar a quantidade base da lista técnica por agrupamento.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04487 Data: 22/08/2007 Hora: 15:18:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04487
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00009
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04485 - 00001 - 7.0 - 00002 - ADICIONADA QUANTIDADE BASE A LISTA TÉCNICA POR AGRUPAMENTO
----------------------------------------------------------------------------------------------------
AJUSTE PARA TRATAR A QUANTIDADE BASE DA LISTA TÉCNICA POR AGRUPAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - LISTA - TÉCNICA - AGRUPAMENTO - QUANTIDADE - BASE
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
IF v_verificp2 EQ 'N'.
PERFORM confirm_expl_bom2 CHANGING v_flag.
IF v_flag EQ 'N'.
v_verificp2 = 'S'.
EXIT.
ELSE.
REFRESH: itab_zycit245.
ENDIF.
ENDIF.
LOOP AT itab_zycit247.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
CLEAR /pws/zycit421.
SELECT SINGLE * FROM /pws/zycit421
WHERE agrup EQ itab_zycit247-agrup
AND werks EQ itab_zycit247-werks
AND stlal EQ itab_zycit247-stlal.
* << Fim da inclusão
CLEAR t_zycit422. REFRESH t_zycit422.
SELECT * FROM /pws/zycit422
INTO TABLE t_zycit422
WHERE agrup EQ itab_zycit247-agrup
AND werks EQ itab_zycit247-werks
AND stlal EQ itab_zycit247-stlal
AND ( datuv <= sy-datum
AND datub >= sy-datum ).
IF sy-subrc EQ 0.
LOOP AT t_zycit422.
...
...
IF v_tcode2 EQ '/PWS/ZYCI040_A'.
READ TABLE itab_zycit245 WITH KEY codcomp = t_zycit422-idnrk
werks = t_zycit422-werks
nrseqd = /pws/zycie244-nrseqd.
ENDIF.
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd,
t_zycit422-idnrk TO itab_zycit245-codcomp,
t_zycit422-meins TO itab_zycit245-meins,
t_zycit422-werks TO itab_zycit245-werks,
'1' TO itab_zycit245-proced.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
IF /pws/zycit421-base IS INITIAL.
/pws/zycit421-base = 1.
ENDIF.
t_zycit422-menge = t_zycit422-menge / /pws/zycit421-base.
* << Fim da inclusão
itab_zycit245-qtd_iten = t_zycit422-menge / 100.
itab_zycit245-qtd_tot =
( itab_zycit247-qtd_iten * t_zycit422-menge ).
MOVE-CORRESPONDING itab_zycit245 TO itab_zycit245_collect.
COLLECT itab_zycit245_collect.
ENDLOOP.
ENDIF.
REFRESH itab_zycit245.
LOOP AT itab_zycit245_collect.
CLEAR itab_zycit245.
...