<%
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open StringConexao
wID_EMPRESA=request.item("ID_EMPRESA")
wCA_USUARIO="Admin"
wEMP_PLANO=request.item("EMP_PLANO")
wVisualizar=request.item("Visualizar")
wCadastrar=request.item("Cadastrar")
wComissao=request.item("Perc_Comissao")
SQL1= "UPDATE EMPRESAS_PLANOS EM SET EM.PER_CADASTRAR = 'N', EM.PER_VISUALIZAR = 'N' WHERE EM.ID_EMPRESA = " & wID_EMPRESA
Set TabZeraPlanos = Database.Execute(SQL1)
'Visualizar
if wVisualizar = "" then
wVisualizar=9999999
end if
SQL="SELECT ID FROM PLANOS WHERE ID IN (" & wVisualizar & ")"
Set TabSegPlanos = Database.Execute(SQL)
if not TabSegPlanos.EOF then
While NOT TabSegPlanos.EoF
wID_PLANO=TabSegPlanos("ID")
SQL1= "SELECT COALESCE(COUNT(*),0) as QT_PLANO FROM EMPRESAS_PLANOS WHERE ID_EMPRESA=" & wID_EMPRESA & " AND ID_PLANO= " & wID_PLANO
Set TabTemPlanos = Database.Execute(SQL1)
if (TabTemPlanos("QT_PLANO") = 0) then
SQL="INSERT INTO EMPRESAS_PLANOS (ID_EMPRESA, ID_PLANO, PER_VISUALIZAR, CA_USUARIO) VALUES (" & wID_EMPRESA & "," & wID_PLANO & ",'S','" & wCA_USUARIO & "')"
Set TabSegPlanosCad = Database.Execute(SQL)
else
SQL="UPDATE EMPRESAS_PLANOS SET PER_VISUALIZAR='S' WHERE ID_EMPRESA = " & wID_EMPRESA & " AND ID_PLANO=" & wID_PLANO
Set TabSegPlanosCad = Database.Execute(SQL)
end if
TabSegPlanos.MoveNext
Wend
end if
'Cadastrar
if wCadastrar = "" then
wCadastrar=9999999
end if
SQL="SELECT ID_PLANO FROM EMPRESAS_PLANOS WHERE ID_EMPRESA = " & wID_EMPRESA & " AND ID_PLANO IN (" & wCadastrar & ")"
Set TabSegPlanos = Database.Execute(SQL)
if not TabSegPlanos.EOF then
While NOT TabSegPlanos.EoF
wID_PLANO=TabSegPlanos("ID_PLANO")
SQL1= "SELECT COALESCE(COUNT(*),0) as QT_PLANO FROM EMPRESAS_PLANOS WHERE ID_EMPRESA=" & wID_EMPRESA & " AND ID_PLANO= " & wID_PLANO
Set TabTemPlanos = Database.Execute(SQL1)
if (TabTemPlanos("QT_PLANO") = 0) then
SQL="INSERT INTO EMPRESAS_PLANOS (ID_EMPRESA, ID_PLANO, PER_CADASTRAR , CA_USUARIO) VALUES (" & wID_EMPRESA & "," & wID_PLANO & ",'S','" & wCA_USUARIO & "')"
Set TabSegPlanosCad = Database.Execute(SQL)
else
SQL="UPDATE EMPRESAS_PLANOS SET PER_CADASTRAR='S' WHERE ID_EMPRESA = " & wID_EMPRESA & " AND ID_PLANO=" & wID_PLANO
Set TabSegPlanosCad = Database.Execute(SQL)
end if
TabSegPlanos.MoveNext
Wend
'Cadastrar sem visualizar
SQL="SELECT ID "
SQL=SQL & " FROM PLANOS P "
SQL=SQL & " WHERE NOT EXISTS ( "
SQL=SQL & " SELECT NULL "
SQL=SQL & " FROM EMPRESAS_PLANOS EP "
SQL=SQL & " WHERE EP.ID_EMPRESA = " & wID_EMPRESA
SQL=SQL & " AND EP.ID_PLANO = P.ID "
SQL=SQL & " ) "
SQL=SQL & " AND P.ID IN (" & wCadastrar & ")"
SQL1=SQL
Set TabSegPlanos = Database.Execute(SQL)
While NOT TabSegPlanos.EoF
wID_PLANO=TabSegPlanos("ID")
SQL1= "SELECT COALESCE(COUNT(*),0) as QT_PLANO FROM EMPRESAS_PLANOS WHERE ID_EMPRESA=" & wID_EMPRESA & " AND ID_PLANO= " & wID_PLANO
Set TabTemPlanos = Database.Execute(SQL1)
if (TabTemPlanos("QT_PLANO") = 0) then
SQL="INSERT INTO EMPRESAS_PLANOS (ID_EMPRESA, ID_PLANO, PER_CADASTRAR , CA_USUARIO) VALUES (" & wID_EMPRESA & "," & wID_PLANO & ",'S','" & wCA_USUARIO & "')"
Set TabSegPlanosCad = Database.Execute(SQL)
else
SQL="UPDATE EMPRESAS_PLANOS SET PER_CADASTRAR='S' WHERE ID_EMPRESA = " & wID_EMPRESA & " AND ID_PLANO=" & wID_PLANO
Set TabSegPlanosCad = Database.Execute(SQL)
end if
TabSegPlanos.MoveNext
Wend
end if
%>
