Pular para o conteúdo principal

Evolução patrimonial dos candidatos, atenção !

Se escolher um palhaço no maior evento circense do mundo esta dificil vamos por eliminação, brincadeiras a parte isso é muito importante, se escolher uma pessoa por suas qualidades esta dificil vamos ao menos desconsiderar os que já se mostraram corruptos.

Candidatos com evolução de bens acima de 250% no período de 2006 à 2010, indicado também se possui ocorrência na justiça e no Tribunal de Contas.

Apelido Concorre a Evol. bens
2006-2010
Ocorrências na Justiça e T. Contas

João Barbosa (Assembleia Legislativa DEM)

Dep.Est.

2163,30%

 

Mauro Bragato (Assembleia Legislativa PSDB)

Dep.Est. 1908,30% Sim

Francisco Rossi (Câmara dos Deputados PMDB)

Dep.Fed.

1138,30%

Sim

Vadão Gomes (Câmara dos Deputados PP)

Dep.Fed.

909,50%

Sim

Vanessa Damo (Assembleia Legislativa PMDB)

Dep.Est.

551,80%

 

Abelardo Camarinha (Câmara dos Deputados PSB)

Dep.Fed.

521,40%

Sim

Waldir Agnello (Assembleia Legislativa PTB)

Dep.Est.

518,40%

 

Lelis Trajano (Assembleia Legislativa PSC)

Dep.Est.

459,00%

 

Ricardo Tripoli (Câmara dos Deputados PSDB)

Dep.Fed.

442,10%

 

Otoniel Lima (Assembleia Legislativa PRB)

Dep.Fed.

425,70%

Sim

Simão Pedro (Assembleia Legislativa PT)

Dep.Est.

420,60%

 

Fernando Capez (Assembleia Legislativa PSDB)

Dep.Est.

346,60%

 

Carlos Giannazi (Assembleia Legislativa PSOL)

Dep.Est.

343,00%

 

Olímpio Gomes (Assembleia Legislativa PDT)

Dep.Est.

336,60%

Sim

Vaz de Lima (Assembleia Legislativa PSDB)

Dep.Fed.

303,30%

 

Carlinhos Almeida (Assembleia Legislativa PT)

Dep.Fed.

274,70%

 

Maria Lúcia Amary (Assembleia Legislativa PSDB)

Dep.Est.

261,30%

 

Vinícius Camarinha (Assembleia Legislativa PSB)

Dep.Est.

250,90%

Sim
       

Clique no nome do candidato para mais detalhes.

Fonte: Transparência Brasil

Comentários

Mais visitadas

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do ...

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of   0: Control.Canvas.Font.Color:=clBlack;   1: Control.Canvas.Font.Color:=clWindow; ...

Como Verificar se um Objeto Existe (Delphi)

Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...