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,7 +0,0 @@
-FUNCTION comprimeImagen(filedestino,tamano)
-
-    DEFINE filedestino, comando,tamano STRING
-      
-    LET comando = 'magick convert ',filedestino,tamano,filedestino
-    RUN comando
-END FUNCTION  
@@ -1,17 +0,0 @@
-FUNCTION ircmovimientos()
- 
- DEFINE  ketiquetas SMALLINT, detiquetas STRING,
-         cbmovimiento ui.ComboBox
-         
-    LET cbmovimiento = ui.combobox.forname("formonly.cod_mov")
-    DECLARE bmovimiento CURSOR FOR
-      SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM irtb00005 a
-      ORDER BY a.descrip_mov
-      CALL cbmovimiento.clear()
- 
-    FOREACH bmovimiento INTO ketiquetas,detiquetas
-      CALL cbmovimiento.additem(ketiquetas,detiquetas)
-    END FOREACH
-    
- END FUNCTION
-