JSOTO Adicione los programas y funciones en FUNCIONES COMUNES

2026-08-20 15:43:12 -04:00
parent dfda643e4c
commit 99f66f3277
6 changed files with 56 additions and 0 deletions
@@ -1,19 +0,0 @@
-FUNCTION cinstalador()
- DEFINE instalador ui.ComboBox,
-        kinstalador SMALLINT,
-        ddescripcion CHAR(60)
-
- LET  instalador = ui.ComboBox.forName("formonly.num_emp_inst")  
-
- CALL instalador.clear()
-
- DECLARE busca CURSOR FOR
-   SELECT a.num_emp,RTRIM(a.nom1_emp)||' '||ISNULL(RTRIM(a.apell1_emp),' ') FROM adtb00003 a
-   WHERE a.instalador ='SI' AND a.status_t IS NULL
-   ORDER BY a.nom1_emp
-   FOREACH busca INTO kinstalador,ddescripcion
-     CALL instalador.addItem(kinstalador,ddescripcion)
-   END FOREACH
-
- 
-END FUNCTION