error cachado para eFacturas

2020-05-13 16:04:23 -07:00
parent 6fae02ba10
commit 80e04c2e4f
1 changed files with 5 additions and 1 deletions
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -1758,7 +1758,11 @@ Public Class ClsCompras
            SqlAdapter.Fill(Data)
            OnError = True
        Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            If ex.Message.Contains("Desbordamiento de SqlDateTime. Debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM.") Then
+                Alert("Fechas fuera de rango, debe estar entre 1/1/1753 12:00:00 AM y 12/31/9999 11:59:59 PM", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al obtener la bitácora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
        End Try

        Return OnError