Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,23 @@
+FUNCTION otcategorias(pcampo)
+ 
+ DEFINE  ketiquetas SMALLINT, pcampo,detiquetas CHAR(30),
+         cbcategoria ui.ComboBox
+    IF pcampo = 'CONSTRUCT' THEN
+    
+       LET cbcategoria = ui.combobox.forname("formonly.idcategoria")
+    ELSE
+       LET cbcategoria = ui.combobox.forname("formonly.id_categoria")
+
+    END IF
+      CALL cbcategoria.clear()
+  
+    DECLARE bcategoria CURSOR FOR
+      SELECT a.id_categoria,a.descripcion_esp FROM categorias a
+      ORDER BY a.descripcion_esp
+   
+    FOREACH bcategoria INTO ketiquetas,detiquetas
+      CALL cbcategoria.additem(ketiquetas,detiquetas)
+    END FOREACH
+    
+ END FUNCTION
+