Desemprego continua caindo. Segundo o Diesse, taxa é de 12,7 pontos

Os dados fazem parte de pesquisa realizada regularmente pelo convênio mantido entre Dieese e Fundação Seade, com apoio do Ministério do Trabalho e Emprego e parceria com instituições e governos regionais. Em junho de 2009, a taxa de desemprego chegava a 14,6%
Em junho, a taxa de desemprego no conjunto de regiões que compõem o Sistema PED - Distrito Federal e regiões metropolitanas de Belo Horizonte, Fortaleza, Porto Alegre, Recife, Salvador e São Paulo - reduziu-se para 12,7%, frente aos 13,2% registrados em maio.

Os dados fazem parte de pesquisa realizada regularmente pelo convênio mantido entre Dieese e Fundação Seade, com apoio do Ministério do Trabalho e Emprego e parceria com instituições e governos regionais. Em junho de 2009 a taxa de desemprego chegava a 14,6%.

Belo Horizonte, onde a taxa de desemprego ficou em 8,5%, em junho, apresentou o melhor resultado, com uma redução de 11,5%, em comparação com maio e de 22,7%, em relação a junho de 2009.
Também em Porto Alegre, a taxa de desemprego teve um dígito (9,5%), mas apresentou pequena retração em relação ao mês anterior (-1,0%), ainda que tenha sido grande o recuo do desemprego em um ano (-20,8%).

Outros estados

A taxa de desemprego ficou estável, em maio, em 10,6%, em Fortaleza, mas caiu 14,5%, em comparação com junho de 2009. Na Grande São Paulo, a taxa de 12,9% representou um recuo de 3,0% em um mês e de 9,2%, em doze meses (a menor variação entre as regiões pesquisadas no período).

O Distrito Federal apresentou taxa de desemprego de 14,0%, com queda de 2,1%, em um mês, e de 14,6%, em um ano.

Em Salvador, a taxa de desemprego teve redução de 8,2%, em relação a maio e de 21,6%, frente a junho do ano passado, e correspondeu a 16,7%. A maior taxa foi registrada em Recife (17,6%), com recuo de 3,8% no mês e de 9,3%, em um ano.

O total de desempregados, no conjunto de regiões pesquisadas, ficou, em junho, em 2.795 mil pessoas, 109 mil a menos que em maio. Em relação a junho do ano passado, a redução foi de 380 mil.

O nível de ocupação cresceu 0,8%, em junho, com a criação de 160 mil ocupações. Com isso, o total de ocupados nas sete regiões pesquisadas foi estimado em 19.228 mil pessoas. Em um ano, foram criados 729 mil postos de trabalho nas áreas pesquisadas.

Quando se analisa a ocupação por região, verifica-se expansão em todas elas, com destaque para Salvador (2,9% no mês e 8,0% no ano). Em Fortaleza e Belo Horizonte o crescimento foi de 0,8% em comparação com maio. Em relação a 2009, houve aumento de 6,8%, na primeira e de 1,7%, na segunda.

A elevação da ocupação, em São Paulo, foi de 0,7%, em um mês e de 3,4%, em 12. Distrito Federal e Porto Alegre apresentaram expansão de 0,4%, frente a maio. Em 12 meses a elevação foi de 5,5%, na primeira e de 2,5%, na segunda. Recife registrou variação positiva de 0,3% no nível de ocupação em um mês, e de 4,7%, no ano.

Dentre os diferentes setores de atividade, a Indústria apresentou pequena variação negativa de 0,2%, frente a maio, e o total de postos foi estimado em 2.970 mil. Em relação a junho de 2009, o incremento foi de 9,3%. Foi pouco expressivo, no mês, o avanço da Construção Civil (0,5%), setor onde trabalham 1.227 mil pessoas e que registra expansão de 10,7%, no ano.

O rendimento médio real dos ocupados cresceu 1,1%, em maio, passando a corresponder a R$ 1.259, enquanto o salário médio real teve aumento de 1,0% e seu valor ficou em R$ 1.322. Em 12 meses, o rendimento médio real dos ocupados cresceu 2,7% e o dos assalariados aumentou 0,7%.

Fonte: Dieese


ENVIE A MATÉRIA:

<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: Desemprego continua caindo. Segundo o Diesse, taxa é de 12,7 pontos" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1324.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Desemprego continua caindo. Segundo o Diesse, taxa é de 12,7 pontos" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Desemprego continua caindo. Segundo o Diesse, taxa é de 12,7 pontos" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1324.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %>
<% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %>
Seu nome:
Seu e-mail:
Para:
 
<% '

The Message to be sent:

'

Subject: < %= strSubject % >

'

Body: < %= strBody % >

End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>

Sua mensagem foi enviada com sucesso. <% End Sub %>