SAP sistemində xüsusi proqramlaşdırma dili olan ABAP ilə ALV (ABAP LIST VIEWER) hesabatına baxaq.
SE38 Əməliyyat kodundan proqram yaradırıq və SPFLİ Table-dan məlumatlari İnternal table-a Select edirik. Sonra isə Pattern düyməsinə vururuq. Açılan Pəncərədə CALL FUNCTİON (REUSE_ALV_LIST_DISPLAY) bölməsinə funksiyanın adını yazırıq və Enter düyməsinə basırıq.
I_STRUCTURE_NAME bölməsinə Table-ın adını yazırıq. t_outtab bölməsinə isə İnternal Table-ın adını yazırıq.
DATA: gt_spfli TYPE TABLE OF spfli.
SELECT * FROM spfli INTO TABLE gt_spfli.
call function 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME = 'SPFLI'
* I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
tables
t_outtab = gt_spfli
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
SE38 Əməliyyat kodundan proqram yaradırıq və SPFLİ Table-dan məlumatlari İnternal table-a Select edirik. Sonra isə Pattern düyməsinə vururuq. Açılan Pəncərədə CALL FUNCTİON (REUSE_ALV_LIST_DISPLAY) bölməsinə funksiyanın adını yazırıq və Enter düyməsinə basırıq.
I_STRUCTURE_NAME bölməsinə Table-ın adını yazırıq. t_outtab bölməsinə isə İnternal Table-ın adını yazırıq.
Proqrami Activate edirik və çalışdır düyməsinə vururuq.
Göstərilən hesabati asanlıqla EXCEL-ə atmaq mümkündür.
REPORT ZALV_RAPORT.
DATA: gt_spfli TYPE TABLE OF spfli.
SELECT * FROM spfli INTO TABLE gt_spfli.
call function 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME = 'SPFLI'
* I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
tables
t_outtab = gt_spfli
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
No comments:
Post a Comment