diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index a818111b8..280686c3a 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -6820,7 +6820,7 @@ Partial Class PV
 
     Private Sub CargaModelos()
         Dim ObjGral As New ClsGenerales
-        If ObjGral.ModelosAutosGet(UsuarioActual.CveEmpresa) Then
+        If ObjGral.ModelosAutosGet(1, UsuarioActual.CveEmpresa) Then
             DtModelosAuto = ObjGral.DtResultados
             DdlModeloAuto.DataSource = DtModelosAuto
         End If