CE PLUS - Nota 001832
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 27/07/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:16:30
Descrição da Nota: AJUSTE NA CONTROLE DOS ADITIVOS E NA VINCULAÇÃO DO FORECAST
Sintoma
O numero de do aditivo é alterado quando o ato concessório é salvo mesmo que não tenha sido
preenchido um novo aditivo.
Ajustado ato concessório para tratar a vinculação de Forecast cuja forma de importação seja "com e
sem cobertura cambial".
Solução
Ajustado ato concessório para ao salvar o cabeçalho do ato gravar o numero do ultimo aditivo criado.
Ajustado ato concessório para tratar a vinculação de Forecast cuja forma de importação seja "com e
sem cobertura cambial".
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01832 Data: 27/07/2006 Hora: 13:52:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01832
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00124
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01541 - 00001 - 6.0 - 00023 - AJUSTES NA VINCULAÇÃO DO FORECAST AO ATO CONCESSÓRIO COMUM POR NC
01770 - 00002 - 6.0 - 00024 - AJUSTES PARA TRATAMENTO DO CENTRO EXP/IMP E TIPO DE COB.CAMBIAL
----------------------------------------------------------------------------------------------------
AJUSTE NA CONTROLE DOS ADITIVOS E NA VINCULAÇÃO DO FORECAST
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
PERFORM verifica_nrseq_gravado2.
ENDIF.
PERFORM salva_textos.
v_erro2 = 'N'.
PERFORM salva_read_texts CHANGING v_erro2.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
IF v_aditivo > 0.
/pws/zycie244-aditivo = /pws/zycie244-aditivo - 1.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit245_save.
itab_zycit245-vlvinc = itab_zycit245_save-vlvinc.
itab_zycit245-vinculado = itab_zycit245_save-vinculado.
MODIFY itab_zycit245 TRANSPORTING vlvinc vinculado
WHERE nritem EQ itab_zycit245_save-nritem.
...
...
MODIFY /pws/zycit248 FROM TABLE itab_zycit248_final.
MODIFY /pws/zycit243 FROM TABLE itab_centros2.
MODIFY /pws/zycit457 FROM TABLE itab_zycit457.
IF NOT itab_zycit279_ap[] IS INITIAL.
PERFORM salva_apont.
* >> Início da inclusão: FORM TRATA_BUTTON_SAVE2
ENDIF.
IF v_aditivo > 0.
/pws/zycie244-aditivo = v_aditivo.
* << Fim da inclusão
ENDIF.
IF v_tcode2 EQ '/PWS/ZYCI040_A'.
DELETE FROM /pws/zycit279 WHERE nrseqd = /pws/zycie244-nrseqd.
ENDIF.
MODIFY /pws/zycit279 FROM TABLE itab_zycit279_ap.
...
...
ENDIF.
itab_zycit245-nrseqd = /pws/zycie244-nrseqd .
PERFORM select_max_item_number2 CHANGING v_nritem.
itab_zycit245-nritem = v_nritem .
itab_zycit245-codcomp = /pws/zycie245-codcomp .
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT245_NG2
itab_zycit245-vl_scamb = /pws/zycie245-vl_scamb.
* << Fim da inclusão
itab_zycit245-werks = /pws/zycie244-werks .
itab_zycit245-proced = '1' .
itab_zycit245-meins = /pws/zycie245-meins .
itab_zycit245-qtd_iten = /pws/zycie245-qtd_iten.
itab_zycit245-qtd_tot = /pws/zycie245-qtd_tot.
...
...
FORM fill_itab_zycit245_tg2.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
IF sy-subrc EQ 0.
itab_zycit245-nrseqd = /pws/zycie244-nrseqd .
itab_zycit245-nritem = /pws/zycie245-nritem .
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT245_TG2
itab_zycit245-vl_scamb = /pws/zycie245-vl_scamb.
* << Fim da inclusão
itab_zycit245-codcomp = /pws/zycie245-codcomp .
itab_zycit245-maktx = /pws/zycie245-maktx .
itab_zycit245-werks = /pws/zycie244-werks .
itab_zycit245-proced = '1' .
itab_zycit245-meins = /pws/zycie245-meins .
...
...
itab_zycit245-um_ncm = /pws/zycie245-um_ncm .
itab_zycit245-qtd_ncm = /pws/zycie245-qtd_ncm .
itab_zycit245-nrseqd = /pws/zycie244-nrseqd .
PERFORM select_max_item_number2 CHANGING v_nritem.
itab_zycit245-nritem = v_nritem .
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT245_TF2
itab_zycit245-vl_scamb = /pws/zycie245-vl_scamb.
* << Fim da inclusão
itab_zycit245-codcomp = /pws/zycie245-codcomp .
itab_zycit245-maktx = /pws/zycie245-maktx .
itab_zycit245-werks = /pws/zycie244-werks .
itab_zycit245-proced = '1' .
itab_zycit245-meins = /pws/zycie245-meins .
...
...
ELSE.
PERFORM busca_um_ncm USING /pws/zycie245-j_1bnbm
CHANGING /pws/zycie245-um_ncm.
itab_zycit245-um_ncm = /pws/zycie245-um_ncm .
itab_zycit245-qtd_ncm = /pws/zycie245-qtd_ncm .
* >> Início da inclusão: FORM FILL_ITAB_ZYCIT245_TF2
itab_zycit245-vl_scamb = /pws/zycie245-vl_scamb.
* << Fim da inclusão
itab_zycit245-nrseqd = /pws/zycie244-nrseqd .
itab_zycit245-nritem = /pws/zycie245-nritem .
itab_zycit245-codcomp = /pws/zycie245-codcomp .
itab_zycit245-maktx = /pws/zycie245-maktx .
itab_zycit245-werks = /pws/zycie244-werks .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
itab_zycit245-sdocomp_i = itab_zycit249-qtd_tot.
LOOP AT itab_zycit240 WHERE
codcomp EQ itab_zycit245-codcomp.
itab_zycit245-qtd_perda_e = itab_zycit245-qtd_perda_e +
itab_zycit240-qtd_perda_e.
* >> Início da inclusão: MODULE TRATA_FORECAST
itab_zycit245-vl_scamb = itab_zycit245-vl_scamb +
itab_zycit240-vl_scamb.
* << Fim da inclusão
ENDLOOP.
itab_zycit245-qtd_tot = itab_zycit245-qtd_tot +
itab_zycit245-qtd_perda_e.
itab_zycit245-perda_e = ( itab_zycit245-qtd_perda_e * 100 )
/ itab_zycit245-qtd_tot.
...