JSOTO Adicion grupos ADMINISTRACION PERSONAL Y NOMINA

2026-10-07 12:11:28 -04:00
parent ccf12198ba
commit a5ccd3083f
14 changed files with 1888 additions and 111 deletions
@@ -514,19 +514,28 @@ FUNCTION req_insert()
 DEFINE ultimo,numeroOrden INT
     
    #  WHENEVER ERROR CONTINUE
-       SELECT a.num_req INTO ultimo FROM cctb00019 a
- 
+    # 05/10/2026 - consecutivo dentro de la transaccion con bloqueo
+    # (evita num_req duplicado en cctb00025, ver requisiciondespacho.4gl)
+      BEGIN WORK
+       PREPARE p_numreq FROM "SELECT ISNULL(MAX(num_req),0) FROM cctb00019 WITH (UPDLOCK, HOLDLOCK)"
+       EXECUTE p_numreq INTO ultimo
+       PREPARE p_maxreq FROM "SELECT ISNULL(MAX(num_req),0) FROM cctb00025 WITH (UPDLOCK, HOLDLOCK)"
+       EXECUTE p_maxreq INTO numeroOrden
+
       IF ultimo IS NULL THEN
          LET ultimo = 0
       END IF
+       IF numeroOrden > ultimo THEN
+          LET ultimo = numeroOrden
+       END IF
+       LET numeroOrden = NULL
       LET ultimo = ultimo + 1
       LET requisicion.num_req = ultimo
-    
-      UPDATE cctb00019 SET num_req = requisicion.num_req,us_crea=usuarios,fech_crea=getdate()      
-                        
+
+      UPDATE cctb00019 SET num_req = requisicion.num_req,us_crea=usuarios,fech_crea=getdate()
+
    # GUARDA MASTER TABLE
   #   PREPARE s FROM "SELECT @@IDENTITY"
-      BEGIN WORK
       # EXECUTE s INTO requisicion.num_req
        
       DISPLAY BY NAME requisicion.num_req