webdotx

e u fiz un teste aqui agora e constatei o erro mais não sei a solução a variavel temp aparece no response.write assim 1,2 esse 1,2 não cadastra no BD eu dei um valor 1 para essa variavel e funcionou cadastrando o numero 1 no BD mais o 1,2 não cadastra o que deve ser? o campo temp no BD access esta como numero

são dados com data/hora ai tem que fazer isso mais eu estou formalizando a pergunta aqui pra obter a resposta certa perai... Ok?

Po galera olha eu ai de novo eu fiz um sisteminha de horas extras e já tá até funcionando mais agora eu preciso cadastra as infos no BD de uma olhadinha no codigo que envia as informações pro BD <% 'Variaveis do Sistema' dim nome dim salario dim horaentra dim horasai dim totalhora dim transform60 dim hextra50 dim hextra100 dim val50 dim val100 dim tempoextra dim h50 dim h100 dim totalMinutosTrabalhadosNoPeriodo dim dia01 'Conectando ao BD categoria = request.form("categoria") Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\vlfsistemas\datas.mdb;Driver={Microsoft Access Driver (*.mdb)};" Set rs1 = Server.CreateObject("ADODB.RecordSet") IF Trim(categoria)<> "" Then rs1.Open "SELECT * FROM tbfunc WHERE idfuncion= "& Trim(categoria) & " ORDER BY nome", conexao end if 'Calculando hora salarial' id = Request.Form("categoria") data = Request.Form("data") nome = (rs1("nome")) salario = (rs1("Salario")) tempoextra = salario / "220" salario = FormatCurrency(salario) tempoextra = FormatCurrency(tempoextra) response.Write (id) response.Write ("<br>") response.Write (nome) response.Write ("<br>") response.Write (data) response.Write ("<br>") 'Calcular hora 2' totalMinutosTrabalhadosNoPeriodo = "0" Entrada01 = Request.Form("henter") Saida01 = Request.Form("hexit") dia01 = DateDiff ("n",Entrada01,Saida01) totalMinutosTrabalhadosNoPeriodo = dia01 minutos = totalMinutosTrabalhadosNoPeriodo Mod 60 horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60 response.Write (entrada01) response.Write ("<br>") response.Write (saida01) response.Write ("<br>") response.Write ("Aqui eu encontrei o salario e a entra e saida do funcionario") response.Write ("<hr>") 'Calculando o Tempo' horaentra = Request.Form("henter") horasai = Request.Form("hexit") totalhora = Datediff("n", horaentra,horasai) totalMinutosTrabalhadosNoPeriodo = totalhora 'transform60 = totalhora / "60" 'transform60 = FormatNumber(transform60) minutos = totalMinutosTrabalhadosNoPeriodo Mod 60 horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60 temp = horas&","&minutos temp = FormatNumber(temp) response.Write (temp) response.Write ("<br>") response.Write ("Aqui eu encontro o total de horas trabalhadas") response.Write ("<hr>") 'calculo de 50% e 100% de horas extras' hextra50 = tempoextra * "0,50" hextra100 = tempoextra * "1,00" 'hextra50 = FormatCurrency(hextra50) 'hextra100 = FormatCurrency(hextra100) 'response.Write ("Tempo 50% - ") 'response.Write (hextra50) response.Write ("<br>") 'response.Write ("Tempo 100% - ") 'response.Write (hextra100) response.Write ("<br>") 'somando o resultado para encontrar os valores de 50% e 100% a mais na hora extra' h50 = tempoextra + hextra50 h50 = FormatCurrency(h50) response.Write(h50) response.Write ("<br>") h100 = tempoextra + hextra100 h100 = FormatCurrency(h100) response.Write(h100) 'Calculando o valor da hora extra vezes a quantidade trabalhada' temp = horas &","& minutos val50 = temp * h50 val50 = FormatCurrency(val50) val100 = temp * h100 val100 = FormatCurrency(val100) response.Write ("<hr>") response.Write ("Tempo Valor 50% - ") response.Write (val50) response.Write ("<br>") response.Write ("Tempo Valor 100% - ") response.Write (val100) response.Write ("<br>") strSQL = "INSERT INTO tbextra (idfuncion,data,entradah,saidah,totalh) VALUES ("& id &",#"&data&"#,#"&entrada01&"#,#"&saida01&"#,"& temp &")" conexao.execute strSQL Set strsql = Nothing Set Conexao = Nothing response.End ',totalh,valh50,valh100,totalh50,totalh100 ',"&temp&","& h50 &","& h100 &","& val50 &","& val100 &" %> esse é o erro a variavel temp esta dando o erro eu não consigo enviar as informações contidas nela pro BD Me ajuda ahe galera

é assim o arquivo lancamento.asp </script> <script LANGUAGE="JavaScript"> function Menu() { document.forms.form.submit(); } </SCRIPT> <head> <title>Lançamentos Hora Extra</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <body> <table width="775" border="0" align="center" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="741" height="61" valign="top"><div align="center"><img src="imgs/novologo.jpg" width="390" height="103" align="middle"></div></td> </tr> <tr> <td height="28" valign="middle" background="imgs/titulo.jpg"><div align="center"><font color="336699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><img src="imgs/btcadsf.gif" width="83" height="16" border="0"> <img src="imgs/bt_lanca.gif" width="83" height="16"></font></div></td> </tr> </table> <h1 align="center"><font color="336699" size="2" face="Verdana, Arial, Helvetica, sans-serif">Lan&ccedil;amento de Hora Extra</font></h1> <FORM NAME="form" ACTION="lancamento.asp" METHOD="POST" > <table width="80%" border="1" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="27%"><font color="336699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Nome do Funcionario</strong></font></td> <td width="73%"><select name="categoria" onChange="Menu();"> <option value="0" selected>(Funcionarios)</option> <% Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT * FROM tbfunc", conexao do while not rs.eof IF Trim(categoria) = Trim(rs("idfuncion")) Then %> <option value="<%=rs("idfuncion")%>" selected ><%=rs("nome")%></option> <% Else %> <option value="<%=rs("idfuncion")%>"><%=rs("nome")%></option> <% End IF rs.movenext loop rs.close set rs = Nothing %> </select> <% Set rs1 = Server.CreateObject("ADODB.RecordSet") IF Trim(categoria)<> "" Then rs1.Open "SELECT * FROM tbfunc WHERE idfuncion= "& Trim(categoria) & " ORDER BY nome", conexao do while not rs1.eof %> <input type="text" name="salario" value="<%=rs1("Salario")%>"> <% rs1.movenext loop rs1.close set rs1 = Nothing End IF %> </td> </tr> <tr> <td height="25"><font color="336699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Data</strong></font></td> <td><input type="text" name="str_dt" maxlength="10" size="10" onkeypress="return txtBoxFormat(document.Form, 'str_dt', '99/99/9999', event);"> <font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Ex: 13/03/2004</font></td> </tr> <tr> <td height="25"><font color="336699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Hora da Entrada</strong></font></td> <td> <input name="henter" type="text" id="henter" onKeyPress="ConsisteTecla(event.keyCode,this);" size="5" maxlength="5"> <font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Ex: 00:00 </font></td> </tr> <tr> <td><font color="336699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Hora da Saida</strong></font></td> <td><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <input name="hexit" type="text" id="hexit" onKeyPress="ConsisteTecla(event.keyCode,this);" size="5" maxlength="5"> Ex: 00:00</font></td> </tr> </table> </form> <tr> <td>&nbsp;</td> <td><input type="submit" name="Submit" value="Enviar"></td> </tr> </table> </form> </body> </html> com esse arquivo eu seleciono o funcionario, verifico o salario dele e lanço a data, hora de entrada e hora de saida agora com esse aqui abaixo eu faço os calculos digitado no form veja <% 'Variaveis do Sistema' dim nome dim horaentra dim horasai dim totalhora dim transform60 dim salario dim hextra50 dim hextra100 dim val50 dim val100 dim tempoextra dim h50 dim h100 dim totalMinutosTrabalhadosNoPeriodo dim dia01 'Calculando hora salarial' nome = Request.Form("categoria") salario = Request.Form("salario") tempoextra = salario / "220" salario = FormatCurrency(salario) sTrabalhadosNoPeriodo Mod 60 horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60 'Calculando o Tempo' horaentra = Request.Form("henter") horasai = Request.Form("hexit") totalhora = Datediff("n", horaentra,horasai) totalMinutosTrabalhadosNoPeriodo = totalhora 'transform60 = totalhora / "60" 'transform60 = FormatNumber(transform60) minutos = totalMinutosTrabalhadosNoPeriodo Mod 60 horas = (totalMinutosTrabalhadosNoPeriodo - minutos) / 60 temp = horas &","& minutos 'calculo de 50% e 100% de horas extras' hextra50 = tempoextra * "0,50" hextra100 = tempoextra * "1,00" hextra50 = FormatCurrency(hextra50) hextra100 = FormatCurrency(hextra100) tempoextra = FormatCurrency(tempoextra) 'somando o resultado para encontrar os valores de 50% e 100% a mais na hora extra' 'Calculando o valor da hora extra vezes a quantidade trabalhada' temp = horas &","& minutos val50 = temp * h50 val50 = FormatCurrency(val50) val100 = temp * h100 val100 = FormatCurrency(val100) 'h50 = tempoextra + hextra50 'h50 = FormatCurrency(h50) 'h100 = tempoextra + hextra100 'h100 = FormatCurrency(h100) pra esse arquivo acima funcionar eu tenho que fazer isso aqui <FORM NAME="form" ACTION="extra.asp" METHOD="POST" > sendo que se eu altero a action pra extra.asp o script da pagina lancamento.asp não funciona deu pra entender?

Eu estive pesquisando sobre list box sem refresh e me ajudou muito pois estou desenvolvendo um sistema em asp de Hora Extra o que eu fiz foi o seguinte na list box eu coloco o nome dos funcionario cadastrados no BD e assim que o usuario seleciona o funcionario, o campo salario automaticamente mostra o salario do individuo até aqui tudo bem sendo que eu criei uma pagina pra processar as horas extras digitadas pelo usuario chamasse extra.asp Acontece que pra listbox funcionar o script é assim <script LANGUAGE="JavaScript"> function Menu() { document.forms.form.submit(); } </SCRIPT> apóis ter feito todo os lançamentos no form eu preciso clicar no botao enviar pra coletar as informações digitadas e processar em extra.asp onde concentra toda parte de calculo e contem o cadastro no BD... a pergunta é a seguinte, como eu faço pra utilizar este script e ao mesmo tempo conseguir enviar as informações para o segundo arquivo espero ter me esplicado e detalhado a minha duvida

www.efesta.com

brigadao vou tentar com seu cod e te direi se vai funcinar com meu cod OK?

1º - Access 2º - já e o sistema já esta conectado ao BD 3º - Data(tipo data no BD) - Movimento (tipo numero) Valor (tipo moeda) Parcelas (tipo numero) Juros (tipo Moeda) 4º - Bom como eu não entendi oque você quiz dizer com o redirecionar eu opto por emitir na tela o aviso de sucesso

Ai galera eu estou bolando um jeito aqui pra fazer um sisteminha de emprestimo mais eu ainda estou bem no inicio e pintou uma duvida, o codigo abaixo gera a quantidade de parcelas que o usuario deseja - veja <% vezes = request.Form("numero") if vezes = request.Form("numero") then For i = 1 to vezes response.write ("<table width='40%' border='1' bordercolor='ffffff'cellspacing='5' cellpadding='1' align='center'>") response.write (" <thead>") response.write (" <tr>") response.write (" <th>Parcelas</th><th>Data</th><th>Movimento</th><th>Valor</th>") response.write (" </tr>") response.write (" </thead>") response.write (" <tr>") response.write (" <td align='center' bordercolor='336699'>"&i&"'<br></td>") response.write (" <td align='center' ><input type='text' name='data' size='8'><br></td>") response.write (" <td align='center' ><input type='text' name='movimento' size='4'><br></td>") response.write (" <td align='center' ><input type='text' name='valor' size='10'><br></td>") response.write (" </tr>") response.write ("</table>") Next end if %> Agora minha dúvida é como eu envio as informaçoes que o usuario vai digitar para o banco de dados???