From b6b8936144a4a7afe9ba4e1429f2270deae3d976 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Fri, 20 Mar 2020 10:41:35 -0700
Subject: [PATCH] Efacturas Error agregar complemento fechas 1/1/1

---
 Compras/eFacturas.aspx.vb | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 9b8cfecce..e89aec644 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2842,16 +2842,24 @@ Partial Class Compras_eFacturas
 
             Dim FechaDocumento As Date = GvRowF.DataKey("FechaPago").ToString.ToDate
             Dim FechaDoRecibo As Date = GvRowF.DataKey("Fecha").ToString.ToDate
+            Dim CveIEDocumento As Integer = GvRowF.DataKey("CveIE").ToEntero
 
-            Dim FT1 As Date = FechaDocumento.AddDays(-6)
-            Dim FT2 As Date = FechaDocumento.AddDays(7)
+            If CveIEDocumento > 0 And FechaDocumento > New Date(1, 1, 1) Then
+                Dim FT1 As Date = FechaDocumento
 
-            If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then
+                If FechaDocumento <> New Date(1, 1, 1) Then
+                    FT1 = FechaDocumento.AddDays(-6)
+                End If
 
-                BtnVincularPago.Visible = False
-                MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. "
+                Dim FT2 As Date = FechaDocumento.AddDays(7)
 
-                Exit For
+                If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then
+
+                    BtnVincularPago.Visible = False
+                    MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. "
+
+                    Exit For
+                End If
             End If
         Next