lsoto

2026-10-19 10:11:40 -04:00
parent e0722b2e2a
commit a67f97271a
79 changed files with 19279 additions and 0 deletions
@@ -0,0 +1,18 @@
+
+FUNCTION ctramo(almacen,seccion)
+ DEFINE kcod_tramo,almacen,seccion SMALLINT,kdescripcion CHAR(30),
+        ptramo ui.ComboBox
+ 
+ LET ptramo = ui.combobox.forname("formonly.tramo")
+ 
+ DECLARE busca_tramo CURSOR FOR
+  SELECT a.cod_tramo,a.descripcion FROM Intb00043 a
+  WHERE a.cod_bodega =  almacen and a.cod_Seccion = seccion
+  
+  CALL ptramo.clear()
+  FOREACH busca_tramo INTO kcod_tramo,kdescripcion
+   DISPLAY "tramos ",kcod_tramo,kdescripcion," ",almacen," ",seccion
+   CALL ptramo.additem(kcod_tramo,kdescripcion)
+  END FOREACH 
+  CALL ptramo.additem(99,"TODOS")
+END FUNCTION