CALCULO EM ASP
Estou com um pouco de dificuldade de agir corretamente
Vamos lá.
Tenho um cliente que quer cadastrar seus clientes no site que eu terei que desenvolver até ai tem muitos exemplos bons na NET
o problema é que ele quer liber para esses clientes um tipo de CALCULO onde o cliente informará:
DATA EM QUE APOSENTOU
e referente a essa data e terá campos onde digitara seus salario antes da aposentadoria.
Um campos onde contenha 60 campos para ele digitar esses salario.
O sistema tera que interpretar os ultimo 36 salarios contribuidos para fazer o calculo.
O problema é como eu vou colocar esses 60 campos para o CLIENTE dele digitar a pagina ficaria muito grande.
Gostaria de uma IDéIA e se possivel um exemplo para que eu possa verificar
Agradeço pela ajuda de vocês
Lembrando que pode ser em ASP CLASSICO ou VB.NET (ASP.NET)
O Cliente digitaria mais ou menos assim como a imagem nos campos vermelhos
Citação:<center>Data:<input name=[Ô]txtped_data[Ô] type=[Ô]text[Ô] onKeyPress=[Ô]AjustarData(this);[Ô]/> </center><br /> <br />
ai em Scripts Java Coloca a função
Citação:function AjustarData(input){
if ((event.keyCode < 48) || (event.keyCode > 57)){
event.returnValue = false;
}
else {
if ((input.value.length==2) || (input.value.length==5)){
input.value=input.value + [Ô]/[Ô] ;
}
}
}
Para os 60 Campos
se for fazer a pagina 1024x768 Tabelado
nao vai ficar grande a pagina
O TAB do Html é imenso ai ai ficar imenso, com o Dreamweaver é moleza
Praticamente em bons modos um Formulario se utiliza Tabela
Ou crei o Formulario de Digitacao num Frame
e ai ficara com uma Barra rolante ao inves da Scrolbar do Explorer
DO cliente Digitar é o seguinte,
imgine a seguinte situação, No meu sistema tenho 2 Endereços diferentes na tela de Cliente
1 - endereço da empresa
2 - endereco correspondencia
entao o que eu faço . a pessoa informa
TXTRUAEMPRESA.value = Rua Tal
e no
TXTRUAcorrepondencia = TXTRUAEMPRESA.value
Sacou , ???? Na Linha do TEXT do HTML tem propriedade Value tenta colocar la na unha , ou uma variavel, se nao só java mesmo
o que a pessoa digitar no quadro 1 ,
voce ja preenche o quadro 2 com o valor do primeiro
preenche o 3 com o valor do segundo e assim por diante
assim quando chegar la embaixo , voce vai fazer indicar o REQUEST do TXT
se usar no ACTION uma página CalculaINSS quando for SUBMIT
Se a pessoa alterou o valor do 2 quadro a mão vai ficar ,
então assim , aparece o proximo igual o anterior e se pessoa mudar a mão ficar intacto
Sobre Calculo estudei uma apostilinha ontem e gostei ,
se voce juntar todos esses exemplos vai conseguir fazer essa função ,
a parte de saida do LOOP pode se encaixar nessa sua necessidade do 36 e tal .... testa ai
pra voce testar é só colocar <% %> e salvar num .ASP
Citação:Executando uma Declarações se a Condição for Verdadeira
FixDate()
Sub FixDate()
Dim myDate
myDate = #2/13/95#
If myDate > Now Then myDate = Now
response.write myDate
End Sub
AlertUser(1)
Sub AlertUser(value)
If value = 0 Then
response.write [Ô]desligado[Ô]
else
response.write [Ô]ligado[Ô]
End If
End Sub
Repetindo Declarações Enquanto uma Condição é Verdadeira
ChkFirstWhile()
Sub ChkFirstWhile()
Dim counter, myNum
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
response.write [Ô]The loop made [Ô] & counter & [Ô] repetitions.[Ô]
End Sub
Saindo do Interior de um laço Do...Loop
ExitExample()
Sub ExitExample()
Dim counter, myNum
counter = 0
myNum = 9
Do Until myNum = 10
myNum = myNum - 1
counter = counter + 1
If myNum < 10 Then Exit Do
Loop
response.write [Ô]The loop made [Ô] & counter & [Ô] repetitions.[Ô]
End Sub
FOR Calculo
NewTotal()
Sub NewTotal()
Dim myNum, total
For myNum = 16 To 2 Step -2
total = total + myNum
Next
response.write [Ô]The total is [Ô] & total
End Sub
Citação:
Mais surgiu uma duvida:
Como posso criar uma função que verifique o código de cadastro
Public Sub NovoUsuario()
Dim ContTab As Integer
Dim X As Integer
Dim LocUsuario As New ADODB.Recordset
If LocUsuario.State > 0 Then LocUsuario.Close
LocUsuario.Open [Ô]SELECT * FROM Usuarios ORDER BY CodUser[Ô], Con, adOpenKeyset, adLockOptimistic
If LocUsuario.RecordCount = 0 Then
txtCod.Text = 1
Exit Sub
Else
LocUsuario.MoveFirst
ContTab = LocUsuario.RecordCount
For X = 1 To ContTab
If LocUsuario!CodUser <> X Then
Exit For
End If
LocUsuario.MoveNext
Next X
txtCod.Text = X
End If
Set LocUsuario = Nothing
End SubO código acima esta vb6
Como posso usar essa mesma estrutura para ASP.NET em VB
Obrigado
mas se for compativel com Vbscript ai fica mais pratico transpor ......
Verifica quanto clientes estão cadastrados e percorre um a um
Ex.
1
2
3
4
5
Se estiver cinco clientes cadastrados a tabela ficara assim como acima e aplica o nº 6
Caso Tenha quatro cliente o código verifica.
Ex.
1
2
4
5
O Código varre e para no que esta faltando e aplica para ser o código do cadastro novo
que nesse caso é o 3
Espero ter sido claro
Obrigado
O problema é?
Quero criar uma SESSION! OK!
Criei assim
Session([Ô]Logou[Ô]) = True
Até aqui tudo bem, andei pesquisando é vi que o tempo de uma session padrão é de 20min. não vou alterar isso, mas gostaria que após passar esses 20min. o sistema identificasse e deixava como:
Session([Ô]Logou[Ô]) = False
Como posso identificar isso? Ao passar esses 20min. deixar como FALSE
Obrigado
Conto com vocês
Obrigado