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.
75 lines
3.0 KiB
Plaintext
75 lines
3.0 KiB
Plaintext
{
|
|
----------------------------------------------------------------------
|
|
FORMULARIO : INFMMT036
|
|
OBJETIVO : Captura Documento Movimiento: REQUISICION DE MATERIALES
|
|
de Inventario de Materia Prima (INPRMT036).
|
|
PROGRAMADOR : Ing. Juan Fco. Soto
|
|
FECHA REALIZACION : Agosto 10, 1992.
|
|
----------------------------------------------------------------------
|
|
}
|
|
SCHEMA smarmotech
|
|
|
|
TOOLBAR
|
|
ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento")
|
|
ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
|
|
SEPARATOR
|
|
ITEM salir (TEXT="Salir", IMAGE="quit")
|
|
END
|
|
LAYOUT (TEXT="REQUISICION MATERIALES")
|
|
GRID
|
|
{
|
|
|
|
<g >
|
|
Documento [f000 ] Fecha [f001 ]
|
|
Codigo de Dpto [f4 ] [a1 ]
|
|
Bodega : [a7] Impresion [imp]
|
|
|
|
<g >
|
|
C A N T I D A D
|
|
Codigo Ordenada Entregada Unidad D e s c r i p c i o n
|
|
|
|
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
|
[a ][b ][c ][d ][f02 ][f03 ][p ][k ]
|
|
|
|
}
|
|
end
|
|
tables
|
|
intb00001,
|
|
intb00002,
|
|
intb00006,
|
|
adtb00001
|
|
attributes
|
|
f000 = intb00006.num_doc,noentry;
|
|
f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
|
|
comments = "Digite Fecha Documento";
|
|
f4 = intb00006.depto_a,autonext,
|
|
comments = "Digite Codigo Departamento";
|
|
|
|
a1 = formonly.nombre_d,noentry;
|
|
a = intb00006.cod_n,autonext,
|
|
comments = "Digite Codigo Articulo";
|
|
b = intb00006.cod_grupo,autonext,
|
|
comments = "Digite Codigo Articulo";
|
|
c = intb00006.cod_tipo,autonext,
|
|
comments = "Digite Codigo Articulo";
|
|
d = intb00006.cod_sec,autonext,
|
|
comments = "Digite Codigo Articulo";
|
|
f02 = intb00006.cantidad_1,autonext,
|
|
comments = "Digite La Cantidad Ordenada";
|
|
f03 = intb00006.cantidad_2,autonext,
|
|
comments = "Digite La Cantidad Entregada";
|
|
a7 = intb00006.bodega,autonext,
|
|
comments = "Digite el codigo de la bodega de almacenamiento";
|
|
RADIOGROUP imp = formonly.impresion,ITEMS=(("MATRICIAL","MATRICIAL"),("PDF","PDF")),DEFAULT="MATRICIAL";
|
|
k = intb00001.descrip_esp,noentry,autonext;
|
|
p = intb00001.unidad_med,noentry;
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
|
|
cantidad_2,unidad_med,descrip_esp)
|
|
end
|