Değişikliklerde log gösterme Resimli

Önce se54 ten display diyoruz

 Tıkladıktan sonra

Log data changes muhakkak tıklı olması gerekir. Eğer tıklı değilse tıkı koyduğunuz andan itibaren logları görebilirsiniz.

Alv Örnek 3

REPORT  zmus_alv01.

TABLES     : zv_equipment .
TYPE-POOLS : icon         .
*--------------------------------------------------------------------
* G L O B A L   C L A S S
*--------------------------------------------------------------------
INCLUDE zmus_alv02_alv_class.
*--------------------------------------------------------------------
* G L O B A L   I N T E R N  A L   T A B L E S
*--------------------------------------------------------------------
DATA: gt_xtab       TYPE STANDARD TABLE OF zv_equipment.
*--------------------------------------------------------------------
* G L O B A L   D A T A
*--------------------------------------------------------------------
DATA: ok_code LIKE sy-ucomm,
     gwa_xtab LIKE zv_equipment.

Alv Örnek 2

REPORT  zmus_alv01.

TABLES: zv_equipment.
*--------------------------------------------------------------------
* G L O B A L   I N T E R N  A L   T A B L E S
*--------------------------------------------------------------------
DATA: gi_sflight TYPE STANDARD TABLE OF zv_equipment.
*--------------------------------------------------------------------
* G L O B A L   D A T A
*--------------------------------------------------------------------
DATA: ok_code LIKE sy-ucomm,
     g_wa_sflight LIKE zv_equipment.

Alv Örnek 1

REPORT  zmus_alv .

* ÝNTERNAL TABLO TANIMI
DATA  BEGIN OF ialv OCCURS 0.
        INCLUDE STRUCTURE zmfatura.
DATA  END   OF ialv.

* ALV ÝÇÝN DATA TANIMI
TYPE-POOLS: slis.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: g_repid LIKE sy-repid.

Sap NetWeaver 7 Kurulum

Veri cekme ve zli tablo olusturup veri girme

*&---------------------------------------------------------------------*

*& Report  ZERN_TAW12_WRITE                                            *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

REPORT  ZERN_TAW12_WRITE  NO STANDARD PAGE HEADING .

* KULANILACAK TABLOLAR

TABLES : SBOOK   ,

         SFLIGHT ,

         SSCRFIELDS,

         SCARR .

*         ZNUFUS.

* 1. EKRANDA YAZILACAK DEGERLER

DATA : BEGIN OF KTAB OCCURS 0       ,

       A(1)                         , " Checkbox

       CARRNAME LIKE SCARR-CARRNAME ,

       CARRID LIKE SCARR-CARRID     ,

       CONNID   LIKE SPFLI-CONNID   ,

       CITYFROM LIKE SPFLI-CITYFROM ,

       CITYTO   LIKE SPFLI-CITYTO   ,

         END OF KTAB.

ucak kayıt rezervasyonu zor

report ZERN_TAW12_WRITE.

* KULANILACAK TABLOLAR
TABLES : sbook   ,
         sflight ,
         scarr   .

* 1. EKRANDA YAZILACAK DEGERLER
DATA : BEGIN OF ktab OCCURS 0       ,
       a(1)                         , " Checkbox
       carrname LIKE scarr-carrname ,
       carrid LIKE scarr-carrid     ,
       connid   LIKE spfli-connid   ,
       cityfrom LIKE spfli-cityfrom ,
       cityto   LIKE spfli-cityto   ,
         END OF ktab.

SPfli ve sflight tablosundan veri okumak ve isleme

DATA ITAB LIKE SPFLI OCCURS 0 WITH HEADER LINE.
DATA CTAB LIKE SFLIGHT OCCURS 0 WITH HEADER LINE.

PARAMETERS: P_CARRID LIKE SPFLI-CARRID.

START-OF-SELECTION.
  PERFORM GET_DATA.


AT LINE-SELECTION.
  PERFORM WRITE.

Sirket verisi girip collect yapan program

REPORT  ZERN_TAW12_WRITE  NO STANDARD PAGE HEADING .
TABLES SSCRFIELDS.

* Þirket Verilerinin Tutulduðu Tablo
DATA : BEGIN OF gt_stab OCCURS 0 ,
     SAD(25),
     PAD(25),
     MAAS TYPE  I,
END OF gt_stab,

* CTAB TABLOSUNDA BENZER FIELD ICERIKLERI TOPLANACAK
CTAB LIKE gt_stab OCCURS 0 WITH HEADER LINE .

SELECTION-SCREEN BEGIN OF BLOCK B1
                 WITH FRAME TITLE TEXT-002.
PARAMETERS : SIR  TYPE TEXT20 ,
             AD   TYPE TEXT20 ,
             MAAS TYPE I      .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN PUSHBUTTON 26(20) TEXT-003 USER-COMMAND EKL.
SELECTION-SCREEN END   OF BLOCK B1 .

Seçim ekranı yaratma Buton koyma

REPORT  ZERN_TAW12_WRITE  NO STANDARD PAGE HEADING .

DATA : BEGIN OF YTAB OCCURS 0,

          AD(20),
          SOYAD(20),
          SIRKET(20),
       END OF YTAB.

TABLES SSCRFIELDS.

SELECTION-SCREEN BEGIN OF BLOCK B1
                 WITH FRAME TITLE TEXT-002.

Mantıksal database

NODES : spfli, sflight.



START-OF-SELECTION.


GET spfli.

  WRITE: /     spfli-carrid COLOR COL_HEADING NO-GAP,
               spfli-connid COLOR COL_HEADING,
           /20 spfli-cityfrom COLOR COL_NORMAL INTENSIFIED ON,
               spfli-cityto   COLOR COL_NORMAL INTENSIFIED OFF,
         /(20) spfli-deptime UNDER spfli-cityfrom
               COLOR COL_NORMAL INTENSIFIED ON
               USING EDIT MASK '__:__',
          (20) spfli-arrtime UNDER spfli-cityto
               COLOR COL_NORMAL INTENSIFIED OFF
               USING EDIT MASK '__:__'.

GET spfli LATE.
  ULINE.

GET sflight.
  WRITE : / sflight-fldate.

Ekrana işleme

TABLES SSCRFIELDS.

* Þirket Verilerinin Tutulduðu Tablo
DATA : BEGIN OF STAB OCCURS 0 ,
     SAD(25),
     PAD(25),
     MAAS TYPE  I,
     CH(1) ,

END OF STAB,
* collect table
* CTAB TABLOSUNDA BENZER FIELD ICERIKLERI TOPLANACAK

CTAB LIKE STAB OCCURS 0 WITH HEADER LINE .

SELECTION-SCREEN BEGIN OF BLOCK B1
                 WITH FRAME TITLE TEXT-002.

PARAMETERS : SIR  TYPE TEXT20 ,
             AD   TYPE TEXT20 ,
             MAAS TYPE I      .

At line seçimi

DATA : satir1 VALUE '1', satir2 VALUE '2'.


AT LINE-SELECTION.
  BREAK-POINT.


START-OF-SELECTION.

  WRITE : / 'SATIR1'. HIDE satir1.
  WRITE : / 'SATIR2'. HIDE satir2.

At komutu örneği

DATA : itab1 LIKE sflight OCCURS 0 WITH HEADER LINE.
DATA : itab2 TYPE TABLE OF sflight WITH HEADER LINE.



SELECT * FROM sflight INTO TABLE itab1.

data : k type i.

LOOP AT itab1.

  k = 0.

  AT NEW connid.
    ADD 1 TO k.
  ENDAT.

  AT NEW carrid.
    ADD 1 TO k.
  ENDAT.

  IF k >= 1.

    ULINE.

  ENDIF.


  WRITE : / itab1-carrid, itab1-connid.



ENDLOOP.

3 kademeli line selection

*&---------------------------------------------------------------------*
*& Report  ZERN_PRGO2                                                  *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  zern_prgo2 NO STANDARD PAGE HEADING .
TABLES:scarr,sflight.
DATA :gt_spfli   LIKE spfli OCCURS 0 WITH HEADER LINE,
      gt_scarr   LIKE scarr OCCURS 0 WITH HEADER LINE,
      gt_sflight LIKE sflight OCCURS 0 WITH HEADER LINE.

DATA: bos TYPE i,
      v(1) TYPE c VALUE '|'.
*PARAMETERS: P_CARRID LIKE SCARR-CARRID.