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,17 @@
+FUNCTION perfiles()
+    DEFINE
+        pperfil SMALLINT,
+        pdescripcion CHAR(30),
+        kperfil ui.ComboBox
+
+    LET kperfil = ui.ComboBox.forName("formonly.cod_perfil")
+    CALL kperfil.clear()
+
+    DECLARE busca_perfil CURSOR FOR 
+    SELECT a.cod_perfil, a.titulo FROM seg0011 a
+
+    FOREACH busca_perfil INTO pperfil, pdescripcion
+        CALL kperfil.additem(pperfil, pdescripcion)
+    END FOREACH
+
+END FUNCTION