lsoto

2026-10-19 10:11:40 -04:00
parent e0722b2e2a
commit a67f97271a
79 changed files with 19279 additions and 0 deletions
@@ -0,0 +1,42 @@
+FUNCTION maquinas(xdepartamento)
+    DEFINE
+        kmaquina VARCHAR(14),
+        kdescripcion CHAR(75),
+        maquinas ui.ComboBox,
+        xdepartamento INT
+
+    LET maquinas = ui.combobox.forname("formonly.codigo")
+
+    IF xdepartamento = -1 THEN
+        DECLARE busca_maquinas1 CURSOR FOR
+            SELECT a.codigo,
+                RTRIM(a.nombre) + '(' + ISNULL(RTRIM(a.codigo_externo), ' ')
+                    + ')'
+                FROM irtb00009 a
+                WHERE a.status_t IS NULL AND a.codigo_externo IS NOT NULL 
+                ORDER BY a.nombre
+
+            CALL maquinas.clear()
+
+            FOREACH busca_maquinas1 INTO kmaquina, kdescripcion
+                CALL maquinas.additem(kmaquina, kdescripcion)
+            END FOREACH
+    ELSE
+
+        DECLARE busca_maquinas2 CURSOR FOR
+            SELECT a.codigo,
+                RTRIM(a.nombre) + '(' + ISNULL(RTRIM(a.codigo_externo), ' ')
+                    + ')'
+                FROM irtb00009 a
+                WHERE a.status_t IS NULL AND a.departamento = xdepartamento
+                AND a.codigo_externo IS NOT NULL
+                ORDER BY a.nombre
+
+            CALL maquinas.clear()
+            FOREACH busca_maquinas2 INTO kmaquina, kdescripcion
+                CALL maquinas.additem(kmaquina, kdescripcion)
+            END FOREACH
+
+    END IF
+
+END FUNCTION