[delphi-br] Delphi 2007 Update 3, dbNavigator
Ola Pessoal, O componente dbNavigator com Flat := True não esta repintando o estado do DataSet corretamente, pode ser um bug. Alguma sugestão para corrigir o problema, mantendo Flat = True? Thanks, Paulo Geloramo
[delphi-br] Rave 7.05 BEX adicionar no preview localizar texto em qual quer parte do relatório.
Ola Pessoal, Gostaria de adicionar uma funcionalidade no preview padrão do rave 7.05 BEX, localizar texto em qualquer parte do relatório. Não encontrei nenhum material sobre este assunto no site da nevrona. Tenho Rave 6 e 7 BEX registrado, entrem em contato com [EMAIL PROTECTED], mas sem resposta, sem suporte. Algum sugestão ou material sobre este assunto? Abs, Paulo Geloramo
[delphi-br] Quebrar linha no TDBMemo com #10 (CR)
No componente TDBMemo e TMemo do Delphi 7 quando um texto tem o caracter #10 automaticamente o texto é quebrado para a proxima linha. No Delphi 2007 update 1 não esta quebrando o texto para a proxima linha. Tem alguma forma de manter o mesmo comportamento do Delphi 7? O texto que contem o #10 foi gerado no bloco de notas e são comandos INSERT que será executado pelo isql do Firebird. Não tenho como inserir #13 ou #10#13, pois são instruções inserts gerado assim no bloco de notas? INSERT INTO TABELA_SQL (CAMPO_SQL) VALUES ('SELECT * FROM TABELA1'); Após gerar o arquivo teste.sql e processados pelo isql do Firebird, para adicionar estas linhas na TABELA_SQL. Quando consultado pelo componente TDBMemo não esta quebrando a linha. Alguma sugestão? abs, Paulo
[delphi-br] ClientDataSetGrid
Alguém utiliza o componente ClientDataSetGrid, para trocar atualizações? t+
[delphi-br] Bug DisplayFormat
Este bug existe desde o Delphi 7 e continua no Delphi 2007 Update 1, conforme relatos no qc report 2732, 26280, 46268, será que sai a correção no D2008? []s Paulo Geloramo
Re: [delphi-br] Bug DisplayFormat
Que bug? Veja no qc report 2732, 26280 e 46268. t+
[delphi-br] Free ou Release
Para destruir os forms chamado com ShowModal o que tem usado: Form1.Free; ou Form1.Release; Sempre usei Form1.Release, mas tem apresentado uma incompatibilidade, no evento onShow estou chamando um form personalizado para digitar usuario e senha e quando errar usuario ou senha não apresenta a mensagem de erro exibida com Application.MessageBox, quando uso Form1.Free apresenta a mensagem de erro. Seria um bug? Segue codigo abaixo: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, WideStrings, DB, SqlExpr; type TForm1 = class(TForm) SQLConnection1: TSQLConnection; procedure FormShow(Sender: TObject); procedure SQLConnection1Login(Database: TSQLConnection; LoginParams: TWideStrings); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin try SQLConnection1.Open; except on E: Exception do begin if pos('user name and password', E.Message) 0 then Application.MessageBox('Usuário ou senha incorreta.', 'Login', MB_ICONERROR) else Application.MessageBox(PChar(E.Message), 'Login', MB_ICONERROR); OnClose := nil; Close; Exit; end; end; end; procedure TForm1.SQLConnection1Login(Database: TSQLConnection; LoginParams: TWideStrings); var fLogin: TfLogin; begin SQLConnection1.LoginPrompt := False; fLogin := TfLogin.Create(nil); try if fLogin.ShowModal = mrOk then begin LoginParams.Values['User_Name'] := fLogin.eUsuario.Text; LoginParams.Values['Password'] := fLogin.eSenha.Text; Database.Params.Values['User_Name'] := fLogin.eUsuario.Text; Database.Params.Values['Password'] := fLogin.eSenha.Text; end else Abort; finally fLogin.Release; end; end; end. t+
[delphi-br] TImage LoadFromFile
Image1.Picture.LoadFromFile('http://www.site.com.br/imagem.jpg'); O componente TImage carrega uma imagem diretamente do site passando o endereço do site se executando em design time, mas se tentar carregar a imagem em run time com LoadFromFile conforme acima retorna erro. Alguma sugestão sem usar LoadFromFile? t+
Re: [delphi-br] Verificar se tem impressora na porta LPT1
Esta funcao no funcionou no Windows XP, ocorreu violacao de endereço. Provavelmente deve funcionar somente em Windows 9x. Voce ja usou esta funcao no Windows XP? t+ OnLine( 0 ); // para a LPT1 e assim vai... Function OnLine(Porta:Word):Boolean; Const Portas :Byte = $02; Var Res :Byte; Begin { Código em Assembler } Asm mov ah,Portas; {Requisita o acesso as portas} mov dx,Porta;{Define a porta de teste} Int $17; {Chama a interrupção de Impressora} mov Res,ah; {Guarda em Res o resultado da operação } end; Result := (Res and $80) = $80; {Testa o valor de saída} End;
[delphi-br] Verificar se tem impressora na porta LPT1
Estou enviando a palavra Teste para a imperssoa conectada na porta LPT1 conforme exemplo abaixo: Funciona perfeitamente, mas quando o usuario não possui impressora conectada na porta LPT1, o aplicativo trava , não mostrando mensagem de erro. Como poderia evitar esta travada da aplicação, verificar se possui impressora na porta selecionada e apresentar uma mensagem ao usuário? procedure Imprimir; var F: TextFile; begin AssignFile(F, 'LPT1'); Rewrite(F); try WriteLn(F, 'Teste'); finally CloseFile(F); end; end; t+
[delphi-br] Delphi 2007 no Windows Vista
Windows Vista Delphi 2007 Win 32 No teste estou colocando no form somente o componente SQLConnection, altero as propriedades apontando para o banco de dados e quando altero a propriedade Connected para True, ocorre a mensagem de erro: Cannot load dbxint30.dll (126). It may be missing from the system path. Já tentei e não resolveu: - coloquei o arquivo dbxint30.dll na pasta system32 - coloquei o arquivo dbxint30.dll na pasta da aplicacao - caminho do arquivo dbxint30.dll em Library Path - caminho do arquivo dbxint30.dll no path do Windows Alguma sugestão?
Re: [delphi-br] Delphi 2007 no Windows Vista
Ola Andreano, Ja estou usando a dll do Delphi 2007, já coloquei o arquivo dbxint30.dll na para system32, na pasta da aplicação e a mensagem de erro continua. O Windows Vista tem mais de um usuario cadastrado, talvez seja por isto, poderia fazer um teste cadastrando mais de um usuario no Vista e veja se ocorre este problema. Tem mais alguma sugestao para resolver o problema? t+ - Original Message - From: Andreano Lanusse [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Sent: Monday, May 07, 2007 12:44 PM Subject: RE: [delphi-br] Delphi 2007 no Windows Vista Se vocês continuam usando as dll antigas para conectar tem que declarar a unit DBXDynalink no seu projeto. Tente isso. Abraços, Andreano Lanusse CodeGear From: delphi-br@yahoogrupos.com.br on behalf of Eduardo Silva dos Santos Sent: Mon 07-May-07 08:15 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Delphi 2007 no Windows Vista dbexpress ai ai... Em 07/05/07, Alex Canario [EMAIL PROTECTED] mailto:alexcanario%40yahoo.com.br escreveu: Também estou com o mesmo o problema. Alex Canário _ De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Paulo Geloramo Enviada em: segunda-feira, 7 de maio de 2007 10:23 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Delphi 2007 no Windows Vista Windows Vista Delphi 2007 Win 32 No teste estou colocando no form somente o componente SQLConnection, altero as propriedades apontando para o banco de dados e quando altero a propriedade Connected para True, ocorre a mensagem de erro: Cannot load dbxint30.dll (126). It may be missing from the system path. Já tentei e não resolveu: - coloquei o arquivo dbxint30.dll na pasta system32 - coloquei o arquivo dbxint30.dll na pasta da aplicacao - caminho do arquivo dbxint30.dll em Library Path - caminho do arquivo dbxint30.dll no path do Windows Alguma sugestão? [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] Bug Delphi 2007 DBNavigator - FUNCIONA PERFEITAMENTE
Ola Andreano, Com aplicativos simples tem funcionado. Faz o teste com aplicativos que tenha herança de forms desenvolvido com D7 ou D2006 e compile com D2007 e veja se o problema ocorre. t+ -Mensagem Original- De: Andreano Lanusse [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: segunda-feira, 30 de abril de 2007 21:42 Assunto: RE: [delphi-br] Bug Delphi 2007 DBNavigator - FUNCIONA PERFEITAMENTE Acabei de fazer testes sobre isso e o DBNavigator funciona normalmente. []'s Andreano Lanusse CodeGear From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Paulo Geloramo Sent: Monday, April 30, 2007 1:14 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Bug Delphi 2007 DBNavigator nao atualiza Delphi 2007 DBX4 ClientDataSet Se inserir um registro e aplicar, o botão post e cancel do DBNavigtor continuam ligados. t+ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] Bug Delphi 2007 DBX4
Delphi 2007 DBX 4 IB6 ou IB7 ou FB2 Para qualquer erro retorna a mensagem genérica: Unable to execute Query. Este bug Inviabiliza a utilização do DbExpress 4, pois se o usuário liga para o suporte e apresenta a mensagem de erro genérica, se o erro for apenas a falta de permissão para um campo, como o suporte vai saber qual tabela e campo? A menagem de erro deve retornar o nome da tabela e campo como ocorre com D7 e D2006. t+ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Bug Delphi 2007 DBX4
DBX4 com Firebird esta funcionando, a unica alteração que deve fazer é deletar o componente SQLConnection e inserir outro. t+ -Mensagem Original- De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: segunda-feira, 30 de abril de 2007 11:35 Assunto: Re: [delphi-br] Bug Delphi 2007 DBX4 Provavelmente não é mais, depois de tantas modificações e depois do Interbase 2007. Em 30/04/07, Daniel Bastos [EMAIL PROTECTED] escreveu: Cara tb não consegui acessar firebird com dbx4... Acho que o driver do interbase não é mais compatível com firebird. Em 30/04/07, Paulo Geloramo [EMAIL PROTECTED]paulogeloramo%40terra.com.br escreveu: Delphi 2007 DBX 4 IB6 ou IB7 ou FB2 Para qualquer erro retorna a mensagem genérica: Unable to execute Query. Este bug Inviabiliza a utilização do DbExpress 4, pois se o usuário liga para o suporte e apresenta a mensagem de erro genérica, se o erro for apenas a falta de permissão para um campo, como o suporte vai saber qual tabela e campo? A menagem de erro deve retornar o nome da tabela e campo como ocorre com D7 e D2006. t+ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: RES:[delphi-br] Bug Delphi 2007 DBX4
Douglas, o seu problema pode ser outro, voce ja deletou o componente SQLConnection e inseriu outro? Provavelmente deve resolver. Este bug que relatei nao ocorre com MySQL, ocorre somente com IB e FB, este é um bug domestico. t+ -Mensagem Original- De: Douglas Uesato - Depto. de Informática [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: segunda-feira, 30 de abril de 2007 14:01 Assunto: RES:[delphi-br] Bug Delphi 2007 DBX4 Paulo, Isso está acontecendo com o MySQL 5 e MySQL 4 também, a poucos dias atrás eu postei uma mensagem com o assunto Delphi 2007 x MysQL, porém ainda não obtive resposta. Atenciosamente, Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Geloramo Enviada em: segunda-feira, 30 de abril de 2007 08:29 Para: delphi-br@yahoogrupos.com.br Assunto: [SPAM] [delphi-br] Bug Delphi 2007 DBX4 Delphi 2007 DBX 4 IB6 ou IB7 ou FB2 Para qualquer erro retorna a mensagem genérica: Unable to execute Query. Este bug Inviabiliza a utilização do DbExpress 4, pois se o usuário liga para o suporte e apresenta a mensagem de erro genérica, se o erro for apenas a falta de permissão para um campo, como o suporte vai saber qual tabela e campo? A menagem de erro deve retornar o nome da tabela e campo como ocorre com D7 e D2006. t+ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
[delphi-br] Bug Delphi 2007 DBNavigator nao atualiza
Delphi 2007 DBX4 ClientDataSet Se inserir um registro e aplicar, o botão post e cancel do DBNavigtor continuam ligados. t+ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2007 - DBExpress DBX4 Mensagem erro genérica: Inc apaz de executar a query
No Delphi 7 e Delphi 2006 o DBExpress retornava a mensagem de erro completa com o nome da tabela e ou campo que ocorreu o erro, por exemplo, se não tem permissão, vai retornar o nome da tabela e ou campo na mensagem de erro. No Delphi 2007 para qualquer erro o DBX4 esta retornando a mensagem genérica: Incapaz de executar a query. Fiz o teste com Firebird 2.0 e esta ocorrendo este problema. Este problema esta ocorrendo somente com Firebird? Ocorre com outros servidores? Alguma sugestão para evitar este problema? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] xls2csv
Estou procurando uma função para converter xls em csv em Delphi, alguem tem? Poderia compartilhar? Encontrei esta função pronta em java: http://www.devmedia.com.br/articles/viewcomp.asp?comp=1799 Alguem que entende bem de java e delphi poderia ajudar a escrever a mesma em Delphi? t+ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TChart
Em tempo de projeto, clicando de direita sobre o componente TChart, temos Edit Chart, Print Preview e Export Chart, é possivel disponibilizar estes recursos em tempo de execução? A ideia é gerar gráfico dinámico passando apenas o DataSet. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ClientDataSet, como aplicar o delta em determinada ordem
Para aplicar o delta existe alguma forma de determinar que seja aplicado em uma ordem? Imagine o seguinte problema: O banco não admite estoque negativo. O produto X tem estoque de 6. Venda de 1 para A Venda de 2 para B Venda de 3 para C Aplica e faz a alteração: Venda de 3 para A Venda de 2 para B Venda de 1 para C Se aplicar A, B e C vai ocorrer erro, pois tem que aplicar C, B e A, tem que aplicar do menor para o maior. Alguma sugestão para resolver este problema? []s Paulo [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ClientDataSet, aplicar delta em determinada ordem
Como poderia ordenar o delta do ClientDataSet para ser aplicado na ordem escolhida. Por exemplo: O banco não permite estoque negativo. Produto tem 10 em estoque. 1. Venda de 10 para A 2. Venda de 10 para B 3. Venda de 0 para A (Alteração do item 1) O ClientDataSet esta processado na ordem 1,2,3 e ocorre mensagem de erro quando processa o item 2. Para não ocorrer erro teria que processar na ordem 1, 3, 2. O clientDataSet teria que ser aplicado na ordem: Old.Venda - New.Venda Alguma sugestão? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] evento Before Scroll
No evento BeforeScroll do cds fecho o cds Teste, mas gostaria tambem de ocultar o form Teste, por exemplo, fTeste.Hide, mas o cds esta no data module que nao tem conhecimento do form Teste. Toda vez que mudar de registro quero ocultar o form Teste, alguma sugestão? procedure TdmA.cdsTesteBeforeScroll(DataSet: TDataSet); begin cdsTeste.Close; end; []s Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] evento Before Scroll
Alem de geraria o codigo macarronico, tem a desvantagem que se o datamodule for herdado, tem que ir junto o form teste, somente o form teste deve conhecer o datamodule e nao o contrario. []s Paulo Geloramo -Mensagem Original- De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: terça-feira, 26 de dezembro de 2006 13:58 Assunto: RE: [delphi-br] evento Before Scroll Não tem jeito, o data module tem que fazer um uses à unit onde tem esse formulário fTeste. Sds.
[delphi-br] Master Detail Aninhado
Estou usando: Delphi 2006 up 2 Firebird 1.5.3 DBX driver interbase SQLQuery+DataSetProvider+ClientDataSet Master Detail Aninhado Estou mostrando os registros em duas dbGrid, uma para master e outra para detail. Para retornar os registros esta demorando muito, mais de 3 minutos. A Sql master retorna 50 registros e a sql detail retorna 30 registros para cada registro master. Provavelmente não é problema com a instrucão sql, pois se executar a sql da master ou detail no IBExpert retorna instantaneamente o resultado em 30ms. Já testei: PacketRecords = 5, 50 e -1 ; cdsMaster.DisableControls; cdsDetail.DisableControls; Alguma sugestão para melhorar o desempenho deste master detail aninhado? []s Paulo Geloramo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Imprimir para a porta da impressora padrão do Windows
Ola Pessoal, Atualmente estou imprimindo diretamente para a porta LPT1 assim: AssignFile(Arquivo, 'LPT1'); Mas se a impressora esta na rede, COM1 ou USB não funciona, uma solução que pensei foi enviar para a porta da impressora padrão do Windows assim: PortaDaImpressoraPadrao := ??? AssignFile(Arquivo, PortaDaImpressoraPadrao); Já tentei obter a porta padão com Printers.GetPrinter, mas até o momento sem solução. Alguma sugestão? []s Paulo Geloramo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Inserir e deletar usuario MAX TIBSecurityService ou TMDOSecurityService
Inserir e deletar usuário com o componente TIBSecurityService ou TMDOSecurityService: IBSecurityService1.UserName := 'MAX'; MDOSecurityService1.UserName := 'MAX'; Se o usuário possui o nome MAX que é palavra reservada ocorre a mensagem de erro abaixo: --- Teste --- Erro no servidor: Token unknown - line 1, char 28 MAX. --- OK --- Já tentei: IBSecurityService1.UserName := QuoteStr('MAX'); IBSecurityService1.UserName := #39 + #34 + #39 + 'MAX' + #39 + #34 + #39; Alguma sugestão? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DBGrid mudar de linha com enter
Olá Pessoal, Na DBGrid para mudar de linha com enter estou fazendo assim: procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then ClientDataSet1.Next; end; Mas quando passa pelo evento OnSetText e a venda é menor que zero a mensagem de erro é apresentada duas vezes. procedure TForm1.ClientDataSet1VENDASetText(Sender: TField; const Text: string); begin if StrToInt(Text) 0 then MessageDlg('Venda menor que zero.', mtError, [mbOK], 0) else Sender.AsInteger := StrToInt(Text); end; Alguma sugestão para mostrar a mensagem de erro apenas uma vez? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Campo aggregate apresenta diferença de centavo
Quando faço a pesquisa no ClientDataSet o campo aggregate apresenta o valor R$2.629,55 Listo um relatório que apresenta o valor de R$2.629,93 Então refaço a pesquisa no ClientDataSet e o campo aggregate apresenta o valor mesmo valor do relatório: R$2.629,93 Tenho o campo VALOR que é InternalCalc Tenho o campo TOTAL que é aggregate _expression_ SUM(VALOR) Estou usando a mesma função de arredondamento no relatório e no CalcFields do ClientDataSet. Alguma sugestão para o campo aggregate apresentar o mesmo valor do relatório logo na primeira pesquisa? []s Paulo Geloramo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Ordenar por campo calculado
ClientDataSet em um campo calculado, estou tentando ordenar por este campo mas retorna erro. ClientDataSet1.IndexFieldNames := 'CAMPO_CALCULADO'; Alguma sugestão? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Duplex - imprimindo frente e verso
Ola Pessoal, Estou usando um impressora que possui recurso duplex para imprimir frente e verso. Estou usando Rave modo programado. Gostaria de gerar um relatorio de cidades quebrando por estado, mas evitar que um estado inicie no verso. Como identificar se for o verso da folha executar NewPage if VersoFolha then NewPage; Rave tem algum recurso para verificar se esta imprimindo na frente ou verso? Exemplo: Vamos supor o relatorio de tres estados (AC, SP, RJ) quebando por estado, e listando 3 cidades por estado. Ora o relatorio vai começar em pagina impar ora par. (Folha01, pagina 01) AC Cidade 1 (Folha01, pagina 02) AC Cidade 2 (Folha02, pagina 03) AC Cidade 3 (Folha02, em branco) (Folha03, pagina 04) SP Cidade 4 (Folha03, pagina 05) SP Cidade 5 (Folha04, pagina 06) SP Cidade 6 (Folha04, em branco) (Folha05, pagina 07) RJ Cidade 7 (Folha05, pagina 08) RJ Cidade 8 (Folha06, pagina 09) RJ Cidade 9 (Folha06, em branco) Alguma sugestão para verificar se esta iniciando um estado no verso? Assis Informatica Ltda. Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Rave programado - Relatorio frente e verso
Ola Pessoal, Para gerar relatorio em uma impressora que tem o recuros de imprimir frente e verso tem que alterar alguma coisa no relatorio? Nao tenho aqui um impressora com este recurso para testar, meu cliente vai adquirir uma impressora com este recurso. Usando o recuros de frente e verso o NewPage vai imprimir em uma nova folha ou no verso da mesma? Existe algum metodo para forçar uma nova folha? O problema que estou tentando antever: Vamos supor um relatorio das cidades quebrando por UF, o estado AC gere 3 paginas, vai imprimir frente e verso da primeira folha e frente da segunda folha. A primeira pagina de proximo estado deve ser impressa em uma nova folha e nao no verso da segunda folha, qual a melhor forma de controlar isto? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDAD Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Delphi 2006 SQLConnection evento onLogin
Ola Pessoal, No Delphi 2006 tenho um form proprio para fazer login, estou atribuindo os parâmetros conforme abaixo: Devo estar cometendo algum erro, pois compila, mas não esta conectando. O que pode estar errado neste código? procedure TdmA.SQLConnection1Login(Database: TSQLConnection; LoginParams: TWideStrings); var fLogin: TfLogin; begin fLogin := TfLogin.Create(Self); try if fLogin.ShowModal = mrOk then begin Database.Params.Values['User_Name'] := fLogin.eUsuario.Text; Database.Params.Values['Password'] := fLogin.eSenha.Text; end else Abort; finally fLogin.Release; end; end; []s Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DBExpress SQLConnection Idle
Delphi 2006 DBExpress Como adicionar ou simular a propriedade Idle no componente SQLConnection? Eu gostaria de após 20 minutos de ociosidade setar KeepConnection := False. Tem alguma sugestão? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi 2006
Ola Andreano, Estes formam corrigidos no Update 2? Delphi 7 http://qc.borland.com/wc/qcmain.aspx?d=2711 Delphi 2005 http://qc.borland.com/wc/qcmain.aspx?d=13241 []s Paulo Geloramo -Mensagem Original- De: Andreano Lanusse [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: terça-feira, 31 de janeiro de 2006 23:27 Assunto: [delphi-br] Delphi 2006 Aqueles que tiverem algum problema com Delphi 2006 por favor consultem o Quality Central (qc.borland.com) e caso esteja reportado lá me avise que eu pesso prioridade Se não for localizado reportar no QC e me informar o número do registro... Abraços, Andreano Lanusse System Engineer - Development Tools Tel.: (55 11) 2165-8000 / 8196-5912 [EMAIL PROTECTED] - www.borland.com.br http://www.borland.com.br/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Para Andreano: Erro sério do Delphi 2006 + DBXPress com campos nulos, adicionado ao Quality Central
O bug que voce deu exemplo abaixo ja existe no qc desde o Delphi 7 e ate o momento nao foi corrigido. Delphi 7 http://qc.borland.com/wc/qcmain.aspx?d=2711 Delphi 2005 http://qc.borland.com/wc/qcmain.aspx?d=13241 Espero que no Update 2 do Delphi 2006 corrija este bug. No qc, cada usuario pode dar ate 5 votos para cada bug que deseja ver corrigido. Dica: Entre no qc e vote. []s Paulo Geloramo -Mensagem Original- De: Braytiner [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: terça-feira, 31 de janeiro de 2006 16:01 Assunto: Re: [delphi-br] Para Andreano: Erro sério do Delphi 2006 + DBXPress com campos nulos, adicionado ao Quality Central E qual seria a nova forma correta de se fazer? Eu utilizo bastante esta função... Aproveitando a deixa um outro problema ocorrido e reportado no QC é referente a campo com o formato currenvy, não mostrarem separador decimal e zeros. Exemplo: Valor: dezenove reais Era para mostrar: R$ 19,00 Mostra: R$ 19 Valor: cinquenta e nove centavos Era para mostrar: R$ 0,59 Mostra: R$ ,59 Valor: Um real e cinco centavos Era para mostrar: R$ 1,05 Mostra: R$ 1,05 (neste caso ele mostra o valor formatado de forma correta) Braytiner Braytiner Em 31/01/06, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu: Pode não ser um erro. Pode ser que mudaram a maneira de fazer isto no Delphi novo []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Braytiner Enviada em: terça-feira, 31 de janeiro de 2006 15:23 Para: Delphi BR Assunto: [delphi-br] Para Andreano: Erro sério do Delphi 2006 + DBXPress com campos nulos, adicionado ao Quality Central Olá pessoal, possuo uma função que me retorna o ID de um registro caso o mesmo seja tente ser lançado duas vezes em uma tabela e caso o registro não exista na tabela é retornado um valor nulo. A mesma funcionava corretamente quando era compilada no Delphi 7. Após compilar o projeto no Delphi 2006, observei que quando o valor é retornado como nulo e eu tento acessar o campo como AsString é gerado um erro e o sistema é fechado, procurei no Quality Central e o problema é o primeiro da lista. Por isso gostaria de saber qual o prazo para o mesmo ser corrigido, pois esta é uma falha muito séria no Delphi 2006. Estou usando Firebird + DBXPress. Segue o link do erro no Quality Central: http://qc.borland.com/wc/qcmain.aspx?d=23943 Para quem quiser testar: Adicione uma SQLConnection + SQLQuery ao projeto e para a SQLQuery informe um comando SQL que retornará o valor de um campo nulo (Como SELECT SEU_CAMPO FROM SUA_TABELA WHERE 0 = 1), tente acessar este campo com FieldByName('SEU_CAMPO').AsString e veja o erro. Braytiner [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- Braytiner [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] TreeView Eliminar loop
Ola Pessoal, Estou fazendo o loop abaixo, percorrendo todos os itens da TreeView e selecionando o item que possui SelectedIndex = 123. Existe alguma forma de selecionar o item que possui SelectedIndex = 123 diretamente, eliminando o loop? for i := 0 to TreeView1.Items.Count - 1 do if TreeView1.Items[i].SelectedIndex = 123 then begin TreeView1.Items[i].Selected := True; Break; end; TreeView1.Selected.StateIndex := 2; {Marcado} []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DBExpress - KeepConnection
Delphi 2005, DBExpress, Como desconectar se ocioso ? No componente SQLConnection, existe alguma forma de usar KeepConnection = False para desconectar do banco de dados se a coneccao ficar ociosa por 10 minutos? --- Assis Informatica Ltda Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Rave não exporta para XML, XLS e CSV. O Quick Report e xporta.
Caro usuário Rave, No Rave não tem componente para exportar para XML, XLS e CSV, enviei o email abaixo para Nevrona, solicitando adicionar estas funcionalidades, caso este recurso seja interessante para você também, envie um email semelhante para reforçar o pedido a Nevrona, quem sabe nas próximas versões este recurso possa estar disponível. --- Nevrona, Usind Rave BEX 6.0.5 How export to: XML XLS (format Excel) CSV (separate for semi-comma) Suggestion: Add function to export to: XML XLS (format Excel) CSV (separate for semi-comma) Note Important: Quick Report export to XML, XLS and CSV. - -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Int64
Usando: Delphi 2005 Win 32 Firebird 1.5.2 Quando o campo no banco de dados é INTEGER, uso o comando abaixo para atribuir para a variavel: var Teste: Integer; begin Teste := cds.FieldByName('CAMPO_INTEGER').AsInteger; Quando o campo no banco de dados é BIGINT, qual a forma correta de atribuir a variavel Int64? var Teste: Int64; begin Teste := cds.FieldByName('CAMPO_BIGINT').AsInt64; No Delphi 2005 Win32 nao existe o tipo AsInt64, o que seria melhor usar? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Sebrescrever ou inserir texto
No Microsoft Word pode escolher entre sobrescrever ou inserir texto pressionando a tecla Insert, no Delphi 2005 Win 32 tem alguma forma de adicionar esta funcionalidade nos componentes Edit, DBEdit e DBGrid? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ino Setup
Veja no help do Ino Setup [Components] [Components] Name: Servidor; Description: Arquivos do Servidor; Types: full compact custom; Flags: fixed Name: Cliente; Description: Arquivos do Cliente; Types: full Name: Outros; Description: Outros Arquivos; Types: full -Mensagem Original- De: galvao_em [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: quinta-feira, 28 de julho de 2005 13:58 Assunto: [delphi-br] Ino Setup Olá pessoal, Como é que posso fazer para criar um instalador no inno, com a opção de instalação cliente e de instalação servidora, é que no servidor após instalar eu crio a base de dados, e no cliente eu não irei criar a base de dados, então eu queria diferenciar isto na hora da instalação com uma tela para escolher o tipo. alguem sabe como fazer? desde já agradeeço ___ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Componente TComPort
Como usar o componente ComPort 3.0 para enviar binarios para a porta COM1? Estou usando assim: ComPort1.Open; ComPort1.WriteStr('0001'); ComPort1.Close; O hardware esta aguandando o binario 0001, mas o componente esta convertendo e o hardware não esta recebendo o binário 0001. Não encontrei exemplos enviando binarios no componente. Alguma sugestão ou exemplo usando o componente ComPort? []s Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Quick Report 4.05 TQRCSVFilter
Delphi 2005 up1 up2 up3 Win 32 Quick Report 4.05 Adicionei ao form o componente TQRCSVFilter para exportar o relatrio para um arquivo texto separado por vrgula, mas no esta gerando o arquivo. Os outros componentes TQR???Filter fucionou corretamente. Alguem j usou este componente TQRCSVFilter com sucesso? Conhece algum forma de contornar o problema? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi 2005 da suporte para HTML Help contexto arquivo .chm
Segundo o blogdelphi do Bruno Sonino no link abaixo http://www.revolution.com.br/blogdelphi/ o Delphi 2005 da suporte para HTML Help contexto arquivo .chm, mas não encontrei material sobre este assunto no help do Delphi 2005, nos testes que fiz não obtive sucesso. Como chamar um arquivo HTML help contexto .chm no Delphi 2005 Win 32? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Bug Delphi 2005
Sim, ja tinha tentado e ocorre o mesmo problema. []s Paulo Geloramo -Mensagem Original- De: Rogério [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 25 de maio de 2005 09:27 Assunto: Re: [delphi-br] Bug Delphi 2005 Não uso o Delphi 2005, mas... Já tentasse inverter o uso do ponto e da vírgula? DisplayFormat ###.##0,00 EditFormat 0,00 PS: Se já tentou, não se ofenda, foi só uma tentativa. Abraço, Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br - Original Message - From: Paulo Geloramo [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 24, 2005 2:09 PM Subject: [delphi-br] Bug Delphi 2005 Delphi 2005 UP1, UP 2, UP3 Win32 No ClientDataSet, campo NUMERIC(X,Y) TField FMTBCD, a propriedade DisplayFormat e EditFormat apresentam problemas: DisplayFormat ###,##0.00 EditFormat 0.00 Na DBGrid e DBEdit resulta: correct 0,30 error .30 correct 10,00 error 10 Alguma sugestão para contornar este bug? []s Paulo Geloramo ps.: Não ocorre no Delphi 7. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Bug Delphi 2005
Delphi 2005 UP1, UP 2, UP3 Win32 No ClientDataSet, campo NUMERIC(X,Y) TField FMTBCD, a propriedade DisplayFormat e EditFormat apresentam problemas: DisplayFormat ###,##0.00 EditFormat 0.00 Na DBGrid e DBEdit resulta: correct 0,30 error .30 correct 10,00 error 10 Alguma sugestão para contornar este bug? []s Paulo Geloramo ps.: Não ocorre no Delphi 7. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi 2005 Win 32 DisplayFormat na DBGrid
No Delphi 2005 Win32 os campos currency não estão respeitando a mascara da propriedade DisplayFormat na DBGrid: ,##0.00 ###,###,##0.00 ##0.00 Funcionava perfeitamente no Delphi 7. Mais alguem teve este problema? Encontrou alguma solução? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] =?iso-8859-1?Q?Re:Qual_editor_de_relat=F3rios_=E9_melhor_que_o_Quick_Repo?= =?iso-8859-1?Q?r_t_=3F?=
Ola Valmor, Ola Valmor, Voce disse na mensagem abaixo que esta usando o Fast Reports, poderia me tirar uma duvida? E´ possivel gerar relatorio no modo programado ou somente modo grafico? Eu trabalho com o Rave modo programado, mas gostaria de mudar, caso o fast reporte trabalhe no modo programado seria facil portar os relatorios que tenho. Tem algum exemplo de relatorio no fast report no modo programado que poderia me enviar? []s Paulo Geloramo -Mensagem Original- De: Valmor (Evolutiva) [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: quinta-feira, 18 de novembro de 2004 22:16 Assunto: Re: [delphi-br] Qual editor de relatórios é melhor que o Quick Repor t ? Uso FastReport. Comecei utilizando o FreeReport, mas, por trabalhar com CLX optei por adquirir o FastReport, que é uma versão melhorada e atualizada (e, claro, paga) do primeiro. Funciona perfeitamente tanto no ruwindows quanto no linux. Os relatorios podem ainda serem salvos em arquivos e modificados de forma específica para cada cliente sem mudar sua aplicação, etc, etc, etc... Na internet tem muita informação sobre esta ferramenta. Valmor (Linux é claro!) Slackware 9 Obs: Não sei pra que serve o CTRL+ALT+DEL há muito tempo! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] =?iso-8859-1?Q?Gerador_de_Relat=F3rio_com_modo_programado_semelhante_ao_R?= =?iso-8859-1?Q?ave?=
O Rave gerar o relatório no modo programado ou grafico. No modo programado posso usar todos os recursos do Delphi para formatar o campo e não tem necessidade de ficar desenhando o relatório, para os relatórios personalizados fica mais fácil, por exemplo, em uma tabela com 20 campos o usuário escolhe os campos que deseja imprimir. Existe outro gerador de relatório que tenha modo programado semelhante? O Fast Report tem modo programado semelhante ao Rave? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Instalar OnGuard no Delphi 2005
Estou tentando instalar o OnGuard 1.13 no Delphi 2005, mas esta apresentando a mensagem de erro: [Fatal Error] OnGuard5.pas(59): F1026 File not found: 'dsgnintf.dcu' unit OnGuard5; interface uses Controls, Forms, OnGuard, {$IFDEF VERSION6} {!!.11} DesignIntf, DesignEditors; {$ELSE} dsgnintf; erro nesta linha {$ENDIF} Tem alguma sugestão? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Porta Serial RS232
A porta serial do micro RS232 faz a comunição síncrona ou assíncrona, ou somente assíncrona? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Windows XP - Adicionar formulário personalizado na impressora
No Windows XP podemos adicionar formulário personalizado na impressoras clicando em: 1. Iniciar 2. Impressoras e aparelhos de fax 3. Menu Arquivo 4. Propriedades do servidor 5. Guia Formulário Existe alguma forma de adicionar um formulário personalizado no Windows XP adicionando chaves no registro do Windows? Estou instalando o aplicativo através do Inno Setup, adicionar na instalação o formulário Razão, conforme exemplo abaixo, a chave esta sendo criada, mas o formulário não esta disponivel após adicionar esta chave, existe alguma forma de adicionar o formulário através do Inno Setup? [Registry] Root: HKLM; Subkey: SYSTEM\ControlSet001\Control\Print\Forms; ValueType: binary; ValueName: Razão 21,59 x 14,00; ValueData: 5c 4b 03 00 e0 22 02 00 00 00 00 00 00 00 00 00 5c 4b 03 00 e0 22 02 00 02 00 00 00 00 00 00 00 []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Html
Ola Pessoal, Estou fazendo o help da aplicação usando Html Help Workshop. Como fazer um hyperlink para editar um arquivo backup.bat no notepad.exe? Passando backup.bat como parametro para notepad.exe Exemplo que não funciona: a href=notepad.exe teste.batclique aqui para editar backup.bat/a []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Criar Help, como criar hyperlink que explica o termo, não abre uma página
Ola Pessoal, Estou criando o help da aplicação com Html Help Workshop, esta ferramenta compila todos os arquivos html gerando um arquivo chm. Estou usando o FrontPage 2002 para gerar os arquivos html, gostaria de saber como criar um hyperlink que explica o termo, não abre uma página? Exemplo: No Windows XP clique em: Iniciar Ajuda e suporte Trabalhando remotamente Trabalhando com conteúdo off-line Tornar um arquivo ou pasta disponivel off-line hyperlink verde: pasta compartilhada e sincronizar []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Editor de Help
Pessoal, Estou fazendo teste com a ferramenta Html Help Workshop, notei que pode selecionar o icone para cada entrada em Contents (menu). A ferramenta vem com um conjunto de 42 icones, seria possivel adicionar meus icones, ou seja, gostaria de adicionar os icones que estou usando na aplicação? Como adicionar meus icones? Estou usando a versão 4.74.8702.0, existe alguma versão mais nova ou atualização para Windows XP? []s Paulo -Mensagem Original- De: Walter Alves Chagas Junior [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: quinta-feira, 6 de janeiro de 2005 10:35 Assunto: RES: [delphi-br] Editor de Help Eu uso o Help Workshop que vem com o Delphi mesmo. Procura lá no diretório \help\tools. Tem ele lá []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Weber Luvisa [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 6 de janeiro de 2005 09:30 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Editor de Help Alguém pode me indicar um edior de help, simples e digratis ?? -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Update Pack 1 do Delphi 7
Ola Pessoal, Alguem aqui usa o Delphi 7 com a atualização UP 1, com sucesso, sem bug, aplicou mais algum remendo, quais? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Mensagem de erro Key violation quando executa ClientDataSet.Open
Mensagem de erro Key violation: Quando executo o comando ClientDataSet.Open; recebo a mensagem de erro Key violation, pode ser um bug do Delphi, pois quando a propriedade PacketRecords esta com -1 não ocorre a mensagem de erro, mas quando esta com um número menor que o total de registro ocorre a mensagem de erro. Estou usando: Delphi 7.1 Firebird 1.5.2 DBExpress SQLDataSet + DataSetProvider + ClientDataSet Midas.dll versão 7.1.1692.668 http://planeta.terra.com.br/informatica/banca/bug.zip No link acima tem um exemplo bem simples com apenas uma tabela PRODUTO com dois campos CODIGO_PRODUTO e NOME_PRODUTO, execute o projeto e clique no botão pesquisar. Alguma sugestão para resolver este problema? Você sabe qual a versão mais recente da midas.dll para Delphi 7.1? Qual versão do midas.dll você esta usando? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ClientDataSet Carregar os dados com duas instruções SQl
Existe alguma forma de carregar os dados em um ClientDataSet com duas instruções SQL? Explicando: Estou usando: Delphi 7 Firebird 1.5.2 DBExpress SQLDataSet+DataSetProvider+ClientDataSet Usando apenas uma instrucao SQL no ClientDataSet, quando executa o ClientDataSet.Open demora para retornar os dados, inviabilizando a aplicação, porque a instrução SQL tem diversos JOIN. Então fiz um teste fazendo em duas instruções SQL, ficou emeditado a execução. Um exemplo simplificado: Na primeira instrução SQL traz apenas os nomes dos produtos. Na segunda instrução SQL traz as quantidades de cada produto. Na segunda instrução SQL estou fazendo um loop com os comandos: SQL.First; While not ClientDataSet.Eof do begin ClientDataSet.Edit; ClientDataSet.FieldByName('QUANTIDADE').AsInteger := Quantidade; ClientDataSet.Post; SQL.Next; end; Desta forma ficou imetiata para carregar os dados para o ClientDataSet, mas existe um efeito colateral, pois assim, a quantidade vai para o Delta, existe alguma forma de limpar o Delta, mantendo a quantidade no ClientDataSet? Existe alguma outra forma de carregar os dados para o ClientDataSet em duas instruções SQL? Alguma sugestão? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Retornar apenas numeros 0..9
Ola Pessoal, Usando Delphi 7 sCodigo := ''; sTemp := 'A1B2C3'; for I := 1 to 6 do if Ord(sTemp[I]) in [48..57] then sCodigo := sCodigo + sTemp[I]; //retorno sCodigo := 123 Estou usando o codigo acima para retornar em uma variavel sCodigo apenas os digitos 0..9, tem alguma sugestão melhor e ou mais rápida? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Hint do componente TMenuItem
Ola Pessoal, Delphi 7 Como mostrar o hint do componente TMenuItem de um PopupMenu, pois normalmente o hint deste componente não é mostrado quando o mouse fica sobre o TMenuItem. Sei como mostra-lo em um StatusBar, mas o hint possui varias linhas e gostaria de mostrá-lo da forma tradicional, num retângulo ao lado do componente. []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] JvDBTreeView
Ola Rubem, Sim, revirei, mas ate o momento nao encontrei nem nas pastas JVCL, nem na net. Caso tenha ou venha a encontrar algum exemplo, gentileza compartinhar. []s Paulo Geloramo -Mensagem Original- De: Rubem Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: quinta-feira, 30 de dezembro de 2004 15:04 Assunto: RES: [delphi-br] JvDBTreeView Cara, já procurou alguma coisa nos exemplos que vem com a JediVCL? []s -Mensagem original- De: Paulo Geloramo [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 30 de dezembro de 2004 12:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] JvDBTreeView Estou testando o JvDBTreeView, mas não encontrei nenhuma documentação e exemplo, conectei o componente a um DataSource e setei as propriedades, mas até momento sem sucesso. Alguém já usou este componente, possui algum exemplo que poderia compartilhar? []s Paulo Geloramo [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Arredondamento ou truncamento?
Ola Daniel, Recomendo usar arredondamento 4-5, pois vai aproximar bastante do real, ou seja, considerar o numero com todas as suas casas decimais, pelos calculos que tenho feito a diferença do arredondamneto 4-5 e real, tem ficado em torne de 0,02 a 0,03 em média. O CAST do Firebird já adota o arredonamento 4-5, assim voce adotando este arredondamento no Delphi os calculos e relatorios ficaram mais faceis de gerar sem a necessidade de usar UDF. []s Paulo Geloramo. -Mensagem Original- De: Daniel / Tecnobyte [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: quinta-feira, 30 de dezembro de 2004 11:36 Assunto: [delphi-br] Arredondamento ou truncamento? Estou em um dilema e gostaria de saber da opinião de todos vocês. O que devo usar em operações financeiras e fiscais: arredondamento ou truncamento? Explicando melhor Antigamente eu usava sempre truncamento em meus sistemas, ou seja, todas as vezes que o resultado de um cálculo apresentava mais que duas casas decimais, então eu truncava para duas casas (desprezava as casas a partir da terceira). Exemplos: 1,55 * 3,63 = 5,6265 truncado para 5,62 1,33 * 2,57 = 3,4181 truncado para 3,41 1,33 * 1,22 = 1,6226 truncado para 1,62 Com o tempo percebi que o arredondamento parecia ser mais usado, inclusive sendo o padrão em calculadoras e banco de dados (Firebird, por exemplo). Notei inclusive que o arredondamento do Firebird e das calculadoras é ligeiramente diferente do arredondamento feito pelo Delphi (isto quando a última casa tem o número 5). Então passei a usar o arredondamento idêntico ao feito pelas calculadoras financeiras. No Firebird eu faço atualmente assim: CAST(Valor AS NUMERIC(9,2)) E para arredondar no Delphi escrevi a função abaixo: function TBRound(Value: Extended; Decimals: integer): Extended; var Factor, Fraction: Extended; begin Factor := IntPower(10, Decimals); { A conversão para string e depois para float evita erros de arredondamentos indesejáveis. } Value := StrToFloat(FloatToStr(Value * Factor)); Result := Int(Value); Fraction := Frac(Value); if Fraction = 0.5 then Result := Result + 1 else if Fraction = -0.5 then Result := Result - 1; Result := Result / Factor; end; O problema é que há menos de um mês fui instalar meu sistema em um cliente que adquiriu uma impressora fiscal Bematech MP 25 FI. Constatei que nesta impressora não existe mais a opção de arredondamento, ou seja, todos os valores com mais de duas casas decimais são truncados para apenas duas. Eu achei isto absurdo, visto que o arredondamento parece ser mais coerente, inclusive tenho a impressão de que este comportamento é o padrão em operações financeiras. Infelizmente não tenho como mudar isto, pois é uma regra definida pelo FISCO (segundo informação da Bematech). Agora estou num dilema: 1. Devo mudar meu sistema completamente para truncamento? 2. Ou mudar apenas o módulo que emite cupom fiscal? Se eu mudar todo o sistema corro o risco de ter problemas com lançamento de notas fiscais de entrada. Já imaginou se o fornecedor usar arredondamento e meu sistema usar truncamento? Provavelmente os totais não vai bater. O que devo fazer? Qualquer ajuda será bem-vinda. Atenciosamente. Daniel P. Guimarães Tecnobyte informática -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Instalando aplicativo Delphi com Inno Setup e Reiniciar se Win 9x
Ola Pessoal, Usando Inno Setup para fazer o instalador da aplicação Delphi e servidor Firebird. Se o servidor for Windows 9x devemos reiniciar o micro para carregar o servidor firebird. Gostaria de reiniciar somente se o servidor for Win 9x. Sei que o Win 9x não é recomendado para servidor, mas muitas vezes o usuário quer apenas testar o aplicativo e ou dispõe somente desta máquina e ou pretende atualizar o sistema operacional depois de testar, etc. Se for Win NT, 2000 ou XP não necessita reiniciar o micro, o servidor entra direto como serviço. Qual a melhor forma do Inno Setup reiniciar o micro somente se Windows 9x? []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Instalando aplicativo Delphi com Inno Setup e Reiniciar seWin 9x
Daniel, Basta colocar a funcao NeedRestart na seção [Code] e a mesma será executada automaticamente? Ou A função NeedRestart será executada somente se for chamada com Check: NeedRestart? []s Paulo Geloramo. -Mensagem Original- De: Daniel / Tecnobyte [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: quarta-feira, 29 de dezembro de 2004 17:37 Assunto: Re: [delphi-br] Instalando aplicativo Delphi com Inno Setup e Reiniciar seWin 9x Se o servidor for Windows 9x devemos reiniciar o micro para carregar o servidor firebird. Gostaria de reiniciar somente se o servidor for Win 9x. Coloque a função abaixo na seção [Code] do seu script de instalação: function NeedRestart: boolean; begin Result := not UsingWinNT; end; Nota: existem outras situações em que será necessário reiniciar o sistema, mas nos demais casos o próprio InnoSetup cuidará disto. Um exemplo é a instalação de arquivos compartilhados (DLLs, etc). Atenciosamente. Daniel P. Guimarães Tecnobyte Informática www.tecnobyte.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ClientDataSet - Aggregate
Existe alguma sintaxe que o TClientDataSet aceitte para arredonar ate a segunda casa decimal? Alguma outra sugestão? []s Paulo Geloramo. -Mensagem Original- De: Rubem Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviada em: terça-feira, 28 de dezembro de 2004 12:44 Assunto: RES: [delphi-br] ClientDataSet - Aggregate A propriedade Expression obedece regras de sintaxe estabelecidas pelo TClientDataSet, portanto ele não vai aceitar sintaxe que é proprietária do banco de dados que vc está usando. []s -Mensagem original- De: Paulo Geloramo [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 28 de dezembro de 2004 10:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ClientDataSet - Aggregate Ola Pessoal, No ClientDataSet tenho um campo Aggregate e na propriedade Expression gostaria de dar um cast no campo valor para arredondar com duas casas decimais e despresar as demais. SUM(CAST(VALOR AS NUMERIC(18,2))) Esta linha funciona do Firebird, mas não na propriedade expression do ClientDataSet. Alguma sugestão? Estou usando Firebird 1.5.1 []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] dbexpint.dll e midas.dll na pasta da aplicacao ou system
A instalação da aplicação desenvolvida com Inno Setup vai instalar as dlls: dbexpint.dll e midas.dll Melhor colocar estas dlls na pasta da aplicação ou em c:\windows\system32? []s Paulo Geloramo. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] OnGuard
Ola Pessoal, Guardo no banco de dados a senha do servidor SMTP, gostaria de grarda-la criptografada. Gostaria de fazer uma funcao e usar no onGet e onSet do TField para criptografar e descriptografar a senha. Baixei a ultima versao do sourceforce e analisei os exemplos, mas nao encontrei uma forma de criptografar sem usar data, pois as funcoes usam internamente a funcao Date() do delphi. Gostaria de fazer uma funcao e usar no onGet e onSet do TField para criptografar e descriptografar a senha do servidor SMTP. Encontrei outras funcoes na net para esta finalidade, mas sao muito simples, pois apenas usam xor, caso tenha alguma funcao melhor gentileza me enviar no email abaixo. Caso tenha algum exemplo de uso da onguard para criptografar e descriptografar, gentileza me enviar. []s Paulo Geloramo. [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird 1.5 Reservar espaço para versioning
Ola Pessoal, Conhece alguma artigo sobre este assunto? Qual a finalidade? Usando: Delphi 7 Firebird 1.5 O componente IBConfigService da pasta InterbaseAdmin tem o metodo SetReserveSpace, qual a finalidade de reservar espaço? Quando cria o banco de dados o padrao seria SetReserveSpace(True)? Quando seria indicado o uso de SetReserveSpace(False)? Este metodo tem alguma influencia sobre o Firebird ou teria somente no Interbase? The following example shows how to activate the database shadow, set the async and access modes, and reserve disk space for versioning. Note that the SetReadOnly method is set to False in the beginning; this is to ensure that the other parameters can be set, in case the database has been previously set to read-only. The call to the Windows API Sleep between each method is to ensure that each service completes before going on to the next. procedure TForm1.Button1Click(Sender: TObject); begin with IBConfigService1 do begin ServerName := 'Poulet'; LoginPrompt := False; Params.Add('user_name=SYSDBA'); Params.Add('password=masterkey'); DatabaseName := 'c:\interbase\tutorial\tutorial.gdb'; Active := True; try SetReadOnly(False); while IsServiceRunning do Sleep(5); if CheckBox1.Checked then ActivateShadow; while IsServiceRunning do Sleep(5); if CheckBox2.Checked then SetAsyncMode(True); while IsServiceRunning do Sleep(5); if CheckBox3.Checked then SetReserveSpace(True); while IsServiceRunning do Sleep(5); if CheckBox4.Checked then SetReadonly(True); finally Active := False; end; end; end; []s Paulo Geloramo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html