| | | 1 | | namespace FAU.Logica.Services; |
| | | 2 | | |
| | | 3 | | using FAU.Logica.DTOs; |
| | | 4 | | |
| | | 5 | | /// <summary> |
| | | 6 | | /// Calculadora IRPF stateless. |
| | | 7 | | /// Implementa la lógica de cálculo de deducciones IRPF y aplicación de franjas progresivas. |
| | | 8 | | /// No accede a la BD - recibe todos los datos por parámetro. |
| | | 9 | | /// |
| | | 10 | | /// Flujo: |
| | | 11 | | /// 1. CalcularDeducciones() - calcula aportes, hijos, cónyuge, profesional |
| | | 12 | | /// 2. AplicarFranjas() - aplica 7 franjas progresivas a la base imponible neta |
| | | 13 | | /// 3. Calcular() - orquesta el flujo completo y devuelve ResultadoIrpf |
| | | 14 | | /// </summary> |
| | | 15 | | public class IrpfCalculator |
| | | 16 | | { |
| | | 17 | | /// <summary> |
| | | 18 | | /// Calcula las deducciones IRPF: aportes jubilatorios y dependientes. |
| | | 19 | | /// La deducción ficta profesional (Ded_Prof en FoxPro) no se incluye aquí |
| | | 20 | | /// porque se carga por persona desde tabla externa; por defecto es 0. |
| | | 21 | | /// </summary> |
| | | 22 | | public DetalleDeduccionesResultado CalcularDeducciones( |
| | | 23 | | decimal ingresoGravado, |
| | | 24 | | decimal montepio, |
| | | 25 | | decimal fonasa, |
| | | 26 | | decimal frl, |
| | | 27 | | List<DeduccionDto> deducciones, |
| | | 28 | | ParametrosIrpfDto parametros) |
| | | 29 | | { |
| | 14 | 30 | | var resultado = new DetalleDeduccionesResultado(); |
| | | 31 | | |
| | | 32 | | // 1. Deducción por aportes jubilatorios (montepío + FONASA/Sanidad + FRL) |
| | 14 | 33 | | resultado.Aportes = montepio + fonasa + frl; |
| | | 34 | | |
| | | 35 | | // 2. Deducción por dependientes (hijos y cónyuge) |
| | 38 | 36 | | foreach (var deduccion in deducciones) |
| | | 37 | | { |
| | 5 | 38 | | if (deduccion.Tipo == "hijo_menor") |
| | | 39 | | { |
| | 2 | 40 | | resultado.Hijos += deduccion.Cantidad * (parametros.BpcMensual * 20 / 12); |
| | | 41 | | } |
| | 3 | 42 | | else if (deduccion.Tipo == "hijo_discapacidad") |
| | | 43 | | { |
| | 1 | 44 | | resultado.Hijos += deduccion.Cantidad * (parametros.BpcMensual * 40 / 12); |
| | | 45 | | } |
| | 2 | 46 | | else if (deduccion.Tipo == "conyuge_sin_ingresos") |
| | | 47 | | { |
| | 2 | 48 | | if (deduccion.Cantidad > 0) |
| | 2 | 49 | | resultado.Conyuge = parametros.BpcMensual * 20 / 12; |
| | | 50 | | } |
| | | 51 | | } |
| | | 52 | | |
| | | 53 | | // Profesional queda en 0 (se carga por persona si corresponde) |
| | 14 | 54 | | return resultado; |
| | | 55 | | } |
| | | 56 | | |
| | | 57 | | /// <summary> |
| | | 58 | | /// Aplica las franjas progresivas IRPF a la base dada. |
| | | 59 | | /// Retorna (TotalIrpf, DetallePorFranja[]). |
| | | 60 | | /// </summary> |
| | | 61 | | public (decimal TotalIrpf, List<DetalleFranjaResultado> Detalles) AplicarFranjas( |
| | | 62 | | decimal baseParaFranjas, |
| | | 63 | | List<FranjaIrpfCalculoDto> franjas, |
| | | 64 | | decimal bpcMensual) |
| | | 65 | | { |
| | 13 | 66 | | var totalIrpf = decimal.Zero; |
| | 13 | 67 | | var detalles = new List<DetalleFranjaResultado>(); |
| | | 68 | | |
| | 14 | 69 | | if (baseParaFranjas < 0) baseParaFranjas = 0; |
| | | 70 | | |
| | 13 | 71 | | var restante = baseParaFranjas; |
| | | 72 | | |
| | 116 | 73 | | foreach (var franja in franjas.OrderBy(f => f.NumeroFranja)) |
| | | 74 | | { |
| | 31 | 75 | | if (restante <= 0) break; |
| | | 76 | | |
| | 19 | 77 | | var limiteInf = franja.DesdeBpc * bpcMensual; |
| | 19 | 78 | | var limiteSup = franja.HastaBpc.HasValue |
| | 19 | 79 | | ? franja.HastaBpc.Value * bpcMensual |
| | 19 | 80 | | : decimal.MaxValue; |
| | | 81 | | |
| | 19 | 82 | | var ancho = limiteSup - limiteInf; |
| | 19 | 83 | | var montoEnFranja = Math.Min(restante, ancho); |
| | 19 | 84 | | var impuestoFranja = montoEnFranja * franja.Tasa; |
| | | 85 | | |
| | 19 | 86 | | if (montoEnFranja > 0) |
| | | 87 | | { |
| | 19 | 88 | | detalles.Add(new DetalleFranjaResultado |
| | 19 | 89 | | { |
| | 19 | 90 | | FranjaId = franja.FranjaId, |
| | 19 | 91 | | NumeroFranja = franja.NumeroFranja, |
| | 19 | 92 | | BaseFranja = montoEnFranja, |
| | 19 | 93 | | Tasa = franja.Tasa, |
| | 19 | 94 | | Impuesto = impuestoFranja |
| | 19 | 95 | | }); |
| | | 96 | | |
| | 19 | 97 | | totalIrpf += impuestoFranja; |
| | | 98 | | } |
| | | 99 | | |
| | 19 | 100 | | restante -= ancho; |
| | | 101 | | } |
| | | 102 | | |
| | 13 | 103 | | return (totalIrpf, detalles); |
| | | 104 | | } |
| | | 105 | | |
| | | 106 | | /// <summary> |
| | | 107 | | /// Calcula IRPF con el enfoque de crédito fiscal (igual a FoxPro IRPF_DED.PRG): |
| | | 108 | | /// 1. Aplica franjas sobre el ingreso BRUTO → IRPF bruto |
| | | 109 | | /// 2. Crédito = (aportes + hijos + cónyuge) × tasa_crédito (8% ó 10%) |
| | | 110 | | /// 3. IRPF final = max(0, IRPF bruto − crédito) |
| | | 111 | | /// |
| | | 112 | | /// Tasa de crédito: 8% si ingreso >= 15 BPC, 10% si ingreso < 15 BPC. |
| | | 113 | | /// (TasaDeduccionAlta=8%, TasaDeduccionBaja=10% en parámetros del período) |
| | | 114 | | /// </summary> |
| | | 115 | | public ResultadoIrpf Calcular(CalcularIrpfRequest request) |
| | | 116 | | { |
| | 9 | 117 | | var bpcMensual = request.Parametros.BpcMensual; |
| | | 118 | | |
| | | 119 | | // 1. IRPF bruto aplicando franjas sobre ingreso completo (sin restar deducciones) |
| | 9 | 120 | | var (irpfBruto, detalleFranjas) = AplicarFranjas( |
| | 9 | 121 | | request.IngresoGravados, |
| | 9 | 122 | | request.Franjas, |
| | 9 | 123 | | bpcMensual); |
| | | 124 | | |
| | | 125 | | // 2. Deducciones: aportes + dependientes (profesional = 0 por defecto) |
| | 9 | 126 | | var deducciones = CalcularDeducciones( |
| | 9 | 127 | | request.IngresoGravados, |
| | 9 | 128 | | request.Montepio, |
| | 9 | 129 | | request.Fonasa, |
| | 9 | 130 | | request.Frl, |
| | 9 | 131 | | request.Deducciones, |
| | 9 | 132 | | request.Parametros); |
| | | 133 | | |
| | 9 | 134 | | var totalDeducciones = deducciones.Aportes + deducciones.Hijos + deducciones.Conyuge + deducciones.Profesional; |
| | | 135 | | |
| | | 136 | | // 3. Tasa de crédito: 8% si ingreso >= 15 BPC, 10% si menor |
| | 9 | 137 | | var umbral15Bpc = request.Parametros.UmbralDeduccionBpc * bpcMensual; |
| | 9 | 138 | | var tasaCredito = request.IngresoGravados >= umbral15Bpc |
| | 9 | 139 | | ? request.Parametros.TasaDeduccionAlta // 8% |
| | 9 | 140 | | : request.Parametros.TasaDeduccionBaja; // 10% |
| | | 141 | | |
| | | 142 | | // 4. Crédito fiscal = deducciones × tasa_crédito |
| | 9 | 143 | | var credito = totalDeducciones * tasaCredito; |
| | | 144 | | |
| | | 145 | | // 5. IRPF final |
| | 9 | 146 | | var totalIrpf = Math.Max(0m, irpfBruto - credito); |
| | | 147 | | |
| | 9 | 148 | | return new ResultadoIrpf |
| | 9 | 149 | | { |
| | 9 | 150 | | IngresoGravado = request.IngresoGravados, |
| | 9 | 151 | | Deducciones = deducciones, |
| | 9 | 152 | | TasaCredito = tasaCredito, |
| | 9 | 153 | | TotalDeducciones = totalDeducciones, |
| | 9 | 154 | | IrpfBruto = irpfBruto, |
| | 9 | 155 | | TotalIrpf = totalIrpf, |
| | 9 | 156 | | DetallePorFranja = detalleFranjas |
| | 9 | 157 | | }; |
| | | 158 | | } |
| | | 159 | | } |