AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Efacturas Error agregar complemento fechas 1/1/1

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-03-20 10:41:35 -07:00
parent 4a928a7834
commit b6b8936144
1 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Compras/eFacturas.aspx.vb
View File

@@ -2842,8 +2842,15 @@ Partial Class Compras_eFacturas
Dim FechaDocumento As Date = GvRowF.DataKey("FechaPago").ToString.ToDate Dim FechaDocumento As Date = GvRowF.DataKey("FechaPago").ToString.ToDate
Dim FechaDoRecibo As Date = GvRowF.DataKey("Fecha").ToString.ToDate Dim FechaDoRecibo As Date = GvRowF.DataKey("Fecha").ToString.ToDate
Dim CveIEDocumento As Integer = GvRowF.DataKey("CveIE").ToEntero
If CveIEDocumento > 0 And FechaDocumento > New Date(1, 1, 1) Then
Dim FT1 As Date = FechaDocumento
If FechaDocumento <> New Date(1, 1, 1) Then
FT1 = FechaDocumento.AddDays(-6)
End If
Dim FT1 As Date = FechaDocumento.AddDays(-6)
Dim FT2 As Date = FechaDocumento.AddDays(7) Dim FT2 As Date = FechaDocumento.AddDays(7)
If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then
@@ -2853,6 +2860,7 @@ Partial Class Compras_eFacturas
Exit For Exit For
End If End If
End If
Next Next
If MSGComplemento.Trim.Length > 0 Then If MSGComplemento.Trim.Length > 0 Then