diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 50806af27..551cbb3d9 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -478,17 +478,23 @@ Partial Class Ventas_RepVentas
                         If Anio > 0 AndAlso Mes > 0 Then
                             Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
 
-                            Dim Dia As Integer = FechaFRef.Day
+                            Dim DiaFinal As Integer = FechaFRef.Day
 
-                            If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then
-                                Dia = lastDayOfMonth
+                            If Mes <> FechaFRef.Month Then
+                                DiaFinal = lastDayOfMonth
                             End If
 
-                            If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then
+                            'VERIFICAR LA FECHA DE INICIO DEL MES DE CONSULTA
+                            If Mes <> FechaIRef.Month Then
                                 FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
+                            Else
+                                'SI ES EL MISMO MES DE FECHA DE INICIO TOMAR LA FECHA DE INICIO COMO REFERENCIA
+                                If Mes = FechaIRef.Month AndAlso Anio = FechaIRef.Year Then
+                                    FechaInicial = FechaIRef.ToString("dd/MM/yyyy")
+                                End If
                             End If
 
-                            Dim FechaFinalRef = New DateTime(Anio, Mes, Dia)
+                            Dim FechaFinalRef = New DateTime(Anio, Mes, DiaFinal)
 
                             'ASIGNAR LA FECHA FINAL DEL GRUPO, SI ES MENOR A LA FECHA DEL FILTRO 
                             If FechaF <> "-1" Then