diff --git a/OC/OC.aspx b/OC/OC.aspx index 1dab0f016..2cc5f7670 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -256,7 +256,7 @@
- +
@@ -265,7 +265,7 @@
- + 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)