Luiz Silva Rosa

RESOLVIDO! Achei a solução, fiz assim e deu certo. function mascaraData( campo, e ) { var kC = (document.all) ? event.keyCode : e.keyCode; var data = campo.value; if( kC!=8 && kC!=46 ) { if( data.length==2 ) { campo.value = data += '/'; } else if( data.length==5 ) { campo.value = data += '/'; } else campo.value = data; } } No oncreate do form estou carregando meu arquivo que denominei de formatadadosie.js, com o comando: JavaScript.LoadFromFile(´c:\winsaiweb\formatadadosie.js´); e no ScriptsEvents do IWEdit1, no evento OnKeyDown.chamei a função ->mascaraData(this,event);

Boa tarde, estou com um formulário com um IWEdit1 e nesse componente quero implementar a mascara de data, para quando o usuário digitar a data o campo ficar no formato DD/MM/AAAA. Então peguei essa orientação: Fiz uma implementação em javascript da função: Function FormataDataIW(Campo,teclapres) { var tecla = teclapres.keyCode; vr = document.SubmitForm[Campo].value; vr = vr.replace( '.', '' ); vr = vr.replace( '/', '' ); vr = vr.replace( '/', '' ); tam = vr.length + 1; if ( tecla != 9 && tecla != 8 ){ if ( tam > 2 && tam < 5 ) document.SubmitForm[Campo].value = vr.substr( 0, tam - 2 ) + '/' + vr.substr( tam - 2, tam ); if ( tam >= 5 && tam <= 10 ) document.SubmitForm[Campo].value = vr.substr( 0, 2 ) + '/'+ vr.substr( 2, 2 ) + '/' + vr.substr( 4, 4 ); } } No oncreate do form estou carregando meu arquivo que denominei de formatadadosie.js, com o comando: JavaScript.LoadFromFile(´c:\winsaiweb\formatadadosie.js´); e no ScriptsEvents do IWEdit1, no evento OnKeyDown.chamei a função -> FormataDataIW(´IWEDIT1´,event); Só que não esta funcionando! Se aguem tiver um palpite ou conheça um método diferente para me ajudar agradeço.

Boa tarde pessoal, como habilito a tecla enter no form do IntraWeb?

Resolvido! Valeu meu amigo, deu certo, obrigado pela ajuda. abraço.

Bom dia meu amigo, fui comentando meu fonte e descobri que o problema esta no momento que carrego meu clientedataset, mais especificamente nessas linhas: CDParametros.Close; CDParametros.CreateDataSet; CDParametros.Open; Uso muito esses comandos no delphi. Agora o que esta me intrigando é que só dá esse problema no micro que não tem o compilador e já coloquei o midas.dll na pasta do EXE e no system32. Mais noto que, quando é executado os comandos do clientdataset dá um erro de violação de acesso. Se tiver uma ideia do que pode ser isso vai me ajudar muito. Abraço.

Boa tarde amigo, eu estou com os componente do banco de dados dentro do UserSession, e no form 1 eu tenho uma tela de login fazer o seguinte: procedure TIWInicial.IWedtentrarClick(Sender: TObject);var strSqlLog : string; mensagem: String; begin strSqlLog:= 'Select * FROM usuario, nivel WHERE nivel.usuario = usuario.codigo '; strSqlLog:= strSqlLog + 'AND usuario.login = ' + #39 + (IWedtnomeusu.text) + #39 ; strSqlLog:= strSqlLog + 'AND usuario.senha = ' + #39 + (EncriptVar(IWEdtsenha.Text)) + #39 ; UserSession.QueryLogin.Close; UserSession.QueryLogin.SQL.Clear; UserSession.QueryLogin.SQL.Add(strSqlLog); UserSession.QueryLogin.Open; if UserSession.QueryLogin.FieldByName('ativo').AsString <> 'S' then begin mensagem:= 'Usuário Inativo no Sistema'; webapplication.showmessage(mensagem); end else begin TIWMenu.Create(WebApplication).Show; end;

Bom dia amigo, já tinha feito esse procedimento, mais continua com o mesmo problema. Vou enviar o erro completo que esta aparecendo.

Boa tarde pessoal, sou iniciante no intraweb e fiz um projeto com um form de login e outro form com um pesquisa, a questão é, no micro que compilo o projeto funciona perfeitamente, más se transfiro para outro micro e configuro, no navegador abre a tela de login beleza, más não abre o segundo form, dá o seguinte erro: "Access violation at addres 00872093 in module "meuaplicativo.exe". Read of adresss 00000000" Estou usando standalone application Banco de dados Firebird Se alguém poder me ajudar com esse erro é esse e como posso resolver e agradeço.