internal ConfigurationParams BuscarConfiguracoes()
{
int interval = 10;
int duration = 3600;
string settings = "";
string strSQL = @"begin
select
(select to_number(t.valor) from cnf_sistema_geo t where t.campo = 'SERVICO_GEO_-_INTERVALO_DO_TIMER'),
(select to_number(t.valor) from cnf_sistema_geo t where t.campo = 'SERVICO_GEO_-_MAXIMA_DURACAO_DO_PROCESSO'),
(select t.valor from cnf_sistema_geo t where t.campo = 'SERVICO_GEO_-_CONFIGURACOES_DA_FILA')
into :intervalo, :duracao, :configuracao
from dual;
end;";
strSQL = strSQL.Replace("\r", "").Replace("\n", "");
using (Comando comando = this.banco.CriarComando(strSQL))
{
comando.AdicionarParametroSaida("intervalo", DbType.Int32);
comando.AdicionarParametroSaida("duracao", DbType.Int32);
comando.AdicionarParametroSaida("configuracao", DbType.String, 4000);
this.banco.ExecutarNonQuery(comando);
interval = Convert.ToInt32(comando.ObterValorParametro("intervalo"));
duration = Convert.ToInt32(comando.ObterValorParametro("duracao"));
settings = Convert.ToString(comando.ObterValorParametro("configuracao"));
}
return(new ConfigurationParams(interval, duration, settings));
}
internal Enquadramento Criar(Enquadramento enquadramento, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Enquadramento
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@"insert into {0}tab_fisc_enquadramento e (id, fiscalizacao, tid)
values({0}seq_tab_fisc_enquadramento.nextval, :fiscalizacao, :tid)
returning e.id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("fiscalizacao", enquadramento.FiscalizacaoId, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
enquadramento.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
#region Artigos
if (enquadramento.Artigos != null && enquadramento.Artigos.Count > 0)
{
foreach (Artigo item in enquadramento.Artigos)
{
comando = bancoDeDados.CriarComando(@"insert into {0}tab_fisc_enquadr_artig e
(id, enquadramento_id, artigo, artigo_paragrafo, combinado_artigo, combinado_artigo_paragrafo, da_do, tid)
values({0}seq_tab_fisc_enquadr_artig.nextval, :enquadramento_id, :artigo, :artigo_paragrafo, :combinado_artigo,
:combinado_artigo_paragrafo, :da_do, :tid) returning e.id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("enquadramento_id", enquadramento.Id, DbType.Int32);
comando.AdicionarParametroEntrada("artigo", item.ArtigoTexto, DbType.String);
comando.AdicionarParametroEntrada("artigo_paragrafo", item.ArtigoParagrafo, DbType.String);
comando.AdicionarParametroEntrada("combinado_artigo", item.CombinadoArtigo, DbType.String);
comando.AdicionarParametroEntrada("combinado_artigo_paragrafo", item.CombinadoArtigoParagrafo, DbType.String);
comando.AdicionarParametroEntrada("da_do", item.DaDo, DbType.String);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
item.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
}
#endregion
#endregion
Historico.Gerar(enquadramento.FiscalizacaoId, eHistoricoArtefato.fiscalizacao, eHistoricoAcao.atualizar, bancoDeDados);
Consulta.Gerar(enquadramento.FiscalizacaoId, eHistoricoArtefato.fiscalizacao, bancoDeDados);
bancoDeDados.Commit();
}
return(enquadramento);
}
internal int?Criar(SilviculturaPPFF caracterizacao, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Silvicultura
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@" insert into {0}crt_silvicultura_ppff c(id, empreendimento, atividade, fomento_tipo, area_total, tid) values(seq_crt_sil_ppf_municipio.nextval,
:empreendimento, :atividade, :fomento_tipo, :area_total, :tid ) returning c.id into :id ", EsquemaBanco);
comando.AdicionarParametroEntrada("empreendimento", caracterizacao.EmpreendimentoId, DbType.Int32);
comando.AdicionarParametroEntrada("atividade", caracterizacao.Atividade, DbType.Int32);
comando.AdicionarParametroEntrada("fomento_tipo", (int)caracterizacao.FomentoTipo, DbType.Int32);
comando.AdicionarParametroEntrada("area_total", caracterizacao.AreaTotal, DbType.Decimal);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
caracterizacao.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
#endregion
#region Municipios
if (caracterizacao.Itens != null && caracterizacao.Itens.Count > 0)
{
foreach (SilviculturaPPFFItem item in caracterizacao.Itens)
{
comando = bancoDeDados.CriarComando(@" insert into {0}crt_sil_ppf_municipio c(id, caracterizacao, municipio, tid) values(seq_crt_sil_ppf_municipio.nextval,
:caracterizacao, :municipio, :tid) returning c.id into :id ", EsquemaBanco);
comando.AdicionarParametroEntrada("caracterizacao", caracterizacao.Id, DbType.Int32);
comando.AdicionarParametroEntrada("municipio", item.Municipio.Id, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
item.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
}
#endregion
#region Histórico
Historico.Gerar(caracterizacao.Id, eHistoricoArtefatoCaracterizacao.silviculturappff, eHistoricoAcao.criar, bancoDeDados, null);
#endregion
bancoDeDados.Commit();
return(caracterizacao.Id);
}
}
internal Hashtable BuscarDadosCabecalhoRodapePDF(int ticketID, int ticketType)
{
Hashtable result = null;
string strSQL = @"
begin
select upper(to_char(c.valor)) into :GOVERNO_NOME from {0}cnf_sistema c where c.campo = 'orgaogoverno';
select upper(to_char(c.valor)) into :SECRETARIA_NOME from {0}cnf_sistema c where c.campo = 'orgaosecretaria';
select '' into :SETOR_NOME from dual;
select to_char(c.valor) into :ORGAO_CEP from {0}cnf_sistema c where c.campo = 'orgaocep';
select to_char(c.valor) into :ORGAO_CONTATO from {0}cnf_sistema c where c.campo = 'orgaotelefone';
select to_char(c.valor) into :ORGAO_ENDERECO from {0}cnf_sistema c where c.campo = 'orgaoendereco';
select to_char(c.valor) into :ORGAO_MUNICIPIO from {0}cnf_sistema c where c.campo = 'orgaomunicipio';
select to_char(c.valor) into :ORGAO_NOME from {0}cnf_sistema c where c.campo = 'orgaonome';
select to_char(c.valor) into :ORGAO_SIGLA from {0}cnf_sistema c where c.campo = 'orgaosigla';
select to_char(c.valor) into :ORGAO_UF from {0}cnf_sistema c where c.campo = 'orgaouf';
end;" ;
strSQL = strSQL.Replace("\r", "").Replace("\n", "");
strSQL = String.Format(strSQL, EsquemaOficialComPonto);
using (Comando comando = this.banco.CriarComando(strSQL))
{
comando.AdicionarParametroSaida("GOVERNO_NOME", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_CEP", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_CONTATO", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_ENDERECO", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_MUNICIPIO", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_NOME", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_SIGLA", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_UF", DbType.String, 100);
comando.AdicionarParametroSaida("SECRETARIA_NOME", DbType.String, 100);
comando.AdicionarParametroSaida("SETOR_NOME", DbType.String, 100);
//this.Conexao.Comando.AdicionarParametroEntrada("projeto", ticketID, DbType.Int32);
//this.Conexao.Comando.AdicionarParametroEntrada("tipo", ticketType, DbType.String);
this.banco.ExecutarNonQuery(comando);
result = new Hashtable();
result["GOVERNO_NOME"] = comando.ObterValorParametro("GOVERNO_NOME");
result["ORGAO_CEP"] = comando.ObterValorParametro("ORGAO_CEP");
result["ORGAO_CONTATO"] = comando.ObterValorParametro("ORGAO_CONTATO");
result["ORGAO_ENDERECO"] = comando.ObterValorParametro("ORGAO_ENDERECO");
result["ORGAO_MUNICIPIO"] = comando.ObterValorParametro("ORGAO_MUNICIPIO");
result["ORGAO_NOME"] = comando.ObterValorParametro("ORGAO_NOME");
result["ORGAO_SIGLA"] = comando.ObterValorParametro("ORGAO_SIGLA");
result["ORGAO_UF"] = comando.ObterValorParametro("ORGAO_UF");
result["SECRETARIA_NOME"] = comando.ObterValorParametro("SECRETARIA_NOME");
result["SETOR_NOME"] = comando.ObterValorParametro("SETOR_NOME");
}
return(result);
}
private Hashtable BuscarDadosCabecalhoRodapePDF(int ticketID, int ticketType)
{
Hashtable result = null;
string strSQL = @"
begin
select 'GOVERNO DO ESTADO DO ESPÍRITO SANTO' into :GOVERNO_NOME from dual;
select 'SECRETARIA DE ESTADO DA AGRICULTURA, ABASTECIMENTO, AQUICULTURA E PESCA' into :SECRETARIA_NOME from dual;
select '' into :SETOR_NOME from dual;
select to_char(c.valor) into :ORGAO_CEP from cnf_sistema c where c.campo = 'orgaocep';
select to_char(c.valor) into :ORGAO_CONTATO from cnf_sistema c where c.campo = 'orgaotelefone';
select to_char(c.valor) into :ORGAO_ENDERECO from cnf_sistema c where c.campo = 'orgaoendereco';
select to_char(c.valor) into :ORGAO_MUNICIPIO from cnf_sistema c where c.campo = 'orgaomunicipio';
select to_char(c.valor) into :ORGAO_NOME from cnf_sistema c where c.campo = 'orgaonome';
select to_char(c.valor) into :ORGAO_SIGLA from cnf_sistema c where c.campo = 'orgaosigla';
select to_char(c.valor) into :ORGAO_UF from cnf_sistema c where c.campo = 'orgaouf';
end;" ;
strSQL = strSQL.Replace("\r", "").Replace("\n", "");
using (Comando comando = this.banco.CriarComando(strSQL))
{
comando.AdicionarParametroSaida("GOVERNO_NOME", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_CEP", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_CONTATO", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_ENDERECO", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_MUNICIPIO", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_NOME", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_SIGLA", DbType.String, 100);
comando.AdicionarParametroSaida("ORGAO_UF", DbType.String, 100);
comando.AdicionarParametroSaida("SECRETARIA_NOME", DbType.String, 100);
comando.AdicionarParametroSaida("SETOR_NOME", DbType.String, 100);
//this.Conexao.Comando.AdicionarParametroEntrada("projeto", ticketID, DbType.Int32);
//this.Conexao.Comando.AdicionarParametroEntrada("tipo", ticketType, DbType.String);
this.banco.ExecutarNonQuery(comando);
result = new Hashtable();
result["GOVERNO_NOME"] = comando.ObterValorParametro("GOVERNO_NOME");
result["ORGAO_CEP"] = comando.ObterValorParametro("ORGAO_CEP");
result["ORGAO_CONTATO"] = comando.ObterValorParametro("ORGAO_CONTATO");
result["ORGAO_ENDERECO"] = comando.ObterValorParametro("ORGAO_ENDERECO");
result["ORGAO_MUNICIPIO"] = comando.ObterValorParametro("ORGAO_MUNICIPIO");
result["ORGAO_NOME"] = comando.ObterValorParametro("ORGAO_NOME");
result["ORGAO_SIGLA"] = comando.ObterValorParametro("ORGAO_SIGLA");
result["ORGAO_UF"] = comando.ObterValorParametro("ORGAO_UF");
result["SECRETARIA_NOME"] = comando.ObterValorParametro("SECRETARIA_NOME");
result["SETOR_NOME"] = comando.ObterValorParametro("SETOR_NOME");
}
return(result);
}
public List <Ortofoto> ObterArquivosOrtofoto(string wkt)
{
List <Ortofoto> ortofotos = new List <Ortofoto>();
List <string> arquivos = new List <string>();
int srid = Convert.ToInt32(ConfigurationManager.AppSettings["srid"]);
using (BancoDeDados bd = BancoDeDados.ObterInstancia())
{
Comando comando = bd.CriarComando(string.Format(@"select arquivo from geo_malha_ortofoto_5km a where sdo_relate(a.shape,
addsrid(mdsys.sdo_util.from_wktgeometry(:wkt), {0}), 'MASK=ANYINTERACT QUERYTYPE=WINDOW') = 'TRUE' ", srid));
comando.AdicionarParametroEntrada("wkt", wkt, DbType.String);
using (DbDataReader reader = bd.ExecutarReader(comando))
{
while (reader.Read())
{
arquivos.Add(Convert.ToString(reader["arquivo"]));
}
reader.Close();
}
if (arquivos.Count > 0)
{
comando = bd.CriarComando(@"insert into tab_download_ortofoto (id, chave, arquivo_nome, data_ativacao) values
(seq_down_orto.nextval, upper(replace(seq_down_orto.currval||'_'||:arquivo||replace(to_char(sysdate, 'dd_MM_YYYY'),':','_'),' ','_')), :arquivo, sysdate) returning chave, to_char(sysdate, 'dd/MM/yyyy') into :chave, :chave_data ");
comando.AdicionarParametroSaida("chave", DbType.String, 300);
comando.AdicionarParametroSaida("chave_data", DbType.String, 300);
comando.AdicionarParametroEntrada("arquivo", DbType.String);
Ortofoto ortofoto;
foreach (string arq in arquivos)
{
comando.SetarValorParametro("arquivo", arq);
bd.ExecutarNonQuery(comando);
ortofoto = new Ortofoto();
ortofoto.ArquivoChave = Convert.ToString(comando.ObterValorParametro("chave"));
ortofoto.ArquivoChaveData = Convert.ToDateTime(comando.ObterValorParametro("chave_data"));
ortofoto.ArquivoNome = arq;
ortofotos.Add(ortofoto);
}
bd.Commit();
}
}
return(ortofotos);
}
internal bool BlocoPossuiNumeroCFOCNaoConfigurado(long numeroInicial, long numeroFinal)
{
using (BancoDeDados banco = BancoDeDados.ObterInstancia())
{
Comando comando = banco.CriarComandoPlSql(@"
declare
iterator number;
v_aux number := 1;
v_saida number := 0;
begin
iterator := :numero_inicial;
while iterator <= :numero_final loop
select count(*) into v_aux from cnf_doc_fito_intervalo c where c.tipo = 1 and c.tipo_documento = 2 and iterator >= c.numero_inicial and iterator <= c.numero_final;
iterator := iterator + 1;
if v_aux = 0 then
v_saida := 1;/*Possui 1 não configurado*/
exit;
end if;
end loop;
:retorno := v_saida;
end;" );
comando.AdicionarParametroEntrada("numero_inicial", numeroInicial, DbType.Int64);
comando.AdicionarParametroEntrada("numero_final", numeroFinal, DbType.Int64);
comando.AdicionarParametroSaida("retorno", DbType.Int32);
banco.ExecutarNonQuery(comando);
return(Convert.ToInt32(comando.ObterValorParametro("retorno")) > 0);
}
}
public int Criar(Fiscalizacao fiscalizacao, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@"insert into {0}tab_fiscalizacao (id, situacao, situacao_data, autuante, tid)
values ({0}seq_tab_fiscalizacao.nextval, :situacao, :situacao_data, :autuante,
:tid) returning id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("situacao", (int)eFiscalizacaoSituacao.EmAndamento, DbType.Int32);
comando.AdicionarParametroEntrada("situacao_data", DateTime.Now, DbType.Date);
comando.AdicionarParametroEntrada("autuante", fiscalizacao.Autuante.Id, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
fiscalizacao.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
bancoDeDados.Commit();
}
return(fiscalizacao.Id);
}
private void Criar(DeclaracaoAdicional declaracao, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region DeclaracaoAdicional
Comando comando = bancoDeDados.CriarComando(@"insert into lov_cultivar_declara_adicional (id, texto, texto_formatado,outro_estado) values
(seq_declaracao_adicional.nextval, :texto, :texto_formatado, :outro_estado) returning id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("texto", declaracao.Texto, DbType.String);
comando.AdicionarParametroEntrada("texto_formatado", declaracao.Texto, DbType.String);
comando.AdicionarParametroEntrada("outro_estado", declaracao.OutroEstado, DbType.String);
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
declaracao.Id = comando.ObterValorParametro <int>("id");
#endregion
#region Histórico
// Historico.Gerar(declaracao.Id, eHistoricoArtefato.declaracaoadicional, eHistoricoAcao.criar, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
private void Criar(Praga praga, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region Praga
Comando comando = bancoDeDados.CriarComando(@"insert into tab_praga (id, nome_cientifico, nome_comum, tid) values
(seq_praga.nextval, :nome_cientifico, :nome_comum, :tid) returning id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("nome_cientifico", praga.NomeCientifico, DbType.String);
comando.AdicionarParametroEntrada("nome_comum", praga.NomeComum, DbType.String);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
praga.Id = comando.ObterValorParametro <int>("id");
#endregion
#region Histórico
Historico.Gerar(praga.Id, eHistoricoArtefato.praga, eHistoricoAcao.criar, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal int?DescricaoCriar(TituloCondicionanteDescricao descricao, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Condicionante de Título
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@"insert into {0}tab_titulo_condicionante_desc c (id, descricao, tid)
values ({0}seq_titulo_condicionantes.nextval, :descricao, :tid) returning c.id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("descricao", descricao.Texto, DbType.String);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
descricao.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
#endregion
#region Histórico
Historico.Gerar(descricao.Id, eHistoricoArtefato.titulocondicionantedescricao, eHistoricoAcao.criar, bancoDeDados);
#endregion
bancoDeDados.Commit();
return(descricao.Id);
}
}
internal ObjetoInfracao Criar(ObjetoInfracao objetoInfracao, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Objeto de Infracao
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@"insert into tab_fisc_obj_infracao i(id, fiscalizacao, area_embargada_atv_intermed,
tei_gerado_pelo_sist, tei_gerado_pelo_sist_serie, num_tei_bloco, data_lavratura_termo,
opniao_area_danificada, desc_termo_embargo, existe_atv_area_degrad, existe_atv_area_degrad_especif, fundament_infracao,
uso_solo_area_danif, declividade_media_area,infracao_result_erosao, caract_solo_area_danif, arquivo, tid, infr_result_er_especifique,
interditado, numero_lacre, iuf_digital, iuf_numero, iuf_data, serie) values({0}seq_tab_fisc_obj_infracao.nextval,
:fiscalizacao, :area_embargada_atv_intermed, :tei_gerado_pelo_sist, :tei_gerado_pelo_sist_serie,
:num_tei_bloco, :data_lavratura_termo, :opniao_area_danificada, :desc_termo_embargo,
:existe_atv_area_degrad, :existe_atv_area_degrad_especif, :fundament_infracao, :uso_solo_area_danif, :declividade_media_area,
:infracao_result_erosao, :caract_solo_area_danif, :arquivo, :tid, :infr_result_er_especifique,
:interditado, :numero_lacre, :iuf_digital, :iuf_numero, :iuf_data, :serie) returning i.id into :id", EsquemaBanco);
comando.AdicionarParametroEntrada("fiscalizacao", objetoInfracao.FiscalizacaoId, DbType.Int32);
comando.AdicionarParametroEntrada("area_embargada_atv_intermed", objetoInfracao.AreaEmbargadaAtvIntermed, DbType.Int32);
comando.AdicionarParametroEntrada("tei_gerado_pelo_sist", objetoInfracao.TeiGeradoPeloSistema, DbType.Int32);
comando.AdicionarParametroEntrada("tei_gerado_pelo_sist_serie", objetoInfracao.TeiGeradoPeloSistemaSerieTipo == 0 ? (Object)DBNull.Value : objetoInfracao.TeiGeradoPeloSistemaSerieTipo, DbType.Int32);
comando.AdicionarParametroEntrada("num_tei_bloco", String.IsNullOrWhiteSpace(objetoInfracao.NumTeiBloco) ? (Object)DBNull.Value : objetoInfracao.NumTeiBloco, DbType.Int32);
comando.AdicionarParametroEntrada("data_lavratura_termo", String.IsNullOrWhiteSpace(objetoInfracao.DataLavraturaTermo.DataTexto) ? (Object)DBNull.Value : objetoInfracao.DataLavraturaTermo.DataTexto, DbType.Date);
comando.AdicionarParametroEntrada("opniao_area_danificada", String.IsNullOrWhiteSpace(objetoInfracao.OpniaoAreaDanificada) ? (Object)DBNull.Value : objetoInfracao.OpniaoAreaDanificada, DbType.String);
comando.AdicionarParametroEntrada("desc_termo_embargo", String.IsNullOrWhiteSpace(objetoInfracao.DescricaoTermoEmbargo) ? (Object)DBNull.Value : objetoInfracao.DescricaoTermoEmbargo, DbType.String);
comando.AdicionarParametroEntrada("existe_atv_area_degrad", objetoInfracao.ExisteAtvAreaDegrad, DbType.Int32);
comando.AdicionarParametroEntrada("existe_atv_area_degrad_especif", String.IsNullOrWhiteSpace(objetoInfracao.ExisteAtvAreaDegradEspecificarTexto) ? (Object)DBNull.Value : objetoInfracao.ExisteAtvAreaDegradEspecificarTexto, DbType.String);
comando.AdicionarParametroEntrada("fundament_infracao", objetoInfracao.FundamentoInfracao, DbType.String);
comando.AdicionarParametroEntrada("uso_solo_area_danif", objetoInfracao.UsoSoloAreaDanificada, DbType.String);
comando.AdicionarParametroEntrada("declividade_media_area", objetoInfracao.AreaDeclividadeMedia, DbType.Decimal);
comando.AdicionarParametroEntrada("infracao_result_erosao", objetoInfracao.InfracaoResultouErosaoTipo == 1 ? 1 : objetoInfracao.InfracaoResultouErosaoTipo == 2 ? 0 : (Object)DBNull.Value, DbType.Int32);
comando.AdicionarParametroEntrada("caract_solo_area_danif", objetoInfracao.CaracteristicaSoloAreaDanificada, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroEntrada("arquivo", objetoInfracao.Arquivo == null ? (Object)DBNull.Value : objetoInfracao.Arquivo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("infr_result_er_especifique", DbType.String, 150, objetoInfracao.InfracaoResultouErosaoTipoTexto);
comando.AdicionarParametroSaida("id", DbType.Int32);
comando.AdicionarParametroEntrada("interditado", objetoInfracao.Interditado, DbType.Boolean);
comando.AdicionarParametroEntrada("numero_lacre", objetoInfracao.NumeroLacre, DbType.String);
comando.AdicionarParametroEntrada("iuf_digital", objetoInfracao.IsDigital, DbType.Boolean);
comando.AdicionarParametroEntrada("iuf_numero", objetoInfracao.NumeroIUF, DbType.String);
comando.AdicionarParametroEntrada("iuf_data", objetoInfracao.DataLavraturaTermo.Data, DbType.DateTime);
comando.AdicionarParametroEntrada("serie", objetoInfracao.SerieId, DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
objetoInfracao.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
#endregion
Historico.Gerar(objetoInfracao.FiscalizacaoId, eHistoricoArtefato.fiscalizacao, eHistoricoAcao.atualizar, bancoDeDados);
Consulta.Gerar(objetoInfracao.FiscalizacaoId, eHistoricoArtefato.fiscalizacao, bancoDeDados);
bancoDeDados.Commit();
}
return(objetoInfracao);
}
public int SetarNumeroUtilizado(string numero, int tipoNumero, eDocumentoFitossanitarioTipo tipoDocumento)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia())
{
Comando comando = bancoDeDados.CriarComando(@"
update tab_numero_cfo_cfoc t set t.utilizado = 1
where t.tipo_documento = :tipo_documento and t.tipo_numero = :tipo_numero and t.numero = :numero
returning t.id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("numero", numero, DbType.Int64);
comando.AdicionarParametroEntrada("tipo_documento", (int)tipoDocumento, DbType.Int32);
comando.AdicionarParametroEntrada("tipo_numero", tipoNumero, DbType.Int32);
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
int id = comando.ObterValorParametro <int>("id");
Historico.Gerar(id, eHistoricoArtefato.numerocfocfoc, eHistoricoAcao.atualizar, bancoDeDados);
bancoDeDados.Commit();
return(id);
}
}
internal void Salvar(LaudoConstatacao laudo, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Cadastrar Dados da Especificidade
eHistoricoAcao acao;
object id;
bancoDeDados.IniciarTransacao();
//Verifica a existencia da especificidade
Comando comando = bancoDeDados.CriarComando(@"select e.id from {0}esp_laudo_constatacao e where e.titulo = :titulo", EsquemaBanco);
comando.AdicionarParametroEntrada("titulo", laudo.Titulo.Id, DbType.Int32);
id = bancoDeDados.ExecutarScalar(comando);
if (id != null && !Convert.IsDBNull(id))
{
comando = bancoDeDados.CriarComando(@"update {0}esp_laudo_constatacao e set e.titulo = :titulo, e.protocolo = :protocolo,
e.objetivo = :objetivo, e.constatacao_parecer = :constatacao_parecer, e.destinatario = :destinatario, e.data_vistoria = :data_vistoria,
e.tid = :tid where e.titulo = :titulo" , EsquemaBanco);
acao = eHistoricoAcao.atualizar;
laudo.Id = Convert.ToInt32(id);
}
else
{
comando = bancoDeDados.CriarComando(@"insert into {0}esp_laudo_constatacao e (id, titulo, protocolo, objetivo, constatacao_parecer, destinatario, data_vistoria, tid)
values ({0}seq_esp_laudo_constatacao.nextval, :titulo, :protocolo, :objetivo, :constatacao_parecer, :destinatario, :data_vistoria, :tid) returning e.id into :id" , EsquemaBanco);
acao = eHistoricoAcao.criar;
comando.AdicionarParametroSaida("id", DbType.Int32);
}
comando.AdicionarParametroEntrada("titulo", laudo.Titulo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", laudo.ProtocoloReq.Id, DbType.Int32);
comando.AdicionarParametroEntrada("destinatario", laudo.Destinatario, DbType.Int32);
comando.AdicionarParametroEntrada("objetivo", DbType.String, 500, laudo.Objetivo);
comando.AdicionarParametroEntClob("constatacao_parecer", laudo.Constatacao);
comando.AdicionarParametroEntrada("data_vistoria", laudo.DataVistoria.Data, DbType.DateTime);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
if (id == null || Convert.IsDBNull(id))
{
laudo = laudo ?? new LaudoConstatacao();
laudo.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
#endregion
#region Histórico
Historico.Gerar(Convert.ToInt32(laudo.Titulo.Id), eHistoricoArtefatoEspecificidade.laudoconstatacao, acao, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal void Criar(ProjetoDigital projeto, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@"insert into {0}tab_projeto_digital a (id, tid, etapa, situacao, requerimento, data_criacao, credenciado)
values ({0}seq_projeto_digital.nextval, :tid, :etapa, :situacao, :requerimento, sysdate, :credenciado) returning a.id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("etapa", (int)eProjetoDigitalEtapa.Requerimento, DbType.Int32);
comando.AdicionarParametroEntrada("situacao", (int)eProjetoDigitalSituacao.EmElaboracao, DbType.Int32);
comando.AdicionarParametroEntrada("requerimento", projeto.RequerimentoId, DbType.Int32);
comando.AdicionarParametroEntrada("credenciado", projeto.CredenciadoId, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
projeto.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
Historico.Gerar(projeto.Id, eHistoricoArtefato.projetodigital, eHistoricoAcao.criar, bancoDeDados);
bancoDeDados.Commit();
}
}
internal int?Criar(Atividade atividade, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Atividades de Processo
Comando comando = bancoDeDados.CriarComando(@"insert into {0}tab_protocolo_atividades t (id, protocolo, requerimento, atividade, situacao, tid)
values ({0}seq_protocolo_atividades.nextval, :protocolo, :requerimento, :atividade, 1, :tid) returning t.id into :id" , EsquemaBanco);
comando.AdicionarParametroSaida("id", DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", atividade.Protocolo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("requerimento", atividade.Protocolo.Requerimento.Id, DbType.Int32);
comando.AdicionarParametroEntrada("atividade", atividade.Id, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
atividade.IdRelacionamento = Convert.ToInt32(comando.ObterValorParametro("id"));
#region Finalidades da Atividade
if (atividade.Finalidades.Count > 0)
{
foreach (Finalidade itemAux in atividade.Finalidades)
{
comando = bancoDeDados.CriarComando(@"insert into {0}tab_protocolo_ativ_finalida (id, protocolo_ativ, modelo,
titulo_anterior_tipo, titulo_anterior_id, titulo_anterior_numero, modelo_anterior_id, modelo_anterior_nome, modelo_anterior_sigla, orgao_expedidor, finalidade, tid) values
({0}seq_protocolo_ativ_fin.nextval, :protocolo_ativ, :modelo, :titulo_anterior_tipo, :titulo_anterior_id, :titulo_anterior_numero, :modelo_anterior_id,
:modelo_anterior_nome, :modelo_anterior_sigla, :orgao_expedidor, :finalidade, :tid)" , EsquemaBanco);
comando.AdicionarParametroEntrada("finalidade", itemAux.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo_ativ", atividade.IdRelacionamento, DbType.Int32);
comando.AdicionarParametroEntrada("modelo", itemAux.TituloModelo, DbType.Int32);
comando.AdicionarParametroEntrada("titulo_anterior_tipo", itemAux.TituloAnteriorTipo, DbType.Int32);
comando.AdicionarParametroEntrada("titulo_anterior_id", itemAux.TituloAnteriorId, DbType.Int32);
comando.AdicionarParametroEntrada("titulo_anterior_numero", DbType.String, 20, itemAux.TituloAnteriorNumero);
comando.AdicionarParametroEntrada("modelo_anterior_id", itemAux.TituloModeloAnteriorId, DbType.Int32);
comando.AdicionarParametroEntrada("modelo_anterior_nome", DbType.String, 100, itemAux.TituloModeloAnteriorTexto);
comando.AdicionarParametroEntrada("modelo_anterior_sigla", DbType.String, 100, itemAux.TituloModeloAnteriorSigla);
comando.AdicionarParametroEntrada("orgao_expedidor", DbType.String, 100, itemAux.OrgaoExpedidor);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
}
}
#endregion
#endregion
#region Histórico
Historico.Gerar(atividade.IdRelacionamento.Value, eHistoricoArtefato.protocoloatividade, eHistoricoAcao.criar, bancoDeDados);
#endregion
bancoDeDados.Commit();
return(atividade.Id);
}
}
private void Criar(ConfiguracaoVegetalItem classificacaoToxicologica, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region Classificação Toxicológica
Comando comando = bancoDeDados.CriarComando(@"insert into tab_class_toxicologica (id, texto, tid) values
(seq_class_toxicologica.nextval, :texto, :tid) returning id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("texto", classificacaoToxicologica.Texto, DbType.String);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
classificacaoToxicologica.Id = comando.ObterValorParametro <int>("id");
#endregion
#region Histórico
Historico.Gerar(classificacaoToxicologica.Id, eHistoricoArtefato.classificacaotoxicologica, eHistoricoAcao.criar, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal int?Criar(SimuladorGeo simulador, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Projeto Geográfico
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@"insert into {0}tmp_projeto_geo p (id, situacao, mecanismo_elaboracao, cpf,
menor_x, menor_y, maior_x, maior_y, tid) values ({0}seq_tmp_projeto_geo.nextval, 1, :mecanismo_elaboracao, :cpf,
:menor_x, :menor_y, :maior_x, :maior_y, :tid) returning p.id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("mecanismo_elaboracao", simulador.MecanismoElaboracaoId, DbType.Int32);
comando.AdicionarParametroEntrada("cpf", DbType.String, 15, simulador.Cpf);
comando.AdicionarParametroEntrada("menor_x", simulador.MenorX, DbType.Decimal);
comando.AdicionarParametroEntrada("menor_y", simulador.MenorY, DbType.Decimal);
comando.AdicionarParametroEntrada("maior_x", simulador.MaiorX, DbType.Decimal);
comando.AdicionarParametroEntrada("maior_y", simulador.MaiorY, DbType.Decimal);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
simulador.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
#endregion
bancoDeDados.Commit();
return(simulador.Id);
}
}
internal Int32 Salvar(Usuario usuario, String senhaHash, AutenticacaoExecutor executor, BancoDeDados banco = null)
{
if (banco == null)
{
GerenciadorTransacao.GerarNovoID();
}
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco, EsquemaBanco))
{
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando("insert into {0}tab_usuario (id, login, senha, senha_data, tid) values ({0}seq_usuario.nextval, :login, :senha, sysdate, :tid) returning id into :id", EsquemaBanco);
comando.AdicionarParametroEntrada("login", DbType.String, 30, usuario.Login);
comando.AdicionarParametroEntrada("senha", DbType.String, 150, senhaHash);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
usuario.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
_historico.Gerar(usuario.Login, Aplicacao, HistoricoAcao.CRIAR, executor, bancoDeDados);
bancoDeDados.Commit();
}
return(usuario.Id);
}
internal bool PontoForaMBR(string easting, string northing, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
Comando comando = bancoDeDados.CriarComandoPlSql(@"
declare
resposta number(1) := 0;
ordenadas sdo_ordinate_array;
begin
ordenadas := sdo_ordinate_array(:easting, :northing);
if (ordenadas(1)<-3720618.6798069715
or ordenadas(2)<5916693.2686790377
or ordenadas(1)>1670563.45910363365
or ordenadas(2)>10704234.897805285)
then
resposta := 1;
end if;
select resposta into :saida from dual;
end;" , EsquemaBancoPublicoGeo);
comando.AdicionarParametroEntrada("easting", easting, DbType.Double);
comando.AdicionarParametroEntrada("northing", northing, DbType.Double);
comando.AdicionarParametroSaida("saida", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
return(Convert.ToInt32(comando.ObterValorParametro("saida")) > 0);
}
}
private void Criar(ConfiguracaoVegetalItem periculosidadeAmbiental, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region Periculosidade Ambiental
Comando comando = bancoDeDados.CriarComando(@"insert into tab_peric_ambiental (id, texto, tid) values
(seq_peric_ambiental.nextval, :texto, :tid) returning id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("texto", periculosidadeAmbiental.Texto, DbType.String);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
periculosidadeAmbiental.Id = comando.ObterValorParametro <int>("id");
#endregion
#region Histórico
Historico.Gerar(periculosidadeAmbiental.Id, eHistoricoArtefato.periculosidadeambiental, eHistoricoAcao.criar, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal void Salvar(CertificadoRegistroAtividadeFlorestal certificado, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region Cadastro do Titulo
eHistoricoAcao acao;
object id;
// Verifica a existencia da especificidade
Comando comando = bancoDeDados.CriarComando(@"select e.id from {0}esp_cer_reg_ati_florestal e where e.titulo = :titulo", EsquemaBanco);
comando.AdicionarParametroEntrada("titulo", certificado.Titulo.Id, DbType.Int32);
id = bancoDeDados.ExecutarScalar(comando);
if (id != null && !Convert.IsDBNull(id))
{
comando = bancoDeDados.CriarComando(@"update {0}esp_cer_reg_ati_florestal e set e.titulo = :titulo, e.protocolo = :protocolo, e.destinatario = :destinatario, e.via = :via, e.ano_exercicio
= :ano_exercicio, e.tid = :tid where e.titulo = :titulo", EsquemaBanco);
acao = eHistoricoAcao.atualizar;
certificado.Id = Convert.ToInt32(id);
}
else
{
comando = bancoDeDados.CriarComando(@"insert into {0}esp_cer_reg_ati_florestal (id, titulo, protocolo, destinatario, via, ano_exercicio, tid)
values (seq_esp_cer_reg_ati_florestal.nextval, :titulo, :protocolo, :destinatario, :via, :ano_exercicio, :tid) returning id into :id", EsquemaBanco);
acao = eHistoricoAcao.criar;
comando.AdicionarParametroSaida("id", DbType.Int32);
}
comando.AdicionarParametroEntrada("titulo", certificado.Titulo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", certificado.ProtocoloReq.Id, DbType.Int32);
comando.AdicionarParametroEntrada("destinatario", certificado.Destinatario, DbType.Int32);
comando.AdicionarParametroEntrada("via", certificado.Vias, DbType.Int32);
comando.AdicionarParametroEntrada("ano_exercicio", DbType.String, 4, certificado.AnoExercicio);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
if (id == null || Convert.IsDBNull(id))
{
certificado = certificado ?? new CertificadoRegistroAtividadeFlorestal();
certificado.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
#endregion
#region Histórico
Historico.Gerar(Convert.ToInt32(certificado.Titulo.Id), eHistoricoArtefatoEspecificidade.cerregistroatividadeflorestal, acao, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal void Salvar(AutorizacaoExploracaoFlorestal autorizacao, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region Cadastro do Titulo
eHistoricoAcao acao;
object id;
//Verifica a existencia da especificidade
Comando comando = bancoDeDados.CriarComando(@"select e.id from {0}esp_auto_exploracao_florestal e where e.titulo = :titulo", EsquemaBanco);
comando.AdicionarParametroEntrada("titulo", autorizacao.Titulo.Id, DbType.Int32);
id = bancoDeDados.ExecutarScalar(comando);
if (id != null && !Convert.IsDBNull(id))
{
comando = bancoDeDados.CriarComando(@"update {0}esp_auto_exploracao_florestal e set e.titulo = :titulo, e.protocolo = :protocolo,
e.destinatario = :destinatario, e.observacao = :observacao, e.tid = :tid where e.titulo = :titulo" , EsquemaBanco);
acao = eHistoricoAcao.atualizar;
autorizacao.Id = Convert.ToInt32(id);
}
else
{
comando = bancoDeDados.CriarComando(@"insert into {0}esp_auto_exploracao_florestal(id, titulo, protocolo, destinatario, observacao,
tid) values ({0}seq_esp_auto_explora_florestal.nextval, :titulo, :protocolo, :destinatario, :observacao, :tid) returning id into :id" , EsquemaBanco);
acao = eHistoricoAcao.criar;
comando.AdicionarParametroSaida("id", DbType.Int32);
}
comando.AdicionarParametroEntrada("titulo", autorizacao.Titulo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", autorizacao.ProtocoloReq.Id, DbType.Int32);
comando.AdicionarParametroEntrada("destinatario", autorizacao.Destinatario, DbType.Int32);
comando.AdicionarParametroEntrada("observacao", DbType.String, 500, autorizacao.Observacao);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
if (id == null || Convert.IsDBNull(id))
{
autorizacao = autorizacao ?? new AutorizacaoExploracaoFlorestal();
autorizacao.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
#endregion
#region Histórico
Historico.Gerar(Convert.ToInt32(autorizacao.Titulo.Id), eHistoricoArtefatoEspecificidade.autorizacaoexploracaoflorestal, acao, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal void Salvar(LicencaPrevia Licenca, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region Cadastro do Titulo
eHistoricoAcao acao;
object id;
//Verifica a existencia da especificidade
Comando comando = bancoDeDados.CriarComando(@"select e.id from {0}esp_licenca_Previa e where e.titulo = :titulo", EsquemaBanco);
comando.AdicionarParametroEntrada("titulo", Licenca.Titulo.Id, DbType.Int32);
id = bancoDeDados.ExecutarScalar(comando);
if (id != null && !Convert.IsDBNull(id))
{
comando = bancoDeDados.CriarComando(@"update {0}esp_licenca_Previa e set e.titulo = :titulo, e.protocolo = :protocolo, e.destinatario = :destinatario, e.barragem_id = :barragem_id, e.caracterizacao_id = (select distinct t.barragem from {0}crt_barragem_barragens t where t.id = :barragem_id), e.tid = :tid where e.titulo =
:titulo", EsquemaBanco);
acao = eHistoricoAcao.atualizar;
Licenca.Id = Convert.ToInt32(id);
}
else
{
comando = bancoDeDados.CriarComando(@"insert into {0}esp_licenca_Previa(id, titulo, protocolo, destinatario, tid, barragem_id, caracterizacao_id) values ({0}seq_esp_licenca_previa.nextval, :titulo,
:protocolo, :destinatario, :tid, :barragem_id, (select distinct t.barragem from {0}crt_barragem_barragens t where t.id = :barragem_id)) returning id into :id", EsquemaBanco);
acao = eHistoricoAcao.criar;
comando.AdicionarParametroSaida("id", DbType.Int32);
}
comando.AdicionarParametroEntrada("titulo", Licenca.Titulo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", Licenca.ProtocoloReq.Id, DbType.Int32);
comando.AdicionarParametroEntrada("destinatario", Licenca.Destinatario, DbType.Int32);
comando.AdicionarParametroEntrada("barragem_id", Licenca.BarragemId, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
if (id == null || Convert.IsDBNull(id))
{
Licenca = Licenca ?? new LicencaPrevia();
Licenca.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
#endregion
#region Histórico
Historico.Gerar(Convert.ToInt32(Licenca.Titulo.Id), eHistoricoArtefatoEspecificidade.licencaprevia, acao, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal void Salvar(TermoCompromissoAmbiental termo, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region Cadastro da Especificidade
eHistoricoAcao acao;
object id;
// Verifica a existencia da especificidade
Comando comando = bancoDeDados.CriarComando(@"select e.id from {0}esp_termo_compr_amb e where e.titulo = :titulo", EsquemaBanco);
comando.AdicionarParametroEntrada("titulo", termo.Titulo.Id, DbType.Int32);
id = bancoDeDados.ExecutarScalar(comando);
if (id != null && !Convert.IsDBNull(id))
{
comando = bancoDeDados.CriarComando(@"update {0}esp_termo_compr_amb e set e.tid = :tid, e.protocolo = :protocolo, e.licenca = :licenca,
e.destinatario = :destinatario, e.representante = :representante, e.descricao = :descricao
where e.titulo = :titulo" , EsquemaBanco);
acao = eHistoricoAcao.atualizar;
termo.Id = Convert.ToInt32(id);
}
else
{
comando = bancoDeDados.CriarComando(@"insert into {0}esp_termo_compr_amb (id, tid, titulo, protocolo, licenca, destinatario,
representante, descricao) values ({0}seq_esp_termo_compr_amb.nextval, :tid, :titulo, :protocolo,
:licenca, :destinatario, :representante, :descricao) returning id into :id" , EsquemaBanco);
acao = eHistoricoAcao.criar;
comando.AdicionarParametroSaida("id", DbType.Int32);
}
comando.AdicionarParametroEntrada("titulo", termo.Titulo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", termo.ProtocoloReq.Id, DbType.Int32);
comando.AdicionarParametroEntrada("licenca", termo.Licenca, DbType.Int32);
comando.AdicionarParametroEntrada("destinatario", termo.Destinatario, DbType.Int32);
comando.AdicionarParametroEntrada("representante", termo.Representante > 0 ? termo.Representante : (Object)DBNull.Value, DbType.Int32);
comando.AdicionarParametroEntClob("descricao", termo.Descricao);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
if (id == null || Convert.IsDBNull(id))
{
termo.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
#endregion
Historico.Gerar(termo.Titulo.Id, eHistoricoArtefatoEspecificidade.termocompromissoambiental, acao, bancoDeDados);
bancoDeDados.Commit();
}
}
internal void Criar(Lote lote, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco, EsquemaCredenciado))
{
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@"
insert into {0}tab_lote t (id, tid, situacao, empreendimento, data_criacao, codigo_uc, ano, numero, credenciado)
values (seq_tab_lote.nextval, :tid, :situacao, :empreendimento, :data_criacao, :codigo_uc, :ano, :numero, :credenciado) returning t.id into :id" , EsquemaBanco);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroEntrada("situacao", (int)eLoteSituacao.NaoUtilizado, DbType.Int32);
comando.AdicionarParametroEntrada("empreendimento", lote.EmpreendimentoId, DbType.Int32);
comando.AdicionarParametroEntrada("data_criacao", lote.DataCriacao.Data, DbType.DateTime);
comando.AdicionarParametroEntrada("codigo_uc", lote.CodigoUC, DbType.Int64);
comando.AdicionarParametroEntrada("ano", lote.Ano, DbType.Int32);
comando.AdicionarParametroEntrada("numero", lote.Numero, DbType.Int32);
comando.AdicionarParametroEntrada("credenciado", User.FuncionarioId, DbType.Int32);
comando.AdicionarParametroSaida("id", DbType.Int32);
bancoDeDados.ExecutarNonQuery(comando);
lote.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
#region Lotes
comando = bancoDeDados.CriarComando(@"
insert into tab_lote_item (id, tid, lote, origem_tipo, origem, origem_numero, cultura, cultivar, quantidade, unidade_medida)
values (seq_tab_lote_item.nextval, :tid, :lote, :origem_tipo, :origem, :origem_numero, :cultura, :cultivar, :quantidade, :unidade_medida)" );
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroEntrada("lote", lote.Id, DbType.Int32);
comando.AdicionarParametroEntrada("origem_tipo", DbType.Int32);
comando.AdicionarParametroEntrada("origem", DbType.Int32);
comando.AdicionarParametroEntrada("origem_numero", DbType.Int64);
comando.AdicionarParametroEntrada("cultura", DbType.Int32);
comando.AdicionarParametroEntrada("cultivar", DbType.Int32);
comando.AdicionarParametroEntrada("unidade_medida", DbType.Int32);
comando.AdicionarParametroEntrada("quantidade", DbType.Decimal);
lote.Lotes.ForEach(item =>
{
comando.SetarValorParametro("origem_tipo", item.OrigemTipo);
comando.SetarValorParametro("origem", item.Origem);
comando.SetarValorParametro("origem_numero", item.OrigemNumero);
comando.SetarValorParametro("cultura", item.Cultura);
comando.SetarValorParametro("cultivar", item.Cultivar);
comando.SetarValorParametro("unidade_medida", item.UnidadeMedida);
comando.SetarValorParametro("quantidade", item.Quantidade);
bancoDeDados.ExecutarNonQuery(comando);
});
#endregion Lotes
Historico.Gerar(lote.Id, eHistoricoArtefato.lote, eHistoricoAcao.criar, bancoDeDados);
bancoDeDados.Commit();
}
}
internal void Salvar(EscrituraPublicaCompraVenda escritura, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Cadastrar Dados da Especificidade
eHistoricoAcao acao;
object id;
bancoDeDados.IniciarTransacao();
//Verifica a existencia da especificidade
Comando comando = bancoDeDados.CriarComando(@"select e.id from {0}esp_escritura_pub_comp_ven e where e.titulo = :titulo", EsquemaBanco);
comando.AdicionarParametroEntrada("titulo", escritura.Titulo.Id, DbType.Int32);
id = bancoDeDados.ExecutarScalar(comando);
if (id != null && !Convert.IsDBNull(id))
{
comando = bancoDeDados.CriarComando(@"update {0}esp_escritura_pub_comp_ven e set e.titulo = :titulo, e.protocolo = :protocolo,
e.destinatario = :destinatario, e.livro = :livro, e.folhas = :folhas, e.tid = :tid
where e.titulo = :titulo" , EsquemaBanco);
acao = eHistoricoAcao.atualizar;
escritura.Id = Convert.ToInt32(id);
}
else
{
comando = bancoDeDados.CriarComando(@"insert into {0}esp_escritura_pub_comp_ven e (id, titulo, protocolo, destinatario, livro, folhas, tid)
values ({0}seq_esp_escritura_pub_comp_ven.nextval, :titulo, :protocolo, :destinatario, :livro, :folhas, :tid)
returning e.id into :id" , EsquemaBanco);
acao = eHistoricoAcao.criar;
comando.AdicionarParametroSaida("id", DbType.Int32);
}
comando.AdicionarParametroEntrada("titulo", escritura.Titulo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", escritura.ProtocoloReq.Id, DbType.Int32);
comando.AdicionarParametroEntrada("destinatario", escritura.Destinatario, DbType.Int32);
comando.AdicionarParametroEntrada("livro", escritura.Livro, DbType.String);
comando.AdicionarParametroEntrada("folhas", escritura.Folhas, DbType.String);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
if (id == null || Convert.IsDBNull(id))
{
escritura = escritura ?? new EscrituraPublicaCompraVenda();
escritura.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
#endregion
#region Histórico
Historico.Gerar(Convert.ToInt32(escritura.Titulo.Id), eHistoricoArtefatoEspecificidade.escriturapublicacompravenda, acao, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal void Salvar(OutrosInformacaoCorte outro, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
#region Cadastro da Especificidade
eHistoricoAcao acao;
object id;
// Verifica a existencia da especificidade
Comando comando = bancoDeDados.CriarComando(@"select e.id from {0}esp_out_informacao_corte e where e.titulo = :titulo", EsquemaBanco);
comando.AdicionarParametroEntrada("titulo", outro.Titulo.Id, DbType.Int32);
id = bancoDeDados.ExecutarScalar(comando);
if (id != null && !Convert.IsDBNull(id))
{
comando = bancoDeDados.CriarComando(@" update {0}esp_out_informacao_corte t set t.protocolo = :protocolo, t.informacao_corte = :informacao_corte, t.tid = :tid, t.destinatario = :destinatario
where t.titulo = :titulo" , EsquemaBanco);
acao = eHistoricoAcao.atualizar;
outro.Id = Convert.ToInt32(id);
}
else
{
comando = bancoDeDados.CriarComando(@" insert into {0}esp_out_informacao_corte (id, titulo, protocolo, informacao_corte, tid, destinatario) values
({0}seq_esp_out_informacao_corte.nextval, :titulo, :protocolo, :informacao_corte, :tid, :destinatario) returning id into :id" , EsquemaBanco);
acao = eHistoricoAcao.criar;
comando.AdicionarParametroSaida("id", DbType.Int32);
}
comando.AdicionarParametroEntrada("titulo", outro.Titulo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", outro.ProtocoloReq.Id, DbType.Int32);
comando.AdicionarParametroEntrada("informacao_corte", outro.InformacaoCorte, DbType.Int32);
comando.AdicionarParametroEntrada("destinatario", outro.Destinatario, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
if (id == null || Convert.IsDBNull(id))
{
outro = outro ?? new OutrosInformacaoCorte();
outro.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
#endregion
#region Histórico
Historico.Gerar(outro.Titulo.Id, eHistoricoArtefatoEspecificidade.outrosinformacaocorte, acao, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
internal void Salvar(CadAplicProdutosAgrotoxicos cadastroAplicadora, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
#region Título de Cadastro de Aplicadora de Produtos Agrotoxicos
eHistoricoAcao acao;
object id;
bancoDeDados.IniciarTransacao();
//Verifica a existencia da especificidade
Comando comando = bancoDeDados.CriarComando(@"select e.id from {0}esp_cad_aplic_prod_agr e where e.titulo = :titulo", EsquemaBanco);
comando.AdicionarParametroEntrada("titulo", cadastroAplicadora.Titulo.Id, DbType.Int32);
id = bancoDeDados.ExecutarScalar(comando);
if (id != null && !Convert.IsDBNull(id))
{
comando = bancoDeDados.CriarComando(@"update {0}esp_cad_aplic_prod_agr e set e.titulo = :titulo,
e.protocolo = :protocolo, e.destinatario = :destinatario,
e.tid = :tid where e.titulo = :titulo" , EsquemaBanco);
acao = eHistoricoAcao.atualizar;
cadastroAplicadora.Id = Convert.ToInt32(id);
}
else
{
comando = bancoDeDados.CriarComando(@"insert into {0}esp_cad_aplic_prod_agr e (id, titulo, protocolo, destinatario, tid) values
({0}seq_esp_cad_aplic_prod_agr.nextval, :titulo, :protocolo, :destinatario, :tid)
returning e.id into :id" , EsquemaBanco);
acao = eHistoricoAcao.criar;
comando.AdicionarParametroSaida("id", DbType.Int32);
}
comando.AdicionarParametroEntrada("titulo", cadastroAplicadora.Titulo.Id, DbType.Int32);
comando.AdicionarParametroEntrada("protocolo", cadastroAplicadora.ProtocoloReq.Id, DbType.Int32);
comando.AdicionarParametroEntrada("destinatario", cadastroAplicadora.Destinatario, DbType.Int32);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
bancoDeDados.ExecutarNonQuery(comando);
if (id == null || Convert.IsDBNull(id))
{
cadastroAplicadora = cadastroAplicadora ?? new CadAplicProdutosAgrotoxicos();
cadastroAplicadora.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
}
#endregion
#region Histórico
Historico.Gerar(Convert.ToInt32(cadastroAplicadora.Titulo.Id), eHistoricoArtefatoEspecificidade.cadaplicprodutosagrotoxicos, acao, bancoDeDados);
#endregion
bancoDeDados.Commit();
}
}
public OutrasPenalidades Criar(OutrasPenalidades outrasPenalidades, BancoDeDados banco = null)
{
using (BancoDeDados bancoDeDados = BancoDeDados.ObterInstancia(banco))
{
bancoDeDados.IniciarTransacao();
Comando comando = bancoDeDados.CriarComando(@"
insert into {0}tab_fisc_outras_penalidades (id,
fiscalizacao,
iuf_digital,
iuf_numero,
iuf_data,
serie,
descricao,
arquivo,
tid)
values ({0}seq_fisc_outras_penalidades.nextval,
:fiscalizacao,
:iuf_digital,
:iuf_numero,
:iuf_data,
:serie,
:descricao,
:arquivo,
:tid)
returning id into :id", EsquemaBanco);
comando.AdicionarParametroEntrada("fiscalizacao", outrasPenalidades.FiscalizacaoId, DbType.Int32);
comando.AdicionarParametroEntrada("iuf_digital", outrasPenalidades.IsDigital, DbType.Boolean);
comando.AdicionarParametroEntrada("iuf_numero", outrasPenalidades.NumeroIUF, DbType.String);
comando.AdicionarParametroEntrada("iuf_data", outrasPenalidades.DataLavratura.Data, DbType.DateTime);
comando.AdicionarParametroEntrada("serie", outrasPenalidades.SerieId, DbType.Int32);
comando.AdicionarParametroEntrada("descricao", outrasPenalidades.Descricao, DbType.String);
comando.AdicionarParametroEntrada("tid", DbType.String, 36, GerenciadorTransacao.ObterIDAtual());
comando.AdicionarParametroSaida("id", DbType.Int32);
if (outrasPenalidades.Arquivo == null)
{
comando.AdicionarParametroEntrada("arquivo", DBNull.Value, DbType.Int32);
}
else
{
comando.AdicionarParametroEntrada("arquivo", outrasPenalidades.Arquivo.Id, DbType.Int32);
}
bancoDeDados.ExecutarNonQuery(comando);
outrasPenalidades.Id = Convert.ToInt32(comando.ObterValorParametro("id"));
Historico.Gerar(outrasPenalidades.FiscalizacaoId, eHistoricoArtefato.fiscalizacao, eHistoricoAcao.atualizar, bancoDeDados);
Consulta.Gerar(outrasPenalidades.FiscalizacaoId, eHistoricoArtefato.fiscalizacao, bancoDeDados);
bancoDeDados.Commit();
}
return(outrasPenalidades);
}