Sintoma

Desembaraço DA não esta calculando Peso Liquido conforme os item do Pedido e suas unidade de medidas

Solução

Verificar a unidade de medida do pedido e calcular conforma a quantidade da DA

Informações Complementares

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

Nota Número 09869 Data: 25/02/2010 Hora: 09:56:56

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

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

Nota Número              : 09869

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00010

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DESEMBARAÇO DA NÃO ESTA CALCULANDO PESO LIQUIDO

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

Palavras Chave:

DESEMBARAÇO - DA - NÃO - CALCULANDO - PESO - LIQUIDO

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

Objetos da nota:

REPS /PWS/MZYCI070F03

REPS /PWS/MZYCI070F05

REPS /PWS/MZYCI070O01

REPS /PWS/MZYCI070TOP

REPS /PWS/MZYCI070X01

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

Modificações efetuadas em REPS /PWS/MZYCI070F03

...

    IF itab_it-qtd_itend NE '' AND v_dit = 'N'

       AND itab_it-vlreald IS INITIAL.

      itab_it-vlreald = itab_it-vlreal + ( ( v_tdif *

       itab_zycit003-ntgew / v_ntgew ) / itab_zycit003-qtd_iten ).

      IF itab_it-mandt IS INITIAL.

        itab_it-mandt = sy-mandt.

      ENDIF.

      MODIFY itab_it.

    ENDIF.

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

    READ TABLE itab_zycit443 WITH KEY

                              nrseq = itab_it-nrseq

                              ebeln = itab_it-ebeln

                              ebelp = itab_it-ebelp.

    READ TABLE itab_itens WITH KEY

                              ebeln = itab_it-ebeln

                              ebelp = itab_it-ebelp.

    CLEAR v_ntgew.

    SELECT msehi zaehl nennr exp10 FROM t006

      INTO TABLE itab_t006

      WHERE dimid = 'MASS'.

    READ TABLE itab_t006 WITH KEY msehi = itab_zycit443-gewei.

    IF sy-subrc EQ 0.

      v_ntgew = itab_it-qtd_da *

        ( ( itab_t006-zaehl / itab_t006-nennr ) *

        ( 10 ** itab_t006-exp10 ) )

         * itab_itens-ntgew.

      IF v_ntgew NE itab_it-ntgew .

        itab_it-ntgew = v_ntgew.

      ENDIF.

    ENDIF.

    MODIFY itab_it TRANSPORTING ntgew.

* << Fim da inclusão

  ENDLOOP.

  LOOP AT itab_it.

    IF p_tipo = 'I'.

      itab_it-seq = sy-tabix.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070O01

...

MODULE atualiza_peso_da OUTPUT.

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

  IF itab_zycit442-ntgew IS INITIAL.

* << Fim da inclusão

  CLEAR /pws/zycie442-ntgew.

  LOOP AT itab_it.

* >> Início da exclusão: MODULE ATUALIZA_PESO_DA

    /pws/zycie442-ntgew = /pws/zycie442-ntgew + itab_it-ntgew.

* << Fim da exclusão

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

      READ TABLE itab_itens WITH KEY

                                ebeln = itab_it-ebeln

                                ebelp = itab_it-ebelp.

      CLEAR v_ntgew.

      SELECT msehi zaehl nennr exp10 FROM t006

        INTO TABLE itab_t006

        WHERE dimid = 'MASS'.

      READ TABLE itab_t006 WITH KEY msehi = itab_it-gewei.

      IF sy-subrc EQ 0.

        v_ntgew = itab_it-qtd_da *

          ( ( itab_t006-zaehl / itab_t006-nennr ) *

          ( 10 ** itab_t006-exp10 ) )

           * itab_itens-ntgew.

            /pws/zycie442-ntgew = /pws/zycie442-ntgew + v_ntgew.

      ENDIF.

* << Fim da inclusão

  ENDLOOP.

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

  ENDIF.

* << Fim da inclusão

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070TOP

...

DATA: BEGIN OF itab_t006 OCCURS 0,

        msehi LIKE t006-msehi,

        zaehl LIKE t006-zaehl,

        nennr LIKE t006-nennr,

* >> Início da inclusão:

        exp10 LIKE t006-exp10,

* << Fim da inclusão

      END OF itab_t006.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070X01

...

* >> Início da inclusão:

DATA: v_ntgew    LIKE /pws/zycit003-ntgew.

* << Fim da inclusão

DATA: END OF COMMON PART.