| | | 1 | | namespace FAU.Logica.Services; |
| | | 2 | | |
| | | 3 | | using FAU.Logica.DTOs; |
| | | 4 | | |
| | | 5 | | /// <summary> |
| | | 6 | | /// Calculadora IRPF sin estado. |
| | | 7 | | /// Implementa el calculo de deducciones y la aplicacion de franjas progresivas. |
| | | 8 | | /// No accede a la base de datos: recibe todos los datos por parametro. |
| | | 9 | | /// </summary> |
| | | 10 | | public class IrpfCalculator |
| | | 11 | | { |
| | | 12 | | /// <summary> |
| | | 13 | | /// Calcula deducciones IRPF: aportes jubilatorios, dependientes y profesional. |
| | | 14 | | /// La deduccion profesional llega ya valorizada desde el Form 3100 vigente. |
| | | 15 | | /// </summary> |
| | | 16 | | public DetalleDeduccionesResultado CalcularDeducciones( |
| | | 17 | | decimal ingresoGravado, |
| | | 18 | | decimal montepio, |
| | | 19 | | decimal fonasa, |
| | | 20 | | decimal frl, |
| | | 21 | | List<DeduccionDto> deducciones, |
| | | 22 | | ParametrosIrpfDto parametros) |
| | | 23 | | { |
| | 18 | 24 | | var resultado = new DetalleDeduccionesResultado(); |
| | | 25 | | |
| | | 26 | | // 1. Deduccion por aportes jubilatorios (montepio + FONASA/Sanidad). FRL no integra IRPF_DED.PRG. |
| | 18 | 27 | | resultado.Aportes = montepio + fonasa; |
| | | 28 | | |
| | | 29 | | // 2. Deducciones por dependientes y profesional. |
| | 52 | 30 | | foreach (var deduccion in deducciones) |
| | | 31 | | { |
| | 8 | 32 | | if (deduccion.Tipo == "hijo_menor") |
| | | 33 | | { |
| | 3 | 34 | | var monto = parametros.BpcMensual * 20 / 12; |
| | 3 | 35 | | resultado.Hijos += deduccion.Monto > 0m |
| | 3 | 36 | | ? deduccion.Monto |
| | 3 | 37 | | : deduccion.Cantidad * monto; |
| | | 38 | | } |
| | 5 | 39 | | else if (deduccion.Tipo == "hijo_discapacidad") |
| | | 40 | | { |
| | 2 | 41 | | var monto = parametros.BpcMensual * 40 / 12; |
| | 2 | 42 | | resultado.Hijos += deduccion.Monto > 0m |
| | 2 | 43 | | ? deduccion.Monto |
| | 2 | 44 | | : deduccion.Cantidad * monto; |
| | | 45 | | } |
| | 3 | 46 | | else if (deduccion.Tipo == "conyuge_sin_ingresos") |
| | | 47 | | { |
| | 2 | 48 | | if (deduccion.Cantidad > 0) |
| | 2 | 49 | | resultado.Conyuge = parametros.BpcMensual * 20 / 12; |
| | | 50 | | } |
| | 1 | 51 | | else if (deduccion.Tipo == "profesional") |
| | | 52 | | { |
| | 1 | 53 | | resultado.Profesional += Math.Max(0m, deduccion.Monto); |
| | | 54 | | } |
| | | 55 | | } |
| | | 56 | | |
| | 18 | 57 | | return resultado; |
| | | 58 | | } |
| | | 59 | | |
| | | 60 | | /// <summary> |
| | | 61 | | /// Aplica las franjas progresivas IRPF a la base dada. |
| | | 62 | | /// Retorna el total y el detalle por franja. |
| | | 63 | | /// </summary> |
| | | 64 | | public (decimal TotalIrpf, List<DetalleFranjaResultado> Detalles) AplicarFranjas( |
| | | 65 | | decimal baseParaFranjas, |
| | | 66 | | List<FranjaIrpfCalculoDto> franjas, |
| | | 67 | | decimal bpcMensual) |
| | | 68 | | { |
| | 15 | 69 | | var totalIrpf = decimal.Zero; |
| | 15 | 70 | | var detalles = new List<DetalleFranjaResultado>(); |
| | | 71 | | |
| | 16 | 72 | | if (baseParaFranjas < 0) baseParaFranjas = 0; |
| | | 73 | | |
| | 15 | 74 | | var restante = baseParaFranjas; |
| | | 75 | | |
| | 132 | 76 | | foreach (var franja in franjas.OrderBy(f => f.NumeroFranja)) |
| | | 77 | | { |
| | 35 | 78 | | if (restante <= 0) break; |
| | | 79 | | |
| | 23 | 80 | | var limiteInf = franja.DesdeBpc * bpcMensual; |
| | 23 | 81 | | var limiteSup = franja.HastaBpc.HasValue |
| | 23 | 82 | | ? franja.HastaBpc.Value * bpcMensual |
| | 23 | 83 | | : decimal.MaxValue; |
| | | 84 | | |
| | 23 | 85 | | var ancho = limiteSup - limiteInf; |
| | 23 | 86 | | var montoEnFranja = Math.Min(restante, ancho); |
| | 23 | 87 | | var impuestoFranja = montoEnFranja * franja.Tasa; |
| | | 88 | | |
| | 23 | 89 | | if (montoEnFranja > 0) |
| | | 90 | | { |
| | 23 | 91 | | detalles.Add(new DetalleFranjaResultado |
| | 23 | 92 | | { |
| | 23 | 93 | | FranjaId = franja.FranjaId, |
| | 23 | 94 | | NumeroFranja = franja.NumeroFranja, |
| | 23 | 95 | | BaseFranja = montoEnFranja, |
| | 23 | 96 | | Tasa = franja.Tasa, |
| | 23 | 97 | | Impuesto = impuestoFranja |
| | 23 | 98 | | }); |
| | | 99 | | |
| | 23 | 100 | | totalIrpf += impuestoFranja; |
| | | 101 | | } |
| | | 102 | | |
| | 23 | 103 | | restante -= ancho; |
| | | 104 | | } |
| | | 105 | | |
| | 15 | 106 | | return (totalIrpf, detalles); |
| | | 107 | | } |
| | | 108 | | |
| | | 109 | | /// <summary> |
| | | 110 | | /// Calcula IRPF con el enfoque de credito fiscal usado por el legacy: |
| | | 111 | | /// aplica franjas sobre el ingreso bruto, calcula el credito sobre deducciones |
| | | 112 | | /// y resta ese credito al impuesto bruto. |
| | | 113 | | /// </summary> |
| | | 114 | | public ResultadoIrpf Calcular(CalcularIrpfRequest request) |
| | | 115 | | { |
| | 11 | 116 | | var bpcMensual = request.Parametros.BpcMensual; |
| | | 117 | | |
| | | 118 | | // Cuando viene Adicional6 > 0, la base para franjas es baseSdlAportes * 1.06, |
| | | 119 | | // pasada como IngresoGravados + Adicional6 desde el pipeline. |
| | 11 | 120 | | var baseParaFranjas = request.IngresoGravados + request.Adicional6; |
| | | 121 | | |
| | 11 | 122 | | var (irpfBruto, detalleFranjas) = AplicarFranjas( |
| | 11 | 123 | | baseParaFranjas, |
| | 11 | 124 | | request.Franjas, |
| | 11 | 125 | | bpcMensual); |
| | | 126 | | |
| | 11 | 127 | | var deducciones = CalcularDeducciones( |
| | 11 | 128 | | request.IngresoGravados, |
| | 11 | 129 | | request.Montepio, |
| | 11 | 130 | | request.Fonasa, |
| | 11 | 131 | | request.Frl, |
| | 11 | 132 | | request.Deducciones, |
| | 11 | 133 | | request.Parametros); |
| | | 134 | | |
| | 11 | 135 | | var totalDeducciones = |
| | 11 | 136 | | deducciones.Aportes + |
| | 11 | 137 | | deducciones.Hijos + |
| | 11 | 138 | | deducciones.Conyuge + |
| | 11 | 139 | | deducciones.Profesional; |
| | | 140 | | |
| | 11 | 141 | | var umbral15Bpc = request.Parametros.UmbralDeduccionBpc * bpcMensual; |
| | 11 | 142 | | var tasaCredito = request.IngresoGravados >= umbral15Bpc |
| | 11 | 143 | | ? request.Parametros.TasaDeduccionAlta |
| | 11 | 144 | | : request.Parametros.TasaDeduccionBaja; |
| | | 145 | | |
| | 11 | 146 | | var credito = totalDeducciones * tasaCredito; |
| | 11 | 147 | | var totalIrpf = Math.Max(0m, irpfBruto - credito); |
| | | 148 | | |
| | 11 | 149 | | return new ResultadoIrpf |
| | 11 | 150 | | { |
| | 11 | 151 | | IngresoGravado = request.IngresoGravados, |
| | 11 | 152 | | Deducciones = deducciones, |
| | 11 | 153 | | TasaCredito = tasaCredito, |
| | 11 | 154 | | TotalDeducciones = totalDeducciones, |
| | 11 | 155 | | IrpfBruto = irpfBruto, |
| | 11 | 156 | | TotalIrpf = totalIrpf, |
| | 11 | 157 | | DetallePorFranja = detalleFranjas |
| | 11 | 158 | | }; |
| | | 159 | | } |
| | | 160 | | } |