-

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()