Aqui te dejo un paste de como acceder a los resultados de nomina
*DECLARACIONES
***********************************************************************
* TABLAS Y POOLS *
***********************************************************************
TABLES: pcl1,
pcl2,
bnka,
pernr.
INFOTYPES 0001.
TYPE-POOLS: pesu0,
pest0.
***********************************************************************
* INCLUDES *
***********************************************************************
INCLUDE rpppxd00.
INCLUDE rpppxd10.
INCLUDE rpc2cd09.
INCLUDE rpc2rx00.
INCLUDE rpppxm00.
INCLUDE rpc2ree0.
INCLUDE rpcmgr00.
**TE TRAES LOS RESULTADOS DE NOMINA
FORM lee_nomina.
CLEAR rgdir.
REFRESH rgdir.
PERFORM cd_manager USING pernr-pernr "Nº Personal
space "Payroll subunit
p_period "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
ENDFORM. " lee_nomina
**ACCEDER A LAS TABLAS CLUSTER RT,BT....
LOOP AT rgdir WHERE fpper = p_period AND srtza = 'A'.
rp-init-buffer.
rx-key-pernr = pernr-pernr.
UNPACK rgdir-seqnr TO rx-key-seqno.
rp-imp-c2-re.
*LECTURA DE LA RT POR UN DETERMINADO CONCEPTO.
LOOP AT rt WHERE lgart = i_t512z-lgart.
ENDLOOP.
ENDLOP
Espero que te sirva de ayuda!
Saludos.
|