[JoseAntonio]

Empezado por oscarac

buenos dias
....

Código Delphi [-]
 
if rgRango.ItemIndex = 1 then  // compras por proveedor
   begin
      if edtProveedor.text = '' then  // si es proveedor no tiene dato que regrese a colocarlo
         edtproveedor.setfocus;
   End
..
..
GeneraReporte

deberia ser asi:

Código Delphi [-]
 
if rgRango.ItemIndex = 1 then  // compras por proveedor
   begin
      if edtProveedor.text = '' then begin  // si es proveedor no tiene dato que regrese a colocarlo
         edtproveedor.setfocus;
         raise exception.create('Debe elegir un proveedor');
    End;
   End
..
..
GeneraReporte