-

Ventas/ActualizarPrecios.aspx

@@ -54,6 +54,7 @@
                     </div>
                 </div>
                 <div class="portlet-body" >
+                    <br />
                     <div class="row v-center">
                         <label class="col-md-1 v-center" id="LblProveedorCompra" runat="server" visible="false">Proveedor:</label>
                         <div class="col-md-1 v-center" id="DivProveedorCompra" runat="server" visible="false">
@@ -67,6 +68,11 @@
                                 <asp:ListItem Value="0">Incativos</asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <label id="lblModelo" runat="server" class="col-md-1 v-center truncate" visible="false">Modelo:</label>
+                        <div class="col-md-1 v-center"> 
+                            <asp:DropDownList ID="DdlModelo" Visible="false" runat="server" Width="100%" CssClass="select2me" DataTextField="Modelo" DataValueField="CveModelo">
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>

Ventas/ActualizarPrecios.aspx.vb

@@ -66,6 +66,7 @@ Partial Class Ventas_ActualizarPrecios
         CargaPreciosLista()
         CargaProveedores()
         CargarMarcas()
+        CargarModelos()
     End Sub
     Public Sub CargaDDlClasif()
         DDlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
@@ -141,6 +142,20 @@ Partial Class Ventas_ActualizarPrecios
 
         DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
+    Private Sub CargarModelos()
+        If UsuarioActual.Empresa.Funcionalidad(558).ToString = "1" Then
+            lblModelo.visible = True
+            DdlModelo.Visible = True
+            Dim ObjGeneral As New ClsGenerales
+            If ObjGeneral.GetModelos(UsuarioActual.CveEmpresa) Then
+                DdlModelo.DataSource = ObjGeneral.DtResultados
+            End If
+            ObjGeneral.Dispose()
+            DdlModelo.DataBind()
+            DdlModelo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
+    End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         Dim objPS As New ClsProductosServicios
         Dim CveProveedor As Integer = -1
@@ -156,7 +171,7 @@ Partial Class Ventas_ActualizarPrecios
         End If
 
         If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS,
-                                   CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas) Then
+                                   CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas, CveModelo:=DdlModelo.SelectedValue.ToEntero) Then
             GVPrecios.DataSource = objPS.DtResultados
         End If
         objPS.Dispose()