Hi,
ESTA DECLARACIÓN RECUPERARÁ UN REGISTRO DE EMPLEADO DE LAS TABLAS DE BASE DE DATOS DE INFOTIPOS (PA0000 A PA0999) USANDO EL PROGRAMA LDB Y PASARÁ LOS DATOS A LA TABLA INTERNA DE INFOTIPO
EN LOS INFORMES DE ABAP HR DESDE GET PERNR HASTA LAS FORMAS END-OF-SELECTION EL LOOP.
EJEMPLO DE INFORME:
tables: pernr.
infotypes: 0000," acciones
0001," asignación org
0002."datos personales
TYPES: BEGIN OF ty_final,
massn type massn,"acción
massg type massg,"tipo de acción
bukrs type bukrs,"código de empresa
abkrs type abkrs,"área de nómina
werks type werks,"planta
kostl type kostl,"stell
nachn type nachn,"apellido
vorna type vorna,"nombre
med_ins type numc7,
END OF ty_final.
DATA: it_final TYPE TABLE OF ty_final INITIAL SIZE 0,
wa_final LIKE LINE OF it_final.
START-OF-SELECTION.
get pernr.
para obtener los datos maestros del empleado
PERFORM f_get_emp.
end-of-selection.
perform f_get_display.
&----
*& Form f_get_emp
&----
FORM f_get_emp .
RP_PROVIDE_FROM_LAST P0000 SPACE PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND EQ 1.
WA_FINAL-MASSN = p0000-massn.
WA_FINAL-MASSG = P0000-MASSG.
ENDIF.
RP_PROVIDE_FROM_LAST P0001 SPACE PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND EQ 1.
WA_FINAL-BUKRS = P0001-BUKRS.
WA_FINAL-WERKS = P0001-WERKS.
WA_FINAL-ABKRS = P0001-ABKRS.
ENDIF.
RP_PROVIDE_FROM_LAST P0002 SPACE PN-BEGDA PN-ENDDA.
IF PNP-SW-FOUND EQ 1.
WA_FINAL-NACHN = P0002-NACHN.
WA_FINAL-VORNA = P0002-VORNA.
ENDIF.
ENDFORM. " f_get_emp
Gracias