diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 158fb0c0a..c620204c7 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -893,14 +893,15 @@ Public Class ClsAcumuladores
         End Try
         Return Retorno
     End Function
-    Public Function UpdateEnvioPolizaVirutal(CvePolizaVirtual As Integer, Envio As Boolean, FechaEnvio As DateTime, CodigoUnico As String) As Boolean
+    Public Function UpdateEnvioPolizaVirtual(CvePolizaVirtual As Integer, Envio As Boolean, FechaEnvio As DateTime, CodigoUnico As String, RespuestaEnvio As String) As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_Vta_PolizaVirtualEnvioUpdate")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePolizaVirtual", SqlDbType.Int).Value = CvePolizaVirtual
             .Add("@Envio", SqlDbType.TinyInt).Value = Envio
             .Add("@FechaEnvio", SqlDbType.DateTime).Value = FechaEnvio
-            .Add("@CodigoUnico", SqlDbType.VarChar).Value = CodigoUnico
+            .Add("@CodigoUnico", SqlDbType.VarChar).Value = CodigoUnico
+            .Add("@RespuestaEnvio", SqlDbType.VarChar).Value = RespuestaEnvio
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 16e26a4a7..66762ab7d 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -3645,11 +3645,13 @@ Public Class ClsGenerales
 
 
 #Region " P O L I Z A   V I R T U A L "
-    Public Function ModelosAutosGet(CveEmpresa As Integer) As Boolean
+    Public Function ModelosAutosGet(Estatus As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_ModelosAutosGet")
-        With SqlAdapter.SelectCommand.Parameters
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
         End With
         Try
             SqlAdapter.Fill(Data)