SAP与考勤系统接口设计

SAP与考勤系统接口设计一、ZATTENDANCE 表结构
例子：
二、程序设计
*&---------------------------------------------------------------------*
*& Report ZTEST_DBCON
*&
*&---------------------------------------------------------------------*
*& Upload attendance data
*& Create by daniel 2011-11-07
*&---------------------------------------------------------------------*
REPORT ZTEST_DBCON.
tables :ZATTENDANCE ,pa0001.
DATA: BEGIN OF wa,
USERID(8) TYPE N,
CHECKTIME(20) type c,
sensorid(5) type N,
END OF wa.
DATA: ITAB LIKE ZATTENDANCE OCCURS 0 WITH HEADER LINE.
DATA: dbs TYPE dbcon-con_name,
con(20) TYPE c,
ls_wa LIKE wa,
cdate(8) type c ,
ctime(8) type c ,
PCDATE(10) TYPE C .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE
TEXT-001.
SELECTION-SCREEN SKIP 0.
PARAMETERS:PCon(20) TYPE C .
PARAMETERS:PDATE TYPE SY-DATUM .
PARAMETERS:PLOG as checkbox default 'X' .
SELECTION-SCREEN END OF BLOCK B1.
END-OF-SELECTION.
INITIALIZATION.
PCon = 'ATT' .
PDATE = sy-datum - 3.
START-OF-SELECTION.
CONCATENATE PDATE+0(4) '-' PDATE+4(2) '-' PDATE+6(2) INTO PCDATE .
EXEC SQL.
connect to :Pcon
ENDEXEC.
EXEC SQL.
GET CONNECTION :con
ENDEXEC.
EXEC SQL PERFORMING loop_write.
select , a.CHECKTIME,a.SENSORID from CHECKINOUT as a ,USER INFO as b
into :wa
where erid = erid and a.CHECKTIME > :PCDATE ENDEXEC.
loop at itab .
select single * from ZATTENDANCE where pernr = itab-pernr
and indate = itab-indate
and intime = itab-intime
and sensorid = itab-sensorid .
if sy-subrc = 0 .
delete itab index SY-TABIX .
else .
select single * from pa0001 where pernr = itab-pernr .
if sy-subrc <> 0 .
if PLOG = 'X' .
write :/'Staff No. Not exist:',itab-pernr,'',itab-inda te ,itab-intime,itab-SENSORID .
endif .
delete itab index sy-tabix .
endif .
endif .
endloop .
if not itab[] is initial .
modify ZATTENDANCE from table itab .
if sy-subrc = 0 .
write:/'data have been upload success.' .
if plog = 'X' .
loop at itab .
WRITE: / itab-PERNR,itab-indate ,itab-intime,itab-SENSORID .
endloop .
endif .
else .
write:/'data upload have been canceled .' .
endif .
else .
write:/'no data can be upload .' .
endif .
*&---------------------------------------------------------------------*
*& Form loop_write
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM loop_write.
itab-PERNR = wa-userid .
itab-SENSORID = wa-SENSORID .
itab-INTIME = wa-CHECKTIME+11(8) .
concatenate wa-CHECKTIME+0(4) wa-CHECKTIME+5(2) wa-CHECKTIME+8(2) i nto cdate.
concatenate wa-CHECKTIME+11(2) wa-CHECKTIME+14(2) wa-CHECKTIME+17(2 ) into ctime .
itab-INDATe = cdate .
itab-intime = ctime .
append itab .
ENDFORM. "loop_write
程序界面：
程序运行方式：
后台执行，每8小时执行一次。

计划按排6点，14点，22点执行。