(ZHRI1每日打卡记录导入明细)ZHRI001.docVIP

(ZHRI1每日打卡记录导入明细)ZHRI001 ** * Report ZHRI001 * *Creat information* * Creat BY: Maoyy (姣涙鍕囷級 * * Creat Date锛? 2006.07.20 * * Description: 鑰冨嫟绯荤粺鎺ュ彛 * ** *Modify information* * Modify BY锛? * * Modify Date锛? * * Modify For锛? * * Modify Log锛? * ** REPORT ZHRI001 NO STANDARD PAGE HEADING LINE-SIZE 255. DATA: BEGIN OF RECORD OCCURS 0, PERNR_001(038),浜哄憳缂栧彿 NAME_002(10),浜哄憳濮撳悕(no use) BIANHAO_003(20),鏇存敼琛ㄧ殑缂栧彿 P10_004(10),涓婄彮鏃堕棿 P20_005(10),涓嬬彮鏃堕棿 END OF RECORD. DATA:BEGIN OF LOG OCCURS 0, MESSAGE(250), END OF LOG. DATA:S_FILE LIKE RLGRAP-FILENAME. DATA:O_RESULT TYPE C,WA_FILENAME TYPE STRING . DATA:P_DATE LIKE SY-DATUM. DATA:WA_TEVEN LIKE TEVEN . DATA:LEN TYPE I. INCLUDE ZHRBDC_2011. INITIALIZATION. P_DATE = SY-DATUM. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE. PERFORM SELECT_FILE CHANGING P_FILE. START-OF-SELECTION. END-OF-SELECTION. PERFORM CHECK_EXIST_FILE USING P_FILE. LEN = STRLEN( P_FILE ). LEN = LEN - 12. P_DATE = P_FILE+LEN(8). CALL FUNCTION DATE_CHECK_PLAUSIBILITY EXPORTING DATE = P_DATE EXCEPTIONS PLAUSIBILITY_CHECK_FAILED = 01. IF SY-SUBRC EQ 0. PERFORM BDC_UPLOAD USING P_FILE. ELSE. MESSAGE E001(ZHR) WITH 璇蜂互鏃ユ湡浣滀负鏂囦欢鍚嶏紝濡?0061001!!. EXIT. ENDIF. IF LOG[] IS NOT INITIAL. LOOP AT LOG. WRITE:/ LOG-MESSAGE(100) LEFT-JUSTIFIED NO-SIGN. ENDLOOP. PERFORM DOWNLOAD_LOG USING P_DATE. ENDIF. * LEAVE. ** * Form bdc_upload ** * text ** FORM BDC_UPLOAD USING K_FILE TYPE RLGRAP-FILENAME. DATA:P_10(2),P_20(2),LAST(10),P10_HEADER(2) TYPE P,P20_HEADER(2) TYPE P. DA