-se activan las cuentas depósitos si tiene el proveedor

-- impresión de póliza, que no salga

Bancos/ProveedoresAbonar.aspx.vb

@@ -504,8 +504,9 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
                 CargaDatos() '(tCveProveedor, CveMoneda, FechaI, FechaF, CveUsuarioRegistro, CveUsuarioProgramo, Serie)
-
-                'CUANDO VIENE PROGRAMADO LLENA EL TEXTO OBSERVACIONES
+                CargaCuentasDepositos()
+
+                'CUANDO VIENE PROGRAMADO LLENA EL TEXTO OBSERVACIONES
                 If CveUsuarioProgramo <> -1 Then RegistraScript("SumaValores();")
 
             Else
@@ -2817,12 +2818,13 @@ Partial Class Bancos_ProveedoresAbonar
         If DtDatos.Rows.Count > 0 Then
             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 StrImporte As String = DtDatos.Rows(0)("Saldo").ToString.FormatoNumero
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
             params.Add(New ReportParameter("Sucursal", DtDatos.Rows(1)("SubProyecto").ToString))
-            params.Add(New ReportParameter("Importe", $"${DtDatos.Rows(0)("Saldo").ToString.FormatoNumero}"))
+            params.Add(New ReportParameter("Importe", $"${StrImporte}"))
             params.Add(New ReportParameter("RazonSocial", TxtPagueseA.Text))
             params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text))
             Dim Transferencia = "", Banco = "", CLABE = "", Cuenta = "", Correo = ""
@@ -2844,13 +2846,14 @@ Partial Class Bancos_ProveedoresAbonar
             params.Add(New ReportParameter("CLABE", CLABE))
             params.Add(New ReportParameter("Cuenta", Cuenta))
             params.Add(New ReportParameter("Correo", Correo))
-            If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
-                ImprimirPDF("Empresas/Grales/Formatos/Solicitud.rdlc", DtDatos, params, "Solicitud", Opcion)
-            Else
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+            Dim NombreArchivo As String = "SolicitudPago" ''String.Format("SolicitudPago{0}.pdf", TxtPagueseA.Text).Replace(" ", "")
+            ImprimirPDF("Empresas/Grales/Formatos/Solicitud.rdlc", DtDatos, params, NombreArchivo, Opcion)
+        Else
                 Alert("No se encontraron datos.", TipoMensaje.MsgAdvertencia)
         End If
     End Sub