Trabalho escravo não é apenas uma mera irregularidade
O combate ao trabalho escravo ganhou destaque na agenda política das últimas semanas com a visita ao Brasil da relatora especial da ONU para formas contemporâneas de escravidão, a advogada armênia Gulnara Shahinian, e a realização do 1º Encontro Nacional pela Erradicação do Trabalho Escravo, sediado em Brasília.
Por Paulo Vannuchi*
Na abertura do evento, o vice-presidente do STF, ministro Carlos Ayres Britto, destacou as "múltiplas inconstitucionalidades do trabalho escravo", que viola os preceitos constitucionais da primazia do trabalho e da dignidade da pessoa humana. E sustentou que sua erradicação é uma obrigação do poder público e um desafio para toda a sociedade brasileira.
Desde 1995, 38 mil trabalhadores já foram libertados da condição análoga à escravidão no país, sendo 32 mil nos dois mandatos do presidente Lula.
O diretor da OIT para América Latina e Caribe, Jean Maninat, saudou as políticas brasileiras de enfrentamento e destacou o bom exemplo das mais de 200 empresas que integram o Pacto Nacional pela Erradicação do Trabalho Escravo, assumindo o compromisso de romperem negócios com fornecedores autuados por tal prática criminosa.
Apesar das milhares de libertações já ocorridas, as condenações por esse crime ainda são muito escassas. Uma contribuição mais efetiva dos Poderes Judiciário e Legislativo foi apontada pela subprocuradora geral da República, Deborah Duprat, como fundamental para a erradicação do trabalho escravo.
No Judiciário, o fim da impunidade para exploradores foi defendido pelo presidente do TST (Tribunal Superior do Trabalho), Milton de Moura França, e pelo procurador-geral do Trabalho, Otávio Brito.
Da parte do Legislativo, o empurrão final ainda precisa ser desbloqueado no Congresso Nacional. A PEC 438, que prevê a expropriação e destinação para reforma agrária de todas as terras onde essa prática seja encontrada, já foi aprovada no Senado e aguarda votação em segundo turno na Câmara.
Um abaixo-assinado pela sua aprovação, com 284 mil assinaturas, foi entregue ao presidente da Casa, deputado Michel Temer, que garantiu seu empenho para finalizar a votação ainda neste ano.
É lamentável, no entanto, que determinados nichos da sociedade ainda tentem confundir o trabalho escravo, definido no artigo 149 do Código Penal, com meras irregularidades trabalhistas, levantando dúvidas sobre a existência dessa prática criminosa no país.
Essa pequena parcela retrógrada do empresariado, socialmente irresponsável, não representa o melhor setor produtivo brasileiro e destoa das grandes empresas que já reconhecem o problema e estão empenhadas na sua erradicação, conscientes da vulnerabilidade que a prática representa para os negócios brasileiros no exterior.
As lideranças mais conscientes do meio empresarial vêm aderindo aos paradigmas da chamada responsabilidade social e sabem que o Brasil não pode correr o risco de perder milhões de reais na sua balança comercial por exploradores que tiram vantagem do trabalho escravo para aumentar seus lucros.
Essa prática atinge hoje menos de 1% dos 17 milhões de trabalhadores rurais brasileiros, mas essa parcela reduzida, ainda mantida em condições degradantes, que violam nossos tratados internacionais, pode causar um grande estrago na imagem do país no exterior e nas relações comerciais.
Esses prejuízos potenciais não são o aspecto ético e jurídico mais importante desse desrespeito à dignidade humana, mas não devem ser subestimados. O país está diante do desafio de conciliar o crescimento econômico que hoje estufa suas velas com o respeito absoluto aos direitos fundamentais.
* Paulo Vannuchi é ministro da Secretaria Especial de Direitos Humanos da Presidência da República e presidente da Comissão Nacional para Erradicação do Trabalho Escravo
Fonte: Folha 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: Trabalho escravo não é apenas uma mera irregularidade" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art497.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Trabalho escravo não é apenas uma mera irregularidade" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Trabalho escravo não é apenas uma mera irregularidade" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art497.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 %>