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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-07-06 18:10:14 -07:00
parent 8985c3d1e0 ee21bcbe83
commit 9df1ac7cc2
8 changed files with 267 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/RepPagadoPeriodo.aspx.cs
View File

@@ -75,7 +75,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
txtFechaF.Text = DateTime.Now.ToShortDateString();
TxtFechaICompra.Text = $"01/01/{DateTime.Now.Year}";
TxtFechaICompra.Text = MinFecha.ToShortDateString(); //'$"01/01/{DateTime.Now.Year}";
TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
//Carga Proyectos

41
Compras/eFacturas.aspx.vb
View File

@@ -2918,6 +2918,9 @@ Partial Class Compras_eFacturas
Dim FechaPago As Date
Dim PagosCantidad As Integer = 0
Dim UUIDDuplicados As String = ""
Dim ListaUUIDDuplicados As New List(Of String)
DTGVPagosVinculacion = New DataTable
MontoPago = 0D
ComprasEnComplemento = 0
@@ -3067,6 +3070,25 @@ Partial Class Compras_eFacturas
Next
Next
Dim UUIDDuplicadosEnu = From row In DTDocumentosRelacionados.AsEnumerable()
Let IdDocumento = row.Field(Of String)("IdDocumento")
Group row By IdDocumento Into IdDocumentos = Group
Where IdDocumentos.Count() > 1
Select IdDocumentos
For Each UUIDDuplicadosRows In UUIDDuplicadosEnu
For Each row In UUIDDuplicadosRows
If Not ListaUUIDDuplicados.Contains(row.Field(Of String)("IdDocumento")) Then
UUIDDuplicados = $"{UUIDDuplicados} {If(ListaUUIDDuplicados.Count > 0, "<br>", "") } {row.Field(Of String)("IdDocumento")}"
ListaUUIDDuplicados.Add(row.Field(Of String)("IdDocumento"))
End If
Next
Next
MontoPago = Monto
Dim ObjCompraFolios As New ClsCompras
@@ -3253,7 +3275,7 @@ Partial Class Compras_eFacturas
If Math.Abs(DiferenciaImportes) > 5 Then
TextoDiferenciaImporte = $"<b>&nbsp;&nbsp;-&nbsp;&nbsp; IE ${ImporteIES.FormatoNumero}</b> <div style='color:red'><strong>Diferencia { DiferenciaImportes.FormatoNumero() }</strong></div>"
BtnVincularPago.Visible = False
MSGComplemento = MSGComplemento & $" Existe una diferencia mayor a $5.00 ({Math.Abs(DiferenciaImportes)})"
MSGComplemento = MSGComplemento & $" Existe una diferencia mayor a $5.00 ({Math.Abs(DiferenciaImportes).ToString("###,###,###.00")})"
If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then
DivVincularPagoManualmente.Visible = True
@@ -3285,9 +3307,20 @@ Partial Class Compras_eFacturas
LblDiferencia.Text = If(DiferenciaImportes <> 0 And ImporteIES > 0, DiferenciaImportes.FormatoNumero, "")
If MSGComplemento.Trim.Length > 0 And CveComplementoPagoCompra <= 0 Then
LblMensajeComlementoError.Text = MSGComplemento
DVMensajecomplementoError.Visible = True
If MSGComplemento.Trim.Length > 0 And CveComplementoPagoCompra <= 0 Or ListaUUIDDuplicados.Count > 0 And CveComplementoPagoCompra <= 0 Then
If ListaUUIDDuplicados.Count > 0 Then
LblMensajeComlementoError.Text = $"Las siguientes UUID se encuentran duplicadas:<br>{UUIDDuplicados}<br>{MSGComplemento}"
'<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));' />
DVMensajecomplementoError.Visible = True
Else
LblMensajeComlementoError.Text = MSGComplemento
DVMensajecomplementoError.Visible = True
End If
Else
LblMensajeComlementoError.Text = ""