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

Compras/PopUpVerFactura.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports System.IO
 Imports System.Xml
 Imports Extensiones
+Imports iText.Barcodes.Dmcode
 Imports Microsoft.Reporting.WebForms
 Imports ZXing
 
@@ -6020,6 +6021,9 @@ Partial Class PopUpVerFactura
             End If
         Else
             If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+
+                ParamComprobacion = ObjIE.DtResultados
+
                 If ObjIE.DtResultados.Rows.Count > 0 Then
 
                     Dim reportDataSetsList As New List(Of ReportDataSource)
@@ -6096,6 +6100,14 @@ Partial Class PopUpVerFactura
                         ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
 
                     Else
+
+                        If UsuarioActual.CveEmpresa = 140 Then
+                            Dim Aplicado As Decimal = 0
+                            Dim ImporteDoc As Decimal = ParamComprobacion.Rows(0)("Importe").ToString.ToDecimal
+                            Dim LeyendaSaldo As String = $"Folio #{ParamComprobacion.Rows(0)("Folio").ToString} con importe de ${ImporteDoc.ToString("###,###,###.00")} y saldo antes de la comprobación de ${SaldoTotal.ToString("###,###,###.00")}, Comprobaciones a la fecha {ParamComprobacion.Rows(0)("FechaDocumento").ToString().ToDate().ToString("dd/MM/yyyy")}  ${ImportePagoTotal.ToString("###,###,###.00")} saldo después de la comprobación ${(SaldoTotal - ImportePagoTotal).ToString("###,###,###.00")} ."
+                            paramList.Add(New ReportParameter("LeyendaSaldo", LeyendaSaldo))
+                        End If
+
                         ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
                     End If