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
" & 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. %> <% '
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 %>