From 9efd2be4bcb7ecaa110db1b8df389499450cfa90 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 24 Nov 2020 13:47:09 -0700
Subject: [PATCH] Cambios en rep ventas

---
 Ventas/RepVentas.aspx.vb | 54 ++++++++++++++++++++++++----------------
 1 file changed, 32 insertions(+), 22 deletions(-)

diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 548d83a87..2365c576f 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -428,40 +428,50 @@ Partial Class Ventas_RepVentas
                         Dim FechaIRef As DateTime = FechaI.ToDateTime()
                         Dim FechaFRef As DateTime = FechaF.ToDateTime()
 
-                        Dim Anio As Integer = FechaFRef.Year
-                        Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero()
-                        Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
+                        If e.Row.DBCampo("Mes").ToEntero() > 0 Then
+                            Dim Anio As Integer = FechaFRef.Year
+                            Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero()
+                            Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
 
-                        Dim Dia As Integer = FechaFRef.Day
+                            Dim Dia As Integer = FechaFRef.Day
 
-                        If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then
-                            Dia = lastDayOfMonth
+                            If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then
+                                Dia = lastDayOfMonth
+                            End If
+
+                            If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then
+                                FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
+                            End If
+
+                            FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy")
                         End If
 
-                        If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then
-                            FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
-                        End If
-
-                        FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy")
                     Case 3 ' AÑO/MES
                         Dim FechaIRef As DateTime = FechaI.ToDateTime()
                         Dim FechaFRef As DateTime = FechaF.ToDateTime()
 
-                        Dim Anio As Integer = e.Row.DBCampo("Anio").ToEntero()
-                        Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero()
-                        Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
+                        Dim separator As Char = "/".ToCharArray().FirstOrDefault()
+                        Dim AnioMes = e.Row.DBCampo("AnioMes").Split(separator)
 
-                        Dim Dia As Integer = FechaFRef.Day
+                        Dim Anio As Integer = AnioMes(0).ToEntero()
+                        Dim Mes As Integer = AnioMes(1).ToEntero()
 
-                        If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then
-                            Dia = lastDayOfMonth
+                        If Anio > 0 AndAlso Mes > 0 Then
+                            Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
+
+                            Dim Dia As Integer = FechaFRef.Day
+
+                            If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then
+                                Dia = lastDayOfMonth
+                            End If
+
+                            If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then
+                                FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
+                            End If
+
+                            FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy")
                         End If
 
-                        If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then
-                            FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
-                        End If
-
-                        FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy")
                     Case 4 ' FECHA
                         FechaInicial = e.Row.DBCampo("Fecha").ToDateTime().ToString("dd/MM/yyyy")
                         FechaFinal = e.Row.DBCampo("Fecha").ToDateTime().ToString("dd/MM/yyyy")