diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ef6c31f2f..9a3383d0a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2,14 +2,11 @@
 Option Strict On
 Option Infer On
 
-Imports System.Activities.Expressions
 Imports System.Data
-Imports System.Data.SqlClient
 Imports System.Diagnostics
 Imports System.IO
 Imports System.Net.Http
 Imports System.Security.Cryptography.X509Certificates
-Imports System.ServiceModel.Security
 Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
 Imports ADSNetLibrary.SIGAPI.Services.CRM
 Imports ADSTimbrado
@@ -5069,7 +5066,7 @@ Partial Class Ventas
                                     End If
                                 End If
 
-                            End If
+                                End If
                         End If
 
                         Dim TipoEstatus As Integer = GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {CveEstatus}").ToEntero()
@@ -11095,7 +11092,7 @@ Partial Class Ventas
         End If
     End Sub
 
-    Private Function CRMActualizaImporteBitacora(CveAcercamientoCRMActualizar As Integer, ImporteCRM As Decimal, SerieFolioVenta As String, ByRef ObjTRansaccion As SqlTransaction) As Boolean
+    Private Function CRMActualizaImporteBitacora(CveAcercamientoCRMActualizar As Integer, ImporteCRM As Decimal, SerieFolioVenta As String, ByRef ObjTransaccion As SqlClient.SqlTransaction) As Boolean
 
         Dim cRMService As ICRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
         Dim AcercamientoModel As RequestAcercamiento = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamientoCRMActualizar)
@@ -11105,8 +11102,8 @@ Partial Class Ventas
         Dim CveTipoProcesoCRM As Integer = objAcercamiento.Result(0).CveTipoProceso.ToEntero
 
         Dim Respuesta As Boolean = False
-        Dim ObjCRM As New ClsCRM(ObjTRansaccion)
-        Dim ObjEventoBitacora As New ClsOIEventos(ObjTRansaccion)
+        Dim ObjCRM As New ClsCRM(ObjTransaccion)
+        Dim ObjEventoBitacora As New ClsOIEventos(ObjTransaccion)
 
         If objAcercamiento.Result.Count > 0 Then
             If ObjCRM.UpdateAcercamientoCotizacion(CveAcercamientoCRMActualizar, ImporteCRM, UsuarioActual.CveEmpresa) Then
@@ -37419,7 +37416,7 @@ Partial Class Ventas
 
     Protected Sub DdlClienteSucursal_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim CveClienteSplit As Integer = -1
-        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero)
+        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, CveClienteSucursalL:=DdlClienteSucursalSucursal, CveTipoVentaL:=RBLTipoVenta.SelectedValue.ToEntero)
     End Sub
 
     Private Function DdlClienteSucursalCliente() As Integer
@@ -37705,13 +37702,13 @@ Partial Class Ventas
     End Sub
 
     Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero)
+        CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, CveClienteSucursalL:=DdlClienteSucursalSucursal, CveTipoVentaL:=RBLTipoVenta.SelectedValue.ToEntero)
     End Sub
 
-    Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer)
+    Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer, Optional CveClienteSucursalL As Integer = -1, Optional CveTipoVentaL As Integer = -1)
         If CveProcedimiento > 0 Then
             Dim objVenta As New ClsVentas
-            If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL) Then
+            If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL, CveClienteSucursalL, CveTipoVentaL) Then
                 GvProductosProcedimiento.DataSource = objVenta.DtResultados
             End If
             objVenta.Dispose()
@@ -37757,7 +37754,7 @@ Partial Class Ventas
     End Sub
 
 
-    Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
+    Private Function GeneraOS(ByRef TransacSQL As SqlClient.SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
 
         Dim Errores As Boolean = False