SELECTION-SCREEN BEGIN OF BLOCK parametreler WITH FRAME TITLE text–001. SELECT-OPTIONS: sdmid FOR zcd_dnsmn_kmlk–dmid, svorna FOR zcd_dnsmn_kmlk–vorna, snachn FOR zcd_dnsmn_kmlk–nachn, sulke FOR zcd_dnsmn_kmlk–ulke, sfirma FOR zcd_dnsmn_kmlk–firma, syaratan FOR zcd_dnsmn_kmlk–yaratan, serdat FOR zcd_dnsmn_kmlk–erdat. SELECTION-SCREEN END OF BLOCK parametreler. SELECTION-SCREEN FUNCTION KEY 1. START-OF-SELECTION. INITIALIZATION. CONCATENATE icon_create ‘Yeni’ INTO sscrfields–functxt_01. AT SELECTION-SCREEN. IF sscrfields–ucomm EQ ‘FC01’. SET SCREEN 0. CLEAR ztablo. CALL SCREEN 0100. ENDIF.
TYPE-POOLS slis. DATA : BEGIN OF itab OCCURS 0, tarih TYPE string, adsoyad TYPE string, bolum TYPE string, sayi TYPE i. DATA : END OF itab. * Excel kayıtlarını programda tutacak internal tablonun tanımlanması DATA gt_excel_kayitlari TYPE TABLE OF alsmex_tabline. DATA gv_repid TYPE sy–repid. DATA gt_fieldcat TYPE slis_t_fieldcat_alv. FIELD-SYMBOLS <fs_excel_kayit> LIKE LINE OF gt_excel_kayitlari. * selection screen üzerinde son kullanıcının dosya adını *girecegi alanin tanimlanmasi. PARAMETERS pa_dosya TYPE c LENGTH 128 DEFAULT ‘C:\Users\TEKIN.PEKCAN\Desktop\D\TEST.XLSX’. *kullanici imleci ekranda pa_dosya alanına getirip F4 tuşuna * basınca atılacak olayın programlanması AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_dosya. * F4_FILENAME fınksiyon modülü çağrılarak dosya seçme * diyalog ekranının gösterilmesi. CALL FUNCTION ‘F4_FILENAME’ EXPORTING field_name = ‘PA_DOSYA’ IMPORTING file_name = pa_dosya. START-OF-SELECTION. gv_repid = sy–repid. * fonksiyon modülünü kullanarak excel dosyasındaki kayıtları * gt_excel_kayitlari itabına oku. CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’ EXPORTING filename = pa_dosya i_begin_col = 1 ” başlanacak sütun...
Son yorumlar