sap türkiye forum

www.abapway.com/forum

sap danismanlarini bulusma yeri.

moved new site

abapway.com

Desktop Office Integration (BC-CI)

Desktop Office Integration (BC-CI)

Call word document abap

*&---------------------------------------------------------------------*
*& Report ZSLY_0024
*&word dosyası açma sap abap
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSLY_0024.

*--Include for OLE-enabling definitions
INCLUDE OLE2INCL .
*--Global variables
*--Variables to hold OLE object and entity handles
DATA GS_WORD TYPE OLE2_OBJECT . "OLE object handle
DATA GS_DOCUMENTS TYPE OLE2_OBJECT . "Documents
DATA GS_ACTDOC TYPE OLE2_OBJECT . "Active document
DATA GS_APPLICATION TYPE OLE2_OBJECT . "Application
DATA GS_OPTIONS TYPE OLE2_OBJECT . "Application options
DATA GS_ACTWIN TYPE OLE2_OBJECT . "Active window
DATA GS_ACTPAN TYPE OLE2_OBJECT . "Active pane
DATA GS_VIEW TYPE OLE2_OBJECT . "View
DATA GS_SELECTION TYPE OLE2_OBJECT . "Selection
DATA GS_FONT TYPE OLE2_OBJECT . "Font
DATA GS_PARFORMAT TYPE OLE2_OBJECT . "Paragraph format
DATA GS_TABLES TYPE OLE2_OBJECT . "Tables
DATA GS_RANGE TYPE OLE2_OBJECT . "Range handle for various ranges
DATA GS_TABLE TYPE OLE2_OBJECT . "One table
DATA GS_TABLE_BORDER TYPE OLE2_OBJECT . "Table border
DATA GS_CELL TYPE OLE2_OBJECT . "One cell of a table
DATA GS_PARAGRAPH TYPE OLE2_OBJECT . "Paragraph
DATA GV_POS(5) TYPE N . "Position information for table

CREATE OBJECT GS_WORD 'WORD.APPLICATION' .

IF SY-SUBRC NE 0.
MESSAGE S000(SU) WITH 'Error while creating OLE object!'.
LEAVE PROGRAM .
ENDIF .

*--Setting object's visibility property
SET PROPERTY OF GS_WORD 'Visible' = '1' .
*--Opening a new document
GET PROPERTY OF GS_WORD 'Documents' = GS_DOCUMENTS .
CALL METHOD OF GS_DOCUMENTS 'Add' .
*--Getting active document handle
GET PROPERTY OF GS_WORD 'ActiveDocument' = GS_ACTDOC .
*--Getting applications handle
GET PROPERTY OF GS_ACTDOC 'Application' = GS_APPLICATION .

*--Setting the measurement unit
GET PROPERTY OF GS_APPLICATION 'Options' = GS_OPTIONS .
SET PROPERTY OF GS_OPTIONS 'MeasurementUnit' = '1' . "CM

*--Getting handle for the selection which is here the character at the
*--cursor position
GET PROPERTY OF GS_APPLICATION 'Selection' = GS_SELECTION .
GET PROPERTY OF GS_SELECTION 'Font' = GS_FONT .
GET PROPERTY OF GS_SELECTION 'ParagraphFormat' = GS_PARFORMAT .
*--Setting font attributes
SET PROPERTY OF GS_FONT 'Name' = 'Arial' .
SET PROPERTY OF GS_FONT 'Size' = '10' .
SET PROPERTY OF GS_FONT 'Bold' = '0' . "Not bold
SET PROPERTY OF GS_FONT 'Italic' = '1' . "Italic
SET PROPERTY OF GS_FONT 'Underline' = '0' . "Not underlined

*--Setting paragraph format attribute
SET PROPERTY OF GS_PARFORMAT 'Alignment' = '2' . "Right-justified
CALL METHOD OF GS_SELECTION 'TypeText'
EXPORTING
#1 = 'This is an OLE example!'.

*--Setting the view to the main document again
SET PROPERTY OF GS_VIEW 'SeekView' = '0' . "Main document view

*--Reseting font attributes for the title
SET PROPERTY OF GS_FONT 'Name' = 'Times New Roman' .
SET PROPERTY OF GS_FONT 'Size' = '16' .
SET PROPERTY OF GS_FONT 'Bold' = '1' . "Bold
SET PROPERTY OF GS_FONT 'Italic' = '0' . "Not Italic
SET PROPERTY OF GS_FONT 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF GS_PARFORMAT 'Alignment' = '1' . "Centered
CALL METHOD OF GS_SELECTION 'TypeText'
EXPORTING
#1 = TEXT-000.
*--Advancing cursor to the new line

CALL METHOD OF GS_SELECTION 'TypeParagraph' .

*--Getting entity handles for the entities on the way
GET PROPERTY OF GS_ACTDOC 'Tables' = GS_TABLES .
GET PROPERTY OF GS_SELECTION 'Range' = GS_RANGE .
*--Adding a table with 3 rows and 2 columns
CALL METHOD OF GS_TABLES 'Add' = GS_TABLE
EXPORTING
#1 = GS_RANGE " Handle for range entity
#2 = '3' "Number of rows
#3 = '2'. "Number of columns
*--Setting border attribute for the table
GET PROPERTY OF GS_TABLE 'Borders' = GS_TABLE_BORDER .
SET PROPERTY OF GS_TABLE_BORDER 'Enable' = '1' . "With border

*--Filling the table with dummy data
*--Reseting font attributes for table content
SET PROPERTY OF GS_FONT 'Name' = 'Garamond' .
SET PROPERTY OF GS_FONT 'Size' = '11' .
SET PROPERTY OF GS_FONT 'Bold' = '0' . "Not bold
SET PROPERTY OF GS_FONT 'Italic' = '0' . "Not Italic
SET PROPERTY OF GS_FONT 'Underline' = '0' . "Not underlined

*--Getting cell coordinates
CALL METHOD OF GS_TABLE 'Cell'
EXPORTING
#1 = '1' "first row
#2 = '1'. "first column

*--Getting the range handle to write the text
GET PROPERTY OF GS_CELL 'Range' = GS_RANGE .
*--Filling the cell
SET PROPERTY OF GS_RANGE 'Text' = 'abinash' .

*--Getting cell coordinates
CALL METHOD OF GS_TABLE 'Cell' = GS_CELL
EXPORTING
#1 = '3' "third row
#2 = '2'. "second column

*--Getting the range handle to write the text
GET PROPERTY OF GS_CELL 'Range' = GS_RANGE .

*--Filling the cell
SET PROPERTY OF GS_RANGE 'Text' = 'OLE' .
*--Advancing the cursor to the end of the table
GET PROPERTY OF GS_TABLE 'Range' = GS_RANGE .
GET PROPERTY OF GS_RANGE 'End' = GV_POS .
SET PROPERTY OF GS_RANGE 'Start' = GV_POS .
CALL METHOD OF GS_RANGE 'Select' .
*--Skip some lines
DO 3 TIMES .
CALL METHOD OF GS_SELECTION 'TypeParagraph' .
ENDDO.

*--Reseting font attributes for ordinary text
SET PROPERTY OF GS_FONT 'Name' = 'Arial' .
SET PROPERTY OF GS_FONT 'Size' = '14' .
SET PROPERTY OF GS_FONT 'Bold' = '1' . "Bold
SET PROPERTY OF GS_FONT 'Italic' = '0' . "Not Italic
SET PROPERTY OF GS_FONT 'Underline' = '0' . "Not underlined

*--Setting paragraph format attribute
SET PROPERTY OF GS_PARFORMAT 'Alignment' = '3' . "Justified
*--Indent the paragraph once
GET PROPERTY OF GS_SELECTION 'Paragraphs' = GS_PARAGRAPH .

CALL METHOD OF GS_PARAGRAPH 'Indent' .

CALL METHOD OF GS_SELECTION 'TypeText'
EXPORTING
#1 = TEXT-002.

FREE OBJECT GS_WORD .

abap örnekleri

abap pdfler
25 mb pdf abap samples

Almanya'nın hipermega Mac klonları!

Macintosh klonları savaşında Almanya cephesi açıldı. Üstelik son derece bariz bir yasa açığından lojistik destek alarak!



Macintosh'un uyguladığı fiyat politikası nedeniyle çoğu kişinin kullanmaktan mahrum kaldığı MacOS X işletim sistemi, "Hackintosh" şeklinde normal PC'lere girdiğinden beri, zaman zaman Mac klonları haberlerde boy gösteriyor.

İlk olarak Power Computing ile başlayan Mac klonları, Psystar ile bu iş oldukça popüler bir hale gelmişti. Klon savaşlarında son atağı ise Alman bir şirket olan Hypermeganet yaptı. Hypermeganet, Almanya'daki yasa açığından yararlanarak Mac klonlarını çatır çatır satmakta. PearC'nin koruyucu şirketi Hypermeganet'in basın danışmanının Der Speigel'e söylediğine göre PearC'nin iddiasi şu : "Apple'in MacOS X EULA'sı (Son Kullanıcı Lisans Anlaşması) kutunun içinde olup, kutu açılana kadar görülmediğinden, belgenin Almanya'da yasal geçerliliği yoktur."

Hypermeganet'ın internet sitesinde PearC'nin "Starter" ("Başlangıç"), "Advanced", ("İleri düzey") ve "Proffessional" ("Profesyonel") olmak üzere üç ana modeli bulunmakta. Her modeli size verilen konfigrasyon seçenekleri dahilinde modifiye edebiliyorsunuz. Standart modellerin fiyatları 500 euro ile 1500 euro arasında değişiyor.

Apple'dan konu hakkında henüz bir açıklama gelmiş değil, ancak Psystar örneği düşünüldüğünde pek de eli elma armut toplayacak gibi durmuyor. Bizim gönlümüzden geçen nedir diye soracak olursanız, Apple şu işletim sistemini adam gibi PC için satışa sunsa da böyle ilginç açıklamalar dahilinde kanun açıkları ile uğraşılmadan insanlar misler gibi MacOS X'lerine kavuşsalar. Çok mu şey istiyoruz? Hiç yani!

Apple'dan güvenlik için inanılmaz yöntemler

Bilgisayarınızı şifre ile korumak yeterli gelmiyor mu? Öyleyse bir de Apple'ın önerilerine göz atın.
Resimlerle: Patenti alınan en "garip" icatlar
Apple'ın patent başvurusunda, parmak izi dışındaki izleri de algılayabilecek modüller belirtilmiş durumda.
Bilgisayarınızın veya cep telefonunuzun istemediğiniz kişiler tarafından kullanılması için farklı önlemler alabilirsiz. En eski ve en yaygın önlem şifre koruması. Günümüzde artık parmak izi ve yüz tanıma korumaları da oldukça giderek yaygınlaşmaya başladı. Hatta daha önce sizlere aktardığımız gibi damar tanıma koruması gibi alternatif yöntemler de ortaya çıkıyor. Fakat Apple son aldığı patent ile iPhone ve MacBook'lar için çok ilginç koruma önlemleri hazırladığını ortaya çıktı.

Apple'ın patentini aldığı koruma yöntemlerinden ilki "kulak kanalı" tanıması. Yani iPhone'unuz çaldığında telefonunuzu konuşmak için kulağınıza götürdüğünüzde, sistem kulak kanal yapısından doğru kişi olup olmadığınızı tanıyabiliyor. Bunun dışında "telefonu sallama yönteminiz" de bir koruma aracı olacak. Yani iPhone'unuzu doğru şekilde, doğru yöne doğru sallayarak kimliğinizi ispatlamanız mümkün.

Hem iPhone, hem de MacBook'lar için geçerli olan bir diğer koruma yüz tanıması. Fakat Apple sadece yüz tanıması ile kalmıyor, buna göz taraması ve hatta göz hareketleri tanıma özelliğini de ekliyor. Yani gözlerinizi uygun şekilde hareket ettirerek de kimliğinizi doğrulamanız mümkün olabilecek.
chip

Parmak izi ile kimlik doğrulama yöntemleri yeni nesil pek çok diz üstü bilgisayarda bulunuyor. Apple hem MacBook, hem de iPhone için bunu bir adım daha öteye götürerek el izi, avuç içi izi ve hatta bilek izi korumaları için bile patent aldı.

Tabii ki Apple'ın bunların hepsini birden sunması beklenmiyor ama görünüşe göre güvenlik konusunda rakiplerinden önce ilgi çekici olabilecek patentleri elinde bulundurması, firma için oldukça önemli

Facebook yasaklanıyor mu?

nternetin en ilgi göre sitelerinden Facebook PKK propagandası ve Atatürk düşmanlığı yapıldığı için yasaklanabilir.


Facebook'ta yaklaşık bir hafta önce kurulan ve 600 üyeye ulaşan bir grubun, Kürdistan ve terör örgütü PKK propagandası yaptığı, Atatürk ve Cumhuriyete hakaretler ettiğini gören Akdeniz Üniversitesi öğrencileri, tatil için geldikleri Bodrum'da harekete geçti. Hazırladıkları dilekçeyi Bodrum Cumhuriyet Savcılığı'na veren Akdeniz Üniversitesi Serik Meslek Yüksek Okulu öğrencilerinden 22 yaşındaki Selin Gül şunları söyledi:

"Arkadaşlarımızla Facebook'ta tespit ettiğimiz yaklaşık 600 kişilik grubun yer aldığı sitede Kürdistan, PKK propagandası ve Atatürk düşmanlığı yapıldığı, hakaretler edildiğini gördük. 'Facebook sitesi dünyanın en büyük liderine, Atatürk'e yapılan bu saygısızlığı affetmez. Yöneticileri tedbir alır, siteyi kapatır' diye düşündük. Ancak tedbir alınmadığı gibi hakaretler ve gruba üye olanlar gittikçe arttı. Bu nedenle savcılığa ve jandarmaya suç duyurusunda bulunduk. Facebook bu siteyi kapatmazsa üyeliklerimizi iptal ettirip herkese de bu yönde bilgi vereceğiz. Facebook'u bu davranışı nedeniyle protesto ediyoruz."

Üniversite öğrencilerinin suç duyurusu üzerine de Bodrum Savcılığı tarafından soruşturma başlatıldığı belirtildi.

Facebook'ta İtalya'dan yayın yaptığı belirtilen sitede PKK bayrakları ve teröristlerin fotoğrafları ile birlikte Türklere ve Atatürk'e hakaret içeren sözlerin yer aldığı görüldü.

ekolay

Skype I-phone dan sonra Blackberry

Skype, iPhone’dan sonra Blackberry için de geliyor
Skype, BlackBerry ve iPhone mobil platformları için geliyor
Yazara e-posta Gönder Arkadaşıma Gönder Yazdır


eBay, VoIP servisi Skype’ı mobil iletişim araçları için geliştirerek piyasaya sunmaya hazırlanıyor. Önümüzdeki günlerde iPhone için geliştirilen uygulama kullanıma sunulacak. BlackBerry için olan sürümün ise Mayıs ayında hazır olması bekleniyor.

İnternet kullanıcılarına, mesajlaşma ve İnternet üzerinden sabit telefon numaralarını arayabilme olanağını sağlayan Skype’ın iPhone uygulaması ilerleyen günlerde Apple App Store’daki yerini alacak.

Windows Neden Gec Kapanir?

Windows neden geç kapanıyor?
Gönderen SaintLazarus @ Pazar, 29 Mart 2009Yorum Yap...
Tüplü televizyon ve radyolar zamanında cihazların açılmadan önce ısınmalarını beklememiz gerekirdi. Fakat onları bile düğmelerine bastığımızda anında kapatabiliyorduk. Windows PC’ler için bu geçerli değil. Açılmaları bile yeteri kadar uzun süren bilgisayarlarımız, kapanırken bizi daha çok bekletir hale geldiler. Hatta daha kötüsü, eğer bir program “cevap vermiyorsa” siz müdahale etmeden bilgisayarınızın hiç kapanmama olasılığı bile var.

Yalnızca Window XP ve Vista’dan bahsetmiyoruz. Henüz test aşamasında olduğu için haksızlık yapmamak gerekir ama Microsoft’un eli kulağında işletim sistemi Windows 7 ‘nin beta sürümü de geri kalır gibi değil.

PC’lerin açılmasının zaman alması bir dereceye kadar anlaşılabilir. Sürücülerin belleğe yüklenmesi, başlangıç programlarının hazırlanması, ağın yüklenmesi, ağ aygıtlarının bağlantı kurması vs. çok program yüklü bilgisayarlarda aslında hızlı bile sayılabilir. Fakat bilgisayarın ya da programların kapanması neden bu kadar uzun sürüyor? Tamam, bazı değişen dosyaları kaydetmek, geçici dosyaları silmek gerekiyor ama 5 dakika biraz fazla, bazı durumlarda hiç kapanmaması ise anlaşılır gibi değil. Zaman zaman kasanın düğmesini birkaç saniye boyunca basılı tutarak kapatmaya zorladığınızı hatırlayın (bazı dizüstü bilgisayarlarda pili çıkartmaya kadar uzuyor bu durum).

Her zaman işe yaramasa da teorik olarak Ctrl+Alt+Delete veya görev çubuğundan sağ tıklamayla görev yöneticisini açıp inatçı programı kapatıncaya kadar beklemek zorunda kalıyoruz (evinizdeki bir lambayı kapatmak için sigorta kutusuna gidip ana şalteri kapatmak zorunda olduğunuzu hayal edin).

Son zamanlarda bu soru Microsoft’a sorulmadı, fakat birkaç yıl önce New York Times için yapılan bir röportajda şirketten gelen bilgi, üçüncü parti sürücü ve uygulamaların Windows’un kapanmasını veya bekleme konumundan uyanmasını geciktirdiği yönündeydi. Ancak tabii bu bir mazeret değil. Microsoft, 3. parti desteğini işletim sisteminin en güçlü satış çığırtkanlarından biri olarak kullanıyor, dolayısıyla üzerinden on yılı aşkın zama geçtiğini göz önüne alırsak bu sorunları çözmemek için Microsoft’un bahaneleri tükendi.

kaynak: http://hardwaremania.com/news/2009/03/29/windows-neden-gec-kapaniyor/

sample tree view

*&---------------------------------------------------------------------*
*& Report ZSLY_TREE_ALV
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSLY_TREE_ALV.


TABLES: KNVH.

TYPES: BEGIN OF WORKTYPE,
LEVEL(2),
HKUNNR LIKE KNVH-KUNNR,
KUNNR LIKE KNVH-HKUNNR,
END OF WORKTYPE.

DATA: IT_KNVH TYPE TABLE OF WORKTYPE,
WA_KNVH LIKE LINE OF IT_KNVH,
IT_TEMP TYPE TABLE OF WORKTYPE,
WA_TEMP LIKE LINE OF IT_TEMP,
IT_WORK TYPE TABLE OF WORKTYPE,
WA_WORK LIKE LINE OF IT_WORK.

DATA : BEGIN OF IT_NODES OCCURS 0.
INCLUDE STRUCTURE SNODETEXT.
DATA : END OF IT_NODES.

CONSTANTS: NUMBER_OF_LEVELS TYPE I VALUE 6.
PARAMETER: P_HKUNNR LIKE KNVH-HKUNNR.

START-OF-SELECTION.

* Parent = 1. hierarchy node
WA_TEMP-KUNNR = P_HKUNNR.
APPEND WA_TEMP TO IT_TEMP.
WA_WORK-KUNNR = WA_TEMP-KUNNR.
WA_WORK-LEVEL = 1.
APPEND WA_WORK TO IT_WORK.

* Reading customer hierarchy (max. 6 level)
DO NUMBER_OF_LEVELS TIMES.

CHECK NOT IT_TEMP IS INITIAL.

SELECT KUNNR HKUNNR
FROM KNVH
INTO CORRESPONDING FIELDS OF TABLE IT_KNVH
FOR ALL ENTRIES IN IT_TEMP
WHERE HKUNNR = IT_TEMP-KUNNR.

LOOP AT IT_KNVH INTO WA_KNVH.
WA_KNVH-LEVEL = SY-INDEX + 1.
APPEND WA_KNVH TO IT_WORK.
ENDLOOP.

IT_TEMP[] = IT_KNVH[].

ENDDO.

* Hierarchy nodes -> tree control
LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 1.
PERFORM MAKE_NODE.
LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 2 AND
HKUNNR = WA_WORK-KUNNR.
PERFORM MAKE_NODE.
LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 3 AND
HKUNNR = WA_WORK-KUNNR.
PERFORM MAKE_NODE.
LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 4 AND
HKUNNR = WA_WORK-KUNNR.
PERFORM MAKE_NODE.
LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 5 AND
HKUNNR = WA_WORK-KUNNR.
PERFORM MAKE_NODE.
LOOP AT IT_WORK INTO WA_WORK WHERE LEVEL = 6 AND
HKUNNR = WA_WORK-KUNNR.
PERFORM MAKE_NODE.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDLOOP.

* Making the tree control
CALL FUNCTION 'RS_TREE_CONSTRUCT'
TABLES
NODETAB = IT_NODES
EXCEPTIONS
TREE_FAILURE = 1.

* Display the tree control
DATA : F15 TYPE C.
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
EXPORTING
CALLBACK_PROGRAM = SY-REPID
IMPORTING
F15 = F15 .


FORM MAKE_NODE.
IT_NODES-NAME = WA_WORK-KUNNR.
IT_NODES-COLOR = 1.
IT_NODES-INTENSIV = 1.
IT_NODES-TEXT = WA_WORK-KUNNR.
IT_NODES-TLENGTH = 16.
IT_NODES-TLEVEL = WA_WORK-LEVEL.
IT_NODES-TCOLOR = 1.
IT_NODES-TINTENSIV = 1.
APPEND IT_NODES.
ENDFORM.

Her yerde biz varız!

refresh alv list popup

*&---------------------------------------------------------------------*
*& Report ZSLY_0014
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSLY_0014.
*type pools for alv declarations
TYPE-POOLS: slis.
*structure declaration for tstc table
TYPES : BEGIN OF ty_tstc,
tcode TYPE tcode,
pgmna TYPE program_id,
dypno TYPE dynpronr,
END OF ty_tstc.
* Internal table and workarea declarations for tstc
DATA: it_tstc TYPE STANDARD TABLE OF ty_tstc,
wa_tstc TYPE ty_tstc.
*data declarations for ALV
DATA: it_layout TYPE slis_layout_alv,
wa_fieldcat TYPE slis_fieldcat_alv,
it_fieldcat TYPE slis_t_fieldcat_alv,
it_eventexit TYPE slis_t_event_exit,
wa_eventexit TYPE slis_event_exit.
*initialisation event
INITIALIZATION.
*start of selection event
START-OF-SELECTION.
*subroutine to fetch data from the db table
PERFORM fetch_data.
*subroutine for output display
PERFORM alv_output.
*&---------------------------------------------------------------------*
*& Form fetch_data
*&---------------------------------------------------------------------*
* *subroutine to fetch data from the db table
*----------------------------------------------------------------------*
FORM fetch_data.
*Internal table and work area declaratin for TSTC (local tables)
DATA : lt_tstc TYPE STANDARD TABLE OF ty_tstc,
ls_tstc TYPE ty_tstc.
*Static field definition
*Reads the last tcode and stores it in l_tstc that on refresh further data
*beyond this value is fetched
STATICS l_tstc TYPE tcode.
* Selection from the tstc table
*we select till 25 rows and on further refresh next 25 are selected
*we select transactions having screen numbers only
SELECT tcode
pgmna
dypno
FROM tstc
INTO CORRESPONDING FIELDS OF TABLE lt_tstc
UP TO 25 ROWS
WHERE tcode GT l_tstc
AND dypno NE '0000'.
* Code for transferring the values of local table to output table
* for 25 rows as sy-tfill is 25.
*In case there are no records a message pops up.
IF sy-subrc EQ 0.
DESCRIBE TABLE it_tstc.
READ TABLE lt_tstc INTO ls_tstc INDEX sy-tfill.
l_tstc = ls_tstc-tcode.
it_tstc[] = lt_tstc[].
ELSE.
MESSAGE 'No Records found ' TYPE 'i'.
ENDIF.
ENDFORM. "read_data
*&---------------------------------------------------------------------*
*& Form alv_output
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM alv_output.
*subroutine to refresh alv
PERFORM event_exits.
*field catalogue
PERFORM build_fieldcat.
*Layout for alv
PERFORM build_layout.
*output display
PERFORM alv_display.
ENDFORM. "alv_output
*&---------------------------------------------------------------------*
*& Form event_exits
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*subroutine to refresh alv
FORM event_exits.
CLEAR wa_eventexit.
wa_eventexit-ucomm = '&REFRESH'. " Refresh
wa_eventexit-after = 'X'.
APPEND wa_eventexit TO it_eventexit.
ENDFORM. "event_exits
*&---------------------------------------------------------------------*
*& Form build_fieldcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*Field catalogue
FORM build_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-row_pos = '1'.
wa_fieldcat-col_pos = '1'.
wa_fieldcat-fieldname = 'TCODE'.
wa_fieldcat-tabname = 'it_tstc'.
wa_fieldcat-seltext_m = 'TRANSACTION'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-row_pos = '1'.
wa_fieldcat-col_pos = '2'.
wa_fieldcat-fieldname = 'PGMNA'.
wa_fieldcat-tabname = 'it_tstc'.
wa_fieldcat-seltext_m = 'PROGRAM'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-row_pos = '1'.
wa_fieldcat-col_pos = '3'.
wa_fieldcat-fieldname = 'DYPNO'.
wa_fieldcat-tabname = 'it_tstc'.
wa_fieldcat-seltext_m = 'SCREEN'.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM. "build_fieldcat
*&---------------------------------------------------------------------*
*& Form build_layout
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*Layout
FORM build_layout.
it_layout-zebra = 'X'.
it_layout-colwidth_optimize = 'X'.
ENDFORM. "build_layout
*&---------------------------------------------------------------------*
*& Form alv_display
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*ALV output
FORM alv_display.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_user_command = 'USER_COMMAND'
i_callback_pf_status_set = 'PFSTATUS'
it_fieldcat = it_fieldcat
is_layout = it_layout
it_event_exit = it_eventexit
i_screen_start_column = 10
i_screen_start_line = 20
i_screen_end_column = 70
i_screen_end_line = 45
i_grid_title = 'Call Tcode Refresh ALV'
TABLES
t_outtab = it_tstc.
ENDFORM. "alv_display
*&---------------------------------------------------------------------*
*& Form user_command
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*User actions on ALV
FORM user_command USING r_ucomm TYPE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
*User clicks a transaction code and that tcode is called from ALV
WHEN '&IC1'.
READ TABLE it_tstc INDEX rs_selfield-tabindex INTO wa_tstc.
IF sy-subrc = 0.
CALL TRANSACTION wa_tstc-tcode.
ENDIF.
*user clicks the refresh button and the next 25 records are displayed
WHEN '&REFRESH'.
PERFORM fetch_data.
rs_selfield-refresh = 'X'.
rs_selfield-col_stable = 'X' .
rs_selfield-row_stable = 'X' .
ENDCASE.
ENDFORM. "user_command
*---------------------------------------------------------------------*
* FORM PFSTATUS *
*---------------------------------------------------------------------*
*Form for settings the pf status to the alv
FORM pfstatus USING ut_extab TYPE slis_t_extab.
SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'.
ENDFORM. " PF_STATUS_SET

show alv in popup

*&---------------------------------------------------------------------*
*& Report ZSLY_0015
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSLY_0019.
TABLES: EKKO,
EKPO.
TYPE-POOLS:SLIS.
DATA: BEGIN OF IT_EKKO OCCURS 0,
EBELN LIKE EKKO-EBELN,
AEDAT LIKE EKKO-AEDAT,
ERNAM LIKE EKKO-ERNAM,
LIFNR LIKE EKKO-LIFNR,
WAERS LIKE EKKO-WAERS,
INDEX TYPE I ,
END OF IT_EKKO.

DATA:BEGIN OF IT_EKPO OCCURS 3,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
WERKS LIKE EKPO-WERKS,
LGORT LIKE EKPO-LGORT,
MENGE LIKE EKPO-MENGE,
MEINS LIKE EKPO-MEINS,
NETPR LIKE EKPO-NETPR,
COLNO LIKE SY-COLNO,
END OF IT_EKPO.
DATA:

* Internal table to store EKPO data
" I_EKPO TYPE STANDARD TABLE OF IT_EKPO INITIAL SIZE 0,
* Internal table for storing field catalog information
I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
* Internal table for Top of Page info. in ALV Display
I_ALV_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
* Internal table for ALV Display events
I_EVENTS TYPE SLIS_T_EVENT,
* Internal table for storing ALV sort information
I_SORT TYPE SLIS_T_SORTINFO_ALV,
I_EVENT TYPE SLIS_T_EVENT.

" select-OPTIONS aedat for ekko-aedat.
"select-OPTIONS ernam for ekko-ernam.
"SELECT-OPTIONS lifnr for ekko-lifnr.
" select-OPTIONS waers for ekko-waers.

"select * from ekko
SELECT-OPTIONS S_EBELN FOR EKPO-EBELN.
SELECT * FROM EKPO WHERE EBELN IN S_EBELN.
IT_EKPO-EBELN = EKPO-EBELN.
IT_EKPO-EBELP = EKPO-EBELP.
IT_EKPO-MATNR = EKPO-MATNR.
IT_EKPO-WERKS = EKPO-WERKS.
IT_EKPO-LGORT = EKPO-LGORT.
IT_EKPO-MENGE = EKPO-MENGE.
IT_EKPO-MEINS = EKPO-MEINS.
IT_EKPO-NETPR = EKPO-NETPR.
APPEND IT_EKPO.
ENDSELECT.

DATA:I_REPID TYPE SY-REPID.
DATA INT_FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
I_REPID = SY-REPID.
DATA : GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : SORTFIELD TYPE SLIS_T_SORTINFO_ALV.
DATA : SORTFIEL TYPE SLIS_SORTINFO_ALV .



"sortfield-subtotal= 'X'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = SY-REPID
I_INTERNAL_TABNAME = 'IT_EKPO'
I_INCLNAME = SY-REPID
I_CLIENT_NEVER_DISPLAY = 'X'
I_BYPASSING_BUFFER = 'X'
CHANGING
CT_FIELDCAT = INT_FCAT[]
EXCEPTIONS
OTHERS = 3.

PERFORM MAKELAYOUT.
PERFORM SHOWALV.


*&---------------------------------------------------------------------*
*& Form SHOWALV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM SHOWALV.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING "
IT_FIELDCAT = INT_FCAT[]
I_CALLBACK_PROGRAM = SY-REPID
I_BACKGROUND_ID = 'ALV_BACKGROUND'
" I_CALLBACK_PF_STATUS_SET = 'SET_PF-STATUS '
IS_LAYOUT = GS_LAYOUT
IT_SORT = SORTFIELD[]
I_CALLBACK_HTML_TOP_OF_PAGE = 'HTML_TOP_OF_PAGE'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
i_save = 'A'
i_screen_start_column = 10 "bu satirdan sonraki kisim alv pop-up
i_screen_start_line = 20
i_screen_end_column = 100
i_screen_end_line = 40
TABLES
T_OUTTAB = IT_EKPO.

ENDFORM. "showalv
*&---------------------------------------------------------------------*
*& Form SET_PF-STATUS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EXTAB text
*----------------------------------------------------------------------*
FORM SET_PF-STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ZSLY_STATUS' .
* APPEND 'SAVE' TO fcode.
* SET PF-STATUS 'STATUS_0100' EXCLUDING fcode.

ENDFORM. "Set_pf_status
*&---------------------------------------------------------------------*
*& Form makelayout
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM MAKELAYOUT.

sortfiel-fieldname = 'EBELN'.
sortfiel-up = 'X'.
SORTFIEL-SUBTOT = 'X'.
sortfiel-tabname = 'IT_EKPO'.
INT_FCAT-DO_SUM = 'X'.
append sortfiel to sortfield.

MODIFY INT_FCAT TRANSPORTING DO_SUM WHERE FIELDNAME = 'NETPR'.

*clear sortfiel.
*sortfiel-fieldname = 'NETPR'.
*"sortfiel-up = 'X'.
*SORTFIEL-SUBTOT = 'X'.
*sortfiel-tabname = 'IT_EKPO'.



"sortfield-tabname = 'MARNT'.

*MOVE: 'MARNT' TO sortfield-FIELDNAME,
*'X' TO sortfield-UP.
*APPEND IT_SORT_DEF TO IT_SORT.
* " INT_FCAT-UP = 'EBELN'.
"MODIFY INT_FCAT TRANSPORTING UP WHERE FIELDNAME = 'EBELN'.



ENDFORM. "makelayout

*&---------------------------------------------------------------------*
*& Form top_of_page
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*

FORM TOP_OF_PAGE.

WRITE 'This is the Top of page which triggers in print'.

ENDFORM. "TOP_OF_PAGE
*&---------------------------------------------------------------------*
*& Form html_top_of_page
*&---------------------------------------------------------------------*

FORM HTML_TOP_OF_PAGE USING DOCUMENT TYPE REF TO CL_DD_DOCUMENT.
DATA : DL_TEXT(255) TYPE C. "Text
* Add new-line


CLEAR : DL_TEXT.
* program ID
DL_TEXT = 'Program Name :'.
CALL METHOD DOCUMENT->ADD_GAP.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.

CLEAR DL_TEXT.
DL_TEXT = SY-REPID.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
DL_TEXT = ' '.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
DL_TEXT = ' '.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.

* Add new-line
"CALL METHOD document->new_line.
CLEAR : DL_TEXT.

DL_TEXT = SY-UNAME.
CALL METHOD DOCUMENT->ADD_GAP
EXPORTING
WIDTH = 34.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.

* Add new-line
"CALL METHOD document->new_line.
CLEAR : DL_TEXT.

CALL METHOD DOCUMENT->ADD_GAP
EXPORTING
WIDTH = 34.
* Move date
WRITE SY-DATUM TO DL_TEXT.

CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.

* Add new-line
"CALL METHOD document->new_line.
CLEAR : DL_TEXT.
* Move time
WRITE SY-UZEIT TO DL_TEXT.
CALL METHOD DOCUMENT->ADD_GAP
EXPORTING
WIDTH = 34.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
CALL METHOD DOCUMENT->NEW_LINE.
CALL METHOD DOCUMENT->NEW_LINE.

CALL METHOD DOCUMENT->ADD_PICTURE
EXPORTING
PICTURE_ID = 'ENJOYSAP_LOGO'.
* Add new-line
ENDFORM. "HTML_TOP_OF_PAGE

farkli internal table bir table atma

differen internal table call in one table
*&---------------------------------------------------------------------*
*& Report ZSLY_0020
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSLY_0020.
TABLES: EKKO,EKPO,EKKN.
DATA:BEGIN OF IT_EKKO OCCURS 0,
BUKRS LIKE EKKO-BUKRS,
EBELN LIKE EKKO-EBELN,
BSART LIKE EKKO-BSART,
ZTERM LIKE EKKO-ZTERM,
END OF IT_EKKO.
DATA:BEGIN OF IT_EKPO OCCURS 0,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
WERKS LIKE EKPO-WERKS,
END OF IT_EKPO.
DATA:BEGIN OF IT_EKKN OCCURS 0,
EBELN LIKE EKKN-EBELN,
AEDAT LIKE EKKN-AEDAT,
EBELP LIKE EKKN-EBELP,
ZEKKN LIKE EKKN-ZEKKN,
END OF IT_EKKN.


SELECT-OPTIONS S_EBELN FOR EKKO-EBELN.
SELECT-OPTIONS S_EBELP FOR EKPO-EBELP.
SELECT-OPTIONS S_ZEKKN FOR EKKN-ZEKKN.
SELECT * FROM EKKO WHERE EBELN IN S_EBELN.
IT_EKKO-EBELN = EKKO-EBELN.
IT_EKKO-BUKRS = EKKO-BUKRS.
IT_EKKO-BSART = EKKO-BSART.
IT_EKKO-ZTERM = EKKO-ZTERM.
APPEND IT_EKKO.
ENDSELECT.

"MODIFY IT_GEN.
SELECT * FROM EKPO WHERE EBELP IN S_EBELP.
IT_EKPO-EBELN = EKPO-EBELN.
IT_EKPO-EBELP = EKPO-EBELP.
IT_EKPO-MATNR = EKPO-MATNR.
IT_EKPO-WERKS = EKPO-WERKS.
APPEND IT_EKPO.
ENDSELECT.
"MODIFY IT_GEN.
SELECT * FROM EKKN WHERE ZEKKN IN S_ZEKKN.
IT_EKKN-EBELN = EKKN-EBELN.
IT_EKKN-AEDAT = EKKN-AEDAT.
IT_EKKN-EBELP = EKKN-EBELP.
IT_EKKN-ZEKKN = EKKN-ZEKKN.
APPEND IT_EKKN.
ENDSELECT.
"MODIFY IT_GEN.

DATA:BEGIN OF IT_GEN OCCURS 100,
IT_EKKO LIKE IT_EKKO OCCURS 0,
IT_EKPO LIKE IT_EKPO OCCURS 0,
IT_EKKN LIKE IT_EKKN OCCURS 0,
END OF IT_GEN.
APPEND LINES OF IT_EKKO TO IT_GEN-IT_EKKO.
APPEND LINES OF IT_EKPO TO IT_GEN-IT_EKPO.
APPEND LINES OF IT_EKKN TO IT_GEN-IT_EKKN.
WRITE 'hello'.

alv with top of page header and sum

*&---------------------------------------------------------------------*
*& Report ZSLY_0015
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSLY_0019.
TABLES: EKKO,
EKPO.
TYPE-POOLS:SLIS.
DATA: BEGIN OF IT_EKKO OCCURS 0,
EBELN LIKE EKKO-EBELN,
AEDAT LIKE EKKO-AEDAT,
ERNAM LIKE EKKO-ERNAM,
LIFNR LIKE EKKO-LIFNR,
WAERS LIKE EKKO-WAERS,
INDEX TYPE I ,
END OF IT_EKKO.

DATA:BEGIN OF IT_EKPO OCCURS 3,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
WERKS LIKE EKPO-WERKS,
LGORT LIKE EKPO-LGORT,
MENGE LIKE EKPO-MENGE,
MEINS LIKE EKPO-MEINS,
NETPR LIKE EKPO-NETPR,
COLNO LIKE SY-COLNO,
END OF IT_EKPO.
DATA:

* Internal table to store EKPO data
" I_EKPO TYPE STANDARD TABLE OF IT_EKPO INITIAL SIZE 0,
* Internal table for storing field catalog information
I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
* Internal table for Top of Page info. in ALV Display
I_ALV_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
* Internal table for ALV Display events
I_EVENTS TYPE SLIS_T_EVENT,
* Internal table for storing ALV sort information
I_SORT TYPE SLIS_T_SORTINFO_ALV,
I_EVENT TYPE SLIS_T_EVENT.

" select-OPTIONS aedat for ekko-aedat.
"select-OPTIONS ernam for ekko-ernam.
"SELECT-OPTIONS lifnr for ekko-lifnr.
" select-OPTIONS waers for ekko-waers.

"select * from ekko
SELECT-OPTIONS S_EBELN FOR EKPO-EBELN.
SELECT * FROM EKPO WHERE EBELN IN S_EBELN.
IT_EKPO-EBELN = EKPO-EBELN.
IT_EKPO-EBELP = EKPO-EBELP.
IT_EKPO-MATNR = EKPO-MATNR.
IT_EKPO-WERKS = EKPO-WERKS.
IT_EKPO-LGORT = EKPO-LGORT.
IT_EKPO-MENGE = EKPO-MENGE.
IT_EKPO-MEINS = EKPO-MEINS.
IT_EKPO-NETPR = EKPO-NETPR.
APPEND IT_EKPO.
ENDSELECT.

DATA:I_REPID TYPE SY-REPID.
DATA INT_FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
I_REPID = SY-REPID.
DATA : GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : SORTFIELD TYPE SLIS_T_SORTINFO_ALV.
DATA : SORTFIEL TYPE SLIS_SORTINFO_ALV .



"sortfield-subtotal= 'X'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = SY-REPID
I_INTERNAL_TABNAME = 'IT_EKPO'
I_INCLNAME = SY-REPID
I_CLIENT_NEVER_DISPLAY = 'X'
I_BYPASSING_BUFFER = 'X'
CHANGING
CT_FIELDCAT = INT_FCAT[]
EXCEPTIONS
OTHERS = 3.

PERFORM MAKELAYOUT.
PERFORM SHOWALV.


*&---------------------------------------------------------------------*
*& Form SHOWALV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM SHOWALV.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING "
IT_FIELDCAT = INT_FCAT[]
I_CALLBACK_PROGRAM = SY-REPID
I_BACKGROUND_ID = 'ALV_BACKGROUND'
" I_CALLBACK_PF_STATUS_SET = 'SET_PF-STATUS '
IS_LAYOUT = GS_LAYOUT
IT_SORT = SORTFIELD[] " sort once sonra sub sum
I_CALLBACK_HTML_TOP_OF_PAGE = 'HTML_TOP_OF_PAGE'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
i_save = 'A'
* i_screen_start_column = 10
* i_screen_start_line = 20
* i_screen_end_column = 100
* i_screen_end_line = 40
TABLES
T_OUTTAB = IT_EKPO.

ENDFORM. "showalv
*&---------------------------------------------------------------------*
*& Form SET_PF-STATUS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EXTAB text
*----------------------------------------------------------------------*
FORM SET_PF-STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ZSLY_STATUS' .
* APPEND 'SAVE' TO fcode.
* SET PF-STATUS 'STATUS_0100' EXCLUDING fcode.

ENDFORM. "Set_pf_status
*&---------------------------------------------------------------------*
*& Form makelayout
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM MAKELAYOUT.

sortfiel-fieldname = 'EBELN'.
sortfiel-up = 'X'.
SORTFIEL-SUBTOT = 'X'.
sortfiel-tabname = 'IT_EKPO'.
INT_FCAT-DO_SUM = 'X'.
append sortfiel to sortfield.

MODIFY INT_FCAT TRANSPORTING DO_SUM WHERE FIELDNAME = 'NETPR'.

*clear sortfiel.
*sortfiel-fieldname = 'NETPR'.
*"sortfiel-up = 'X'.
*SORTFIEL-SUBTOT = 'X'.
*sortfiel-tabname = 'IT_EKPO'.



"sortfield-tabname = 'MARNT'.

*MOVE: 'MARNT' TO sortfield-FIELDNAME,
*'X' TO sortfield-UP.
*APPEND IT_SORT_DEF TO IT_SORT.
* " INT_FCAT-UP = 'EBELN'.
"MODIFY INT_FCAT TRANSPORTING UP WHERE FIELDNAME = 'EBELN'.



ENDFORM. "makelayout

*&---------------------------------------------------------------------*
*& Form top_of_page
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*

FORM TOP_OF_PAGE.

WRITE 'This is the Top of page which triggers in print'.

ENDFORM. "TOP_OF_PAGE
*&---------------------------------------------------------------------*
*& Form html_top_of_page
*&---------------------------------------------------------------------*

FORM HTML_TOP_OF_PAGE USING DOCUMENT TYPE REF TO CL_DD_DOCUMENT.
DATA : DL_TEXT(255) TYPE C. "Text
* Add new-line


CLEAR : DL_TEXT.
* program ID
DL_TEXT = 'Program Name :'.
CALL METHOD DOCUMENT->ADD_GAP.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_HEADING_INT.

CLEAR DL_TEXT.
DL_TEXT = SY-REPID.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
DL_TEXT = ' '.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
DL_TEXT = ' '.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.

* Add new-line
"CALL METHOD document->new_line.
CLEAR : DL_TEXT.

DL_TEXT = SY-UNAME.
CALL METHOD DOCUMENT->ADD_GAP
EXPORTING
WIDTH = 34.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.

* Add new-line
"CALL METHOD document->new_line.
CLEAR : DL_TEXT.

CALL METHOD DOCUMENT->ADD_GAP
EXPORTING
WIDTH = 34.
* Move date
WRITE SY-DATUM TO DL_TEXT.

CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.

* Add new-line
"CALL METHOD document->new_line.
CLEAR : DL_TEXT.
* Move time
WRITE SY-UZEIT TO DL_TEXT.
CALL METHOD DOCUMENT->ADD_GAP
EXPORTING
WIDTH = 34.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
TEXT = DL_TEXT
SAP_EMPHASIS = CL_DD_AREA=>HEADING
SAP_COLOR = CL_DD_AREA=>LIST_NEGATIVE_INV.
CALL METHOD DOCUMENT->NEW_LINE.
CALL METHOD DOCUMENT->NEW_LINE.

CALL METHOD DOCUMENT->ADD_PICTURE
EXPORTING
PICTURE_ID = 'ENJOYSAP_LOGO'.
* Add new-line
ENDFORM. "HTML_TOP_OF_PAGE

auto refresh alv list

*&---------------------------------------------------------------------*
*& Report ZSLY_0013
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZSLY_0013.
*>*********************************************************************
* This report displays User's info (SM04) using the FM : *
* REUSE_ALV_LIST_DISPLAY *
* The list is auto-refreshed (refresh time : 5 seconds) *
*---------------------------------------------------------------------*

TYPE-POOLS: slis. " ALV Global Types

DATA :
gt_user LIKE uinfo OCCURS 0 WITH HEADER LINE. " User info in SM04

*---------------------------------------------------------------------*
START-OF-SELECTION.

PERFORM f_read_data.

PERFORM f_display_data.

*---------------------------------------------------------------------*
* Form F_LIRE_DATA
*---------------------------------------------------------------------*
FORM f_read_data.

REFRESH gt_user.

* Get User's info
CALL FUNCTION 'THUSRINFO'
TABLES
usr_tabl = gt_user.

* Wait in a task
PERFORM f_call_rfc_wait.

ENDFORM. " F_READ_DATA
*---------------------------------------------------------------------*
* Form F_DISPLAY_DATA
*---------------------------------------------------------------------*
FORM f_display_data.

DEFINE m_sort.
add 1 to ls_sort-spos.
ls_sort-fieldname = &1.
append ls_sort to lt_sort.
END-OF-DEFINITION.

DEFINE m_event_exit.
clear ls_event_exit.
ls_event_exit-ucomm = &1.
ls_event_exit-after = 'X'.
append ls_event_exit to lt_event_exit.
END-OF-DEFINITION.

DATA :
ls_layout TYPE slis_layout_alv,
lt_sort TYPE slis_t_sortinfo_alv,
ls_sort TYPE slis_sortinfo_alv,
lt_event_exit TYPE slis_t_event_exit,
ls_event_exit TYPE slis_event_exit.

* Build Sort Table
m_sort 'ZEIT'.

* Build Event Exit Table
m_event_exit '&NTE'. " Refresh

ls_layout-zebra = 'X'.
ls_layout-colwidth_optimize = 'X'.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
i_callback_user_command = 'USER_COMMAND'
is_layout = ls_layout
i_structure_name = 'UINFO'
it_sort = lt_sort
it_event_exit = lt_event_exit
TABLES
t_outtab = gt_user.

ENDFORM. " F_DISPLAY_DATA
*---------------------------------------------------------------------*
* FORM USER_COMMAND *
*---------------------------------------------------------------------*
FORM user_command USING i_ucomm TYPE syucomm
is_selfield TYPE slis_selfield.

CASE i_ucomm.
WHEN '&NTE'.
PERFORM f_read_data.
is_selfield-refresh = 'X'.//refresh yapan satır
SET USER-COMMAND '&OPT'. " Optimize columns width
ENDCASE.

ENDFORM. " USER_COMMAND
*---------------------------------------------------------------------*
* Form F_CALL_RFC_WAIT
*---------------------------------------------------------------------*
FORM f_call_rfc_wait.

DATA lv_mssg(80).

* Wait in a task
CALL FUNCTION 'RFC_PING_AND_WAIT' STARTING NEW TASK '001'
PERFORMING f_task_end ON END OF TASK
EXPORTING
seconds = 5 " Refresh time
busy_waiting = space
EXCEPTIONS
RESOURCE_FAILURE = 1
communication_failure = 2 MESSAGE lv_mssg
system_failure = 3 MESSAGE lv_mssg
OTHERS = 4.

ENDFORM. " F_CALL_RFC_WAIT
*---------------------------------------------------------------------*
* Form F_TASK_END
*---------------------------------------------------------------------*
FORM f_task_end USING u_taskname.

DATA lv_mssg(80). "#EC NEEDED

* Receiving task results
RECEIVE RESULTS FROM FUNCTION 'RFC_PING_AND_WAIT'
EXCEPTIONS
RESOURCE_FAILURE = 1
communication_failure = 2 MESSAGE lv_mssg
system_failure = 3 MESSAGE lv_mssg
OTHERS = 4.

CHECK sy-subrc EQ 0.
SET USER-COMMAND '&NTE'. " Refresh

ENDFORM. " F_TASK_END
*************** END OF PROGRAM Z_ALV_AUTO_REFRESH *********************

sap tables

sap tables

SAP System Administration Transactions

Useful SAP System Administration Transactions
AL01 SAP Alert Monitor
AL02 Database alert monitor
AL03 Operating system alert monitor
AL04 Monitor call distribution
AL05 Monitor current workload
AL06 Performance: Upload/Download
AL07 EarlyWatch Report
AL08 Users Logged On
AL09 Data for database expertise
AL10 Download to Early Watch
AL11 Display SAP Directories
AL12 Display table buffer (Exp. session)
AL13 Display Shared Memory (Expert mode)
AL15 Customize SAPOSCOL destination
AL16 Local Alert Monitor for Operat.Syst.
AL17 Remote Alert Monitor for Operat. Syst.
AL18 Local File System Monitor
AL19 Remote File System Monitor
AL20 EarlyWatch Data Collector List
AL21 ABAP Program analysis
AL22 Dependent objects display
CREF Cross-reference
BD64
BSVW Linkage Status Update-Workflow Event
CMOD Enhancements
DB01 Analyze exclusive lock waits
DB02 Analyze tables and indexes
DB03 Parameter changes in database
DB11 Early Watch Profile Maintenance
DB12 Overview of Backup Logs
DB13 Database administration calendar
DB14 Show SAPDBA Action Logs
DB15 Data Archiving: Database Tables
DB16 DB System Check: Monitor
DB17 DB System Check: Configuration
DMIG Start Transaction for Data Migration
DB2 Select Database Activities
DB20 DB Cost-Based Optimizer: Tab. Stats
DB21 DB Cost-Based Optimizer: Config.
DB24 Database Operations Monitor
DB26 DB Profile:Monitor and Configuration
DB2J Manage JCL jobs for OS/390
DBCO Database Connection Maintenance
FILE Cross-Client File Names/Paths
NACE WFMC: Initial Customizing Screen
OAA1 SAP ArchiveLink: Maint.user st.syst
OAA3 SAP ArchiveLink protocols
OAA4 SAP ArchiveLink applic.maintenance
OAAD ArchiveLink Administration Documents
OAC2 SAP ArchiveLink: Globaldoc. types
OAC5 SAP ArchiveLink: Bar code entry
OACA SAP ArchiveLink workflow parameters
OAD0 SAP ArchiveLink: Objectlinks
OAD2 SAP ArchiveLink document classes
OAD3 SAP ArchiveLink: Link tables
OAD4 SAP ArchiveLink: Bar code types
OAD5 SAP ArchiveLink: Customizing Wizard
OADR SAP ArchiveLink: Print list search
OAM1 SAP ArchiveLink: Monitoring
OAOR SAP ArchiveLink: Storeddocuments
OARE SAP ArchiveLink:St.syst.return codes
OS01 LAN check with ping
OS03 O/S Parameter changes
OS04 Local System Configuration
OS05 Remote System Cconfiguration
OS06 Local Operating System Activity
OS07 Remote Operating SystemActivity
OSS1 Logon to Online ServiceSystem
OY18 Table history
OY08 Development Class Overview
PFCG Activity Group
PFUD Authorization Profile comparison
RLOG Data migration logging
RZ01 Job Scheduling Monitor
RZ02 Network Graphics for SAP Instances
RZ03 Presentation, Control SAP Instances
RZ04 Maintain SAP Instances
RZ06 Alerts Thresholds Maintenance
RZ08 SAP Alert Monitor
RZ10 Maintenance of profile parameters
RZ11 Profile parameter maintenance
RZ12 Maintain RFC Server Group Assignment
RZ20 CCMS Monitoring
RZ21 Customize CCMS Alert Monitor
SA38 ABAP/4 Reporting
SAD0 Address Management call
SADC Address: Maint. communication types
SALE Display ALE Customizing
SAINT Plug-in Installation
SARI Archive Information System
SAR3 Customizing Archiving
SAR4 Define Archiving Class
SAR5 Assign Archiving Class
SAR6 Archiving Time Generator
SARA Archive management
SARL Call of ArchiveLink Monitor
SARP Reporting (Tree Structure): Execute
SART Display Reporting Tree
SB01 Business Navigator - Component View
SB02 Business Navigator - Process flow vw
SBAS Assignments to Process Model Elemts
SC38 Start Report Immediately
SCAT Computer Aided Test Tool
SCC0 Client Copy
SCC1 Client Copy - Special Selections
SCC2 Client transport
SCC3 Client Copy Log
SCC4 Client administration
SCC5 Client Delete
SCC6 Client Import
SCC7 Client Import – Post Processing
SCC8 Client Export
SCC9 Remote Client Copy
SCCL Local Client Copy
SCDO Display Change DocumentObjects
SCMP View / Table Comparison
SCOM SAPcomm: Configuration
SCON SAPconnect - Administration
SCPF Generate enterprise IMG
SCPR1 Customizing Profiles : Maintenance Tool
SCPR2 Comparing Customizing profiles
SCUA Central User Administration : Distribution Model Assigment
SCUG Central User Administration Structure Display
SCUL
SCUM Central User Administration Field Selection
SCU0 Table Analyses And Comparison
SCU1 Table Comparison - Export to Tape
SCU2 Table Comparison Against Tape
SCU3 Table History
SD11 Data Modeler
SDBE Explain an SQL Statement
SECR Audit Information System
SE01 Transport and Correction System
SE02 Environment Analyzer
SE03 Transport Utilities
SE06 Set up Workbench Organizer
SE07 Transport System Status Display
SE09 Workbench Organizer (Initial Screen)
SE10 Customizing Organizer
SE11 Data Dictionary Maintenance
SE12 Data Dictionary Display
SE13 Maintain Technical Settings (Tables)
SE14 Convert Data Dictionary tables on Database Level
SE15 Repository Info System
SE16 Display Table Content
SE17 Generate Table Display
SE30 ABAP Objects Runtime Analysis
SE32 ABAP Text Element Maintenance
SE33 Context Builder
SE35 ABAP/4 Dialog Modules
SE36 Logical databases
SE37 ABAP Function Modules
SE38 ABAP Editor
SE39 Splitscreen Editor: Program Compare
SE40 MP: Standards Maint. and Translation
SE41 Menu Painter
SE43 Maintain Area Menu
SE51 Screen Painter
SE52 Parameterized screenpainter call
SE54 Generate table view
SE55 Internal table view maintenance call
SE56 internal call: display table view
SE57 internal delete table view call
SE61 R/3 Documentation
SE62 Industry Utilities
SE63 Translation: Initial Screen
SE71 SAPscript form
SE72 SAPscript Styles
SE73 SAPscript font maintenance (revised)
SE74 SAPscript format conversion
SE75 SAPscript Settings
SE76 SAPscript: Form Translation
SE77 SAPscript Translation Styles
SE78 SAPscript: Graphics administration
SE80 Object Navigator
SE81 Application Hierarchy
SE82 Application Hierarchy
SE84 R/3 Repository Information System
SE85 ABAP/4 Repository Information System
SE86 ABAP Repository Information System
SE88 Development Coordination Info System
SE89 Maintain Trees in Information System
SE91 Maintain Messages
SE92 New SysLog Msg Maintenance as of 46A
SE93 Maintain Transaction Codes
SE94 Customer enhancement simulation
SE95 Modification Browser
SEPS SAP Electronic Parcel Service
SERP Reporting: Change Tree Structure
SEU Repository Browser
SF01 Client-Specific File Names
SFAW Field Selection Maintenance
SIAC1 Web Object Administration
SHDB Record Batch Input
SICK Installation Check
SIN1 SAPBPT: Inbox
SINA SAPBPT: Maintain Standard Config.
SLG0 Application Log: ObjectMaintenance
SLIN ABAP: Extended Program Check
SM01 Lock Transactions
SM02 System Messages
SM04 User Overview
SM12 Display and Delete Locks
SM13 Display Update Records
SM14 Update Program Administration
SM21 System log
SM23 System Log Analysis
SM28 Installation Check
SM29 Model Transfer for Tables
SM30 Call Up View Maintenance
SM31 Table maintenance
SM31_OLD Old Table Maintenance
SM32 Maintain Table Parameter ID TAB
SM33 Display Table ParameterID TAB
SM34 Viewcluster maintenancecall
SM35 Batch Input Monitoring
SM36 Batch request
SM37 Background job overview
SM38 Queue Maintenance Transaction
SM39 Job analysis
SM49 Execute Logical Commands
SM50 Work Process Overview
SM51 List of SAP Servers
SM54 TXCOM maintenance
SM55 THOST maintenance
SM56 Number Range Buffer
SM58 Asynchronous RFC Error Log
SM59 RFC Destinations (Display/Maintain)
SM60 Borrow/Return Objects
SM61
SM62
SM63 Display/Maintain Operating Mode Sets
SM64 Release of an event
SM65 Background Processing Analysis Tool
SM66 System-wide Work Process Overview
SM67 Job scheduling
SM68 Job administration
SM69 Display/Maintain Logical Commands
SMEN Dynamic menu
SMGW Gateway Monitor
SMLG Maintain Logon Group
SMLI Language import utility
SMLT Language transport utility
SMOD SAP Enhancement Management
SMT1 Trusted Systems (Display <-> Maint.)
SMT2 Trusting systems (Display <->Maint.)
SMW0 SAP Web Repository
SMX Display Own Jobs
SNRO Number Range Objects
SO02 SAPoffice: Outbox
SO03 SAPoffice: Private Folders
SO04 SAPoffice: Shared Folders
SO05 SAPoffice: Private Trash
SO06 SAPoffice: Substitutionon/off
SO07 SAPoffice: Resubmission
SO10 SAPscript: Standard Texts
SO12 SAPoffice: User Master
SO13 SAPoffice: Substitute
SO15 SAPoffice: DistributionLists
SO16 SAPoffice: Profile
SO17 SAPoffice: Delete Shared Trash
SO18 SAPoffice: Shared Trash
SO19 SAPoffice: Default Documents
SO21 Maintain PC Work Directory
SO22 SAPoffice: Delete PC Temp. Files
SO23 SAPoffice: DistributionLists
SO24 SAPoffice: Maintenance of default PC
SO28 Maintain SOGR
SO30 SAPoffice: Reorg.
SO31 Reorganization (daily)
SO36 Create Automatic Forwarding
SO38 SAPoffice: Synchr. of Folder Auths.
SO40 SAPoffice: Cust. LayoutSet MAIL
SO41 SAPoffice: Cust. LayoutSet TELEFAX
SO42 SAPoffice: Cust.Layout Set TELEFAX_K
SO43 SAPoffice: Cust.Layout Set TELEFAX_M
SO44 SAPoffice: Cust. LayoutSet TELEX
SO70 Hypertext: Display/Maint. Structure
SO71 Test plan management
SO72 Maintain Hypertext Module
SO73 Import graphic into SAPfind
SO80 SAPfind: Free Text Retrieval Dialog
SO81 SAPfind: Free Text Indexing (Test)
SO82 SAPfind: Free Text Retrieval Batch
SO95 Pregenerated Search Queries - Selec.
SO99 Put Information System
SOA0 ArchiveLink Workflow document types
SOBJ Attribute Maintenance Objects
SOLE OLE Applications
SOLI Load OLE type info
SOPE Exclude Document Classes
SOTD SAPoffice: Maintain Object Types
SOY1 SAPoffice: Mass Maint. Users
SOY2 SAPoffice: Statistics data collect.
SOY3 SAPoffice: Statistics Evaluation
SOY4 SAPoffice: Access overview
SOY5 SAPoffice: Inbox overview
SOY6 SAPoffice: Document overview
SOY7 SAPoffice: Folder overview
SOY8 SAPoffice: Mass Archiving
SOY9 SAPoffice: Inbox Reorg.
SOYA SAPoffice: Change folder owner
SP00 Spool and Relate Area
SP01 Spool Control
SP02 Display output Requests
SP03 Spool: Load Formats
SP11 TemSe Contents
SP12 TemSe Administration
SPAD Spool Management
SPAM SAP Patch Manager (SPAM)
SPAU Display Modified DE Objects
SPCC Spool Consistency check
SPDD Display Modified DDIC objects
SPHA Telephony administration
SPIC Spool : Installation Check
SPRM Current Customizing
SPRO Customizing
SQ01 SAP Query: Maintain queries
SQ02 SAP Query: Maintain funct. areas
SQ03 SAP Query: Maintain user groups
SQ07 SAP Query: Language comparison
SQVI QuickViewer
SSAA System Administration Assistant
SSCA Appointment Diary: Administration
SRZL CCMS
SSM1 Session Manager generation call
SSM5 Create Activity Group
ST01 System Trace
ST02 Setups/Tune Buffers
ST03 Performance, SAP Statistics, Workload
ST04 Select activity of the databases
ST05 SQL Trace
ST06 Operating System Monitor
ST07 Application monitor
ST08 Network Monitor
ST09 Network Alert Monitor
ST10 Table Call Statistics
ST11 Display Developer Traces
ST12 Application Monitor
ST14 Application Analysis
ST22 ABAP Runtime Error Analysis
ST22 ABAP/4 Runtime Error Analysis
ST62 Create industry short texts
STAT Local transaction statistics
STMS Transport Management System
STUN Performance Monitoring
STW1 Test Workbench: Test catalog
STW2 Test workbench: Test plan
STW3 Test workbench: Test package
STW4 Test Workbench: Edit test package
STW5 C maintenance table TTPLA
STZAC Maintain time zone act.in client
STZAD Disp.time zone activat.in client
SUMM Global User Manager
SU01 Maintain User
SU01D Display users
SU02 Maintain Authorization Profiles
SU03 Maintain Authorizations
SU05 Maintain Internet Users
SU10 Mass changes to User Master
SU11 Maintain Authorizations
SU12 Mass Changes to User Master Records
SU2 Maintain User Parameter
SU20 Maintain Authorization Fields
SU21 Maintain Authorization Objects
SU22 Auth. object usage in transactions
SU24 Disables Authorization Checks
SU25 Imports SAP Check Indicators defaults
SU26 Adjust Authorization checks
SU30 Total checks in the area of auth.
SU52 Maintain own user parameters
SU53 Display check values
SU54 List for Session Manager
SU56 Analyze User Buffer
SUPC Profiles for activity groups
SUPF Integrated User Maintenance
SUPO Maintain Organization Levels
SUIM Repository Info System
SWDC Workflow Definition
SXDA Data Transfer Workbench
TU02 Display Active Parameters
USMM Customer measurement

TABLE OKUMA VE CALL TRANSACTION

TABLES: EKKO,
EKPO.

DATA: BEGIN OF IT_EKKO OCCURS 0,
EBELN LIKE EKKO-EBELN,
AEDAT LIKE EKKO-AEDAT,
ERNAM LIKE EKKO-ERNAM,
LIFNR LIKE EKKO-LIFNR,
WAERS LIKE EKKO-WAERS,
INDEX TYPE I ,
END OF IT_EKKO.

DATA:BEGIN OF IT_EKPO OCCURS 3,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
WERKS LIKE EKPO-WERKS,
LGORT LIKE EKPO-LGORT,
MENGE LIKE EKPO-MENGE,
MEINS LIKE EKPO-MEINS,
NETPR LIKE EKPO-NETPR,
COLNO LIKE SY-COLNO,
END OF IT_EKPO.

SELECT-OPTIONS S_EBELN FOR EKKO-EBELN.
" select-OPTIONS aedat for ekko-aedat.
"select-OPTIONS ernam for ekko-ernam.
"SELECT-OPTIONS lifnr for ekko-lifnr.
" select-OPTIONS waers for ekko-waers.

"select * from ekko
SELECT * FROM EKKO WHERE EBELN IN S_EBELN.
IT_EKKO-EBELN = EKKO-EBELN.
IT_EKKO-AEDAT = EKKO-AEDAT.
IT_EKKO-ERNAM = EKKO-ERNAM.
IT_EKKO-LIFNR = EKKO-LIFNR.
IT_EKKO-WAERS = EKKO-WAERS.
IT_EKKO-INDEX = SY-TABIX.

APPEND IT_EKKO.
ENDSELECT.

FORMAT COLOR COL_POSITIVE.

LOOP AT IT_EKKO.
ULINE AT /1(77).
NEW-LINE NO-SCROLLING.
WRITE: '|',IT_EKKO-EBELN HOTSPOT ON ,'|',IT_EKKO-AEDAT,'|',IT_EKKO-ERNAM,'|',IT_EKKO-LIFNR,'|',IT_EKKO-WAERS,'|',SY-TABIX,'|'.
HIDE:IT_EKKO-EBELN.
"HIDE: it_spfli-CARRID, it_spfli-CONNID.
ENDLOOP.

AT LINE-SELECTION.
IF SY-LSIND < 3.
CASE SY-LSIND.
WHEN 1.
PERFORM SELECTION-EXECUTE.
WHEN 2.
PERFORM SELECTION-MATRN.
ENDCASE.
ENDIF.
*&---------------------------------------------------------------------*
*& Form selection-execute
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*






FORM SELECTION-EXECUTE.
DATA: INDEX_ TYPE I VALUE 0.
INDEX_ = SY-CUROW - 2.
DATA A LIKE SY-COLNO.
DATA: ITAB_EKKO LIKE IT_EKKO OCCURS 0 WITH HEADER LINE.
"Read table it_ekko INDEX SY-LSIND INTO itab_ekko.
"read table sy-lisel into itab_ekko.
SELECT * FROM EKPO WHERE EBELN = IT_EKKO-EBELN.
IT_EKPO-EBELN = EKPO-EBELN .
IT_EKPO-EBELP = EKPO-EBELP.
IT_EKPO-MATNR = EKPO-MATNR.
IT_EKPO-WERKS = EKPO-WERKS.
IT_EKPO-LGORT = EKPO-LGORT.
IT_EKPO-MENGE = EKPO-MENGE.
IT_EKPO-MEINS = EKPO-MEINS.
IT_EKPO-NETPR = EKPO-NETPR.
IT_EKPO-COLNO = SY-COLNO.
APPEND IT_EKPO.
ENDSELECT.
FORMAT COLOR COL_KEY.
"WRITE: IT_EKPO-EBELN,'specifi.'.
"SKIP.
"uline.
"skip.


LOOP AT IT_EKPO.
ULINE AT /1(100).
NEW-LINE NO-SCROLLING.
WRITE: '|',IT_EKPO-EBELN ,'|',IT_EKPO-EBELP,'|'.
WRITE:IT_EKPO-MATNR COLOR = 12 HOTSPOT ON.
WRITE: '|',IT_EKPO-WERKS,'|',IT_EKPO-LGORT,'|',IT_EKPO-MENGE,'|',IT_EKPO-MEINS,'|',IT_EKPO-NETPR,'|'.
HIDE: IT_EKPO-MATNR.
ENDLOOP.
"AT LINE-SELECTION.
"PERFORM SELECTION-MATRN.

ULINE AT /1(100) NO-GAP.


ENDFORM. "selection-execute


*&---------------------------------------------------------------------*
*& Form selection-matrn
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM SELECTION-MATRN.

IF IT_EKPO-MATNR EQ ''.
"message error
ELSE.
"PARAMETERs SENDMATNR like mara-mantr.
SET PARAMETER ID: 'MAT' FIELD it_ekpo-matnr.
SET PARAMETER ID: 'K' field 'x'.
"PARAMETER like mara
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .


ENDIF.

"""

"PARAMETERS P_MATNR LIKE MARA-MATNR. "DD ref. as in MM03
"SET PARAMETER ID 'MAT' FIELD P_MATNR. "ID for MARA-MATNR
"CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN

ENDFORM. "selection-matrn

basit alv

mara ve marc table select option ile veri okuyan ve alv yazdiran program.

TYPE-POOLS: SLIS.

TABLES:MARA,MARC.
DATA: BEGIN OF IT_MAR OCCURS 0,
MATNR LIKE MARA-MATNR,
BISMT LIKE MARA-BISMT,
SERNP LIKE MARC-SERNP,
MEINS LIKE MARA-MEINS,
LIGHT VALUE 1,
END OF IT_MAR.


"data: fieldcatalog type slis_t_fieldcat_alv with header line,
DATA : GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECT-OPTIONS S_MATNR FOR MARA-MATNR.
SELECT-OPTIONS S_SERNP FOR MARC-SERNP.

DATA : CT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

SELECT A~MATNR A~BISMT C~SERNP A~MEINS INTO
(IT_MAR-MATNR,IT_MAR-BISMT,IT_MAR-SERNP,IT_MAR-MEINS)
FROM MARA AS A INNER JOIN MARC AS C
ON A~MATNR = C~MATNR WHERE C~MATNR IN S_MATNR
AND C~SERNP IN S_SERNP.

APPEND IT_MAR.
ENDSELECT.
GS_LAYOUT-LIGHTS_TABNAME = 'it_mar'.
GS_LAYOUT-LIGHTS_FIELDNAME = 'LIGHT'.

LOOP AT it_mar.
CASE IT_MAR-BISMT.
WHEN ''.
IT_MAR-LIGHT = 3.
MODIFY it_mar.
ENDCASE.
ENDLOOP.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_STRUCTURE_NAME = 'ZSLY_ST'
IT_FIELDCAT = CT_FIELDCAT[]
IS_LAYOUT = GS_LAYOUT
TABLES
T_OUTTAB = IT_MAR.

Oracle Nedir?

Sap yardim blogu evet ama en büyük rakipi oracle bilmeden sap tam taninamaz. Yine ayni sekilde cok yaygın olmasa da microsoft kurumsal yazilimlar saglamakta. Türkiyeden de netsis unutmamak lazım.

Oracle Applications Unlimited

View more presentations from Fenomeno. (tags: oracle siebel)

Otomotiv İçin Sap Kullanımı

Installing Ubuntu7.04 Linux

View more presentations from poustchi. (tags: installation step-by-step)

Adim adim Ubuntu Server Kurma

Installing Ubuntu7.04 Linux

View more presentations from poustchi. (tags: installation step-by-step)

Sap virtualization

SAP virtualization

View more presentations from ccarter1969. (tags: sap virtualize)

Windows Application Server For Unix Sap System

Sap windows application server setup for unix sap sap system.How to install application server.
free pdf download

OO ABAP SAP

OO ABAP SAP

View more presentations from srinatha. (tags: sap abap)

Sap Intro

SAP INTRO

View more presentations from Dr.Ravi. (tags: sap intro)

Abap e-book

abap pdf

Abap e-book

abap pdf

ABAP nedir?

ABAP (Advanced Business Application Programming) Alman yazýlým þirketi SAP AG ‘nin
geliştirdiði 4.kuşak dilidir . Üst seviye bir nesne tabanlı programlama dilidir. Tüm R/3
uygulamalarý ABAP ile geliþtirilmiþtir.ABAP/4 SAP uygulamalarýnýn yazılımı,değişimi , uyarlanm
,sorgulamalarý ve ek geliþtirmeleri için kullanılmakatadýr. ABAP/4 programlama dili
aplikasyon programcılarınýn endüstriyel ortamlarda kendi þirketlerine uygun çözümler üretebilme
esnekliðini saðlamaktadýr. Devamlı gelişen ABAP/4 iş ortamının bütün ihtiyaçlarını karşılamakta
ABAP programlama dili SAP R/3 platformunda geliştirme yapmak için SAP yazılımcıları tarafından
kullanýlmaktadýr. SAP müþterileri SAP uygulamalarýný geliþtirme ihtiyacý duyabilir- müþteriler
ABAP programlama ile iþletmelerine özel rapor ve arayüzler geliþtirir. Yazýlýmcýlar için
öðrenilmesi kolay olan bu dil , programlama bilmeyenlerin kullanabilecekleri bir tool
deðildir. Ýyi programlama becerisi, iliþkisel veritabaný dizayn bilgisi ve tercihen object-
oriented kavramlarý, ABAP programlarý yazmak için baþlýca gereklerdir.
abap help

SAP CRM sağladığı faydalar

SAP Customer Relationship Management (SAP CRM), size müşteri ihtiyaçlarını tahmin etmek ve müşterilerinizle uzun süreli, kârlı ilişkiler kurmak için ihtiyaç duyacağınız kavrayışı ve analizi sunar.

SAP CRM ile:

Etkili müşteri kazanımı, doğrudan pazarlamadan elde edilen yanıt oranlarındaki artış, gelişen çapraz ve yukarı satış, müşteri sayısında değişimin azalması sayesinde gelirleriniz artar.
Etkileşimlerin otomatikleşmesi, artan saha verimliliği, azalan doğrudan pazarlama ve medya harcamaları, optimize stoklar ve basitleşip hızlanan süreçler sayesinde masraflarınız azalır.
Artan müşteri bağlılığı, müşterilerin ve pazarın daha iyi kavranması ve pazara ürün sürme süresinin kısalması ile rekabet üstünlüğü kazanırsınız.
SAP CRM müşteri yakınlığını, ürün liderliğini ve işletme konusundaki mükemmelliği artırarak size çeşitli avantajlar kazandırır:

Müşteri davranışlarını daha iyi kavrayarak, ürün ve hizmetlerinizi müşteri ihtiyaçlarına göre uyarlayabilirsiniz.
Eğilimleri tanımlar, ortaya çıkan müşteri ihtiyaçlarını belirler ve gelecekte ortaya çıkacak talepleri karşılayacak ürünleri tasarlamak ve piyasaya sürmek için geliştirme kaynaklarınızı yeniden düzenlersiniz.
Kaynaklarınızı düzenlersiniz, süreçleri ve işlevleri entegre edersiniz, müşteri beklentilerini karşılayan ürün ve hizmetler sunarsınız.
SAP CRM size aşağıdaki özelliklere sahip, benzersiz ve eksiksiz bir çözüm sunar:

Müşteriyle irtibata geçişten ticari işlemlere, siparişin yerine getirilmesinden müşteri hizmetlerine kadar tüm müşteri etkileşim döngüsünün desteklenmesi,
Kullanıma hazır analiz ve stratejik işletme yönetiminin entegrasyonu ile tek bir müşteri görünümü sağlanması,
Tüm değer ağı ile bağlantıyı sağlamak için sektörde lider kurumsal portal ve değiş tokuş özelliklerinin en iyi şekilde kullanılması.
Ayrıca SAP CRM ‘in benzersiz entegrasyon özellikleri, size aşağıdaki olanakları sunar:

Tüm CRM uygulamalarını içeren eksiksiz bir paket,
SAP Business Suite ile hızlı ve kolay bağlantı,
Mevcut tedarik zinciri yönetimi, ürün ömrü yönetimi, finansal yönetim ve HR yönetimi gibi SAP ve SAP dışındaki kuruluşların işletme işlevleriyle entegrasyon.Sap

Sap CRM Müşteri Odaklı İş

SAP Customer Relationship Management (SAP CRM) şirketleri müşteri değeri yaratma ve kârlı büyüme sağlama konusunda yetkinleştirir. Çözüm, ön ve arka ofis işlevlerini tek, müşteri odaklı bir işlem haline getirir.

Ayrıca çeşitli veri kaynaklarından ve iş süreçlerinden elde edilen, kişiye özgü hale getirilmiş bilgileri sunarak çalışanlar, iş ortakları ve müşteriler arasında işbirliği sağlar.

SAP CRM çalışanlarınızı, iş ortaklarınızı, süreçleri ve teknolojiyi kapalı devre bir müşteri etkileşim döngüsü içinde birbirine bağlayan tek CRM çözümüdür. Böylece aday müşterileri sizinle ilk kez alışveriş yapan alıcılara, sizinle bir kez alışveriş yapmış alıcıları sürekli müşterilere dönüştürebilirsiniz.

Bu çözüm, pazarlama planlaması, kampanya yönetimi, tele satış, aday müşteri oluşturma ve müşteri segmentasyonu gibi ihtiyaç duyduğunuz tüm özellikleri ve işlevleri size sunarak müşteri ilişkilendirme (engagement) döngüsünün her aşamasında yanınızda yer alır.

SAP CRM ayrıca gerçek zamanlı kullanılabilirlik kontrolleri, ilgili kişi yönetimi, faturalama yönetimi, siparişi yerine getirebilme görüntülemesi ve sipariş izlemesine olanak tanır. Bütün bunların yanı sıra SAP CRM ile müşterilerinizle (müşteri etkileşim merkezi, Web temelli müşteri selfservisi özellikleri, hizmet ve şikayet yönetimi, saha hizmeti ve dağıtım, yönetim gibi) tüm kanallar aracılığıyla sürekli bir biçimde ilgilenebilirsiniz.

SAP CRM ile, CRM’in dört boyutu aracılığıyla uzun süreli, kârlı müşteri ilişkileri yürütebilirsiniz:

Connected CRM-- Müşteri odaklı iş süreçleriyle kesintisiz, uçtan uca entegresyon sağlar
People-centric CRM-- Çalışanları tek tek yetkinleştirmek için tasarlanmış, önceden tanımlı gelişmiş bir portal teknolojisi kullanır
Collaborative CRM -- Ortak müşteri süreçlerini şirketler, ortaklar ve tedarikçiler arasında entegre eder.
Industry-specific CRM -- Şirketinize özgü CRM ihtiyaçlarını karşılamak için sektörünüze yönelik özellikler sunar

Sap Genel Olarak?

SAP BUSINESS SUITE

Bütün bütçeleri sonuna kadar kullandınız ve bütün masrafları minimuma indirdiniz... Bunu gerçekten yapabildiğinizden emin misiniz? SAP Business Suite; size işletmenizin tüm noktalarını gerçek zamanlı olarak görüntüleme olanağı sunarak tedarik zincirinizin işleyişini hızlandırmanızı, ürünleri piyasaya daha hızlı sürmenizi, tedarikten daha fazlasını elde etmenizi ve kopyalama için çaba harcamamanızı sağlar. Kapsamlı bir business çözümleri ailesi olan SAP Business Suite, mevcut sistemlerinizle entegre olarak bu sistemlerden en iyi şekilde faydalanmanızı sağlar.

SAP Customer Relationship Management
SAP ERP
SAP Product Lifecycle Management
SAP Supplier Relationship Management
SAP Supply Chain Management
SAP Business Suite şirketlerin müşterileri, tedarikçileri, lojistik ortakları, finansal hizmet sağlayıcıları ve çalışanlarıyla aralarındaki ilişkileri yönetme olanağı sağlayarak, bu ilişkilerden verimlilik ve karlılık elde edilmesini mümkün kılar. Ayrıca bu entegre çözüm seti, size en yüksek quality standards sunarak rakiplerinizin önüne geçmenize olanak tanır.