Cargar vendedor guardado desde PV en ventas

Ventas/Ventas.aspx.vb

@@ -1887,6 +1887,15 @@ Partial Class Ventas
             ViewState("CveFormaPago33Venta") = value
         End Set
     End Property
+
+    Private Property CveVendedorVenta As Integer
+        Get
+            Return (IfNull(ViewState("CveVendedorVenta"), "-1", ViewState("CveVendedorVenta"))).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveVendedorVenta") = value
+        End Set
+    End Property
     Private Property DiasCredito As Integer
         Get
             Return ViewState("DiasCredito").ToString().ToEntero()
@@ -2149,6 +2158,7 @@ Partial Class Ventas
             ViewState("ClienteRetISR") = 0
             ViewState("CvePrecioLista") = 0
             ViewState("CvePrecioListaCliente") = 0
+            Me.CveVendedorVenta = -1
             idCuentaContabilizacion = 1
             CveEmpresaCRM = 0
             CveAcercamientoCRM = 0
@@ -4571,6 +4581,17 @@ Partial Class Ventas
 
                 Me.CveMetodoPago33Venta = DbRowVenta("CveMetodoPago33").ToString().ToEntero()
                 Me.CveFormaPago33Venta = DbRowVenta("CveFormaPago33").ToString().ToEntero()
+                Me.CveVendedorVenta = DbRowVenta("CveVendedor").ToString().ToEntero()
+
+                'SI YA TIENE UN VALOR ASIGNADO SELECCIONA EL GUARDADO
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Me.CveVenta > 0 AndAlso Me.CveVendedorVenta > 0 Then
+                    Dim Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=1).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta))
+                    'SI NO ENCUENTRA BUSCA EN LOS VENDEDORES DEL PV
+                    If String.IsNullOrEmpty(Vendedor) Then
+                        Vendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=4).FiltroPrimeroValor("Vendedor", String.Format("CveVendedor = {0}", Me.CveVendedorVenta))
+                    End If
+                    DdlVendedor.SelectedValueExistInsert(Me.CveVendedorVenta, Vendedor)
+                End If
 
                 If DdlFormaPago33.SelectedValue <> DbRowVenta("CveFormaPago33").ToString() And DbRowVenta("CveFormaPago33").ToString() <> "" Then
                     'sino está seleccionada la asginada la debe de cargar