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,20 @@
+FUNCTION categoria_conteo()
+
+    DEFINE
+        pcategoria ui.combobox,
+        kcategoria CHAR(1),
+        kdescripcion CHAR(50),
+        ddescripcion STRING
+
+    LET pcategoria = ui.combobox.forname("formonly.categoria")
+    CALL pcategoria.clear()
+    DECLARE pagar CURSOR FOR
+        SELECT categoria, dias
+            FROM intb00016
+            ORDER BY categoria
+    FOREACH pagar INTO kcategoria, kdescripcion
+        LET ddescripcion = kcategoria CLIPPED," (cada ",kdescripcion CLIPPED," dias)"
+        CALL pcategoria.additem(kcategoria, ddescripcion)
+    END FOREACH
+
+END FUNCTION