Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsContPAQi.vb

@@ -89,7 +89,7 @@ Public Class ClsContPAQi
         Catch ex As Exception
             Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
         End Try
-        ConexionAdd()
+        'ConexionAdd()
     End Sub
     Private Sub SetTimeOut(Optional Tiempo As Integer = 30)
         SqlCommand.CommandTimeout = Tiempo
@@ -11200,7 +11200,7 @@ Public Class ClsContPAQi
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
-        ConexionClose()
+        'ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsOC.vb

@@ -16,7 +16,8 @@ Public Class ClsOC
     Private Data As DataTable
     'Atributos de la clase
     Private disposedValue As Boolean = False
-
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -167,7 +168,7 @@ Public Class ClsOC
         SqlCommand = New SqlCommand("", SqlConexion)
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         StrSQL = New StringBuilder
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -178,6 +179,45 @@ Public Class ClsOC
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+
+            Try
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -2481,6 +2521,7 @@ Public Class ClsOC
         disposedValue = True
     End Sub
     Public Sub Dispose() Implements IDisposable.Dispose
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsOIEventos.vb

@@ -16,6 +16,8 @@ Public Class ClsOIEventos
     Private SqlCommand As SqlCommand
     Private Data As DataTable
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -109,7 +111,7 @@ Public Class ClsOIEventos
 
         SqlCommand = New SqlCommand("", SqlConexion)
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -120,6 +122,45 @@ Public Class ClsOIEventos
         Data = New DataTable
         If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
     End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+
+            Try
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Public Sub IniciaTransacSQL()
         SqlTransacc = SqlConexion.BeginTransaction()
     End Sub
@@ -1339,6 +1380,7 @@ Public Class ClsOIEventos
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsOS.vb

@@ -15,6 +15,8 @@ Public Class ClsOS
     Private Data As DataTable
     'Atributos de la clase
     Private disposedValue As Boolean = False
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 
 #End Region
@@ -98,7 +100,7 @@ Public Class ClsOS
         SqlCommand = New SqlCommand("", SqlConexion)
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         StrSQL = New StringBuilder
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -109,6 +111,45 @@ Public Class ClsOS
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -1632,6 +1673,7 @@ Public Class ClsOS
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsPV.vb

@@ -21,6 +21,8 @@ Public Class ClsPV
 
     'Atributos de la clase
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -64,7 +66,7 @@ Public Class ClsPV
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
@@ -76,7 +78,44 @@ Public Class ClsPV
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 
     'Reporte de Ventas
     Public Function GetRepPVVentas(FechaI As String, FechaF As String, FechaIEjec As String, FechaFEjec As String, CveCliente As Integer, CveSubProyecto As Integer, CveSubProyectoEjecucion As Integer,
@@ -193,6 +232,7 @@ Public Class ClsPV
     ' This code added by Visual Basic to correctly implement the disposable pattern.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsPresupuestos.vb

@@ -21,6 +21,8 @@ Public Class ClsPresupuestos
 
     'Atributos de la clase
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -64,7 +66,7 @@ Public Class ClsPresupuestos
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -78,7 +80,45 @@ Public Class ClsPresupuestos
     End Sub
 
 #End Region
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 #Region "P R E S U P U E S T O S - P R O D U C T O S - D E T A L L E S"
 
     Public Function GetPresupuestosDetalleProductos(CvePresupuestoDetalle As Integer) As Boolean
@@ -732,6 +772,7 @@ Public Class ClsPresupuestos
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsProductosServicios.vb

@@ -18,6 +18,9 @@ Public Class ClsProductosServicios
     Private SqlTransacc As SqlTransaction
     Private Data As DataTable
     Private disposedValue As Boolean = False
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
+
 #End Region
 
 #Region "Propiedades"
@@ -113,7 +116,7 @@ Public Class ClsProductosServicios
         Catch ex As Exception
             OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
         End Try
-
+        ConexionAdd()
     End Sub
 
 
@@ -145,7 +148,7 @@ Public Class ClsProductosServicios
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -156,6 +159,45 @@ Public Class ClsProductosServicios
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1, Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 

App_Code/ClsProsEncuestas.vb

@@ -17,6 +17,8 @@ Public Class ClsProsEncuestas
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
 
     Private StrSQL As StringBuilder
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -48,7 +50,7 @@ Public Class ClsProsEncuestas
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -60,7 +62,44 @@ Public Class ClsProsEncuestas
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Public Function IniciaTransacSQL() As SqlTransaction
         If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
         Return SqlTransacc
@@ -752,6 +791,7 @@ Public Class ClsProsEncuestas
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsProspectos.vb

@@ -16,6 +16,8 @@ Public Class ClsProspectos
     Private Data As DataTable
     Private StrSQL As StringBuilder
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -161,7 +163,7 @@ Public Class ClsProspectos
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -173,6 +175,44 @@ Public Class ClsProspectos
         Data = New DataTable
         If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
     End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 
 #Region "Prospectos"
     Public Function GetNext() As Boolean
@@ -4591,6 +4631,7 @@ Public Class ClsProspectos
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsProyectos.vb

@@ -23,6 +23,8 @@ Public Class ClsProyectos
     'Atributos de la clase
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -55,7 +57,7 @@ Public Class ClsProyectos
 
         SqlCommand = New SqlCommand("", SqlConexion)
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -66,6 +68,44 @@ Public Class ClsProyectos
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -210,6 +250,7 @@ Public Class ClsProyectos
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsPruebasJJMQ.vb

@@ -18,6 +18,8 @@ Public Class ClsPruebasJJMQ
     Private StrSQL As StringBuilder
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -47,6 +49,7 @@ Public Class ClsPruebasJJMQ
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         StrSQL = New StringBuilder
+        ConexionAdd()
     End Sub
 
     Private Sub SqlDataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -58,7 +61,44 @@ Public Class ClsPruebasJJMQ
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                SqlDataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            SqlDataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Private Sub SqlDataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -134,6 +174,7 @@ Public Class ClsPruebasJJMQ
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsPuntoVenta.vb

@@ -20,6 +20,8 @@ Public Class ClsPuntoVenta
 
     'Atributos de la clase
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -84,7 +86,7 @@ Public Class ClsPuntoVenta
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
@@ -96,7 +98,44 @@ Public Class ClsPuntoVenta
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 
     Public Function GetVta_CortesDetalles(CveCorte As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -390,6 +429,7 @@ Public Class ClsPuntoVenta
     ' This code added by Visual Basic to correctly implement the disposable pattern.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsRH.vb

@@ -81,14 +81,14 @@ Public Class ClsRH
         If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
 
             'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
-            DataAdapter("PA_Sis_RegistrarConexion")
-            With SqlAdapter.SelectCommand.Parameters
-                .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
-                .Add("@Modulo", SqlDbType.VarChar).Value = HttpContext.Current.Request.Url.AbsolutePath.ToString
-                .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
-            End With
 
             Try
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
                 SqlAdapter.Fill(Data)
                 CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
             Catch ex As Exception
@@ -102,7 +102,7 @@ Public Class ClsRH
         If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
 
             DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
-
+            CveConexion = 0
             Try
                 SqlAdapter.Fill(Data)
 

App_Code/ClsRMA.vb

@@ -17,6 +17,8 @@ Public Class ClsRMA
     Private SqlTransacc As SqlTransaction
     Private Data As DataTable
     Private disposedValue As Boolean = False
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -56,7 +58,7 @@ Public Class ClsRMA
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -67,7 +69,44 @@ Public Class ClsRMA
         Data = New DataTable
         If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Private Sub DataCommand(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -181,6 +220,7 @@ Public Class ClsRMA
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSAT.vb

@@ -30,6 +30,8 @@ Public Class ClsSAT
     Private disposedValue As Boolean = False
 
     Private ContListado69B As Integer = 0
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -78,7 +80,7 @@ Public Class ClsSAT
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
 
-        'ConexionAdd()
+        ConexionAdd()
 
     End Sub
     Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
@@ -90,7 +92,44 @@ Public Class ClsSAT
         Data = New DataTable
         If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Public Function ActualizarListado69B(Ruta As String) As Boolean
 
         Dim respusta As Boolean = False
@@ -337,6 +376,7 @@ Public Class ClsSAT
     ' This code added by Visual Basic to correctly implement the disposable pattern.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSCTLicencias.vb

@@ -15,6 +15,8 @@ Public Class ClsSCTLicencias
     Private SqlCommand As SqlCommand
     Private Data As DataTable
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -53,7 +55,7 @@ Public Class ClsSCTLicencias
         Catch ex As Exception
             OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
         End Try
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -64,7 +66,44 @@ Public Class ClsSCTLicencias
         End With
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 #Region "L I C E N C I A S "
 
 
@@ -226,6 +265,7 @@ Public Class ClsSCTLicencias
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSeguimiento.vb

@@ -14,6 +14,8 @@ Public Class ClsSeguimiento
     Private SqlAdapter As SqlDataAdapter
     Private Data As DataTable
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -34,7 +36,7 @@ Public Class ClsSeguimiento
         Catch ex As Exception
             OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
         End Try
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -45,7 +47,44 @@ Public Class ClsSeguimiento
         End With
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 
 
 #Region " S E G U I M I E N T O "
@@ -144,6 +183,7 @@ Public Class ClsSeguimiento
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSisEmpresas.vb

@@ -54,6 +54,8 @@ Public Class ClsSisEmpresas
 
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -221,6 +223,7 @@ Public Class ClsSisEmpresas
 
         SqlCommand = New SqlCommand("", SqlConexion)
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
+        ConexionAdd()
 
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -232,6 +235,44 @@ Public Class ClsSisEmpresas
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -1836,6 +1877,7 @@ Public Class ClsSisEmpresas
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose ( que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSisNotificaciones.vb

@@ -45,6 +45,8 @@ Public Class ClsSisNotificaciones
     Private _ClavesNotificaciones As Dictionary(Of String, List(Of Integer))
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "P R O P I E D A D E S"
@@ -92,7 +94,7 @@ Public Class ClsSisNotificaciones
 
         'Inicializamos las propiedades necesarias
         _ClavesNotificaciones = New Dictionary(Of String, List(Of Integer))
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -103,7 +105,44 @@ Public Class ClsSisNotificaciones
         End With
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 #Region "N O T I F I C A C I O N E S"
 
     Public Sub DispararNotificacion(CveNotificacion As Integer, CvesFiltro As List(Of Object), CveEmpresa As Integer)
@@ -2046,6 +2085,7 @@ Public Class ClsSisNotificaciones
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSisParametros.vb

@@ -25,6 +25,8 @@ Public Class ClsSisParametros
     Private _NombreUsuario As String
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -82,7 +84,7 @@ Public Class ClsSisParametros
         Catch ex As Exception
             Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
         End Try
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -93,7 +95,44 @@ Public Class ClsSisParametros
         End With
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 
     Public Function GetParametros() As Boolean
         Dim OnError As Boolean = False
@@ -234,6 +273,7 @@ Public Class ClsSisParametros
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSisProcesos.vb

@@ -23,6 +23,8 @@ Public Class ClsSisProcesos
     Private _NombreUsuario As String
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -74,7 +76,7 @@ Public Class ClsSisProcesos
         Catch ex As Exception
             Me.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
         End Try
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -85,7 +87,44 @@ Public Class ClsSisProcesos
         End With
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
 
     Public Function GetProcesos(CveProceso As Integer) As Boolean
         Dim OnError As Boolean = False
@@ -194,6 +233,7 @@ Public Class ClsSisProcesos
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSisRoles.vb

@@ -18,6 +18,8 @@ Public Class ClsSisRoles
     Private Data As DataTable
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     Private _CveRol As Integer
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 #End Region
 
 #Region "Propiedades"
@@ -51,7 +53,7 @@ Public Class ClsSisRoles
         SqlCommand = New SqlCommand("", SqlConexion)
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         StrSQL = New StringBuilder
-
+        ConexionAdd()
     End Sub
 
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
@@ -63,7 +65,44 @@ Public Class ClsSisRoles
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
 
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Public Function IniciaTransacSQL() As SqlTransaction
         If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
         Return SqlTransacc
@@ -312,6 +351,7 @@ Public Class ClsSisRoles
     ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsSisUsuarios.vb

@@ -22,6 +22,8 @@ Public Class ClsSisUsuarios
     'Atributos de la clase
 
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
 
 #End Region
 
@@ -80,7 +82,7 @@ Public Class ClsSisUsuarios
 
         SqlCommand = New SqlCommand("", SqlConexion)
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
-
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -91,6 +93,44 @@ Public Class ClsSisUsuarios
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
     End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+            CveConexion = 0
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+
+    End Sub
+#End Region
     Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlCommand
             .Parameters.Clear()
@@ -2633,6 +2673,7 @@ Public Class ClsSisUsuarios
         Me.disposedValue = True
     End Sub
     Public Sub Dispose() Implements IDisposable.Dispose
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

Compras/Compras.aspx.vb

@@ -6207,49 +6207,50 @@ Partial Class Compras_Compras
 
                                                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
-                                                                    'Conta ContPAQ
+                                                                    If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
-                                                                    If IdCtaContable = 0 Then
+                                                                        'Conta ContPAQ
-                                                                        CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+                                                                        If IdCtaContable = 0 Then
-                                                                        idCuentaContabilizacion = 0
+                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
-                                                                    End If
+                                                                            idCuentaContabilizacion = 0
-                                                                    'Conta SIG
+                                                                        End If
-                                                                    If CveCuenta = 0 Then
+                                                                        'Conta SIG
-                                                                        CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+                                                                        If CveCuenta = 0 Then
-                                                                        CveCuentaContabilizacion = 0
+                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
-                                                                    End If
+                                                                            CveCuentaContabilizacion = 0
-
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
-                                                                    End If
-
-
-
-                                                                    Dim ContienePSNeteoBonif As Boolean = False
-                                                                    For Each Dr As DataRow In TmpDT.Rows
-                                                                        If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
-                                                                            ContienePSNeteoBonif = True
-                                                                            Exit For
                                                                         End If
-                                                                    Next
 
-                                                                    If ContienePSNeteoBonif Then
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                        importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
-                                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                        Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
-                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
-                                                                            End If
-                                                                        Else
                                                                             ErrorPrepoliza = True
                                                                         End If
+
                                                                     End If
 
-                                                                End If
+                                                                    Dim ContienePSNeteoBonif As Boolean = False
+                                                                        For Each Dr As DataRow In TmpDT.Rows
+                                                                            If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
+                                                                                ContienePSNeteoBonif = True
+                                                                                Exit For
+                                                                            End If
+                                                                        Next
+
+                                                                        If ContienePSNeteoBonif Then
+                                                                            importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
+                                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                            Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
+                                                                            Else
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+                                                                        End If
+
+                                                                    End If
 
 
 
-                                                                If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then
+                                                                    If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then
                                                                     'GASTO
                                                                     If UsuarioActual.CveEmpresa = 119 Then
                                                                         DT = TmpDT

Ventas/PV.aspx

@@ -1193,11 +1193,22 @@
                                                                             <ajax:FilteredTextBoxExtender ID="FBEImporteContado" runat="server" TargetControlID="TxtImporteContado" FilterType="Custom, Numbers" ValidChars=".," />
 
 
-                                                                            <asp:CompareValidator ID="CVImporteContado" runat="server" ControlToValidate="TxtImporteContado" Display="None" ErrorMessage="Importe excedido." Operator="LessThanEqual" Type="Double" ValidationGroup="GrpAgregarPago"></asp:CompareValidator>
+                                                                            <%--<asp:CompareValidator ID="CVImporteContado" runat="server" ControlToValidate="TxtImporteContado" Display="None" ErrorMessage="Importe excedido." Operator="LessThanEqual" Type="Double" ValidationGroup="GrpAgregarPago"></asp:CompareValidator>--%>
-                                                                            <ajax:ValidatorCalloutExtender ID="VCEImporteContado" runat="server" HighlightCssClass="vco" TargetControlID="CVImporteContado" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                                            <%--<ajax:ValidatorCalloutExtender ID="VCEImporteContado" runat="server" HighlightCssClass="vco" TargetControlID="CVImporteContado" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                                                             <br></br>
                                                                         </div>
                                                                     </div>
+                                                                    <div class="row">
+                                                                        <div class="col-md-6">
+                                                                        </div>
+                                                                        <label class="col-md-2">Cambio:</label>
+                                                                        <div class="col-md-4 input-icon">
+                                                                            <i style="margin: 0px;">$</i>
+                                                                            <asp:TextBox ID="TxtCambio" CssClass="form-control input-sm " Enabled="false" runat="server" MaxLength="12" Width="100px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                                                            <ajax:FilteredTextBoxExtender ID="FTBECambio" runat="server" TargetControlID="TxtCambio" FilterType="Custom, Numbers" ValidChars=".," />
+                                                                            <br></br>
+                                                                        </div>
+                                                                        </div>
                                                                 </div>
                                                             </div>
                                                         </div>
@@ -3180,7 +3191,17 @@
             var totalTransferencia = ToDouble($get("TxtImporteTransferencia").value);
             var total = totalEfectivo + totalCredito + totalDebito + totalCheque + totalTransferencia;
 
+
+            var totalVenta = ToDouble($get('TxtTotal').value);
+
+            if (totalEfectivo > totalVenta) {
+                $get("TxtCambio").value = FormatoNumero(totalEfectivo - totalVenta);
+            } else {
+                $get("TxtCambio").value = "0.00";
+            }
+
             $get("TxtImporteContado").value = total;
+
         }
 
         // ****************************************************************************************************************************************************************************
@@ -3491,9 +3512,17 @@
 
             $('#divAgregarCliente').modal();
         }
+
         function hideDivEC() {
             $('#divAgregarCliente').modal('hide');
         }
 
+        function CambiaAjuste(txt, txtajuste) {
+            Recalcula();
+            if (txtajuste != null) {
+                txtajuste.value = ToDouble(txt.value)
+            }
+        }
+
     </script>
 </asp:Content>

Ventas/PV.aspx.vb

@@ -1032,8 +1032,8 @@ Partial Class PV
 
             TxtFecha.Text = Now.ToShortDateString()
             LblUsuario.Text = UsuarioActual.Usuario
-            TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
             TxtCantidad.Attributes.Add("onKeyUp ", "Recalcula();")
+            TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
             ImgDescPU.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal();  $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '0'; $get('LblPrecio1').style.display = ''; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = ''; $get('BtnAplicarDescG').style.display = 'none'; $get('TrMotivoDescuento').style.display = '';")
             'ImgDescConcepto.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal();  $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '1'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = '';  $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = ''; $get('BtnAplicarDescG').style.display = 'none'; $get('TrMotivoDescuento').style.display = '';")
             ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal();  $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2';  $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
@@ -1476,7 +1476,7 @@ Partial Class PV
                 HdnIVAOriginal.Value = TxtIVA.Text
 
                 'JJMQ 20160506: Se agrego para la validacion de pago de contado.
-                CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
+                'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
 
                 If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
                     DdlVendedor.Enabled = False
@@ -1967,7 +1967,7 @@ Partial Class PV
 
         Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
         'JJMQ 20160506: Se agrego para la validacion de pago de contado.
-        CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
+        'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
 
         UpContado.Update()
     End Sub
@@ -3085,7 +3085,7 @@ Partial Class PV
             End If
 
             'JJMQ 20160506: Se agrego para la validacion de pago de contado.
-            CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
+            'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
 
             UpContado.Update()
         Else
@@ -3903,7 +3903,7 @@ Partial Class PV
         HdnIVAOriginal.Value = TxtIVA.Text
 
         'JJMQ 20160506: Se agrego para la validacion de pago de contado.
-        CVImporteContado.ValueToCompare = Total.ToString
+        'CVImporteContado.ValueToCompare = Total.ToString
 
         Dim view As DataView = New DataView(TmpDT)
         view.Sort = "Consec"
@@ -4264,6 +4264,7 @@ Partial Class PV
         TxtImporteCheque.Text = "0.00"
         TxtImporteTransferencia.Text = "0.00"
         TxtImporteContado.Text = "0.00"
+        TxtCambio.Text = "0.00"
     End Sub
     Private Sub LimpiaEscondeContado()
         'LIMPIA
@@ -4336,7 +4337,7 @@ Partial Class PV
         'JJMQ 20160506: Validacion para no pagar de mas a peticion de I.P.
         Dim abonado = DtPagos.SUM("Importe")
         Dim saldo = TxtTotal.Text.Replace(",", "").ToDouble - abonado
-        CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString
+        'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString
 
         CargaGridContado()
         UpContado.Update()
@@ -4350,7 +4351,7 @@ Partial Class PV
 
         If total <= 0 Then Alert("No se ha ingresado importe", TipoMensaje.MsgAdvertencia) : Exit Sub
 
-        If DtPagos.SUM("Importe").ToString.ToDecimal + total > TxtTotal.Text.ToDecimal Then
+        If (DtPagos.SUM("Importe").ToString.ToDecimal + total - TxtCambio.Text.ToDecimal) > TxtTotal.Text.ToDecimal Then
             Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor rectifique.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -4363,7 +4364,7 @@ Partial Class PV
                 DrEfectivo("TipoMovimiento") = "Pago en Efectivo"
                 DrEfectivo("CveCuenta") = DdlCuentaEfectivo.SelectedValue
                 DrEfectivo("Cuenta") = DdlCuentaEfectivo.SelectedItem.Text
-                DrEfectivo("Importe") = TxtImporteEfectivo.Text
+                DrEfectivo("Importe") = TxtImporteEfectivo.Text.ToDecimal - TxtCambio.Text.ToDecimal
                 DrEfectivo("Folio") = CargaFolioContado(DdlCuentaEfectivo.SelectedValue.ToEntero, 6)
                 DrEfectivo("Observaciones") = ""
                 DrEfectivo("Tipo") = "Caja Chica"
@@ -4456,7 +4457,7 @@ Partial Class PV
         'JJMQ 20160506: Validacion para no pagar de mas a peticion de I.P.
         abonado = DtPagos.SUM("Importe")
         saldo = TxtTotal.Text.Replace(",", "").ToDouble - abonado
-        CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString
+        'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString
 
         CargaGridContado()
         UpContado.Update()
@@ -4873,7 +4874,7 @@ Partial Class PV
         Dim ObjVenta As New ClsVentas
         If ObjVenta.GetVentas(UsuarioActual.CveEmpresa, "Ing", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
             DdlFacturas.DataSource = ObjVenta.DtResultados
-            DdlFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))
         End If
         ObjVenta.Dispose()
         DdlFacturas.DataBind()
@@ -4888,7 +4889,7 @@ Partial Class PV
         End If
 
 
-        DdlFacturas.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))
 
         DdlTipoUso.DataSource = GlobalDTAcumTiposUso.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
         DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -4920,7 +4921,7 @@ Partial Class PV
         DtPUFacturas.Rows.Clear()
 
         If DdlFacturas.SelectedValue.ToEntero > 0 Then
-            TxtPUFactura.Enabled = False
+            'TxtPUFactura.Enabled = False
             Dim ObjVenta As New ClsVentas
             If ObjVenta.GetVentaDetalle(DdlFacturas.SelectedValue.ToEntero) Then
                 DdlPSAjuste.DataSource = ObjVenta.DtResultados
@@ -4929,8 +4930,8 @@ Partial Class PV
             End If
             ObjVenta.Dispose()
         Else
-            TxtPUFactura.Enabled = True
+            'TxtPUFactura.Enabled = True
-            TxtPUFactura.Text = ""
+            'TxtPUFactura.Text = ""
             DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
         End If
         DdlPSAjuste.DataBind()
@@ -4944,11 +4945,13 @@ Partial Class PV
         LimpiaAjuste()
         If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.FiltraParametros($"ConsecutivoVenta = {ConsecutivoVenta}").Rows.Count > 0 Then
             ModalidadAjuste = "U"
+            TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPUFactura.ClientID});")
             ChkAjuste.Checked = True
             DivAjuste.Visible = True
             CargaAjusteDetalle()
         Else
             ModalidadAjuste = "A"
+            TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
         End If
     End Sub
 
@@ -4958,6 +4961,7 @@ Partial Class PV
         TxtCodEnsamble.Text = ""
         DdlTipoUso.SelectedIndex = -1
         TxtCodLinea.Text = ""
+        TxtPUFactura.Text = ""
         TxtFechaAjuste.Text = Now.ToShortDateString
         CEEFechaAjuste.EndDate = Now
         TxtCodInspeccion.Text = ""
@@ -5023,11 +5027,11 @@ Partial Class PV
                 End If
                 Contador += 1
             Next
-            TxtPUFactura.Text = PUFactura.FormatoNumero(2)
+            'TxtPUFactura.Text = PUFactura.FormatoNumero(2)
         End If
 
         If Not DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then
-            TxtPUFactura.Text = ""
+            'TxtPUFactura.Text = ""
         End If
 
         CalculaPorcentajeAjuste()
@@ -5115,6 +5119,9 @@ Partial Class PV
     'End Function
 
     Private Sub GuardaAjuste()
+        TxtPUFactura.Text = TxtPrecio.Text
+        UpAjuste.Update()
+
         Dim CargoAnterior As Double = 0
         Dim CargoActual As Double = 0
         If ModalidadAjuste = "A" Then
@@ -5222,9 +5229,12 @@ Partial Class PV
             DivAjuste.Attributes.Add("class", "col-md-6")
             DivDatosVenta.Attributes.Remove("class")
             DivDatosVenta.Attributes.Add("class", "col-md-6")
+            TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPUFactura.ClientID});")
+            TxtPUFactura.Text = TxtPrecio.Text
         Else
             DivAjuste.Visible = False
             TxtCantidad.Enabled = True
+            TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
             DivModalVenta.Attributes.Remove("class")
             DivModalVenta.Attributes.Add("class", "modal-dialog")
             DivAjuste.Attributes.Remove("class")

Ventas/Ventas.aspx.vb

@@ -15679,7 +15679,6 @@ Partial Class Ventas
                 Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales)
-                Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales)
                 Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDecimal * TxtTipoCambio.Text.Trim.ToDecimal, NumeroDecimales)
             Next