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 tipoorden()
+ DEFINE ptipo ui.combobox,
+        ktipo CHAR(2),kdescripcion CHAR(30)
+ LET  ptipo = ui.combobox.forname("formonly.tipo")
+ CALL ptipo.clear()       
+ DECLARE buscaTipo CURSOR FOR
+   SELECT a.tipo,a.descripcion INTO ktipo,kdescripcion FROM cotb00010 a
+   ORDER BY a.descripcion
+   
+   FOREACH buscatipo 
+    CALL ptipo.additem(ktipo,kdescripcion)
+   END FOREACH
+   CALL ptipo.additem(10,'ACTIVO')
+   CALL ptipo.additem(11,'SERVICIO')
+END FUNCTION