diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index e2d59310b..be580aea7 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -977,12 +977,10 @@ Public Class ClsBancos
 
     Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean
 
-
         Dim Serie As String = "Pag"
         Dim Folio As Integer = -1
         Dim Retorno As Boolean = False
         Dim Estatus As Integer = 1
-
         Dim dttpagos As DataTable = Nothing
         Dim dttpagosimpuestos As DataTable = Nothing
         Dim dr As Data.DataRow = Nothing
@@ -996,7 +994,6 @@ Public Class ClsBancos
 
         If FechaTimbrado = MinFecha Then
             Dim RowFiltro As DataRow = Nothing
-
             RowFiltro = dttpagos.FiltroPrimero("")
 
             If RowFiltro IsNot Nothing Then
@@ -1018,10 +1015,8 @@ Public Class ClsBancos
             Else
                 FechaTimbrado = ClsPaginas.NowADS()
             End If
-
         End If
 
-
         Dim tCveComplementoPago As Integer = AddComplementoPago(If(CvePrePoliza > 0, CveIE, dr("CveIE").ToString.ToEntero), -1, Serie, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza, Estatus:=Estatus)
         If tCveComplementoPago > 0 Then
             'Dim drr As Data.DataRow = dtt.Rows(0)
@@ -1042,7 +1037,6 @@ Public Class ClsBancos
                     If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(11, 18) Then
                         Mensaje = $"La cuenta ordenante {Cuentapago} no cumple con el formato esperado 11, 18 caracteres."
                     End If
-
                     If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
                         Mensaje = $"{Mensaje}  La  Cuenta Beneficiario {CuentaBeneficiario} no cumple con el formato esperado 10, 11, 15, 16, 18, 50 caracteres."
                     End If
@@ -1058,7 +1052,6 @@ Public Class ClsBancos
                     If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(16) Then
                         Mensaje = $"La cuenta ordenante {Cuentapago} no cumple con el formato esperado 16 caracteres."
                     End If
-
                     If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
                         Mensaje = $"{Mensaje}  La  Cuenta Beneficiario {CuentaBeneficiario}  no cumple con el formato esperado 10, 11, 15, 16, 18, 50 caracteres."
                     End If
@@ -1067,7 +1060,6 @@ Public Class ClsBancos
                     If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(10, 11, 15, 16, 18, 50) Then
                         Mensaje = $"La cuenta ordenante {Cuentapago} no cumple con el formato esperado 10, 11, 15, 16, 18, 50 caracteres."
                     End If
-
                     If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
                         Mensaje = $"{Mensaje}  La  Cuenta Beneficiario {CuentaBeneficiario} no cumple con el formato esperado 10, 11, 15, 16, 18, 50 caracteres."
                     End If
@@ -1075,13 +1067,11 @@ Public Class ClsBancos
                     If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(10) Then
                         Mensaje = $"La cuenta ordenante {Cuentapago} no cumple con el formato esperado 10 caracteres."
                     End If
-
                     CuentaBeneficiario = ""
                 Case "28"
                     If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(16) Then
                         Mensaje = $"La cuenta ordenante {Cuentapago} no cumple con el formato esperado 16 caracteres."
                     End If
-
                     If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
                         Mensaje = $"{Mensaje}  La  Cuenta Beneficiario {CuentaBeneficiario} no cumple con el formato esperado 10, 11, 15, 16, 18, 50 caracteres."
                     End If
@@ -1089,13 +1079,10 @@ Public Class ClsBancos
                     If Cuentapago <> "" AndAlso Not Cuentapago.Length.Contiene(15, 16) Then
                         Mensaje = $"La cuenta ordenante {Cuentapago} no cumple con el formato esperado 15, 16 caracteres."
                     End If
-
                     If CuentaBeneficiario <> "" AndAlso Not (CuentaBeneficiario.Length.Contiene(10, 11, 15, 16, 18, 50)) Then
                         Mensaje = $"{Mensaje}  La  Cuenta Beneficiario {CuentaBeneficiario} no cumple con el formato esperado 10, 11, 15, 16, 18, 50 caracteres."
                     End If
-
                 Case Else
-
                     CuentaBeneficiario = ""
                     Cuentapago = ""
                     'RFCCliente = ""
@@ -1103,10 +1090,6 @@ Public Class ClsBancos
 
             End Select
 
-            'If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then
-            '    Mensaje += "  La cancelación debe de tener documento relacionado"
-            'End If
-
             If Not Mensaje.Length = 0 Then
                 GuardaLog(Mensaje)
                 Return False