procedure TFrm_ReporteAgenciasViajes.ppLabel5Print(Sender: TObject);
var ls_ImprimirLocalidad : string;
begin ls_ImprimirLocalidad := Qry_ImprimirAgenciasNumero_Localidad.Value; Qry_BuscarLocalidad.Close; with Qry_BuscarLocalidad do begin with Sql do begin clear; Add('Select * From Localidades');
Add('where Numero_Localidad ');
Add(''''+ls_ImprimirLocalidad+'''');
Add('Group by_Localidad');
Open;
ppLabel5.Caption := Qry_BuscarLocalidadDescripcion_Localidad.Value;
end;
end;
end;