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

RepVentas.aspx, filtro de fecha inicio correcto en grupo año/mes

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-06-22 18:48:42 -07:00
parent 22b672372a
commit c66c341c36
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Ventas/RepVentas.aspx.vb
View File

@@ -478,17 +478,23 @@ Partial Class Ventas_RepVentas
If Anio > 0 AndAlso Mes > 0 Then If Anio > 0 AndAlso Mes > 0 Then
Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes) 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 If Mes <> FechaFRef.Month Then
Dia = lastDayOfMonth DiaFinal = lastDayOfMonth
End If 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") 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 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 'ASIGNAR LA FECHA FINAL DEL GRUPO, SI ES MENOR A LA FECHA DEL FILTRO
If FechaF <> "-1" Then If FechaF <> "-1" Then