60 lines
2.8 KiB
Plaintext
60 lines
2.8 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
FORMULARIO : COFMMT025
|
|
OBJETIVO : Capturar registros de la Tabla de Requisiciones (COPRMT024)
|
|
Disenado especialmente para uso de los usuarios de ROVD.
|
|
PROGRAMADOR : Lic. Abner Montalvo
|
|
FECHA REALIZACION : Marzo 18, 1997.
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
DATABASE smarmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Numero : [f1 ] Uso: [b1 ]
|
|
Fecha : [f2 ] Prioridad: [f ] [f4 ]
|
|
Depto : [f3 ] [a ]
|
|
Empleado : [f7 ] [a1 ]
|
|
\g---------------------------------------------------------------------------\g
|
|
Codigo Descripcion Und Cantidad
|
|
\g---------------------------------------------------------------------------\g
|
|
[c][d][c1][c2 ] [a2 ] [n1 ] [k1 ]
|
|
[c][d][c1][c2 ] [a2 ] [n1 ] [k1 ]
|
|
[c][d][c1][c2 ] [a2 ] [n1 ] [k1 ]
|
|
}
|
|
end
|
|
tables
|
|
cotb00006,cotb00008,
|
|
intb00002,adtb00001
|
|
attributes
|
|
f1 = cotb00006.num_req,autonext,reverse,
|
|
comments = "No Digite El Numero de La Requisicion";
|
|
f2 = cotb00006.fech_req,reverse, format = "dd/mm/yyyy",
|
|
comments = "Digite Fecha de La Requisicion";
|
|
f3 = adtb00001.departamento, reverse, autonext,
|
|
comments = "Digite Codigo Del Departamento Presione Ctrl-W Para Busqueda";
|
|
f7 = cotb00006.cod_emp_sec,reverse,autonext,
|
|
comments = "Digite Codigo Empleado Presione Ctrl-W Para Busqueda";
|
|
b1 = cotb00006.uso,reverse,autonext,upshift,
|
|
comments = "Digite El Uso De Los Articulos Requeridos";
|
|
c = formonly.cod_n,autonext,reverse,
|
|
comments = "Digite NIVEL Del Articulo Presione Ctrl-W Para Busqueda";
|
|
d = formonly.cod_grupo,autonext,reverse,
|
|
comments = "Digite GRUPO Del Articulo Presione Ctrl-W Para Busqueda";
|
|
c1 = formonly.cod_tipo,autonext,reverse,
|
|
comments = "Digite TIPO Del Articulo Presione Ctrl-W Para Busqueda";
|
|
c2 = formonly.cod_sec,autonext,reverse,
|
|
comments = "Digite SECUENCIA Del Articulo Presione Ctrl-W Para Busqueda";
|
|
k1 = cotb00008.cantidad,reverse,
|
|
comments = "Cantidad Requerida. Ctrl-W Adiciona Informacion Adicional del Producto.";
|
|
a2 = formonly.descrip_esp,noentry;
|
|
a = formonly.descrip1,noentry;
|
|
a1 = formonly.descrip2,noentry;
|
|
f = cotb00006.prioridad,
|
|
comments = "Digite Codigo de Prioridad de la Requisicion. Presione Ctrl-W Para Busqueda";
|
|
f4 = formonly.descrip3,noentry;
|
|
n1 = formonly.unidad_med,noentry;
|
|
instructions
|
|
screen record s_requisi2[3] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
|
|
unidad_med,cantidad)
|
|
end
|