{
-------------------------------------------------------------------------------
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