Este Es El Codigo De La Parte Donde Creo Que Hay Problema
report .
*========================== Global definitions ====================*
**
* Data Types
**
type-pools: slis.
types: begin of tp_data ,
pernr like pa9111-pernr,
perfil like pa9111-perfil,
finimedemb like pa9111-finimedemb,
mtunico like pa9111-mtunico,
porsmn like pa9111-porsmn,
cibenfr like pa9111-cibenfr,
nbbenfr like pa9111-nbbenfr,
tribunal like pa9111-tribunal,
numofic like pa9111-numofic,
fofc like pa9111-fofc,
numofcsup like pa9111-numofcsup,
status like pa9111-status,
bukrs like pa0001-bukrs,
abkrs like pa0001-abkrs,
ename like pa0001-ename,
icnum like pa0185-icnum,
intereses like zint_eval-intereses,
dsmotemb like z9hrmotemb-dsmotemb,
tstatus like z9hrtstemb-tstatus,
itriben LIKE pa9111-itriben,
tpt TYPE c,
end of tp_data,
tp_tbl_data type standard table of tp_data .
**
* Constants
**
**
* Data objects (variable declarations and definitions)
**
* Report data to be shown.
data: it_data type standard table of tp_data .
* Heading of the report.
data: t_heading type slis_t_listheader.
*======================= Selection Screen ==========================*
selection-screen: begin of block b1 with frame title text-t01.
DATA: w_aux_bukrs like pa0001-bukrs.
SELECT-OPTIONS s_bukrs for w_aux_bukrs OBLIGATORY .
DATA: w_aux_abkrs like pa0001-abkrs.
SELECT-OPTIONS s_abkrs for w_aux_abkrs OBLIGATORY .
DATA: w_aux_pernr like pa9111-pernr.
SELECT-OPTIONS s_pernr for w_aux_pernr .
DATA: w_aux_begda like pa9111-begda.
SELECT-OPTIONS s_begda for w_aux_begda .
DATA: w_aux_finimedemb like pa9111-finimedemb.
SELECT-OPTIONS s_fini03 for w_aux_finimedemb .
DATA: w_aux_status like pa9111-status.
SELECT-OPTIONS s_status for w_aux_status .
DATA: w_aux_codmotivo like pa9111-codmotivo.
SELECT-OPTIONS s_codm05 for w_aux_codmotivo .
DATA: w_aux_fofc like pa9111-fofc.
SELECT-OPTIONS s_fofc for w_aux_fofc .
DATA: w_aux_numofic like pa9111-numofic.
SELECT-OPTIONS s_numo07 for w_aux_numofic .
DATA: w_aux_tribunal like pa9111-tribunal.
SELECT-OPTIONS s_trib08 for w_aux_tribunal .
selection-screen: end of block b1.
*======================== Event Blocks =============================*
at selection-screen.
start-of-selection.
perform get_data using it_data .
end-of-selection.
perform build_alv using it_data t_heading.
*======================== Subroutines ==============================*
*&------------------------------------------------------------------*
*& Form get_data
*&------------------------------------------------------------------*
* Gets the information to be shown in the report.
*-------------------------------------------------------------------*
form get_data using t_data TYPE tp_tbl_data .
*DATA:t_data TYPE tp_tbl_data WITH HEADER LINE.
SELECT pa0001~bukrs
pa0001~abkrs
zint_eval~intereses
pa9111~pernr
pa0185~icnum
pa0001~ename
pa9111~perfil
pa9111~finimedemb
pa9111~mtunico
pa9111~porsmn
z9hrmotemb~dsmotemb
z9hrtstemb~tstatus
pa9111~cibenfr
pa9111~nbbenfr
pa9111~tribunal
pa9111~numofic
pa9111~fofc
pa9111~status
pa9111~numofcsup
pa9111~itriben
INTO CORRESPONDING FIELDS OF TABLE t_data
FROM pa9111 as pa9111
inner join pa0001 as pa0001 on pa9111~pernr = pa0001~pernr
inner join pa0185 as pa0185 on pa9111~pernr = pa0185~pernr
inner join zint_eval as zint_eval on pa9111~pernr = zint_eval~empleado
inner join z9hrmotemb as z9hrmotemb on pa9111~codmotivo = z9hrmotemb~codmotivo
inner join z9hrtstemb as z9hrtstemb on pa9111~status = z9hrtstemb~status
WHERE pa9111~pernr in s_pernr
AND pa9111~begda in s_begda
and pa9111~endda in s_begda
AND pa9111~finimedemb in s_fini03
AND pa9111~status in s_status
AND pa9111~codmotivo in s_codm05
AND pa9111~fofc in s_fofc
AND pa9111~numofic in s_numo07
AND pa9111~tribunal in s_trib08
AND pa0001~bukrs in s_bukrs
AND pa0001~abkrs in s_abkrs
.
DELETE ADJACENT DUPLICATES FROM t_data.
* AQUI ES DONDE QUIERO AGREGAR EL LOOP PARA ACTUALIZAR T_DATA
endform. " get_data
|