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>
21 lines
545 B
Plaintext
21 lines
545 B
Plaintext
FUNCTION estadosprocesos(idopcion)
|
|
DEFINE estado ui.ComboBox,
|
|
id,idopcion SMALLINT,
|
|
ddescripcion CHAR(50)
|
|
|
|
IF idopcion = 1 THEN
|
|
LET estado = ui.ComboBox.forName("formonly.idestado")
|
|
ELSE
|
|
LET estado = ui.ComboBox.forName("formonly.idestado1")
|
|
END IF
|
|
CALL estado.clear()
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT a.idestado,a.descripcion FROM iptb00061 a
|
|
ORDER BY a.descripcion
|
|
FOREACH busca INTO id,ddescripcion
|
|
CALL estado.addItem(id,ddescripcion)
|
|
END FOREACH
|
|
|
|
|
|
END FUNCTION |