REPORT ysap_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
Computer Engineer BSc
SAP Department Manager
Contact : serkurumsal@yandex.com
0 Comments