Sintoma

Criado parametro para rateio do peso liquido utilizando 5 ou 6 casas decimais.

Solução

Criado parametro para rateio do peso liquido utilizando 5 ou 6 casas decimais.

Informações Complementares

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

Nota Número 08057 Data: 13/02/2009 Hora: 11:03:07

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

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

Nota Número              : 08057

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00085

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

Referência às notas relacionadas:

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

05027  - 00001 - 7.0    - 00003  - AJUSTADO RATEIO DO VALOR NA FATURA E A ATUALIZAÇÃO DO CUSTO EFETI

07529  - 00002 - 7.0    - 00007  - IMPLEMENTAÇÃO DO PROGRAMA TEMPO MÉDIO POR PROCESSO CONTROLE DE DA

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

PARAMETRO DE CASAS DECIMAIS PARA RATEIO DO PESO LIQUIDO

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

Palavras Chave:

PARAMETRO - RATEIO - PESO - LIQUIDO - CASAS - DECIMAIS - FATURA

/PWS/SAPMZYCI001 - /PWS/SAPMZYCI003 - /PWS/ZYCIT000

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

Objetos da nota:

DOMA /PWS/ZYCID182

DTEL /PWS/ZYCIL872

DYNP /PWS/SAPLZYCIGF1                        0005

DYNP /PWS/SAPLZYCIGF1                        0555

DYNP /PWS/SAPMZYCI001                        0102

DYNP /PWS/SAPMZYCI003                        0400

REPS /PWS/MZYCI001I01

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003I01

REPT /PWS/SAPMZYCI001

REPT /PWS/SAPMZYCI003

TABD /PWS/ZYCIT000

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

Modificações efetuadas em DOMA /PWS/ZYCID182

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

Domínio incluído: /PWS/ZYCID182

Descrição breve incluída (36 caracteres), idioma: PT

"GL - Nº DECIMAIS PARA RATEIO DO PESO"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 1

Comprimento de saída: 1

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo ""

Texto incluído, idioma: PT (7 caracteres):

"6 casas"

Incluído valor fixo "X"

Texto incluído, idioma: PT (7 caracteres):

"5 casas"

Incluída tabela de valores:

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

Modificações efetuadas em DTEL /PWS/ZYCIL872

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

Elemento de dados incluído: /PWS/ZYCIL872

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (50 caracteres), idioma: PT

"GL - Nº CASAS DECIMAIS PARA RATEIO DO PESO LIQUIDO"

Categoria de dados: Domínio

Domínio: /PWS/ZYCID182

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (10 caracteres), idioma: PT

"Rat.Peso L"

Comprimento máximo do denominador médio: 17

Denominador médio incluído (16 caracteres), idioma: PT

"Rat.Peso Liquido"

Comprimento máximo do denominador longo: 33

Denominador longo incluído (33 caracteres), idioma: PT

"Nº Casas para rateio peso liquido"

Comprimento máximo do título: 50

Título incluído (50 caracteres), idioma: PT

"GL - Nº CASAS DECIMAIS PARA RATEIO DO PESO LIQUIDO"

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

Modificações efetuadas em DYNP /PWS/SAPLZYCIGF1                        0005

MODIFICAR CARACTERÍSTICAS DA TELA 0005

Altura atual (linhas)    64

INCLUIR CAMPO TEXTO "/PWS/ZYCIT000-RAT_PES"

Altura                   15

Comprimento Visível      1

Linha                    63

Coluna                   24

Formato                  CHAR

Linhas mínimas           1

Texto                    _

Código função

INCLUIR TEXTO "/PWS/ZYCIT000-RAT_PES"

Comprimento Visível      17

Linha                    63

Coluna                   3

Formato                  CHAR

Texto                    Rat.Peso Liquido

Código função

MODIFICAR FRAME "VIM_FRAME_FIELD"

Altura                   62

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0005

...

    FIELD /PWS/ZYCIT000-KURST .

    FIELD /PWS/ZYCIT000-FLAG_TRANSP .

    FIELD /PWS/ZYCIT000-RAT_SEG_FOB .

    FIELD /PWS/ZYCIT000-CFOP .

    FIELD /PWS/ZYCIT000-NBANCO .

    FIELD /PWS/ZYCIT000-DIGITO .

    FIELD /PWS/ZYCIT000-COD_ANTIDUMP .

    FIELD /PWS/ZYCIT000-NEWBW .

    FIELD /PWS/ZYCIT000-FLAG_RECOF .

    FIELD /PWS/ZYCIT000-NDIAS_LEAD_TIME .

* >> Início da inclusão:

    FIELD /PWS/ZYCIT000-RAT_PES .

* << Fim da inclusão

  MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.

 endchain.

 chain.

    FIELD /PWS/ZYCIT000-LAND1 .

  module detail_pai.

 endchain.

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

Modificações efetuadas em DYNP /PWS/SAPLZYCIGF1                        0555

INCLUIR CAMPO TEXTO "/PWS/ZYCIT000-RAT_PES" em tbl.contr./tabstr.

Altura                   15

Comprimento Visível      1

Linha                    1

Coluna                   49

Formato                  CHAR

Linhas mínimas           1

Texto                    _

Código função

INCLUIR TEXTO "/PWS/ZYCIT000-RAT_PES" em tbl.contr./tabstr.

Altura                   15

Comprimento Visível      17

Linha                    1

Coluna                   49

Formato                  CHAR

Texto                    Rat.Peso Liquido

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0555

...

    FIELD /PWS/ZYCIT000-KURST .

    FIELD /PWS/ZYCIT000-FLAG_TRANSP .

    FIELD /PWS/ZYCIT000-RAT_SEG_FOB .

    FIELD /PWS/ZYCIT000-CFOP .

    FIELD /PWS/ZYCIT000-NBANCO .

    FIELD /PWS/ZYCIT000-DIGITO .

    FIELD /PWS/ZYCIT000-COD_ANTIDUMP .

    FIELD /PWS/ZYCIT000-NEWBW .

    FIELD /PWS/ZYCIT000-FLAG_RECOF .

    FIELD /PWS/ZYCIT000-NDIAS_LEAD_TIME .

* >> Início da inclusão:

    FIELD /PWS/ZYCIT000-RAT_PES .

* << Fim da inclusão

    MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.

   ENDCHAIN.

   FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.

   CHAIN.

    FIELD /PWS/ZYCIT000-LAND1 .

    MODULE LISTE_UPDATE_LISTE.

   ENDCHAIN.

 ENDLOOP.

 MODULE LISTE_AFTER_LOOP.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI001                        0102

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0102

...

            carrega_zycie003.

    MODULE exit_tela.

  endloop.

process after input.

  loop at itab_zycit003.

    chain.

      field /pws/zycie003-qtd_itend module consiste_itend

            on chain-request.

      field /pws/zycie003-qtd_iten module consiste_iten

      on request.

* >> Início da inclusão:

      FIELD /pws/zycie003-ntgew

          MODULE mod_peso_it ON CHAIN-REQUEST.

* << Fim da inclusão

    endchain.

    module altera_itab_zycit003.

  endloop.

  module: atualiza_itens,

          verifica_peso,

          user_command_0102.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI003                        0400

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0400

PROCESS BEFORE OUTPUT.

  MODULE: status_0400,

          set_screen_0400,

          exibe_detalhe,

          exit_tela.

PROCESS AFTER INPUT.

  FIELD : /pws/zycie003-agente MODULE consiste_agente,

          /PWS/ZYCIE003-LIFNRFABR module consiste_fabr.

* >> Início da inclusão:

  CHAIN.

    FIELD /pws/zycie003-ntgew

      MODULE mod_peso_it ON CHAIN-REQUEST.

  ENDCHAIN.

* << Fim da inclusão

  MODULE: altera_item,

          user_command_0400.

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

Modificações efetuadas em REPS /PWS/MZYCI001I01

...

* >> Início da inclusão:

MODULE mod_peso_it INPUT.

  DATA: v_ver_deci TYPE /pws/zycie003-ntgew.

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

    v_ver_deci = frac( /pws/zycie003-ntgew ) * 100000.

    v_ver_deci = frac( v_ver_deci ).

    IF v_ver_deci > 0.

      MESSAGE e015 WITH text-488.

    ENDIF.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

  ENDLOOP.

  IF NOT itab_zycit003[] IS INITIAL AND

  ( /pws/zycie006-tpfatura = '01' OR /pws/zycie006-tpfatura = '11' ) AND

    NOT /pws/zycie006-vlmerc IS INITIAL AND v_fob_fl IS INITIAL.

    v_vlreal = /pws/zycie006-vlmerc.

    PERFORM retorna_decimais USING /pws/zycie006-waers

                            CHANGING v_vlreal.

    IF /pws/zycie006-rateio = 'S' AND NOT /pws/zycie006-ntgew IS

 INITIAL.

      PERFORM verifica_total_itens.

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

      DESCRIBE TABLE itab_zycit003 LINES v_line.

      CLEAR: v_tot_real.

      LOOP AT itab_zycit003.

        v_tot_real = v_tot_real +

            ( itab_zycit003-vlreal * itab_zycit003-toinv ).

      ENDLOOP.

      LOOP AT itab_zycit003.

        IF sy-tabix = v_line.

          itab_zycit003-ntgew = /pws/zycie006-ntgew -  v_tot_ntgew.

          IF itab_zycit003-ntgew < 0.

            MESSAGE e015 WITH text-165 text-166.

          ENDIF.

        ELSE.

          IF NOT v_tot_real IS INITIAL.

            itab_zycit003-ntgew = /pws/zycie006-ntgew * (

                  ( itab_zycit003-vlreal * itab_zycit003-toinv ) /

                                                    v_tot_real ).

          ENDIF.

          v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.

        ENDIF.

        MODIFY itab_zycit003.

      ENDLOOP.

* << Fim da exclusão

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

      PERFORM rateio_peso.

* << Fim da inclusão

    ELSEIF /pws/zycie006-rateio = 'N'

        AND NOT /pws/zycie006-ntgew IS INITIAL

        AND sy-tcode NE '/PWS/ZYCI003_L'.

      CLEAR v_tot_frete.

      IF NOT itab_zycit003[] IS INITIAL.

        SELECT ebeln ebelp bprme twrkz ntgew

          FROM ekpo INTO TABLE itab_ekpo

          FOR ALL ENTRIES IN itab_zycit003

          WHERE ebeln = itab_zycit003-ebeln AND

                ebelp = itab_zycit003-ebelp.

...

...

* >> Início da inclusão:

FORM rateio_peso.

  DATA: v_tot_real  TYPE /pws/zycit003-netpr.

  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.

  DESCRIBE TABLE itab_zycit003 LINES v_line.

  CLEAR: v_tot_real.

  LOOP AT itab_zycit003.

    v_tot_real = v_tot_real +

        ( itab_zycit003-vlreal * itab_zycit003-toinv ).

  ENDLOOP.

  LOOP AT itab_zycit003.

    IF sy-tabix = v_line.

      itab_zycit003-ntgew = /pws/zycie006-ntgew -  v_tot_ntgew.

      IF itab_zycit003-ntgew < 0.

        MESSAGE e015 WITH text-165 text-166.

      ENDIF.

    ELSE.

      IF NOT v_tot_real IS INITIAL.

        <decimais> = /pws/zycie006-ntgew * (

              ( itab_zycit003-vlreal * itab_zycit003-toinv ) /

                                                    v_tot_real ).

        itab_zycit003-ntgew = <decimais>.

      ENDIF.

      v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.

    ENDIF.

    MODIFY itab_zycit003.

  ENDLOOP.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

MODULE verifica_peso INPUT.

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

  DATA: v_ver_dec TYPE /pws/zycie006-ntgew.

* << Fim da inclusão

  IF /pws/zycie006-tpfatura NE '11'.

    SELECT SINGLE * FROM /pws/zycit093 WHERE nrseqce =

   /pws/zycie006-nrseqce.

    IF sy-subrc = 0 AND v_prof NE 'X'.

      IF /pws/zycie006-ntgew GT /pws/zycit093-brgew.

        MESSAGE e015 WITH text-112.

      ENDIF.

    ENDIF.

  ENDIF.

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

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

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

    v_ver_dec = frac( v_ver_dec ).

    IF v_ver_dec > 0.

      MESSAGE e015 WITH text-189.

    ENDIF.

  ENDIF.

* << Fim da inclusão

ENDMODULE.

...

...

* >> Início da inclusão:

MODULE mod_peso_it INPUT.

data: v_ver_deci type /pws/zycie003-ntgew.

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

    v_ver_deci = frac( /pws/zycie003-ntgew ) * 100000.

    v_ver_deci = frac( v_ver_deci ).

    IF v_ver_deci > 0.

      MESSAGE e015 WITH text-189.

    ENDIF.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 488

Texto: (44 caracteres)

"Informar peso com no maximo 5 casas decimais"

Comprimento máximo: 44

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

Modificações efetuadas em REPT /PWS/SAPMZYCI003

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 189

Texto: (44 caracteres)

"Informar peso com no maximo 5 casas decimais"

Comprimento máximo: 44

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

Modificações efetuadas em TABD /PWS/ZYCIT000

Nome de campo   Chv Elem.dados    Tab.verif. N CtDt Comp.

...

CFOP                /PWS/ZYCIL846              CHAR     1

NBANCO              /PWS/ZYCIL849              NUMC     1

DIGITO              /PWS/ZYCIL854              CHAR     1

COD_ANTIDUMP        /PWS/ZYCIL859              CHAR     3

NEWBW               BWASL                      CHAR     3

FLAG_RECOF          /PWS/ZYCIL866              CHAR     1

NDIAS_LEAD_TIME     /PWS/ZYCIL869              NUMC     3

* >> Início da inclusão:

RAT_PES             /PWS/ZYCIL872              CHAR     1

* << Fim da inclusão