EuNaoSei

Oi gente (euu aqui de novo rs..)

Estou com erro em uma função q nao sei como resolver

Quando os sao soh minutos tipo 00:30 e resultado nao fica negativo, quando a condição precisar q seja.. é assim

Function ConverteMinutos(minutos,delimitador)
	Dim hor,hora,min,resultado,inicio,resto,x
	if delimitador = 3 then
		resultado = minutos/60
	else
		if Abs(minutos) >= 60 then
			resto = minutos Mod 60
			hor = (minutos-resto)/60
			if len(hor) < 2 then
				hor = "0"&hor
			end if
			
			if resto = 0 then
				min = "00"
				resultado = hor & ":" & min
			else
				if len(Abs(resto)) < 2 then
					if resto = "" then
						min = "00"
					else
					min = "0"&Abs(resto)
					end if
				else
					
					min = Abs(resto)
				end if
				If delimitador = "1" then
					resultado = hor & " horas e " & min & " minutos"
				else
					resultado = hor & ":" & min
					
				end if
			end if
		else
			if minutos <> "" then
				min = Abs(minutos)
				if len(minutos) < 2 then
					if minutos = "" then
						min = "00"
					else
						min = "0"&Abs(minutos)
					end if
				end if
				If delimitador = "1" then
					resultado =  "0 horas e " & Abs(min) & " minutos"
				else
					resultado = "00:" & (min)
				end if
			else
				resultado = "00:00"
			end if
		end if
	end if
	ConverteMinutos = resultado

End Function

entao o problema acontece quando o resultado é "00:" & (min) ai ele nao coloca o negativo na frente

Alguem saberia me dizer o q eu posso fazer p solucionar esse problema?

Agradeço desde Já.

Oi Gente !

Eu nao manjo muito de java, mais tenho que entender esse codigo que o outra pessoa fez p corrige um erro que esta dando... alem de eu nao saber muito da linguagem, nao foi eu que fiz rsrs

Bom, é o seguinte.. esse fonte tem q pegar o usuario e senha da sessão e abrir outra pagina, mais soh fica dando "Usuario e senha invalida"
Alguem pode me ajudar a entender esse codigo ou verificar se tem algum erro visivel?

O codigo é o seguinte




package servlets;

import database.TbUserDAO;
import database.TbUserVO;
import java.io.*;
import java.net.*;
import java.util.ArrayList;
import javax.servlet.*;
import javax.servlet.http.*;

/**
*
* @author Paulo Ricardo
* @version
*/
public class PesqMRCtrlAcesso extends HttpServlet {

protected void processRequest(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException {

String parUsu = request.getParameter("usuarioMR");
String parPsd = request.getParameter("senhaMR");

if ((parUsu == null) || (parPsd == null)) {
request.getSession().setAttribute("msgErro","");
getServletContext().getRequestDispatcher("/Login.jsp").forward(request, response);
} else if ((parUsu.trim().equals("")) || (parPsd.trim().equals(""))) {
request.getSession().setAttribute("msgErro","Usuário ou Senha inválida!");
getServletContext().getRequestDispatcher("/Login.jsp").forward(request, response);
} else {

ArrayList usuario = null;
try {
TbUserDAO tbuserDAO = new TbUserDAO();
tbuserDAO.setUser(parUsu);
usuario = tbuserDAO.getUsuario();
tbuserDAO.close();
} catch (Exception e) {
e.printStackTrace();
}
if ((usuario == null) || (usuario.size() == 0)) {
request.getSession().setAttribute("msgErro","Usuário ou Senha inválida!");
getServletContext().getRequestDispatcher("/Login.jsp").forward(request, response);
} else {
TbUserVO usuarioVO = (TbUserVO)usuario.get(0);
if (usuarioVO.getUsSenha().equalsIgnoreCase(parPsd)) {
request.getSession().setAttribute("usuarioMR", parUsu);
request.getSession().setAttribute("senhaMR" , parPsd);
request.getSession().setAttribute("empresaMR", new Double(usuarioVO.getUsEmpresa()));
request.getSession().setAttribute("msgErro","");
getServletContext().getRequestDispatcher("/PesqMRPrincipal.jsp").forward(request, response);
} else {
request.getSession().setAttribute("msgErro","Senha incorreta!");
getServletContext().getRequestDispatcher("/Login.jsp").forward(request, response);
}

}

}

}

protected void doGet(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException {
processRequest(request, response);
}

protected void doPost(HttpServletRequest request, HttpServletResponse response)
throws ServletException, IOException {
processRequest(request, response);
}

}






Agradeço desde já

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)
[codebox]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%>
[/codebox]

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)
[codebox] 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
[/codebox]

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

[codebox]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
[/codebox]

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:
[codebox]if user_ <> 0 then
SQL_ = SQL_ & "And apon_analista = " & user_ & " "
end if
[/codebox]

Espero que alguem entenda e possa me ajudaaar

Agradeço desde já.

Bom Dia!

Tenho a seguinte função:

Function BuscaTotalExtraR(projeto_)
	Dim SQL_,QUERY_
	
	SQL_ = "Select SUM(tbh_apontamento.apon_horaTotal) as BuscaTotalExtraR "
	SQL_ = SQL_ & "From tbh_apontamento "
	SQL_ = SQL_ & "Where apon_aprovado=3 "
	SQL_ = SQL_ & "And(apon_motivo=2 or apon_motivo=5) "
	SQL_ = SQL_ & "And apon_banco=2 "
	SQL_ = SQL_ & "And apon_projeto In (" & projeto_ & ") "
	
	Set QUERY_ = db.execute(SQL_)
	
	if not QUERY_.eof then
		BuscaTotalExtraR = QUERY_(BuscaTotalExtraR)
	else 
		BuscaTotalExtraR = 0		
	end if

End Function

Alguem pode me ajudar a saber oq é esse erro q esta dando nesse cod...


Tipo de erro:
ADODB.Recordset (0x800A0CC1)
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.
/suporte/Func_UtilApon2.asp, line 86


Linha 86 - BuscaTotalExtraR = QUERY_(BuscaTotalExtraR)


Agradeço desde já.

Oi Gentee..

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?