Jump to content
Fórum Script Brasil

Renato Reis

Membros
  • Content Count

    12
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Renato Reis

  1. Jhonas, Fiz outro teste aqui e no form chamado coloquei: procedure TfrmReadnews.dxButton1Click(Sender: TObject); begin frmReadNews.close; end; procedure TfrmReadnews.FormClose(Sender: TObject; var Action: TCloseAction); begin frmReadNews.Free; frmReadNews:= NIL; end; Fizz o evento onClose liberar da memoria o form. Isso eu faço no retorno deste form ao chamador. Fazendo este evento dentro do form dá erro de access violation Address 000000000 e agora irmão? (rsrs)
  2. Jhonas, Coloquei a procedure dentro do form, MAS mesmo assim não resolveu, ou seja, o form é chamado mas ao close, não fecha nem retorna ao form chamador. procedure TfrmDestino.FormClose(Sender: TObject; var Action: TCloseAction); begin dataModule1.qrUsuario.Close; dataModule2.qrDestino.Close; LeioComunicados; Action := CaFree; frmDestino:= NIL; end; procedure TfrmDestino.LeioComunicados; begin with dataModule2.qrDestino do begin close; sql.Clear; sql.Text:='Select * from SCCAENC where USUARIO=:xUsuario and DTLEITURA is Null'; parameters.ParamByName('xUsuario')
  3. Jhonas, Entrão não posso fazer a chamada de um form por uma função? Na verdade criei um registro de comunicados através do sistema, ou seja, se alguém deseja deixar um comunicado a todos ou a alguém especificamente registra o comunicado. No close de todos os forms, executo a função para verificar se tem algum comunicado para o usuário em questão e se tiver chamo o form para exibir o comunicado. Se isso for real, vou ter que criar a procedure dentro de todos os forms para verificar se tem comunicado e chamar o form. É isso mesmo ou você teria alguma sugestão? Abc.
  4. Galera, é o seguinte. Dentro de um form1 eu chamo outro form99 dependendo de alguma condição. Acontece que este form99, poderá ser chamado por outros forms do sistema. Antes de criar uma função para isso, eu chamava o form99 dentro de cada um dos forms do sistema e funcionava perfeito. Para melhorar a funcionalidade da coisa eu criei uma função para executar este form99. Acontece que quando ao fechar o form99 o 'close' não está funcionando. Pra adiantar, já usei close, form99.close, tudo, e o form99 não fecha, nem retorna ao anterior, simplesmente reexibe o form99. Faço assim: Ao sair de um
  5. Boa Jhonas! Isso mesmo. Procurei por explicações sobre a função fmtstr na net mas não encontrei sobre esses detalhes da troca de letras para determinadas formatações. Caso você tenha a indicação de onde posso encontrar, por favor informe. Abc
  6. Galera, boa tarde. Gerando um arquivo TXT através do D7, gravo um campo valor que formato da seguinte forma: fmtstr(s2, '%.2n', [cDeb1]); Guardo em S2 o valor formatado, cDeb1. Acontece que caso o valor seja acima de mil reais, o mesmo é formatado assim: 1,234.56 Mas preciso que seja formatado assim: 1234.56 Alguém sabe como faço essa formatação? Valeu! Abcs
  7. Srs. Tenho um sistema em rede com servidor Win2003 server e clientes com XP. Baixei um aplicativo que é uma agenda e desejo instalar a mesma na pasta do sistema, no servidor. Criei um botão no menu principal ara executar esta agenda, mas simplesmente não acontece nada. Pensei que pudesse ser algum problema de permissão, ai instalei numa maq. cliente e executando o sistema no servidor, tentei chamar então o aplicativo na maq local e ocorreu a mesma coisa. Usei o winexec e o ShellExecute declarando o ShellApi, ambos testados e nada! ShellExecute(Handle, open, PChar(''\\192.168.0.1\coop\coo
  8. Srs. Preciso criar arquivo texto com vários campos, mas o gde problema está num campo Currency. O tamanho do campo no arquivo texto deverá ter 15 C. Ou seja, preciso que um determinado valor seja exibido no arquivo texto desta forma: campo1 c5 campo2 c15 00123000000000005.00 o máximo que consegui foi 00123000000000000005 através do seguinte comando edti1.text:=format('%15.15d,[strtoint(currtostr(v_valor))]); Mas, to precisando das casas decimais. Como posso fazer? Desde já, obrigado. Atte Renato Reis
  9. Jhonas O interbase esta desinstalado. Coloquei o Localhost e funcionou, mas por favor explique melhor o motivo do uso do localhost. Obrigado Renato
  10. Amigos, Obrigado por estarem ajudando. Respondendo ao Douglas, desinstalei e reinstalei copiando a biblioteca para o system sim, como já havia feito na instalãção anterior, mas não resolveu. Respondendo ao Jhonas, Verifiquei os caminhos e tentei fazer conect true, mas dá o mesmo erro. No Ibexpert, aparece caminho do DB no dB explorer, mas clicando nele, mesma mensagem de indisponivel Database. Jhonas, sendo mais experiente, me ajude. Registrei o Database e pergunto: Preciso fazer create do mesmo database? Deste em questão, acho que havia feito, pois o sistema, como falei, estava sendo execut
  11. Srs. Boa tarde! Uso D7, Firebird 2.0 e componente Zeos 6.6.5 Desenvolvi um pequeno aplicativo, compilei, instalei nos clientes, td beleza. Surgindo a necessidade de uma alteração, quando tentei executar a aplicação foi exibido o seguinte erro: Projeto Nomedoprojeto.exe raised exception class EZSQLException with message 'SQL Error: unavailable database. Error Code: -904. Unsuccessful execution caused by an unavailable resourse.'. Process stopped. Apenas o que fiz no periodo antes de alterar este projeto foi registrar um novo database no firebird. alguém sabe o que pode ter ocorrido. Obg. Renato
×
×
  • Create New...