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.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 04486 Data: 22/08/2007 Hora: 15:07:49

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 04486

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:

FORERCAST - LISTA - TÉCNICA - AGRUPAMENTO - QUANTIDADE - BASE

/PWS/SAPMZYCI063

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI063F01

REPS /PWS/MZYCI063F03

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI063F01

...

    itab_exp-stlal      = /pws/zycit421-stlal     .

    itab_exp-matkl      = /pws/zycie239-matkl     .

    itab_exp-waers      = /pws/zycie239-waers     .

    itab_exp-netpr      = /pws/zycie239-netpr     .

    itab_exp-vl_frete   = /pws/zycie239-vl_frete  .

    itab_exp-pctcomis   = /pws/zycie239-pctcomis  .

    itab_exp-vl_comis   = /pws/zycie239-vl_comis  .

    itab_exp-qtd_iten   = /pws/zycie239-qtd_iten  .

    itab_exp-qtd_aditiv = /pws/zycie239-qtd_aditiv.

    itab_exp-qtd_insumo = /pws/zycie239-qtd_insumo.

* >> Início da inclusão: FORM ITENS_EXP_AGRP

    itab_exp-brgew      = /pws/zycie239-brgew     .

    itab_exp-ntgew      = /pws/zycie239-ntgew     .

    itab_exp-gewei      = /pws/zycie239-gewei     .

* << Fim da inclusão

    itab_exp-j_1bnbm    = /pws/zycie239-j_1bnbm   .

    itab_exp-netpr_mi   = /pws/zycie239-netpr_mi  .

    itab_exp-tolling    = /pws/zycie239-tolling   .

    itab_exp-imp_s_cob_camb = /pws/zycie239-imp_s_cob_camb.

    itab_exp-waers_mi   = wa_zycbt007-waersb .

    itab_exp-netpr_me   = /pws/zycie239-netpr_me  .

    itab_exp-waers_me   = wa_zycbt007-waersa .

    itab_exp-mark       = mark               .

    v_verificp = 'N'.

    v_verificp_merc = 'N'.

...

...

    itab_exp-meins      = /pws/zycie239-meins     .

    itab_exp-matkl      = /pws/zycie239-matkl     .

    itab_exp-waers      = /pws/zycie239-waers     .

    itab_exp-netpr      = /pws/zycie239-netpr     .

    itab_exp-vl_frete   = /pws/zycie239-vl_frete  .

    itab_exp-pctcomis   = /pws/zycie239-pctcomis  .

    itab_exp-vl_comis   = /pws/zycie239-vl_comis  .

    itab_exp-qtd_iten   = /pws/zycie239-qtd_iten  .

    itab_exp-qtd_aditiv = /pws/zycie239-qtd_aditiv.

    itab_exp-qtd_insumo = /pws/zycie239-qtd_insumo.

* >> Início da inclusão: FORM ITENS_EXP_AGRP

    itab_exp-brgew      = /pws/zycie239-brgew     .

    itab_exp-ntgew      = /pws/zycie239-ntgew     .

    itab_exp-gewei      = /pws/zycie239-gewei     .

* << Fim da inclusão

    itab_exp-j_1bnbm    = /pws/zycie239-j_1bnbm   .

    itab_exp-netpr_mi   = /pws/zycie239-netpr_mi  .

    itab_exp-waers_mi   = /pws/zycie239-waers_mi  .

    itab_exp-netpr_me   = /pws/zycie239-netpr_me  .

    itab_exp-waers_me   = /pws/zycie239-waers_me  .

    itab_exp-tolling    = /pws/zycie239-tolling   .

    itab_exp-imp_s_cob_camb = /pws/zycie239-imp_s_cob_camb.

    itab_exp-mark       = mark               .

    IF itab_exp-qtd_aditiv IS INITIAL.

      itab_exp-netpr_t = itab_exp-netpr * itab_exp-qtd_iten.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI063F03

...

         AND vbeln_va = itab_comp_vinc-vbeln_va

         AND vbeln_vf = itab_comp_vinc-vbeln_vf

         AND posnr    = itab_comp_vinc-posnr

         AND codcomp  = itab_comp_vinc-codcomp.

ENDFORM.

FORM trata_lista_agrup USING p_agrup

                             p_werks.

  DATA: itab_zycit422 LIKE /pws/zycit422 OCCURS 0 WITH HEADER LINE.

  CLEAR: i_final, itab_zycit422.

  REFRESH: i_final, itab_zycit422.

* >> Início da inclusão: FORM TRATA_LISTA_AGRUP

  SELECT SINGLE * FROM /pws/zycit421

      WHERE agrup EQ p_agrup

        AND werks EQ p_werks.

* << Fim da inclusão

  SELECT * FROM /pws/zycit422 INTO TABLE itab_zycit422

      WHERE agrup EQ p_agrup

        AND werks EQ p_werks

        AND datuv <= sy-datum

        AND datub >= sy-datum.

  LOOP AT itab_zycit422.

    MOVE: itab_zycit422-werks TO i_final-centro,

    itab_zycit422-idnrk TO i_final-insumo,

    itab_zycit422-menge TO i_final-qtunit,

    itab_zycit422-meins TO i_final-meins.

* >> Início da inclusão: FORM TRATA_LISTA_AGRUP

    IF /pws/zycit421-base EQ 0.

      /pws/zycit421-base = 1.

    ENDIF.

    i_final-qtunit = i_final-qtunit / /pws/zycit421-base.

* << Fim da inclusão

    APPEND i_final.

  ENDLOOP.

ENDFORM.

FORM execute_button_btn3.

  MOVE /pws/zycie238-codagrup TO v_areas.

  CALL SCREEN '0110' STARTING AT 33 5.

  itab_areas_aux[] = itab_areas[].

  READ TABLE itab_areas INDEX 1.

  IF sy-subrc EQ 0 AND v_areas IS INITIAL.

    MOVE itab_areas-codagrup TO /pws/zycie238-codagrup.

...