Pular para o conteúdo principal

CPI da Petrobras

Após novo adiamento para a instalação da CPI da Petrobras estamos aqui para exigir que os senhores senadores compareçam a sala onde funcionará a comissão, já que na última semana por duas vezes não o fizeram.
Entenda a CPI
A CPI criada para investigar irregularidades na Petrobras contou com o apoio de 30 senadores, três a mais que o número mínimo necessário para a criação de uma Comissão de Inquérito. O autor do pedido é o senador tucano Álvaro Dias (PSDB-PR).
Em seu requerimento, Álvaro destaca os seguintes pontos a serem investigados:

  • Indícios de fraudes nas licitações para reforma de plataformas de exploração de petróleo apontados pela operação “Águas Profundas” da Polícia Federal;

  • Graves irregularidades nos contratos de construção de plataformas, apontados pelo Tribunal de Contas da União;

  • Indícios de superfaturamento na construção da refinaria Abreu e Lima, em Pernambuco, apontados por relatório do Tribunal de Contas da União;

  • Denúncias de desvios de dinheiro dos royalties do petróleo, apontados pela operação “Royalties”, da Polícia Federal;

  • Denúncias de fraudes do Ministério Público Federal envolvendo pagamentos, acordos e indenizações feitos pela ANP a usineiros;

  • Denúncias de uso de artifícios contábeis que resultaram em redução do recolhimento de impostos e contribuições no valor de R$ 4,3 bilhões;

  • Denúncias de irregularidades no uso de verbas de patrocínio da estatal.
A CPI vai ter 180 dias para realizar seus trabalhos, podendo ser prorrogada por igual período. (Último Segundo)
Movimento
É com muito orgulho que estamos aderindo ao movimento da Thais, deixando aqui nosso sentimento de repulsa pelo desinteresse (seja lá qual for o motivo) dos $enadores em relação a CPI.
cpipetrobras
Seguem os e-mails dos excelentíssimos, façamos nossa parte também:
Destinatários:
Almeida Lima (PMDB-SE) almeida.lima@senador.gov.br
Álvaro Dias (PSDB-PR) alvarodias@senador.gov.br
Antônio Carlos Junior (DEM-BA) acmjr@senador.gov.br
Delcídio Amaral (PT-MS) delcidio.amaral@senador.gov.br
Fernando Collor (PTB-AL) fernando.collor@senador.gov.br
Gim Argello (PTB-DF) gim.argello@senador.gov.br
Heráclito Fortes (DEM-PI) heraclito.fortes@senador.gov.br
Ideli Salvatti (PT-SC) ideli.salvatti@senadora.gov.br
Inácio Arruda (PCdoB-CE) inacioarruda@senador.gov.br
Jefferson Praia (PDT-AM) jefferson.praia@senador.gov.br
João Pedro (PT-AM) joaopedro@senador.gov.br
Leomar Quintanilha (PMDB-TO) leomar@senador.gov.br
Marcelo Crivella (PRB-RJ) crivella@senador.gov.br
Paulo Duque (PMDB-RJ) paulo.duque@senador.gov.br
Romero Jucá (PMDB-RR) romero.juca@senador.gov.br
Sérgio Guerra (PSDB-PE) sergio.guerra@senador.gov.br
Tasso Jereissati (PSDB-CE) tasso.jereissati@senador.gov.br
Valdir Raupp (PMDB-RO) valdir.raupp@senador.gov.br
Fonte:
Marcadores:

Comentários

  1. mariana7 de junho de 2009 às 17:49

    q bom q vc gostou!!!


    bom eu acabei de postar a parte 2 do 1º cap.

    vai lá.. tem até votação nesse post!

    bjooss!

    ResponderExcluir
  2. Thaís Gomes8 de junho de 2009 às 10:08

    Olá Eduardo!

    Obrigada pela segunda adesão às campanhas de e-mail do meu blog. Acredito que formamos uma "REDE do BEM" e que teremos muito sucesso e trabalho pela frente. Depois me envie seu e-mail de contato para trocarmos idéias nos bastidores.

    Abraço,

    Thaís

    ResponderExcluir

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

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 ...
10 comentários
Leia mais

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; ...
2 comentários
Leia mais

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 := ...
2 comentários
Leia mais