Listbox Sem Refresh

webdotx · Março 19, 2004

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

showtime · Março 19, 2004

brow, deixa eu ver se eu entendi,

você tem um arquivo onde seleciona o funcionario e digita o nro de horas extras do cara.

quando você clica no enviar ele tem q atualizar o bd e depois ?

"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"

explica um pouco melhor e mais detalhado o q tu precisa q fica mais facil pra gente de ajudar.

flwæ

dark0 · Março 19, 2004

você quer atualizar o list box, e mostrar no arquivo asp?

webdotx · Março 19, 2004

é 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?

Entrar

Listbox Sem Refresh

Pergunta

webdotx

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

showtime

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

webdotx

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades