Dərs 22: Seçim ekranı vasitəsilə İnternal Table-a məlumatın ötürülməsi və ekrana cıxarılması...

Proqramı çalışdıran zaman seçim ekranı vasitəsilə İnternal Table-a məlumatların ötürülməsi və yeniden həmin məlumatların ekrana çıxarılması üçün aşağıdakı koddan istifadə edirik.

Seçim ekranında Paramaters dəyişənlərinə yeni ad vermək üçün Goto -> Text Elements -> Selection Texts-ə daxil oluruq.

Proqramı çalışdırırıq və məlumatları daxil etdikdən sonra Execute (F8) düyməsinə basırıq.

Seçim ekranı vasitəsilə daxil etdiyimiz məlumatlar təkrarlanaraq İnternal Table-a 5 dəfə Append olunur və ekrana cıxarılır.

report  zwrite_from_internal.

DATA: BEGIN OF anbar OCCURS 0 ,

      mehsul_no TYPE i,

  mehsul_adi(15) TYPE c,

  mehsul_tar(8) TYPE c,

  mehsul_qiymeti TYPE p DECIMALS 2,

  END OF anbar.

DATA: gs_anbar LIKE LINE OF anbar.

*****(OBLIGATORY əmri həmin xananın məcburi doldurulmasını təmin edir).

PARAMETERS: m_no       TYPE i OBLIGATORY,

            m_adi(15)  TYPE c OBLIGATORY,

            m_tar      TYPE sy-datum OBLIGATORY,

            m_qiy      TYPE p OBLIGATORY.

*****(DO 5 TIMES əmri DO-ENDDO aralığında yazılan kodun 5 dəfə təkrarlanmasına imkan yaradır).

DO 5 TIMES.

  anbar-mehsul_no = m_no.

  anbar-mehsul_adi = m_adi.

  anbar-mehsul_tar = m_tar.

  anbar-mehsul_qiymeti = m_qiy.

  APPEND anbar.

ENDDO.

LOOP AT anbar INTO gs_anbar.

  WRITE:/ anbar-mehsul_no,

          anbar-mehsul_adi,

          anbar-mehsul_tar,

          anbar-mehsul_qiymeti.

ENDLOOP.