database smarmotech   
screen size 24 by 80
{

       Fecha Inicial       [k1        ]
       Fecha Final         [k2        ]       
 
       Tipo de la Orden    [a ]
       Codigo del Suplidor [c ]-[d   ]
}
end
tables
cotb00014
attributes
k1   = formonly.fech_in type date,format = "dd/mm/yyyy", autonext, 
       comments = "Digite la fecha inicial.     Utilice el formato 'DDMMAA'";
k2   = formonly.fech_fi type date,format = "dd/mm/yyyy", autonext, 
       comments = "Digite la fecha final.     Utilice el formato 'DDMMAA'";
a    = cotb00014.tipo,autonext;
c    = cotb00014.cod_sp;
d    = cotb00014.cod_sp_sec;
  instructions
     delimiters " "
end