Lei antifumo está em vigor em São Paulo
A Lei 13.541/09 - que proíbe o fumo em qualquer lugar fechado de uso comum - entrou em vigor em todo o estado de São Paulo à meia-noite desta sexta (7). A lei estadual é semelhante à Lei 9294/96 (federal), que está em vigor, com a diferença de que não permite a existência de locais reservados para fumantes - os fumódromos - dentro dos estabelecimentos.
No caso de descumprimento da determinação, a punição varia de multa de R$ 792 até a interdição do estabelecimento por um mês no caso de reincidência.
Para o pneumologista da Universidade de Brasília (UnB) Carlos Alberto Viegas, a lei paulista interfere mais nos ambientes privados, ao contrário da norma federal que trata essencialmente de locais públicos. Ele ressaltou que apesar de ser uma medida voltada principalmente para resguardar os não fumantes, os tabagistas acabam sendo estimulados a largar o vício.
“Na medida em que ela [a lei] dificulta o acesso ao tabaco, porque você só vai poder fumar na rua e na sua casa. Essa redução do consumo do tabaco é uma forma de ajudar o fumante, porque ele vai consumir menos droga e, quem sabe, fumando menos ele se predispõe a parar totalmente de fumar”, considerou.
De acordo com Viegas, em países onde foi adotada legislação semelhante houve diminuição de 10% a 15% no número de fumantes.
O diretor jurídico da Associação Brasileira de Gastronomia, Hospedagem e Turismo de São Paulo (Abresi), Marcus Vinícius Rosa, disse que a lei pode causar um número semelhante de demissões no setor. Segundo ele, 10% dos trabalhadores de restaurantes, 15% dos de bares e até 20% dos de casas noturnas poderão ficar desempregados.
Rosa acredita que a lei “proíbe a livre iniciativa e o direito das pessoas” além de ser inconstitucional, por já existir uma norma federal sobre o assunto. “A União legisla para dar a unidade nacional e ela já fez essa legislação. A [Lei] 9294/96 que prevê fumódromo”, afirmou.
Em João Pessoa, o diretor-geral da Agência Estadual de Vigilância Sanitária, Jorge Molina, garantiu que nenhum restaurante ou shopping center tem fumódromo. Ele assegurou ainda que está acabando com o uso do cigarro nos bares e nas casas noturnas, considerando que estar em um ambiente poluído vai contra a legislação trabalhista.
“Mesmo que a lei federal deixe uma brecha para instalação de fumódromos, para a lei trabalhista não é permitido nenhum tipo de fumo dentro de ambiente fechado”, explicou. Com base nisso, a agência vem trabalhando na educação e conscientização dos empresários. Segundo Molina, o principal argumento é que “muito mais caro do que uma multa seria uma ação trabalhista por danos à saúde”.
Apesar de dizer que está tendo sucesso com essa abordagem, Molina admite que uma lei como a de São Paulo teria tornado mais fácil a tarefa de acabar com o fumo em qualquer lugar fechado.
Fonte: Agência Brasil
Publicado em 07/08/2009
" & 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 = "Lei antifumo está em vigor em São Paulo" strBody = strBody & "O link abaixo é uma sugestão de leitura: Lei antifumo está em vigor em São Paulo" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc746.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Lei antifumo está em vigor em São Paulo" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc746.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
%>