diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 7d0047881..913c32a1a 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -837,22 +837,7 @@ Partial Class Bancos_ProveedoresAbonar
                         Dim tImporteMN As Decimal = TxtImporte.Text.ToDecimal
                         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)
-
-                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe42, tImporteMN, 42, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
-                                MsgError = "No se pudo insertar la póliza"
-                            End If
-
-                        Else
-                            Dim ImporteME As Decimal = 0
+                        Dim ImporteME As Decimal = 0
                             If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago
                             If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
                                 ImporteME = tImporteMN
@@ -863,14 +848,13 @@ Partial Class Bancos_ProveedoresAbonar
                                 MsgError = "No se pudo insertar la póliza"
                             End If
 
-                            If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
-                                If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
-                                    MsgError = "No se pudo insertar la póliza"
-                                End If
+                        If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
+                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+                                MsgError = "No se pudo insertar la póliza"
                             End If
                         End If
 
-                            If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+                        If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
                             If ObjMov.ValorPolizaDescuadre > 0 Then
                                 MsgError = ObjMov.MensajePolizaDescuadre + " " + ObjMov.ValorDiferencia
                                 GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
@@ -1193,29 +1177,29 @@ Partial Class Bancos_ProveedoresAbonar
             TxtFolio.Text = ""
         End If
 
-        Dim dr2 As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
-        If dr2 IsNot Nothing Then
+        'Dim dr2 As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
+        'If dr2 IsNot Nothing Then
 
-            If dr("UsaTarjeta").ToString = "True" Then
-                CargaGridTarjetas()
-            Else
-                DivTarjeta.Visible = False
-            End If
-        End If
+        '    If dr("UsaTarjeta").ToString = "True" Then
+        '        CargaGridTarjetas()
+        '    Else
+        '        DivTarjeta.Visible = False
+        '    End If
+        'End If
     End Sub
 
 
 
-    Private Sub CargaGridTarjetas()
-        Dim ObjCreditos As New ClsBancos
-        ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero)
-        DdlTarjeta.Items.Clear()
-        DdlTarjeta.DataSource = ObjCreditos.DtResultados
-        DdlTarjeta.DataBind()
-        DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        ObjCreditos.Dispose()
-        DivTarjeta.Visible = True
-    End Sub
+    'Private Sub CargaGridTarjetas()
+    '    Dim ObjCreditos As New ClsBancos
+    '    ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero)
+    '    DdlTarjeta.Items.Clear()
+    '    DdlTarjeta.DataSource = ObjCreditos.DtResultados
+    '    DdlTarjeta.DataBind()
+    '    DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '    ObjCreditos.Dispose()
+    '    DivTarjeta.Visible = True
+    'End Sub
 #End Region
 
 #Region " CUENTAS DEPOSITOS"