Sintoma

Ao criar uma DSE para mercadorias cuja unidade de medida de estoque é diferente de 'KG', o peso

liquido e o peso bruto estão incorretos. São levados para a DSE o valor na unidade de medida do

estoque sem passar por conversão para quilos (unidade de medida 'KG').

Solução

Inclusão no programa da DSE das rotinas de conversão para 'KG' quando as mercadorias possuem unidade

de medida de estoque diferente de quilo ('KG').

Informações Complementares

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

Nota Número 03590 Data: 03/05/2007 Hora: 09:45:38

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

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

Nota Número              : 03590

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00164

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

Referência às notas relacionadas:

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

01923  - 00001 - 6.0    - 00024  - VALOR TOTAL E DE PESO BRUTO ERRADOS EM DSE

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

PESO LIQUIDO E PESO BRUTO INCORRETOS NA DSE

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

Palavras Chave:

DSE, PESO LIQUIDO, PESO BRUTO, CONVERSÃO, UNIDADE DE MEDIDA, UM

NTGEW, BRGEW,

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

Objetos da nota:

REPS /PWS/MZYCE022F01

REPS /PWS/MZYCE022X01

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

Modificações efetuadas em REPS /PWS/MZYCE022F01

...

             aupos

             waers

             fkimg_r

             vrkme

             matnr

             werks

             shkzg

             vlemb

             ntgew_r

             brgew_r

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

             gewei

* << Fim da inclusão

             arktx

             steuc

       FROM /pws/zycet002

       INTO TABLE itab_002

       FOR ALL ENTRIES IN itab_zycet020

       WHERE nrseq = /pws/zycee208-nrseq

         AND auart EQ itab_zycet020-auart

         AND st_vd IN ('VD', 'DP').

    ELSE.

      PERFORM verifica_centro_filial.

...

...

      OVERLAY codnrseq WITH '000'.

      MOVE codnrseq TO itab_210-codnrseqdse.

      MOVE: sy-mandt       TO itab_210-mandt,

            /pws/zycee208-nrseqdse TO itab_210-nrseqdse,

            itab_002-vbeln_va TO itab_210-vbeln_va,

            itab_002-aupos    TO itab_210-aupos,

            itab_002-vbeln_vf TO itab_210-vbeln_vf,

            itab_002-posnr    TO itab_210-posnr,

            itab_002-vbeln_vl TO itab_210-vbeln_vl,

            itab_002-posnl    TO itab_210-posnl,

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

            itab_002-fkimg_r  TO itab_210-qtdncm,

            itab_002-ntgew_r  TO itab_210-ntgew,

            itab_002-brgew_r  TO itab_210-brgew,

            itab_002-vrkme    TO itab_210-gewei,

* << Fim da exclusão

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

            itab_002-fkimg_r  TO itab_210-qtdncm.

      IF itab_002-gewei NE 'KG'.

        PERFORM verifica_um

          USING

               itab_002-gewei

               itab_002-ntgew_r

               itab_002-brgew_r

          CHANGING

               itab_210-ntgew

               itab_210-brgew.

      ELSE.

        MOVE: itab_002-ntgew_r  TO itab_210-ntgew,

              itab_002-brgew_r  TO itab_210-brgew.

      ENDIF.

      MOVE: itab_002-vrkme    TO itab_210-gewei,

* << Fim da inclusão

            itab_002-fkimg_r  TO itab_210-qtdcomum.

      PERFORM converte_moeda_mercadoria

        USING    itab_002-nrseq

                 itab_002-waers

                 itab_002-vlemb

        CHANGING itab_210-waers

                 itab_210-vlme.

      READ TABLE itab_t604f WITH KEY steuc = itab_002-steuc.

      IF sy-subrc = 0.

        itab_210-umncm = itab_t604f-unit.

...

...

  ELSE.

    LOOP AT itab_002.

      codnrseq = codnrseq + 1.

      WRITE codnrseq TO codnrseq RIGHT-JUSTIFIED.

      OVERLAY codnrseq WITH '000'.

      MOVE codnrseq TO itab_211-codnrseqdse.

      MOVE: sy-mandt          TO itab_211-mandt,

            /pws/zycee208-nrseqdse TO itab_211-nrseqdse,

            itab_002-fkimg_r  TO itab_211-qtdbem,

            itab_002-waers    TO itab_211-waers,

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

            itab_002-vlemb    TO itab_211-vlmer,

            itab_002-brgew_r  TO itab_211-brgew,

            itab_002-vbeln_va TO itab_211-vbeln_va,

* << Fim da exclusão

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

            itab_002-vlemb    TO itab_211-vlmer.

      IF itab_002-gewei NE 'KG'.

        PERFORM verifica_um

          USING

               itab_002-gewei

               itab_002-ntgew_r

               itab_002-brgew_r

          CHANGING

               itab_210-ntgew

               itab_210-brgew.

      ELSE.

        MOVE: itab_002-brgew_r  TO itab_210-brgew.

      ENDIF.

     MOVE:  itab_002-vbeln_va TO itab_211-vbeln_va,

* << Fim da inclusão

            itab_002-aupos    TO itab_211-aupos,

            itab_002-vbeln_vf TO itab_211-vbeln_vf,

            itab_002-posnr    TO itab_211-posnr,

            itab_002-vbeln_vl TO itab_211-vbeln_vl,

            itab_002-posnl    TO itab_211-posnl.

      READ TABLE itab_t604f WITH KEY steuc = itab_002-steuc.

      IF sy-subrc = 0.

        itab_211-descr  = itab_t604f-text1.

      ENDIF.

      IF itab_002-waers = 'BRL'.

...

...

    p_subrc = sy-subrc.

  ELSE.

    SELECT COUNT(*)

      FROM /pws/zycit285

        WHERE cpf IN ( select CPF from /PWS/ZYCET184

            WHERE uname EQ sy-uname )

        AND stasis EQ 'P'.

    p_subrc = sy-subrc.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM verifica_um

    USING

        value(p_gewei)

        value(p_ntgew_r)

        value(p_brgew_r)

    CHANGING

        p_ntgew TYPE /pws/zycet002-ntgew_r

        p_brgew TYPE /pws/zycet002-brgew_r.

  DATA:  BEGIN OF itab_t006 OCCURS 0,

           msehi TYPE t006-msehi,

           zaehl TYPE t006-zaehl,

           nennr TYPE t006-nennr,

          END OF itab_t006.

  CLEAR: itab_t006,

         itab_t006[].

  SELECT msehi zaehl nennr FROM t006

     INTO TABLE itab_t006

      WHERE dimid = 'MASS'.

  IF sy-subrc IS INITIAL.

    CLEAR: p_ntgew,

           p_brgew.

    READ TABLE itab_t006 WITH KEY msehi = p_gewei.

    IF sy-subrc  EQ  0.

      p_ntgew = p_ntgew_r *  itab_t006-zaehl

                          /  itab_t006-nennr.

      p_brgew = p_brgew_r * itab_t006-zaehl

                          /  itab_t006-nennr.

    ENDIF.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCE022X01

...

       aupos    TYPE /pws/zycee002-aupos,

       waers    TYPE /pws/zycee002-waers,

       fkimg_r  TYPE /pws/zycee002-fkimg_r,

       vrkme    TYPE /pws/zycee002-vrkme,

       matnr    TYPE /pws/zycee002-matnr,

       werks    TYPE /pws/zycee002-werks,

       shkzg    type /pws/zycee002-shkzg,

       vlemb    TYPE /pws/zycee002-vlemb,

       ntgew_r  TYPE /pws/zycee002-ntgew_r,

       brgew_r  TYPE /pws/zycee002-brgew_r,

* >> Início da inclusão:

       gewei    TYPE /pws/zycee002-gewei,

* << Fim da inclusão

       arktx    TYPE /pws/zycee002-arktx,

       steuc    TYPE /pws/zycee002-steuc,

      END OF itab_002.

DATA: BEGIN OF itab_210 OCCURS 10.

        INCLUDE STRUCTURE /pws/zycet210.

DATA:   marc,

        marc2(1) TYPE c,

      END OF itab_210.

DATA: itab_210a   LIKE itab_210 OCCURS 10 WITH HEADER LINE.

DATA: e_subrc        LIKE sy-subrc.

...