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,17 @@
+DEFINE pbanco ui.ComboBox
+FUNCTION bancos()
+ 
+ DEFINE  kbanco SMALLINT, dbanco CHAR(50)
+ 
+ LET pbanco = ui.combobox.forname("formonly.cuenta_no")
+ 
+ DECLARE bbancos CURSOR FOR
+   SELECT a.cuenta_no,a.nombre_bco FROM cgtb00012 a
+   WHERE a.status_t IS NULL
+   CALL pbanco.clear()
+ 
+ FOREACH bbancos INTO kbanco,dbanco
+  CALL pbanco.additem(kbanco,dbanco)
+ END FOREACH
+ 
+END FUNCTION