AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correcion de filtro de fechas en grupos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-06-03 17:42:41 -07:00
parent 5edf6c69bc
commit 9b1a3be20a
1 changed files with 28 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Ventas/RepVentas.aspx.vb
View File

@@ -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