diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 5cfaa7423..0e383970e 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2959,7 +2959,7 @@
- +
@@ -3174,6 +3174,7 @@ +
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index ef79851d5..c9c50c886 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -7130,12 +7130,22 @@ Partial Class PV 'End Sub Private Function CalculaMesesUso() As Boolean - Dim FechaI As Date = TxtFechaAjuste.Text.ToDate.AddDays(1) + Dim FechaI As Date = Now + + If IsDate(TxtFechaAjuste.Text) Then + FechaI = TxtFechaAjuste.Text.ToDate.AddDays(1) + Else + TxtMesesUso.Text = "" + Alert("La fecha de ajuste no tiene el formato correcto", TipoMensaje.MsgAdvertencia) + Return False + End If + Dim FechaF As Date = Now If FechaI.AddDays(-1) > FechaF Then + TxtMesesUso.Text = "" TxtFechaAjuste.Text = FechaF.ToString("dd/MM/yyyy") - Alert("La fecha de ajuste debe ser menor a la fecha actual", TipoMensaje.ToastAdventencia) + Alert("La fecha de ajuste debe ser menor a la fecha actual", TipoMensaje.MsgAdvertencia) Return False End If