Jump to content


EuNaoSei

Member Since 12/11/2009
Offline Last Active 15/12/2009, 07:41
-----

Posts I've Made

In Topic: [Resolvido] Erro - Tipos Incompativeis

11/12/2009, 15:38

Oi Gente...

Estou mechendo em um cod q nao é meu (isso é horriveel..) e esta dando um erro q eu nao entendi o q pode ser, tenho os seguintes cod:

(FORMULARIO)

If aTotLinha(1) + aTotLinha(2) + aTotLinha(3) <> 0 Then%>					<form method="post" name="frm<%=variavel_x%>" action="Rel_BancoHorasAtual.asp?op=<%=op%>">				 <input type="hidden" name="analista" value="<%=analista_%>">				 <input type="hidden" name="data_i_" value="<%=data_i_%>">				 <input type="hidden" name="data_f_" value="<%=data_f_%>">								 <input type="hidden" name="usuario" value="<%=DADOS_PRINCIPAL("nome_analista")%>">				 <input type="hidden" name="data" value="<%=DADOS_PRINCIPAL("Data")%>">				 <input type="hidden" name="projeto_h" value="<%=projeto_%>">							<tr class="F_Centro F_Preto_PP FundoCinzaClaro L_Hand" onmouseover="javascript: muda_cor_fundo('<%=DADOS_PRINCIPAL("codigo")%>')" onmouseout="javascript: volta_cor_fundo('<%=DADOS_PRINCIPAL("codigo")%>')" onclick="document.frm<%=variavel_x%>.submit();"  id="<%=DADOS_PRINCIPAL("codigo")%>">									<td><%=DADOS_PRINCIPAL("nome_analista")%></td>					<td><%=CorrigeDataMA(DADOS_PRINCIPAL("Data"))%></td>					<td><%=ConverteMinutos(aTotLinha(1),0)%></td>					<td><%=ConverteMinutos(aTotLinha(3),0)%></td>					<td><%=ConverteMinutos(aTotLinha(2),0)%></td>					<td><%=ConverteMinutos(aTotLinha(1)-aTotLinha(2),0)%></td>					<td><%=FormatNumber((aTotLinha(1)-aTotLinha(2))/60,2)%></td>								  </tr><%			end if%>

Nessa parte ira abrir outra pagina na mesma janela q retornara o resultado por analista(o usuario da session), por data,e para retornar isso, tenho o seguinte select..

(FUNÇÃO - Func_UtlApon)
Dim SQL_, QUERY_		SQL_ = "Select a_analista "	SQL_ = SQL_ & "From t_apontamento "	SQL_ = SQL_ & "Where "		if op_ = 3 or op_ = 4 then			SQL_ = SQL_ & "apon_data Between  '" & data_ & "01' and '" & data_ & "31' "		else			if op_ = 2 then				SQL_ = SQL_ & "apon_data Between  '" & data_ & "01' and '" & dataF_ & "31' "				if motivo_ <> 0 then					SQL_ = SQL_ & "And apon_motivo = " & motivo_ & " "				end if			end if		end if		if projetos_ <> "0" then			SQL_ = SQL_ & "And apon_projeto In (" & projetos_ & ") " 		end if		if user_ <> 0 then			SQL_ = SQL_ & "And apon_analista = " & user_ & " "		end if

Sendo que o resultado de user é uma queryString
user_ = Request.QueryString("user")
e no link dessa chamada user é 1 ou 0
entao se user_ for 1 ele pega o analista da session.. q é feito aqui

If user_ <> "" then	'Verifica os projetos do analista	If user_ = 0 then 		SQL = "Select proj_text,proj_code FROM tb_projeto "		SQL = SQL & "INNER JOIN t_time ON t_time.time_projeto=tb_projeto.proj_code "		SQL = SQL & "INNER JOIN t_time_analistas ON t_time.ti_code=tbc_ti_analistas.ti_time "		SQL = SQL & "WHERE ti_analista = " & Session("usuario") & " "		SQL = SQL & "GROUP BY proj_text ORDER BY proj_text"				Set PROJETO = db.execute(SQL)		'Retorna todos os projetos quando estiverem no Financeiro 	else 		SQL = "Select proj_text,proj_code From tb_projeto "		SQL = SQL & "Where proj_finan = " & Session("usuario")					'Verifica se é Gerente ou Diretor para listar os projetos respectivamente			if filt_ = 0 then 				SQL = SQL & " Or proj_dir = " & Session("usuario")				SQL = SQL & " Or proj_ger = " & Session("usuario")			end if			 		SQL = SQL & " ORDER BY proj_text"				Set PROJETO = db.execute(SQL)			End if

o Erro q esta dando é esse..

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'user_'
/suporte/Func_UtilApon.asp, line 241

Linha 141:
if user_ <> 0 then			SQL_ = SQL_ & "And apon_analista = " & user_ & " "		end if

Espero que alguem entenda e possa me ajudaaar :rolleyes:

Agradeço desde já.




DEU CERTO RENAAN! Obrigada!!

In Topic: [Resolvido] Query String

19/11/2009, 14:02

tah dando esse erro agora..

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: '[string: ""]'
/suporte/Filt_Apontamento2.asp, line 43


Linha 43...
[codebox]if filt_ = 0 then '*** FILT = 0 - Lista Todos os projetos que o usuário é Gestor,Diretor ou Financeiro ***
SQL2 = SQL2 & " Or proj_dir = " & Session("usuario")
SQL2 = SQL2 & " Or proj_ger = " & Session("usuario")
end if
[/codebox]

Resolvi o erro.. maaais continua nao pegando o valor da user

:wacko:

Consegui Resolveer :lol:

IPB Skin By Virteq