From 9b1a3be20a1d8e6cfb5b57a0a5506e740e7a9e61 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 3 Jun 2021 17:42:41 -0700 Subject: [PATCH] Correcion de filtro de fechas en grupos --- Ventas/RepVentas.aspx.vb | 30 ++++++++++++++++++++++++++++-- 1 file changed, 28 insertions(+), 2 deletions(-) diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index c2bcf48ee..f681e842e 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -453,7 +453,21 @@ Partial Class Ventas_RepVentas FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy") End If - FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy") + Dim FechaFinalRef = New DateTime(Anio, Mes, Dia) + + 'ASIGNAR LA FECHA FINAL DEL GRUPO, SI ES MENOR A LA FECHA DEL FILTRO + If FechaF <> "-1" Then + If FechaFRef < FechaFinalRef Then + FechaFinal = FechaFRef.ToString("dd/MM/yyyy") + Else + FechaFinal = FechaFinalRef.ToString("dd/MM/yyyy") + End If + Else + FechaFinal = FechaFinalRef.ToString("dd/MM/yyyy") + End If + + + End If Case 3 ' AÑO/MES @@ -479,7 +493,19 @@ Partial Class Ventas_RepVentas FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy") End If - FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy") + Dim FechaFinalRef = New DateTime(Anio, Mes, Dia) + + 'ASIGNAR LA FECHA FINAL DEL GRUPO, SI ES MENOR A LA FECHA DEL FILTRO + If FechaF <> "-1" Then + If FechaFRef < FechaFinalRef Then + FechaFinal = FechaFRef.ToString("dd/MM/yyyy") + Else + FechaFinal = FechaFinalRef.ToString("dd/MM/yyyy") + End If + Else + FechaFinal = FechaFinalRef.ToString("dd/MM/yyyy") + End If + End If Case 4 ' FECHA