Em oito meses, Brasil já se aproxima da criação de dois milhões de empregos
Depois de dois meses menos aquecidos, o Brasil voltou a ter geração recorde de empregos com carteira assinada em agosto, com 299 mil novas vagas, informou, nesta quinta-feira, o Ministério do Trabalho, com base no Caged (Cadastro Geral de Empregados e Desempregados). No acumulado do ano, já são 1,95 milhão de novos postos, superando o mesmo período de 2008, antigo recorde da série histórica, iniciada em 1991.
O resultado de agosto representa crescimento de 23,7% ante o mesmo mês do ano passado, que havia tido o melhor resultado da série para o mês até então (242.126 postos). Esse é a quarta maior geração mensal de empregos com carteira assinada na história do Caged.
O ministro Carlos Lupi manteve a meta de 2,5 milhões de vagas formais para 2010 e previu mais um recorde para setembro. O melhor desempenho foi, novamente, o do setor de serviços, com criação de 128 mil postos, segundo o Caged. Nos subsetores, as instituições financeiras foram as únicas que não bateram recorde.
O desempenho em agosto, de acordo com o ministério, ocorreu graças ao recorde em vários setores, como o de serviços, que teve abriu 128.232 novas vagas, crescimento de 0,93%. A indústria da transformação também teve o melhor resultado para o período com 70.393 novos emprego, alta de 0,90 %. O comércio também teve recorde no período com a abertura de 65.083 postos, alta de 0,86 %.
RJ e outros estados
Os preparativos para a Copa 2014 e os Jogos Olímpicos de 2016 ajudaram o estado do Rio de Janeiro a registrar o melhor saldo de geração de empregos desde 1992. Quase 25 mil pessoas conseguiram vagas com carteira assinada, e de acordo com Lupi, o resultado está relacionado aos dois eventos.
Lupi disse ainda que o Rio de Janeiro tem atualmente grande expansão nos setores da construção civil e da hotelaria, e que estão sendo realizados muito seminários e congressos na cidade.
No estado, os setores que mais cresceram foram o de serviços, com 13.355 novos postos de trabalho; o de comércio, com 4.806 empregos gerados; e a indústria de transformação, com 4.407 empregos criados. A construção civil gerou 2.185 postos em agosto.
O estado que teve o melhor desempenho absoluto foi São Paulo, com 90. 633 postos. Os setores que mais se destacaram no estado foram o de serviços (39.410 empregos), comércio (28.557 empregos) e da indústria de transformação (15.066 empregos).
Na Região Nordeste, Pernambuco teve o melhor resultado na geração de empregos, com 21.799, o que representa uma expansão de 2,08% na comparação com o mês anterior. Um dos fatores que puxou a alta foi a agricultura, com a safra de cana-de-açúcar. Esse setor gerou em agosto 3.352 empregos.
Em Pernambuco, o setor que teve a melhor geração de empregos foi o da indústria de transformação, com 8.086 novos postos, seguido da construção civil, com 4.471, e de serviços, com 4.181.
Fonte: CTB
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: Em oito meses, Brasil já se aproxima da criação de dois milhões de empregos" & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1397.asp" & vbCrLf
Else
strBody = "O link abaixo é uma sugestão de leitura: Em oito meses, Brasil já se aproxima da criação de dois milhões de empregos"
sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Em oito meses, Brasil já se aproxima da criação de dois milhões de empregos" & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1397.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!
%>
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 %>