-- longitud 1000 en descripción

-- si es cancelación de oc con presupuestos, menor al 2025, que no genre la póliza
2025-03-13 07:39:27 -07:00
parent 287682e1fe
commit 6a746873a5
2 changed files with 6 additions and 2 deletions
--- 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)