|
Necesitas estas declaraciones:
***********************************************************************
* TABLAS Y POOLS *
***********************************************************************
TABLES: pcl1,
pcl2,
bnka,
pernr.
***INFOTYPES: 0105,0001,0002,0061, 0062, 0000,0041,9002.
TYPE-POOLS: pesu0,
pest0.
***********************************************************************
* INCLUDES *
***********************************************************************
INCLUDE rpppxd00.
INCLUDE rpppxd10.
INCLUDE rpc2cd09.
INCLUDE rpc2rx00.
INCLUDE rpppxm00.
INCLUDE rpc2ree0.
INCLUDE rpcmgr00.
Esta es la llamada para obtener los resultados de nomina:
CLEAR rgdir.
REFRESH rgdir.
PERFORM cd_manager USING pernr-pernr "Nº Personal
space "Payroll subunit
space "Período
space "Inicio del Período
space "Final del Período
space "payroll subunit in
space "Modificador de perídos
space "PerEn (Con Retros)
space "FinalEn
space "Legal Entity
'A' "Actual, Previous, Old
space "CD-TYPE
'R' "action
cod. "Código de retorno
I esta es la llamada de la macro para obtener las tablas RT, BT .....
READ TABLE rgdir WITH KEY fpper = p_periodo_aux srtza = 'A'.
rp-init-buffer.
rx-key-pernr = pernr-pernr.
UNPACK rgdir-seqnr TO rx-key-seqno.
rp-imp-c2-re.
Saludos y espero que te sea da ayuda!
|