diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index 4b81efaff..818c0babc 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -3099,6 +3099,33 @@ Public Class ClsContPAQi
 
     End Function
 
+    Public Function UpdateMovimientoPrePolizaDetalle(IdPoliza As Integer, IdMovto As Integer, CvePrePolizaDetalle As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        StrSQL.Clear()
+
+        StrSQL.Append("        update mp set CvePrePolizaDetalle = @CvePrePolizaDetalle FROM MovimientosPoliza mp WHERE Id = @pId; ")
+
+        SqlDataAdapter(StrSQL.ToString, CommandType.Text)
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle
+            .Add("@pIdPoliza", SqlDbType.Int).Value = IdPoliza
+            .Add("@pId", SqlDbType.Int).Value = IdMovto
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un Error al actualizar la Póliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
     Public Function RemoveMovimiento(Id As Integer) As Boolean
         Dim Retorno As Boolean = False