IBGE: emprego com carteira assinada já passa de 50%

Décimo terceiro salário, férias remuneradas, fundo de garantia e aposentadoria não são mais privilégios de uma minoria de brasileiros. Dados do Instituto Brasileiro de Geografia e Estatística (IBGE) revelam que, pela primeira vez em 16 anos, metade dos trabalhadores das metrópoles do País tem a carteira assinada pelas empresas do setor privado.

A fatia de contratados em regime de CLT (Consolidação das Leis do Trabalho) atingiu 50,3% do total de ocupados em janeiro e 50,7% em fevereiro, conforme o IBGE.

A informalidade nas metrópoles está em um de seus níveis mais baixos: 36,7% dos ocupados (18,1% trabalham sem carteira assinada e 18,6% por conta própria). Em fevereiro, os empresários respondiam por 4,5% do total, militares e funcionários públicos por 7,5%.

É a primeira vez que o setor privado emprega com registro metade dos trabalhadores das grandes cidades desde março de 1994, quando a abertura da economia, o câmbio valorizado, e a expansão dos serviços fechavam vagas nas indústrias. Em números absolutos, significa 11 milhões de pessoas com carteira assinada nas grandes cidades.

O resultado de março será divulgado nesta quinta-feira (29). Para analistas, a previsão é de alta comparado aos 49,3% de vagas formais de março de 2009.
A tendência de avanço da fatia de trabalhadores com carteira é consistente. Em março de 2004, respondia por 43,9% dos ocupados, saltou para 45,7% em março de 2006, 48,3% em março de 2008.

"A formalização do trabalho e a recuperação dos salários demonstram como o Brasil saiu rápido da crise", disse o secretário-geral da Central Única de Trabalhadores (CUT), Quintino Severo.

Para o economista da Confederação Nacional da Indústria (CNI), Flávio Castelo Branco, "é um círculo virtuoso, porque a expansão da economia gera mais formalização, que volta a alimentar o crescimento".

Segundo especialistas, vários motivos explicam a disposição das empresas em assinar a carteira do trabalhador, apesar do peso dos impostos.
O principal é o crescimento da economia, mas também influenciam inflação controlada (que traz previsibilidade), expansão do crédito (os investidores exigem o cumprimento das leis antes de colocar dinheiro em uma empresa) e maior fiscalização.

Apesar dos avanços, quase 8 milhões de pessoas tem um emprego precário nas metrópoles do País, segundo o IBGE. No interior, esse número se multiplica, porque as cidades concentram o emprego formal.

Na agricultura, a produção de subsistência é quase toda informal. Entre as 6,5 milhões de empregadas domésticas brasileiras, apenas 1,5 milhão tem carteira assinada. Muitas pequenas e médias empresas trabalham na informalidade, porque não conseguem pagar os impostos e encargos sociais que fazem um trabalhador custar para a empresa o dobro do seu salário.

Fonte: O Estado de São Paulo


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: IBGE: emprego com carteira assinada já passa de 50%" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1151.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: IBGE: emprego com carteira assinada já passa de 50%" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: IBGE: emprego com carteira assinada já passa de 50%" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1151.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 %>