****************************************************** REPORT zhrdel001 LINE-SIZE 139 NO STANDARD PAGE HEADING MESSAGE-ID 00. * 4.6C LCP * L9CK024231 09/00 note 335072 * 4.6A * AHRK044783 03/99 Delete transparent RGDIR and WPBP if they exist * 4.5 * AHRK02360100 09/98 Read Molga from cluster CU instead of infotypes *&---------------------------------------------------------------------* *& Report RPUDEL20 *&---------------------------------------------------------------------* *REPORT RPUDEL20 LINE-SIZE 139 NO STANDARD PAGE HEADING MESSAGE-ID 00. * only printable up to line-size 132 ************************************************************************ * Includes * ************************************************************************ INCLUDE <icon>. ********************************************************************* * Tables ********************************************************************* TABLES: t500l, pcl2, pernr, t000, "t500p out AHRK02360100 hrpy_rgdir, "transparent RGDIR "AHRK044783 hrpy_wpbp. "transparent WPBP "AHRK044783 INFOTYPES: 0001. *NODES: peras. ********************************************************************* * DATA ********************************************************************* DATA:zyy(4),zmm(2),zny(6),zzt(1),zbb(1)."¿ØÖƼǼµÄÄêÔÂ/״̬,°æ±¾--ZXY DATA:gs_date TYPE sy-datum,gs_datm TYPE sy-datum. DATA: BEGIN OF return, "returncode back(4) VALUE 'BACK', exit(4) VALUE 'EXIT', show(4) VALUE 'SHOW', canc(4) VALUE 'CANC', sort(4) VALUE 'SORT', del(4) VALUE 'DEL ', entmark(4) VALUE 'ENTM', markall(4) VALUE 'MARK', expand_all(4) VALUE 'EXPA', collapse_all(4) VALUE 'COLL', END OF return. DATA: persnr LIKE pernr-pernr, previous_persnr LIKE persnr. DATA: c_pernr(8), c_seqnr(5). DATA: country_grouping LIKE t500p-molga. "type numc(2) DATA: relid LIKE t500l-relid. DATA: sortfield(40). RANGES: sortfd FOR sortfield. DATA: rgdir LIKE pc261 OCCURS 0 WITH HEADER LINE. DATA: BEGIN OF list_rgdir OCCURS 0, persnr LIKE persnr, selec TYPE c. INCLUDE STRUCTURE pc261. DATA: END OF list_rgdir. DATA: hide_seqnr LIKE pc261-seqnr, clicked_seqnr LIKE pc261-seqnr, hide_persnr LIKE persnr. DATA: first TYPE i VALUE 1, " 1 before first print_list, 0 after. line_no_x TYPE i. DATA: answer(1) TYPE c. DATA: BEGIN OF deleted_list OCCURS 0, "QNY240997 persnr LIKE persnr, fpper LIKE pc261-fpper, inper LIKE pc261-inper, bondt LIKE rgdir-bondt, "QNY021097 payid LIKE rgdir-payid, "QNY021097 END OF deleted_list. * -------- DATA & CONSTANTS FOR PROTOCOL ----------------- DATA: prot_obj LIKE balhdr-object VALUE 'HRPU'. DATA: prot_mes LIKE balmi OCCURS 0 WITH HEADER LINE. "used as interface to function appl_log_write_messages DATA: BEGIN OF prot_nr OCCURS 1. "interface for appl_log_write_db INCLUDE STRUCTURE balnri. DATA: END OF prot_nr. *--------- Data for more than 1 pernr - functionality --------------- DATA: BEGIN OF persnr_list OCCURS 0 , selec TYPE c , persnr LIKE persnr, molga LIKE country_grouping, relid LIKE relid, END OF persnr_list. DATA: BEGIN OF bad_persnr_list OCCURS 0, persnr LIKE persnr, texts(50), END OF bad_persnr_list. DATA: fieldname(30). "for get cursor command at line-selection DATA: display_bad, "display enqueued or bad pers. numbers? 'X' = yes display_deleted. "display deleted payroll results? 'X' = yes DATA: hide_icontype(6). *****ÏÔʾºËËãÆÚ¼äÊÇ¡®000000¡¯µÄн×ʽá¹û *SELECTION-SCREEN:BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001. *SELECTION-SCREEN BEGIN OF LINE. *PARAMETERS:biaoshi AS CHECKBOX DEFAULT ' '. *SELECTION-SCREEN COMMENT (40) text-092. *SELECTION-SCREEN END OF LINE. *SELECTION-SCREEN:END OF BLOCK bl1. *ÅжÏÊÇ·ñΪÒÑÍ˳öºËËãµÄн×ÊÆÚ¼ä---ZXY. AT SELECTION-SCREEN. ***20190919 * IF SY-HOST = 'SAPPRD2'. * LEAVE PROGRAM. * ENDIF. * * if sy-sysid = 'PRO' or sy-host = 'SAPPRD1' . ** OR sy-sysid = 'DVL'. * message '不能在生产系统执行该程序！' type 'E'. * endif. AT SELECTION-SCREEN OUTPUT. CLEAR:pnpabkrs[],pnpabkrs-low. IF pnpabkrs[] IS INITIAL AND pnpabkrs-low IS INITIAL. pnpabkrs-low = pnpxabkr . pnpabkrs-sign = 'I' . pnpabkrs-option = 'EQ' . APPEND pnpabkrs. ENDIF. ***20190919 *只校验是否生产系统，测试系统需要支持批量删多个月的薪资结果 * SELECT SINGLE pabrj pabrp state INTO (zyy,zmm,zzt) FROM t569v * WHERE abkrs = pnpxabkr. * IF sy-subrc = 0. * CONCATENATE zyy zmm INTO zny. * IF pnpdisbd+0(6) < zny * OR ( pnpdisbd+0(6) = zny AND zzt = 3 ). ** ZBB = 1."È·ÈÏ°æ ** MESSAGE e398 WITH '±¾ÔÂÒÑÍ˳öн×ʺËË㣬²»ÔÊÐíɾ³ý½á¹û!'. * MESSAGE e398 WITH '只能删除当前核算周期内的薪资数据！'. * STOP. ** ELSE. ** ZBB = 2."¼ìºË°æ * ENDIF. * ENDIF. ********************************************* ************************************************************************ PERFORM check_client. ************************************************************************ GET pernr. ************************************************************************ persnr = pernr-pernr. "AHRK02360100 begin *------- get country of personnel number *(needed for authority check on cluster & for REBUILD_PAYROLL_DIRECTORY) PERFORM check_authority USING 'CU'. CALL FUNCTION 'CU_READ_RGDIR' EXPORTING persnr = pernr-pernr IMPORTING molga = country_grouping TABLES in_rgdir = rgdir EXCEPTIONS no_record_found = 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. bad_persnr_list-persnr = persnr. IF sy-subrc = 1. bad_persnr_list-texts = 'has no payroll results!'(072). ELSE. CLEAR bad_persnr_list-texts. ENDIF. COLLECT bad_persnr_list. REJECT. ENDIF. REFRESH rgdir. * reading from infotype deleted "AHRK02360100 end *------- get RELID (area identification for MOLGA in import/export * data base PCL2) ----------- SELECT SINGLE * FROM t500l WHERE molga = country_grouping. relid = t500l-relid. IF sy-subrc NE 0. "ie no entry in table T500L for Molga=country_gr bad_persnr_list-persnr = persnr. CONCATENATE 'No entry in table T500L for Molga = '(009) country_grouping INTO bad_persnr_list-texts. COLLECT bad_persnr_list. ENDIF. *------- authority check --------------------- PERFORM check_authority USING relid. *------- enqueue personnel number ------------ move !! qnytest PERFORM enqueue_pernr IN PROGRAM sapfp50g USING persnr space. IF sy-subrc NE 0. "pernr is already enqueued bad_persnr_list-persnr = persnr. CONCATENATE 'enqueued by user: '(073) sy-msgv1 "user who has enqueued pernr INTO bad_persnr_list-texts. COLLECT bad_persnr_list. ELSE. *------- fill table with payroll records --------------------- PERFORM fill_rgdir TABLES list_rgdir rgdir USING persnr. *------- add persnr to list of successful persnr ------------- persnr_list-persnr = persnr. persnr_list-molga = country_grouping. persnr_list-relid = relid. COLLECT persnr_list. ENDIF. *qnytest endprovide. CLEAR:gs_date,gs_datm. gs_date = pnpdisbd. gs_datm = pnpdised. ************************************************************************ END-OF-SELECTION. " end of loop over personnel numbers ************************************************************************ *------- print list of payroll results --------------- PERFORM print_persnr_list TABLES list_rgdir persnr_list CHANGING hide_seqnr hide_persnr display_bad display_deleted. ************************************************************************ AT USER-COMMAND. ************************************************************************ PERFORM maintain_list TABLES list_rgdir USING hide_seqnr clicked_seqnr hide_persnr. "clicked_seqnr only non-initial at double click! CASE sy-ucomm. WHEN return-del. PERFORM delete_payroll_results. WHEN return-entmark. "select none LOOP AT list_rgdir. list_rgdir-selec = ' '. MODIFY list_rgdir. ENDLOOP. WHEN return-markall. "select all LOOP AT list_rgdir. list_rgdir-selec = 'X'. MODIFY list_rgdir. ENDLOOP. WHEN return-exit. PERFORM dequeue_pernr IN PROGRAM sapfp50g USING persnr. LEAVE PROGRAM. WHEN return-canc. PERFORM dequeue_pernr IN PROGRAM sapfp50g USING persnr. LEAVE TO SCREEN 0. WHEN return-expand_all. LOOP AT persnr_list. persnr_list-selec = 'X'. MODIFY persnr_list. ENDLOOP. WHEN return-collapse_all. LOOP AT persnr_list. persnr_list-selec = ' '. MODIFY persnr_list. ENDLOOP. ENDCASE. PERFORM print_persnr_list TABLES list_rgdir persnr_list CHANGING hide_seqnr hide_persnr display_bad display_deleted. sy-lsind = 0. ************************************************************************ AT LINE-SELECTION. ************************************************************************ GET CURSOR FIELD fieldname. IF fieldname = 'ICON_EXPAND'. "expand list for current persnr IF hide_icontype = 'BADIN '. "QNY270997 display_bad = 'X'. "QNY270997 ELSEIF hide_icontype = 'DELIN '. "QNY270997 display_deleted = 'X'. "QNY270997 ELSE. "QNY270997 LOOP AT persnr_list WHERE persnr = hide_persnr. persnr_list-selec = 'X'. MODIFY persnr_list. ENDLOOP. ENDIF. "QNY270997 ELSEIF fieldname = 'ICON_COLLAPSE'. "collapse list for current persnr IF hide_icontype = 'BADOUT'. "QNY270997 display_bad = ' '. "QNY270997 ELSEIF hide_icontype = 'DELOUT'. "QNY270997 display_deleted = ' '. "QNY270997 ELSE. "QNY270997 LOOP AT persnr_list WHERE persnr = hide_persnr. persnr_list-selec = ' '. MODIFY persnr_list. ENDLOOP. ENDIF. "QNY270997 ELSEIF fieldname = 'ICON_SELECT_ALL'."select all results for curr.per LOOP AT list_rgdir WHERE persnr = hide_persnr. list_rgdir-selec = 'X'. MODIFY list_rgdir. ENDLOOP. ELSEIF fieldname = 'ICON_DESELECT_ALL'. "deselect results for curr.per LOOP AT list_rgdir WHERE persnr = hide_persnr. list_rgdir-selec = ' '. MODIFY list_rgdir. ENDLOOP. ELSE. "if there was double click on a line in list_rgdir table " toggle between 'selected' and 'not selected'. IF NOT hide_seqnr IS INITIAL. "QNY270997 CLEAR clicked_seqnr. clicked_seqnr = hide_seqnr. ELSE. "QNY270997 CLEAR clicked_seqnr. "QNY270997 ENDIF. "QNY270997 ENDIF. IF fieldname NE 'ICON_DESELECT_ALL' AND fieldname NE 'ICON_SELECT_ALL'. "maintain_list would delete "the entries made by these 2 PERFORM maintain_list TABLES list_rgdir USING hide_seqnr clicked_seqnr hide_persnr. ENDIF. CLEAR: clicked_seqnr, hide_seqnr, hide_persnr, hide_icontype. PERFORM print_persnr_list TABLES list_rgdir persnr_list CHANGING hide_seqnr hide_persnr display_bad display_deleted. sy-lsind = 0. CLEAR fieldname. *------------------- form routines --------------------------------- ************************************************************************ FORM delete_payroll_results. ************************************************************************ * check if payroll results were selected for deletion LOOP AT list_rgdir WHERE selec NE ' '. EXIT. ENDLOOP. IF sy-subrc NE 0. MESSAGE e015(5a) WITH 'payroll result'(004). "choose payroll result, please ENDIF. * really delete ? CLEAR answer. CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = text-020 "warning against inconsistency diagnosetext2 = text-021 diagnosetext3 = text-022 "red = already booked! textline1 = ' ' textline2 = text-023 "delete nevertheless? titel = 'Delete?'(026) start_column = 25 start_row = 6 IMPORTING answer = answer EXCEPTIONS OTHERS = 1. IF sy-subrc NE 0. MESSAGE e241(57) "error in function module &1 with return code &2 WITH 'POPUP_TO_CONFIRM_WITH_MESSAGE' sy-subrc. ENDIF. IF answer = 'J'. "delete! * fill table with first keyfield of pcl2: sortfield (pernr,seqnr) REFRESH sortfd. * gs_date = pnpbegda. * gs_datm = pnpendda. LOOP AT persnr_list. LOOP AT list_rgdir WHERE persnr = persnr_list-persnr AND selec NE ' ' AND abkrs IN pnpabkrs AND fpper BETWEEN gs_date+0(6) AND gs_datm+0(6). * pernr + seqnr -> char field sortfield (pcl2-srtfd) MOVE list_rgdir-persnr TO c_pernr. MOVE list_rgdir-seqnr TO c_seqnr. * fill internal table with 'sortfield' of all selected entries CONCATENATE c_pernr c_seqnr INTO sortfd-low. sortfd-sign = 'I'. "in sortfd-option = 'EQ'. "equal APPEND sortfd. ENDLOOP. * if no sequence number is selected (sy-subrc = 4), exit the loop * to avoid deletion with empty sortfd. * (if sortfd was empty, EVERYTHING on the cluster would be deleted!) CHECK sy-subrc = 0. * delete entries with key fields in table sortfield_tab DELETE FROM pcl2 WHERE relid = persnr_list-relid AND srtfd IN sortfd. IF sy-subrc = 0. "delete transparent RGDIR /WPBP & "write only successful deletions "into application log LOOP AT list_rgdir WHERE persnr = persnr_list-persnr AND selec NE ' ' AND abkrs IN pnpabkrs AND fpper BETWEEN gs_date+0(6) AND gs_datm+0(6). * delete transparent RGDIR and WPBP if they exist * (they may not exist for old results, then it is no problem anyway) DELETE FROM hrpy_rgdir WHERE "AHRK044783 pernr = list_rgdir-persnr AND "AHRK044783 seqnr = list_rgdir-seqnr AND abkrs IN pnpabkrs AND fpper BETWEEN gs_date+0(6) AND gs_datm+0(6). "AHRK044783 DELETE FROM hrpy_wpbp WHERE "AHRK044783 pernr = list_rgdir-persnr AND "AHRK044783 seqnr = list_rgdir-seqnr AND begda <= gs_datm AND endda >= gs_date.. "AHRK044783 * analogous to use of application log in program rpcdpu01 PERFORM anwend_prot_ini USING persnr_list-persnr. MOVE-CORRESPONDING list_rgdir TO deleted_list. "QNY240997 APPEND deleted_list. "QNY240997 DELETE list_rgdir. ENDLOOP. PERFORM application_log. REFRESH prot_mes. "QNY270897 ELSE. "ie if delete was unsuccessful MESSAGE e094(5a). "Fehler beim Löschen ENDIF. REFRESH sortfd. PERFORM rebuild_payroll_directory. ENDLOOP. "loop over persnr ELSE. " if answer to 'delete?' was NO or CANCEL EXIT. ENDIF. " ...of : if answer = 1 (really delete?) ENDFORM. "DELETE_PAYROLL_RESULTS ************************************************************************ FORM rebuild_payroll_directory. ************************************************************************ CALL FUNCTION 'REBUILD_PAYROLL_DIRECTORY' EXPORTING employee_number = persnr_list-persnr country_grouping = persnr_list-molga payroll_cluster = persnr_list-relid save_new_directory = 'X' TABLES new_directory = rgdir EXCEPTIONS country_grouping_incorrect = 1 country_grouping_initial = 2 no_authority_for_cluster = 3 error_loading_function_pool = 4 error_generating_function_pool = 5 cant_load_payroll_results = 6 no_payroll_results_exist = 7 cant_read_payroll_result = 8 wrong_payroll_country_group = 9 cant_reorganize_directory = 10 duplicate_records = 11 cant_update_new_directory = 12 employee_number_initial = 13 no_authority_for_directory = 14 OTHERS = 15. CASE sy-subrc. WHEN 0 OR 7. MESSAGE s899(5a) WITH 'Satz markierter Abrechnungsergebnisse ist gelöscht'(007) 'und das Cluster CU aktualisiert'(008). WHEN 6. MESSAGE i899(5a) WITH 'Die Abrechnungsergebnisse können nicht '(090) ' geladen werden für Personalnummer'(091) persnr_list-persnr. WHEN OTHERS. MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDCASE. ENDFORM. "REBUILD_PAYROLL_DIRECTORY ************************************************************************ * form print_persnr_list * main printing routine ************************************************************************ FORM print_persnr_list TABLES $list_rgdir STRUCTURE list_rgdir $persnr_list STRUCTURE persnr_list CHANGING $hide_seqnr LIKE hide_seqnr $hide_persnr LIKE persnr $display_bad LIKE display_bad $display_deleted LIKE display_deleted. LOOP AT $persnr_list. SET PF-STATUS 'DEL_LIST'. LOOP AT $list_rgdir WHERE persnr = $persnr_list-persnr. ENDLOOP. IF sy-subrc = 0. "if payroll results exist: IF $persnr_list-selec = 'X'. PERFORM print_list TABLES $list_rgdir USING $persnr_list-persnr CHANGING $hide_seqnr $hide_persnr. ELSE. PERFORM pernr_invisible USING $persnr_list-persnr. $hide_persnr = $persnr_list-persnr. HIDE: $hide_persnr. ENDIF. ELSE. "no payroll results for that personnel number bad_persnr_list-persnr = $persnr_list-persnr. bad_persnr_list-texts = 'has no payroll results!'(072). COLLECT bad_persnr_list. ENDIF. ENDLOOP. IF sy-subrc = 4. "no valid personnel numbers WRITE: /1 icon_negative AS ICON, 13 'No valid personnel numbers chosen.'(077) COLOR COL_NORMAL. ENDIF. PERFORM print_deleted_list TABLES deleted_list USING $display_deleted. PERFORM print_bad_persnr TABLES bad_persnr_list USING $display_bad. ENDFORM. "PRINT_PERSNR_LIST ************************************************************************ * Form fill_rgdir * (rgdir contains list of payroll results for selected personnel number) ************************************************************************ FORM fill_rgdir TABLES $list_rgdir STRUCTURE list_rgdir $rgdir STRUCTURE pc261 USING $persnr LIKE persnr. CALL FUNCTION 'CU_READ_RGDIR' EXPORTING persnr = $persnr TABLES in_rgdir = $rgdir EXCEPTIONS no_record_found = 1 OTHERS = 2. IF sy-subrc = 1. "no_record_found is dealt with later REFRESH $rgdir. ELSEIF sy-subrc = 2. MESSAGE e899(5a) WITH 'Error in function module CU_READ_RGDIR for personnel number'(029) $persnr . ENDIF. * IF biaoshi = 'X'. * LOOP AT $rgdir. **Ö»×·¼ÓÒÑÍ˳öн×ʼÆËãÒÔºóµÄÄêÔµÄн×ʽá¹û--ZXY * IF $rgdir-inper+0(6) = '000000' AND zzt <> 3. * list_rgdir-persnr = $persnr. * MOVE-CORRESPONDING $rgdir TO $list_rgdir . * APPEND $list_rgdir. * ENDIF. * ENDLOOP. * * ELSE. * rgdir -> list_rgdir LOOP AT $rgdir. *Ö»×·¼ÓÒÑÍ˳öн×ʼÆËãÒÔºóµÄÄêÔµÄн×ʽá¹û--ZXY IF $rgdir-inper+0(6) > zny OR ( $rgdir-inper+0(6) = zny AND zzt <> 3 ). list_rgdir-persnr = $persnr. MOVE-CORRESPONDING $rgdir TO $list_rgdir . APPEND $list_rgdir. ENDIF. ENDLOOP. * ENDIF. ENDFORM. "fill_rgdir ********************************************** ********************************************************************* * Form print_list ********************************************************************* FORM print_list TABLES $list_rgdir STRUCTURE list_rgdir USING $persnr LIKE persnr CHANGING $hide_seqnr LIKE list_rgdir-seqnr $hide_persnr LIKE $persnr. DATA: intensified_on TYPE i VALUE 0. PERFORM print_header USING $persnr CHANGING $hide_persnr. LOOP AT $list_rgdir WHERE persnr = $persnr. " only for current pernr IF intensified_on = 0. FORMAT COLOR COL_NORMAL INTENSIFIED OFF. intensified_on = 1. ELSE. FORMAT COLOR COL_NORMAL INTENSIFIED ON. intensified_on = 0. ENDIF. PERFORM buch_test USING $list_rgdir $persnr. "print line in red if result is already booked PERFORM write_line USING $list_rgdir. $hide_seqnr = $list_rgdir-seqnr. HIDE: $hide_seqnr, $hide_persnr. "QNY270997 ENDLOOP. CLEAR: $hide_seqnr, $hide_persnr. WRITE: /1 sy-uline(139). IF first = 1. first = 0. IF sy-subrc NE 0. SET PF-STATUS 'MENU'. "empty status MESSAGE e116(3g) WITH persnr. "no payroll results for persnr ENDIF. ENDIF. ENDFORM. " print_list ********************************************************************* * Form print_header ********************************************************************* * adapted from form print_header in RPUDIR00 * 'selec' checkbox added -> different spacing *----------------------------------------------------------------------* FORM print_header USING $persnr LIKE pernr-pernr CHANGING $hide_persnr LIKE hide_persnr. FORMAT COLOR COL_TOTAL INTENSIFIED ON. SKIP 1. WRITE: /1 icon_collapse AS ICON HOTSPOT, 4 icon_select_all AS ICON HOTSPOT, 6 icon_deselect_all AS ICON HOTSPOT, 13 text-003 , " 'Personalnummer...........'(t01), 28 $persnr. $hide_persnr = $persnr. HIDE: $hide_persnr. FORMAT RESET. WRITE:/12 sy-uline(59), 71 sy-uline(32), /12 sy-vline, 13(58) 'Für-Information'(h39) COLOR COL_HEADING INTENSIFIED ON, 70 sy-vline, 71 sy-vline, 72(31) 'In-Information'(h40) COLOR COL_HEADING INTENSIFIED ON, 102 sy-vline. WRITE:/1 sy-uline(139), /1 sy-vline, 3 sy-vline, 4(5) 'Seqnr'(h01) COLOR COL_HEADING INTENSIFIED ON, 9 sy-vline, 10(1) 'S'(h02) COLOR COL_HEADING INTENSIFIED ON, 11 sy-vline, 12 sy-vline, 13(2) 'AK'(h03) COLOR COL_HEADING INTENSIFIED ON, 15 sy-vline, 16(2) 'PM'(h04) COLOR COL_HEADING INTENSIFIED ON, 18 sy-vline, 19(7) 'Periode'(h05) COLOR COL_HEADING INTENSIFIED ON, 26 sy-vline, 27(10) 'Beginn'(h06) COLOR COL_HEADING INTENSIFIED ON, 37 sy-vline, 38(10) 'Ende'(h07) COLOR COL_HEADING INTENSIFIED ON, 48 sy-vline, 49(2) 'PT'(h08) COLOR COL_HEADING INTENSIFIED ON, 51 sy-vline, 52(2) 'PI'(h09) COLOR COL_HEADING INTENSIFIED ON, 54 sy-vline, 55(10) 'SDatum'(h10) COLOR COL_HEADING INTENSIFIED ON, 65 sy-vline, 66 'JuPe'(h38) COLOR COL_HEADING INTENSIFIED ON, 70 sy-vline, 71 sy-vline, 72(2) 'AK'(h11) COLOR COL_HEADING INTENSIFIED ON, 74 sy-vline, 75(2) 'PM'(h12) COLOR COL_HEADING INTENSIFIED ON, 77 sy-vline, 78(7) 'Periode'(h13) COLOR COL_HEADING INTENSIFIED ON, 85 sy-vline, 86(10) 'Ende'(h14) COLOR COL_HEADING INTENSIFIED ON, 96 sy-vline, 97(2) 'PT'(h15) COLOR COL_HEADING INTENSIFIED ON, 99 sy-vline, 100(2) 'PI'(h16) COLOR COL_HEADING INTENSIFIED ON, 102 sy-vline, 103 sy-vline, 104(10) 'ZahlDatum'(h17) COLOR COL_HEADING INTENSIFIED ON, 114 sy-vline, 115(1) 'V'(h18) COLOR COL_HEADING INTENSIFIED ON, 116 sy-vline, 117(2) 'SG'(h19) COLOR COL_HEADING INTENSIFIED ON, 119 sy-vline, 120(10) 'LDatum'(h20) COLOR COL_HEADING INTENSIFIED ON, 130 sy-vline, 131(8) 'LZeit'(h21) COLOR COL_HEADING INTENSIFIED ON, 139 sy-vline, /1 sy-uline(139). ENDFORM. "print_header ********************************************************************* * Form write_line ********************************************************************* * adapted from form write_line in RPUDIR00 * 'selec' checkbox added -> position+3 *----------------------------------------------------------------------* FORM write_line USING $rgdir STRUCTURE list_rgdir. WRITE:/1 sy-vline, 2 $rgdir-selec AS CHECKBOX, 3 sy-vline, 4(5) $rgdir-seqnr, 9 sy-vline, 10(1) $rgdir-srtza, 11 sy-vline, 12 sy-vline, 13(2) $rgdir-abkrs, 15 sy-vline, 16(2) $rgdir-permo, 18 sy-vline. IF $rgdir-fpper IS INITIAL OR $rgdir-fpper CO '0'. WRITE: 19(7) space. ELSE. WRITE: 19(2) $rgdir-fpper+4(2), 21(1) '.', 22(4) $rgdir-fpper(4). ENDIF. WRITE: 26 sy-vline. IF $rgdir-fpbeg IS INITIAL. WRITE: 27(10) space. ELSE. WRITE: 27(10) $rgdir-fpbeg DD/MM/YYYY. ENDIF. WRITE: 37 sy-vline. IF $rgdir-fpend IS INITIAL. WRITE: 38(10) space. ELSE. WRITE: 38(10) $rgdir-fpend DD/MM/YYYY. ENDIF. WRITE: 48 sy-vline, 49(2) $rgdir-payty, 51 sy-vline, 52(2) $rgdir-payid, 54 sy-vline. IF $rgdir-bondt IS INITIAL. WRITE: 55(10) space. ELSE. WRITE: 55(10) $rgdir-bondt DD/MM/YYYY. ENDIF. WRITE: 65 sy-vline, 66 $rgdir-juper, 70 sy-vline, 71 sy-vline, 72(2) $rgdir-iabkrs, 74 sy-vline, 75(2) $rgdir-iperm, 77 sy-vline. IF $rgdir-inper IS INITIAL OR $rgdir-inper CO '0'. WRITE: 78(7) space. ELSE. WRITE: 78(2) $rgdir-inper+4(2), 80(1) '.', 81(4) $rgdir-inper(4). ENDIF. WRITE: 85 sy-vline. IF $rgdir-ipend IS INITIAL. WRITE: 86(10) space. ELSE. WRITE: 86(10) $rgdir-ipend DD/MM/YYYY. ENDIF. WRITE: 96 sy-vline, 97(2) $rgdir-inpty, 99 sy-vline, 100(2) $rgdir-inpid, 102 sy-vline, 103 sy-vline. IF $rgdir-paydt IS INITIAL. WRITE: 104(10) space. ELSE. WRITE: 104(10) $rgdir-paydt DD/MM/YYYY. ENDIF. WRITE: 114 sy-vline, 115(1) $rgdir-void, 116 sy-vline, 117(2) $rgdir-voidr, 119 sy-vline. IF $rgdir-rundt IS INITIAL. WRITE: 120(10) space. ELSE. WRITE: 120(10) $rgdir-rundt DD/MM/YYYY. ENDIF. WRITE: 130 sy-vline. IF $rgdir-runtm IS INITIAL. WRITE: 131(8) space. ELSE. WRITE: 131(8) $rgdir-runtm. ENDIF. WRITE: 139 sy-vline. ENDFORM. "write_line ********************************************************************* * form maintain_list. ********************************************************************* FORM maintain_list TABLES $list_rgdir STRUCTURE list_rgdir USING $hide_seqnr LIKE list_rgdir-seqnr $clicked_seqnr LIKE list_rgdir-seqnr $hide_persnr LIKE hide_persnr. DATA: selected_persnr LIKE hide_persnr. selected_persnr = $hide_persnr. DO. CLEAR: $hide_seqnr, $hide_persnr. READ LINE sy-index. IF sy-subrc NE 0. EXIT. ENDIF. CHECK NOT $hide_seqnr IS INITIAL. READ TABLE $list_rgdir WITH KEY seqnr = $hide_seqnr persnr = $hide_persnr. IF sy-subrc = 0. "only if entry exists $list_rgdir-selec = sy-lisel+1(1). "read 2nd column IF $hide_seqnr = $clicked_seqnr "if line selected by double click AND $hide_persnr = selected_persnr. "only for current pernr IF list_rgdir-selec = ' '. "toggle marked/unmarked list_rgdir-selec = 'X'. ELSE. list_rgdir-selec = ' '. ENDIF. ENDIF. MODIFY $list_rgdir INDEX sy-tabix. ELSE. "refresh list of payroll results (if some already deleted) MESSAGE i899(5a) WITH 'Einige der markierten Abrechnungsergebnisse'(041) 'existieren nicht.'(042) 'Der folgende Bildschirm zeigt die aktuelle Liste.'(043) . sy-ucomm = return-entmark. EXIT. ENDIF. ENDDO. ENDFORM. "MAINTAIN_LIST *********************************************************************** * Authority check. *********************************************************************** FORM check_authority USING $relid LIKE relid. * Check if the user is authorized to modify the payroll cluster. AUTHORITY-CHECK OBJECT 'P_PCLX' ID 'RELID' FIELD $relid ID 'AUTHC' FIELD 'U'. IF sy-subrc NE 0. MESSAGE e899(5a) WITH 'Es liegt keine Pflegeberechtigung vor für Cluster'(005) $relid . ENDIF. ENDFORM. "CHECK_AUTHORITY *********************************************************************** * form application_log. *********************************************************************** * Add info on deletion of payroll records * to object HRPU in the application log. *---------------------------------------------------------------------* FORM application_log. DATA: BEGIN OF prot_head. INCLUDE STRUCTURE balhdri. DATA: END OF prot_head. DATA: datum LIKE sy-datum, date TYPE i. DATA: client_role LIKE t000-cccategory. "XJS note 387263 date = sy-datum + 365. datum = date. prot_head-object = prot_obj. prot_head-aldate = sy-datum. prot_head-altime = sy-uzeit. prot_head-aluser = sy-uname. prot_head-altcode = sy-tcode(4). prot_head-alprog = sy-repid(8). prot_head-altext = text-112. prot_head-aldate_del = datum. * XJS note 387263 { CALL FUNCTION 'TR_SYS_PARAMS' IMPORTING system_client_role = client_role. IF client_role = 'P'. prot_head-del_before = 'X'. "im Prod.-System nicht vorher löschbar ENDIF. * XJS note 387263 } CALL FUNCTION 'APPL_LOG_INIT' EXPORTING object = prot_obj EXCEPTIONS object_not_found = 1 subobject_not_found = 2 OTHERS = 3. IF sy-subrc NE 0. MESSAGE w579(54). ENDIF. CALL FUNCTION 'APPL_LOG_WRITE_HEADER' EXPORTING header = prot_head EXCEPTIONS object_not_found = 1 subobject_not_found = 2 OTHERS = 3. IF sy-subrc NE 0. MESSAGE w579(54). ENDIF. CALL FUNCTION 'APPL_LOG_WRITE_MESSAGES' EXPORTING object = prot_obj TABLES messages = prot_mes EXCEPTIONS object_not_found = 1 subobject_not_found = 2 OTHERS = 3. IF sy-subrc NE 0. MESSAGE w579(54). ENDIF. CALL FUNCTION 'APPL_LOG_WRITE_DB' EXPORTING object = prot_obj TABLES object_with_lognumber = prot_nr EXCEPTIONS object_not_found = 1 subobject_not_found = 2 internal_error = 3 OTHERS = 4. IF sy-subrc NE 0. MESSAGE w579(54). ENDIF. ENDFORM. "APPLICATION_LOG *********************************************************************** * Specify data for application log * *********************************************************************** FORM anwend_prot_ini USING persnr LIKE persnr_list-persnr. prot_obj = 'HRPU'. prot_mes-msgty = 'I'. prot_mes-msgid = '54'. IF ( list_rgdir-fpper = 000000 ). prot_mes-msgno = '580'. prot_mes-msgv1 = list_rgdir-bondt. prot_mes-msgv2 = list_rgdir-payid. prot_mes-msgv3 = persnr. ELSE. prot_mes-msgno = '584'. prot_mes-msgv1 = list_rgdir-fpper. prot_mes-msgv2 = list_rgdir-inper. prot_mes-msgv3 = persnr. ENDIF. APPEND prot_mes. ENDFORM. "ANWEND_PROT_INI ************************************************************************ * Form PERNR_INVISIBLE ************************************************************************ * display only pernr + warning if resluts are marked for deletion. ************************************************************************ FORM pernr_invisible USING $persnr LIKE persnr. LOOP AT list_rgdir WHERE persnr = $persnr AND selec = 'X'. ENDLOOP. IF sy-subrc = 4. "no payroll results selected FORMAT COLOR COL_TOTAL INTENSIFIED ON. WRITE: /1 icon_expand AS ICON HOTSPOT, 13 text-003 , " 'Personalnummer...........' 28 $persnr. ELSE. "some payroll results are selected for deletion!!! WRITE: /1 icon_expand AS ICON HOTSPOT, 13 text-003 , " 'Personalnummer...........' 28 $persnr COLOR COL_NEGATIVE, 38 'enthält zum Löschen markierte Ergebnisse!'(071) COLOR COL_NEGATIVE. ENDIF. ENDFORM. " PERNR_INVISIBLE ************************************************************************ * Form PRINT_BAD_PERSNR ************************************************************************ * list enqueud persnr or persnr with other errors ************************************************************************ FORM print_bad_persnr TABLES $bad_persnr_list STRUCTURE bad_persnr_list USING $display_bad LIKE display_bad. FORMAT RESET. ULINE. IF $display_bad = 'X'. WRITE: /1 icon_collapse AS ICON HOTSPOT, "QNY270997 13 'nicht anzeigbar (ohne Abr.erg., gesperrt, fehlerhaft)'(076) COLOR COL_NORMAL INTENSIFIED OFF. hide_icontype = 'BADOUT'. "QNY270997 HIDE: hide_icontype. "QNY270997 CLEAR hide_icontype. "QNY270997 LOOP AT $bad_persnr_list. WRITE: /13 text-003, " 'Personalnummer...........'(t01), 28 $bad_persnr_list-persnr COLOR COL_NEGATIVE INTENSIFIED OFF, 38 $bad_persnr_list-texts. ENDLOOP. ELSE. LOOP AT $bad_persnr_list. ENDLOOP. IF sy-subrc = 4. "empty list of persnrs with error WRITE: /1 icon_collapse AS ICON, "QNY270997 13 '0 ' COLOR COL_NORMAL, 15 'nicht anzeigbar (ohne Abr.erg., gesperrt, fehlerhaft)'(076) COLOR COL_NORMAL INTENSIFIED OFF. hide_icontype = 'BADOUT'. "QNY270997 HIDE: hide_icontype. "QNY270997 CLEAR hide_icontype. "QNY270997 ULINE. EXIT. ENDIF. WRITE: /1 icon_expand AS ICON HOTSPOT, "QNY270997 13 'nicht anzeigbar (ohne Abr.erg., gesperrt, fehlerhaft)'(076) COLOR COL_NORMAL INTENSIFIED OFF. hide_icontype = 'BADIN '. "QNY270997 HIDE: hide_icontype. "QNY270997 CLEAR hide_icontype. "QNY270997 ENDIF. ULINE. ENDFORM. " PRINT_BAD_PERSNR ************************************************************************ * Form PRINT_DELETED_LIST "QNY240997 ************************************************************************ * list of deleted payroll results ************************************************************************ FORM print_deleted_list TABLES $deleted_list STRUCTURE deleted_list USING $display_deleted LIKE display_deleted. FORMAT RESET. ULINE. IF $display_deleted = 'X'. SORT $deleted_list BY persnr fpper inper payid. hide_icontype = 'DELOUT'. "QNY270997 HIDE: hide_icontype. "QNY270997 CLEAR hide_icontype. "QNY270997 WRITE: /1 icon_collapse AS ICON HOTSPOT, "QNY270997 13 'gelöschte Abrechnungsergebnisse'(079) COLOR COL_POSITIVE. LOOP AT $deleted_list. WRITE: /13 text-003, " 'Personalnummer...........' 28 $deleted_list-persnr COLOR COL_NORMAL INTENSIFIED OFF, 38 'Fürperiode'(088), 50 $deleted_list-fpper COLOR COL_NORMAL INTENSIFIED OFF, 58 'Inperiode'(089), 70 $deleted_list-inper. IF NOT $deleted_list-bondt IS INITIAL. "QNY021097 WRITE: 80 'SDatum'(h10), "QNY021097 88 $deleted_list-bondt DD/MM/YYYY, "QNY021097 100 'PI'(h09),"consecutive number of bonus runs "QNY021097 103 $deleted_list-payid. "QNY021097 ENDIF. "QNY021097 ENDLOOP. ELSE. LOOP AT $deleted_list. ENDLOOP. IF sy-subrc = 4. "empty list of persnrs with error WRITE: /1 icon_collapse AS ICON, "QNY270997 13 '0 ' COLOR COL_NORMAL, 15 'gelöschte Abrechnungsergebnisse'(079) COLOR COL_NORMAL INTENSIFIED OFF. hide_icontype = 'DELOUT'. "QNY270997 HIDE: hide_icontype. "QNY270997 CLEAR hide_icontype. "QNY270997 EXIT. ENDIF. hide_icontype = 'DELIN '. "QNY270997 HIDE: hide_icontype. "QNY270997 CLEAR hide_icontype. "QNY270997 WRITE: /1 icon_expand AS ICON HOTSPOT, 13 'gelöschte Abrechnungsergebnisse'(079) COLOR COL_NORMAL INTENSIFIED OFF. ENDIF. ENDFORM. " PRINT_BAD_PERSNR ************************************************************************ FORM check_client. "P30K041899 in rpchrt00 - simplified: QNY ************************************************************************ * checks the status of the client and warns the user if the status * is 'productive' or 'unspecified'. ************************************************************************ SELECT SINGLE * FROM t000 WHERE mandt EQ sy-mandt. IF sy-subrc NE 0. "should not occur WRITE: / 'Kein Eintrag in Tabelle T000 zu Mandant:'(075), sy-mandt. STOP. ELSE. CASE t000-cccategory. WHEN ' '. "not specified CLEAR answer. CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = 'Sie befinden sich in einem unspezif. Mandanten.'(081) diagnosetext2 = 'Dieser Report ist aber nur für Testzwecke gedacht,'(082) diagnosetext3 = 'da er kann zu Inkonsistenzen im Datenbestand führen kann!'(083) textline1 = ' ' textline2 = 'Möchten Sie trotzdem fortfahren?'(084) titel = 'Warnung: evtl. Produktivmandant!'(085) start_column = 25 start_row = 6 IMPORTING answer = answer EXCEPTIONS OTHERS = 1. IF sy-subrc NE 0. MESSAGE e241(57) "error in function module &1 with ret.code &2 WITH 'POPUP_TO_CONFIRM_WITH_MESSAGE' sy-subrc. ENDIF. IF answer = 'N'. STOP. ELSEIF answer = 'A'. STOP. ENDIF. WHEN 'P'. "productive CLEAR answer. CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING defaultoption = 'N' diagnosetext1 = 'Sie befinden sich im Produktivmandanten.'(080) diagnosetext2 = 'Dieser Report ist aber nur für Testzwecke gedacht,'(082) diagnosetext3 = 'da er kann zu Inkonsistenzen im Datenbestand führen kann!'(083) textline1 = ' ' textline2 = 'Möchten Sie trotzdem fortfahren?'(084) titel = 'Warnung: Produktivmandant!'(086) start_column = 25 start_row = 6 IMPORTING answer = answer EXCEPTIONS OTHERS = 1. IF sy-subrc NE 0. MESSAGE e241(57) "error in function module &1 with ret.code &2 WITH 'POPUP_TO_CONFIRM_WITH_MESSAGE' sy-subrc. ENDIF. IF answer = 'N'. STOP. ELSEIF answer = 'A'. STOP. ENDIF. WHEN OTHERS. ENDCASE. ENDIF. ENDFORM. "CHECK_CLIENT *&---------------------------------------------------------------------* *& Form BUCH_TEST *&---------------------------------------------------------------------* * print results in red if they are already booked *----------------------------------------------------------------------* FORM buch_test USING $list_rgdir LIKE list_rgdir $persnr LIKE persnr. DATA: p_evaluated TYPE c, p_runid LIKE pevst-runid. CALL FUNCTION 'HR_EVAL_EVP_CHECK' EXPORTING type = 'PP' persnum = $persnr seqno = $list_rgdir-seqnr srtza = $list_rgdir-srtza IMPORTING evaluated = p_evaluated runid = p_runid EXCEPTIONS OTHERS = 0. IF sy-subrc IS INITIAL. ENDIF. IF NOT p_evaluated EQ space. FORMAT COLOR COL_NEGATIVE. ENDIF. ENDFORM. " BUCH_TEST