Sintoma

Ao alterar a quantidade na UM Estatística na DI, o sistema permite esta alteração (já que o campo é

aberto), mas ao sair e entrar na DI novamente, o campo volta com o valor original, calculado na

função de conversão de UM estatística.

Solução

Atualiazação no programa de embarque para calcular a quantidade estatistica do item do pedido apenas

quando não estiver preenchida e fechamento do campo quantidade estatística na DI.

Informações Complementares

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

Nota Número 03400 Data: 05/04/2007 Hora: 10:29:31

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

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

Nota Número              : 03400

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00160

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

Referência às notas relacionadas:

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

02878  - 00001 - 6.0    - 00026  - AJUSTE NA CONVERSÃO DA QUANTIDADE NA UM ESTATISTICA NO EMBARQUE

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

SALVAR ALTERAÇÃO REALIZADA NA QUANTIDADE ESTATISTICA

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

Palavras Chave:

QUANTIDADE - ESTATISTICA - ALTERAÇÃO - SALVAR - EMBARQUE

/PWS/SAPMZYCI001

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0411

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI003F01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0411

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

*Campos modificados:

*De.

   /PWS/ZYCIE003-QTDEUMEST

      I/O        8       15      18      17       1     QUAN   X               Off

      AC

      Alinh.à dir.

*Para.

   /PWS/ZYCIE003-QTDEUMEST

      I/O        8       15      18      17       1     QUAN   X               Off

      Alinh.à dir.

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

  ENDIF.

  MOVE: space TO itab_zycit003-nrseqlsi   ,

        space TO itab_zycit003-nrlsisub   ,

        space TO itab_zycit003-nrlsi      .

  MODIFY itab_zycit003.

  MESSAGE s015 WITH text-115.

ENDFORM.

FORM qtd_est.

  CHECK sy-tcode EQ '/PWS/ZYCI001_C'

  OR sy-tcode EQ '/PWS/ZYCI001_A'.

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

  IF itab_zycit003-qtdeumest IS INITIAL.

* << Fim da inclusão

  IF t001-land1 IS INITIAL.

    SELECT SINGLE *

    FROM t001

    WHERE bukrs = /pws/zycie001-bukrs.

  ENDIF.

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

  IF NOT itab_zycit003-matnr IS INITIAL.

* << Fim da exclusão

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

    IF NOT itab_zycit003-matnr IS INITIAL .

* << Fim da inclusão

    MOVE: itab_zycit003-qtd_iten TO itab_zycit003-qtdeumest,

          itab_zycit003-meins    TO itab_zycit003-meinsest.

    PERFORM converte_um_ncm USING itab_zycit003-matnr

                         CHANGING itab_zycit003-meinsest

                                  itab_zycit003-qtdeumest.

    /pws/zycie003-qtdeumest = itab_zycit003-qtdeumest.

  ENDIF.

  v_flag_qtdest = 'X'.

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

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM verifica_mat_cent TABLES  p_it_ekpo STRUCTURE it_ekpo.

  DATA: cacl_matnr     LIKE ekpo-matnr        ,

        cacl_werks     LIKE ekpo-werks        .

  LOOP AT p_it_ekpo.

    IF cacl_matnr IS INITIAL.

      cacl_matnr = p_it_ekpo-matnr.

    ENDIF.

    IF cacl_werks IS INITIAL.

      cacl_werks = p_it_ekpo-werks.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

  ENDIF.

ENDFORM.

FORM custeando_despesa_inco.

  DATA: v_totdesp LIKE /pws/zycit036-vlreal  ,

        v_tot     LIKE /pws/zycit036-vlreal  ,

        v_real_acum LIKE /pws/zycit036-vlreal,

        v_real_dif  LIKE /pws/zycit036-vlreal.

  DATA itab_zycit036_plan LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE.

  IF ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ).

    PERFORM fill_nrseq_pgfat.

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

    IF sy-tcode EQ '/PWS/ZYCI003_C'.

      LOOP AT itab_zycit003.

        IF NOT itab_zycit003-j_1bnbm IS INITIAL.

          SELECT SINGLE *

                 FROM t604f

                 WHERE steuc EQ itab_zycit003-j_1bnbm.

          IF sy-subrc EQ 0.

            IF t604f-/pws/zum EQ '10'.

              itab_zycit003-qtdeumest = itab_zycit003-ntgew.

              MODIFY itab_zycit003.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDLOOP.

    ENDIF.

* << Fim da exclusão

    LOOP AT itab_zycit003_ini.

      READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit003_ini-nrseq

                                        ebeln = itab_zycit003_ini-ebeln

                                        ebelp = itab_zycit003_ini-ebelp.

      IF sy-subrc NE 0.

        CLEAR: itab_zycit003_ini-vlreal, itab_zycit003_ini-vlmov,

               itab_zycit003_ini-nrseq_pgfat, itab_zycit003_ini-livre.

        MOVE-CORRESPONDING itab_zycit003_ini TO /pws/zycit003.

        MODIFY /pws/zycit003.

        DELETE FROM /pws/zycit036

...