Re: [delphi-br] GUIDs
São o tamnaho MÁXIMO de 2 inteiros, o que dá alguns bilhões. - Original Message - From: Eduardo E. J. Menoncello To: delphi-br@yahoogrupos.com.br Sent: Monday, April 25, 2005 5:31 PM Subject: RES: [delphi-br] GUIDs É mas 64 bits é o tamanho de 2 inteiros, o que pode me servir. Pq aquela string trafegando na rede é excesso de peso. Então vou usar um esquema pra quebrar os gargalos q iriam acontecer. Valeu mesmo assim. Abraços Eduardo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Franco Carvalho Enviada em: segunda-feira, 25 de abril de 2005 15:42 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] GUIDs Fala, Em vez de 64 bits ele gera uma string enorme... É porque está em Hexadecimal. O número de 64 bits é tão grande que não é possível representá-lo na base decimal. Eu uso como string mesmo e funciona legal. Só fica ruim se você quiser usar como código das tabelas para usuário, então nesse caso é melhor usar um contador único. Mas GUID é esse que eu te falei. []'s Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás - Brasil O único verdadeiro fracasso é deixar de tentar Max Heindel -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo E. J. Menoncello Enviada em: segunda-feira, 25 de abril de 2005 14:56 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] GUIDs Hmmm Não gostei... Em vez de 64 bits ele gera uma string enorme... Mas valeu Eu vou criar minha própria guid... ;) Abraços Eduardo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Franco Carvalho Enviada em: segunda-feira, 25 de abril de 2005 10:07 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] GUIDs Olá amigos, Para obter o GUID no Delphi use a seguinte função: Function GetGUID: String; Var xGUID: TGUID; Begin CreateGUID(xGUID); Result:=GUIDToString(xGUID); End; Saudações, Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás - Brasil O único verdadeiro fracasso é deixar de tentar Max Heindel -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo E. J. Menoncello Enviada em: domingo, 24 de abril de 2005 23:33 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] GUIDs Thiago, ignorância tem cura, apatia, não... ;-) É muito bom poder esclarecer dúvidas de quem ta afim d aprender. Bom GUIDs são Globally Unique Identifiers, ou seja Identificadores Únicos Globais. Teoricamente fazendo uma analogia porca com o banco de dados relacionais, é como se tivesse um Auto Incremento geral pra todas as tabelas, por exemplo, ao inserir um cliente, ele vai ter ID = 1, o produto vai ter ID = 2 e o pedido de venda vai ter ID = 3, e ninguém mais vai ter IDs com esses números. Indo para a orientação a objetos, isso significa muito, pq objetos como TPessoa, que tem como descendentes o TCliente e o TFuncionário, ao gravar em tabelas relacionais, os dados da pessoa terá o ID - XYZ, e o dados para essa pessoa, qndo ela for cliente, também será XYZ e se ela se tornar funcionária, tb será XYZ. Na teoria, esse ID é um inteiro d 64 bits. Mas eu só consegui informações dele para Java ou C++, mas em Delphi, eu não consegui muitas informações, infelizmente... E acho que vou acabar fazendo algo parecido. Espero ter esclarecido um pouco suas dúvidas. Abraços Eduardo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Luiz Enviada em: domingo, 24 de abril de 2005 12:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] GUIDs Eduardo, desculpe a ignorância, mas o que seriam essas GUIDs e para que servem ??? abraços, Thiago - Original Message - From: Eduardo E. J. Menoncello To: delphi-br@yahoogrupos.com.br Sent: Friday, April 22, 2005 10:06 AM Subject: [delphi-br] GUIDs Alguém sabe como funcionam as GUIDs no Delphi? Eu sei a teoria, mas no Delphi eu ñ sei como elas funcionam. Grato pela ajuda Eduardo [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
Re: [delphi-br] GUIDs
É a mesma coisa. Só que o GUID geralmente é visualizado como uma string para facilitar. E acho que o Extende é ponto flutuante. - Original Message - From: Rubem Rocha To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 26, 2005 12:07 PM Subject: RES: [delphi-br] GUIDs Ué, um longint ou um Extended num consegue armazenar isso? []s -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Gabriel Ferrarini Enviada em: terça-feira, 26 de abril de 2005 11:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] GUIDs São o tamnaho MÁXIMO de 2 inteiros, o que dá alguns bilhões. - Original Message - From: Eduardo E. J. Menoncello To: delphi-br@yahoogrupos.com.br Sent: Monday, April 25, 2005 5:31 PM Subject: RES: [delphi-br] GUIDs É mas 64 bits é o tamanho de 2 inteiros, o que pode me servir. Pq aquela string trafegando na rede é excesso de peso. Então vou usar um esquema pra quebrar os gargalos q iriam acontecer. Valeu mesmo assim. Abraços Eduardo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Franco Carvalho Enviada em: segunda-feira, 25 de abril de 2005 15:42 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] GUIDs Fala, Em vez de 64 bits ele gera uma string enorme... É porque está em Hexadecimal. O número de 64 bits é tão grande que não é possível representá-lo na base decimal. Eu uso como string mesmo e funciona legal. Só fica ruim se você quiser usar como código das tabelas para usuário, então nesse caso é melhor usar um contador único. Mas GUID é esse que eu te falei. []'s Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás - Brasil O único verdadeiro fracasso é deixar de tentar Max Heindel -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo E. J. Menoncello Enviada em: segunda-feira, 25 de abril de 2005 14:56 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] GUIDs Hmmm Não gostei... Em vez de 64 bits ele gera uma string enorme... Mas valeu Eu vou criar minha própria guid... ;) Abraços Eduardo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Franco Carvalho Enviada em: segunda-feira, 25 de abril de 2005 10:07 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] GUIDs Olá amigos, Para obter o GUID no Delphi use a seguinte função: Function GetGUID: String; Var xGUID: TGUID; Begin CreateGUID(xGUID); Result:=GUIDToString(xGUID); End; Saudações, Rafael Franco Carvalho Analista / Programador de Sistemas Thermas Di Roma Hotel Clube www.diroma.com.br [EMAIL PROTECTED] [EMAIL PROTECTED] ICQ: 43967202 MSN: [EMAIL PROTECTED] Caldas Novas - Goiás - Brasil O único verdadeiro fracasso é deixar de tentar Max Heindel -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo E. J. Menoncello Enviada em: domingo, 24 de abril de 2005 23:33 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] GUIDs Thiago, ignorância tem cura, apatia, não... ;-) É muito bom poder esclarecer dúvidas de quem ta afim d aprender. Bom GUIDs são Globally Unique Identifiers, ou seja Identificadores Únicos Globais. Teoricamente fazendo uma analogia porca com o banco de dados relacionais, é como se tivesse um Auto Incremento geral pra todas as tabelas, por exemplo, ao inserir um cliente, ele vai ter ID = 1, o produto vai ter ID = 2 e o pedido de venda vai ter ID = 3, e ninguém mais vai ter IDs com esses números. Indo para a orientação a objetos, isso significa muito, pq objetos como TPessoa, que tem como descendentes o TCliente e o TFuncionário, ao gravar em tabelas relacionais, os dados da pessoa terá o ID - XYZ, e o dados para essa pessoa, qndo ela for cliente, também será XYZ e se ela se tornar funcionária, tb será XYZ. Na teoria, esse ID é um inteiro d 64 bits. Mas eu só consegui informações dele para Java ou C++, mas em Delphi, eu não consegui muitas informações, infelizmente... E acho que vou acabar fazendo algo parecido. Espero ter esclarecido um pouco suas dúvidas. Abraços Eduardo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Thiago Luiz Enviada em: domingo, 24 de abril de 2005
Re: [delphi-br] Realmente preciso de ajuda com a logica de dependencias
Olá, Marcelo. Pelo que você passou, acho que você poderia usar uma matriz de adjacências e fazer uma função recursiva para montar o Treeview. Seria algo assim: Você tem uma matriz NxN onde N é seu número de vendedores. No seu exemplo são 7. Então você poderia fazer o seguinte: - Após declarar a matriz e preencher todos os seus elementos com 0 faça o laço abaixo. for I := 1 to DataSet.RecordCount do Matriz[DataSetVEN_PAI][DataSetVEN_COD] := 1; A matriz ficaria assim: 1 2 3 4 5 6 7 1 0 1 1 0 0 0 0 2 0 0 0 0 1 0 0 3 0 0 0 1 0 1 0 4 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 6 0 0 0 0 0 0 1 7 0 0 0 0 0 0 0 Os campos onde tem um, são os campos que indicam que o índice da linha é pai do índice da coluna. Daí você pode montar uma função recursiva a partir do primeiro registro chamando-a assim: MontaTreeView(TreeView, nil, DataSetVEN_COD.AsInteger); Não sembro dos métodos do treeview mas creio que seja algo assim: procedure MontaTreeView(TreeView: TTreeView; Node: TNode; Codigo: integer); begin // Aqui você cria o primeiro node, // adiciona o primeiro código, // verifica se ele possui filhos fazendo um for na linha correspondente ao número passado como parâmetro. // Se tiver você chama a função de novo, passando o mesmo treeview, o node criado e o código do filhos como parâmetro. Isso para cada filho end; Espero ter ajudado. Flw. Gabriel - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 9:34 AM Subject: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Pessoal, voces sabem que não costumo recorrer a lista dessa maneira, mas é que a cabeça vai fundir :-) Tenho uma tabela assim: VENDEDORES VEN_COD (PK) VEN_PAI VEN_NOME Atravez dessa tabela preciso montar uma rotina que me traga a descendencia (tipo arvore) como abaixo CODIGO CODIGO-PAI NOME 001 000 MARCELO 002 001 JOAO 003 001 MARCIO 004 003 JOAQUIM 005 002 EPITAFIO 006 003 ROBERTO 007 006 FERNANDO O resultado deve sair mais ou menos assim: MARCELO JOAO EPTAFIO MARCIO JOAQUIM ROBERTO FERNANDO Preciso montar esse treeview na mão... pois preciso calcular o ganhos de cada vendedor para saber quanto o superior dele tem a ganhar. * Se estiver faltando alguma coisa na estrutura de tabelas estou atento as dicas do colegas -- 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] Realmente preciso de ajuda com a logica de dependencias
Bom, na função recursiva você pode ao invés de montar o TreeView, montar um Memo e passar também como parâmetro as porcentagens e os valores bases para fazer o cálculo. Não entendi mito bem o seu cálculo de comissões, mas acho que se você conseguir passar o valor base e o percentual recursivamente (como parâmetros da função), você consegue montar o Memo. Em anexo segue um exemplo bem básico para você analisar. CLique em abrir dataset e depois em montar memo. Só para constar, se você for usar o método que eu passei, seria interessante passar o nível do vendedor também, para você colocar espaços antes dos nomes. Por exemplo: Marcelo Vendedor nível 0, 0x2 espaços, João nível 1, 1x2 espaços e por aí vai. Gabriel. - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 11:05 AM Subject: Re: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Acho que nao me expressei direito... Não preciso preencher um Treeview... Coloquei um Treeview como exemplo... O que preciso é montar essa estrutura em um Memo para a visualização. E junto com isso fazer o calculo de valores tipo: MARCELO - 100,00 (que é o % sobre quem esta abaixo dele) JOAO - 50,00 (idem) EPTAFIO - 40,00 (idem) MARCIO - 30,00 (idem) JOAQUIM - 20,00 (idem) ROBERTO - 10,00 (idem) FERNANDO - 0,00 (idem) Entendeu ? A minha dificuldade é fazer o calculo de comissões, já que quanto ao treeview eu posso usar um DBTreeview da suite JEDI *Mas estou analizando sua dica, pois parece muito boa Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] - Original Message - From: Gabriel Ferrarini To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 10:20 AM Subject: Re: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Olá, Marcelo. Pelo que você passou, acho que você poderia usar uma matriz de adjacências e fazer uma função recursiva para montar o Treeview. Seria algo assim: Você tem uma matriz NxN onde N é seu número de vendedores. No seu exemplo são 7. Então você poderia fazer o seguinte: - Após declarar a matriz e preencher todos os seus elementos com 0 faça o laço abaixo. for I := 1 to DataSet.RecordCount do Matriz[DataSetVEN_PAI][DataSetVEN_COD] := 1; A matriz ficaria assim: 1 2 3 4 5 6 7 1 0 1 1 0 0 0 0 2 0 0 0 0 1 0 0 3 0 0 0 1 0 1 0 4 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 6 0 0 0 0 0 0 1 7 0 0 0 0 0 0 0 Os campos onde tem um, são os campos que indicam que o índice da linha é pai do índice da coluna. Daí você pode montar uma função recursiva a partir do primeiro registro chamando-a assim: MontaTreeView(TreeView, nil, DataSetVEN_COD.AsInteger); Não sembro dos métodos do treeview mas creio que seja algo assim: procedure MontaTreeView(TreeView: TTreeView; Node: TNode; Codigo: integer); begin // Aqui você cria o primeiro node, // adiciona o primeiro código, // verifica se ele possui filhos fazendo um for na linha correspondente ao número passado como parâmetro. // Se tiver você chama a função de novo, passando o mesmo treeview, o node criado e o código do filhos como parâmetro. Isso para cada filho end; Espero ter ajudado. Flw. Gabriel - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 07, 2005 9:34 AM Subject: [delphi-br] Realmente preciso de ajuda com a logica de dependencias Pessoal, voces sabem que não costumo recorrer a lista dessa maneira, mas é que a cabeça vai fundir :-) Tenho uma tabela assim: VENDEDORES VEN_COD (PK) VEN_PAI VEN_NOME Atravez dessa tabela preciso montar uma rotina que me traga a descendencia (tipo arvore) como abaixo CODIGO CODIGO-PAI NOME 001 000 MARCELO 002 001 JOAO 003 001 MARCIO 004 003 JOAQUIM 005 002 EPITAFIO 006 003 ROBERTO 007 006 FERNANDO O resultado deve sair mais ou menos assim: MARCELO JOAO EPTAFIO MARCIO JOAQUIM ROBERTO FERNANDO Preciso montar esse treeview na mão... pois preciso calcular o ganhos de cada vendedor para saber quanto o superior dele tem a ganhar. * Se estiver faltando alguma coisa na estrutura de tabelas estou atento as dicas do colegas -- 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] Yahoo! Grupos, um
[delphi-br] Rave Reports
Olá a todos. Estou tentando fazer um relatório no Rave com o seguinte layout. Band1: VendaParcela Total DataBand1: Cliente: NOME_CLIENTE DataBand2: COD_VENDACOD_PARCELA TOTAL_PARCELA Band1 é o cabeçalho que aparece uma vez por página. Meu código SQL me traz todas as parcelas cadastradas junto com código e nome do cliente e ordenado pelo código de cliente. Ou seja, estou ordenando a tabela de tal forma que as parcelas de um mesmo cliente fiquem juntas para na impressão eu ter o resultado seguinte: VendaParcelaTotal Cliente: José 1110,00 1210,00 2115,00 Cliente: João 3120,00 4125,00 4225,00 Total: 105,00 _ Acontece que eu não estou conseguindo fazer funcionar. No quickrep seria fácil usando um QRGroup. Mas e aqui? Valeu. Gabriel. [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 * 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] Casas Decimais
Utilize a função FormatFloat. Os parâmetros dela são formato e valor. Passe o parâmetro formato como '###,##0.00' e a função retornará uma string com o valor que você passou nesse formato. Gabriel. - Original Message - From: moacirponti To: delphi-br@yahoogrupos.com.br Sent: Monday, April 04, 2005 12:14 PM Subject: [delphi-br] Casas Decimais Aproveitando o assunto das casas decimais, gostaria de passar ao grupo uma dificuldade que tenho com as casas decimais, que é de formatar Edits para receber os dados sempre no formato: ,99 Portanto, se o dado for 50,10 ele deve exibir: 50,10 e não 50,1, se for 50,00, deve exibir 50,00 e não 50. Alguém sabe como fazer isto? Já tentei o MaskEdit, mas obtive apenas o resultado que descrevi. Quando o valor era 50,00 ele exibia apenas 50, e assim por diante. Obrigado, Moacir. -- 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Primeiro Dia de um Mês, e qual Semana do Mês!!!!!
Olha, acho que primeiro você precisa explicar melhor o que você quer que seja a primeira semana: - A primeira semana começa no dia 1º e termina no primeiro sábado. - A primeira semana são os 7 primeiros dias. Qual a opção? Se for a segunda, faça um case verificando o dia da semana: se estiver entre 1 e 7 é a primeira, 8 e 15 a segunda e por aí vai. Caso seja a primeira opção, você precisa considerar em que dia você está contando a partir do último domingo do Mês anterior para saber quando termina a primeira semana, feito isso é só uma questão de contas e condições para fazer a função. Desculpe por não colocar nenhum código pois não tenho feito, é como eu faria. Flw, Gabriel. - Original Message - From: Rodrigo Izquierdo da Motta To: delphi-br@yahoogrupos.com.br Sent: Monday, April 04, 2005 4:34 PM Subject: [delphi-br] Primeiro Dia de um Mês, e qual Semana do Mês! Ola Lista Eu estou mexendo com datas na minha aplicacao, jah descobri varias funcoes interessantes e uteis para mexer com data, mas tem algumas que naum encontrei, sera que alguem pode me ajudar, eu queria uma funcao para encontrar o primeiro dia de um mes, e um outra para me dar a semana do mes, eu achei o WeekOfTheMonth, mas naum esta bom, pois ele considera um dia 1o no Domingo como sendo a 5o semana do mês passado, e eu preciso que ele me diga que eh o 1 ou 0 tanto faz, mas tem que me dizer que eh a primeira semana daquele mes!!! Um Abraco e Obrigado a Todos Rodrigo Izquierdo da Motta 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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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 Reports
Olá a todos. Estou tentando fazer um relatório no Rave com o seguinte layout. Band1: VendaParcela Total DataBand1: Cliente: NOME_CLIENTE DataBand2: COD_VENDACOD_PARCELA TOTAL_PARCELA Band1 é o cabeçalho que aparece uma vez por página. Meu código SQL me traz todas as parcelas cadastradas junto com código e nome do cliente e ordenado pelo código de cliente. Ou seja, estou ordenando a tabela de tal forma que as parcelas de um mesmo cliente fiquem juntas para na impressão eu ter o resultado seguinte: VendaParcelaTotal Cliente: José 1110,00 1210,00 2115,00 Cliente: João 3120,00 4125,00 4225,00 Total: 105,00 _ Acontece que eu não estou conseguindo fazer funcionar. No quickrep seria fácil usando um QRGroup. Mas e aqui? Valeu. Gabriel. [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 * 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] Table.RecNo - Dificuldade
Não, não é isso. O meu RecordCount também retorna um a mais do que deveria e se eu insiro um novo registro, dependendo da forma como eu cheguei até o final da tabela, o RecNo está correto ou não. Gabriel. -- 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] Table.RecNo - Dificuldade
Olá a todos. Minha dúvida é a seguinte: Tenho uma tabela em Paradox com 15000 registros. Fiz um programinha simples com um TTable, um TDataSource e um TDBGrid para mostrar essa tabela. Se eu der um Ctrl-End no DBGrid para ir ao último registro, o método Recno me traz o número 15001, mas se eu mover o ponteiro, a partir do primeiro, registro a registro, quando chega no último o método Recno me traz o número 15000. O método RecordCount também me traz o número 15001. Alguém sabe o que pode ser? Tenho a impressão que é algum registro deletado em algum ponto do arquivo. SE FOR, como posso encontrá-lo? Valeu, Gabriel. [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 * 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] Status da Impressora
Olá a todos. Estou usando a rotina abaixo (enviada por um mebro da lista) para capturar o status da impressora. Utilizo Win98. function ImpressoraOnLine: Cardinal; var hPrinter: THandle; pInfo : PPrinterInfo2; bytesNeeded : DWORD; begin hprinter := GetCurrentPrinterHandle; try Winspool.GetPrinter(hPrinter, 2, Nil, 0, @bytesNeeded); pInfo := AllocMem(bytesNeeded ); try Winspool.GetPrinter(hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded); Result := pInfo^.Status; finally FreeMem(pInfo); end; finally ClosePrinter(hPrinter); end; end; function GetCurrentPrinterHandle: THandle; var Device, Driver, Port : array[0..255] of char; hDeviceMode: THandle; begin Printer.GetPrinter(Device, Driver, Port, hDeviceMode); if not OpenPrinter(@Device, Result, nil) then RaiseLastWin32Error; end; Porém, meu pInfo^.Status retorna sempre 0. Alguém já passou por isso? Gabriel. [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 * 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] Status da Impressora
Faltou falar que quando a função retorna 0 a impressora não está pronta. Gabriel. - Original Message - From: Gabriel Ferrarini To: Delphi-BR Sent: Monday, March 28, 2005 3:16 PM Subject: [delphi-br] Status da Impressora Olá a todos. Estou usando a rotina abaixo (enviada por um mebro da lista) para capturar o status da impressora. Utilizo Win98. function ImpressoraOnLine: Cardinal; var hPrinter: THandle; pInfo : PPrinterInfo2; bytesNeeded : DWORD; begin hprinter := GetCurrentPrinterHandle; try Winspool.GetPrinter(hPrinter, 2, Nil, 0, @bytesNeeded); pInfo := AllocMem(bytesNeeded ); try Winspool.GetPrinter(hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded); Result := pInfo^.Status; finally FreeMem(pInfo); end; finally ClosePrinter(hPrinter); end; end; function GetCurrentPrinterHandle: THandle; var Device, Driver, Port : array[0..255] of char; hDeviceMode: THandle; begin Printer.GetPrinter(Device, Driver, Port, hDeviceMode); if not OpenPrinter(@Device, Result, nil) then RaiseLastWin32Error; end; Porém, meu pInfo^.Status retorna sempre 0. Alguém já passou por isso? Gabriel. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Status da Impressora
Abaixo segue a mensagem de onde eu retirei a função: _ Muita polêmica e poucos resultados... Veja ai a rotina que serve para o que vc quer (eu uso windows 2000 e ela me serve perfeitamente) Boa sorte /// // Procedure/Function : procedure ImpressoraOnLine // Objetivo : Verificar se a impressora esta on Line // Autor : Maurício Grasser // Data da Criação: 11/02/2005 // Parâmetros : nenhum // Retorno: Cardinal // Observaçoes: Utilizada em conjunto com a função GetCurrentPrinterHandle // Exemplo: if ImpressoraOnLine = 0 then ShowMessage('Impressora desligada'); /// function ImpressoraOnLine: Cardinal; var hPrinter: THandle; pInfo : PPrinterInfo2; bytesNeeded : DWORD; begin hprinter := GetCurrentPrinterHandle; try Winspool.GetPrinter(hPrinter, 2, Nil, 0, @bytesNeeded); pInfo := AllocMem(bytesNeeded ); try Winspool.GetPrinter(hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded); Result := pInfo^.Status; finally FreeMem(pInfo); end; finally ClosePrinter(hPrinter); end; end; function GetCurrentPrinterHandle: THandle; var Device, Driver, Port : array[0..255] of char; hDeviceMode: THandle; begin Printer.GetPrinter(Device, Driver, Port, hDeviceMode); if not OpenPrinter(@Device, Result, nil) then RaiseLastWin32Error; end; - Original Message - From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Monday, March 28, 2005 3:54 PM Subject: RES: [delphi-br] Status da Impressora No NT, W2K e no XP ela não funciona viu []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: Gabriel Ferrarini [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 28 de março de 2005 15:17 Para: Delphi-BR Assunto: [delphi-br] Status da Impressora Olá a todos. Estou usando a rotina abaixo (enviada por um mebro da lista) para capturar o status da impressora. Utilizo Win98. function ImpressoraOnLine: Cardinal; var hPrinter: THandle; pInfo : PPrinterInfo2; bytesNeeded : DWORD; begin hprinter := GetCurrentPrinterHandle; try Winspool.GetPrinter(hPrinter, 2, Nil, 0, @bytesNeeded); pInfo := AllocMem(bytesNeeded ); try Winspool.GetPrinter(hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded); Result := pInfo^.Status; finally FreeMem(pInfo); end; finally ClosePrinter(hPrinter); end; end; function GetCurrentPrinterHandle: THandle; var Device, Driver, Port : array[0..255] of char; hDeviceMode: THandle; begin Printer.GetPrinter(Device, Driver, Port, hDeviceMode); if not OpenPrinter(@Device, Result, nil) then RaiseLastWin32Error; end; Porém, meu pInfo^.Status retorna sempre 0. Alguém já passou por isso? Gabriel. [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 [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * Para visitar o site do seu grupo na web, acesse: http
[delphi-br] Classes
Olá a todos. Estou com um problema em minhas classes e gostaria de saber o que pode estar acontecendo. Seguinte: Tenho a seguinte hierarquia. TSuperClasse = class function NovoID: integer; virtual; end; TVendaBasica = class(TSuperClasse); TPreVenda = class(TVendaBasica); Antes, minha classe TPreVenda era herdade diretamente de TSuperClasse e a funlção NovoID retornava certinho o próximo número. Quando inseri TVendaBasica entre elas, a função ainda é executada mas o result não chega até o ponto onde quero que é mais ou menos assim: with PreVenda do begin Venda := NovoID; Query.ParamByName('VENDA').AsInteger := Venda; . . . . Salvar; end; O valor que chega até à variável Venda é 0. Já tentei na classe TVendaBasica colocar a função com override na declaração, herdando a anterior na implementação mas também não deu certo. Só para constar, meu códio do NovoID é: QueryPesq.SQL.Clear; QueryPesq.SQL.Add('select max(VENDA as NOVO_ID from PREVENDA'); QueryPesq.Open; result := QueryPesq.FieldByName('NOVO_ID').AsInteger + 1; Quando a função passa aqui, o valor do result É o correto. O que pode ser? [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 * 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] Classes
Desconsiderem essa mensagem. Já descobri qual era o problema. Era um propriedade que que criei com o mesmo nome da variável venda. Não sei porque o Delphi atribuiu o valor à uma e na hora de eu buscar, pegou de outra. Flw. - Original Message - From: Gabriel Ferrarini To: Delphi-BR Sent: Friday, March 18, 2005 9:44 AM Subject: [delphi-br] Classes Olá a todos. Estou com um problema em minhas classes e gostaria de saber o que pode estar acontecendo. Seguinte: Tenho a seguinte hierarquia. TSuperClasse = class function NovoID: integer; virtual; end; TVendaBasica = class(TSuperClasse); TPreVenda = class(TVendaBasica); Antes, minha classe TPreVenda era herdade diretamente de TSuperClasse e a funlção NovoID retornava certinho o próximo número. Quando inseri TVendaBasica entre elas, a função ainda é executada mas o result não chega até o ponto onde quero que é mais ou menos assim: with PreVenda do begin Venda := NovoID; Query.ParamByName('VENDA').AsInteger := Venda; . . . . Salvar; end; O valor que chega até à variável Venda é 0. Já tentei na classe TVendaBasica colocar a função com override na declaração, herdando a anterior na implementação mas também não deu certo. Só para constar, meu códio do NovoID é: QueryPesq.SQL.Clear; QueryPesq.SQL.Add('select max(VENDA as NOVO_ID from PREVENDA'); QueryPesq.Open; result := QueryPesq.FieldByName('NOVO_ID').AsInteger + 1; Quando a função passa aqui, o valor do result É o correto. O que pode ser? [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Controlar Licença
Creio que se isso acontecer o sistema será, em partes, inútil para o cliente pois grande parte dos processamentos e geração de relatórios se baseia em datas, principalmente Contas a Pagar e Contas a Receber. Gabriel. - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 15, 2005 4:35 PM Subject: Re: [delphi-br] Controlar Licença Mas existe um problema. Supondo que o vencimento da licença seja em 31/03/2005 e se o usuário sempre mantiver a data do sistema em 30/03/2005 não vai bloquear... - Original Message - From: Marcos Jordao To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 15, 2005 1:35 PM Subject: Re: [delphi-br] Controlar Licença Amigo, eu controlo da seguinte maneira: Tenho uma tabela no banco onde armazeno: Ultimo Uso, Codigo de Uso e Serial do HD. Esse Código de Uso é gerado por um algoritmo que eu criei que gera um número serial onde está contido uma data. Tipo assim... eu informo uma data aí ele vai realizando operações matemáticas e concatenação com strings nos números da data. Com o processo inverso eu obtenho uma data de tal serial. Antes do primeiro uso eu crio um serial e com um sisteminha de Registro coloco na tabela, junto com o serial do HD e a primeira data de uso. Na abertura do sistema, antes de tudo eu verifico o serial do HD (função que você obtém fácil em sites), se for diferente do gravado quer dizer que o sistema está sendo rodado em máquina onde não foi licenciado. No caso de trabalho em rede você deve ter controle de várias linhas na tabela, uma com cada Serial de HD. Se o Serial do HD confere, eu gravo na tabela a data do sistema e comparo com a obtida através do serial também armazenado na tabela, se for maior o sistema fica travado e como a data atual já está armazenada no Ultimo Uso, mesmo que o usuário volte a data do sistema o sistema continua travado. Deu pra entender? Qualquer coisa é só escrever Abraços Marcos Antonio Campos Jordão --- easywaysistemas [EMAIL PROTECTED] wrote: - Alguém tem algum exemplo ou algo qualquer referente a controle de licença de um sistema? Estou desenvolvendo um sistema que funcionara por assinatura mensal, mas ainda não sei como controlar isto? -- 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] Yahoo! Grupos, um serviço oferecido por: function SearchComboBox() { if (document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.); return false; }else { document.form_combo.action =http://br.rd.yahoo.com/SIG=12aa8r547/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1110981717/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;; } return true;} [input] [input][input] - 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!. Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 [As partes desta mensagem que não continham texto
Re: [delphi-br] Controlar Licença
Outra opção é buscar a data do observatório nacional, no caso de o computador possuir internet. Gabriel. - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 15, 2005 4:35 PM Subject: Re: [delphi-br] Controlar Licença Mas existe um problema. Supondo que o vencimento da licença seja em 31/03/2005 e se o usuário sempre mantiver a data do sistema em 30/03/2005 não vai bloquear... - Original Message - From: Marcos Jordao To: delphi-br@yahoogrupos.com.br Sent: Tuesday, March 15, 2005 1:35 PM Subject: Re: [delphi-br] Controlar Licença Amigo, eu controlo da seguinte maneira: Tenho uma tabela no banco onde armazeno: Ultimo Uso, Codigo de Uso e Serial do HD. Esse Código de Uso é gerado por um algoritmo que eu criei que gera um número serial onde está contido uma data. Tipo assim... eu informo uma data aí ele vai realizando operações matemáticas e concatenação com strings nos números da data. Com o processo inverso eu obtenho uma data de tal serial. Antes do primeiro uso eu crio um serial e com um sisteminha de Registro coloco na tabela, junto com o serial do HD e a primeira data de uso. Na abertura do sistema, antes de tudo eu verifico o serial do HD (função que você obtém fácil em sites), se for diferente do gravado quer dizer que o sistema está sendo rodado em máquina onde não foi licenciado. No caso de trabalho em rede você deve ter controle de várias linhas na tabela, uma com cada Serial de HD. Se o Serial do HD confere, eu gravo na tabela a data do sistema e comparo com a obtida através do serial também armazenado na tabela, se for maior o sistema fica travado e como a data atual já está armazenada no Ultimo Uso, mesmo que o usuário volte a data do sistema o sistema continua travado. Deu pra entender? Qualquer coisa é só escrever Abraços Marcos Antonio Campos Jordão --- easywaysistemas [EMAIL PROTECTED] wrote: - Alguém tem algum exemplo ou algo qualquer referente a controle de licença de um sistema? Estou desenvolvendo um sistema que funcionara por assinatura mensal, mas ainda não sei como controlar isto? -- 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] Yahoo! Grupos, um serviço oferecido por: function SearchComboBox() { if (document.form_combo.keyword.value.length==0){ alert(Por favor, digite algo.); return false; }else { document.form_combo.action =http://br.rd.yahoo.com/SIG=12aa8r547/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1110981717/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11;; } return true;} [input] [input][input] - 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!. Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens
Re: [delphi-br] Alguem conhece uma funcao no mysql ou no delphi
Gustavo, creio que isso não dará certo: veja esse exemplo: 0001 0011 = 19 1011 = 11 1000 = 8 0001 0011 = 19 1011 = 11 realizando um AND teremos 0011 = 3. Apesar de 11 fazer parte da soma de 19, se usarmos o operador AND entre eles obteremos o número 3. Gabriel. [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 * 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] XPrevail
Niguém pode me ajudar?? Abaixo segue a minha dúvida: - Original Message - From: Gabriel Ferrarini To: Delphi-BR Sent: Thursday, March 03, 2005 10:47 AM Subject: [delphi-br] XPrevail Alguém pode explicar rapidamente como instalar o XPrevail no Delphi 2005? Eu ainda estou um pouco perdido com a nova interface e com o .NET e por isso ainda não consegui utilizar essa camada de prevalência. Valeu. [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] XPrevail
Alguém pode explicar rapidamente como instalar o XPrevail no Delphi 2005? Eu ainda estou um pouco perdido com a nova interface e com o .NET e por isso ainda não consegui utilizar essa camada de prevalência. Valeu. [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 * 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] Função - muuuuuuuuito estranho...
Você tá criando um número muito grande. faça var i: longint begin i := strtoint64(FakeResult); end; - Original Message - From: Filipe To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Thursday, March 03, 2005 10:55 AM Subject: [delphi-br] Função - mito estranho... Olá, tehno esta função abaixo, que, na linha i := StrToInt(FakeResult); Ocorre uma excessão, dizendo algo como: ''234234234'' não é um valor inteiro valido Observem q a primeira e a ultima aspas são da mensagem de erro msm, mas as de dentro... parece q minha string, ao invés de ser 'string', está como ''string''... o que pode estar acontecendo??? Obrigado. function TfrAcompanhaProcesso.DeixaApenasNumeros(S: String): Integer; var i: Integer; FakeResult: String; begin Result := 0; FakeResult := EmptyStr; for i := 1 to Length(S) do if S[i] in ['0'..'9'] then FakeResult := FakeResult + S[i]; i := StrToInt(FakeResult); Result := i; end; Filipe Geyer Programador [EMAIL PROTECTED] www.bludata.com.br [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Caminho físico de arquivo na rede para FireBird
Olá a todos. Tenho uma pequena tela de configuração no meu sistema onde eu abro um opendialog e seleciono um arquivo na rede. A unidade desse arquivo está mapeada, mas preciso da unidade física para realizar a conexão com o banco. Como consigo isso em run-time? Gabriel. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Caminho físico de arquivo na rede para FireBird
Olá a todos. Tenho uma pequena tela de configuração no meu sistema onde eu abro um opendialog e seleciono um arquivo na rede. A unidade desse arquivo está mapeada, mas preciso da unidade física para realizar a conexão com o banco. Como consigo isso em run-time? Gabriel. [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 * 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] Trigger FireBird 1.5
Olá. Preciso de uma ajuda com um trigger. É o seguinte: Tenho 3 tabelas (os campos com * são as chaves estrangeiras). PRODUTO { CODIGO, DESCRICAO, *GRUPO, *MARCA } ITEM_PRODUTO { *CODIGO (Código do produto), ITEM, *UNIDADE, *TAMANHO, *COR } ATUALIZACAO_PRECO { CODIGO, *GRUPO, *MARCA, *UNIDADE, *TAMANHO, *ITEM, PERCENTUAL } Tenho um programa que gera uma insersão na tabela ATUALIZACAO_PRECO. Nesse programa informo o Grupo, a marca, unidade, tamanho e cor para os quais desejo que o preço seja atualizado. Quero que no After Insert desa tabela um trigger seja disparado alterando apenas os registros que coincidam com os campos informados com um detalhe: caso um campo esteja em branco, TODOS os registro serão alterados, independente daquele campo, ou seja, será como um TRAGA TODOS SE ESTIVER EM BRANCO. Obrigado. Gabriel. [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 * 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] Applyupdates
Isso eu estou fazendo. Mas as alterações não são gravadas no banco. - Original Message - From: Marcos H Silva To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 15, 2005 5:01 PM Subject: Re: [delphi-br] Applyupdates ClientDataSet.ApplyUpdates(0); - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Applyupdates
Ok, valeu. Consegui fazer a atualização. E que eu dificilmente uso esse Componente e nem tinha me atentado a ele para isso. Valeu. - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 8:15 AM Subject: Re: [delphi-br] Applyupdates tem que Ligar o IBUpdateSQL na query, senão nao vai funcionar nunca - Original Message - From: Gabriel Ferrarini [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 8:11 AM Subject: Re: [delphi-br] Applyupdates Isso eu estou fazendo. Mas as alterações não são gravadas no banco. - Original Message - From: Marcos H Silva To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 15, 2005 5:01 PM Subject: Re: [delphi-br] Applyupdates ClientDataSet.ApplyUpdates(0); - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/2/2005 -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Applyupdates
Legal, e com IBX tb dá pra atualizar quando há algum join? E como seria esse esqueminha? - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 8:43 AM Subject: Re: [delphi-br] Applyupdates Certinho meu..eu tb nao sabia...quebrei muito a kbça pra usar esse IBX, depois q descobri ficou barbada não sei c tu usa o DBX, c usar esse não precisa ligar nada na query ele atualiza sozinho, só quando tiver um join ou um subselect q tem q fazer um esqueminha... []'s - Original Message - From: Gabriel Ferrarini [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 8:36 AM Subject: Re: [delphi-br] Applyupdates Ok, valeu. Consegui fazer a atualização. E que eu dificilmente uso esse Componente e nem tinha me atentado a ele para isso. Valeu. - Original Message - From: Alan Vieceli To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 8:15 AM Subject: Re: [delphi-br] Applyupdates tem que Ligar o IBUpdateSQL na query, senão nao vai funcionar nunca - Original Message - From: Gabriel Ferrarini [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 8:11 AM Subject: Re: [delphi-br] Applyupdates Isso eu estou fazendo. Mas as alterações não são gravadas no banco. - Original Message - From: Marcos H Silva To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 15, 2005 5:01 PM Subject: Re: [delphi-br] Applyupdates ClientDataSet.ApplyUpdates(0); - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/2/2005 -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/2/2005 -- 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
Re: [delphi-br] Repor TAXA % para saber o valor real
95 * 100 / 95 onde o 1º 95 é o valor com desconto e o segundo 95 é a porcentagem daquel valor sobre o total sem desconto. outro exemplo: 150 - 13% = 130,5 130,5 * 100 / 87 = 150. Flw. - Original Message - From: Marcelo Silva To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 11:21 AM Subject: [delphi-br] Repor TAXA % para saber o valor real Tenho a função SUM(VALOR-(VALOR*TAXA)/100) AS SVALOR Deste modo tenho meu valor com desconto A questão: Como retornar a taxa para saber o valor real da venda ? Tipo 100 - 5% sei que é 95 e para voltar como seria ? tenho os numero 95 que é o resultante e os 5% que é a taxa como chegaria aos 100 reais ? Marcelo Silva Cel. 11 9693-4251 ICQ - 49224093 MSN [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/02/2005 [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Re: Sugestão para Tabelas Pai-Filh o?=
Você pode usar um ClientDataSet que possui métodos prontos para cancelar uma ou mais alterações feitas às tabelas e a forma de trabalhar é idêntica a qualquer dataset. Você só precisa comitar as alterações no fim com o método ApplyUpdates. Gabriel. - Original Message - From: moacirponti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 10:49 AM Subject: [delphi-br] Re: Sugestão para Tabelas Pai-Filh o?= O meu problema é que quando vou inserir um NOVO registro em CONTASPAGAR a tabela vai estar em modo Insert, e desta forma, como proceder para, por exemplo incluir as parcelas em um DBEdit, se ainda não foi dado Post para gravar o registro? Mas por outro lado, se eu der um Post, como fazer se o usuário quiser Cancelar a inclusão? --- Em delphi-br@yahoogrupos.com.br, Paulo Alexsandro [EMAIL PROTECTED] escreveu Hi, vc testa antes se a tabela pai esta em mode de Edit ou insert só deixa iniciar o trabalho a tabela filha se a tabela não estiver em nenhum desses estados if Not tabela.state in [dsEdit, dsInsert] then Intel + Paulo Alexsandro http://dprogrammer.cjb.net - Delphi NSBasic --- moacirponti [EMAIL PROTECTED] escreveu: Olá a todos. Quero sugestões para resolver um problema com tabelas pai-filho. Uso Firebird e Delphi 6. O sistema que estou desenvolvendo possui duas tabelas para registro de contas a pagar: 1) CONTASPAGAR 2) CONTASPAGAR-PARCELAS A tabela CONTASPAGAR tem como chave primária o campo CODIGO, e a tabela CONTASPAGAR-PARCELAS tem chave primária composta (CODIGO, PARCELA), sendo que CODIGO também é chave estrangeira que referencia CODIGO em CONTASPAGAR. Quando fiz um formulário para cadastrar Contas a Pagar percebi que não poderia fazer assim: ContasPagar.Insert; for i=1 to TotParcelas begin ContasPagarParcelas.Insert; ContasPagarParcelas.Post; end; ContasPagar.Post; Isto porque, como não salvei o registro em CONTASPAGAR antes de iniciar a inserção das parcelas, o CODIGO ainda não existe para ser salvo em CONTASPAGAR-PARCELAS. Como fazer para contornar este tipo de problema? Abraços e obrigado, Moacir. -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Sugestão para Tabelas Pai-Filho
Faça o Post do ContasPagar antes. Ou existe algo que o impeça? Gabriel. - Original Message - From: moacirponti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 16, 2005 10:31 AM Subject: [delphi-br] Sugestão para Tabelas Pai-Filho Olá a todos. Quero sugestões para resolver um problema com tabelas pai-filho. Uso Firebird e Delphi 6. O sistema que estou desenvolvendo possui duas tabelas para registro de contas a pagar: 1) CONTASPAGAR 2) CONTASPAGAR-PARCELAS A tabela CONTASPAGAR tem como chave primária o campo CODIGO, e a tabela CONTASPAGAR-PARCELAS tem chave primária composta (CODIGO, PARCELA), sendo que CODIGO também é chave estrangeira que referencia CODIGO em CONTASPAGAR. Quando fiz um formulário para cadastrar Contas a Pagar percebi que não poderia fazer assim: ContasPagar.Insert; for i=1 to TotParcelas begin ContasPagarParcelas.Insert; ContasPagarParcelas.Post; end; ContasPagar.Post; Isto porque, como não salvei o registro em CONTASPAGAR antes de iniciar a inserção das parcelas, o CODIGO ainda não existe para ser salvo em CONTASPAGAR-PARCELAS. Como fazer para contornar este tipo de problema? Abraços e obrigado, Moacir. -- 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] CVS
Alguém conhece um CVS para trabalhar com Delphi? Poderia me passar o link para download? Tentei usar o TortoiseCVS mas não consegui. Gabriel. [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 * 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] Applyupdates
O que é preciso fazer para que eu possa dar um ApplyUpdates em um ClientDataSet cujo DataSetProvider está ligado à uma Query e a gravação no banco seja efetuada. Uso IBX com FireBird 1.0 e 1.5. [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 * 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] Verificar relacionamentos antes de excluir registros
Se você estiver usando um banco de dados relacional, basta adicionar uma chave estrangeira na tabela cliente para o código do veículo. Gabriel. - Original Message - From: Catiúcia A. Barrilli da Cruz To: Delphi-Br Sent: Friday, February 11, 2005 11:23 AM Subject: [delphi-br] Verificar relacionamentos antes de excluir registros Bom Dia !!! Gostaria de tirar uma dúvida com vcs, por exemplo, antes de excluir o registro de um veículo, verificar se o mesmo não está cadastrado em outra tabela (tipo cliente) e impedir a exclusão. Para isso é preciso fazer uma consulta SQL ??? ou há outra forma mais prática ??? Catiúscia [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Re: Componentes para Delphi 2005
O Usercontrol também tem para Delphi 2005 e pode ser encontrado em http://usercontrol.sourceforge.net/ que é o site oficial. Gabriel. - Original Message - From: Osmar de Souza Júnior To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 26, 2005 2:13 PM Subject: [delphi-br] Re: Componentes para Delphi 2005 O ZeosLib parou no Delphi 7. Não parece que vai ter continuidade... Só o que eu sei que tem pro 2005 é os componentes do Raise. --- Em delphi-br@yahoogrupos.com.br, Marcelo Carvalho [EMAIL PROTECTED] escreveu Pessoal, Onde encontro os componentes baixo para o Delphi 2005 a.. XpMenu b.. CsLite c.. UserControl d.. Zeus e.. Report Builder f.. entre outros Atenciosamente, Marcelo Carvalho Essa mensagem, incluindo seus anexos, tem caráter confidencial e seu contéudo é restrito ao(s) destinatário(s) da mensagem. Qualquer uso nao autorizado, replicaçao ou disseminaçao desta mensagem ou parte dela é expressamente proibido. Esse e-mail foi certificado contra virus. ISCMPA - Irmandade da Santa Casa de Misericórdia de Porto Alegre [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] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Re: DBGrid colorido e zebrado
E como ficaria a visualização disso?? Se você mudar TODAS as colunas, não adianta nada zebrar o grid. Gabriel. - Original Message - From: Eduardo Silva ® To: delphi-br@yahoogrupos.com.br Sent: Monday, January 24, 2005 2:10 PM Subject: RES: [delphi-br] Re: DBGrid colorido e zebrado Me manda o código. Mas se tem certeza que lá mostra como colorir cada coluna de um grid de uma cor e ainda deixar as linhas zebradas com outra cor ? Me manda que eu testo aqui. PS: uso paradox. -Mensagem original- De: Alan [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 24 de janeiro de 2005 12:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: DBGrid colorido e zebrado na revista do ClubeDelphi tem...se tu não tiver a revista avisa q eu mando o Código - Original Message - From: Osmar de Souza Júnior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, January 24, 2005 10:53 AM Subject: [delphi-br] Re: DBGrid colorido e zebrado dá uma olhada no historico de mensagens. se naum me engano isso ja foi discutido aqui... --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED] escreveu Galera, alguém sabe como fazer para deixar cada coluna de um dbgrid com uma cor e ainda por cima zebrado ? Eu sei como deixar um ou outro, mas eu gostaria de deixar os dois ao mesmo tempo. _ ___ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _[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 -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Re: DBGrid colorido e zebrado
Ele quer um grid zebrado que dê um leve destaque na colunas selecionada. Com as duas cores do zebrado mais intensas nessa coluna (ou menos). Gabriel. - Original Message - From: Alan To: delphi-br@yahoogrupos.com.br Sent: Monday, January 24, 2005 3:54 PM Subject: Re: [delphi-br] Re: DBGrid colorido e zebrado meu, zebrado são apenas 2 cores... tipo, preto, branco, ou vermelho e ver... não verda, azul, cinza, roxo, rosa, vermelho o q tu quer fazer? - Original Message - From: Eduardo Silva ® [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, January 24, 2005 2:42 PM Subject: RES: [delphi-br] Re: DBGrid colorido e zebrado é mais ou menos assim, uma ou outra coluna teria que ter um destaque na cor, as outras ficariam zebradas normalmente como se zebra um grid. O que eu quero é que essa coluna que esteja com a cor alterada também fique zebrada, ela vai ter um pequeno destaque.mas é o que eu preciso. -Mensagem original- De: Gabriel Ferrarini [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 24 de janeiro de 2005 12:13 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: DBGrid colorido e zebrado E como ficaria a visualização disso?? Se você mudar TODAS as colunas, não adianta nada zebrar o grid. Gabriel. - Original Message - From: Eduardo Silva ® To: delphi-br@yahoogrupos.com.br Sent: Monday, January 24, 2005 2:10 PM Subject: RES: [delphi-br] Re: DBGrid colorido e zebrado Me manda o código. Mas se tem certeza que lá mostra como colorir cada coluna de um grid de uma cor e ainda deixar as linhas zebradas com outra cor ? Me manda que eu testo aqui. PS: uso paradox. -Mensagem original- De: Alan [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 24 de janeiro de 2005 12:03 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: DBGrid colorido e zebrado na revista do ClubeDelphi tem...se tu não tiver a revista avisa q eu mando o Código - Original Message - From: Osmar de Souza Júnior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, January 24, 2005 10:53 AM Subject: [delphi-br] Re: DBGrid colorido e zebrado dá uma olhada no historico de mensagens. se naum me engano isso ja foi discutido aqui... --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED] escreveu Galera, alguém sabe como fazer para deixar cada coluna de um dbgrid com uma cor e ainda por cima zebrado ? Eu sei como deixar um ou outro, mas eu gostaria de deixar os dois ao mesmo tempo. _ ___ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _[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 -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Yahoo! Grupos, um serviço oferecido por
Re: [delphi-br] Cores
Tinha pensado nisso... mas quanto essa porcentagem representaria sobre o total das três cores juntas? Se eu somar as três eu terei um total válido para calcular a porcentagem??? Gabriel. - Original Message - From: Fernando To: delphi-br@yahoogrupos.com.br Sent: Monday, January 10, 2005 11:30 PM Subject: Re: [delphi-br] Cores Ola, Supondo que a cor esteja na variavel Cor, do tipo TColor, e as variaveis R, G e B sao do tipo Integer: R := StrToInt('$' + Copy(IntToHex(Cor, 6), 5, 2)); G := StrToInt('$' + Copy(IntToHex(Cor, 6), 3, 2)); B := StrToInt('$' + Copy(IntToHex(Cor, 6), 1, 2)); Elas variam de 0 a 255, dai e so calcular a porcentagem. Fernando Gabriel Ferrarini wrote: Olá a todos, gostaria de saber se é possível extrair as porcentagens das cores básicas de uma cor em RGB. Quanto de vermelho, quanto de verde e quanto de azul é preciso para formar uma cor. Não adianta ter o código da intensidade, preciso das porcentagens mesmo. Caso não seja possível, sei que o padrão CMYK traz porcentagens de 4 cores, como trabaçho com esse padrão no Delphi? Obrigado. Gabriel. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.9 - Release Date: 06/01/2005 -- 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Cores
Fiz um teste com o seguinte código: procedure TForm1.Button3Click(Sender: TObject); var Red, Green, Blue, Total: integer; begin Red := StrToInt('$' + Copy(IntToHex(Shape1.Brush.Color, 6), 5, 2)); Green := StrToInt('$' + Copy(IntToHex(Shape1.Brush.Color, 6), 3, 2)); Blue := StrToInt('$' + Copy(IntToHex(Shape1.Brush.Color, 6), 1, 2)); Total := Red + Green + Blue; if Total 0 then begin edtPer2Red.Text := FormatFloat('##0.00 %', Red * 100 / Total); edtPer2Green.Text := FormatFloat('##0.00 %', Green * 100 / Total); edtPer2Blue.Text := FormatFloat('##0.00 %', Blue * 100 / Total); end else begin edtPer2Red.Text := FormatFloat('##0.00 %', 33.33); edtPer2Green.Text := FormatFloat('##0.00 %', 33.33); edtPer2Blue.Text := FormatFloat('##0.00 %', 33.33); end; edtInt2Red.Text := IntToStr(Red); edtInt2Green.Text := IntToStr(Green); edtInt2Blue.Text := IntToStr(Blue); end; Acontece que se eu tiver duas cores: RGB da Cor1: 128, 128, 0 RGB da Cor2: 200, 200, 0 eu tenho as mesmas porcentagens. Imagine em uma tinturaria onde o químico mistura 3 ou 4 cores básicas para atingir a tonalidade desejada. O que eu precisaria é das porcentagens de uma cor fixa cuja intensidade não varie. - Original Message - From: Gabriel Ferrarini To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 11, 2005 8:13 AM Subject: Re: [delphi-br] Cores Tinha pensado nisso... mas quanto essa porcentagem representaria sobre o total das três cores juntas? Se eu somar as três eu terei um total válido para calcular a porcentagem??? Gabriel. - Original Message - From: Fernando To: delphi-br@yahoogrupos.com.br Sent: Monday, January 10, 2005 11:30 PM Subject: Re: [delphi-br] Cores Ola, Supondo que a cor esteja na variavel Cor, do tipo TColor, e as variaveis R, G e B sao do tipo Integer: R := StrToInt('$' + Copy(IntToHex(Cor, 6), 5, 2)); G := StrToInt('$' + Copy(IntToHex(Cor, 6), 3, 2)); B := StrToInt('$' + Copy(IntToHex(Cor, 6), 1, 2)); Elas variam de 0 a 255, dai e so calcular a porcentagem. Fernando Gabriel Ferrarini wrote: Olá a todos, gostaria de saber se é possível extrair as porcentagens das cores básicas de uma cor em RGB. Quanto de vermelho, quanto de verde e quanto de azul é preciso para formar uma cor. Não adianta ter o código da intensidade, preciso das porcentagens mesmo. Caso não seja possível, sei que o padrão CMYK traz porcentagens de 4 cores, como trabaçho com esse padrão no Delphi? Obrigado. Gabriel. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.9 - Release Date: 06/01/2005 -- 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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
Re: [delphi-br] Re: recordcount é confiável?
As vezes eu preciso colocar um grid invisível para o recorcount retornar corretamente. Principalmente quando crio as querys em tempo de execução. Gabriel. - Original Message - From: Osmar de Souza Júnior To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 11, 2005 9:57 AM Subject: [delphi-br] Re: recordcount é confiável? Eu trabalho com os componentes ZeosLib. Sempre retorna corretamente a função RecordCount. Um analista que trabalhava comigo dizia que às vezes é necessário dar um First e depois um Last, após abrir a query. Não sei se é um bug. Com o Zeos nunca precisei, mas você poderia tentar, e qualquer coisa poderia postar uma nova mensagem aqui, em caso de sucesso ou não. --- Em delphi-br@yahoogrupos.com.br, delphi6_2005 [EMAIL PROTECTED] escreveu Trabalho com querys em banco SQL Server, estou com problemas e acredito que a propriedade recordcount de minhas querys não estão funcionando 100%. Tenho um select simples em uma query porém as vezes o recordcount retorna certo e as vezes não. Estou usando assim simples. Query1.close; Query1...(Select * from); query1.open; if query1.recordcount 0 then update; else insert; Alguma forma melhor de pesquisa em SQL Server. Amigo agradeço a ajuda. 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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] Cores
Alguém? - Original Message - From: Gabriel Ferrarini To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 11, 2005 8:44 AM Subject: Re: [delphi-br] Cores Fiz um teste com o seguinte código: procedure TForm1.Button3Click(Sender: TObject); var Red, Green, Blue, Total: integer; begin Red := StrToInt('$' + Copy(IntToHex(Shape1.Brush.Color, 6), 5, 2)); Green := StrToInt('$' + Copy(IntToHex(Shape1.Brush.Color, 6), 3, 2)); Blue := StrToInt('$' + Copy(IntToHex(Shape1.Brush.Color, 6), 1, 2)); Total := Red + Green + Blue; if Total 0 then begin edtPer2Red.Text := FormatFloat('##0.00 %', Red * 100 / Total); edtPer2Green.Text := FormatFloat('##0.00 %', Green * 100 / Total); edtPer2Blue.Text := FormatFloat('##0.00 %', Blue * 100 / Total); end else begin edtPer2Red.Text := FormatFloat('##0.00 %', 33.33); edtPer2Green.Text := FormatFloat('##0.00 %', 33.33); edtPer2Blue.Text := FormatFloat('##0.00 %', 33.33); end; edtInt2Red.Text := IntToStr(Red); edtInt2Green.Text := IntToStr(Green); edtInt2Blue.Text := IntToStr(Blue); end; Acontece que se eu tiver duas cores: RGB da Cor1: 128, 128, 0 RGB da Cor2: 200, 200, 0 eu tenho as mesmas porcentagens. Imagine em uma tinturaria onde o químico mistura 3 ou 4 cores básicas para atingir a tonalidade desejada. O que eu precisaria é das porcentagens de uma cor fixa cuja intensidade não varie. - Original Message - From: Gabriel Ferrarini To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 11, 2005 8:13 AM Subject: Re: [delphi-br] Cores Tinha pensado nisso... mas quanto essa porcentagem representaria sobre o total das três cores juntas? Se eu somar as três eu terei um total válido para calcular a porcentagem??? Gabriel. - Original Message - From: Fernando To: delphi-br@yahoogrupos.com.br Sent: Monday, January 10, 2005 11:30 PM Subject: Re: [delphi-br] Cores Ola, Supondo que a cor esteja na variavel Cor, do tipo TColor, e as variaveis R, G e B sao do tipo Integer: R := StrToInt('$' + Copy(IntToHex(Cor, 6), 5, 2)); G := StrToInt('$' + Copy(IntToHex(Cor, 6), 3, 2)); B := StrToInt('$' + Copy(IntToHex(Cor, 6), 1, 2)); Elas variam de 0 a 255, dai e so calcular a porcentagem. Fernando Gabriel Ferrarini wrote: Olá a todos, gostaria de saber se é possível extrair as porcentagens das cores básicas de uma cor em RGB. Quanto de vermelho, quanto de verde e quanto de azul é preciso para formar uma cor. Não adianta ter o código da intensidade, preciso das porcentagens mesmo. Caso não seja possível, sei que o padrão CMYK traz porcentagens de 4 cores, como trabaçho com esse padrão no Delphi? Obrigado. Gabriel. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.9 - Release Date: 06/01/2005 -- 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
[delphi-br] Cores
Olá a todos, gostaria de saber se é possível extrair as porcentagens das cores básicas de uma cor em RGB. Quanto de vermelho, quanto de verde e quanto de azul é preciso para formar uma cor. Não adianta ter o código da intensidade, preciso das porcentagens mesmo. Caso não seja possível, sei que o padrão CMYK traz porcentagens de 4 cores, como trabaçho com esse padrão no Delphi? Obrigado. Gabriel. [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 * 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] atualizar um campo no firebird
Verifique se você está executando um commit após o execsql. Gabriel. - Original Message - From: juniormello To: delphi-br@yahoogrupos.com.br Sent: Monday, January 03, 2005 9:16 PM Subject: [delphi-br] atualizar um campo no firebird alguém poderia me dar uma sugestão de como fazer uma alteração? eve funcionar do seguinte modo: o registro é escolhido em um grid. um combobox do lado do grid tem as opções, uma deve ser escolhida. um botao serve pra acionar a mudança. quando o botao for clicado, o campo situacao da tabela deve ser alterado pelo conteúdo do combo. como posso fazer isso? tentei via sql e num deu certo: update tbpagamentos set SITUACAO = :NovaSit where NUMPGTO = :Pgto; o parametro Pgto eu estou alimentando com o valor da NUMPGTO escolhida no grid. o NovaSit com o conteudo do combo. Após dar um ExecSQL nessa instrução, nao obtive resultado algum alguém pode me ajudar? []'s -- 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] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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 * 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