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,18 @@
+FUNCTION grupos()
+ DEFINE clase ui.ComboBox,
+        kcodn SMALLINT,
+        ddescripcion CHAR(60)
+
+ LET  clase = ui.ComboBox.forName("formonly.codgrupo")  
+
+ CALL clase.clear()
+
+ DECLARE busca CURSOR FOR
+   SELECT a.cod_grupo,'('||cast(a.cod_grupo AS varchar(10))||')'||a.descripcion FROM iptb00029 a
+   ORDER BY a.descripcion
+   FOREACH busca INTO kcodn,ddescripcion
+     CALL clase.addItem(kcodn,ddescripcion)
+   END FOREACH
+
+ 
+END FUNCTION