database marmotech   
screen size 24 by 80
{

         Clasificacion   [p]
         Fecha Inicial   [f1       ]
         Fecha Final     [f2       ]
         Tipo  Orden     [tp]
         Numero de Orden [od     ]
         Codigo Material [a]-[b]-[c ]-[d  ]
}
end
tables
intb00001
cotb00015
attributes
f1  = formonly.fech_in type date,format = "dd/mm/yy",comments =
"Digite la fecha inicial para condicion de busqueda";
f2  = formonly.fech_fi type date,format = "dd/mm/yy",comments =
"Digite la fecha final para condicion de busqueda";
tp  = cotb00015.tipo,include = ("01","02","03","04"),comments =
"Tipo Orden : 01= General  02=ROV Ltd  03=Locales  04=Miscelaneos";
od  = cotb00015.num_oc,comments =
"Digiete un numero de orden, deje en blanco para todas o rango #orden:#orden";
a   = intb00001.cod_n;
b   = intb00001.cod_grupo;
c   = intb00001.cod_tipo;
d   = intb00001.cod_sec;
p   = formonly.clasifica type char,include = ("P", "C", "T"),upshift,autonext,
      comments = "(P) Pendientes, (C) Cerradas, (T) Todas";
  instructions
     delimiters " "
end