Sintoma

Adicionar coluna com valores na moeda interna na pasta NCM-SUFIXOS

Solução

Adicionar coluna com valores na moeda interna na pasta NCM-SUFIXOS

Informações Complementares

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

Nota Número 10038 Data: 06/04/2010 Hora: 09:49:16

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

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

Nota Número              : 10038

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00016

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

Referência às notas relacionadas:

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

10032  - 00001 - 8.0    - 00003  - CORREÇÃO DO CALCULO DA BASE DOS IMPOSTOS.

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

ADICIONAR COLUNA COM VALORES NA MOEDA INTERNA NA PASTA NCM-SUFIXOS

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

Palavras Chave:

ADICIONAR - COLUNA - NCM - SUFIXOS - VALOR - MOEDA - INTERNA

/PWS/SAPMZYCI059

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

Objetos da nota:

REPS /PWS/MZYCI059F01

REPS /PWS/MZYCI059F02

REPS /PWS/MZYCI059F03

REPS /PWS/MZYCI059I01

REPS /PWS/MZYCI059O01

REPS /PWS/MZYCI059X01

REPT /PWS/SAPMZYCI059

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

Modificações efetuadas em REPS /PWS/MZYCI059F01

...

      IF sy-subrc NE 0.

        MOVE: itab_it-ebeln            TO wa_adic-ebeln,

              itab_it-ebelp            TO wa_adic-ebelp,

              itab_it-j_1bnbm          TO wa_adic-j_1bnbm,

              itab_it-descr            TO wa_adic-descr,

              itab_zycit403-codigo     TO wa_adic-codigo,

              itab_zycit403-base       TO wa_adic-base,

              itab_zycit403-percentual TO wa_adic-percentual,

              itab_zycit403-valorrec   TO wa_adic-valorrec,

              itab_zycit403-condicoes  TO wa_adic-condicoes.

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

        PERFORM alv_vlint CHANGING wa_adic.

* << Fim da inclusão

        SELECT SINGLE mogru FROM marc INTO wa_adic-mogru

        WHERE matnr = itab_it-matnr AND

              werks = itab_zycit003-werks.

        APPEND wa_adic TO itab_adic.

      ELSE.

        MOVE: itab_zycit403-base       TO wa_adic-base,

              itab_zycit403-percentual TO wa_adic-percentual,

              itab_zycit403-valorrec   TO wa_adic-valorrec,

              itab_zycit403-condicoes  TO wa_adic-condicoes.

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

        PERFORM alv_vlint CHANGING wa_adic.

* << Fim da inclusão

        MODIFY itab_adic FROM wa_adic INDEX sy-tabix.

      ENDIF.

    ENDLOOP.

    CLEAR itab_zycit403_i.

    REFRESH itab_zycit403_i.

  ENDIF.

  MOVE itab_it TO wa_it.

  IF NOT v_ip IS INITIAL.

    MODIFY itab_it INDEX v_ip.

  ENDIF.

...

...

    IF sy-subrc NE 0.

      MOVE: itab_zycit403-ebeln      TO wa_adic-ebeln,

            itab_zycit403-ebelp      TO wa_adic-ebelp,

            itab_it-j_1bnbm          TO wa_adic-j_1bnbm,

            itab_it-descr            TO wa_adic-descr,

            itab_zycit403-codigo     TO wa_adic-codigo,

            itab_zycit403-base       TO wa_adic-base,

            itab_zycit403-percentual TO wa_adic-percentual,

            itab_zycit403-valorrec   TO wa_adic-valorrec,

            itab_zycit403-condicoes  TO wa_adic-condicoes.

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

      PERFORM alv_vlint CHANGING wa_adic.

* << Fim da inclusão

      SELECT SINGLE mogru FROM marc INTO wa_adic-mogru

      WHERE matnr = itab_it-matnr AND

            werks = itab_zycit003-werks.

      APPEND wa_adic TO itab_adic.

    ELSE.

      MOVE: itab_zycit403-base       TO wa_adic-base,

            itab_zycit403-percentual TO wa_adic-percentual,

            itab_zycit403-valorrec   TO wa_adic-valorrec,

            itab_zycit403-condicoes  TO wa_adic-condicoes.

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

      PERFORM alv_vlint CHANGING wa_adic.

* << Fim da inclusão

      MODIFY itab_adic FROM wa_adic INDEX sy-tabix.

    ENDIF.

  ENDLOOP.

  PERFORM recarrega_alv.

  SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.

  SELECT SINGLE * FROM /pws/zycit000 INTO /pws/zycit000

                  WHERE land1 EQ t001-land1.

  PERFORM atualiza_peso_desemb.

  PERFORM lock_record.

  v_acto       = 'A'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI059F02

...

* >> Início da inclusão:

FORM alv_vlint CHANGING p_adic TYPE sufixo.

  CHECK NOT v_usd IS INITIAL.

  p_adic-valor = p_adic-valorrec * v_usd.

  p_adic-waers = /pws/zycbt007-waersb.

  PERFORM retorna_decimais USING /pws/zycbt007-waersb

                        CHANGING p_adic-valor.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI059F03

...

          IF sy-subrc NE 0.

            MOVE: itab_it-ebeln            TO wa_adic-ebeln,

                  itab_it-ebelp            TO wa_adic-ebelp,

                  itab_it-j_1bnbm          TO wa_adic-j_1bnbm,

                  itab_it-descr            TO wa_adic-descr,

                  itab_zycit403-codigo     TO wa_adic-codigo,

                  itab_zycit403-base       TO wa_adic-base,

                  itab_zycit403-percentual TO wa_adic-percentual,

                  itab_zycit403-valorrec   TO wa_adic-valorrec,

                  itab_zycit403-condicoes  TO wa_adic-condicoes.

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

            PERFORM alv_vlint CHANGING wa_adic.

* << Fim da inclusão

            SELECT SINGLE mogru FROM marc INTO wa_adic-mogru

            WHERE matnr = itab_it-matnr AND

                  werks = itab_zycit003-werks.

            APPEND wa_adic TO itab_adic.

          ELSE.

            MOVE: itab_zycit403-base       TO wa_adic-base,

                  itab_zycit403-percentual TO wa_adic-percentual,

                  itab_zycit403-valorrec   TO wa_adic-valorrec,

                  itab_zycit403-condicoes  TO wa_adic-condicoes.

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

            PERFORM alv_vlint CHANGING wa_adic.

* << Fim da inclusão

            MODIFY itab_adic FROM wa_adic INDEX sy-tabix.

          ENDIF.

          CLEAR itab_zycit403.

        ENDLOOP.

        DESCRIBE TABLE itab_zycit403 LINES v_first.

      ENDLOOP.

      SORT itab_zycit403 BY codigo.

      LOOP AT itab_zycit403.

        MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.

        COLLECT itab_zycit403t.

...

...

      afield-do_sum        = 'X'.

    ELSEIF afield-fieldname   = 'CONDICOES'.

      afield-scrtext_s     = text-232.

      afield-scrtext_m     = text-232.

      afield-scrtext_l     = text-232.

      afield-reptext  = text-232.

    ENDIF.

    MODIFY ls_fieldcatalog FROM afield TRANSPORTING col_pos key

           scrtext_s scrtext_m scrtext_l reptext do_sum.

  ENDLOOP.

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

  i = afield-col_pos + 1.

  CLEAR afield.

  afield-col_pos       = i.

  afield-fieldname     = 'VALOR'.

  afield-ref_field    = 'VALORREC'.

  afield-ref_table    = '/PWS/ZYCIE381'.

  afield-outputlen     = 13.

  afield-cfieldname    =  'WAERS'.

  afield-reptext       = text-238.

  afield-scrtext_s     = text-238.

  afield-scrtext_m     = text-238.

  afield-scrtext_l     = text-238.

  APPEND afield TO ls_fieldcatalog.

  ADD 1 TO i.

  afield-col_pos       = i.

  afield-fieldname     = 'WAERS'.

  afield-ref_field     = 'WAERSB'.

  afield-ref_table     = '/PWS/ZYCBT007'.

  afield-outputlen     = 13.

  afield-reptext       = text-233.

  afield-scrtext_s     = text-233.

  afield-scrtext_m     = text-233.

  afield-scrtext_l     = text-233.

  APPEND afield TO ls_fieldcatalog.

* << Fim da inclusão

  PERFORM sub_total.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI059I01

...

    ENDIF.

    READ TABLE itab_adic INTO wa_adic

                         WITH KEY ebeln  = itab_it-ebeln

                                  ebelp  = itab_it-ebelp

                                  codigo = itab_zycit403-codigo.

    IF sy-subrc EQ 0.

      MOVE: itab_zycit403-base       TO wa_adic-base,

            itab_zycit403-percentual TO wa_adic-percentual,

            itab_zycit403-valorrec   TO wa_adic-valorrec,

            itab_zycit403-condicoes  TO wa_adic-condicoes.

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

      PERFORM alv_vlint CHANGING wa_adic.

* << Fim da inclusão

      MODIFY itab_adic FROM wa_adic INDEX sy-tabix.

    ENDIF.

    CLEAR itab_zycit403.

  ENDLOOP.

  DESCRIBE TABLE itab_zycit403 LINES v_first.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYCI059O01

...

MODULE pbo_200 OUTPUT.

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

  DATA: v_exect TYPE c.

* << Fim da inclusão

  g_repid = sy-repid.

  IF custom_container1 IS INITIAL.

    CREATE OBJECT custom_container1

        EXPORTING

            container_name = cont_on_200.

    CREATE OBJECT grid1

           EXPORTING i_parent = custom_container1.

    PERFORM fieldcat.

    gs_layout-grid_title = text-100.

    CALL METHOD grid1->set_table_for_first_display

         EXPORTING is_layout        = gs_layout

         CHANGING  it_outtab        = itab_adic

                   it_sort          = i_sort

                   it_fieldcatalog = ls_fieldcatalog.

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

  ELSE.

    LOOP AT itab_adic INTO wa_adic

          WHERE valor EQ space

            AND valorrec NE space.

      PERFORM alv_vlint CHANGING wa_adic.

      MODIFY itab_adic FROM wa_adic.

      v_exect = 'X'.

    ENDLOOP.

    IF v_exect = 'X'.

      CALL METHOD grid1->set_table_for_first_display

       EXPORTING is_layout        = gs_layout

       CHANGING  it_outtab        = itab_adic

                 it_sort          = i_sort

                 it_fieldcatalog = ls_fieldcatalog.

    ENDIF.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI059X01

...

       ebeln      LIKE /pws/zycit003-ebeln,

       ebelp      LIKE /pws/zycit003-ebelp,

       j_1bnbm    LIKE /pws/zycit003-j_1bnbm,

       mogru      LIKE marc-mogru,

       descr      LIKE /pws/zycit003-descr,

       codigo     LIKE /pws/zycit403-codigo,

       base       LIKE /pws/zycit403-base,

       percentual LIKE /pws/zycit403-percentual,

       valorrec   LIKE /pws/zycit403-valorrec,

       condicoes  LIKE /pws/zycit403-condicoes,

* >> Início da inclusão:

       valor      LIKE /pws/zycit403-valorrec,

       waers      LIKE /pws/zycbt007-waersb,

* << Fim da inclusão

       END OF sufixo.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI059

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

Modificado símbolo de texto:

Idioma: EN

Símbolo: 022

Texto: (3 caracteres)

"day"

Comprimento máximo: 15

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

Modificado símbolo de texto:

Idioma: EN

Símbolo: 028

Texto: (16 caracteres)

"DI has Receiving"

Comprimento máximo: 22

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

Modificado símbolo de texto:

Idioma: EN

Símbolo: 231

Texto: (19 caracteres)

"Value collect (USD)"

Comprimento máximo: 50

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 231

Texto: (15 caracteres)

"Valor Rec.(USD)"

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 238

Texto: (13 caracteres)

"Value collect"

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 238

Texto: (10 caracteres)

"Valor Rec."

Comprimento máximo: 50