SCHEMA smarmotech   
screen size 24 by 80
{

         Rango Fecha: Inicial [f1        ] Fecha Final [f2         ]
         Orden Compra:   Tipo [tp]        Numero      [f03     ]
         Codigo Material [a   ]-[b   ]-[c   ]-[d   ]
}
end
tables
intb00001
cotb00015
attributes
f03 = formonly.num_oc, comments =
"Digite numero orden de compra";
DATEEDIT f1  = formonly.fech_in type date,format = "dd/mm/yyy";
DATEEDIT f2  = formonly.fech_fi type date,format = "dd/mm/yyy";

COMBOBOX tp  = cotb00015.tipo,ITEMS = (("01","MAT. PRIMA"),("02","PRODUCTO TERMINADOS"),("03","REPUESTOS"),("04","MICELANEOS"));
a   = intb00001.cod_n;
b   = intb00001.cod_grupo;
c   = intb00001.cod_tipo;
d   = intb00001.cod_sec;
  instructions
     delimiters " "
end