54 lines
2.3 KiB
Plaintext
54 lines
2.3 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
FORMULARIO : COFMCS006
|
|
OBJETIVO : Pantalla para Consulta Requisicion Por Fecha (COPRCS006)
|
|
PROGRAMADOR : Ing. Juan Fco. Soto.
|
|
FECHA REALIZACION : Octubre 6, 1992
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
Num. Requisicion [p1 ] Departamento [p2 ] Clasificacion [p]
|
|
Fecha Inicial [f1 ] Fecha Final [f2 ]
|
|
\g----------------------------------------------------------------------------\g
|
|
Num.req. Fecha Departamento Monto
|
|
\g----------------------------------------------------------------------------\g
|
|
[r1 ][r2 ] [r3 ] [r4 ] [r5 ]
|
|
[r1 ][r2 ] [r3 ] [r4 ] [r5 ]
|
|
[r1 ][r2 ] [r3 ] [r4 ] [r5 ]
|
|
[r1 ][r2 ] [r3 ] [r4 ] [r5 ]
|
|
[r1 ][r2 ] [r3 ] [r4 ] [r5 ]
|
|
[r1 ][r2 ] [r3 ] [r4 ] [r5 ]
|
|
|
|
Total General ====> [r6 ]
|
|
[r7 ]
|
|
}
|
|
tables
|
|
cotb00006,
|
|
adtb00001 ,
|
|
cotb00008
|
|
attributes
|
|
f1 = formonly.fech_in type date,reverse,format = "dd/mm/yy",
|
|
comments = "Digite Primer Rango de Fecha";
|
|
f2 = formonly.fech_fi type date,reverse,format = "dd/mm/yy",
|
|
comments = "Digite Segundo Rango de Fecha";
|
|
r1 = formonly.num_req1,noentry;
|
|
r2 = formonly.fecha type date,noentry,format = "dd/mm/yy";
|
|
r3 = formonly.departamento1,noentry;
|
|
r4 = adtb00001.nom_dpto,noentry;
|
|
r5 = cotb00008.precio,noentry;
|
|
r6 = formonly.total_g_e,noentry;
|
|
r7 = formonly.encontrado,noentry;
|
|
p1 = cotb00006.num_req,
|
|
comments = "Digite Un Numero de Requisicion o Presione <Esc> Para Buscar Todas";
|
|
p2 = adtb00001.departamento,
|
|
comments= "Digite Un Numero de Departamento o Presione <Esc> Para Buscar Todos";
|
|
p = formonly.pendiente type char,reverse,include = ("P","T"),upshift,
|
|
comments = "(P) Pendientes, (T) Todas";
|
|
instructions
|
|
screen record requi[6] (num_req1,fecha,departamento1,nom_dpto,precio)
|
|
delimiters " "
|
|
end
|
|
|