Ir para conteúdo
Fórum Script Brasil
  • 0

Erro

Guest mcmiranda

Perguntado por Guest mcmiranda,

 Share

Pergunta

Guest mcmiranda

Guest mcmiranda

Postado
Postado

E ae pessoal, beleza? Estou tendo um problema com uma página asp. Não entendo muito pois estou começando a mexer agora com isso, minha especialidade é rede. O q ocorre é: Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[string: ""]'

/sifer/pontodiario/relatoriomensal1.asp, line 121

o código da página asp é:

<%@LANGUAGE="VBSCRIPT" %> 
<!--#include file="../Connections/SiferSQL.asp" -->

<%
 if isempty(request.form("txtnumero")) or request.form("txtnumero")="" then
  	response.Write "<script language='javascript'> alert('Digite um código válido !!') </SCRIPT>"
  	response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>"
  	else
  	
IF not isdate(Request.Form("data1")) or not isdate(Request.Form("data2")) then
	response.Write "<script language='javascript'> alert('A data digitada não é válida !!! Favor verificar !!') </SCRIPT>"
  	response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>"



else

	vdata1a = Cdate(Request.Form("data1"))
	vdata1 = Month(vdata1a) & "/" & day(vdata1a) & "/" & year(vdata1a)
	vdata2a = Cdate(Request.Form("data2"))
	vdata2 = Month(vdata2a) & "/" & day(vdata2a) & "/" & year(vdata2a)

%>
<%
Dim RsRelatorioDiario
Dim RsRelatorioDiario_numRows

Set RsRelatorioDiario = Server.CreateObject("ADODB.Recordset")
RsRelatorioDiario.ActiveConnection = MM_SiferSQL_STRING
RsRelatorioDiario.Source = "SELECT     TbFuncionario.NmNome, TbFuncionario.NmDepto,TbFuncionario.NmFoto,TbPontoDiario.*  FROM         TbPontoDiario INNER JOIN                        TbFuncionario ON TbPontoDiario.CdFuncionario = TbFuncionario.NrFuncionario where cdfuncionario='"&request.form("txtnumero")&"'AND TbPontoDiario.DtPonto BETWEEN ' "& vdata1& " '  AND ' " &vdata2& " '  ORDER BY TbPontoDiario.DtPonto"
RsRelatorioDiario.CursorType = 0
RsRelatorioDiario.CursorLocation = 2
RsRelatorioDiario.LockType = 1
RsRelatorioDiario.Open()
	if RsRelatorioDiario.eof then
  	response.Write "<script language='javascript'> alert('O código do funcionario digitado não é valido. Favor verificar !!') </SCRIPT>"
  	response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>"
else
RsRelatorioDiario_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
RsRelatorioDiario_numRows = RsRelatorioDiario_numRows + Repeat1__numRows
%>


<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="../intranet.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#eeeeee"onload="document.body.scroll='yes'">
<span class="titulo"> </span> 
<div align="right"><a href="javascript:history.back()">Voltar</a></div>
<div align="center"> 
  <table width="60%"border="0" align="center" bgcolor="#FFFFFF" class="titulo">
    <tr> 
      <th colspan="3" align="center"> <p><font size="4">SIFER INTRANET<br>
          </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
          </font><font size="2">Relat&oacute;rio mensal de entrada e sa&iacute;da<strong> 
          </strong></font><strong><font size="2">do m&ecirc;s de 
          <%response.write ucase(monthname(month(vdata1a)))%>
          <br>
          <br>
          </font></strong></p></th>
    </tr>
    <tr> 
      <th width="49%" align="center"><font size="2">Colaborador</font></th>
      <th width="51%" align="center"><font size="2"><%=rsrelatoriodiario.fields("nmnome")%></font></th>
      <th width="51%" rowspan="2" align="center"><img src="<%=rsrelatoriodiario.fields("nmfoto")%>"></th>
    </tr>
    <tr> 
      <th align="center"><font size="2">Departamento</font></th>
      <th align="center"><font size="2"><%=rsrelatoriodiario.fields("nmdepto")%></font></th>
    </tr>
  </table>
  
</div>
<br>
<table width="100%" border="0" align="center" class="titulo">
  <tr align="center"> 
    <th> <strong>Data</strong></th>
    <td> 
      <div align="center"><strong>Hor&aacute;rio de Entrada</strong></div></td>
    <td><strong>Hor&aacute;rio de Sa&iacute;da</strong></td>
    <td><strong>Justificativa de Atraso</strong></td>
    <th>Justificativa por sair mais cedo</th>
  </tr>

  <% 
atrasomes=0
saindocedo=0
While ((Repeat1__numRows <> 0) AND (NOT RsRelatorioDiario.EOF)) 
%>
  <% if  (Repeat1__index mod 2)=0 then
back="#FFFFFF"
else
back="#eeeeee"
end if %>
  <tr align="center"> 
    <td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("dtponto")%></td>
    <td bgcolor="<%=back%>"> 
      <%=rsrelatoriodiario.fields("hrentrada")%></td>
    <td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("hrsaida")%></td>
    <td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("nmatraso")%></td>
    <td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("nmsaindocedo")%></td>
  </tr>
<%
totalMinutosTrabalhadosNoPeriodo = "0"

Entrada01 = rsrelatoriodiario.fields("hrentrada")

'pega a diferença em minutos
dia01 = DateDiff ("n",Entrada01,"08:30")

'faz a somatória dos minutos
totalMinutosTrabalhadosNoPeriodo = totalMinutosTrabalhadosNoPeriodo + dia01
'separa horas:minutos do total
%>


  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsRelatorioDiario.MoveNext()
Wend
minutos = totalMinutosTrabalhadosNoPeriodo Mod 60
horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60

Response.Write (horas & " horas e " & minutos & " minutos")

%>
</table>
<p><strong><font size="2"><br>
  </font></strong></p>
</body>
</html>
<%
	RsRelatorioDiario.Close()
	Set RsRelatorioDiario = Nothing
end if
end if
end if
%>

Se alguém puder me ajudar agradeço.

Marcos C. Miranda

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
mariofdf

mariofdf

Postado
Postado

veja se funciona, qualquer coisa poste ai.

<%@LANGUAGE="VBSCRIPT" %> 
<!--#include file="../Connections/SiferSQL.asp" -->

<%
if isempty(request.form("txtnumero")) or request.form("txtnumero")="" then
response.Write "<script language='javascript'> alert('Digite um código válido !!') </SCRIPT>"
response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>"
else

IF not isdate(Request.Form("data1")) or not isdate(Request.Form("data2")) then
response.Write "<script language='javascript'> alert('A data digitada não é válida !!! Favor verificar !!') </SCRIPT>"
response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>"



else

vdata1a = Cdate(Request.Form("data1"))
vdata1 = Month(vdata1a) & "/" & day(vdata1a) & "/" & year(vdata1a)
vdata2a = Cdate(Request.Form("data2"))
vdata2 = Month(vdata2a) & "/" & day(vdata2a) & "/" & year(vdata2a)

%>
<%
Dim RsRelatorioDiario
Dim RsRelatorioDiario_numRows

Set RsRelatorioDiario = Server.CreateObject("ADODB.Recordset")
RsRelatorioDiario.ActiveConnection = MM_SiferSQL_STRING
RsRelatorioDiario.Source = "SELECT TbFuncionario.NmNome, TbFuncionario.NmDepto,TbFuncionario.NmFoto,TbPontoDiario.* FROM TbPontoDiario INNER JOIN TbFuncionario ON TbPontoDiario.CdFuncionario = TbFuncionario.NrFuncionario where cdfuncionario='"&request.form("txtnumero")&"'AND TbPontoDiario.DtPonto BETWEEN ' "& vdata1& " ' AND ' " &vdata2& " ' ORDER BY TbPontoDiario.DtPonto"
RsRelatorioDiario.CursorType = 0
RsRelatorioDiario.CursorLocation = 2
RsRelatorioDiario.LockType = 1
RsRelatorioDiario.Open()
if RsRelatorioDiario.eof then
response.Write "<script language='javascript'> alert('O código do funcionario digitado não é valido. Favor verificar !!') </SCRIPT>"
response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>"
else
RsRelatorioDiario_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
RsRelatorioDiario_numRows = RsRelatorioDiario_numRows + Repeat1__numRows
%>


<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="../intranet.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#eeeeee"onload="document.body.scroll='yes'">
<span class="titulo"> </span> 
<div align="right"><a href="javascript:history.back()">Voltar</a></div>
<div align="center"> 
<table width="60%"border="0" align="center" bgcolor="#FFFFFF" class="titulo">
<tr> 
<th colspan="3" align="center"> <p><font size="4">SIFER INTRANET<br>
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
</font><font size="2">Relat&oacute;rio mensal de entrada e sa&iacute;da<strong> 
</strong></font><strong><font size="2">do m&ecirc;s de 
<%response.write ucase(monthname(month(vdata1a)))%>
<br>
<br>
</font></strong></p></th>
</tr>
<tr> 
<th width="49%" align="center"><font size="2">Colaborador</font></th>
<th width="51%" align="center"><font size="2"><%=rsrelatoriodiario.fields("nmnome")%></font></th>
<th width="51%" rowspan="2" align="center"><img src="<%=rsrelatoriodiario.fields("nmfoto")%>"></th>
</tr>
<tr> 
<th align="center"><font size="2">Departamento</font></th>
<th align="center"><font size="2"><%=rsrelatoriodiario.fields("nmdepto")%></font></th>
</tr>
</table>

</div>
<br>
<table width="100%" border="0" align="center" class="titulo">
<tr align="center"> 
<th> <strong>Data</strong></th>
<td> 
<div align="center"><strong>Hor&aacute;rio de Entrada</strong></div></td>
<td><strong>Hor&aacute;rio de Sa&iacute;da</strong></td>
<td><strong>Justificativa de Atraso</strong></td>
<th>Justificativa por sair mais cedo</th>
</tr>

<% 
atrasomes=0
saindocedo=0
While ((Repeat1__numRows <> 0) AND (NOT RsRelatorioDiario.EOF)) 
%>
<% if (Repeat1__index mod 2)=0 then
back="#FFFFFF"
else
back="#eeeeee"
end if %>
<tr align="center"> 
<td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("dtponto")%></td>
<td bgcolor="<%=back%>"> 
<%=rsrelatoriodiario.fields("hrentrada")%></td>
<td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("hrsaida")%></td>
<td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("nmatraso")%></td>
<td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("nmsaindocedo")%></td>
</tr>
<%
totalMinutosTrabalhadosNoPeriodo = "0"

Entrada01 = rsrelatoriodiario.fields("hrentrada")

'pega a diferença em minutos
dia01 = DateDiff("n,Entrada01,08:30")

'faz a somatória dos minutos
totalMinutosTrabalhadosNoPeriodo = totalMinutosTrabalhadosNoPeriodo + dia01
'separa horas:minutos do total
%>


<% 
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RsRelatorioDiario.MoveNext()
Wend
minutos = totalMinutosTrabalhadosNoPeriodo Mod 60
horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60

Response.Write (horas & " horas e " & minutos & " minutos")

%>
</table>
<p><strong><font size="2"><br>
</font></strong></p>
</body>
</html>
<%
RsRelatorioDiario.Close()
Set RsRelatorioDiario = Nothing
end if
end if
end if
%>

wink.gifwink.gif

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Guest

Guest Guest

Postado
Postado
</SCRIPT>"

else

vdata1a = Cdate(Request.Form("data1"))

vdata1 = Month(vdata1a) & "/" & day(vdata1a) & "/" & year(vdata1a)

vdata2a = Cdate(Request.Form("data2"))

vdata2 = Month(vdata2a) & "/" & day(vdata2a) & "/" & year(vdata2a)

%>

<%

Dim RsRelatorioDiario

Dim RsRelatorioDiario_numRows

Set RsRelatorioDiario = Server.CreateObject("ADODB.Recordset")

RsRelatorioDiario.ActiveConnection = MM_SiferSQL_STRING

RsRelatorioDiario.Source = "SELECT TbFuncionario.NmNome, TbFuncionario.NmDepto,TbFuncionario.NmFoto,TbPontoDiario.* FROM TbPontoDiario INNER JOIN TbFuncionario ON TbPontoDiario.CdFuncionario = TbFuncionario.NrFuncionario where cdfuncionario='"&request.form("txtnumero")&"'AND TbPontoDiario.DtPonto BETWEEN ' "& vdata1& " ' AND ' " &vdata2& " ' ORDER BY TbPontoDiario.DtPonto"

RsRelatorioDiario.CursorType = 0

RsRelatorioDiario.CursorLocation = 2

RsRelatorioDiario.LockType = 1

RsRelatorioDiario.Open()

if RsRelatorioDiario.eof then

response.Write "<script language='javascript'> alert('O código do funcionario digitado não é valido. Favor verificar !!') </SCRIPT>"

response.Write "<script language='javascript'> document.location=('relatoriomensal.asp') </SCRIPT>"

else

RsRelatorioDiario_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = -1

Repeat1__index = 0

RsRelatorioDiario_numRows = RsRelatorioDiario_numRows + Repeat1__numRows

%>

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="../intranet.css" rel="stylesheet" type="text/css">

</head>

<body bgcolor="#eeeeee"onload="document.body.scroll='yes'">

<span class="titulo"> </span>

<div align="right"><a href="javascript:history.back()">Voltar</a></div>

<div align="center">

<table width="60%"border="0" align="center" bgcolor="#FFFFFF" class="titulo">

<tr>

<th colspan="3" align="center"> <p><font size="4">SIFER INTRANET<br>

</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>

</font><font size="2">Relat&oacute;rio mensal de entrada e sa&iacute;da<strong>

</strong></font><strong><font size="2">do m&ecirc;s de

<%response.write ucase(monthname(month(vdata1a)))%>

<br>

<br>

</font></strong></p></th>

</tr>

<tr>

<th width="49%" align="center"><font size="2">Colaborador</font></th>

<th width="51%" align="center"><font size="2"><%=rsrelatoriodiario.fields("nmnome")%></font></th>

<th width="51%" rowspan="2" align="center"><img src="<%=rsrelatoriodiario.fields("nmfoto")%>"></th>

</tr>

<tr>

<th align="center"><font size="2">Departamento</font></th>

<th align="center"><font size="2"><%=rsrelatoriodiario.fields("nmdepto")%></font></th>

</tr>

</table>

</div>

<br>

<table width="100%" border="0" align="center" class="titulo">

<tr align="center">

<th> <strong>Data</strong></th>

<td>

<div align="center"><strong>Hor&aacute;rio de Entrada</strong></div></td>

<td><strong>Hor&aacute;rio de Sa&iacute;da</strong></td>

<td><strong>Justificativa de Atraso</strong></td>

<th>Justificativa por sair mais cedo</th>

</tr>

<%

atrasomes=0

saindocedo=0

While ((Repeat1__numRows <> 0) AND (NOT RsRelatorioDiario.EOF))

%>

<% if (Repeat1__index mod 2)=0 then

back="#FFFFFF"

else

back="#eeeeee"

end if %>

<tr align="center">

<td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("dtponto")%></td>

<td bgcolor="<%=back%>">

<%=rsrelatoriodiario.fields("hrentrada")%></td>

<td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("hrsaida")%></td>

<td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("nmatraso")%></td>

<td bgcolor="<%=back%>"><%=rsrelatoriodiario.fields("nmsaindocedo")%></td>

</tr>

<%

totalMinutosTrabalhadosNoPeriodo = "0"

Entrada01 = rsrelatoriodiario.fields("hrentrada")

'pega a diferença em minutos

dia01 = DateDiff("n,Entrada01,08:30")

'faz a somatória dos minutos

totalMinutosTrabalhadosNoPeriodo = totalMinutosTrabalhadosNoPeriodo + dia01

'separa horas:minutos do total

%>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

RsRelatorioDiario.MoveNext()

Wend

minutos = totalMinutosTrabalhadosNoPeriodo Mod 60

horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60

Response.Write (horas & " horas e " & minutos & " minutos")

%>

</table>

<p><strong><font size="2"><br>

</font></strong></p>

</body>

</html>

<%

RsRelatorioDiario.Close()

Set RsRelatorioDiario = Nothing

end if

end if

end if

%>

wink.gifwink.gif

xc

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...