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
611 B
Plaintext
21 lines
611 B
Plaintext
FUNCTION categoria_conteo()
|
|
|
|
DEFINE
|
|
pcategoria ui.combobox,
|
|
kcategoria CHAR(1),
|
|
kdescripcion CHAR(50),
|
|
ddescripcion STRING
|
|
|
|
LET pcategoria = ui.combobox.forname("formonly.categoria")
|
|
CALL pcategoria.clear()
|
|
DECLARE pagar CURSOR FOR
|
|
SELECT categoria, dias
|
|
FROM intb00016
|
|
ORDER BY categoria
|
|
FOREACH pagar INTO kcategoria, kdescripcion
|
|
LET ddescripcion = kcategoria CLIPPED," (cada ",kdescripcion CLIPPED," dias)"
|
|
CALL pcategoria.additem(kcategoria, ddescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|