En este ejercicio, se muestran los parametros de seleccion de la leccion y adicional se agrega la consulta a la tabla via SQL.
La consulta de la tabla la hice en el mismo START-OF-SELECTION, y no en INICIALITATION, debido a que los datos ahi no eran cargados. Tambien fue necesario utilizar la sentencia REPLACE para reemplazar el % por * ya que en la consulta de usuario SAP esta familiarizado con el * y no con el el % el cual se toma en el query SQL plasmado directamente en la parte abap. Espero les ayude. slds
&---------------------------------------------------------------------*
*& Report ZUNI_2_PARAM_SELECC_ESTLV31L
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZUNI_2_PARAM_SELECC_ESTLV31L.
*ZONA DE VARIABLES****************************************************************
DATA : total TYPE i,
vlr_a TYPE i,
vlr_b TYPE i.
*DECLARAMOS ESTRUCTURA para uso de tabla estandar
DATA :
zt_user LIKE STANDARD TABLE OF user_addrp, "Tabla Estructura ZT_USER
zc_user LIKE LINE OF zt_user, "Cursor para Recorrer la Tabla ZC_USER
acum TYPE i.
*--------------------------------------------------------------
DATA : value TYPE string VALUE IS INITIAL.
"SELECCION DE PANTALLA EJEMPLOS Y USOS-------------------------
"SE USA EN LA PANTALLA DE SELECCION PARA 1 SOLO VALOR
PARAMETERS:
p_cuser TYPE string ,"OBLIGATORY ,
p_nomp TYPE string OBLIGATORY DEFAULT 'Ingrese Nombre Aqui . . .',
"p_fecha TYPE d ,"OBLIGATORY DEFAULT '19860511' ,
p_fchpro LIKE sy-datum OBLIGATORY DEFAULT sy-datum .
"PARA PONER UN CHECK BOX EN LA MASCARA ---------------
PARAMETERS:
chk_mnd AS CHECKBOX.
"PARA PONER UN RADIO BUTTON EN LA MASCARA ------------
PARAMETERS:
rad_bto1 RADIOBUTTON GROUP bot2,
rad_bto2 RADIOBUTTON GROUP bot2,
rad_bto3 RADIOBUTTON GROUP bot2.
"OJO ESTO ES ESTETICO SOLO PARA PONER UN CUADRO
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
"SE USA PARA RANGO DE VALORES DESDE HASTA -------------------
SELECT-OPTIONS
so_fchas FOR sy-datum.
"------------------------------------------------------------
SELECTION-SCREEN END OF BLOCK b1.
*ZONA DE INICIALIZAR*******************************************
*ZONA DE EVENTOS * Rutinas o perform
START-OF-SELECTION.
REPLACE '*' WITH '%' INTO p_cuser.
SELECT
mandt
bname
persnumber
date_from
nation
name_first
name_last
name_text
FROM user_addrp
INTO TABLE zt_user
WHERE bname LIKE p_cuser
ORDER BY persnumber.
LOOP AT zt_user INTO zc_user.
ADD 1 TO acum.
WRITE:/ 'Nro. | ',acum,' | ',zc_user-bname.
ENDLOOP.
ULINE.
IF acum is INITIAL.
WRITE:/ 'Sin Resultados'.
ENDIF.