*&---------------------------------------------------------------------*
*& Report ZSAP_CHECK_BOXES
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zsap_check_boxes.

TABLES: pa0002, pa0001.

PARAMETERS: pernr type pa0002-pernr,
            perdet AS CHECKBOX DEFAULT 'X',
            orgdet AS CHECKBOX .
CASE perdet.
  WHEN 'X'.
    WRITE'Employee details' color 3.
    ULINE.
    SELECT * FROM pa0002 where pernr eq pernr .
      WRITE: / pa0002-pernr, pa0002-vorna, pa0002-nachn, pa0002-gbdat, pa0002-natio.
    ENDSELECT.
  WHEN ' '.
    WRITE'You have not selected employee details' color 6.
endcase.
uline.
case orgdet.
  WHEN 'X'.
    WRITE'Org details' color 3.
    ULINE.
    SELECT * FROM pa0001 where pernr eq pernr  .
      WRITE: / pa0001-pernr, pa0001-bukrs, pa0001-werks, pa0001-persg, pa0001-persk.
    ENDSELECT.
 WHEN ' '.
    WRITE'You have not selected org details' color 6.
 endcase.
uline.
if ( ( perdet = 'X' ) and ( orgdet eq 'X') ).
WRITE'You have selected selected both Employee and org details' color 7.
endif.
uline.




 


 


 




 

Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com