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,19 @@
+FUNCTION maquinas()
+ DEFINE kmaquina VARCHAR(14),
+        kdescripcion CHAR(60),
+        maquinas ui.ComboBox
+ 
+ LET maquinas = ui.combobox.forname("formonly.codigo")
+ 
+ DECLARE busca_maquinas CURSOR FOR
+  SELECT a.codigo,RTRIM(a.nombre)+'('+RTRIM(a.codigo_externo)+')'
+  FROM irtb00009 a
+  WHERE a.status_t IS null 
+  ORDER BY a.nombre
+  
+  CALL maquinas.clear()
+  FOREACH busca_maquinas INTO kmaquina,kdescripcion
+   CALL maquinas.additem(kmaquina,kdescripcion)
+  END FOREACH 
+  
+END FUNCTION