聯(lián)芯科技ERP項目-技術(shù)文檔-HR-008-考勤數(shù)據(jù)BDC導入-20090930

DATE\@"yyyy-MM-dd"2009-09-30Version1.0PAGE1聯(lián)芯科技ERP項目 DATE\@"M/d/yyyy"9/30/2009Version1.0 聯(lián)芯科技ERP項目開發(fā)規(guī)格書第I部分:需求模塊MACROBUTTONCheckIt_CheckBox￡MM MACROBUTTONCheckIt_CheckBox￡P(guān)P MACROBUTTONCheckIt_CheckBox￡SD MACROBUTTONCheckIt_CheckBox￡FI MACROBUTTONCheckIt_CheckBox￡CO ■HRMACROBUTTONCheckIt_CheckBox￡其它Spec編號ZLC_SPEC_HR_008短描述考勤數(shù)據(jù)導入BDC類型MACROBUTTONUnCheckIt_Radiobutton報表●ABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONCheckIt_Radiobutton表單MACROBUTTONCheckIt_Radiobutton流程增強MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton數(shù)據(jù)轉(zhuǎn)移需求優(yōu)先級MACROBUTTONUnCheckIt_RadiobuttonHigh/關(guān)鍵 MACROBUTTONCheckIt_RadiobuttonMACROBUTTONUnCheckIt_RadiobuttonMid/推薦 MACROBUTTONCheckIt_RadiobuttonLow/可選用戶MACROBUTTONNextCell要求日期2009-預(yù)計開發(fā)天數(shù)（由功能顧問與開發(fā)顧問評估）必填_____天是否有標準功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo標準功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse參考的標準功能文檔變更歷史版本號文檔維護時間姓名簡要的描述V1.02009-6-25王迪批量導入每月考勤數(shù)據(jù)20090930徐世兵增加技術(shù)說明文檔

第II部分:詳細功能描述目的：考勤數(shù)據(jù)BDC導入功能描述:通過數(shù)據(jù)導入模板將考勤數(shù)據(jù)導入到系統(tǒng)中運行頻率MACROBUTTONCheckIt_Radiobutton任何時間MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton兩周MACROBUTTONUnCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：運行方式MACROBUTTONCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自動MACROBUTTONUnCheckIt_Radiobutton批處理MACROBUTTONCheckIt_Radiobutton在線處理輸出方式MACROBUTTONCheckIt_Radiobutton屏幕輸出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONCheckIt_Radiobutton文件輸出MACROBUTTONUnCheckIt_Radiobutton其它：打印機類型紙張大小語言選擇屏幕：報表/表單的字段信息類型2010員工報酬信息順序字段名稱字段技術(shù)名稱字段描述特殊需求1人員編號PA0002-PERNR員工工號2日期PA2010-BEGDA日期3工資項PA2010-LGART工資項4小時數(shù)PA2010-ANZHL缺勤小時數(shù)信息類型2001缺勤順序字段名稱字段技術(shù)名稱字段描述特殊需求1人員編號PA0002-PERNR員工工號2開始日期PA2001-BEGDA開始日期3結(jié)束日期PA2001-ENDDA結(jié)束日期4工資項PA2001-LGART工資項5請假小時PA2001-STDAZ請假小時若為空，則默認8小時格式/屏幕設(shè)計：2010員工報酬信息導入模板人員編號日期工資項小時數(shù)強制強制強制強制2001缺勤導入模板人員編號開始日期結(jié)束日期工資項請假小時強制強制強制強制屏幕要求：在選擇本地上傳數(shù)據(jù)模板文件后，在該屏幕上給用戶兩個選項，分別為執(zhí)行2010員工報酬信息導入，執(zhí)行2001缺勤導入，為二選一，選擇不同的選項則執(zhí)行對應(yīng)的數(shù)據(jù)導入程序。邏輯關(guān)系：1、錄屏操作方式：在200系統(tǒng)中，可用人員編號5錄屏，T-code：PA30，輸入人員編號后，在屏幕下方輸入信息類型2010或2001單擊創(chuàng)建。錄入日期，工資項和小時數(shù)即可。2、工資項‘工資項’代碼‘工資項’描述單位2010員工報酬信息工資項6001產(chǎn)假扣款小時6002曠工扣款小時6003探哺扣款小時6004事假扣款小時6005病假扣款小時6006缺勤扣款小時6007節(jié)日加班小時6008延時加班小時6009休息日加班小時2001缺勤工資項6100婚假天數(shù)（最小單位0.5）6200授乳假小時6300年休假天數(shù)（最小單位0.5）6400喪假天數(shù)（最小單位0.5）6500獎勵工時天數(shù)（最小單位0.5）6600寒暑假天數(shù)樣張：其它內(nèi)容：

第III部分:技術(shù)說明ProgramnameZHR008TransactioncodeZ_HR_EXEC_ABSENSEAuthorizationObjectFormFormnameN/AOutputtypeN/AFormroutineN/A程序邏輯：1上載文件確定PERFORMget_filename.FORMget_filename.DATA:l_it_filetableTYPEfiletable.DATA:l_resultTYPEi.REFRESH:l_it_filetable.*選擇文件CALLMETHODcl_gui_frontend_services=>file_open_dialogEXPORTINGdefault_extension='XLS'default_filename='*.XLS'file_filter='ExcelFiles(*.XLS)'multiselection=''CHANGINGfile_table=l_it_filetablerc=l_result.*檢查用戶是否取消請求CHECKl_resultEQ'1'.LOOPATl_it_filetableINTOp_file.ENDLOOP.2.文件路徑檢查PERFORMfile_check.TYPE-POOLStruxs.DATA:l_resultTYPEabap_bool,l_fileTYPEstring.DATA:lv_iTYPEiVALUE1.DATA:l_it_raw_dataTYPEtruxs_t_text_data.IFp_fileISINITIAL.MESSAGEe002(z_1)WITHtext-002.ENDIF.*檢查文件是否存在l_file=p_file.CALLMETHODcl_gui_frontend_services=>file_existEXPORTINGfile=l_fileRECEIVINGresult=l_resultEXCEPTIONScntl_error=1error_no_gui=2wrong_parameter=3not_supported_by_gui=4OTHERS=5.IFsy-subrc<>0.SETCURSORFIELD'P_FILE'.MESSAGEIDsy-msgidTYPE'E'NUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.IFl_result<>'X'.SETCURSORFIELD'P_FILE'.MESSAGEe002(z_1)WITHp_filetext-003.ENDIF.3.獲取EXECL中內(nèi)容PERFORMget_xls."UploaddataintoitabTYPE-POOLStruxs.DATA:l_it_raw_dataTYPEtruxs_t_text_data.IFr1='X'.CALLFUNCTION'TEXT_CONVERT_XLS_TO_SAP'EXPORTINGi_line_header='X'i_tab_raw_data=l_it_raw_datai_filename=p_fileTABLESi_tab_converted_data=gt_payEXCEPTIONSconversion_failed=1OTHERS=2.IFsy-subrc<>0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.IFgt_payISINITIAL.SETCURSORFIELD'P_FILE'.MESSAGEe002(z_1)WITHtext-004.ENDIF.ELSE.CALLFUNCTION'TEXT_CONVERT_XLS_TO_SAP'EXPORTINGi_line_header='X'i_tab_raw_data=l_it_raw_datai_filename=p_fileTABLESi_tab_converted_data=gt_absEXCEPTIONSconversion_failed=1OTHERS=2.IFsy-subrc<>0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.IFgt_absISINITIAL.SETCURSORFIELD'P_FILE'.MESSAGEe002(z_1)WITHtext-004.ENDIF.ENDIF.4.PERFORMshow_alv."上載數(shù)據(jù)ALV顯示5.PERFORMbapi_create.創(chuàng)建缺勤信息IFr1='X'."2010LOOPATgt_payINTOgs_pay.PERFORMbdc_dynproUSING'SAPMP50A''1000'.PERFORMbdc_fieldUSING'BDC_OKCODE''=INS'.PERFORMbdc_fieldUSING'RP50G-PERNR'gs_pay-pernr.PERFORMbdc_fieldUSING'BDC_CURSOR''RP50G-SUBTY'.PERFORMbdc_fieldUSING'RP50G-CHOIC''2010'.PERFORMbdc_fieldUSING'RP50G-SUBTY'gs_pay-lgart.PERFORMbdc_dynproUSING'MP200000''2450'.PERFORMbdc_fieldUSING'BDC_CURSOR''P2010-ANZHL'.PERFORMbdc_fieldUSING'BDC_OKCODE''=UPD'.PERFORMbdc_fieldUSING'P2010-BEGDA'gs_pay-begda.PERFORMbdc_fieldUSING'P2010-ANZHL'gs_pay-anzhl.CALLTRANSACTION'PA30'USINGgt_bdcdataMODEp_mode"選擇屏幕選擇更新類型,AUPDATE'S'MESSAGESINTOgt_message.LOOPATgt_messageINTOgs_messageWHEREmsgtyp='E'.PERFORMfrm_message_selectCHANGINGlv_message.gs_pay-type='E'.g_failure=g_failure+1.gs_pay-msg=lv_message.MODIFYgt_payFROMgs_pay.CLEAR:lv_message.EXIT.ENDLOOP.LOOPATgt_messageINTOgs_messageWHEREmsgtyp='S'ANDmsgid='PG'ANDmsgnr='102'.gs_pay-type='S'.g_success=g_success+1.MODIFYgt_payFROMgs_pay.EXIT.ENDLOOP.REFRESHgt_bdcdata.REFRESHgt_message.CLEAR:gs_pay,lv_message,gt_bdcdata[].ENDLOOP.ELSE."2001缺勤LOOPATgt_absINTOgs_abs.PERFORMbdc_dynproUSING'SAPMP50A''1000'.PERFORMbdc_fieldUSING'BDC_OKCODE''=INS'.PERFORMbdc_fieldUSING'RP50G-PERNR'gs_abs-pernr.PERFORMbdc_fieldUSING'BDC_CURSOR''RP50G-SUBTY'.PERFORMbdc_fieldUSING'RP50G-CHOIC''2001'.PERFORMbdc_fieldUSING'RP50G-SUBTY'gs_abs-lgart.PERFORMbdc_dynproUSING'MP200000''2001'.PERFORMbdc_fieldUSING'BDC_CURSOR''P2001-STDAZ'.PERFORMbdc_fieldUSING'BDC_OKCODE''=UPD'.PERFORMbdc_fieldUSING'P2001-BEGDA'gs_abs-begda.PERFORMbdc_fieldUSING'P2001-ENDDA'gs_abs-endda.PERFORMbdc_fieldUSING'P2001-STDAZ'gs