Sintoma

Programa não verifica peso líquido e quantidade estatísica da DA. Não está com a conversão correta

entre TO e KG

Solução

Verificar conversão de valores.

Informações Complementares

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

Nota Número 10860 Data: 28/12/2010 Hora: 16:34:05

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

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

Nota Número              : 10860

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00006

Agrupamento              : 00052

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

Referência às notas relacionadas:

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

09996  - 00001 - 8.0    - 00003  - DESEMBARAÇO DA ESTA COM PROBLEMA NA GRAVAÇÃO DO PESO

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

DA NÃO CONVERTE PESO LÍQUIDO / UNIDADE DE MEDIDA ESTATÍSTICA

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

Palavras Chave:

PESO LÍQUIDO - UNIDADE DE MEDIDA ESTATÍSTICA - CONVERSÃO

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

Objetos da nota:

REPS /PWS/MZYCI070F01

REPS /PWS/MZYCI070F02

REPS /PWS/MZYCI070F03

REPS /PWS/MZYCI070I01

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

Modificações efetuadas em REPS /PWS/MZYCI070F01

...

    CLEAR itab_it.

    READ TABLE itab_it

      WITH KEY nrseq   = itab_zycit003-nrseq

               ebeln   = itab_zycit003-ebeln

               ebelp   = itab_zycit003-ebelp.

    v_sub = sy-subrc.

    v_idx = sy-tabix.

    IF v_sub NE 0.

      MOVE-CORRESPONDING itab_zycit003 TO itab_it.

    ENDIF.

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

    READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln

                                  ebelp = itab_it-ebelp.

    IF sy-subrc eq 0.

      itab_it-meinsest = itab_ekpo-lmein.

    ENDIF.

* << Fim da inclusão

    itab_it-meinscom  = itab_zycit003-meins.

    itab_it-basred    = itab_zycit003-basred.

    itab_it-vlreal    = itab_zycit003-vlreal.

    itab_it-nrseqda   = /pws/zycie442-nrseqda.

    itab_it-waersreal = wa_zycbt007-waersb.

    itab_it-waersbem = itab_zycit003-waers_real.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070F02

...

FORM qtd_est.

  CHECK sy-tcode EQ '/PWS/ZYCI070_C'.

  CHECK /pws/zycie443a-qtdeumest IS INITIAL.

  CASE t_zzum.

    WHEN '11' OR

         '17' OR

         '20'.

      /pws/zycie443a-qtdeumest = /pws/zycie443a-qtd_iten.

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

      IF /pws/zycie443a-meins NE 'KG'.

        CALL FUNCTION '/PWS/COVERT_UN_MATERIAL'

             EXPORTING

                  matnr                = /pws/zycie443a-matnr

                  meins                = 'KG'

                  qtde                 = /pws/zycie443a-qtdeumest

                  conv                 = ' '

                  land                 = t001-land1

                  ncm                  = /pws/zycie443a-j_1bnbm

             IMPORTING

                  qtds                 = /pws/zycie443a-qtdeumest

                  un_s                 = /pws/zycie443a-meinsest

             EXCEPTIONS

                  conversion_not_found = 1

                  ncm_not_found        = 2

                  overflow             = 3

                  un_ncm_not_found     = 4

                  material_not_found   = 5

                  OTHERS               = 6.

        IF sy-subrc <> 0.

        ENDIF.

      ENDIF.

* << Fim da inclusão

    WHEN '10'.

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

      CLEAR v_ntgew.

      SELECT msehi zaehl nennr exp10 FROM t006

        INTO TABLE itab_t006

        WHERE dimid = 'MASS'.

      READ TABLE itab_t006 WITH KEY msehi = /pws/zycie443a-gewei.

      IF sy-subrc EQ 0.

        v_ntgew = itab_it-qtd_da *

          ( ( itab_t006-zaehl / itab_t006-nennr ) *

          ( 10 ** itab_t006-exp10 ) )

           * /pws/zycie443a-ntgew.

        IF v_ntgew NE /pws/zycie443a-ntgew .

          /pws/zycie443a-ntgew = v_ntgew.

        ENDIF.

      ENDIF.

* << Fim da inclusão

      /pws/zycie443a-qtdeumest = /pws/zycie443a-ntgew.

  ENDCASE.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070F03

...

FORM ajusta_peso_da.

  DATA w_proporcao(9) TYPE p DECIMALS 9.

  w_proporcao = itab_it-qtd_iten / itab_it-menge * 100.

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

  itab_it-ntgew = v_qtd_da * w_proporcao / 100.

  IF itab_it-meins NE 'KG'.

    CALL FUNCTION '/PWS/COVERT_UN_MATERIAL'

         EXPORTING

              matnr                = itab_it-matnr

              meins                = itab_it-meins

              meins_p              = 'KG'

              qtde                 = itab_it-ntgew

              conv                 = ' '

              land                 = t001-land1

         IMPORTING

              qtds                 = itab_it-ntgew

         EXCEPTIONS

              conversion_not_found = 1

              ncm_not_found        = 2

              overflow             = 3

              un_ncm_not_found     = 4

              material_not_found   = 5

              OTHERS               = 6.

    IF sy-subrc <> 0.

    ENDIF.

  ENDIF.

* << Fim da inclusão

ENDFORM.

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

Modificações efetuadas em REPS /PWS/MZYCI070I01

...

MODULE saldo_online_da INPUT.

  PERFORM saldo_online_da.

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

  perform ajusta_peso_da.

* << Fim da inclusão

...