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 @@
+FUNCTION cseccion(almacen)
+ DEFINE kcod_seccion,almacen SMALLINT,
+        kdescripcion CHAR(30),
+        pseccion ui.ComboBox
+ 
+ LET pseccion = ui.combobox.forname("formonly.seccion")
+ 
+ DECLARE busca_sec CURSOR FOR
+  SELECT a.cod_seccion,a.descripcion FROM Intb00010 a
+  WHERE a.cod_bodega = almacen
+  
+  CALL pseccion.clear()
+  FOREACH busca_sec INTO kcod_seccion,kdescripcion
+   CALL pseccion.additem(kcod_seccion,kdescripcion)
+  END FOREACH 
+  CALL pseccion.additem(99,"TODAS")
+END FUNCTION