jpeguero
69b4500eed
- inprmt046: agrega columnas Maquina/Clasf.Bloque faltantes en la tabla, ensancha combos para legibilidad, corrige formato de fecha (CONVERT 103 requiere DBDATE=DMY4/ configurado). Saca la funcion maquinaria() de un archivo local a una compartida (maquinaria.4gl) para evitar duplicado. - inprmt036 (Requisicion de Materiales): agrega formulario, campo Impresion (MATRICIAL/PDF), corrige nombre_d y agrega columna Existencia faltante en la tabla. - Agrega funcion compartida configureOutput (stub, Report Writer 2.0 no disponible en FGL 6.00.01). - Requiere variables de entorno DBDATE=DMY4/ y FGLSPOOL (carpeta PROYECTO/spool) al abrir Genero Studio para reportes/fechas.
16 lines
771 B
Plaintext
16 lines
771 B
Plaintext
FUNCTION busca_departamento()
|
|
DEFINE pdepartamento ui.combobox,
|
|
kdepartamento SMALLINT,kdescripcion CHAR(30)
|
|
|
|
LET pdepartamento = ui.combobox.forname("formonly.departamento")
|
|
CALL pdepartamento.clear()
|
|
DECLARE pagar CURSOR FOR
|
|
SELECT departamento, nom_dpto FROM adtb00001
|
|
WHERE status_t is null
|
|
ORDER BY nom_dpto
|
|
FOREACH pagar INTO kdepartamento,kdescripcion
|
|
CALL pdepartamento.additem(kdepartamento,kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|