diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 6d02f294b..86d3ec501 100644 --- a/App_Code/LogicNominas.vb +++ b/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")