private void Gera_Matriz(int _codigo_ini, int _codigo_fim, DateTime _data_vencto)
{
int _total = 0, _pos = 1, _numero_documento = 20018535; //20.003.042 até 20.030.000
DateTime _data_vencimento = Convert.ToDateTime("30/09/2022");
decimal _valor_honorario = 0;
Exception ex = null;
List <SpExtrato_carta> Lista_Resumo = new List <SpExtrato_carta>();
List <SpExtrato_carta> Lista_Final = new List <SpExtrato_carta>();
//Exclui a remessa se já existir
Tributario_bll tributario_Class = new Tributario_bll(_connection);
Sistema_bll sistema_Class = new Sistema_bll(_connection);
Imovel_bll imovel_Class = new Imovel_bll(_connection);
Empresa_bll empresa_Class = new Empresa_bll(_connection);
Cidadao_bll cidadao_Class = new Cidadao_bll(_connection);
decimal _valor_AR = tributario_Class.Retorna_Valor_Tributo(DateTime.Now.Year, 667);
List <int> _lista_codigos = tributario_Class.Lista_Codigo_Carta(_codigo_ini, _codigo_fim, _data_vencto);
PBar.Value = 0;
//ex = tributario_Class.Excluir_Carta_Cobranca(_remessa);
//if (ex != null) {
// ErrorBox eBox = new ErrorBox("Atenção", ex.Message, ex);
// eBox.ShowDialog();
//}
_total = _lista_codigos.Count;
_lista_codigos.Sort();
foreach (int _codigo_atual in _lista_codigos)
{
if (_stop)
{
break;
}
if (_pos % 2 == 0)
{
PBar.Value = _pos * 100 / _total;
PBar.Update();
Refresh();
Application.DoEvents();
}
if (_codigo_atual > 100000 && _codigo_atual < 300000)
{
if (empresa_Class.EmpresaSuspensa(_codigo_atual))
{
goto Proximo;
}
}
List <SpExtrato_carta> Lista_Extrato_Tributo = tributario_Class.Lista_Extrato_Tributo_Carta(Codigo: _codigo_atual, Data_Atualizacao: _data_vencimento);
if (Lista_Extrato_Tributo.Count == 0)
{
goto Proximo;
}
List <SpExtrato_carta> Lista_Extrato_Parcela = tributario_Class.Lista_Extrato_Parcela_Carta(Lista_Extrato_Tributo);
Lista_Resumo.Clear();
List <string> _lista_lancamento = new List <string>();
string _descricao_lancamento = "";
bool _find = false;
foreach (SpExtrato_carta item in Lista_Extrato_Parcela)
{
//if ( item.Codlancamento!=5 && item.Codlancamento!=11 && item.Datavencimento <= _data_vencto) {
if (item.Codlancamento != 11 && item.Datavencimento <= _data_vencto)
{
Lista_Resumo.Add(item);
_find = false;
foreach (string lanc in _lista_lancamento)
{
if (lanc == item.Desclancamento)
{
_find = true;
break;
}
}
if (!_find)
{
_descricao_lancamento += item.Desclancamento + ", ";
_lista_lancamento.Add(item.Desclancamento);
}
}
}
_descricao_lancamento = _descricao_lancamento.Length == 0?"": _descricao_lancamento.Substring(0, _descricao_lancamento.Length - 2);
if (Lista_Resumo.Count == 0)
{
goto Proximo;
}
Lista_Final.Clear();
// int nPercDesconto = 1;
foreach (SpExtrato_carta item in Lista_Resumo)
{
_find = false;
int _index = 0;
foreach (SpExtrato_carta item2 in Lista_Final)
{
if (item.Anoexercicio == item2.Anoexercicio)
{
_find = true;
break;
}
_index++;
}
decimal _valor_juros = 0;
decimal _valor_multa = 0;
//decimal _valor_juros = item.Valorjuros * nPercDesconto;
//decimal _valor_multa = item.Valormulta * nPercDesconto;
if (_find)
{
Lista_Final[_index].Valortributo += item.Valortributo;
Lista_Final[_index].Valorjuros += _valor_juros;
Lista_Final[_index].Valormulta += _valor_multa;
Lista_Final[_index].Valorcorrecao += item.Valorcorrecao;
Lista_Final[_index].Valortotal += item.Valortributo + _valor_juros + _valor_multa + item.Valorcorrecao;
}
else
{
SpExtrato_carta reg = new SpExtrato_carta();
reg.Codreduzido = item.Codreduzido;
reg.Anoexercicio = item.Anoexercicio;
reg.Valortributo = item.Valortributo;
reg.Valorjuros = _valor_juros;
reg.Valormulta = _valor_multa;
reg.Valorcorrecao = item.Valorcorrecao;
reg.Valortotal = item.Valortributo + _valor_juros + _valor_multa + item.Valorcorrecao;
reg.Dataajuiza = item.Dataajuiza;
Lista_Final.Add(reg);
}
}
if (Lista_Final.Count == 0)
{
goto Proximo;
}
//Soma o boleto
decimal _valor_boleto = 0;
foreach (SpExtrato_carta item in Lista_Final)
{
_valor_boleto += Math.Round(item.Valortributo, 2, MidpointRounding.AwayFromZero) + item.Valormulta + item.Valorjuros + Math.Round(item.Valorcorrecao, 2, MidpointRounding.AwayFromZero);
}
//Honorários
_valor_honorario = 0;
foreach (SpExtrato_carta item in Lista_Resumo)
{
if (item.Dataajuiza != null)
{
_valor_honorario += ((item.Valortributo + item.Valorcorrecao) * 10) / 100;
}
}
//AR
_valor_AR = 0;
//foreach (SpExtrato_carta item in Lista_Extrato_Parcela) {
// if (item.Anoexercicio == 2019 && item.Codlancamento == 78) {
// _valor_AR += item.Valortributo;
// Parceladocumento RegParcAR = new Parceladocumento {
// Codreduzido = _codigo_atual,
// Anoexercicio = item.Anoexercicio,
// Codlancamento = 78,
// Seqlancamento = item.Seqlancamento,
// Numparcela = (byte)item.Numparcela,
// Codcomplemento = item.Codcomplemento,
// Numdocumento = _numero_documento,
// Plano = 39
// };
// ex = tributario_Class.Insert_Parcela_Documento(RegParcAR);
// }
//}
//Carta_cobranca_detalhe RegDetAR = new Carta_cobranca_detalhe {
// Codigo = _codigo_atual,
// Remessa = _remessa,
// Ano = 2,
// Parcela = 1,
// Principal = _valor_AR,
// Juros = 0,
// Multa = 0,
// Correcao = 0,
// Total = _valor_AR,
// Ordem = 3
//};
//if (_valor_AR > 0)
// ex = tributario_Class.Insert_Carta_Cobranca_Detalhe(RegDetAR);
_valor_boleto = Convert.ToDecimal(Math.Round(_valor_boleto, 2) + Math.Round(_valor_honorario, 2, mode: MidpointRounding.AwayFromZero) + _valor_AR);
//Dados contribuinte
string _nome = "", _cpfcnpj = "", _endereco = "", _bairro = "", _cidade = "", _cep = "", _inscricao = "", _lote = "", _quadra = "", _atividade = "";
string _convenio = "2873532", _complemento = "", _complemento_entrega = "", _endereco_entrega = "", _bairro_entrega = "", _cidade_entrega = "", _cep_entrega = "";
Contribuinte_Header_Struct dados = sistema_Class.Contribuinte_Header(_codigo_atual);
if (dados == null)
{
goto Proximo;
}
TipoCadastro _tipo = dados.Tipo;
_nome = dados.Nome;
_cpfcnpj = dados.Cpf_cnpj;
_inscricao = dados.Inscricao;
_complemento = dados.Complemento == "" ? "" : " " + dados.Complemento;
_endereco = dados.Endereco + ", " + dados.Numero.ToString() + _complemento;
_bairro = dados.Nome_bairro;
_cidade = dados.Nome_cidade + "/" + dados.Nome_uf;
_cep = dados.Cep;
_lote = dados.Lote_original;
_quadra = dados.Quadra_original;
_atividade = dados.Atividade;
if (_tipo == TipoCadastro.Empresa && !dados.Ativo)
{
goto Proximo;
}
//Endereço de Entrega
if (_tipo == TipoCadastro.Imovel)
{
EnderecoStruct endImovel = imovel_Class.Dados_Endereco(_codigo_atual, dados.TipoEndereco);
_complemento_entrega = endImovel.Complemento == "" ? "" : " " + endImovel.Complemento;
_endereco_entrega = endImovel.Endereco + ", " + endImovel.Numero.ToString() + _complemento_entrega;
_bairro_entrega = endImovel.NomeBairro;
_cidade_entrega = endImovel.NomeCidade + "/" + endImovel.UF;
_cep_entrega = endImovel.Cep;
}
else
{
if (_tipo == TipoCadastro.Empresa)
{
EmpresaStruct endEmpresa = empresa_Class.Retorna_Empresa(_codigo_atual);
//mobiliarioendentrega endEmpresa = empresa_Class.Empresa_Endereco_entrega(_codigo_atual);
_complemento_entrega = endEmpresa.Complemento == "" ? "" : " " + endEmpresa.Complemento;
_endereco_entrega = endEmpresa.Nome_logradouro + ", " + endEmpresa.Numero.ToString() + _complemento;
_bairro_entrega = endEmpresa.Bairro_nome;
_cidade_entrega = endEmpresa.Cidade_nome + "/" + endEmpresa.UF;
_cep_entrega = endEmpresa.Cep;
if (String.IsNullOrWhiteSpace(endEmpresa.Nome_logradouro))
{
_endereco_entrega = _endereco;
_bairro_entrega = _bairro;
_cidade_entrega = _cidade;
_cep_entrega = _cep;
}
}
else
{
if (_tipo == TipoCadastro.Cidadao)
{
CidadaoStruct endCidadao = cidadao_Class.LoadReg(_codigo_atual);
if (endCidadao.EtiquetaR == "S" || endCidadao.EtiquetaR == null)
{
_complemento_entrega = endCidadao.ComplementoR == "" ? "" : " " + endCidadao.ComplementoR;
_endereco_entrega = endCidadao.EnderecoR + ", " + endCidadao.NumeroR.ToString() + _complemento_entrega;
_bairro_entrega = endCidadao.NomeBairroR;
_cidade_entrega = endCidadao.NomeCidadeR + "/" + endCidadao.UfR;
_cep_entrega = endCidadao.CepR.ToString();
}
else
{
_complemento_entrega = endCidadao.ComplementoC == "" ? "" : " " + endCidadao.ComplementoC;
_endereco_entrega = endCidadao.EnderecoC + ", " + endCidadao.NumeroC.ToString() + _complemento_entrega;
_bairro_entrega = endCidadao.NomeBairroC;
_cidade_entrega = endCidadao.NomeCidadeC + "/" + endCidadao.UfC;
_cep_entrega = endCidadao.CepR.ToString();
}
_endereco = _endereco_entrega;
_bairro = _bairro_entrega;
_cidade = _cidade_entrega;
_cep = _cep_entrega;
}
}
}
string _cep_str = gtiCore.RetornaNumero(_cep_entrega);
int _cep_numero = Convert.ToInt32(_cep_str);
_cep_entrega = _cep_numero.ToString("00000-000");
//Se não tiver CEP ou CPF grava exclusão e passa para o próximo
if (string.IsNullOrWhiteSpace(_cpfcnpj) || string.IsNullOrWhiteSpace(_cep_entrega) || _cep_entrega == "00000-000" || _cep_entrega == "14870-000" || string.IsNullOrWhiteSpace(_endereco_entrega))
{
Carta_cobranca_exclusao regE = new Carta_cobranca_exclusao();
regE.Remessa = _remessa;
regE.Codigo = _codigo_atual;
ex = tributario_Class.Insert_Carta_Cobranca_Exclusao(regE);
if (ex != null)
{
ErrorBox eBox = new ErrorBox("Atenção", ex.Message, ex);
eBox.ShowDialog();
}
goto Proximo;
}
//***** GERA CÓDIGO DE BARRAS BOLETO REGISTRADO*****
DateTime _data_base = Convert.ToDateTime("07/10/1997");
TimeSpan ts = _data_vencimento - _data_base;
int _fator_vencto = ts.Days;
string _quinto_grupo = String.Format("{0:D4}", _fator_vencto);
string _valor_boleto_str = string.Format("{0:0.00}", _valor_boleto);
_quinto_grupo += string.Format("{0:D10}", Convert.ToInt64(gtiCore.RetornaNumero(_valor_boleto_str)));
string _barra = "0019" + _quinto_grupo + String.Format("{0:D13}", Convert.ToInt32(_convenio));
_barra += String.Format("{0:D10}", _numero_documento) + "17";
string _campo1 = "0019" + _barra.Substring(19, 5);
string _digitavel = _campo1 + gtiCore.Calculo_DV10(_campo1).ToString();
string _campo2 = _barra.Substring(23, 10);
_digitavel += _campo2 + gtiCore.Calculo_DV10(_campo2).ToString();
string _campo3 = _barra.Substring(33, 10);
_digitavel += _campo3 + gtiCore.Calculo_DV10(_campo3).ToString();
string _campo5 = _quinto_grupo;
string _campo4 = gtiCore.Calculo_DV11(_barra).ToString();
_digitavel += _campo4 + _campo5;
_barra = _barra.Substring(0, 4) + _campo4 + _barra.Substring(4, _barra.Length - 4);
//**Resultado final**
string _linha_digitavel = _digitavel.Substring(0, 5) + "." + _digitavel.Substring(5, 5) + " " + _digitavel.Substring(10, 5) + "." + _digitavel.Substring(15, 6) + " ";
_linha_digitavel += _digitavel.Substring(21, 5) + "." + _digitavel.Substring(26, 6) + " " + _digitavel.Substring(32, 1) + " " + gtiCore.StringRight(_digitavel, 14);
string _codigo_barra = gtiCore.Gera2of5Str(_barra);
//**************************************************
//_descricao_lancamento += ", AR-DIGITAL";
//if (_valor_honorario > 0)
// _descricao_lancamento += ", DESPESAS JUDICIAIS";
//****** GRAVA DOCUMENTO ****************
Numdocumento RegDoc = new Numdocumento {
numdocumento = _numero_documento,
Datadocumento = DateTime.Now,
Valorguia = _valor_boleto,
Emissor = "GTI/CCob",
Registrado = true,
Percisencao = 100,
Userid = 508
};
ex = tributario_Class.Insert_Documento_Existente(RegDoc);
//****** GRAVA HEADER **************
Carta_cobranca Reg = new Carta_cobranca();
Reg.Remessa = _remessa;
Reg.Codigo = _codigo_atual;
Reg.Parcela = 1;
Reg.Total_Parcela = 1;
Reg.Parcela_Label = Reg.Parcela.ToString("00") + "/" + Reg.Total_Parcela.ToString("00");
Reg.Nome = _nome.Length > 50 ? _nome.Substring(0, 50) : _nome;
Reg.Cpf_cnpj = _cpfcnpj;
Reg.Endereco = _endereco;
Reg.Bairro = _bairro ?? "";
Reg.Cidade = _cidade ?? "";
Reg.Cep = _cep ?? "";
Reg.Endereco_Entrega = _endereco_entrega;
Reg.Bairro_Entrega = _bairro_entrega ?? "";
Reg.Cidade_Entrega = _cidade_entrega ?? "";
Reg.Cep_Entrega = _cep_entrega;
Reg.Data_Vencimento = _data_vencimento;
Reg.Data_Documento = DateTime.Now;
Reg.Inscricao = _inscricao;
Reg.Lote = _lote.Length > 15 ? _lote.Substring(0, 15) : _lote;
Reg.Quadra = _quadra.Length > 15 ? _quadra.Substring(0, 15) : _quadra;
Reg.Atividade = _atividade.Length > 50 ? _atividade.Substring(0, 50) : _atividade;
Reg.Numero_Documento = _numero_documento;
Reg.Nosso_Numero = _convenio + _numero_documento.ToString("0000000000");
Reg.Valor_Boleto = _valor_boleto;
Reg.Digitavel = _linha_digitavel;
Reg.Codbarra = _codigo_barra;
Reg.Cep_entrega_cod = _cep_numero;
Reg.Lancamento = _descricao_lancamento;
ex = tributario_Class.Insert_Carta_Cobranca(Reg);
if (ex != null)
{
ErrorBox eBox = new ErrorBox("Atenção", ex.Message, ex);
eBox.ShowDialog();
}
//****** GRAVA DETALHE**************
foreach (SpExtrato_carta item in Lista_Final)
{
Carta_cobranca_detalhe RegDet2 = new Carta_cobranca_detalhe {
Codigo = _codigo_atual,
Remessa = _remessa,
Ano = item.Anoexercicio,
Parcela = 1,
Principal = item.Valortributo,
Juros = item.Valorjuros,
Multa = item.Valormulta,
Correcao = item.Valorcorrecao,
Total = item.Valortotal,
Ordem = 1
};
ex = tributario_Class.Insert_Carta_Cobranca_Detalhe(RegDet2);
if (ex != null)
{
ErrorBox eBox = new ErrorBox("Atenção", ex.Message, ex);
eBox.ShowDialog();
}
}
//****** GRAVA PARCELA x DOCUMENTO*******
foreach (SpExtrato_carta item in Lista_Resumo)
{
Parceladocumento RegParc = new Parceladocumento {
Codreduzido = item.Codreduzido,
Anoexercicio = item.Anoexercicio,
Codlancamento = item.Codlancamento,
Seqlancamento = item.Seqlancamento,
Numparcela = Convert.ToByte(item.Numparcela),
Codcomplemento = item.Codcomplemento,
Numdocumento = _numero_documento,
Plano = 39
};
ex = tributario_Class.Insert_Parcela_Documento(RegParc);
if (ex != null)
{
ErrorBox eBox = new ErrorBox("Atenção", ex.Message, ex);
eBox.ShowDialog();
}
}
//********* GRAVA A.R. ***********
//short _maxSeqAR = tributario_Class.Retorna_Ultima_Seq_AR(_codigo_atual, DateTime.Now.Year);
//_maxSeqAR++;
//Debitoparcela regParcelaAR = new Debitoparcela {
// Codreduzido = _codigo_atual,
// Anoexercicio = Convert.ToInt16(DateTime.Now.Year),
// Codlancamento = 78,
// Seqlancamento = _maxSeqAR,
// Numparcela = 1,
// Codcomplemento = 0,
// Statuslanc = 3,
// Datadebase = DateTime.Now,
// Datavencimento = _data_vencimento,
// Userid = 508
//};
//ex = tributario_Class.Insert_Debito_Parcela(regParcelaAR);
//Debitotributo regTributoAR = new Debitotributo {
// Codreduzido = _codigo_atual,
// Anoexercicio = Convert.ToInt16(DateTime.Now.Year),
// Codlancamento = 78,
// Seqlancamento = _maxSeqAR,
// Numparcela = 1,
// Codcomplemento = 0,
// Codtributo = 667,
// Valortributo = _valor_AR
//};
//ex = tributario_Class.Insert_Debito_Tributo(regTributoAR);
//*************************************
//********* GRAVA HONORÁRIO ***********
if (_valor_honorario > 0)
{
short _maxSeq = tributario_Class.Retorna_Ultima_Seq_Honorario(_codigo_atual, DateTime.Now.Year);
_maxSeq++;
Debitoparcela regParcela = new Debitoparcela {
Codreduzido = _codigo_atual,
Anoexercicio = Convert.ToInt16(DateTime.Now.Year),
Codlancamento = 41,
Seqlancamento = _maxSeq,
Numparcela = 1,
Codcomplemento = 0,
Statuslanc = 3,
Datadebase = DateTime.Now,
Datavencimento = _data_vencimento,
Userid = 236
};
ex = tributario_Class.Insert_Debito_Parcela(regParcela);
Debitotributo regTributo = new Debitotributo {
Codreduzido = _codigo_atual,
Anoexercicio = Convert.ToInt16(DateTime.Now.Year),
Codlancamento = 41,
Seqlancamento = _maxSeq,
Numparcela = 1,
Codcomplemento = 0,
Codtributo = 90,
Valortributo = _valor_honorario
};
ex = tributario_Class.Insert_Debito_Tributo(regTributo);
Parceladocumento RegParc = new Parceladocumento {
Codreduzido = _codigo_atual,
Anoexercicio = Convert.ToInt16(DateTime.Now.Year),
Codlancamento = 41,
Seqlancamento = _maxSeq,
Numparcela = 1,
Codcomplemento = 0,
Numdocumento = _numero_documento,
Plano = 39
};
ex = tributario_Class.Insert_Parcela_Documento(RegParc);
}
//*************************************
Carta_cobranca_detalhe RegDet = new Carta_cobranca_detalhe {
Codigo = _codigo_atual,
Remessa = _remessa,
Ano = 1,
Parcela = 1,
Principal = _valor_honorario,
Juros = 0,
Multa = 0,
Correcao = 0,
Total = _valor_honorario,
Ordem = 2
};
if (_valor_honorario > 0)
{
ex = tributario_Class.Insert_Carta_Cobranca_Detalhe(RegDet);
}
_numero_documento++;
Proximo :;
_pos++;
}
PBar.Value = 100;
return;
}