Trabalhando com Caixa de Texto - CL_GUI_TEXTEDIT

REPORT z_caixa_de_texto.

*  Opa pessoal, quando vamos montar telas para os nossos queridos User
* colocamos sempre os campos da tabela que estamos trabalhando e na maioria
* das vezes só os campos mais importantes, só que as vezes esses mesmos
* users querem uma caixa de texto lateral ou abaixo das informações para
* principais para que seja possível incluir observações sobre o processo,
* documento ou qualquer outra coisa que esteja fazendo... Até aí sem problema.
*  O problema começa quando o objeto de caixa de texto não é existe na caixa
* de ferramentas da edição da screen, nesse momento vamos descobrir a usar
* a classe CL_GUI_TEXTEDIT.
*  No final contem os prints de tela.
*  Caso não lembre como ver os dados gravados em um Objeto de texto.
*  Como em todos os posts estarei fazendo os comentários no meio do código,
* bons estudos =).
DATA :
  o_docking TYPE REF TO cl_gui_docking_container,
  o_editor  TYPE REF TO cl_gui_textedit.

* Tela Principal
CALL SCREEN 9000.

*&---------------------------------------------------------------------*
*&      Module  INIT  OUTPUT
*&---------------------------------------------------------------------*
MODULE init OUTPUT.

  CREATE OBJECT o_docking
    EXPORTING
      repid = sy-repid    " Report to Which This Docking Control is Linked
      dynnr = '9000'.        " Screen to Which This Docking Control is Linked

  IF o_editor IS NOT BOUND.
* Limite do docking que conterá o textedit
    o_docking->set_extension( 400 ).
*  Criação do objeto da caixa de texto com limitações de quantidade total e
* quantidade total por linha.
    CREATE OBJECT o_editor
      EXPORTING
        max_number_chars           = 100
        parent                     = o_docking
        wordwrap_mode         = cl_gui_textedit=>wordwrap_at_fixed_position
        wordwrap_position          = 25
        wordwrap_to_linebreak_mode = cl_gui_textedit=>true.


*  Abaixo eu criei um perform para dar get e set na caixa de texto pois
* o mesmo usaria as mesmas variaveis no read_text e save_text, sendo o
* o primeiro parametro ( que nesse caso é o 'SET' como chave para o processo
* READ_TEXT -> SET_TEXT_AS_R3TABLE
    PERFORM f_get_set_text_to_editor USING 'SET' o_editor.

  ENDIF.

ENDMODULE.                 " INIT  OUTPUT

Mudando o Layout por campo do ALV - LVC_T_STYL

REPORT z_cell_style.
*  Opa Pessoal, estou devolta pra mostrar como mudar o estilo por celula,
* o modo normal hoje para deixar zebrado ou as medidas da coluna conforme
* os valores nela contido usamos a estrutura LVC_S_LAYO mas esse layout
* é para todo o relatório, mas para trabalhar por celula conforme valor,
* ou deixar aberto um campo especifico dentro do alv usando regra de negocio,
*  isso queiremos fazer hoje, como sempre o código está simples para que
* consigam focar nas diferenças de um ALV normal.

*  Aqui, logo de começo já tem uma das diferenças que é a inclusão do campos
* 'CELLTAB' dentro da tabela ´de saída que será exibida, clicando duas vezes
* no tipo do campo 'LVC_T_LAYO' vamos perceber que ele na verdade é uma tabela,
* nesse campo que é uma tabela ira conter todos os layouts referente ao registro.
* Tipos
TYPES :
  BEGIN OF ty_sflight.
        INCLUDE STRUCTURE sflight.
TYPES :
  celltab TYPE lvc_t_styl,
  END OF ty_sflight.

* Objetos
DATA :
  o_alv     TYPE REF TO cl_gui_alv_grid,
  o_docking TYPE REF TO cl_gui_docking_container.

* Tabelas Internas
DATA :
  it_fieldcat TYPE TABLE OF lvc_s_fcat,
  it_sflight  TYPE TABLE OF ty_sflight.

* Parametros
PARAMETERS :
  p_seats TYPE sflight-seatsocc,
  p_seatm TYPE sflight-seatsmax_b.

* Tela Principal com o ALV
CALL SCREEN 9000.

*&---------------------------------------------------------------------*
*&      Module  INITIALIZATION  OUTPUT
*&---------------------------------------------------------------------*
MODULE initialization OUTPUT.


  BREAK-POINT.
*  Aqui estamos criando a estrutura que ira conter as informações referente
* ao layout do ALV, a unica coisa que vamos fazer nessa estrutura e informar
* no campo 'STYLEFNAME' o nome do campo/tabela que ira conter as informações
* de layout especifico para cada campo do registro atual.
  DATA: lst_layout TYPE lvc_s_layo.
  lst_layout-no_toolbar = abap_true.
  lst_layout-stylefname = 'CELLTAB'.

  PERFORM  :
* criação do catalogo de campos
  f_fieldcat,
* Seleção dos dados do Vôo
  f_selection_sflight,
* Criação dos layouts para cada celula conforme regra
  f_style_celltab.

  IF o_docking IS INITIAL.

    CREATE OBJECT o_docking
      EXPORTING
        repid     = sy-repid    
        dynnr     = '9000'        
        extension = 9999.       " Control Extension

    CREATE OBJECT o_alv
      EXPORTING
        i_parent = o_docking.

    o_alv->set_table_for_first_display(
      EXPORTING
        is_layout                     = lst_layout
      CHANGING
        it_outtab                     = it_sflight
        it_fieldcatalog               = it_fieldcat
    ).

    o_alv->set_ready_for_input( EXPORTING i_ready_for_input = 1 ).

  ENDIF.

ENDMODULE.                 " INITIALIZATION  OUTPUT

Personalizar o autocomplete/Editor ABAP

**********************************************************************
* Bom dia, meu nome é Victor Hugo, sou desenvolvedor ABAP Senior
* e este será meu primeiro post para o blog, hoje vou somente dar uma
* dica bem simples para quem esta começando no desenvolvimento SAP.
* Eu gosto muito de automaizar as coisas que eu faço, para não ficar
* perdendo tempo, e as vezes perdemos tempo escrevendo comentários,
* códigos repetitivos, etc. Eu posso dar um exemplo simples, quando
* estamos codificando sabemos alguns autocomplete do Editor ABAP, certo ?
* Como por exemplo o CASE e LOOP. Quando digitamos aparece como abaixo:
**********************************************************************

**********************************************************************
* E se apertamos a tecla TAB, o código se completa, montando toda a sua
* estrutura, e isso acontece para N instruções. Ok, isso você já sabe,
* mas você sabe a onde é configurado ? A configuração é do próprio
* editor ABAP, basta você clicar no botão de opções, localizado no canto inferior direito
* como abaixo:
**********************************************************************

Encontrando as Rotinas de Conversões

* Fala rapaziada, hoje vou mostrar como encontrar um Rotina de conversão.
* Muitas vezes estamos usando valores de exibição e usamos ele para fazer
* seleção em alguma tabela mas esquecemos de incluir os zeros a esquerda,
* conforme o material ( MATNR ), ou o campo que é uma coisa mas na hora de
* usar como chave em outra tabela ele tem outro valor ( conforme elemento PEP
* ( PS_PSP_PNR ).

* Para encotrar é muito fácil, primeiro você clica duas vezes no elemento ou
* vai na se11 e coloca o nome do elemento na campo 'Categoria de dados' e clique
* em 'Exibir' conforme abaixo.

* Depois clique duas vezes no Domínio.