Sintoma

Ajustado programa de LI para tratrar o paramentro de numero de casas decimais para o peso liquido.

Solução

Ajustado programa de LI para tratrar o paramentro de numero de casas decimais para o peso liquido.

Informações Complementares

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

Nota Número 08146 Data: 06/03/2009 Hora: 15:30:28

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

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

Nota Número              : 08146

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00088

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

Referência às notas relacionadas:

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

06848  - 00001 - 7.0    - 00006  - AO SELECIONAR ITEM DA LI OCORRE DUMP

08057  - 00002 - 7.0    - 00008  - PARAMETRO DE CASAS DECIMAIS PARA RATEIO DO PESO LIQUIDO

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

TRATAMENTO PARA O PARAMETRO DE NUMERO DE CASAS DECIMAIS PARA O PESO

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

Palavras Chave:

TRATAMENTO - PARAMETRO - CASAS - DECIMAIS - PESO - LIQUIDO - NUMERO

/PWS/SAPMZYCI020

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

Objetos da nota:

DYNP /PWS/SAPMZYCI020                        0109

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020I01

REPT /PWS/SAPMZYCI020

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI020                        0109

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0109

...

PROCESS AFTER INPUT.

field /pws/zycie078-naladi module consist_naladi.

  LOOP AT it_zycit079.

    chain.

      field /pws/zycie079-qtd_iten module trata_saldo_drawback

      on chain-request.

    endchain.

* >> Início da inclusão:

    CHAIN.

      FIELD /pws/zycie079-ntgew MODULE trata_peso ON CHAIN-REQUEST.

    ENDCHAIN.

* << Fim da inclusão

    MODULE altera_it_zycit079.

  ENDLOOP.

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

      READ TABLE itab_t006 WITH KEY msehi = itab_itens_aux-gewei.

      IF sy-subrc    EQ  0 AND

         v_existe_bl NE 'S'.

        IF NOT itab_itens_aux-ntgew IS INITIAL AND

           it_zycit079-ntgew IS INITIAL AND NOT

           it_zycit079-qtd_iten IS INITIAL AND NOT

           itab_t006-nennr IS INITIAL.

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

          it_zycit079-ntgew = it_zycit079-qtd_iten *

                    ( ( itab_t006-zaehl / itab_t006-nennr ) *

                    ( 10 ** itab_t006-exp10 ) ) *

* << Fim da exclusão

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

          PERFORM calcula_peso.

* << Fim da inclusão

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

                               itab_itens_aux-ntgew.

* << Fim da exclusão

          it_zycit079-gewei = 'KG'.

        ENDIF.

      ELSE.

        READ TABLE itab_t006 WITH KEY msehi = itab_itens_aux-meins.

        IF sy-subrc    EQ  0 AND

           v_existe_bl NE 'S'.

          IF NOT itab_itens_aux-ntgew IS INITIAL AND

             it_zycit079-ntgew IS INITIAL AND NOT

             it_zycit079-qtd_iten IS INITIAL AND NOT

             itab_t006-nennr IS INITIAL.

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

            it_zycit079-ntgew = it_zycit079-qtd_iten *

                    ( ( itab_t006-zaehl / itab_t006-nennr ) *

                    ( 10 ** itab_t006-exp10 ) ) *

                                 itab_itens_aux-ntgew.

* << Fim da exclusão

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

            PERFORM calcula_peso.

* << Fim da inclusão

          ENDIF.

        ENDIF.

      ENDIF.

      it_zycit079-gewei = 'KG'.

    ENDIF.

    IF /pws/zycie078-fabricante EQ 2.

      IF it_zycit079-fabric IS INITIAL.

        it_zycit079-fabric = '2'.

      ENDIF.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

* >> Início da inclusão:

FORM calcula_peso.

  FIELD-SYMBOLS: <decimais> TYPE ANY.

  IF /pws/zycit000-rat_pes EQ 'X'.

    ASSIGN /pws/zycie003-qtd_iten TO <decimais>.

  ELSE.

    ASSIGN /pws/zycie003-ntgew TO <decimais>.

  ENDIF.

  <decimais> = it_zycit079-qtd_iten *

            ( ( itab_t006-zaehl / itab_t006-nennr ) *

            ( 10 ** itab_t006-exp10 ) ) *

                       itab_itens_aux-ntgew.

  it_zycit079-ntgew = <decimais>.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

* >> Início da inclusão:

MODULE trata_peso INPUT.

  DATA: v_ver_dec TYPE /pws/zycie006-ntgew.

  IF /pws/zycit000-rat_pes EQ 'X'.

    v_ver_dec = frac( /pws/zycie079-ntgew ) * 100000.

    v_ver_dec = frac( v_ver_dec ).

    IF v_ver_dec > 0.

      MESSAGE e015 WITH text-460.

    ENDIF.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCI020

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 460

Texto: (44 caracteres)

"Informar peso com no maximo 5 casas decimais"

Comprimento máximo: 44