Sintoma

O programa não está atualizando os valores da pasta "Mercadoria / 2" quando os itens da LI são

alterados / excluidos ou incluídos.

Solução

Atualizado programa para atualizar valores de quantidade medida estatística, peso e valores da pasta

mercadoria 2 na alteração ou exclusão de itens.

Informações Complementares

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

Nota Número 12183 Data: 11/05/2012 Hora: 10:55:24

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

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

Nota Número              : 12183

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00011

Agrupamento              : 00113

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

07015  - 00012 - 7.0    - 00006  - UNIDADE DE MEDIDA ESTATISTICA (PEDIDOS COM CLASSIFICAÇÃO FISCAL)

10043  - 00003 - 8.0    - 00003  - CALCULAR O PESO LIQUIDO DOS ITENS APENAS QUANDO A QUANTIDADE FOR

11783  - 00004 - 8.0    - 00010  - ERRO NO VALOR DA MERCADORIA AO VINCULAR SCHEDULE AGREEMENT

11791  - 00005 - 8.0    - 00010  - ERRO NO VALOR DA MERCADORIA AO VINCULAR SCHEDULE AGREEMENT

12068  - 00006 - 8.0    - 00011  - AO INCLUIR E EXCLUIR  NOVAMENTE ITENS NÃO RECALCULA UM ESTATISTIC

12158  - 00007 - 8.0    - 00011  - DUMP AO CARREGAR PLI

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

QUANTIDADE ESTATÍSTICA VALOR TOTAL LOCAL EMBARQUE PESO LÍQUIDO

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

Palavras Chave:

/PWS/SAPMZYCI020

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

Objetos da nota:

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020I01

REPS /PWS/MZYCI020O01

REPS /PWS/MZYCI020X01

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

              WHERE nrseqli = it_zycit079_a-nrseqli

                AND tpli  = it_zycit079_a-tpli

                AND ebeln = it_zycit079_a-ebeln

                AND ebelp = it_zycit079_a-ebelp.

            ENDIF.

          ENDAT.

        ENDLOOP.

        FREE itab_zycit030_aux.

      ENDIF.

    ENDIF.

* >> Início da exclusão: FORM VERIFICA_VLTOTAL_LOCAL_EMB

    IF /pws/zycie078-vlmerc IS INITIAL.

      /pws/zycie078-vlmerc = /pws/zycie078-vlmerc +

            ( it_zycit079_a-netpr * it_zycit079_a-qtd_iten ) .

* << Fim da exclusão

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

    v_vlmerc_aux = v_vlmerc_aux +

            ( it_zycit079_a-netpr * it_zycit079_a-qtd_iten ) .

* << Fim da inclusão

  ENDLOOP.

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

  IF /pws/zycie078-vlmerc IS INITIAL OR v_atualiza EQ 'X'.

    /pws/zycie078-vlmerc = v_vlmerc_aux.

  ENDIF.

* << Fim da inclusão

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

MODULE altera_it_zycit079 INPUT.

  READ TABLE it_zycit079 INDEX tc_item-current_line.

  IF sy-subrc EQ 0 AND

     /pws/zycie079-qtd_iten NE it_zycit079-qtd_iten AND

     /pws/zycie079-ntgew    EQ it_zycit079-ntgew.

    CLEAR: /pws/zycie079-ntgew, it_zycit079-ntgew.

  ENDIF.

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

  IF sy-subrc EQ 0 AND

       /pws/zycie079-qtd_iten NE it_zycit079-qtd_iten.

    v_atualiza = 'X'.

  ENDIF.

* << Fim da inclusão

  MOVE: mark              TO it_zycit079-mark     ,

        /pws/zycie079-ebeln    TO it_zycit079-ebeln    ,

        /pws/zycie079-ebelp    TO it_zycit079-ebelp    ,

        /pws/zycie079-descr    TO it_zycit079-descr    ,

        /pws/zycie079-bednr    TO it_zycit079-bednr    ,

        /pws/zycie079-menge    TO it_zycit079-menge    ,

        /pws/zycie079-meins    TO it_zycit079-meins    ,

        /pws/zycie079-netpr    TO it_zycit079-netpr    ,

        /pws/zycie079-qtd_iten TO it_zycit079-qtd_iten ,

        /pws/zycie079-ntgew    TO it_zycit079-ntgew    ,

...

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

MODULE load_data OUTPUT.

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

  DATA v_vlmerc_aux LIKE /pws/zycit003-netpr.

* << Fim da inclusão

  DATA: flag_emp TYPE c.

  CHECK sy-ucomm NE 'MKTD'.

  CHECK sy-ucomm NE 'DKTD'.

  IF flag_emp IS INITIAL.

    GET PARAMETER ID 'BUK' FIELD v_emp.

    flag_emp = 'X'.

  ENDIF.

  IF v_tcode EQ '/PWS/ZYCI020_C' OR

     v_tcode EQ '/PWS/ZYCI020_P'.

    CLEAR v_linhas.

...

...

          IF v_novo_item EQ 'X'.

            IF NOT it_zycit079-qtd_iten IS INITIAL.

              /pws/zycie078-qtdest = /pws/zycie078-qtdest +

                                     it_zycit079-qtd_iten.

              DELETE itab_itens WHERE ebeln EQ it_zycit079-ebeln

                                AND   ebelp EQ it_zycit079-ebelp.

              CLEAR v_novo_item.

            ENDIF.

          ENDIF.

        ENDIF.

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

        IF v_atualiza EQ 'X'.

          /pws/zycie078-qtdest = v_qtdest.

          CLEAR v_atualiza.

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ELSEIF  /pws/zycie078-qtdest <> v_qtdest AND

            NOT v_novo_item IS INITIAL.

      /pws/zycie078-qtdest = v_qtdest.

      CLEAR v_novo_item.

    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.

...

...

        ENDIF.

      ENDIF.

      IF NOT it_ekpo-matnr IS INITIAL.

        PERFORM converte_um_ncm USING it_ekpo-matnr

                             CHANGING it_079_del-meins

                                      it_079_del-qtd_iten.

      ENDIF.

      IF /pws/zycie078-qtdest GE it_079_del-qtd_iten.

        /pws/zycie078-qtdest = /pws/zycie078-qtdest -

                               it_079_del-qtd_iten.

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

      ENDIF.

      IF /pws/zycie078-ntgew GE it_079_del-ntgew.

        /pws/zycie078-ntgew = /pws/zycie078-ntgew -

                               it_079_del-ntgew.

      ENDIF.

      CLEAR v_vlmerc_aux.

      v_vlmerc_aux = it_079_del-netpr * it_079_del-qtd_iten.

      IF /pws/zycie078-vlmerc GE v_vlmerc_aux.

        /pws/zycie078-vlmerc = /pws/zycie078-vlmerc - v_vlmerc_aux.

      ENDIF.

      IF /pws/zycie078-vltot GE v_vlmerc_aux.

        /pws/zycie078-vltot = /pws/zycie078-vltot - v_vlmerc_aux.

* << Fim da inclusão

      ENDIF.

      DELETE it_079_del WHERE ebeln EQ it_079_del-ebeln

                        AND   ebelp EQ it_079_del-ebelp.

    ENDLOOP.

  ELSE.

    CLEAR /pws/zycie078-qtdest.

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

    CLEAR: /pws/zycie078-vlmerc,

           /pws/zycie078-vltot ,

           /pws/zycie078-ntgew .

* << Fim da inclusão

  ENDIF.

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020X01

...

* >> Início da inclusão:

DATA v_atualiza TYPE c.

* << Fim da inclusão

DATA: END OF COMMON PART.