ipprmt021: consulta el nombre del usuario una sola vez por usuario (antes una consulta por fila)

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
2026-10-26 15:56:18 -04:00
parent f6f1c9b8c7
commit f8e97fd09e
1 changed files with 7 additions and 2 deletions
@@ -20,6 +20,7 @@ GLOBALS
           us_crea            VARCHAR(50)
         END RECORD
 DEFINE nombreUsuario,email,etiqueta STRING
+DEFINE cacheUsuarios DICTIONARY OF STRING
 MAIN
 DEFER INTERRUPT
   CALL ARG_VAL(1) RETURNING usuarios
@@ -59,8 +60,12 @@ FUNCTION ipprmt021()

                  LET idx = 1
                  FOREACH buscardata INTO arr_busqueda[idx].*
-                     CALL usuarioSistema(arr_busqueda[idx].us_crea) RETURNING nombreUsuario,email
-                     LET arr_busqueda[idx].usuario = nombreUsuario
+                     # Nombre del usuario: se consulta una sola vez por usuario
+                     IF NOT cacheUsuarios.contains(arr_busqueda[idx].us_crea) THEN
+                        CALL usuarioSistema(arr_busqueda[idx].us_crea) RETURNING nombreUsuario,email
+                        LET cacheUsuarios[arr_busqueda[idx].us_crea] = nombreUsuario
+                     END IF
+                     LET arr_busqueda[idx].usuario = cacheUsuarios[arr_busqueda[idx].us_crea]
                    LET idx = idx + 1
                  END FOREACH     
                  IF idx = 1 THEN