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.
22 lines
503 B
Plaintext
22 lines
503 B
Plaintext
FUNCTION maquinaria()
|
|
|
|
DEFINE
|
|
kmaquina VARCHAR(14),
|
|
kdescripcion CHAR(75),
|
|
maquinas ui.ComboBox
|
|
|
|
LET maquinas = ui.combobox.forname("formonly.codigo")
|
|
|
|
DECLARE busca_maquinas1 CURSOR FOR
|
|
SELECT a.cod_maquina, a.descrip_maquina
|
|
FROM intb00059 a
|
|
ORDER BY a.cod_maquina
|
|
|
|
CALL maquinas.clear()
|
|
|
|
FOREACH busca_maquinas1 INTO kmaquina, kdescripcion
|
|
CALL maquinas.additem(kmaquina, kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|