Crear Dynpros para crear, modificar y visualizar datos en una base de datos.

Datos previos:

• Base de datos ZBIBLIO_SOCIOS (Ver aquí)

Objetivo:

• Una Dynpro 9000 con tres botones (Crear, Modificar y Visualizar).
• Una Dynpro 9001 para añadir datos a la base de datos.
• Una Dynpro 9002 como ventana de diálogo modal, para introducir el código de socio.
• Una Dynpro 9003, como ventana de diálogo modal, para Modificar o Visualizar un socio de la base de datos.

Esquema de las cuatro dynpros:

Esquema de los dynpros.

El primer paso es crear un Module Pool en la SE38:

Crear un Module Pool en la SE38

 Añadir una Dynpro (Screen) al Module Pool creado pulsando el botón derecho:

Añadir una Dynpro al Module Pool creado.

Indicar el número de pantalla (se recomienda a partir de 9000).

Crear el elemento tipo OK de la pantalla 9000.

Descomentar los módulos PBO y PAI, y crear ambos objetos pinchando dos veces en el nombre.

En nuestro programa principal se nos habrán creado los objetos PBO y PAI en el código del programa.

Objetos PBO y PAI en el programa.

Como se puede apreciar, en el PBO se añade un Status y un Título, y en el PAI la salida del programa cuando el usuario pulsa el botón Cancel.

Para crear el STATUS y el título se pincha dos veces en el nombre:

Descripción del Status

Activación del botón Cancel cómo mínimo para salir del programa.

Descripción del título del programa.

Pinchamos dos veces al Dynpro 9000 y vamos al Layout para editar la pantalla. Se introducirán los botones de crear, modificar y visualizar:

Ir al Layout para editar la pantalla.

Escribir el código de función del botón.

Botones creados en el Dynpro 9000.

Para poder ejecutar la pantalla creada, es necesario crear una transacción. Hay dos formas:

1. En la SE93
2. Directamente en el programa

Crear la transacción en la SE93.

Crear la transacción directamente en el programa.

Se indicará la descripción, el nombre del Module Pool y la pantalla.

Descripción de la transacción.

Module Pool y Dynpro para que la transacción lo ejecute.

Creamos la Dynpro (Screen) 9001 tal y como creamos la 9000. Las únicas diferencias son:

1. Añadimos el botón BACK para volver al screen 9000 en el STATUS_9001.
2. El campo de entrada/salida se nombra con el nombre de la tabla ZBIBLIO_SOCIOS para referenciar sus características.

Añadimos el botón Back.

Nombras el campo de entrada/salida con el mismo nombre para referenciar.

Dynpro 9001 resultante.

Se necesita comprobar que el nuevo código de socio no existe en la base de datos. Para ello recurrimos al Process After Input (PAI) para comprobar si el valor introducido existe en la base de datos. Se indica el campo con un CHAIN y el módulo correspondiente a ejecutar (ver código resultante al final).

PROCESS BEFORE OUTPUT.
  MODULE status_9001.
*
PROCESS AFTER INPUT.
  CHAIN.
    FIELD zbiblio_socios-cod_socio.
    MODULE existe_socio.
  ENDCHAIN.

  MODULE user_command_9001.

A continuación creamos la Dynpro 9002 con sus correspondientes campos como ventana de diálogo modal. En este caso, el Status tiene que ser del mismo tipo:

Status 9002 como diálogo modal.

Añadimos el código para cuando el usuario pulsa X para salir.

En este caso, dependiendo del botón pulsado en la Dynpro 9000, el botón tendrá como texto Modificar o Visualizarse, por tanto es necesario indicar el botón como campo de salida.

Botón como campo output en el Dynpro 9002.

Finalmente creamos la Dynpro 9003 como ventana de diálogo modal.

Dynpro 9003 como ventana de diálogo modal.

Esta misma Dynpro se va a utilizar para la acción de modificar o visualizar. Las diferencias con respecto a la 9001 son:

1. El campo del código de socio es solo output (El usuario ya ha sido introducido en la Dynpro 9002).
2. Todos los campos de entrada/salida, salvo el primero, tendrán un identificador de Grupo1 llamado ID1.
• Si se da al botón de visualizar, ningún campo es editable, por lo tanto identificamos con ID1 los campos a modificar esa opción.
3. El botón será un campo de salida, tal y como en el Dynpro 9002.

El campo input del código de socio es solo output.

Identificador de grupo ID1 en todos los campos de entrada/salida salvo en código de socio.

Botón como campo de salida.

Los códigos son los siguientes:

• Dynpro 9000

PROCESS BEFORE OUTPUT.
 MODULE STATUS_9000.
*
PROCESS AFTER INPUT.
 MODULE USER_COMMAND_9000.

• Dynpro 9001

PROCESS BEFORE OUTPUT.
  MODULE status_9001.
*
PROCESS AFTER INPUT.
  CHAIN.
    FIELD zbiblio_socios-cod_socio.
    MODULE existe_socio.
  ENDCHAIN.

  MODULE user_command_9001.

• Dynpro 9002

PROCESS BEFORE OUTPUT.
  MODULE status_9002.
  MODULE inicial_9002.
*
PROCESS AFTER INPUT.
  CHAIN.
    FIELD zbiblio_socios-cod_socio.
    MODULE existe_socio.
  ENDCHAIN.

  MODULE user_command_9002.

• Dynpro 9003

PROCESS BEFORE OUTPUT.
  MODULE status_9003.
  MODULE inicial_9003.
*
PROCESS AFTER INPUT.
  MODULE user_command_9003.

• Module Pool

*&---------------------------------------------------------------------*
*& Module Pool       ZBIBLIO_CREAR_MODIF_VISUAL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

PROGRAM  zbiblio_crear_modif_visual.

TABLES: zbiblio_socios.

DATA: g_st_socios TYPE zbiblio_socios.

DATA: ok_code_9000 TYPE sy-ucomm,
      ok_code_9001 TYPE sy-ucomm,
      ok_code_9002 TYPE sy-ucomm,
      ok_code_9003 TYPE sy-ucomm.

DATA: b_9002_boton(20) TYPE c, "Texto de los botones output
      b_9003_boton(20) TYPE c.

DATA: g_wa_existe_socio TYPE c,   "Búsqueda en dynpro 9002
      g_wa_vuelta TYPE i. "Al iniciar PBO del dynpro 9003

*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9000 OUTPUT.

  SET PF-STATUS 'STATUS_9000'.
  SET TITLEBAR 'TITLE_9000'.

ENDMODULE.                 " STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.

  CASE ok_code_9000.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'CREAR'.
      CALL SCREEN 9001.
    WHEN 'MODIFICAR'.
      CALL SCREEN 9002 STARTING AT 10 10.
    WHEN 'VISUALIZAR'.
      CALL SCREEN 9002 STARTING AT 10 10.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9001  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9001 OUTPUT.

  SET PF-STATUS 'STATUS_9001'.
  SET TITLEBAR 'TITLE_9001'.

ENDMODULE.                 " STATUS_9001  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9001  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9001 INPUT.

  CASE ok_code_9001.
    WHEN 'BACK'.
      CALL SCREEN 9000.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'CREAR'.
      INSERT zbiblio_socios.
      MESSAGE 'Usuario creado' type 'I'.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_9001  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9002  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9002 OUTPUT.

  SET PF-STATUS 'STATUS_9002'.
  SET TITLEBAR 'TITLE_9002'.

ENDMODULE.                 " STATUS_9002  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  MODIFICAR_VISUALIZAR  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE inicial_9002 OUTPUT.

  PERFORM f_inicial.

ENDMODULE.                 " MODIFICAR_VISUALIZAR  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  VALIDA_SOCIO  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE existe_socio INPUT.

  PERFORM f_existe_socio.

  IF ok_code_9000 = 'CREAR' AND g_wa_existe_socio = 'X'.
    MESSAGE 'El usuario ya existe' TYPE 'E'.
  ELSEIF ( ok_code_9000 = 'MODIFICAR' OR
           ok_code_9000 = 'VISUALIZAR' ) AND
           g_wa_existe_socio <> 'X'.
    MESSAGE 'El usuario no existe' TYPE 'E'.
  ENDIF.

ENDMODULE.                 " EXISTE_SOCIO  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9002  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9002 INPUT.

  CASE ok_code_9002.
    WHEN 'BACK'.
      CALL SCREEN 9000.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
      CLEAR: g_st_socios, g_wa_existe_socio.
    WHEN 'ACCION'.
      IF g_wa_existe_socio = 'X'.
        g_wa_vuelta = 1.
        CALL SCREEN 9003 STARTING AT 10 10.
      ENDIF.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_9002  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9003  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9003 INPUT.

  CASE ok_code_9003.
    WHEN 'BACK'.
      CALL SCREEN 9000.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'ACCION'.
      IF ok_code_9000 = 'MODIFICAR'.
        PERFORM f_modificar.
      ENDIF.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_9003  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9003  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9003 OUTPUT.

  SET PF-STATUS 'STATUS_9003'.

  IF ok_code_9000 = 'MODIFICAR'.
    SET TITLEBAR 'TITLE_9003_1'.
  ELSEIF ok_code_9000 = 'VISUALIZAR'.
    SET TITLEBAR 'TITLE_9003_2'.
  ENDIF.

ENDMODULE.                 " STATUS_9002  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  INICIAL_9003  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE inicial_9003 OUTPUT.

  PERFORM f_inicial.
  IF g_wa_vuelta = 1.
    PERFORM f_ver_socio.
    g_wa_vuelta = g_wa_vuelta + 1.
  ENDIF.

ENDMODULE.                 " INICIAL_9003  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  F_INICIAL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_inicial.

* Cambiar el texto del botón
  IF ok_code_9000 = 'MODIFICAR'.
    b_9002_boton = 'Modificar'.
    b_9003_boton = 'Modificar'.

  ELSEIF ok_code_9000 = 'VISUALIZAR'.
    b_9002_boton = 'Visualizar'.
    b_9003_boton = 'Visualizar'.

*   No editable cuando es visualización
    LOOP AT SCREEN.
      IF screen-group1 = 'ID1'.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

ENDFORM.                    " F_INICIAL
*&---------------------------------------------------------------------*
*&      Form  F_EXISTE_SOCIO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM f_existe_socio  .

  DATA: l_st_socios TYPE zbiblio_socios.

  IF zbiblio_socios-cod_socio IS NOT INITIAL.

    SELECT SINGLE * FROM zbiblio_socios
                    INTO l_st_socios
                    WHERE cod_socio = zbiblio_socios-cod_socio.
    IF sy-subrc = 0.
      g_wa_existe_socio = 'X'.
    ELSEIF sy-subrc <> 0.
      CLEAR g_wa_existe_socio.
    ENDIF.
  ENDIF.

ENDFORM.                    " F_EXISTE_SOCIO
*&---------------------------------------------------------------------*
*&      Form  F_MODIFICAR_9002
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_modificar.

* Los datos del input se actualizan a la base datos (mismo nombre)
  UPDATE zbiblio_socios.
  MESSAGE 'Usuario modificado' TYPE 'I'.

ENDFORM.                    " F_MODIFICAR
*&---------------------------------------------------------------------*
*&      Form  F_VER_SOCIO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_ver_socio .

  DATA l_st_socio TYPE zbiblio_socios.

  SELECT SINGLE * FROM zbiblio_socios
                  INTO l_st_socio
                  WHERE cod_socio = zbiblio_socios-cod_socio.

  zbiblio_socios = l_st_socio.

ENDFORM.                    " F_VER_SOCIO