From 7c11af2a6a5bc5795abb7c9b1e09c48045ea5517 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 5 Feb 2022 12:00:40 -0700
Subject: [PATCH] Correcion en garantias pendientes

---
 App_Code/ClsVentas.vb | 372 +++++++++++++++++++++---------------------
 1 file changed, 186 insertions(+), 186 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 1ca94d92f..79e01ee58 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1754,7 +1754,7 @@ Public Class ClsVentas
         End With
 
         Try
-            Dataset = New DataSet()
+            Dataset = New DataSet()
             SqlAdapter.Fill(Dataset)
             Retorno = True
         Catch ex As Exception
@@ -3903,48 +3903,48 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function GetRepComisionesServec(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_ReporteComisionesServecGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Reporte de Comisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function GetRepComisionesServec(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ReporteComisionesServecGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Comisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetRepComisionesServecDetalle(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_ReporteComisionesServecDetalleGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Reporte de Comisiones Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function GetRepComisionesServecDetalle(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ReporteComisionesServecDetalleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Comisiones Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
 #End Region
@@ -4984,19 +4984,19 @@ Public Class ClsVentas
         Return retorno
     End Function
 
-    Public Function GetVentasNoEnviadas(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_VentasNoEnviadas")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las ventas no enviadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
+    Public Function GetVentasNoEnviadas(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_VentasNoEnviadas")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las ventas no enviadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
 #Region "Conciliación emitidas SAT"
 
@@ -5084,7 +5084,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function GetVentasGarantiaPendiente(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer, Optional ServicioDomicilio As Boolean = False) As Boolean
+    Public Function GetVentasGarantiaPendiente(CveVenta As Integer, Fecha As DateTime, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasGarantiasPendienteGet", CommandType.StoredProcedure)
@@ -5144,24 +5144,24 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function AddVentaDetalleRNCFacturada(CveVentaDetalleRNC As Integer, CveVentaDetalle As Integer, CantidadFacturada As Decimal) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_VentaDetalleRNCFacturadaAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveVentaDetalleRNC", SqlDbType.Int).Value = CveVentaDetalleRNC
-            .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
-            .Add("@CantidadFacturada", SqlDbType.Float).Value = CantidadFacturada
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As SqlException
-            OnError("Ocurrió un error al agregar lo facturado de la RNC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function AddVentaDetalleRNCFacturada(CveVentaDetalleRNC As Integer, CveVentaDetalle As Integer, CantidadFacturada As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_VentaDetalleRNCFacturadaAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentaDetalleRNC", SqlDbType.Int).Value = CveVentaDetalleRNC
+            .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
+            .Add("@CantidadFacturada", SqlDbType.Float).Value = CantidadFacturada
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al agregar lo facturado de la RNC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
     Public Function GetRNCRelacionadas(CveVenta As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -5269,140 +5269,140 @@ Public Class ClsVentas
 #End Region
 
 
-    Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_AutorizacionLimitesAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@Importe", SqlDbType.Money).Value = Importe
+    Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_AutorizacionLimitesAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@Importe", SqlDbType.Money).Value = Importe
             .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@TipoAutorizacion", SqlDbType.Int).Value = TipoAutorizacion
-            .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
-            .Add("@DiasVencidos", SqlDbType.Int).Value = DiasVencidos
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
+            .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
+            .Add("@DiasVencidos", SqlDbType.Int).Value = DiasVencidos
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
 
-    Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_AutorizacionLimitesGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
-            .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
+    Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_AutorizacionLimitesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
 
 
-    Public Function UpdateAutorizacionLimite(CveAutorizacion As Integer, CveCliente As Integer, CveVenta As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_AutorizacionlimitesEstatusUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
+    Public Function UpdateAutorizacionLimite(CveAutorizacion As Integer, CveCliente As Integer, CveVenta As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_AutorizacionlimitesEstatusUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
 
-    Public Function RemoveAutorizacionLimite(CveAutorizacion As Integer, CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_AutorizacionLimitesRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
+    Public Function RemoveAutorizacionLimite(CveAutorizacion As Integer, CveCliente As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_AutorizacionLimitesRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
 
 
 #Region "C L I E N T E S    V E N D E D O R E S   S U B P R O Y E C T O S"
 
-    Public Function GetClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+    Public Function GetClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los vendedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los vendedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
 
 
-    Public Function AddClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
+    Public Function AddClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
 
-    Public Function RemoveClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+    Public Function RemoveClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ClientesVendedoresSubProyectosRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
 
 #End Region