App_Code/LogicNominas.vb

@@ -148,6 +148,7 @@ Public Class LogicNominas
         Dim totalDb As Decimal
         Dim subTotalDb As Decimal
         Dim CodigoPostal As String = ""
+        Dim CLABEInterbancaria As String = ""
 
         Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades)
         'Conexiones a la Base de Datos
@@ -175,7 +176,7 @@ Public Class LogicNominas
 
                     ClaveBanco = drow("ClaveBanco").ToString()
                     BancoNumCuenta = drow("BancoNumCuenta").ToString()
-
+                    CLABEInterbancaria = drow("CLABE").ToString()
                     'If TimbreIndemnizacion Then
                     '    cfdi.Timbrado = drow("SeTimbroFiniquitoVal").ToString().ToEntero() = 1
                     '    cfdi.IStimbreFiniquito = True
@@ -495,8 +496,19 @@ Public Class LogicNominas
         cfdi.Nomina.Receptor.Puesto = Puesto
         cfdi.Nomina.Receptor.CodigoRiesgoPuesto = CveSATRiesgoPuesto.ToString()
         cfdi.Nomina.Receptor.PeriodicidadPago = PeriodicidadPago
+        If Not IsNothing(CLABEInterbancaria) OrElse CLABEInterbancaria.Trim().Length > 16 Then
+            cfdi.Nomina.Receptor.NumeroCuenta = CLABEInterbancaria
+        Else
+            cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta
+        End If
+
+
         cfdi.Nomina.Receptor.CodigoBanco = ClaveBanco
-        cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta
+        If Not IsNothing(cfdi.Nomina.Receptor.NumeroCuenta) AndAlso
+            cfdi.Nomina.Receptor.NumeroCuenta.Trim().Length > 17 Then
+            cfdi.Nomina.Receptor.CodigoBanco = ""
+
+        End If
         cfdi.Nomina.Receptor.SDI = SDI
         cfdi.Nomina.Receptor.SBC = SalarioDiarioSS
         cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Sí", "No")