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,15 @@
+
+FUNCTION cequipos()
+ DEFINE  kequipo SMALLINT, dequipo CHAR(30),
+         pequipo ui.ComboBox
+ LET pequipo = ui.combobox.forname("formonly.equipos")
+ 
+ DECLARE bequipos CURSOR FOR
+   SELECT a.depto,a.nombre FROM seg0008 a
+ 
+ CALL pequipo.clear()
+ 
+ FOREACH bequipos INTO kequipo,dequipo
+  CALL pequipo.additem(kequipo,dequipo)
+ END FOREACH 
+END FUNCTION