X-Git-Url: http://git.cascardo.eti.br/?a=blobdiff_plain;f=lib%2Fcalcula.c;h=eac8894418d7876c2e4230a748812a85cea9c5ad;hb=9419b19aaf4cdf4ae81e92fab5c7b154cad3e17f;hp=9116868bf0e588bd5fe47ea0430e1b0f6c6648e3;hpb=6c1c229c39002932d0f842f7b5662992c5466628;p=cascardo%2Fdeclara.git

diff --git a/lib/calcula.c b/lib/calcula.c
index 9116868..eac8894 100644
--- a/lib/calcula.c
+++ b/lib/calcula.c
@@ -1,5 +1,5 @@
 /*
- *  Copyright (C) 2015  Thadeu Lima de Souza Cascardo <cascardo@minaslivre.org>
+ *  Copyright (C) 2015-2017  Thadeu Lima de Souza Cascardo <cascardo@minaslivre.org>
  *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
@@ -23,37 +23,112 @@
 #include "cmd.h"
 #include "rendimento.h"
 #include "totais.h"
+#include "util.h"
+#include "ano.h"
+#include "dependente.h"
+#include "pagamento.h"
 
-static const long long dependente2015 = 215652;
+static const long long dependente[ANO(MAX_ANOS)] = {
+	[ANO(2015)] = 215652,
+	[ANO(2016)] = 227508,
+	[ANO(2017)] = 227508,
+	[ANO(2018)] = 227508,
+};
+
+static const long long instrucao[ANO(MAX_ANOS)] = {
+	[ANO(2015)] = 337583,
+	[ANO(2016)] = 356150,
+	[ANO(2017)] = 356150,
+	[ANO(2018)] = 356150,
+};
 
 long long deducao_dependente(struct declaracao *dec)
 {
-	if (dec->ano == 2015)
-		return dependente2015;
+	if (ANO_VALIDO(dec->ano))
+		return dependente[ANO(dec->ano)];
 	return 0;
 }
 
+static void calculo_instrucao(struct declaracao *dec)
+{
+	int i, j;
+	struct dependente *d;
+	struct pagamento *p;
+	long long instrucao_titular = 0;
+	/* Instrução do titular */
+	for (i = 0; (p = list_get(dec->pagamentos, i)); i++) {
+		if (p->dependente == 0 && pagamento_instrucao(p)) {
+			instrucao_titular += (p->pagamento - p->reembolso);
+		}
+	}
+	if (instrucao_titular > instrucao[ANO(dec->ano)]) {
+		totais_add(dec, "INSTRUCAO", instrucao[ANO(dec->ano)]);
+	} else {
+		totais_add(dec, "INSTRUCAO", instrucao_titular);
+	}
+	/* Dependentes com instrução */
+	for (i = 0; (d = list_get(dec->dependentes, i)); i++) {
+		long long instrucao_dependente = 0;
+		for (j = 0; (p = list_get(dec->pagamentos, j)); j++) {
+			if (p->dependente == (i + 1) && pagamento_instrucao(p)) {
+				instrucao_dependente += (p->pagamento - p->reembolso);
+			}
+		}
+		if (instrucao_dependente) {
+			/* Conta número de dependentes com instrução. */
+			totais_add(dec, "DEPSINSTRUCAO", 1);
+			if (dec->verbose) {
+				printf("Dependente %s (%d) tem instrução\n", d->nome, i);
+			}
+		}
+		if (instrucao_dependente > instrucao[ANO(dec->ano)]) {
+			totais_add(dec, "INSTRUCAO", instrucao[ANO(dec->ano)]);
+		} else {
+			totais_add(dec, "INSTRUCAO", instrucao_dependente);
+		}
+	}
+}
+
 /* Alguns totais precisam ser limitados. Portanto, um total de decuções
  * precisa ser ajustado para tais limites. Esta função considerará tais
  * limites no futuro. */
 static long long total_deducao(struct declaracao *dec)
 {
 	int i;
+
+	calculo_instrucao(dec);
+
+	if (dec->verbose) {
+		printf("Dedução:\n");
+		printf("\tDependentes: "FMT_R"\n", R(totais_get(dec, "DEPENDENTES")));
+		printf("\tINSS: "FMT_R"\n", R(totais_get(dec, "INSS")));
+		printf("\tInstrução: "FMT_R"\n", R(totais_get(dec, "INSTRUCAO")));
+		printf("\tMédicas: "FMT_R"\n", R(totais_get(dec, "MEDICAS")));
+		printf("\tPrevidência: "FMT_R"\n", R(totais_get(dec, "PREVIDENCIA")));
+		printf("\tPagamentos: "FMT_R"\n", R(totais_get(dec, "PAGAMENTOS")));
+		printf("\tReembolsos: -"FMT_R"\n", R(totais_get(dec, "REEMBOLSOS")));
+	}
 	return totais_get(dec, "DEPENDENTES") +
 	       totais_get(dec, "INSS") +
-	       totais_get(dec, "PAGAMENTOS") -
-	       totais_get(dec, "REEMBOLSOS");
+	       totais_get(dec, "INSTRUCAO") +
+	       totais_get(dec, "MEDICAS") +
+	       totais_get(dec, "PREVIDENCIA");
 }
 
 static void total_pago(struct declaracao *dec)
 {
 	struct rendimento *rendimento;
 	int i;
-	dec->pago = dec->retido = 0;
+	dec->pago = dec->retido = totais_get(dec, "PAGO");
+	dec->retido -= totais_get(dec, "CARNE");
 	for (i = 0; rendimento = list_get(dec->rendimento, i); i++) {
 		dec->pago += rendimento->imposto;
 		dec->retido += rendimento->imposto;
 	}
+	if (dec->verbose) {
+		printf("Total pago e retido: "FMT_R" "FMT_R"\n",
+			R(dec->pago), R(dec->retido));
+	}
 }
 
 struct taxtable {
@@ -71,15 +146,54 @@ static struct taxtable table2015[] = {
 	{ 9999999999999LL, 0, 0, },
 };
 
-static const long long simples2015 = 1588089;
+static struct taxtable table2016[] = {
+	{       0,    0,       0, },
+	{ 2249914,  750,  168743, },
+	{ 3347773, 1500,  419826, },
+	{ 4447675, 2250,  753402, },
+	{ 5537355, 2750, 1030270, },
+	{ 9999999999999LL, 0, 0, },
+};
+
+static struct taxtable table2017[] = {
+	{       0,    0,       0, },
+	{ 2284777,  750,  171358, },
+	{ 3391981, 1500,  425757, },
+	{ 4501261, 2250,  763351, },
+	{ 5597616, 2750, 1043232, },
+	{ 9999999999999LL, 0, 0, },
+};
+
+static struct taxtable *table[ANO(MAX_ANOS)] = {
+	[ANO(2015)] = table2015,
+	[ANO(2016)] = table2016,
+	[ANO(2017)] = table2017,
+	[ANO(2018)] = table2017,
+};
+
+static const long long simples[ANO(MAX_ANOS)] = {
+	[ANO(2015)] = 1588089,
+	[ANO(2016)] = 1675434,
+	[ANO(2017)] = 1675434,
+	[ANO(2018)] = 1675434,
+};
 
-static const long long obrigatoriedade2015 = 2681655;
+static const long long obrigatoriedade[ANO(MAX_ANOS)] = {
+	[ANO(2015)] = 2681655,
+	[ANO(2016)] = 2812391,
+	[ANO(2017)] = 2855970, /* De acordo com IN 1671/2016 */
+	[ANO(2018)] = 2855970,
+};
 
-static long long imposto(struct taxtable *tt, long long tr)
+static long long imposto(struct taxtable *tt, long long tr, int verbose)
 {
 	int i;
 	for (i = 0; tr >= tt[i].base; i++);
 	i--;
+	if (verbose) {
+		printf("Aplicando aliquota de %d%%, deduzindo " FMT_R"\n",
+			tt[i].aliquota / 10, R(tt[i].deducao));
+	}
 	return tr * tt[i].aliquota / 10000 - tt[i].deducao;
 }
 
@@ -87,48 +201,82 @@ static long long imposto_simples(struct declaracao *dec)
 {
 	struct taxtable *tt;
 	long long tr, td;
-	tt = table2015;
-	tr = totais_get(dec, "RENDPJ");
-	if (tr / 5 < simples2015)
+	tt = table[ANO(dec->ano)];
+	tr = totais_get(dec, "RENDTRIB");
+	if (tr / 5 < simples[ANO(dec->ano)])
 		td = tr / 5;
 	else
-		td = simples2015;
+		td = simples[ANO(dec->ano)];
 	totais_add(dec, "DESCONTO", td);
 	tr -= td;
-	totais_add(dec, "BASE", tr);
-	return imposto(tt, tr);
+	if (tr < 0)
+		tr = 0;
+	totais_add(dec, "BASESIMPLES", tr);
+	if (dec->verbose) {
+		printf("Desconto simplificado é "FMT_R"\n", R(td));
+	}
+	return imposto(tt, tr, dec->verbose);
 }
 
 static long long imposto_completa(struct declaracao *dec)
 {
 	struct taxtable *tt;
 	long long tr, td;
-	if (dec->ano != 2015) {
-		return -EINVAL;
-	}
-	tt = table2015;
-	tr = totais_get(dec, "RENDPJ");
+	tt = table[ANO(dec->ano)];
+	tr = totais_get(dec, "RENDTRIB");
 	td = total_deducao(dec);
+	totais_add(dec, "DEDUCOES", td);
 	tr -= td;
-	return imposto(tt, tr);
+	if (tr < 0)
+		tr = 0;
+	totais_add(dec, "BASECOMPLETA", tr);
+	if (dec->verbose) {
+		printf("Desconto completa é "FMT_R"\n", R(td));
+	}
+	return imposto(tt, tr, dec->verbose);
 }
 
 int calcula(struct declaracao *dec)
 {
 	long long i_simples, i_completa;
-	if (dec->ano != 2015) {
+	if (!ANO_VALIDO(dec->ano)) {
+		dec_set_error(dec, "Ano %d não suportado.", dec->ano);
 		return -EINVAL;
 	}
-	if (totais_get(dec, "RENDPJ") > obrigatoriedade2015)
-		dec->obrigatoria = 1;
+	if (totais_get(dec, "RENDTRIB") > obrigatoriedade[ANO(dec->ano)]) {
+		if (dec->verbose) {
+			printf("Declaracao obrigatoria pois rendimento e"
+				"maior que mínimo para declaracao: "
+				FMT_R" > "FMT_R"\n",
+				R(totais_get(dec, "RENDTRIB")),
+				R(obrigatoriedade[ANO(dec->ano)]));
+		}
+		dec->obrigatoria += 1;
+	}
+	if (totais_get(dec, "BENS") > 30000000) {
+		if (dec->verbose) {
+			printf("Declaracao obrigatoria pois bens e direitos e"
+				" maior que minimo para declaracao: "
+				FMT_R" > "FMT_R"\n",
+				R(totais_get(dec, "BENS")),
+				R(30000000));
+		}
+		dec->obrigatoria += 32;
+	}
 	i_simples = imposto_simples(dec);
 	i_completa = imposto_completa(dec);
 	total_pago(dec);
+	if (dec->verbose) {
+		printf("Imposto simplificada e completa: "FMT_R" "FMT_R"\n",
+			R(i_simples), R(i_completa));
+	}
 	if (dec->tipo != FORCA_SIMPLES &&
 	    (i_simples > i_completa || dec->tipo == FORCA_COMPLETA)) {
+		totais_add(dec, "BASE", totais_get(dec, "BASECOMPLETA"));
 		dec->tipo = COMPLETA;
 		dec->devido = i_completa;
 	} else {
+		totais_add(dec, "BASE", totais_get(dec, "BASESIMPLES"));
 		dec->tipo = SIMPLES;
 		dec->devido = i_simples;
 	}
@@ -136,6 +284,7 @@ int calcula(struct declaracao *dec)
 		dec->restituicao = dec->pago - dec->devido;
 	else
 		dec->pagar = dec->devido - dec->pago;
+	dec->aliquota_efetiva = dec->devido * 10000 / totais_get(dec, "RENDTRIB");
 	return 0;
 }