O Conhecimento

O conhecimento é inútil a menos que você o compartilhe.

quinta-feira, 21 de julho de 2011

Creating transaction code for table maintenance (SM30)

LINK PARA CRIAR TRANSAÇÃO PADRÃO PARA TELA DE MANUTENÇÃO DO SAP.

http://www.sapdev.co.uk/dictionary/tips_tabmaint_tcode.htm


sexta-feira, 15 de julho de 2011

ALV Object Model


Pessoal,

Estou encaminhando a todos uma forma bem simples de exibição de dados em ALV.

Isto ajuda muito na solução de problemas e pode agilizar muito o cronograma.


Abraço

REPORT  zmmr141 NO STANDARD PAGE HEADING
                MESSAGE-ID zmm001
                LINE-COUNT 65.
TABLES: mara, makt.

TYPES: BEGIN OF st_zmmt130,
         matnr  TYPE  zmmt130-matnr,
         maktx  TYPE  makt-maktx,
         menge  TYPE  zmmt130-menge,
         meins  TYPE  mara-meins,
         lgpbe  TYPE  zmmt130-lgpbe,
         pspnr  TYPE  zmmt130-pspnr,
       END OF st_zmmt130.

DATA:  gr_alv     TYPE REF TO cl_salv_table,
       gr_error   TYPE REF TO cx_salv_msg.

DATA:  it_zmmt130 TYPE TABLE OF st_zmmt130,
       wa_zmmt130 TYPE          st_zmmt130.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: so_matnr FOR  mara-matnr,
                so_maktx FOR  makt-maktx NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK b1.


START-OF-SELECTION.
*Seleciona somente materiais disponíveis para projeto
  SELECT zmmt130~matnr
         makt~maktx
         zmmt130~menge
         mara~meins
         zmmt130~lgpbe
         zmmt130~pspnr
  INTO TABLE it_zmmt130
  FROM zmmt130 INNER JOIN makt
    ON zmmt130~matnr = makt~matnr
    INNER JOIN mara
    ON zmmt130~matnr = mara~matnr
  WHERE zmmt130~est_disp EQ 'X'
    AND zmmt130~matnr    IN so_matnr
    AND makt~maktx       IN so_maktx
    AND makt~spras       EQ sy-langu.

*   Create instance
  TRY.
      CALL METHOD cl_salv_table=>factory
        EXPORTING
          list_display = if_salv_c_bool_sap=>false
        IMPORTING
          r_salv_table = gr_alv
        CHANGING
          t_table      = it_zmmt130.
    CATCH cx_salv_msg INTO gr_error.
      MESSAGE e000 WITH 'Não é possivel exibir o relatório!'.
  ENDTRY.
  DATA: lr_functions TYPE REF TO cl_salv_functions_list.

*Colunas do ALV OM
  DATA: lr_columns TYPE REF TO cl_salv_columns_table,
        lr_column  TYPE REF TO cl_salv_column_table.
  DATA: l_mediumtext TYPE scrtext_m.

* get columns' object
  lr_columns = gr_alv->get_columns( ).
* column LEAVES_HOME
  lr_column ?= lr_columns->get_column( columnname = 'LGPBE' ).
* use compatible data object to avoid runtime error
  l_mediumtext = text-002. " Localização
* set short text
  lr_column->set_medium_text( value = l_mediumtext ).

  lr_functions = gr_alv->get_functions( ).
*  lr_functions->set_default( abap_true ).
  lr_functions->set_all( abap_true ).

  gr_alv->display( ).

quinta-feira, 14 de julho de 2011

SmartForm com Editor WORD

Transação: I18N

Transação para mudar o editor de sapscript e smartform para o winword.



 
Blogger Templates