<%
Sub FimVigencia()
'Request.Form(TVigFim) = wData
end Sub
%>
<%
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open StringConexao
wID_EMPRESA=request.item("ID_EMPRESA")
wID_Vendedor=request.item("ID_Vendedor")
wSQL="SELECT * FROM EMPRESAS"
if wID_Vendedor <> "" then
SQL="SELECT ID_EMPRESA FROM VENDEDORES WHERE ID=" & wID_Vendedor
Set TabVendEmp = Database.Execute(SQL)
wID_EMPRESA = TabVendEmp("ID_EMPRESA")
end if
if wID_EMPRESA <> "" then
wSQL=wSQL & " WHERE ID = " & wID_EMPRESA
end if
Set TabEmpresas = Database.Execute(wSQL)
wSQL="SELECT * FROM VENDEDORES"
wSQL=wSQL & " WHERE 1=1"
if wID_EMPRESA <> "" then
wSQL=wSQL & " AND ID_EMPRESA = " & wID_EMPRESA
if wID_Vendedor <> "" then
wSQL=wSQL & " AND ID = " & wID_Vendedor
end if
end if
wSQL=wSQL & " AND ATIVO = 'S' ORDER BY NOME "
Set TabVendedor = Database.Execute(wSQL)
wSQL="SELECT R_DATA FROM PROC_DATA"
Set TabData = Database.Execute(wSQL)
%>