diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index e7fc12ea6..fe1dae599 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -3734,7 +3734,7 @@ Partial Class OC_OC
             End If
 
             If (UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2")) Then
-                GeneraPrePolizaPresupuesto(CveOrdenCompra, objOrdenCompra.IniciaTransacSQL, True)
+                GeneraPrePolizaPresupuesto(CveOrdenCompra, objOrdenCompra.IniciaTransacSQL, EsCancelacion:=True)
             End If
 
             If IDPolizaPresupuestal > 0 AndAlso UsuarioActual.Empresa.UsaAC Then