-
+
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 12d5cb61f..d87a772b8 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -9484,6 +9484,10 @@ Partial Class OC_OC
Return False
End If
+ If EsCancelacion AndAlso TxtFecha.Text.ToDate < "2025/01/01".ToDate Then 'si es cancelación, anterior al 2025, que no lo registre
+ Return True
+ End If
+
Dim ObjConta As New ClsContabilidad(transaccion)
Dim CvePrePolizaPresupuesto = ObjConta.AddPrePolizas("OC/OC-(Presupuesto)", 53, LblTotal.Text.ToDecimal, LblTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlProveedores.SelectedText, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)