Sintoma

O programa está emitindo a mensagem de estouro de campo (quantidade estatística) constantemente.

Solução

Atualização do calculo da quantidade estatística.

Informações Complementares

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

Nota Número 07916 Data: 16/01/2009 Hora: 09:42:54

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

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

Nota Número              : 07916

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00081

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

Referência às notas relacionadas:

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

07734  - 00001 - 7.0    - 00007  - QUANTIDADE ESTATÍSTICA

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

CALCULO DA QUANTIDADE NA UNIDADE DE MEDIDA ESTATÍSTICA

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

Palavras Chave:

EMBARQUE UNIDADE DE MEDIDA QUANTIDADE ESTATÍSTICA

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001X01

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

ENDFORM.

FORM carrega_zycbe003.

  READ TABLE it_ekpo_aux WITH KEY ebeln = itab_zycit003-ebeln

                                  ebelp = itab_zycit003-ebelp.

  IF NOT it_ekpo_aux IS INITIAL.

    MOVE it_ekpo_aux-idnlf TO ekpo-idnlf.

  ELSE.

    MOVE itab_zycit003-idnlf TO ekpo-idnlf.

  ENDIF.

  MOVE-CORRESPONDING itab_zycit003 TO /pws/zycie003.

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

  v_qtd_item = itab_zycit003-qtd_iten.

* << Fim da exclusão

  CLEAR /pws/zycit078.

  IF NOT itab_zycit003-nrseqli IS INITIAL AND

         itab_zycit003-nrli    IS INITIAL.

    SELECT SINGLE * FROM /pws/zycit078

          WHERE nrseqli EQ itab_zycit003-nrseqli.

    IF sy-subrc EQ 0.

      IF NOT /pws/zycit078-nrli IS INITIAL.

        /pws/zycie003-nrli = /pws/zycit078-nrli.

      ENDIF.

    ENDIF.

...

...

  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 exclusão: FORM QTD_EST

  IF itab_zycit003-qtdeumest IS INITIAL OR

   v_qtd_item NE /pws/zycie003-qtd_iten.

* << Fim da exclusão

* >> 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.

    IF NOT itab_zycit003-matnr IS INITIAL .

      MOVE: itab_zycit003-qtd_iten TO itab_zycit003-qtdeumest,

            itab_zycit003-meins    TO itab_zycit003-meinsest.

      PERFORM converte_um_ncm USING itab_zycit003-matnr

                                    itab_zycit003-j_1bnbm

...

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

Modificações efetuadas em REPS /PWS/MZYCI001X01

...

      s_oserv,

      s_odtalocpr,

      i_oliffab,

      i_oemba,

      i_oqtdum,

      i_ocondm,

      i_onalad.

DATA  : wa_itb LIKE itab_zycit003,

        itab_itc  LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE,

        itab_itci LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE.

* >> Início da exclusão:

DATA v_qtd_item LIKE /pws/zycit003-qtd_iten.

* << Fim da exclusão

DATA: END OF COMMON PART a.