HR开发中会经常用到逻辑数据库,其中PNP逻辑数据最常用的。 人事数据的信息类型数据都存放在PAnnnn这些表中,PNP其实就是从这些表中抓取的数据。现在已经用PNPCE(支持concurrent employment)取代PNP,但是因为PNP已经用得相当普遍而且够用,很多报表还是基于PNP的,这里举个PNP的例子。
创建程序是在属性界面输入逻辑数据库PNP
下图selection screen处可以选择000或900两个选择屏幕,000是主数据的选择屏,900是薪资结果的选择屏。
然后点击HR Report Catergory,进入report category assignment屏幕,创建一个category。
系统中已经存在很多ReportCategory,可以根据开发需要选择类似的进行复制,来看一个比较常见的Category
可以通过下图看到report category中的设置和报表选择画面的关系,其中2是决定哪些字段作为条件显示在选择画面中。
创建一个自定义的report category ’ZEMPLOY‘完后保存,然后输入新创建的CATEGORY名字保存退出。
然后se38创建一个程序,输入下面的代码运行就可以看到选择画面了
1 | TABLES: PERNR. |
运行就可以看到效果。
由于用到了LDB及HR的表结构与其它模块的不同,所以程序的编写也略有不同,但要比其它模块的更简单。
1 2 3 4 | REPORT ztest_hr. TABLES:pernr. INFOTYPES:0000,0001,0002,0015,0041,0185. |
程序头部要定义将要用到的HR数据表(如PA0000,PA0001)就是
INFOTYPES:0000,0001.
如果不定义,而在后面使用了该表程序会报语法错误。
而定义好之后在程序中使用时表名是P0000,P0001(而不是pa0000,pa0001)
然后用get语句就可以将逻辑数据库中的数据取出来,
Get pernr.
这句是逻辑数据库的专用语法,功能是根据用户输入的选择条件从逻辑数据库PNP中取出相应的数据然后循环,此时的PERNR是一个结构体,会在每次循环时自动赋值。且要注意该句不能写在FORM内部.
1 2 3 4 | START-OF-SELECTION. GET pernr. PERFORM frm_get_data. |
程序运行时有一个结构体PN,存放的是屏幕上输入的日期及一些基本参数,常用到的是PN-BEGDA及PN-ENDDA。
下面介绍一个HR开发中常用的宏,Rp_provide_from_last,标准用法如下:
它的意思是根据PERNR当前的NO.号找表P0000中字段SUBTY = P0000-SUBTY且字段BEGDA及ENDDA在PN-BEGDA和PN-ENDDA之间的数据的最后一条。
如 p0000:
P0000 | BEGDA | ENDDA |
1 | 2012.05.01 | 2012.05.30 |
2 | 2012.06.01 | 2012.06.30 |
当PN-BEGDA =2012.04.01,PN-ENDDA = 2012.05.03
该语法只会得到第1条,因为第2条的时间不在PN内。
如果PN-BEGDA = 2012.04.01, PN-ENDDA = 2012.06.02.
那么该语法会取第2条,1和2 都在时间内,取最后一条。
下面是一段用到了Rp_provide_from_last的代码。
HR的表中有的表的结构如P0041中的DAR01/DAT01,DAR02/DAT02,DAR03/DAT03…
DT是TYPE的类型,如果要取某个类型的DATE时,由于不确定是存放在哪个DT(DAT01/DAT02/…),所以可用语法
DO ..VARYIING OBJ FORM XXX NTEXT XXX来方便解决这个问题。如下:
还有一种常用的语法,PROVIDE * FROM P0000 BETWEEN PN-BEGDA AND PN-ENDDA.
其功能等于一个LOOP AT P0000 WHERE BEGDA LT PN-ENDDA AND ENDDA GTPN-ENDDA. ENDLOOP.
掌握以上几点,基本上可以写出一个基于逻辑数据库PNP的报表了。
以上。