lsoto prueba de programas

2026-10-20 21:53:39 -04:00
parent 16ef05828e 9bc9170788
commit 93a4eb40f5
65 changed files with 2286 additions and 2295 deletions
@@ -2758,11 +2758,11 @@ REPORT cctb01b(

 END REPORT
 FUNCTION verifica_orden()
-    LET tieneorden = TRUE
-    SELECT a.num_oc
+    DEFINE cuantas INT
+    # COUNT(*) en vez de SELECT num_oc: con ordenes duplicadas daba -284
+    LET cuantas = 0
+    SELECT COUNT(*) INTO cuantas
        FROM prtb00012 a
        WHERE a.cotizacion_no = recibo_nc.num_orden AND a.status_T IS NULL
-    IF STATUS = NOTFOUND THEN
-        LET tieneorden = FALSE
-    END IF
+    LET tieneorden = (cuantas > 0)
 END FUNCTION