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); }