🚀PROMO #PLANCARRERA2024 - 🔥Bonificaciones, Precios Congelados y Cuotas

 X 

✒️ABAP El evento AT SELECTION-SCREEN y los tipos de mensajes

ABAP El evento AT SELECTION-SCREEN y los tipos de mensajes

ABAP El evento AT SELECTION-SCREEN y los tipos de mensajes

Como veo que existen una amplia cantidad de apuntes esquemáticos de la teoría de las lecciones, y algunos muy buenos, a mí me gustaría colaborar con lo que mejor se me da: El código fuente de Programas testados, que amplíen siempre aquellos puntos mostrados en el tema.

En esta ocasión voy a presentar una versión mejorada del código de una pantalla de selección donde se realizan unas validaciones de datos. Espero que os sea útil.

CODIGO FUENTE PARA UNA PANTALLA DE SELECCION

Version 2

  1. *&---------------------------------------------------------------------*
  2. *& Report Z*****_PANT_SELECCION_V2
  3. *&---------------------------------------------------------------------*
  4. *& Sustituir los ***** por el legajo de cada uno
  5. *&---------------------------------------------------------------------*


  8. REPORT z*****_pant_seleccion_v2.
  9. ****************************************************
  10. * <----- Copiar desde aqui
  11. ****************************************************
  12. CONSTANTS:
  13. ct_cab_esp(40) TYPE c VALUE 'Estado de cuentas entre',
  14. ct_cab_eng(40) TYPE c VALUE 'Account balance between',
  15. ct_y_esp(5) TYPE c VALUE 'y',
  16. ct_y_eng(5) TYPE c VALUE 'and',
  17. ct_debe_esp(10) TYPE c VALUE 'debe a',
  18. ct_debe_eng(10) TYPE c VALUE 'owes to',
  19. ct_cant_esp(40) TYPE c VALUE 'la cantidad de',
  20. ct_cant_eng(40) TYPE c VALUE 'the amount of',
  21. ct_dolar TYPE c VALUE '$',
  22. ct_euro TYPE c VALUE '€',
  23. ct_rate_esp(40) TYPE c VALUE 'con la cotización',
  24. ct_rate_eng(40) TYPE c VALUE 'with exchange rate',
  25. ct_noeu_esp(100) TYPE c VALUE 'Si selecciona moneda Euro, debe rellenar el campo "Deuda en Euros".',
  26. ct_noeu_eng(100) TYPE c VALUE 'If you select Euro currency, you must fill "Deuda en Euros" field.',
  27. ct_nous_esp(100) TYPE c VALUE 'Si selecciona moneda Dolar, debe rellenar el campo "Deuda en Dolares".',
  28. ct_nous_eng(100) TYPE c VALUE 'If you select Dollar currency, you must fill "Deuda en Dolares" field.',
  29. ct_valid_esp(100) TYPE c VALUE 'Van a procesarse los datos y presentar el reporte de salida.',
  30. ct_valid_eng(100) TYPE c VALUE 'Data will be processed and report will be shown.',
  31. ct_date_esp(40) TYPE c VALUE 'a fecha',
  32. ct_date_eng(40) TYPE c VALUE 'on date'.
  34. DATA:
  35. lc_cambioeu_us TYPE p DECIMALS 5,
  36. lc_dolar_value TYPE p DECIMALS 2,
  37. lc_euro_value TYPE p DECIMALS 2,
  38. lc_formatofecha(10) TYPE c,
  39. lt_cambioeu_us(11) TYPE c,
  40. lt_dolar_value(11) TYPE c,
  41. lt_euro_value(11) TYPE c,
  42. lt_eur_usd_sort(22) TYPE c,
  43. lt_cab(120) TYPE c.
  45. *******************************************************
  46. INITIALIZATION.
  47. *******************************************************
  49. CLEAR:
  50. lc_cambioeu_us,
  51. lc_dolar_value,
  52. lc_euro_value ,
  53. lc_formatofecha,
  54. lt_cambioeu_us,
  55. lt_dolar_value,
  56. lt_euro_value,
  57. lt_eur_usd_sort,
  58. lt_cab.
  60. *******************************************************
  61. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
  62. *******************************************************
  63. * Utilizamos begin of line - comment - end of line como espaciador
  64. SELECTION-SCREEN BEGIN OF LINE.
  65. SELECTION-SCREEN COMMENT 1(66) text-006.
  66. SELECTION-SCREEN END OF LINE.
  68. * Subbloque de fecha y cotizacion
  69. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
  71. PARAMETERS: p_fecha LIKE sy-datum OBLIGATORY DEFAULT sy-datum,
  72. p_rate TYPE p DECIMALS 5 DEFAULT lc_cambioeu_us OBLIGATORY .
  74. SELECTION-SCREEN END OF BLOCK b2.
  76. * Subbloque de Deudor y Acreedor
  77. SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
  79. PARAMETERS: p_deud(30) TYPE c OBLIGATORY,
  80. p_acree(30) TYPE c OBLIGATORY.
  82. SELECTION-SCREEN END OF BLOCK b3.
  84. * Subbloque de Monedas e Importes
  85. SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
  87. PARAMETERS: p_eu RADIOBUTTON GROUP grp2,
  88. p_us RADIOBUTTON GROUP grp2.
  90. PARAMETERS: p_euros TYPE p DECIMALS 2 ,
  91. p_dolar TYPE p DECIMALS 2.
  93. SELECTION-SCREEN END OF BLOCK b4.
  95. * Subbloque de Lenguajes
  96. SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-005.
  98. PARAMETERS: p_esp AS CHECKBOX DEFAULT 'x',
  99. p_ing AS CHECKBOX.
  101. SELECTION-SCREEN END OF BLOCK b5.
  103. *******************************************************
  104. SELECTION-SCREEN END OF BLOCK b1.
  105. *******************************************************
  107. *******************************************************
  108. AT SELECTION-SCREEN. " Validamos Datos
  109. *******************************************************
  110. IF not p_us IS INITIAL. " Si se ha elegido moneda Dolar
  111. IF p_dolar IS INITIAL. " Testar Deuda en Dolares
  112. MESSAGE ct_nous_esp TYPE 'E'.
  113. ENDIF.
  114. ENDIF.
  116. IF not p_eu IS INITIAL. " Si se ha elegido moneda Euro
  117. IF p_euros IS INITIAL. " Testar Deuda en Euros
  118. MESSAGE ct_noeu_esp TYPE 'E'.
  119. ENDIF.
  120. ENDIF.
  122. MESSAGE 'Van a procesarse los datos y presentar el reporte de salida' TYPE 'I'.
  124. *******************************************************
  125. START-OF-SELECTION.
  126. *******************************************************
  128. * Subrutina que formatea la fecha
  129. PERFORM formatear_fecha USING p_fecha '/' 1
  130. CHANGING lc_formatofecha.
  132. IF NOT p_eu IS INITIAL.
  133. * Si la moneda usada es el euro
  134. * convertir Euros -> Dolares
  135. lc_euro_value = p_euros.
  136. lc_dolar_value = lc_euro_value * p_rate.
  137. WRITE lc_euro_value TO lt_euro_value. " Pasa Numero a Caracter
  138. WRITE lc_dolar_value TO lt_dolar_value. " Pasa Numero a Caracter
  139. ELSE.
  140. * Si no, la moneda usada es el Dolar
  141. * convertir Dolares -> Euros
  142. lc_dolar_value = p_dolar.
  143. lc_euro_value = lc_dolar_value / p_rate.
  144. WRITE lc_euro_value TO lt_euro_value. " Pasa Numero a Caracter
  145. WRITE lc_dolar_value TO lt_dolar_value. " Pasa Numero a Caracter
  146. ENDIF.
  148. CONDENSE lt_dolar_value. " Quita los espacios sobrantes
  149. CONDENSE lt_euro_value. " Quita los espacios sobrantes
  151. CLEAR lt_eur_usd_sort.
  152. IF NOT p_eu IS INITIAL.
  153. * Si la moneda usada es Euro
  154. * poner primero valor € y luego valor $
  155. CONCATENATE lt_euro_value ct_euro
  156. '/' lt_dolar_value ct_dolar INTO lt_eur_usd_sort
  157. SEPARATED BY ' '.
  158. ELSE.
  159. * Si no, la moneda usada es Dolar
  160. * poner primero valor $ y luego valor €
  161. CONCATENATE lt_dolar_value ct_dolar
  162. '/' lt_euro_value ct_euro INTO lt_eur_usd_sort
  163. SEPARATED BY ' '.
  164. ENDIF.
  166. IF NOT p_esp IS INITIAL.
  167. * Si esta marcado el idioma Español
  168. * Componer cabecera en Español
  169. CLEAR lt_cab.
  170. CONCATENATE ct_cab_esp p_deud ct_y_esp p_acree
  171. ct_date_esp lc_formatofecha INTO lt_cab
  172. SEPARATED BY ' '.
  173. WRITE:/ lt_cab.
  174. ENDIF.
  175. * Si esta en dos idiomas separar la cabecera con una linea
  176. IF NOT p_ing IS INITIAL AND NOT p_esp IS INITIAL.
  177. ULINE.
  178. ENDIF.
  180. IF NOT p_ing IS INITIAL.
  181. * Si esta marcado el idioma Inglés
  182. * Componer Cabecera en Inglés
  183. CLEAR lt_cab.
  184. CONCATENATE ct_cab_eng p_deud ct_y_eng p_acree
  185. ct_date_eng lc_formatofecha INTO lt_cab
  186. SEPARATED BY ' '.
  187. WRITE:/ lt_cab.
  189. ENDIF.
  190. * Separador con linea en medio
  191. SKIP.
  192. ULINE.
  193. SKIP.
  195. IF NOT p_esp IS INITIAL.
  196. * Si esta marcado el idioma Español
  197. * Componer texto en IEspañol
  198. CLEAR lt_cab.
  199. CONCATENATE p_deud ct_debe_esp p_acree
  200. ct_cant_esp lt_eur_usd_sort INTO lt_cab
  201. SEPARATED BY ' '.
  202. WRITE:/ lt_cab.
  203. ENDIF.
  205. IF NOT p_ing IS INITIAL.
  206. * Si esta marcado el idioma Inglés
  207. * Componer texto en Inglés
  208. CLEAR lt_cab.
  209. CONCATENATE p_deud ct_debe_eng p_acree
  210. ct_cant_eng lt_eur_usd_sort INTO lt_cab
  211. SEPARATED BY ' '.
  212. WRITE:/ lt_cab.
  213. ENDIF.
  215. *&---------------------------------------------------------------------*
  216. *& Form FORMATEAR_FECHA
  217. *&---------------------------------------------------------------------*
  218. * text
  219. *----------------------------------------------------------------------*
  220. * -->D_TEXT text fecha nativa (AAAAMMDD)
  221. * -->C_SEP text Separados a usar (.|/|-)
  222. * -->I_MODO int 0=AAAAMMDD 1=DDMMAAAA 2=MMDDAAAA
  223. * <--R_FORMATOFECHA text Fecha formateada con el separador C_SEP
  224. *----------------------------------------------------------------------*
  225. FORM formatear_fecha USING value(d_texto)
  226. value(c_sep)
  227. value(i_modo)
  228. CHANGING r_formatofecha.
  230. DATA: lc_year(4) TYPE c,
  231. lc_month(2) TYPE c,
  232. lc_day(2) TYPE c,
  233. lc_return(10) TYPE c.
  235. * Separamos Año, Mes y Dia
  236. WRITE d_texto(4) TO lc_year.
  237. WRITE d_texto+4(2) TO lc_month.
  238. WRITE d_texto+6(2) TO lc_day.
  240. CASE i_modo.
  242. WHEN 1. "DD MM AAAA con el separador
  243. CONCATENATE lc_day lc_month lc_year
  244. INTO lc_return
  245. SEPARATED BY c_sep.
  247. WHEN 2. "MM DD AAAA con el separador
  248. CONCATENATE lc_month lc_day lc_year
  249. INTO lc_return
  250. SEPARATED BY c_sep.
  252. WHEN OTHERS. "AAAA MM DD con el separador
  253. CONCATENATE lc_year lc_month lc_day
  254. INTO lc_return
  255. SEPARATED BY c_sep.
  257. ENDCASE.
  258. r_formatofecha = lc_return. "Colocamos el resultado en CHANGING
  260. ENDFORM. " FORMATEAR_FECHA
  261. ****************************************************
  262. * <----- Copiar hasta aqui
  263. ****************************************************

 

 

 

Sobre el autor

Publicación académica de Carlos Piles Rosell, en su ámbito de estudios para la Carrera Consultor ABAP.

SAP Senior

Carlos Piles Rosell

Profesión: Analista de Sistemas y Programador - España - Legajo: GZ57B

✒️Autor de: 24 Publicaciones Académicas

🎓Egresado de los módulos:

Disponibilidad Laboral: PartTime

Certificación Académica de Carlos Piles

✒️+Comunidad Académica CVOSOFT

Continúe aprendiendo sobre el tema "El evento AT SELECTION-SCREEN y los tipos de mensajes" de la mano de nuestros alumnos.

SAP Senior

El evento AT SELECTION-SCREEN y los tipos de mensajes El evento AT SELECTION-SCREEN se utiliza para analizar los mensajes y errores que se generan a partir de lo introducido por el usuario en la pantalla de selección del programa. Existen diversos tipos de mensajes, que van desde los que interactúan con el usuario, la cancelación del programa o transacción, el bloqueo de la pantalla o la simple aparición de un mensaje en la barra de estado del modo de SAP.

Acceder a esta publicación

Creado y Compartido por: Pedro Alejandro Arroyo Gutierrez

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Senior

El evento AT SELECTION-SCREEN: Es un evento que nos permite controlar y validar los parámetros introducidos, se basa en los diferentes tipos de mensajes previamente definidos en las clases de mensajes, estos mensajes pueden ser de diferentes tipos tales como: E (Error) I (Informacion) W (Warning) S (Status) A (Terminación) X (Dump)

Acceder a esta publicación

Creado y Compartido por: Andrés Mauricio Moreno Garzón

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Senior

El evento AT SELECTION-SCREEN y los tipos de mensajes El evento AT SELECTION-SCREEN se utiliza para el análisis de los mensajes y errores que se generan a partir de lo introducido por el usuario en la pantalla de selección del programa. A la hora de validar los campos de la pantalla de selección en el evento AT-SELECTION-SCREEN, debemos saber las expresiones lógicas y operadores para poder validar correctamente: La cláusula de control IF devuelve TRUE o FALSE. Las expresiones lógicas pueden ser AND, OR y NOT Y los tipos de operadores en ABAP son: - Para todos los datos: EQ ó = NE ó <> ó >< LT ó < LE ó <= ...

Acceder a esta publicación

Creado y Compartido por: Miguel Mauricio Sierra Cardona

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Senior

El evento AT SELECTION-SCREEN y tipos de mensaje AT SELECTION-SCREEN: Evento de un reporte ABAP que se ejecuta después de finalizado el procesamiento de la pantalla de selección y que permite la validación de los parámetros introducidos. Tipos de Errores: E: Produce error corta el procesamiento del programa S: Estatus icono verde y se sigue ejecutando el programa W: Warning Mensaje con el icono amarillo y no se permite ejecutar con el procesamiento I : Información Mensaje ventano de dialogo para continuar el procesamiento debemos oprimir el botón que contiene la palomita.

Acceder a esta publicación

Creado y Compartido por: Rafael Razo

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Expert


El analisis de los mensajes y errores se utilizan dentro del evento AT-SELECTION-SCREEN, los tipos de mensajes son: Los tipos de mensajes son: s - Status - El programa continua sin Interrupción (Barra de status) i - Información- El programa continua despues de la interrupcion (Ventana de dialogo) W - Warning- Depende el contexto del mensaje ( Barra de estatus) E - Error - Depende del contexto del mensaje y causa cancelación ( Barra de estatus) A- terminación - El programa termina ( Ventana de dialogo) X-DUMP - Error en tiempo de ejecución ( DUMP) Si se ejecuta la validación del mensaje en el evento START-OF-SELECTION , este genera un dump interrumpiendo la interacción del usuario con el programa....

Acceder a esta publicación

Creado y Compartido por: Maria Guadalupe Gonzalez Sanchez

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Master

Evento AT SELECTION-SCREEN para el análisis de los mensajes y errores que se generan a partir de lo introducido por el usuario en la pantalla de selección del programa. Si da error detiene la ejecución del programa. IMPORTANTE. Si el error mensaje de error se ejecuta dentro del evento START-OF.SELECTION la ejecución produce lo que en ABAP se conoce como DUMP, se interrumpe el procesamiento actual del programa, se visualiza en la barra inferior de la pantalla el texto del mensaje con el simbolo rojo caracterisco e impide la interaccion del usuario con el programa, debiendo ejecutar el usuario el programa nuevamente. Clausula DISPLAY LIKE, se agrega al final de los mensajes, ejecutamos un mensaje de status con la apariencia...

Acceder a esta publicación

Creado y Compartido por: Jose Ignacio Rodini

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Senior

- Evento AT SELECTION-SCREEN y los tipos de mensajes /h - en la línea de comando para poder debuggear paso a paso el programa. El mensaje de tipo 'e' se corta el procesamiento del programa. El mensaje de tipo 's' permite continuar con el procesamiento del programa. El mensaje de tipo 'w' no permite continuar con el procesamiento El mensaje de tipo 'i' nos muestra una pantalla de dialogo la cual con solo presionar el botón 'Continuar' nos permite continuar con el procesamiento. Si los mensajes se ejecutan dentro de START-OF-SELECTION la ejecución produce un dump, se interrumpe el procesamiento, se visualiza el mensaje con el símbolo rojo y el usuario ya no puede interactuar con el programa teniendo que ejecutarlo de...

Acceder a esta publicación

Creado y Compartido por: Sandra Erika Bernabe Abreu

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Expert


/h desde el cuadro de comandos para ejecutar debug de una aplicacion Siempre colocar los mensajes de error que validan lo introducido en la pantalla de seleccion dentro del evento AT SELECTION-SCREEN Instruccion CA : Contain Any, ejemplo buscar numeros IF variable ca '0123456789'

Acceder a esta publicación

Creado y Compartido por: Yeffer Jaime Sierra Saenz

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP SemiSenior

EVENTO AT SELECTION-SCREEN /h (para debuggear paso a paso se teclea /h en la pantalla de búsqueda) El primer evento que se ejecuta es el AT-SELECTION-SCREEN. Cuando se encuentra un mensaje con el código "e" se finaliza el programa. Cuando se crean mensajes es necesario activar de nuevo el programa. Cuando activamos un programa lo estamos compilando y dejandolo listo para poder ejecutarlo. Un programa que no esta activo no puede ejecutarse, o mejor dicho si puede ejecutarse pero no va a ejecutar la versión actual del programa sino que se ejecutará la última versión activa. Activar un programa es una condición esencial. Cuando trabajamos con un programa activo y lo modificamos lo estamos...

Acceder a esta publicación

Creado y Compartido por: Gerardo De La Rosa Rivera

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Senior

El evento AT selection screen es muy importante al momento de controlar y definir ciertas restricciones.

Acceder a esta publicación

Creado y Compartido por: Faharid Manjarrez

 

 

👌Genial!, estos fueron los últimos artículos sobre más de 79.000 publicaciones académicas abiertas, libres y gratuitas compartidas con la comunidad, para acceder a ellas le dejamos el enlace a CVOPEN ACADEMY.

Buscador de Publicaciones:

 

 

No sea Juan... Solo podrá llegar alto si realiza su formación con los mejores!