Renato Reis

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)

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').value:=strUsuario; open; end; if dataModule2.qrDestino.RecordCount <> 0 then begin ShowMessage('Você tem comunicado(s) a ser(em) lido(s)!'); dataModule2.qrDestino.First; while not dataModule2.qrDestino.Eof do begin strCodigo:=dataModule2.qrDestinoCODIGO.AsString; try Application.CreateForm(tfrmReadNews,frmReadNews); frmReadNews.showmodal; finally frmReadNews.free; end; dataModule2.qrDestino.Edit; dataModule2.qrDestinoDTLEITURA.AsDateTime:=date(); dataModule2.qrDestino.Post; end; end; end; Acho que o problema esta no forma que é chamado e não fecha e retorna por algum motivo. Help! Abc

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.

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 determinado formulario, executo a função para verificar se o form99 será aberto ou não. procedure TfrmDestino.FormClose(Sender: TObject; var Action: TCloseAction); begin dataModule1.qrUsuario.Close; dataModule2.qrDestino.Close; Action := CaFree; frmDestino:= NIL; LerComunicados(StrUsuario); end; No programa de funções faço o seguinte: Function LerComunicados(vUsuario: String): String; begin with dataModule2.qrDestino do begin close; sql.Clear; sql.Text:='Select * from SCCAENC where USUARIO=:xUsuario and DTLEITURA is Null'; parameters.ParamByName('xUsuario').value:=vUsuario; open; end; if dataModule2.qrDestino.RecordCount <> 0 then begin ShowMessage('Você tem comunicado(s) a ser(em) lido(s)!'); dataModule2.qrDestino.First; while not dataModule2.qrDestino.Eof do begin strCodigo:=dataModule2.qrDestinoCODIGO.AsString; try Application.CreateForm(tfrmReadNews,frmReadNews); // AQUI é ONDE EXECUTO o QUE CHAMEI DE FORM99, NA VERDADE É O FRMREADNEWS frmReadNews.showmodal; finally frmReadNews.free; end; dataModule2.qrDestino.Edit; dataModule2.qrDestinoDTLEITURA.AsDateTime:=date(); dataModule2.qrDestino.Post; end; end; end; No Form99(ReadNews) faço o Seguinte: procedure TfrmReadnews.FormCreate(Sender: TObject); begin with dataModule2.qrNews do begin close; SQL.Clear; SQL.Text:='Select * from SCCANEWS where CODIGO=:xCodigo'; Parameters.ParamByName('xCodigo').value:=strCodigo; Open; end; Label2.Caption:=strCodigo; mmDescr.Text:=datamodule2.qrNewsDESCRICAO.AsString; label7.Caption:=datamodule2.qrNewsDATA.AsString; Label6.Caption:=datamodule2.qrNewsAUTOR.AsString; end; procedure TfrmReadnews.dxButton1Click(Sender: TObject); begin close; end; Já tive um evento onclose do form99 com frmReadNews.free e frmReadNews.NIL ...E não consigo fechar o form. Alguém sabe o que posso fazer? Abc

Valeu Jhonas, Obrigado. Abc

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

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

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\coop\Agenda\Agenda.EXE''), nil, nil, SW_SHOW); WINEXEC(pChar ('\\192.168.0.1\coop\coop\Agenda\Agenda.EXE'), 0); Ah! vi os comandos acima de algumas formas diferentes. Essas que coloquei acima foram os ultimos teste. Alguém sabe o que pode ser? Obrigado.

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

Jhonas O interbase esta desinstalado. Coloquei o Localhost e funcionou, mas por favor explique melhor o motivo do uso do localhost. Obrigado Renato

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 executado normalmente. O que pode ter ocorrido? Lembra de algum passo-a-passo sobre isso? Obrigado. Aguardo Ajuda. Abcs

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 Reis