jpegueroandClaude Sonnet 5
b6085d4140
Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
19 lines
490 B
Plaintext
19 lines
490 B
Plaintext
|
|
FUNCTION cseccion(almacen)
|
|
DEFINE kcod_seccion SMALLINT,kdescripcion CHAR(30),
|
|
pseccion ui.ComboBox,
|
|
almacen SMALLINT
|
|
|
|
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
|
|
|
|
END FUNCTION
|