Sintoma

Na alteração da DA esta com problema na gravação do Peso. E no Draft esta cortando a descrição do

Material

Solução

Ajustar o calculo de Peso e aumentar o campo do Draft para o Material

Informações Complementares

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

Nota Número 09996 Data: 24/03/2010 Hora: 13:36:48

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

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

Nota Número              : 09996

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00014

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

Referência às notas relacionadas:

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

09869  - 00001 - 8.0    - 00002  - DESEMBARAÇO DA NÃO ESTA CALCULANDO PESO LIQUIDO

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

DESEMBARAÇO DA ESTA COM PROBLEMA NA GRAVAÇÃO DO PESO

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

Palavras Chave:

DESEMBARAÇO - DA - GRAVAÇÃO - PESO

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

Objetos da nota:

REPS /PWS/MZYCI070F01

REPS /PWS/MZYCI070F03

REPS /PWS/MZYCI070O01

REPS /PWS/ZYCIR332

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

Modificações efetuadas em REPS /PWS/MZYCI070F01

...

FORM loading_all.

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

  DATA: vv_ntgew LIKE /pws/zycit443-ntgew.

* << Fim da inclusão

...

...

    SELECT *

      INTO TABLE itab_zycit003

      FROM /pws/zycit003

      FOR ALL ENTRIES IN itab_zycit443

      WHERE nrseq EQ itab_zycit443-nrseq

        AND ebeln EQ itab_zycit443-ebeln

        AND ebelp EQ itab_zycit443-ebelp.

    v_calci = 'S'.

    LOOP AT itab_zycit443.

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

      CLEAR: vv_ntgew.

      SELECT SINGLE ntgew

      INTO vv_ntgew

      FROM /pws/zycit443

      WHERE nrseqda EQ itab_zycit443-nrseqda

        AND nrseq EQ itab_zycit443-nrseq

        AND ebeln EQ itab_zycit443-ebeln

        AND ebelp EQ itab_zycit443-ebelp.              "#EC CI_NOFIRST

      IF vv_ntgew IS INITIAL.

        READ TABLE itab_ekpo

        WITH KEY ebeln = itab_zycit443-ebeln

                 ebelp = itab_zycit443-ebelp.

        vv_ntgew = itab_ekpo-ntgew.

      ENDIF.

      itab_zycit443-ntgew = vv_ntgew.

      MODIFY itab_zycit443 INDEX sy-tabix TRANSPORTING ntgew.

* << Fim da inclusão

      IF NOT v_tcode EQ '/PWS/ZYCI070_E' .

...

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

Modificações efetuadas em REPS /PWS/MZYCI070F03

...

                              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.

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

    IF sy-subrc EQ 0.

* << Fim da exclusão

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

    IF sy-subrc EQ 0 AND itab_zycit443-ntgew IS INITIAL.

* << Fim da inclusão

      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.

  ENDLOOP.

...

...

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

  itab_it-ntgew = v_qtd_da * w_proporcao / 100.

* << Fim da exclusão

ENDFORM.

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

Modificações efetuadas em REPS /PWS/ZYCIR332

...

FORM pag3.

...

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

  DATA:   v_descric LIKE itab_zycit443-descr.

* << Fim da exclusão

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

  DATA:   v_descric(95) TYPE C.

* << Fim da inclusão

...