64 lines
2.5 KiB
Plaintext
64 lines
2.5 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
FORMULARIO : COFMMT006
|
|
OBJETIVO : Capturar registros de la Tabla de Requisiciones (COPRMT006)
|
|
PROGRAMADOR : Ing. Juan Soto.
|
|
FECHA REALIZACION : Septiembre 1, 1992.
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
DATABASE smarmotech
|
|
LAYOUT
|
|
GRID
|
|
{
|
|
<G Generales >
|
|
Numero : [f1 ] Uso: [b1 ]
|
|
Fecha : [f2 ] Prioridad: [f]
|
|
Depto : [f3 ] [a ]
|
|
Empleado : [f7 ] [a1 ]
|
|
|
|
<G Detalles >
|
|
Codigo Cantidad Cod. Supl. Valor Total Proc.
|
|
[c][d][c1][c2 ] [k1 ][k2]-[k3 ] [k4 ][k5 ][b]
|
|
[c][d][c1][c2 ] [k1 ][k2]-[k3 ] [k4 ][k5 ][b]
|
|
[c][d][c1][c2 ] [k1 ][k2]-[k3 ] [k4 ][k5 ][b]
|
|
Descrip. : [a2 ] [n1 ] [n2 ]
|
|
Suplidor : [a3 ]
|
|
|
|
}
|
|
end
|
|
END
|
|
tables
|
|
cotb00001,cotb00006,
|
|
cotb00008,intb00002,
|
|
adtb00001
|
|
attributes
|
|
f1 = cotb00006.num_req, noentry;
|
|
f2 = cotb00006.fech_req,format="dd/mm/yyyy",noentry;
|
|
f3 = adtb00001.departamento, noentry;
|
|
f7 = cotb00006.cod_emp_sec, noentry;
|
|
b1 = cotb00006.uso, noentry;
|
|
c = intb00002.cod_n,noentry;
|
|
d = intb00002.cod_grupo,noentry;
|
|
c1 = intb00002.cod_tipo,noentry;
|
|
c2 = intb00002.cod_sec,noentry;
|
|
k1 = cotb00008.cantidad,
|
|
comments = "Digite Cantidad a Ordenar. Ctrl-W Modifica Informacion Adicional del Producto.";
|
|
k2 = cotb00001.cod_sp,autonext,reverse,
|
|
comments = "Digite Codigo Del Suplidor Presione Ctrl-W Para Busqueda";
|
|
k3 = cotb00001.cod_sp_sec,autonext,reverse,
|
|
comments = "Digite Codigo Del Suplidor Presione Ctrl-W Para Busqueda";
|
|
k4 = cotb00008.precio;
|
|
k5 = formonly.total_p,noentry;
|
|
a2 = formonly.descrip_esp,noentry;
|
|
a3 = cotb00001.nom_sp,noentry;
|
|
a = formonly.descrip1,noentry;
|
|
a1 = formonly.descrip2,noentry;
|
|
f = cotb00006.prioridad,noentry;
|
|
b = cotb00008.procesada,noentry;
|
|
n1 = formonly.unidad_med,noentry;
|
|
n2 = intb00002.base,noentry;
|
|
instructions
|
|
screen record s_requisi[3] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad,
|
|
cod_sp,cod_sp_sec,precio,total_p,procesada)
|
|
end
|