Correciones en cancelacion,factura bdh,formato de cliente pago

Ventas/Clientes.aspx.vb

@@ -6224,25 +6224,11 @@ Partial Class Clientes
         GenerarPDF()
     End Sub
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
-        Dim ObjTareas As New ClsOIEventos
-
         Dim params As New List(Of ReportParameter)
 
-
-
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-        ' Dim Filtros As String = "<b>Filtros: </b> "
-
-
-
-        'Dim FechaI, FechaF As String
-
-        ' params.Add(New ReportParameter("AgrupadoPor", Filtros))
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        'params.Add(New ReportParameter("FechaInicio", FechaI))
-        'params.Add(New ReportParameter("FechaFin", FechaF))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
@@ -6254,11 +6240,11 @@ Partial Class Clientes
         ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
 
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "VENTAS"
-
+
     Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte()
         Dim ObjVentas As New ClsVentas
         Dim Vta As Modelos.Factura = Nothing