✒️ABAP / El evento AT SELECTION-SCREEN y los tipos de mensajes Por Carlos Piles Rosell

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. *&---------------------------------------------------------------------*
6. 
   
7. 
   
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. ****************************************************