✒️ABAP / El lenguaje SQL y la sentencia SELECT Por Lorena Amoretti
ABAP El lenguaje SQL y la sentencia SELECT
REPORT zabap_usuarios_de30k.
* Declaración de Tablas
DATA: ti_usuarios TYPE STANDARD TABLE OF yytabla_usuarios,
wa_usuarios LIKE LINE OF ti_usuarios.
* Declaración de variables
DATA: v_fecha TYPE yytabla_usuarios-f_nacimiento.
* Pantalla de selección
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_fecha FOR v_fecha. "Fecha de Nacimiento
SELECTION-SCREEN END OF BLOCK b1.
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
*----------------------------------------------------------------------*
* Validamos que se ingren datos en la pantalla de selección
IF s_fecha-low IS INITIAL AND s_fecha-high IS INITIAL.
MESSAGE e006(z_prueba) WITH 'Debe completar la Fecha de Nacimiento'.
ENDIF.
*----------------------------------------------------------------------*
START-OF-SELECTION.
*----------------------------------------------------------------------*
"CLEAR: ti_usuarios, wa_usuarios.
"REFRESH ti_usuarios.
"wa_usuarios-f_nacimiento = s_fecha-low.
"APPEND wa_usuarios TO ti_usuarios.
"CLEAR wa_usuarios.
"wa_usuarios-f_nacimiento = s_fecha-high.
"APPEND wa_usuarios TO ti_usuarios.
SELECT *
FROM yytabla_usuarios
INTO TABLE ti_usuarios
WHERE f_nacimiento in s_fecha.
IF sy-subrc EQ 0.
* Título Usuarios
WRITE: /1(133) sy-uline.
WRITE:/1(1) sy-vline,
2(86) ' Usuarios ',
133 sy-vline.
* Cabeceras de campos
WRITE: /1(133) sy-uline.
WRITE:/1(1) sy-vline,
2(8) 'DNI',
11 sy-vline,
12(30) 'Nombre y Apellido',
43 sy-vline,
44(20) 'Estado del usuario',
65 sy-vline,
66(30) 'Dirección',
96 sy-vline,
97(20) 'Fecha de Nacimiento',
118 sy-vline,
119(12) 'Estado civil',
133 sy-vline.
WRITE: /1(133) sy-uline.
LOOP AT ti_usuarios INTO wa_usuarios.
* Contenido de la tabla de usuarios
WRITE:/1(1) sy-vline,
2(8) wa_usuarios-dni,
11 sy-vline,
12(30) wa_usuarios-nombre_ape,
43 sy-vline,
44(20) wa_usuarios-estado_usu,
65 sy-vline,
66(30) wa_usuarios-direccion,
96 sy-vline,
97(20) wa_usuarios-f_nacimiento,
118 sy-vline,
119(12) wa_usuarios-estado_civil,
133 sy-vline.
ENDLOOP.
WRITE: /1(133) sy-uline.
ELSE.
MESSAGE s001(z_prueba) WITH 'No existen datos para la selección realizada'.
ENDIF.
Escanear / Compartir
Sobre el autor
Publicación académica de Lorena Amoretti, en su ámbito de estudios para la Carrera Consultor ABAP Nivel Inicial.
SAP SemiSenior
Lorena Amoretti
Profesión: Profesor Sup. Informática Aplicada - Argentina - Legajo: DE30K
✒️Autor de: 7 Publicaciones Académicas
🎓Egresado del módulo:
Disponibilidad Laboral: PartTime
