Sintoma

Inclusão de botões de ordenação e posicionamento no Ato Concessório.

Solução

Inclusão de botões de ordenação e posicionamento no Ato Concessório.

Informações Complementares

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

Nota Número 07861 Data: 06/01/2009 Hora: 10:13:01

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

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

Nota Número              : 07861

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00080

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

Referência às notas relacionadas:

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

03129  - 00001 - 6.0    - 00026  - CRIADA EXIT "ATO003"

07018  - 00002 - 7.0    - 00006  - ADITIVO

07112  - 00003 - 7.0    - 00006  - COMPRAS NO MERCADO INTERNO PARA DRAWBACK SUSPENSÃO

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

INCLUSÃO DE BOTÕES DE ORDENAÇÃO E POSICIONAMENTO NO ATO CONCESSÓRIO

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

Palavras Chave:

ATO CONCESSÓRIO ORDENAÇÃO POSICIONAMENTO BOTÕES

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

Objetos da nota:

DYNP /PWS/SAPMZYCI040                        0204

DYNP /PWS/SAPMZYCI040                        0207

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI040I01

REPS /PWS/MZYCI040TOP

REPS /PWS/MZYCI040X01

REPT /PWS/SAPMZYCI040

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI040                        0204

INCLUIR BOTÃO "BTN204_1"

Altura                   2

Comprimento Visível      45

Linha                    5

Coluna                   2

Formato                  CHAR

Texto                    @3E\QOrdenação crescente@ Ordenação crescente

Código função            CRESC

INCLUIR BOTÃO "BTN204_2"

Altura                   2

Comprimento Visível      26

Linha                    5

Coluna                   5

Formato                  CHAR

Texto                    @3F@ Ordenação decrescente

Código função            DECRE

INCLUIR BOTÃO "BTN204_3"

Altura                   2

Comprimento Visível      27

Linha                    5

Coluna                   8

Formato                  CHAR

Texto                    @13\QPosicionar@ Posicionar

Código função            POSI

MODIFICAR CONTROLE DE TABELA "TC_REALIZI"

Altura                   7

Comprimento Visível      105

Linha                    6

Coluna                   2

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI040                        0207

INCLUIR BOTÃO "BTN207_1"

Altura                   2

Comprimento Visível      25

Linha                    5

Coluna                   2

Formato                  CHAR

Texto                    @3E\QOrdenação crescente@

Código função            CRESC

INCLUIR BOTÃO "BTN207_2"

Altura                   2

Comprimento Visível      6

Linha                    5

Coluna                   5

Formato                  CHAR

Texto                    @3F@

Código função            DECRE

INCLUIR BOTÃO "BTN207_3"

Altura                   2

Comprimento Visível      27

Linha                    5

Coluna                   8

Formato                  CHAR

Texto                    @13\QPosicionar@ Posicionar

Código função            POSI

MODIFICAR CONTROLE DE TABELA "TC_REALIZE"

Altura                   9

Linha                    6

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

  SELECT * FROM stxl INTO TABLE itab_stxl

         WHERE relid    EQ   'TX'

           AND tdobject EQ   '/PWS/CIACO'

           AND tdname   LIKE v_name

           AND tdid     EQ   'ZYCI'

           AND tdspras  EQ   'P '.

  SORT itab_stxl BY tdname DESCENDING.

  READ TABLE itab_stxl INDEX 1.

  v_aditivo = itab_stxl-tdname+10(5) + 1.

ENDFORM.

* >> Início da inclusão:

form trata_posi_exp.

  LOOP AT itab_zycit248 WHERE vbeln_va   IN so_va

                        AND   aupos      IN so_aupos

                        AND   vbeln_vl   IN so_vl

                        AND   posnl      IN so_posnl

                        AND   vbeln_vf   IN so_vf

                        AND   posnr      IN so_posnr

                        AND   nrseq      IN so_nrseq

                        AND   nrseqre    IN so_seqre

                        AND   nrre       IN so_nrre.

    v_tabix = sy-tabix.

  ENDLOOP.

  IF sy-subrc = 0.

    tc_realize-top_line = v_tabix.

    nextline = v_tabix.

    LEAVE TO SCREEN  0 .

  ELSE.

    MESSAGE s015 WITH text-346.

  ENDIF.

endform.

form trata_posi_imp.

  LOOP AT itab_zycit246 WHERE ebeln   IN so_ebeln

                        AND   ebelp   IN so_ebelp

                        AND   nrseq   IN so_seqi

                        AND   nrseqdi IN so_seqdi

                        AND   nrdi    IN so_nrdi

                        AND   nrseqli IN so_seqli

                        AND   nrli    IN so_nrli.

    v_tabix = sy-tabix.

  ENDLOOP.

  IF sy-subrc = 0.

    tc_realizi-top_line = v_tabix.

    nextline = v_tabix.

    LEAVE TO SCREEN  0 .

  ELSE.

    MESSAGE s015 WITH text-346.

  ENDIF.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI040I01

...

    WHEN 'FIRST'.

      PERFORM check_button_first_0204.

    WHEN 'PRIOR'.

      PERFORM check_button_prior_0204.

    WHEN 'NEXT'.

      PERFORM check_button_next_0204.

    WHEN 'LAST'.

      PERFORM check_button_last_0204.

    WHEN 'SELE'.

      PERFORM trata_selecao2.

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

    WHEN 'CRESC'.

      CLEAR: v_ordena.

      LOOP AT tc_realizi-cols INTO wa_cols

                   WHERE selected EQ 'X'.

        v_ordena = wa_cols-screen-name+14 .

      ENDLOOP.

      IF NOT v_ordena IS INITIAL.

        SORT itab_zycit246 ASCENDING BY (v_ordena).

      ENDIF.

    WHEN 'DECRE'.

      CLEAR: v_ordena.

      LOOP AT tc_realizi-cols INTO wa_cols

                   WHERE selected EQ 'X'.

        v_ordena = wa_cols-screen-name+14 .

      ENDLOOP.

      IF NOT v_ordena IS INITIAL.

        SORT itab_zycit246 DESCENDING BY (v_ordena).

      ENDIF.

    WHEN 'POSI'.

      IF sy-dynnr EQ '0204'.

        CALL SELECTION-SCREEN 0603 STARTING AT 3 5.

      ENDIF.

* << Fim da inclusão

  ENDCASE.

ENDMODULE.

MODULE preenche_itab_zycit248 INPUT.

  itab_zycit248-nrseqd     = /pws/zycie248-nrseqd    .

  itab_zycit248-codmat     = /pws/zycie248-codmat    .

  itab_zycit248-vbeln_va   = /pws/zycie248-vbeln_va  .

  itab_zycit248-vbeln_vl   = /pws/zycie248-vbeln_vl  .

  itab_zycit248-posnl      = /pws/zycie248-posnl     .

  itab_zycit248-nrseq      = /pws/zycie248-nrseq     .

  itab_zycit248-steuc      = /pws/zycie248-steuc     .

...

...

    WHEN 'FIRST'.

      PERFORM check_button_first_0207.

    WHEN 'PRIOR'.

      PERFORM check_button_prior_0207.

    WHEN 'NEXT'.

      PERFORM check_button_next_0207.

    WHEN 'LAST'.

      PERFORM check_button_last_0207.

    WHEN 'SELE'.

      PERFORM trata_selecao2.

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

    WHEN 'CRESC'.

      CLEAR: v_ordena.

      LOOP AT tc_realize-cols INTO wa_cols

                   WHERE selected EQ 'X'.

        v_ordena = wa_cols-screen-name+14 .

      ENDLOOP.

      IF NOT v_ordena IS INITIAL.

        SORT itab_zycit248 ASCENDING BY (v_ordena).

      ENDIF.

    WHEN 'DECRE'.

      CLEAR: v_ordena.

      LOOP AT tc_realize-cols INTO wa_cols

                   WHERE selected EQ 'X'.

        v_ordena = wa_cols-screen-name+14 .

      ENDLOOP.

      IF NOT v_ordena IS INITIAL.

        SORT itab_zycit248 DESCENDING BY (v_ordena).

      ENDIF.

    WHEN 'POSI'.

      IF sy-dynnr EQ '0207'.

        CALL SELECTION-SCREEN 0602 STARTING AT 3 5.

      ENDIF.

* << Fim da inclusão

  ENDCASE.

ENDMODULE.

MODULE trata_qtde_nacionalizada INPUT.

  DATA:

        v_baseimp LIKE /pws/zycie085-vlfob     ,

        v_txmulta LIKE /pws/zycie085-vlfob     ,

        v_propor  TYPE p DECIMALS 14           ,

        v_datatx  LIKE /pws/zycit246-dtdi      .

  READ TABLE itab_zycit246 INDEX tc_nacion-current_line.

  IF sy-subrc EQ 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCI040TOP

...

DATA: END OF itab_forms.

DATA: BEGIN OF itab_mess_un OCCURS 0.

DATA: meins LIKE /pws/zycit245-meins,

      matnr LIKE /pws/zycit003-matnr.

DATA: END OF itab_mess_un.

DATA: toolbar_container1 TYPE REF TO cl_gui_custom_container,

      tool_container1    TYPE        scrfname VALUE 'BTN1'  ,

      myevent_tab        TYPE        cntl_simple_events     ,

      myevent            TYPE        cntl_simple_event      ,

      btn1               TYPE REF TO cl_gui_toolbar         .

* >> Início da inclusão:

SELECTION-SCREEN BEGIN OF SCREEN 0602.

SELECT-OPTIONS:

  so_va         FOR /pws/zycie248-vbeln_va

                NO INTERVALS NO-EXTENSION,

  so_aupos      FOR /pws/zycie248-aupos

                NO INTERVALS NO-EXTENSION,

  so_vl         FOR /pws/zycie248-vbeln_vl

                NO INTERVALS NO-EXTENSION,

  so_posnl      FOR /pws/zycie248-posnl

                NO INTERVALS NO-EXTENSION,

  so_vf         FOR /pws/zycie248-vbeln_vf

                NO INTERVALS NO-EXTENSION,

  so_posnr      FOR /pws/zycie248-posnr

                NO INTERVALS NO-EXTENSION,

  so_nrseq      FOR /pws/zycie248-nrseq

                NO INTERVALS NO-EXTENSION,

  so_seqre      FOR /pws/zycie248-nrseqre

                NO INTERVALS NO-EXTENSION,

  so_nrre       FOR /pws/zycie248-nrre

                NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN END OF SCREEN 0602.

SELECTION-SCREEN BEGIN OF SCREEN 0603.

SELECT-OPTIONS:

  so_ebeln      FOR /pws/zycie246-ebeln

                NO INTERVALS NO-EXTENSION,

  so_ebelp      FOR /pws/zycie246-ebelp

                NO INTERVALS NO-EXTENSION,

  so_seqi       FOR /pws/zycie246-nrseq

                NO INTERVALS NO-EXTENSION,

  so_seqdi      FOR /pws/zycie246-nrseqdi

                NO INTERVALS NO-EXTENSION,

  so_nrdi       FOR /pws/zycie246-nrdi

                NO INTERVALS NO-EXTENSION,

  so_seqli      FOR /pws/zycie246-nrseqli

                NO INTERVALS NO-EXTENSION,

  so_nrli       FOR /pws/zycie246-nrli

                NO INTERVALS NO-EXTENSION.

SELECTION-SCREEN END OF SCREEN 0603.

AT SELECTION-SCREEN.

  CASE sy-dynnr .

    WHEN '0602'.

      PERFORM trata_posi_exp.

    WHEN '0603'.

      PERFORM trata_posi_imp.

  ENDCASE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI040X01

...

     v_nratoc       TYPE /pws/zycie244-nratoc       ,

     v_listc                                        ,

     v_sld_compv TYPE p DECIMALS 5,

     v_sld_compv2 TYPE p DECIMALS 5,

     v_icoreal1         TYPE icons-text,

       vltot_brl LIKE /pws/zycie246-vltot,

      v_tcode2           LIKE sy-tcode              .

DATA: v_icorealiz        TYPE icons-text   .

DATA: v_txtfrete(20) TYPE C   .

DATA: v_txtseguro(20) TYPE C   .

* >> Início da inclusão:

DATA v_ordena(132) TYPE c.

* << Fim da inclusão

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPT /PWS/SAPMZYCI040

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 346

Texto: (20 caracteres)

"Item não encontrado!"

Comprimento máximo: 20

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_AUPOS

Texto: (27 caracteres)

"Item Ordem de Venda"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_EBELN

Texto: (14 caracteres)

"Pedido"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_EBELP

Texto: (19 caracteres)

"Item Pedido"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_NRDI

Texto: (17 caracteres)

"Número DI"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_NRLI

Texto: (17 caracteres)

"Número LI"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_NRRE

Texto: (17 caracteres)

"Número RE"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_NRSEQ

Texto: (25 caracteres)

"Nr. Seq. Embarque"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_POSNL

Texto: (25 caracteres)

"Item Fornecimento"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_POSNR

Texto: (24 caracteres)

"Item Faturamento"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_SEQDI

Texto: (19 caracteres)

"Nr. Seq. DI"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_SEQI

Texto: (25 caracteres)

"Nr. Seq. Embarque"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_SEQLI

Texto: (19 caracteres)

"Nr. Seq. LI"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_SEQRE

Texto: (19 caracteres)

"Nr. Seq. RE"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_VA

Texto: (22 caracteres)

"Ordem de Venda"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_VF

Texto: (19 caracteres)

"Faturamento"

Referência ao Dictionary: NÃO

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

Incluído texto de seleção:

Idioma: PT

Variável (SELECT-OPTION / PARAMETER): SO_VL

Texto: (20 caracteres)

"Fornecimento"

Referência ao Dictionary: NÃO