-option explicit

Bancos/ProveedoresAbonar.aspx.vb

@@ -4,8 +4,6 @@ Option Strict On
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-Imports Stimulsoft.Report.StiOptions.Export
-
 Partial Class Bancos_ProveedoresAbonar
     Inherits ClsPaginas
 
@@ -751,12 +749,10 @@ Partial Class Bancos_ProveedoresAbonar
                         If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then
 
                             Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL)
-
                             If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then
-                                MsgError = "Error al actualziar Cuanta  Referencia y Concepto Deposito."
+                                MsgError = "Error al actualizar cuenta Referencia y Concepto Deposito."
                             End If
                         End If
-
                     End If
 
                     'guardo el archivo  
@@ -840,6 +836,11 @@ Partial Class Bancos_ProveedoresAbonar
                         Pago.ImportePago = tImporteMN
 
                         If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
+                            Dim ObjCredito As New ClsBancos
+                            If ObjCredito.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero) Then
+                                CveProveedor = ObjCredito.DtResultados.FiltroPrimeroValor("CveProveedor", "").ToEntero
+                            End If
+                            ObjCredito.Dispose()
 
                             Dim Importe42 As Decimal = Pago.ImportePago
                             tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42)
@@ -1626,7 +1627,7 @@ Partial Class Bancos_ProveedoresAbonar
             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 = ""
+            Dim Transferencia As String = "", Banco As String = "", CLABE As String = "", Cuenta As String = "", Correo As String = ""
             If DdlTipoTransaccion.SelectedValue.Contiene("2", "8") Then Transferencia = "Si" Else Transferencia = "No"
             If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
                 Dim dtt As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero)