database marmotech   
screen size 24 by 80
{

         Fecha Inicial   [f1       ]
         Fecha Final     [f2       ]
         Suplidor        [s1][s2  ]
         Orden Compra    [f03     ]
         Tipo  Orden     [tp]
         Codigo Material [a]-[b]-[c ]-[d  ]
}
end
tables
intb00001
cotb00015
attributes
s1  = formonly.cod_sp;
s2  = formonly.cod_sp_sec;
f03 = formonly.num_oc, comments =
"Digite numero orden de compra";
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 finasl para condicion de busqueda";
tp  = cotb00015.tipo,include = ("01","02","03","04"),comments =
"Tipo de Orden : (01) General  (02) ROV Ltd  (03) Locales  (04) Miscelaneo";
a   = intb00001.cod_n;
b   = intb00001.cod_grupo;
c   = intb00001.cod_tipo;
d   = intb00001.cod_sec;
  instructions
     delimiters " "
end