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 busca_departamento2()                                                   
+DEFINE pdepartamento ui.combobox,                                              
+        kdepartamento SMALLINT,kdescripcion CHAR(30) 
+   
+       LET  pdepartamento = ui.combobox.forname("formonly.depto")  
+       CALL pdepartamento.clear()                                         
+       DECLARE pagar CURSOR FOR                                           
+         SELECT departamento, nom_dpto FROM adtb00001                     
+         WHERE status_t is null 
+         ORDER BY nom_dpto
+       FOREACH pagar INTO kdepartamento,kdescripcion
+         CALL pdepartamento.additem(kdepartamento,kdescripcion)                        
+       END FOREACH 
+    
+END FUNCTION