From c66c341c3684f772961c11b54c66c6171b156654 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 22 Jun 2022 18:48:42 -0700 Subject: [PATCH] =?UTF-8?q?RepVentas.aspx,=20filtro=20de=20fecha=20inicio?= =?UTF-8?q?=20correcto=20en=20grupo=20a=C3=B1o/mes?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepVentas.aspx.vb | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) 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