diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index b0ac30892..d93efb1b6 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -412,7 +412,7 @@
                             <td>
                                 <asp:UpdatePanel ID="UPPVentas" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
-                                        <asp:DropDownList ID="DropDownList1" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="100%">
+                                        <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="100%">
                                             <asp:ListItem Selected="true" Text="Sin asignar" Value="0"></asp:ListItem>
                                         </asp:DropDownList>
                                     </ContentTemplate>
@@ -557,7 +557,7 @@
                         <tr align="left">
                             <td><b>Vendedor:</b>&nbsp;</td>
                             <td>
-                                <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="150px">
+                                <asp:DropDownList ID="DdlVendedorEstatus" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="150px">
                                     <asp:ListItem Selected="true" Text="Sin asignar" Value="0"></asp:ListItem>
                                 </asp:DropDownList>
                             </td>
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 36c19f71e..5793ea5e6 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5591,13 +5591,13 @@ Partial Class PV
 
     Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
         Dim CvePrecioLista As Integer = -1
-        If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
-            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
-            If Dr IsNot Nothing Then
-                If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
-                    CvePrecioLista = Dr("CvePrecioLista").ToString.ToEntero
-                End If
-            End If
+        If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
+            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
+            If Dr IsNot Nothing Then
+                If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
+                    CvePrecioLista = Dr("CvePrecioLista").ToString.ToEntero
+                End If
+            End If
         End If
 
         Dim ObjCliente As New ClsClientes
@@ -5803,18 +5803,18 @@ Partial Class PV
         'ObjPS.Dispose()
     End Sub
 
-    Private Sub RecargaGlobalCliente()
-        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDTCliente)
-        'Hilo.Start()
-        GeneraGlobalDTCliente()
-    End Sub
+    Private Sub RecargaGlobalCliente()
+        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDTCliente)
+        'Hilo.Start()
+        GeneraGlobalDTCliente()
+    End Sub
     Private Sub GeneraGlobalDTCliente()
-        GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing
-        'Dim Objclientes As New ClsClientes
-        'If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1, TipoCliente:=-1) Then
-        '    Application("GlobalDTCliente") = Objclientes.DtResultados
-        'End If
-        'Objclientes.Dispose()
+        GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing
+        'Dim Objclientes As New ClsClientes
+        'If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1, TipoCliente:=-1) Then
+        '    Application("GlobalDTCliente") = Objclientes.DtResultados
+        'End If
+        'Objclientes.Dispose()
     End Sub
 #End Region
 
@@ -6815,7 +6815,7 @@ Partial Class PV
             MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
         End If
 
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
         Dim DtDatos As New DataTable