Deshabilitar el INPUT a un campo de SELECTION-OPTIONS

En algunos casos, se exige que unos determinados usuarios no puedan utilizar unos campos específicos en la pantalla de selección. En este ejemplo se mostrará como deshabilitar el input de un campo LOW y HIGH de un SELECTION-OPTIONS.

Para empezar, tendremos los cuatro primeros campos del SELECTION-OPTIONS de la tabla SFLIGHT (carrid, connid, fldate y price).

Los cuatro SELECTION-OPTIONS para la tabla SFLIGHT.

A continuación, se recorre un LOOP AT SCREEN y almacenamos los datos en una tabla auxiliar para ver los datos iniciales:

  LOOP AT SCREEN.
    APPEND screen TO g_it_screen.
  ENDLOOP.

Valores de la tabla interna screen sin modificaciones.

Una vez conocido los datos de la tabla interna, cambiaremos las propiedades de los campos INPUT en el primer SELECTION-OPTIONS con un IF. 

El código es el siguiente:

REPORT  z_sflight.

* Cargar la tabla SFLIGHT de la base de datos
TABLES: sflight.

* Definición de variables
DATA: g_it_sflight TYPE TABLE OF sflight,
      g_st_sflight TYPE sflight.

DATA: g_it_screen TYPE TABLE OF screen.

* Pantalla de selección
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME.

SELECT-OPTIONS: p01 FOR sflight-carrid,
                p02 FOR sflight-connid,
                p03 FOR sflight-fldate.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: p04 FOR sflight-price.

SELECTION-SCREEN:  END OF BLOCK b01.

INITIALIZATION.
* Deshabilitar un campo
  LOOP AT SCREEN.
    IF screen-name = 'P01-LOW'.
      screen-input = 0.
    ELSEIF screen-name = 'P01-HIGH'.
      screen-input = 0.
    ENDIF.

    MODIFY SCREEN. 
    APPEND screen TO g_it_screen.
  ENDLOOP.

START-OF-SELECTION.
  BREAK-POINT.

Se observa que ahora los campos input del primer parámetro se han desactivado.

Campos input del SELECTION-OPTIONS desactivados.

Read More

Asignar valores iniciales al filtrado de SELECT-OPTIONS en la pantalla de selección

Si se desea que los campos de SELECT-OPTIONS tengan por defecto un valor, será necesario modificar los

Por ejemplo, si se desean seleccionar los datos de la tabla SFLIGHT con las compañías AA y DL, tendremos que recurrir al evento INITIALIZATION para asignarle los valores de la búsqueda. De este modo, el usuario no tendrá que dar al botón de búsqueda avanzada, ya que los parámetros ya habrán sido introducidos.

REPORT  z_sflight.

* Cargar la tabla SFLIGHT de la base de datos
TABLES: sflight.

* Definición de variables
DATA: g_it_sflight TYPE TABLE OF sflight,
      g_st_sflight TYPE sflight.

* Pantalla de selección
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME.

SELECT-OPTIONS: p01 FOR sflight-carrid,
                p02 FOR sflight-connid,
                p03 FOR sflight-fldate.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: p04 FOR sflight-price.

SELECTION-SCREEN:  END OF BLOCK b01.

INITIALIZATION.
  p01-sign = 'I'. "Incluir
  p01-option = 'EQ'. "=
  p01-low = 'AA'.
  APPEND p01.

  p01-sign = 'I'.
  p01-option = 'EQ'.
  p01-low = 'DL'.
  APPEND p01.

START-OF-SELECTION.
* Copiado de los datos a la tabla con los filtros
  SELECT * FROM sflight INTO TABLE g_it_sflight
           WHERE carrid IN p01
           AND   connid IN p02
           AND   fldate IN p03
           AND   price  IN p04.

* Ver en el Debugging los valores de la tabla g_it_sflight
  BREAK-POINT.

En este ejemplo, la variable p01 es una tabla interna cuyos campos son:

1. p01-SIGN: Para incluir ('I') o excluir un dato ('E').
2. p01-OPTION: Operación lógica ('EQ', 'BT', 'NE', etc).
3. p01-LOW: Límite inferior.
4. p01-HIGH: Límite superior.

Por tanto, se han añadido los datos a la tabla interna en el evento INITIALIZATION.

Read More

Filtrar datos de una base de datos con SELECT-OPTIONS y SQL

¿Quieres filtrar los datos de una base de datos? En esta entrada se explicará como copiar la base de datos a una tabla interna con una sentencia SQL.

Es fundamental tener conocimiento de las sentencias SELECT-OPTIONS y SELECTION-SCREEN en este ejercicio para la pantalla de selección, y de la sentencia SQL para copiar los datos filtrados a la tabla.

REPORT  z_sflight.

* Cargar la tabla SFLIGHT de la base de datos
TABLES: sflight.

* Definición de variables
DATA: g_it_sflight TYPE TABLE OF sflight,
      g_st_sflight TYPE sflight.

* Pantalla de selección
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME TITLE text-001.
  
SELECT-OPTIONS: p01 FOR sflight-carrid,
                p02 FOR sflight-connid,
                p03 FOR sflight-fldate.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: p04 FOR sflight-price.

SELECTION-SCREEN: END OF BLOCK b01.

* Copiado de los datos a la tabla con los filtros
SELECT * FROM sflight INTO TABLE g_it_sflight
         WHERE carrid IN p01
         AND   connid IN p02
         AND   fldate IN p03
         AND   price  IN p04.

* Ver en el debugging los valores de la tabla g_it_sflight
BREAK-POINT.

Se ha incluido un BREAK-POINT para ver la tabla interna g_it_sflight en el debugging.

Si ejecutamos, veremos que en la pantalla de selección aparecen los nombres de las variables. Para poder editarlo tenemos que ir a los textos de selección:

Ir a los textos de selección.

Editar los campos para mostrar en la pantalla de selección.

 Ya tenemos la pantalla lista para mostrar y ejecutar el programa.

Pantalla de selección con los textos editados.

Read More

Cambiar el formato de la fecha

¿No os gusta el formato de la fecha por defecto en ABAP y queréis cambiar su formato de una manera sencilla? Aquí se explicará cómo hacerlo.

Nos apoyaremos de la variable del sistema SY-DATUM y la función CONCATENATE.

Si la fecha es el 19 de noviembre de 2013, el valor de la variable SY-DATUM es 20131119. Como podéis observar, sigue el siguiente formato: AAAAMMDD. Nuestro objetivo va a ser pasarlo al siguiente formato: DD/MM/AAAA con la función CONCATENATE.

REPORT  z_fecha.

DATA texto TYPE string.

CONCATENATE sy-datum+6(2) sy-datum+4(2) sy-datum+0(4) INTO texto SEPARATED BY '/'.

WRITE: texto.

En el valor 20131119 nos situamos en las posiciones 6, 4 y 0 con longitud de 2, 2 y 4 respectivamente, y separamos los textos por el carácter "/".

Read More

Cargar la tabla SFLIGHT en MiniSAP (NetWeaver Trial)

¿Has instalado MiniSAP y te das cuenta que la famosa tabla SFLIGHT existe pero está vacía? En esta entrada os voy a explicar cómo rellenar la tabla.

Entramos en la transacción SE38 y buscamos el siguiente programa: SAPBC_DATA_GENERATOR

Programa para rellenar los datos de la tabla SFLIGHT.

A continuación pulsamos F8 para ejecutar el programa, y nos saldrá la siguiente ventana:

Programa SAPBC_DATA_GENERATOR ejecutado con F8.

Observamos que nos pide la cantidad de datos para rellenar las tablas SPFLI, SFLIGHT y SBOOK. Se recomienda dejarlo por defecto y volvemos a pulsar F8 para iniciar el rellenado de datos.

Posiblemente nos saltará el siguiente mensaje:

Mensaje que sale al ejecutar el programa.

Nos pregunta que regenerará los datos de las tablas indicadas, ya que posiblemente haya datos guardados en la tabla. Decimos que si, y se habrá finalizado el proceso.

Ya se tiene la tabla SFLIGHT lista para aprender con MiniSAP.

Read More

Copiar una tabla y estructura a partir de la declaración de variables

En este ejemplo se va a mostrar cómo copiar la estructura y la tabla en el proceso de declaración de variables para ambos métodos de declaración de tablas internas. Cabe indicar que no se copia ni el contenido de la estructura ni el de la tabla interna.

• Primer método (Cabecera + Tabla):

  * Tipos
  TYPES: BEGIN OF g_ty_encabezado,
    nombre(20) TYPE c,
    apellido(20) TYPE c,
    telefono(9) TYPE n,
  END OF g_ty_encabezado.
  
  TYPES: g_tt_mitabla TYPE TABLE OF g_ty_encabezado.
  
  * Declaración de variables
  DATA: g_st_encabezado TYPE g_ty_encabezado,
        g_it_mitabla TYPE g_tt_mitabla.
  
  * Copiado de la cabecera
  DATA: g_st_encabezado_copia LIKE LINE OF g_it_mitabla.
  
  * Copiado de la tabla
  DATA: g_it_mitabla_copia LIKE g_it_mitabla.
  

  
  
• Segundo método (Cabecera + Tabla con el mismo nombre):

* Declaración de la tabla
DATA: BEGIN OF g_it_mitabla OCCURS 0,
  campo1(9) TYPE c,
  campo2(9) TYPE c,
  END OF g_it_mitabla.

* Copiado de la cabecera:
DATA: g_st_encabezado_copia LIKE LINE OF g_it_mitabla.

* Copiado de la tabla: 
DATA: g_it_mitabla_copia LIKE g_it_mitabla OCCURS 0 WITH HEADER LINE.

Como se puede apreciar, si se quiere copiar el encabezado de una tabla, la sentencia LIKE LINE OF funciona para ambos métodos. Sin embargo, las sentencias son distintas cuando se copia la tabla interna.

Para ver las diferencias entre ambos métodos en un loop, se recomienda ver esta entrada.

Read More

Declaración de tablas internas (dos métodos)

Una tabla interna se caracteriza por tener una agrupación de datos con una misma estructura. Existen dos formas de declarar una tabla interna, para ello vamos a ver cómo se hace con esta sencilla tabla:

Nombre	Apellido	Teléfono
Juan	Pérez	612345678
Lucas	García	698765432
María	Gutiérrez	600111222

Primera forma:

REPORT  z_tabla1.

* Tipos
TYPES: BEGIN OF g_ty_encabezado,
  nombre(20) TYPE c,
  apellido(20) TYPE c,
  telefono(9) TYPE n,
END OF g_ty_encabezado.

TYPES: g_tt_mitabla TYPE TABLE OF g_ty_encabezado.

* Declaración de variables
DATA: g_st_encabezado TYPE g_ty_encabezado,
      g_it_mitabla TYPE g_tt_mitabla.

* Rellenado de la tabla
g_st_encabezado-nombre = 'Juan'.
g_st_encabezado-apellido = 'Pérez'.
g_st_encabezado-telefono = '612345678'.
APPEND g_st_encabezado TO g_it_mitabla.

g_st_encabezado-nombre = 'Lucas'.
g_st_encabezado-apellido = 'García'.
g_st_encabezado-telefono = '698765432'.
APPEND g_st_encabezado TO g_it_mitabla.

g_st_encabezado-nombre = 'María'.
g_st_encabezado-apellido = 'Gutiérrez'.
g_st_encabezado-telefono = '600111222'.
APPEND g_st_encabezado TO g_it_mitabla.

* Mostrar en pantalla la tabla
LOOP AT g_it_mitabla INTO g_st_encabezado.
  WRITE:/ g_st_encabezado-nombre,
          AT 22 g_st_encabezado-apellido,
          AT 44 g_st_encabezado-telefono.
ENDLOOP.

Segunda forma:

REPORT  z_tabla2.

* Declarado de variables
DATA: BEGIN OF g_it_mitabla OCCURS 0,
    nombre(20) TYPE c,
    apellido(20) TYPE c,
    telefono(9) TYPE n,
END OF g_it_mitabla.

* Rellenado de la tabla
g_it_mitabla-nombre = 'Juan'.
g_it_mitabla-apellido = 'Pérez'.
g_it_mitabla-telefono = '612345678'.
APPEND g_it_mitabla.

g_it_mitabla-nombre = 'Lucas'.
g_it_mitabla-apellido = 'García'.
g_it_mitabla-telefono = '698765432'.
APPEND g_it_mitabla.

g_it_mitabla-nombre = 'María'.
g_it_mitabla-apellido = 'Gutiérrez'.
g_it_mitabla-telefono = '600111222'.
APPEND g_it_mitabla.

* Mostrar en pantalla la tabla
LOOP AT g_it_mitabla.
  WRITE:/ g_it_mitabla-nombre,
          AT 22 g_it_mitabla-apellido,
          AT 44 g_it_mitabla-telefono.
ENDLOOP.

Se aprecia que en el primer método se crea primero el encabezado y la tabla con TYPES, y a continuación se declaran las variables. Sin embargo, en el segundo método se crea directamente la tabla.

Nótese que a la hora de hacer un LOOP a la tabla, en el primer método se indica la tabla y el encabezado, mientras que en el segundo caso sólo se indica el nombre de la tabla, ya que el nombre del encabezado y tabla interna es el mismo.

Read More