Olá,
ESTA DECLARAÇÃO RECUPERARÁ UM REGISTRO DE FUNCIONÁRIO DAS TABELAS DE BANCO DE DADOS DE INFOTIPOS (PA0000 A PA0999) USANDO O PROGRAMA LDB E PASSARÁ OS DADOS PARA A TABELA INTERNA DE INFOTIPO
NOS RELATÓRIOS DE ABAP HR DESDE O GET PERNR ATÉ AS FORMAS END-OF-SELECTION O LOOP.
EXEMPLO DE RELATÓRIO:
tabelas: pernr.
infotypes: 0000," ações
0001," atribuição org
0002."dados pessoais
TYPES: BEGIN OF ty_final,
massn type massn,"ação
massg type massg,"tipo de ação
bukrs type bukrs,"código da empresa
abkrs type abkrs,"área de folha de pagamento
werks type werks,"planta
kostl type kostl,"stell
nachn type nachn,"sobrenome
vorna type vorna,"nome
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 obter os dados mestre do funcionário
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
Obrigado