diff --git a/Clientes/ListadoContratacionProcedencia.pas b/Clientes/ListadoContratacionProcedencia.pas
index 201652c..5e81def 100644
--- a/Clientes/ListadoContratacionProcedencia.pas
+++ b/Clientes/ListadoContratacionProcedencia.pas
@@ -76,6 +76,8 @@ uses
   Proveedores, RdxFrameProveedores, Configuracion, cxDateUtils;
 
 constructor TfrListadoContratacionProcedencia.Create(AOwner: TComponent);
+var
+  ANumDias: Integer;
 begin
   inherited Create(AOwner);
   Entidad := entListadoContratacionProcedencia;
@@ -85,8 +87,8 @@ begin
   FInforme := TdmInformeListadoContratacionProcedencia.Create(Self);
   FInforme.Preview := FVistaPrevia.Preview;
 
-  FechaIni.Date := dmTablaTrimestres.darFechaIniTrimestre(dmTablaTrimestres.darTrimestreActual);
-  FechaFin.Date := dmTablaTrimestres.darFechaFinTrimestre(dmTablaTrimestres.darTrimestreActual);
+  FechaIni.Date := DateOf(now - (DayOf(now)-1));
+  FechaFin.Date := DateOf(now + (DaysInMonth(now) - DayOf(now)));
   FInforme.FechaIni := FechaIni.Date;
   FInforme.FechaFin := FechaFin.Date;
   FInforme.Previsualizar;
diff --git a/Clientes/ListadoFacturacionProcedencia.pas b/Clientes/ListadoFacturacionProcedencia.pas
index 71f0967..adbf42c 100644
--- a/Clientes/ListadoFacturacionProcedencia.pas
+++ b/Clientes/ListadoFacturacionProcedencia.pas
@@ -85,8 +85,8 @@ begin
   FInforme := TdmInformeListadoFacturacionProcedencia.Create(Self);
   FInforme.Preview := FVistaPrevia.Preview;
 
-  FechaIni.Date := dmTablaTrimestres.darFechaIniTrimestre(dmTablaTrimestres.darTrimestreActual);
-  FechaFin.Date := dmTablaTrimestres.darFechaFinTrimestre(dmTablaTrimestres.darTrimestreActual);
+  FechaIni.Date := DateOf(now - (DayOf(now)-1));
+  FechaFin.Date := DateOf(now + (DaysInMonth(now) - DayOf(now)));
   FInforme.FechaIni := FechaIni.Date;
   FInforme.FechaFin := FechaFin.Date;
   FInforme.Previsualizar;
diff --git a/Clientes/ListadoPresupuestosProcedencia.pas b/Clientes/ListadoPresupuestosProcedencia.pas
index 56d9202..4027543 100644
--- a/Clientes/ListadoPresupuestosProcedencia.pas
+++ b/Clientes/ListadoPresupuestosProcedencia.pas
@@ -85,8 +85,8 @@ begin
   FInforme := TdmInformeListadoPresupuestosProcedencia.Create(Self);
   FInforme.Preview := FVistaPrevia.Preview;
 
-  FechaIni.Date := dmTablaTrimestres.darFechaIniTrimestre(dmTablaTrimestres.darTrimestreActual);
-  FechaFin.Date := dmTablaTrimestres.darFechaFinTrimestre(dmTablaTrimestres.darTrimestreActual);
+  FechaIni.Date := DateOf(now - (DayOf(now)-1));
+  FechaFin.Date := DateOf(now + (DaysInMonth(now) - DayOf(now)));
   FInforme.FechaIni := FechaIni.Date;
   FInforme.FechaFin := FechaFin.Date;
   FInforme.Previsualizar;
diff --git a/Informes/InformeListadoPresupuestosProcedencia.dfm b/Informes/InformeListadoPresupuestosProcedencia.dfm
index 1fda250..b672934 100644
--- a/Informes/InformeListadoPresupuestosProcedencia.dfm
+++ b/Informes/InformeListadoPresupuestosProcedencia.dfm
@@ -18,4 +18,16 @@ inherited dmInformeListadoPresupuestosProcedencia: TdmInformeListadoPresupuestos
     Left = 152
     Top = 80
   end
+  object TablaInforme2: TIBQuery
+    BufferChunks = 1000
+    CachedUpdates = False
+    Left = 232
+    Top = 80
+  end
+  object dsTablaInforme2: TfrDBDataSet
+    CloseDataSource = True
+    DataSet = TablaInforme2
+    Left = 232
+    Top = 24
+  end
 end
diff --git a/Informes/InformeListadoPresupuestosProcedencia.pas b/Informes/InformeListadoPresupuestosProcedencia.pas
index 63a6473..44f6c0a 100644
--- a/Informes/InformeListadoPresupuestosProcedencia.pas
+++ b/Informes/InformeListadoPresupuestosProcedencia.pas
@@ -34,6 +34,8 @@ type
   TdmInformeListadoPresupuestosProcedencia = class(TdmInformeBase)
     dsTablaInforme: TfrDBDataSet;
     TablaInforme: TIBQuery;
+    TablaInforme2: TIBQuery;
+    dsTablaInforme2: TfrDBDataSet;
   private
     FFechaIni: TDateTime;
     FFechaFin: TDateTime;
@@ -87,6 +89,29 @@ begin
     ParamByName('FECHAFIN').AsDate := FFechaFin;
     Prepare;
   end;
+
+  with TablaInforme2 do
+  begin
+    Database := FBaseDatos;
+    Transaction := FTransaccion;
+    SQL.Clear;
+
+    SQL.Add('select CODIGO, DESCRIPCION, count(CLIENTE) as NUM_CLIENTES');
+    SQL.Add('from');
+    SQL.Add('  (select distinct');
+    SQL.Add('   coalesce(procedencias.codigo, ''-1'') as CODIGO,');
+    SQL.Add('   coalesce(procedencias.descripcion, ''DESCONOCIDA'') as DESCRIPCION,');
+    SQL.Add('   clientes.nombre as CLIENTE');
+    SQL.Add('   from presupuestoscliente');
+    SQL.Add('   left join clientes on (presupuestoscliente.codigocliente = clientes.codigo)');
+    SQL.Add('   left join procedencias on (clientes.procedencia = procedencias.codigo)');
+    SQL.Add('   where(presupuestoscliente.FECHAPRESUPUESTO between :FECHAINI and :FECHAFIN))');
+    SQL.Add('group by 1,2');
+
+    ParamByName('FECHAINI').AsDate := FFechaIni;
+    ParamByName('FECHAFIN').AsDate := FFechaFin;
+    Prepare;
+  end;
 end;
 
 procedure TdmInformeListadoPresupuestosProcedencia.RellenarCabecera(Band: TfrBand);
diff --git a/Temp/Factuges.exe b/Temp/Factuges.exe
index fbde02a..a0f2ec7 100644
Binary files a/Temp/Factuges.exe and b/Temp/Factuges.exe differ
diff --git a/Temp/Informes/ListadoPresupuestosProcedencia.frf b/Temp/Informes/ListadoPresupuestosProcedencia.frf
index d45cfd7..3de1e1c 100644
Binary files a/Temp/Informes/ListadoPresupuestosProcedencia.frf and b/Temp/Informes/ListadoPresupuestosProcedencia.frf differ