From 80e04c2e4fa5bbc2b4ff999e8d938c8360f3861c Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 13 May 2020 16:04:23 -0700
Subject: [PATCH] error cachado para eFacturas

---
 App_Code/ClsCompras.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 38182d35c..b7a1e8828 100644
--- 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