Sintoma

A quantidade ncm de exportação não está sendo preenchida no ato concessório quando é vinculado um

forecast ao ato é utiliza lista técnica por agrupamento.

A reapuração parcial do ato não concidera a quantidade base da lista por agrupamento.

Solução

Ajustar o ato concessório para tratar os ajustes realizados na lista técnica por agrupamento.

Informações Complementares

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

Nota Número 04587 Data: 31/08/2007 Hora: 15:11:37

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

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

Nota Número              : 04587

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00010

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

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

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

IMPORTAÇÃO DO DADOS DO FORECAST E REAPURAÇÃO PARCIAL COM LISTA POR AGRUP

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

Palavras Chave:

IMPORTAR - DADOS - FORECAST - REAPURAÇÃO - PARCIAL - LISTA - AGRUPAMENTO

/PWS/SAPMZYCI040

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

Objetos da nota:

REPS /PWS/MZYCI040F03

REPS /PWS/MZYCI040I01

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

Modificações efetuadas em REPS /PWS/MZYCI040F03

...

        WHERE matnr = itab_zycit247-codmat

          AND werks = itab_zycit247-werks.

    IF /pws/zycit321-ltopc IS INITIAL.

      PERFORM explode_lista USING /pws/zycit281-matnr

                                  /pws/zycit281-capid

                                  /pws/zycit281-werks

                                  /pws/zycit281-stlan

                                  /pws/zycit281-stlnr

                                  /pws/zycit281-stlal.

    ELSE.

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

      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, i_final.

      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.

          CLEAR i_final.

          MOVE: t_zycit422-idnrk TO i_final-insumo,

                t_zycit422-meins TO i_final-meins,

                t_zycit422-menge TO i_final-qtunit.

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

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

* << Fim da inclusão

          APPEND i_final.

        ENDLOOP.

      ENDIF.

    ENDIF.

    LOOP AT i_final.

      READ TABLE itab_zycit245 WITH KEY

                               codcomp = i_final-insumo.

      IF sy-subrc NE 0.

        CONTINUE.

      ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI040I01

...

          OVERLAY v_nritem WITH '00000'.

          itab_zycit247-nritem   = v_nritem         .

          itab_zycit247-netpr_t =

                     ( itab_zycit247-qtd_iten * itab_zycit247-netpr ).

          itab_zycit247-nrseqd   = /pws/zycie244-nrseqd.

          IF itab_zycit239-qtd_aditiv IS INITIAL.

            itab_zycit247-sdomat_e = itab_zycit239-qtd_iten.

          ELSE.

            itab_zycit247-sdomat_e = itab_zycit239-qtd_aditiv.

          ENDIF.

* >> Início da exclusão: MODULE TRATA_FORECAST

          IF /pws/zycit321-c_comum EQ 'X'.

* << Fim da exclusão

            itab_zycit247-qtd_ncm = itab_zycit247-qtd_iten.

            itab_zycit247-um_ncm  = itab_zycit247-meins  .

* >> Início da inclusão: MODULE TRATA_FORECAST

          IF /pws/zycit321-ltopc IS INITIAL.

* << Fim da inclusão

            PERFORM converte_um_ncm USING itab_zycit247-codmat

                                    CHANGING itab_zycit247-um_ncm

                                             itab_zycit247-werks

                                             itab_zycit247-qtd_ncm.

* >> Início da inclusão: MODULE TRATA_FORECAST

          ENDIF.

          IF /pws/zycit321-c_comum EQ 'X'.

* << Fim da inclusão

            READ TABLE itab_zycit247_aux

                      WITH KEY j_1bnbm = itab_zycit247-j_1bnbm.

            IF sy-subrc EQ 0.

              itab_zycit247-nritem   = itab_zycit247_aux-nritem.

            ENDIF.

            itab_zycit247-qtd_iten = itab_zycit247-qtd_ncm   .

            itab_zycit247-meins    = itab_zycit247-um_ncm    .

            CLEAR: itab_zycit247-codmat, itab_zycit247-stlal,

                   itab_zycit247-stlan, itab_zycit247-stlnr,

                   itab_zycit247-tolling.

...