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 cuentas()
+ DEFINE kcuenta VARCHAR(14),
+        kdescripcion CHAR(60),
+        cuentas ui.ComboBox
+ 
+ LET cuentas = ui.combobox.forname("formonly.xcuenta")
+ 
+ DECLARE busca_cuenta CURSOR FOR
+  SELECT RTRIM(a.cuenta_no),RTRIM(a.descripcion)+'('+RTRIM(a.cuenta_no)+')'
+  FROM cgtb00001 a
+  WHERE a.nivel > 2 AND a.cuenta_no LIKE '7%' AND a.status_t IS NULL 
+  ORDER BY a.descripcion
+  
+  CALL cuentas.clear()
+  FOREACH busca_cuenta INTO kcuenta,kdescripcion
+   CALL cuentas.additem(kcuenta,kdescripcion)
+  END FOREACH 
+  
+END FUNCTION