P consultar o relatorio de horas dos analista, eu tenho um cod q filtra a consulta por projeto do analista.. depois eu tenho um Form q abre a consulta por Analista do Projeto certo?
o cod abaixo:
[codebox]
Dim strProjeto,strUsuario,projetos,detalhe
Dim SQL,QUERY
Dim TotalBanco
Dim Analis
Dim user,analistaS,diretoria
user = Request.QueryString("user")
diretoria = Request.Form("diretoria")
if request.querystring("analista") = "" then
analistaS = Request.form("analista")
else
analistaS = Request.QueryString("analista")
'response.write("Analista:"&analista&"<br>")
end if
if Request.Form("projeto_h")="" then
projetos = Request.QueryString("projeto")
else
projetos = Request.Form("projeto_h")
end if
if Request.Form("detalhe")="" then
detalhe = Request.QueryString("detalhe")
else
detalhe = Request.Form("detalhe")
end if
TotalExtraRe = 0
TotalExtraBa = 0
TotalPA = 0
TotalCompen = 0
x = 0
'*** SELECIONANDO TODOS OS PROJETOS SELECIONADOS ***
'strProjeto = BuscaNomeProjeto(projetos)
'*** SELECT PRINCIPAL ***
SQL = "Select apon_projeto as Projeto,"
SQL = SQL & "apon_analista as Analista "
SQL = SQL & "From tbh_apontamento "
SQL = SQL & "Where apon_analista=" & analistas & " "
SQL = SQL & "And apon_projeto In (" & projetos & ") "
SQL = SQL & "Group by Projeto,Analista"
'response.write(SQL)
'response.end
Set QUERY = db.execute(SQL)
...
if QUERY.eof then
%>
Nenhum Registro para este(s) Projeto(s)
<%
else ...
[/codebox]
Se QUERY chegar ao fim.. nao pegou nada e a parece a mensagem na tela
E esse é o problema, nao esta pengando os analistas e os projetos no Select q eu fiz, tem alguma coisa errada no cod?
Tenho q acrescentar alguma coisa?
Edição feita por: Renan L. Queiroz, 20/11/2009, 16:42.
Inclusão da tag [ codebox ] para postagem de scripts
