/*
- * Copyright (C) 2015-2016 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
#include "declaracao.h"
#include "cmd.h"
#include "rendimento.h"
+#include "carne.h"
#include "isento.h"
#include "pagamento.h"
#include "bem.h"
fprintf(f, "2500"); /* Código */
else if (dec->ano == 2016)
fprintf(f, "2600"); /* Código */
+ else if (dec->ano == 2017)
+ fprintf(f, "2700"); /* Código */
+ else if (dec->ano == 2018)
+ fprintf(f, "2800"); /* Código */
fprintf(f, "%s", dec->retifica ? "1" : "0"); /* Retificadora */
fprintf(f, "%s", dec->cpf); /* CPF: 11 dígitos */
fprintf(f, " "); /* Filler */
fprintf(f, "130"); /* Versão IRPF */
else if (dec->ano == 2016)
fprintf(f, "110"); /* Versão IRPF */
+ else if (dec->ano == 2017)
+ fprintf(f, "110"); /* Versão IRPF */
+ else if (dec->ano == 2018)
+ fprintf(f, "100"); /* Versão IRPF */
fprintf(f, "%-60.60s", dec->nome);
fprintf(f, "%-2.2s", dec->contribuinte.uf ?: "");
fprintf(f, "%s", "0000000000"); /* FIXME: hash */
* anterior, se não 1. */
fprintf(f, "%d", dec->retifica ? 0 : (dec->recibo ? 2 : 1));
/* Indicador imposto pago, TODO: carnê leão e Lei 11.033. */
- fprintf(f, "%02d", dec->retido ? 1 : 0);
+ fprintf(f, "%02d", totais_get(dec, "CARNE") > 0 ? 7 :
+ (dec->retido ? 1 : 0));
/* Indicador imposto antecipado, TODO: carnê leão, Lei 11.033,
* outros. */
fprintf(f, "%d", dec->retido ? 1 : 0);
fprintf(f, "%-14.14s", rendimento_cnpj_ordenado(dec, 1)); /* CNPJ maior 2 */
fprintf(f, "%-14.14s", rendimento_cnpj_ordenado(dec, 2)); /* CNPJ maior 3 */
fprintf(f, "%-14.14s", rendimento_cnpj_ordenado(dec, 3)); /* CNPJ maior 4 */
- /* CPF e DN de dependentes 1 a 6 */
- for (i = 1; i <= 6; i++) {
- struct dependente *dependente = list_get(dec->dependentes, i - 1);
- if (dependente && dependente->cpf && dependente->cpf[0]) {
- fprintf(f, "%-11.11s", dependente->cpf);
- } else {
- fprintf(f, "%-11.11s", "");
- }
- if (dependente && dependente->dn && dependente->dn[0]) {
- fprintf(f, "%-8.8s", dependente->dn);
- } else {
- fprintf(f, "%-8.8s", "");
+ if (dec->ano < 2017) {
+ /* CPF e DN de dependentes 1 a 6 */
+ for (i = 1; i <= 6; i++) {
+ struct dependente *dependente = list_get(dec->dependentes, i - 1);
+ if (dependente && dependente->cpf && dependente->cpf[0]) {
+ fprintf(f, "%-11.11s", dependente->cpf);
+ } else {
+ fprintf(f, "%-11.11s", "");
+ }
+ if (dependente && dependente->dn && dependente->dn[0]) {
+ fprintf(f, "%-8.8s", dependente->dn);
+ } else {
+ fprintf(f, "%-8.8s", "");
+ }
}
+ } else {
+ fprintf(f, "%-114.114s", "");
}
/* medico maior, TODO: outros códigos */
fprintf(f, "%-14.14s", medico_cnpj_ordenado(dec, 0));
fprintf(f, "%-11.11s", ""); /* CPF inventariante */
fprintf(f, "%-40.40s", dec->contribuinte.municipio);
fprintf(f, "%-60.60s", dec->nome);
- fprintf(f, "%-11.11s", ""); /* CPF empregada */
+ if (dec->ano >= 2017)
+ fprintf(f, "%010u ", crc32(0, dec->cpf, 11)); /* hash CPF */
+ else
+ fprintf(f, "%-11.11s", ""); /* CPF empregada, FILLER */
fprintf(f, "%-12.12s", sistema_get_mac(dec));
fprintf(f, "%08d", 0); /* Data saída */
fprintf(f, "%-11.11s", ""); /* CPF procurador */
fprintf(f, "%03d", dec->obrigatoria); /* criterio obrigatoriedade */
- fprintf(f, "%013lld", totais_get(dec, "RENDPJ")); /* Total tributavel */
+ fprintf(f, "%013lld", totais_get(dec, "RENDTRIB")); /* Total tributavel */
/* CNPJ previdencia */
fprintf(f, "%-14.14s", inss_cnpj_ordenado(dec, 0));
/* CNPJ previdencia 2 */
/* Mudanças de 2016 */
- if (dec->ano == 2016) {
+ if (dec->ano >= 2016) {
/* CNPJ maior pagamento dedutível */
fprintf(f, "%-14.14s", pagamento_cnpj_ordenado(dec, 0));
/* CNPJ maior pagamento dedutível */
fprintf(f, "%-100.100s", ""); /* FILLER3 */
fprintf(f, "%-4.4s", ""); /* FILLER1 */
fprintf(f, "%-8.8s", ""); /* FILLER2 */
- } else if (dec->ano == 2016) {
+ } else if (dec->ano >= 2016) {
fprintf(f, "%-90.90s", ""); /* FILLER3 */
/* TODO: NIT/PIS/PASEP de Pessoa Física no exterior */
- fprintf(f, "%-11.11s", "");
+ fprintf(f, "%-11.11s", dec->contribuinte.nit ?: "");
/* CPF do cônjuge */
fprintf(f, "%-11.11s", dec->conjuge.cpf ?: "");
}
- fprintf(f, "%-4.4s", dec->contribuinte.ddd ?: "");
- fprintf(f, "%-9.9s", dec->contribuinte.telefone ?: "");
+ if (dec->ano <= 2017) {
+ fprintf(f, "%-4.4s", dec->contribuinte.ddd ?: "");
+ fprintf(f, "%-9.9s", dec->contribuinte.telefone ?: "");
+ } else {
+ fprintf(f, "%-13.13s", ""); /* FILLER */
+ }
fprintf(f, "%-8.8s", dec->contribuinte.dn);
fprintf(f, "%-13.13s", dec->contribuinte.titulo_eleitor ?: "");
fprintf(f, "%03d", dec->contribuinte.ocupacao_principal);
fprintf(f, "%-10.10s", dec->recibo ?: ""); /* Recibo última declaração ano anterior */
fprintf(f, "A"); /* Declaração de Ajuste */
fprintf(f, "%-11.11s", ""); /* TODO: CPF procurador */
- if (dec->ano == 2016)
+ if (dec->ano >= 2016)
fprintf(f, "%-20.20s", ""); /* TODO: registro profissional */
+ if (dec->ano >= 2017) {
+ fprintf(f, "%-11.11s", dec->contribuinte.celular ?: ""); /* celular */
+ fprintf(f, "%s", dec->conjuge.cpf ? "S" : "N");
+ }
+ if (dec->ano >= 2018) {
+ fprintf(f, "%-2.2s%-9.9s", dec->contribuinte.ddd ?: "", dec->contribuinte.telefone ?: "");
+ }
}
static void gera_simples(struct declaracao *dec, FILE *f)
fprintf(f, "%013lld", 0); /* TODO: retido na fonte (Lei 11.033) */
fprintf(f, "%013lld", 0); /* TODO: 13o. dependentes */
fprintf(f, "%013lld", 0); /* TODO: lucros dependentes */
- /* O IRPF imprime 0 aqui mesmo com doações e poupança. */
+ /* BUG IRPF: O IRPF imprime 0 aqui mesmo com doações e poupança. */
+ /* fprintf(f, "%013lld", totais_get(dec, "ISENTOSDEP")); */
fprintf(f, "%013lld", 0); /* isentos dependentes */
fprintf(f, "%013lld", totais_get(dec, "EXCLUSIVOSDEP")); /* exclusivos dependentes */
fprintf(f, "%-13.13s", ""); /* FILLER */
fprintf(f, "%-13.13s", ""); /* FILLER */
- fprintf(f, "%013lld", 0); /* TODO: rendimentos PF */
- fprintf(f, "%013lld", 0); /* TODO: rendimentos PF dependentes */
- fprintf(f, "%013lld", 0); /* TODO: rendimentos PF exterior */
- fprintf(f, "%013lld", 0); /* TODO: rendimentos PF ext. depend. */
- fprintf(f, "%013lld", 0); /* TODO: carnê-leão PF? */
- fprintf(f, "%013lld", 0); /* TODO: carnê-leão dependentes */
+ fprintf(f, "%013lld", totais_get(dec, "RENDPFTIT")); /* rendimentos PF titular */
+ fprintf(f, "%013lld", totais_get(dec, "RENDPFDEP")); /* rendimentos PF dependentes */
+ fprintf(f, "%013lld", totais_get(dec, "RENDEXTTIT")); /* FIXME: rendimentos PF exterior titular */
+ fprintf(f, "%013lld", totais_get(dec, "RENDEXTDEP")); /* FIXME: rendimentos PF ext. depend. */
+
+ /* FIXME: um teste demonstra que não há valor quando existem rendimentos de PF para o titular */
+ /* totais_get(dec, "RENDPF")); */
+ /* TODO: carnê-leão PF? */
+ fprintf(f, "%013lld", totais_get(dec, "CARNETIT"));
+
+ fprintf(f, "%013lld", totais_get(dec, "CARNEDEP")); /* carnê-leão dependentes */
fprintf(f, "%013lld", totais_get(dec, "DEPENDENTES")); /* dedução dependentes */
fprintf(f, "%013lld", 0); /* TODO: previdência RRA */
fprintf(f, "%013lld", 0); /* TODO: previdência RRA dependentes */
{
fprintf(f, "18");
fprintf(f, "%s", dec->cpf); /* CPF: 11 dígitos */
- fprintf(f, "%013lld", totais_get(dec, "RENDPJ")); /* TODO: rendimentos tributáveis */
+ fprintf(f, "%013lld", totais_get(dec, "RENDTRIB")); /* rendimentos tributáveis */
/* desconto simplificado */
fprintf(f, "%013lld", totais_get(dec, "DESCONTO"));
/* base de cálculo */
fprintf(f, "%013lld", dec->devido); /* imposto devido */
fprintf(f, "%013lld", dec->retido); /* imposto retido */
fprintf(f, "%013lld", 0); /* TODO: imposto complementar */
- fprintf(f, "%013lld", 0); /* TODO: carnê-leão */
+ fprintf(f, "%013lld", totais_get(dec, "CARNE")); /* TODO: imposto pago carnê-leão */
fprintf(f, "%013lld", 0); /* TODO: imposto retido Lei 11.033 */
fprintf(f, "%013lld", dec->restituicao); /* imposto a restituir */
fprintf(f, "%013lld", dec->pagar); /* imposto pagar */
fprintf(f, "%013lld", totais_get(dec, "EXCLUSIVOS")); /* rendimentos tributação exclusiva */
if (dec->ano == 2015) {
fprintf(f, "%013lld", dec->conjuge.total); /* conjuge */
- } else if (dec->ano == 2016) {
+ } else if (dec->ano >= 2016) {
fprintf(f, "%013lld", 0); /* FILLER */
}
fprintf(f, "%013lld", 0); /* TODO: rendimento PJ dependente */
fprintf(f, "%013lld", 0); /* TODO: imposto ganhos de capital */
fprintf(f, "%013lld", totais_get(dec, "RENDPJTIT")); /* rendimento tributável PJ titular */
fprintf(f, "%013lld", 0); /* TODO: total rural */
- fprintf(f, "%013lld", dec->retido); /* imposto retido titular */
+ fprintf(f, "%013lld", dec->retido); /* FIXME: imposto retido titular */
fprintf(f, "%013lld", totais_get(dec, "BENSANTERIOR")); /* total bens ano anterior */
fprintf(f, "%013lld", totais_get(dec, "BENS")); /* total bens ano base */
fprintf(f, "%013lld", totais_get(dec, "ISENTOSTIT")); /* rendimentos isentos titular */
fprintf(f, "%013lld", totais_get(dec, "ISENTOSDEP")); /* rendimentos isentos dependentes */
fprintf(f, "%013lld", totais_get(dec, "EXCLUSIVOSTIT")); /* tributação exclusiva titular */
fprintf(f, "%013lld", totais_get(dec, "EXCLUSIVOSDEP")); /* tributação exclusiva dependentes */
- fprintf(f, "%013lld", 0); /* TODO: total não tributável */
+ fprintf(f, "%013lld", 0); /* TODO: total não tributável AR */
fprintf(f, "%013lld", 0); /* TODO: total dívidas ano anterior */
fprintf(f, "%013lld", 0); /* TODO: total dívidas ano base */
fprintf(f, "%013lld", 0); /* TODO: retido fonte Lei 11.033 */
fprintf(f, "%013lld", 0); /* TODO: tributação exclusiva, transportado */
fprintf(f, "%013lld", 0); /* TODO: ganhos líquidos renda variável */
fprintf(f, "%013lld", 0); /* TODO: parcela isenta ganhos capital */
- fprintf(f, "%013lld", 0); /* TODO: rendimentos PF exterior titular */
- fprintf(f, "%013lld", 0); /* TODO: rendimentos PF exterior dependentes */
+ fprintf(f, "%013lld", totais_get(dec, "RENDPFTIT") + totais_get(dec, "RENDEXTTIT")); /* TODO: rendimentos PF + exterior titular */
+ fprintf(f, "%013lld", totais_get(dec, "RENDPFDEP") + totais_get(dec, "RENDEXTDEP")); /* TODO: rendimentos PF exterior dependentes */
fprintf(f, "%013lld", 0); /* TODO: doações campanha */
fprintf(f, "%013lld", 0); /* TODO: rendimentos PF exigibilidade suspensa titular */
fprintf(f, "%013lld", 0); /* TODO: rendimentos PF exigibilidade suspensa dependentes */
fprintf(f, "%013lld", 0); /* TODO: imposto ganho líquido renda variável */
fprintf(f, "%013lld", 0); /* TODO: imposto devido ganho capital moeda estrangeira */
fprintf(f, "%013lld", 0); /* TODO: imposto pago exterior */
+ if (dec->ano >= 2018) {
+ fprintf(f, "%05lld", dec->aliquota_efetiva);
+ }
}
static void gera_completa(struct declaracao *dec, FILE *f)
fprintf(f, "%013lld", 0);
fprintf(f, "%013lld", totais_get(dec, "DECIMOTERCEIRO")); /* TODO: 13o titular */
fprintf(f, "%013lld", 0); /* TODO: 13o dependente */
- fprintf(f, "%05d", 0); /* TODO: dependentes com instrucao */
+ fprintf(f, "%05d", totais_get(dec, "DEPSINSTRUCAO")); /* dependentes com instrucao */
fprintf(f, "%05d", 0); /* TODO: alimentandos com instrucao */
- fprintf(f, "%013lld", 0); /* TODO: rendimentos PF titular */
+ fprintf(f, "%013lld", totais_get(dec, "RENDPFTIT")); /* TODO: rendimentos PF titular */
fprintf(f, "%013lld", 0); /* TODO: rendimentos PF dependente */
fprintf(f, "%013lld", 0); /* TODO: rendimentos PF exterior titular */
fprintf(f, "%013lld", 0); /* TODO: rendimentos PF exterior dependente */
/* IRPF-2015-1.3 gera este valor como 0, antes era dec->devido */
fprintf(f, "%013lld", 0); /* TODO: imposto devido sem rendimento exterior */
fprintf(f, "%013lld", 0); /* TODO: limite imposto pago exterior */
- if (dec->ano == 2016) {
+ if (dec->ano >= 2016) {
/* TODO: valor até o limite da FUNPRESP */
fprintf(f, "%013lld", 0);
/* TODO: valor acima do limite da FUNPRESP */
fprintf(f, "%s", dec->cpf); /* CPF: 11 dígitos */
/* FIXME: completar campos */
fprintf(f, "%013lld", totais_get(dec, "RENDPJTIT")); /* rendimentos PJ titular */
- fprintf(f, "%013lld", 0); /* TODO: rendimentos PF titular */
+ fprintf(f, "%013lld", totais_get(dec, "RENDPFTIT")); /* TODO: rendimentos PF titular */
fprintf(f, "%013lld", 0); /* TODO: rendimentos PF dependente */
fprintf(f, "%013lld", 0); /* TODO: resultado atividade rural */
- fprintf(f, "%013lld", totais_get(dec, "RENDPJ")); /* TODO: total rendimentos tributáveis */
+ fprintf(f, "%013lld", totais_get(dec, "RENDTRIB")); /* total rendimentos tributáveis */
/* TODO (2016): somar FUNPRESP até o limite */
fprintf(f, "%013lld", totais_get(dec, "INSS")); /* previdencia oficial */
/* TODO (2016): somar FUNPRESP acima do limite */
fprintf(f, "%013lld", totais_get(dec, "PREVIDENCIA")); /* previdencia privada */
fprintf(f, "%013lld", totais_get(dec, "DEPENDENTES")); /* deducao dependentes */
- fprintf(f, "%013lld", 0); /* TODO: deducao instrucao */
+ fprintf(f, "%013lld", totais_get(dec, "INSTRUCAO")); /* deducao instrucao */
fprintf(f, "%013lld", totais_get(dec, "MEDICAS")); /* despesas medicas */
fprintf(f, "%013lld", 0); /* TODO: pensao */
fprintf(f, "%013lld", 0); /* TODO: pensao escritura publica */
fprintf(f, "%013lld", dec->devido); /* TODO: imposto devido menos patronal */
fprintf(f, "%013lld", dec->devido); /* TODO: imposto devido mais RRA */
fprintf(f, "%013lld", dec->retido); /* imposto na fonte */
- fprintf(f, "%013lld", 0); /* TODO: carne leao */
+ fprintf(f, "%013lld", totais_get(dec, "RENDPF")); /* TODO: carne leao */
fprintf(f, "%013lld", 0); /* TODO: imposto complementar */
fprintf(f, "%013lld", 0); /* TODO: imposto pago exterior */
fprintf(f, "%013lld", 0); /* TODO: total dívidas ano base */
if (dec->ano == 2015) {
fprintf(f, "%013lld", dec->conjuge.total); /* conjuge */
- } else if (dec->ano == 2016) {
+ } else if (dec->ano >= 2016) {
fprintf(f, "%013lld", 0); /* FILLER */
}
fprintf(f, "%013lld", totais_get(dec, "ISENTOS")); /* rendimentos isentos */
fprintf(f, "%013lld", 0); /* TODO: imposto devido ganho capital */
fprintf(f, "%013lld", 0); /* TODO: imposto ganho líquido renda variável */
fprintf(f, "%013lld", 0); /* TODO: imposto devido ganho capital moeda estrangeira */
+ if (dec->ano >= 2018) {
+ fprintf(f, "%05lld", dec->aliquota_efetiva);
+ }
}
static void gera_isentos(struct declaracao *dec, FILE *f)
fprintf(f, "%-11.11s", dec->cpf);
fprintf(f, "%013lld", 0); /* TODO: bolsa de estudo */
fprintf(f, "%013lld", 0); /* TODO: pecúlio de previdência privada */
- fprintf(f, "%013lld", 0); /* TODO: FGTS, aviso prévio indenizado */
+ fprintf(f, "%013lld", totais_get(dec, "INDENIZACOES")); /* FGTS, aviso prévio indenizado */
fprintf(f, "%013lld", 0); /* TODO: ganho de capital isento */
fprintf(f, "%013lld", 0); /* TODO: lucros e dividendos */
fprintf(f, "%013lld", 0); /* TODO: atividade rural */
fprintf(f, "%013lld", 0); /* TODO: GC total informado */
fprintf(f, "%013lld", 0); /* TODO: GC total transportado */
fprintf(f, "%013lld", 0); /* TODO: imposto renda anos anteriores */
- fprintf(f, "%013lld", 0); /* TODO: rencimentos assalariados moeda estrangeira */
+ fprintf(f, "%013lld", 0); /* TODO: rendimentos assalariados moeda estrangeira */
fprintf(f, "%013lld", 0); /* TODO: bonificações ações */
fprintf(f, "%013lld", 0); /* TODO: médicos residentes */
fprintf(f, "%013lld", 0); /* TODO: volutários da Copa */
static int is_trailler_filler(int ano, int i)
{
+ if (ano >= 2018) {
+ return i == 29 || i == 31 || i == 33 || i == 36 || i == 37 || i == 44 || i == 82;
+ }
return i == 44;
/* Ano 2016, linha 29 é um FILLER, mas preenchida com múltiplos
* 0s. Como esta linha não é gerada na declaração de 2016, não
/* || (ano == 2016 && i == 29); */
}
+static int is_trailler_spaces(int ano, int i)
+{
+ return (ano == 2018 && i > 92);
+}
+
static int is_trailler_empty(int ano, int i)
{
return (i == 57 || i == 64 || i == 79) ||
for (i = 16; i < 100; i++) {
if (is_trailler_filler(dec->ano, i))
fprintf(f, "%-5.5s", "0"); /* FILLER */
+ else if (is_trailler_spaces(dec->ano, i))
+ fprintf(f, "%-5.5s", "");
else if (is_trailler_empty(dec->ano, i))
;
+ else if (dec->ano == 2018 && i == 92)
+ fprintf(f, "%-5s", "0");
else
fprintf(f, "%05d", dec->linhas[i]);
}
fprintf(f, "%-4.4s", dec->contribuinte.ddd ?: "");
fprintf(f, "%-9.9s", dec->contribuinte.telefone ?: "");
fprintf(f, "%s", dec->retifica ? "S" : "N"); /* Retificadora */
- fprintf(f, "%013lld", totais_get(dec, "RENDPJ")); /* Total tributavel */
+ fprintf(f, "%013lld", totais_get(dec, "RENDTRIB")); /* Total tributavel */
fprintf(f, "%013lld", dec->devido); /* Imposto devido */
fprintf(f, "%013lld", dec->restituicao); /* Imposto a restituir */
fprintf(f, "%013lld", dec->pagar); /* Imposto a pagar */
fprintf(f, "%-13.13s", dec->contacorrente ? : ""); /* numero conta */
fprintf(f, "%-2.2s", dec->dvconta ? : ""); /* DV conta */
fprintf(f, "%013lld", 0); /* TODO: imposto alienacao moeda estrangeira em especie */
+ if (dec->ano >= 2018) {
+ fprintf(f, "%-2.2s%-9.9s", dec->contribuinte.ddd ?: "", dec->contribuinte.telefone ?: "");
+ }
}
static void gera_recibotrailler(struct declaracao *dec, FILE *f)
fprintf(f, "%-11.11s", ""); /* TODO: NIT */
fprintf(f, "%013lld", p->pagamento);
fprintf(f, "%013lld", p->reembolso);
- if (dec->ano == 2016) {
+ if (dec->ano >= 2016) {
/* TODO: contribuição do ente público patrocinador (FUNPRESP?) */
fprintf(f, "%013lld", 0);
}
gera_isento(dec, f, 82);
}
+static void gera_indenizacoes(struct declaracao *dec, FILE *f)
+{
+ gera_isento(dec, f, 93);
+}
+
static void gera_plr(struct declaracao *dec, FILE *f)
{
gera_isento(dec, f, 96);
}
+static void gera_outrosisentos(struct declaracao *dec, FILE *f)
+{
+ struct isento *i;
+ int codigo = 97;
+ i = isento_get(dec, codigo, dec->linhas[codigo]);
+ gera_isento(dec, f, codigo);
+ fprintf(f, "%d", i->exclusivo == 0 ? 1 : 2);
+ fprintf(f, "%-60.60s", i->descricao);
+}
+
static void gera_poupanca(struct declaracao *dec, FILE *f)
{
gera_isento(dec, f, 98);
fprintf(f, "%-11.11s", d->cpf);
/* TODO: Indicador de saída */
fprintf(f, " ");
- if (dec->ano == 2016) {
+ if (dec->ano >= 2016) {
/* TODO: NIT/PIS/PASEP de Pessoa Física no exterior */
fprintf(f, "%-11.11s", "");
}
fprintf(f, "%05d", dec->linhas[27] + 1);
}
+static void gera_carne(struct declaracao *dec, FILE *f)
+{
+ struct carne *carne;
+ carne = list_get(dec->carne, dec->linhas[22]);
+ fprintf(f, "22");
+ fprintf(f, "%-11.11s", dec->cpf); /* Titular */
+ if (carne->dependente) {
+ struct dependente *d;
+ d = list_get(dec->dependentes, carne->dependente - 1);
+ fprintf(f, "S%-11.11s", d ? d->cpf : ""); /* CPF dependente. */
+ } else {
+ fprintf(f, "N%-11.11s", ""); /* Não é dependente. */
+ }
+ fprintf(f, "%02d", carne->mes);
+ fprintf(f, "%013lld", carne->rendimento);
+ fprintf(f, "%013lld", carne->alugueis); /* Aluguéis. */
+ fprintf(f, "%013lld", carne->outros); /* Outros. */
+ fprintf(f, "%013lld", carne->exterior); /* Exterior. */
+ fprintf(f, "%013lld", carne->caixa); /* Livro-caixa. */
+ fprintf(f, "%013lld", carne->alimentos); /* Pensão alimentícia. */
+ fprintf(f, "%013lld", carne->dependentes); /* Dedução com dependentes. */
+ fprintf(f, "%013lld", carne->previdencia); /* Previdência. */
+ fprintf(f, "%013lld", carne->base); /* Base cálculo. */
+ fprintf(f, "%013lld", carne->imposto); /* Imposto pago. */
+}
+
typedef void (gera_linha)(struct declaracao *dec, FILE *f);
static void update_hash(struct declaracao *dec, char *buf, size_t len)
static int gera(struct declaracao *dec, char *filename)
{
FILE *f;
- int r;
+ int r = 0;
int i;
struct rendimento *rendimento;
+ struct carne *carne;
struct isento *isento;
struct pagamento *pagamento;
struct bem *bem;
} while (0);
f = fopen(filename, "w");
- if (!f)
+ if (!f) {
+ r = -errno;
+ dec_set_error(dec, "Não foi possível abrir arquivo %s: %s.",
+ filename, strerror(errno));
goto out_file;
+ }
memset(dec->linhas, 0, sizeof(dec->linhas));
W(gera_header);
W(gera_contribuinte);
W(gera_rendimento);
}
+ for (i = 0; (carne = list_get(dec->carne, i)); i++) {
+ W(gera_carne);
+ }
+
if (totais_get(dec, "ISENTOS"))
W(gera_isentos);
if (totais_get(dec, "EXCLUSIVOS"))
W(fn); \
}
IW(gera_doacao, 82);
+ IW(gera_indenizacoes, 93);
IW(gera_plr, 96);
+ IW(gera_outrosisentos, 97);
IW(gera_poupanca, 98);
IW(gera_aplicacoes, 99);
static int run_gera(struct declaracao *dec, char **args, int argc)
{
- if (argc != 2)
+ if (argc != 2) {
+ dec_set_error(dec, "Comando %s recebe um nome de arquivo como parâmetro.",
+ args[0]);
return -EINVAL;
- if (!ANO_VALIDO(dec->ano))
+ }
+ if (!ANO_VALIDO(dec->ano)) {
+ dec_set_error(dec, "Comando %s não suporta ano %d.",
+ args[0], dec->ano);
return -EINVAL;
+ }
return gera(dec, args[1]);
}