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

-ambios validacion de fechas entre pago XML y pago IE

Browse Source
This commit is contained in:
rrene
2020-03-11 13:35:37 -07:00
parent a4971085d9
commit fc1c925eec
2 changed files with 6 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Compras/eFacturas.aspx
View File

@@ -550,11 +550,9 @@
</table>
<hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
<asp:GridView ID="GVPDocumentosRelacionadosPagos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn"
DataKeyNames="CveFactura,CveCompra,CveIE"
DataKeyNames="CveFactura,CveCompra,CveIE,Fecha,FechaPago"
data-sort="true" Width="100%" EmptyDataText="No se encontró registros con la información del complemento de pago"
ShowHeaderWhenEmpty="true" AutoGenerateColumns="False">
<Columns>

11
Compras/eFacturas.aspx.vb
View File

@@ -2838,24 +2838,21 @@ Partial Class Compras_eFacturas
BtnVincularPago.Visible = False
End If
For Each GvRowF As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
For Each drow As DataRow In ObjCompras.DtResultados.FiltraParametros("CveIE > 0 AND FechaDocumento IS NOT NULL", "", {"FechaDocumento"}).Rows
Dim FechaDocumento As Date = drow("FechaDocumento").ToString.ToDate
Dim FechaDocumento As Date = GvRowF.DataKey("FechaPago").ToString.ToDate
Dim FechaDoRecibo As Date = GvRowF.DataKey("Fecha").ToString.ToDate
Dim FT1 As Date = FechaDocumento.AddDays(-6)
Dim FT2 As Date = FechaDocumento.AddDays(7)
If Not (FechaPago >= FT1 And FechaPago < FT2) Then
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
Next
If MSGComplemento.Trim.Length > 0 Then