RES: [delphi-br] Adicionar outras moedas
Vc tem que criar um cadastro de moedas / índices financeiros, coloca um campo data e outro para a cotação da moeda, a partir da data que tiver fazendo a invoice vc busca nesta tabela o valor do dólar ou euro e faz a conversão, depois é so levar esta conversão para os outros lugares. Att ruberval De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Barby Enviada em: quinta-feira, 2 de setembro de 2010 10:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Adicionar outras moedas Bom dia Pessoal, Preciso de um auxílio, agora por exigência de um cliente exportador agora eu preciso adicionar outras moedas ao meus sistemas, para eu ter um norte gostaria de saber se alguém já utiliza e como é que utiliza este processo, tenho que adicionar em pedidos, notas fiscais, financeiro e também em toda a parte contábil. Desde já agradeço. Marcelo Barby. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Cronometro Regressivo - Maior que 24 horas
Pessoal estou com um grande dilema, quero fazer um cronometro regressivo, só que começa com 550:00:00 ou seja, 550 HORAS, mas óbviamente está dando pau, pois o padrão é 24 ao dia, tem como fazer esse tipo de cronometro?começando por 550 horas? Alex [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Cronometro Regressivo - Maior que 24 horas
Se puder eu agradeço! Alex - Original Message - From: Rubem Rocha To: 'Rubem Rocha' ; delphi-br@yahoogrupos.com.br Sent: Friday, September 03, 2010 1:32 PM Subject: RES: [delphi-br] Cronometro Regressivo - Maior que 24 horas Ah, esqueci de comentar um detalhe. Tem que ficar atento na hora de decrementar o valor. Se por exemplo o valor está em '00', o valor tem que decrementar para 59, e não 99. Se tiver um tempinho, implemento um exemplo disso e posto na área de arquivos da lista. Sds. De: Rubem Rocha [mailto:rubem.ro...@dtmanaus.com.br] Enviada em: sexta-feira, 3 de setembro de 2010 11:59 Para: 'delphi-br@yahoogrupos.com.br' Assunto: RES: [delphi-br] Cronometro Regressivo - Maior que 24 horas Prioridade: Alta 550 horas correspondem a 22 dias e 22 horas! Cabalístico isso não? Curiosidades a parte, de fato, esse range de horas pode até ser permitido a nível de armazenamento dentro de um TDateTime, uma vez que um TDateTime é na verdade um double e a parte fracionária de um double corresponde à parte do horário. No entanto, as funções de formatação do Delphi só consideram a faixa de horário compreendida entre 00:00:00 e 23:59:59, que é o range de horas correspondente a um dia. Se fosse você, não usaria TDateTime por conta da limitação já comentada. Eu usaria uma variável inteira, com o valor inicial 550, e formataria essa variável com a máscara !000:00:00;0;_' usando a função FormatMaskText() da unit MaskUtils. Daí, a contagem do cronômetro decrescente não seria mistério: basta um TTimer da vida decrementando esse valor inicial no evento OnTimer em uma unidade e mostrando o valor formatado conforme já explicado. Sds. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alexandre - Yahoo Enviada em: sexta-feira, 3 de setembro de 2010 10:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Cronometro Regressivo - Maior que 24 horas Pessoal estou com um grande dilema, quero fazer um cronometro regressivo, só que começa com 550:00:00 ou seja, 550 HORAS, mas óbviamente está dando pau, pois o padrão é 24 ao dia, tem como fazer esse tipo de cronometro?começando por 550 horas? Alex [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Programador Delphi - RIO DE JANEIRO
Estamos selecionando Programadores que atendam os seguintes requisitos. PROGRAMADOR Domínio em: Linguagem Delphi Banco de dados Microsoft SQL Server Desejável: Conhecimentos em Java; POO; UML; e PostGreSQL. Local de trabalho: Centro da cidade Vaga para CLT, com benefícios. Enviar cv com pretensão salarial para mailto:ajar9...@gmail.com ajar9...@gmail.com Atenciosamente, Anderson [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [CLIENTDATASET 3 TABELAS]
É bem provável que não. Atitudes como essas só mostram que você tem a inteligência de uma pedra manca. Entre no seu perfil, no yahoo. É só digitar o usuário e a senha, use o teclado (aquela coisa cheia de números e caracteres que provavelmente está a sua frente), você pode conferir o resultado das teclas que aperta no monitor. (aquela coisa brilhante que também está a sua frente) Entrou no perfil/ Deve aparecer um Oi otário na sua tela. Nessa mesma tela, tem um menu (aquela coisa cheia de botões) do lado esquerdo. Clique em Grupos (se não souber ler, procure uma escola). Na página de Grupos, aparecerá outro menu (explicação acima) entitulado Meus Grupos. Clique em gerenciar, o link ao lado do título Meus Grupos. Na tela que segue, clique em editar meus grupos. Os grupos nos quais você está inscrito aparecerão magicamente na sua tela. No final de cada linha existe uma caixa de checagem (um quadrado que quando clicado muda para um quadrado com um V). Marque as opções desejadas (não tente se matar por essa tela, não tem essa opção ainda) e depois, clique em Salvar (o botão azul). Esse é o caminho mais longo, mas se você não conseguir, exclua sua conta, procure o hospício mais próximo ou a universidade mais próxima e entregue-se para um estudo mais detalhado. Para complementar, ninguém aqui fez o yahoo (como já foi dito) e ninguém aprova a saída de membros do grupo, a entrada e saída dos membros é de total responsabilidade do... ... ... ... membro, claro. Se você realmente é desprovido de massa cefálica e está digitando através de uma criança de 5 anos, não se preocupe, ela é perfeitamente capaz de executar os procedimentos acima descritos. Tenha uma semana horrenda. Obrigado. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leandro Nunes Enviada em: quarta-feira, 4 de agosto de 2010 12:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [CLIENTDATASET 3 TABELAS] c acha que eu jah nau tentei isso o seu retardado! From: Claudiney Cogo Sent: Tuesday, August 03, 2010 9:39 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: RES: [delphi-br] [CLIENTDATASET 3 TABELAS] Moderador eu acredito que tenha sim, mas até agora tivemos apenas pessoas educadas no grupo e não foi necessário a intervenção dele. E também, para qualquer pessoa com um mínimo de conhecimento em informática, sair do grupo é muito fácil. Apenas entrar no seu perfil e clicar para sair. Tão fácil quando clicar em um botão. Mas isso pode ser uma tarefa muito árdua para pessoas que tenham limitações nessa área. Nós entendemos. Devo dizer que não sou moderador do grupo, apenas um simples usuário. Mas que em vários anos de grupo nunca vi nada parecido com isso. E não posso aceitar quieto. Se você está tentando sair do grupo, é porque entrou de alguma forma. Se soube entrar, como não sabe sair? É só pensar um pouco. E se achar mais fácil, leia a última linha deste e-mail.. tem um link escrito: SAIR DESTE GRUPO. Desculpe aos outros colegas de grupo por esta mensagem, mas sei que todos os que realmente estão aqui como eu por gostar do conteúdo que passa por aqui não consegue engolir uma situação dessas. Abraços a todos. _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2solutions.com.br/ www.n2solutions.com.br http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br http://www.studion2.com.br/ www.studion2.com.br De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Leandro Nunes Enviada em: quarta-feira, 4 de agosto de 2010 07:18 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] [CLIENTDATASET 3 TABELAS] bando de filha da puta... arrombados... deixa eu sair desta merda de grupo To tentando sair desse inferno de grupo ja mandei e-mail pra todos os mails e nada. num tem moderador nessa merda. vo comeca a manda foto porno hein! kct -- From: Fabricio Colombo fabricio.colombo@gmail.com mailto:fabricio.colombo.mva%40gmail.com mailto:fabricio.colombo.mva%40gmail.com Sent: Friday, July 30, 2010 8:41 AM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] [CLIENTDATASET 3 TABELAS] Vc pode passar o where que retorna apenas 50 registros direto para a query. É o que faço aqui pra retornar apenas 1 registro, não uso o PacketRecord, pois o sql também é executado rapidamente por usar indices e retornar poucos dados. Em 27 de julho de 2010 09:36, Eny Urias enyur...@yahoo.com.br mailto:enyurias%40yahoo.com.br mailto:enyurias%40yahoo.com.br escreveu: Não quero mesmo trazer todos os registros do
[delphi-br] [off-topic] - Emprego Jundiaí
Pessoal se alguém estiver interessado em uma oportunidade de emprego para a cidade de Jundiaí, ou próximo Requer Conhecimentos em Delphi SQL-Firebird Se possível que tenha participado de desenvolvimento de frente (ECF) com TEF, melhor ainda se conhecer o PAF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [off-topic] - Emprego Jundiaí
Desculpem-me, esqueci de colocar o e-mail para contato comerc...@prosisw.com From: Valdemir (yahoo) Sent: Tuesday, August 03, 2010 12:14 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] [off-topic] - Emprego Jundiaí Pessoal se alguém estiver interessado em uma oportunidade de emprego para a cidade de Jundiaí, ou próximo Requer Conhecimentos em Delphi SQL-Firebird Se possível que tenha participado de desenvolvimento de frente (ECF) com TEF, melhor ainda se conhecer o PAF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Porblemas com acentuação
Pode ser idiota, mas a unica coisa que me veio a mente sao as configuracoes de teclado e linguagem. -- mens. original -- Assunto: Re: [delphi-br] Porblemas com acentuação De: Developer Marketing Rapido develo...@marketingrapido.com.br Data: 31/07/2010 22:17 Walter, a questao que nao é o meu executavel e sim o editor de codigo do proprio delphi Pablo Farias Analista de Sistemas pfar...@marketsistemas.com.br www.marketsistemas.com.br Em 31 de julho de 2010 20:14, Walter Chagas (Bol) wchag...@bol.com.brescreveu: Isto pode ser um problema com o código de pagina definido no seu sistema operacional. Pega seu executavel e roea ele em outra maquina pra ver se o erro se manifesta. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Desnvolvimento - Marketing Rápido develo...@marketingrapido.com.br developer%40marketingrapido.com.br To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br; lista-del...@yahoogrupos.com.br lista-delphi%40yahoogrupos.com.br Sent: Saturday, July 31, 2010 11:24 AM Subject: [delphi-br] Porblemas com acentuação Ola Pessoal, estou com um problema no delphi 2010, aonde tudo que eu digito no código com acento ele faz isto por exemplo não = n~ao é = ´e O que será que esta causando isto? Abraços -- Pablo Farias Fone(81)9169.3339 develo...@marketingrapido.com.br developer%40marketingrapido.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Ref. Impressão em PDF
boa tarde Omar pegue o componente ExportQR, ele exporta a impressão do quick em pdf ou imagem nesse link explica como fazer http://www.devmedia.com.br/articles/viewcomp.asp?comp=483hl= espero ter lhe ajudado - Original Message - From: Omar Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, July 28, 2010 2:31 PM Subject: [delphi-br] Ref. Impressão em PDF Boa tarde amigos(as) Delphi(anos(as)) Gostaria de saber se alguém dispoe de algum componente ou suíte para geração de realtórios em PDF Uso QuickReport 3.0.5 - Delphi Enterprise. Abraço Obrigado a todos Ats. Omar M. Haddad Analista de Sistemas [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] [CLIENTDATASET 3 TABELAS]
Cara Eny, Não entendi o porque do problema, uma vez que ao carregar o registro pai, você vai estar filtrando ele, o que retornará para o registro mestre somente um registro, já para o filho você estará retornando todos os detalhes que estão vinculados com este registro mestre. Mas você disse: quando o CDS carrega os registros do Master, ele tras também, para cada registro pai, todos os registros do filho, quer dizer que estava retornando todos os mestres ? Para a programação C/S você retorna somente um registro mestre, que é o que o usuário vai trabalhar nele, não precisa retornar todos os registros. Se era essa a situação, o problema era estrutural e com erro de programação, não do componente ou da maneira com os mesmos eram usados. Se não for isso que acontecia e puder explicar melhor, pois acho que muitos como eu podem não ter entendido a situação que ocorria muito bem. Atenciosamente, André Luis da Silveira Siagri - Sistemas de Gestao Ltda. __ Fale com seus amigos de gra�a com o novo Yahoo! Messenger http://br.messenger.yahoo.com/
Re: [delphi-br] ClientDataSet - Out Of Memory
Exatamente isso que eu estou fazendo agora... mudando para gravar em um banco.. estou estudando as possiblidades.. mas estou inclinado a usar o sqlite From: Roni Rodrigo Sent: Saturday, July 17, 2010 3:11 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ClientDataSet - Out Of Memory me metendo na conversa esse seu framework não poderia manipular um TDataSet ou um _RecordSet ao invés do cds? ai vc faria a consulta normalmente como o Fabiano falou... e já passaria o dataset ou recordset da consulta, independente do componente que estiver utilizando (cds, qry, procedure... ) sem necessidade de armazenar esses dados duplicados na memória... o/ Em 16/07/2010 23:44, Valdemir (yahoo) escreveu: na verdade .. montei um framework para gerar arquivos do governo... ele gera tanto arquivos de posição fixa (como o Sintegra), como arquivos separados com pipe (sped), entre outras funções ele visualiza os arquivos TXT como o Sintegra faz com o arquivo dele neste framework eu cadastro o layout, ou seja os registros, e cada campo com tamanho e tipo de arquivo... e eu ao gerar o txt, ele já faz algumas conferencias de acordo com o layout No sped, vc tem alguns registros Ex...I030 , que tem um campo com o total de registros do I030 que tem a quantidade de linhas do arquivo, ou seja logo no inicio do arquivo ele já me pede o total de linhas, neste caso eu tenho duas opções ou antes de gerar esta linha simulo a geração para saber o total de linhas, ou então arrumo um jeito de editar a linha apos eu gerar o arquivo inteiro. Entre gerar o arquivo e abrir o texto procurando por registro/posição no arquivo txt e ai substituir, eu preferi gravar tudo em cds e manipular o cds alterando o que é necessário From: Fabiano Moura Sent: Friday, July 16, 2010 10:49 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] ClientDataSet - Out Of Memory *Boa noite!* Valdemir, por que você pega os dados da tabela e gera no clientdataset, não é mais fácil você pegar (restaurar) os dados do banco e jogar direto no arquivo texto? *Obrigado,* ** *Fabiano* [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ClientDataSet - Out Of Memory
delphi 2010, sped contabil... com mais ou menos 400 mil lançamentos no ano de 2009 From: Jean Barreiros Sent: Friday, July 16, 2010 1:23 PM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] ClientDataSet - Out Of Memory Olá amigo qual versão do delphi você tá usando e qual SPED você star gerando o txt, Fiscal ou Contabil? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: Valdemir (yahoo) valdemi...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 15 de Julho de 2010 18:08:49 Assunto: [delphi-br] ClientDataSet - Out Of Memory Pessoal estou montando uma rotina para gerar o sped, em um movimento pequeno ok a rotina roda legal, mas em um movimento grande ao dar insert no CDS da erro Out Of Memory, apos processar um grande numero de registros Eu tenho um CDS onde vou armazenando os dados, para depois fazer um loop e jogar no TXT, para mim foi a saída mais fácil que eu encontrei, primeiro leio as tabelas e jogo no CDS, ai no CDS já com os dados no formato do governo, faço um loop no cds e gravo para o txt A principio estava usando um CDS em memoria, e ai é logico que deu o erro, mas ao preencher a propriedade FileName com o nome do arquivo ... ele começou a gerar os dados em arquivo binário, até ai ok, mas não encontrei nenhuma propriedade que eu informo que ele descarregue da memoria ram a cada x registros, então mesmo informado a propriedade nome do arquivo .. ele cria um arquivo.. e começa o processo, mas o tamanho fica com 0 até dar out of memory, e ai o tamanho do arquivo salta de 0 para um numero em bytes que ele conseguiu gerar Da a entender que mesmo informando o FileName, ele continua trabalhando somente com memoria ram, e só descarrega ela.. quando da o erro, eu imaginei que como esta informado o nome do arquivo, ele automaticamente ao carregar a RAM iria salvar os dados em disco, procurei no help mas não encontrei nenhum método ou propriedade para isso, antigamente no bde existia uma api para isso, mas no ClientDataSet eu não encontrei Alguém faz idéia do que possa estar ocorrendo ? Obrigado Valdemir [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ClientDataSet - Out Of Memory
na verdade .. montei um framework para gerar arquivos do governo... ele gera tanto arquivos de posição fixa (como o Sintegra), como arquivos separados com pipe (sped), entre outras funções ele visualiza os arquivos TXT como o Sintegra faz com o arquivo dele neste framework eu cadastro o layout, ou seja os registros, e cada campo com tamanho e tipo de arquivo... e eu ao gerar o txt, ele já faz algumas conferencias de acordo com o layout No sped, vc tem alguns registros Ex...I030 , que tem um campo com o total de registros do I030 que tem a quantidade de linhas do arquivo, ou seja logo no inicio do arquivo ele já me pede o total de linhas, neste caso eu tenho duas opções ou antes de gerar esta linha simulo a geração para saber o total de linhas, ou então arrumo um jeito de editar a linha apos eu gerar o arquivo inteiro. Entre gerar o arquivo e abrir o texto procurando por registro/posição no arquivo txt e ai substituir, eu preferi gravar tudo em cds e manipular o cds alterando o que é necessário From: Fabiano Moura Sent: Friday, July 16, 2010 10:49 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ClientDataSet - Out Of Memory *Boa noite!* Valdemir, por que você pega os dados da tabela e gera no clientdataset, não é mais fácil você pegar (restaurar) os dados do banco e jogar direto no arquivo texto? *Obrigado,* ** *Fabiano* Em 16 de julho de 2010 22:31, Valdemir (yahoo) valdemi...@yahoo.com.brescreveu: delphi 2010, sped contabil... com mais ou menos 400 mil lançamentos no ano de 2009 From: Jean Barreiros Sent: Friday, July 16, 2010 1:23 PM To: delphi-br@yahoogrupos.com.br Subject: Res: [delphi-br] ClientDataSet - Out Of Memory Olá amigo qual versão do delphi você tá usando e qual SPED você star gerando o txt, Fiscal ou Contabil? === Jean Barreiros Programador/Web-Designer Delphi|C++|PHP|JavaScript FireBird|MySql|SQLServer PostGree|Oracle msn: delphij...@gmail.com e-mail: delphij...@yahoo.com.br === De: Valdemir (yahoo) valdemi...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 15 de Julho de 2010 18:08:49 Assunto: [delphi-br] ClientDataSet - Out Of Memory Pessoal estou montando uma rotina para gerar o sped, em um movimento pequeno ok a rotina roda legal, mas em um movimento grande ao dar insert no CDS da erro Out Of Memory, apos processar um grande numero de registros Eu tenho um CDS onde vou armazenando os dados, para depois fazer um loop e jogar no TXT, para mim foi a saída mais fácil que eu encontrei, primeiro leio as tabelas e jogo no CDS, ai no CDS já com os dados no formato do governo, faço um loop no cds e gravo para o txt A principio estava usando um CDS em memoria, e ai é logico que deu o erro, mas ao preencher a propriedade FileName com o nome do arquivo ... ele começou a gerar os dados em arquivo binário, até ai ok, mas não encontrei nenhuma propriedade que eu informo que ele descarregue da memoria ram a cada x registros, então mesmo informado a propriedade nome do arquivo .. ele cria um arquivo.. e começa o processo, mas o tamanho fica com 0 até dar out of memory, e ai o tamanho do arquivo salta de 0 para um numero em bytes que ele conseguiu gerar Da a entender que mesmo informando o FileName, ele continua trabalhando somente com memoria ram, e só descarrega ela.. quando da o erro, eu imaginei que como esta informado o nome do arquivo, ele automaticamente ao carregar a RAM iria salvar os dados em disco, procurei no help mas não encontrei nenhum método ou propriedade para isso, antigamente no bde existia uma api para isso, mas no ClientDataSet eu não encontrei Alguém faz idéia do que possa estar ocorrendo ? Obrigado Valdemir [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ClientDataSet - Out Of Memory
Pessoal estou montando uma rotina para gerar o sped, em um movimento pequeno ok a rotina roda legal, mas em um movimento grande ao dar insert no CDS da erro Out Of Memory, apos processar um grande numero de registros Eu tenho um CDS onde vou armazenando os dados, para depois fazer um loop e jogar no TXT, para mim foi a saída mais fácil que eu encontrei, primeiro leio as tabelas e jogo no CDS, ai no CDS já com os dados no formato do governo, faço um loop no cds e gravo para o txt A principio estava usando um CDS em memoria, e ai é logico que deu o erro, mas ao preencher a propriedade FileName com o nome do arquivo ... ele começou a gerar os dados em arquivo binário, até ai ok, mas não encontrei nenhuma propriedade que eu informo que ele descarregue da memoria ram a cada x registros, então mesmo informado a propriedade nome do arquivo .. ele cria um arquivo.. e começa o processo, mas o tamanho fica com 0 até dar out of memory, e ai o tamanho do arquivo salta de 0 para um numero em bytes que ele conseguiu gerar Da a entender que mesmo informando o FileName, ele continua trabalhando somente com memoria ram, e só descarrega ela.. quando da o erro, eu imaginei que como esta informado o nome do arquivo, ele automaticamente ao carregar a RAM iria salvar os dados em disco, procurei no help mas não encontrei nenhum método ou propriedade para isso, antigamente no bde existia uma api para isso, mas no ClientDataSet eu não encontrei Alguém faz idéia do que possa estar ocorrendo ? Obrigado Valdemir [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] EditMask em TField
boa noite Jhosef
ontem mesmo me deparei com um problema similar a este a unica solução que
achei foi
colocar nove nos editmask e colocar no evento do field OnSetText a assim:
if not ( CheckDate(Sender,Text) ) then
Abort;
essa função checkdate criei aparte
function CheckDate(Sender: TField; Text: String): Boolean;
begin
Result := False;
if (Text = ' / /') or (Text = '__/__/') then//aki esta para
data mas vc pode mudar para telefone
begin
Sender.Clear;
Result := True;
end
else
begin
try
Sender.AsString := Text;
Result := True;
except
messagedlg('Data Inválida !!!', mtInformation,[mbOk],0 );
if Screen.Cursor = crHourGlass then
begin
Screen.Cursor := crDefault;
end;
end;
end;
end;
espero ter lhe ajudado
- Original Message -
From: Fellipe Henrique felli...@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, July 07, 2010 2:13 PM
Subject: Re: [delphi-br] EditMask em TField
Ao invés de passar a numeração com 0 passe com 9
Exemplo: (99) -
[]s
Em 7 de julho de 2010 14:09, Jhosef Marks jho...@gmail.com escreveu:
E ai galera,
É o seguinte, eu tenho um formulário que tem um campo de telefone com a
máscara configurada corretamente...
O que acontece é o seguinte... eu abro o formulário e passo pelo campo
vazio, entro e saiu dele sem problemas, agora, a partir do momento que
esse
campo passar a ter um valor eu já não consigo mais deletar esse valor,
cada
vez que vou tentar apagar o valor do campo e tentar sair do campo ocorre o
seguinte erro Invalid input value. Use escape key to abandon changes, o
maskedit naum deveria validar apenas se existisse um valor no campo?
Att,
Jhosef Marks de Carvalho
Blog: http://www.jhosefmarks.com.br
Jesus está voltando
E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e
buscar
a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14)
[As partes desta mensagem que não continham texto foram removidas]
--
_
T.·.F.·.A.·.
Fellipe Henrique
http://blogs.digitumsoft.com.br/fellipeh
---
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] Livro usado
Alguém teria este livro disponível para venda. Leonardo Freitag. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] MySQL server has gone away
Lembrando que estruturas que trabalham online o tempo inteiro, devem
controlar as transações e conexões com o banco de dados de forma BEM
diferente de estruturas locais.
Talvez vocês estejam querendo resolver um problema que não existe.
Conforme um colega já disse, conecte no banco, faça a operação desejada,
desconecte. Se a operação envolver select, traga os registros em um
TClientDataSet e desconecte. É muito mais fácil do que procurar chifre em
cabeça de cavalo e gastar dinheiro com componente.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Eduardo Silva dos Santos
Enviada em: segunda-feira, 5 de julho de 2010 21:41
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] MySQL server has gone away
Olá Levy, para que não seja exibida a mensagem da desconexão tem que
conficar no Evento OnConnectionLost do TMyConnection:
RetryMode := rmReconnectExecute;
Quando a Dll, não ha necessidade de nenhuma, o mydac conecta diretamente ao
servidor.
quanto a demora para gravação dos dados, não deveria acontecer, tem que ver
mais detalhes.. como a mesta sendo feita.. para determinar a causa.
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...
Em 5 de julho de 2010 20:52, Levy Pereira levypere...@yahoo.com escreveu:
Eduardo,
baixei o MyDAC e parece-me que vou ter que investir neste componente. A
conexão continua sendo perdida mas diferente do Zeos ela é restabelecida,
vou ver ainda com o tratar a mensagem de erro.
Ele carrega alguma .dll para não ter a obrigatoriedade de instalar o MySQL
Client?
Há demora na gravação dos dados, como não estou acostumado (ainda) com
MySQL não sei se estou com problema de código ou se é mesmo caracteristica
da conexão.
Grato,
Levy
From: Eduardo Silva dos Santos
eduardo@gmail.comeduardo.drd%40gmail.com
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Mon, July 5, 2010 5:57:59 PM
Subject: Re: [delphi-br] MySQL server has gone away
Levy, o mysql é exigente com a conexão, qualquer anormalidade e ele
derruba
a mesma.
Quanto eu usava zeos eu implementei uma rotina que reconectava
automaticamente caso a mesma fosse perdida.
eu não sei se isso foi implementado na versão atual do zeos. Vou tentar
achar a versão que fiz essa mudança e te passo, assim vc aplica ai..
Bom, mudando de zeos para MyDAC, não sei se você conhece, nele existe uma
teconologia que faz o mesmo processo, se a conexão cair, ele reconecta de
forma transparente.. caso não conheça, veja: www.devart.com/mydac
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com.br/
...
Em 5 de julho de 2010 14:01, Levy Pereira
levypere...@yahoo.comlevypereira%40yahoo.com
escreveu:
Prezados amigos,
como um (por enquanto) iniciante com o MySQL estou apanhando, estou
usando
o ZEOS para conexão.
A conexão é instável. Muitas vezes procede normalmente as consultas,
atualizações ou inserções, em outras o fatal erro acontece e somente
volta a
conectar depois de sair e entrar no aplicativo.
Este erro acontece algumas vezes quando o aplicativo fica ativo sem
atividade.
Antes de começar qualquer procedimento checo se há conexão:
if BD.Conexao.Connected = false then BD.Conexao.Reconnect;
Depois o processo:
BD.Query01.Close;
BD.Query01.SQL.Clear;
BD.Query01.SQL.Add('start transaction');
BD.Query01.ExecSQL;
BD.Query01.Close;
BD.Query01.SQL.Clear;
BD.Query01.SQL.Add(
'insert into fornecedores ( cnpj, razaosocial, telefone,
contato,'+
'email ) values ( '+A01+','+A02+','+A03+','+A04+','+A05+')');
BD.Query01.ExecSQL;
BD.Query01.SQL.Clear;
MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação',
64
);
passou := True;
BD.Query01.SQL.Add('commit');
BD.Query01.ExecSQL;
BD.Query01.SQL.Clear;
BD.01.Refresh;
Grato pela ajuda!
Levy
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] [OFF Topic] Parâmetros no siste ma.
Eu utilizo uma string mesmo, bem grande. Na entrada de dados você faz a consistência. Aqui criamos um código mais fácil para cada parâmetro e uma função que retorna o valor de acordo com os parâmetros passados. Tipo: Preferência FIN_MOEDA Valor: R$ A função seria um esquema mais ou menos assim: Function GetPreferencia( Prefere : String; E outros parâmetros, como código da filial etc ) : String; Begin Faz o select de acordo com o Prefere. Result := Valor da preferência End; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fábio Thomaz Enviada em: quinta-feira, 1 de julho de 2010 12:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [OFF Topic] Parâmetros no sistema. Olá amigos do grupo, gostaria de uma sugestão para incluir parâmetros em meu sistema, atualmente tenho uma tabela onde tenho um campo para cada parâmetro, gostaria de saber dos amigos do grupo como fazem a parametrização, da forma que passei ou criam um cadastro de parâmetros, ou outra forma mais interessante. Estou querendo criar uma tabela de parâmetros do usuário, onde o usuário possa personalizar algumas coisas, a princípio pensei em criar um cadastro de parâmetros, mas não sei que tipo utilizar no campo parâmetro. Exemplo da idéia: CREATE TABLE PARAM_USUARIOS( ID_USER INTEGER NOT NULL, PARAM_NAME VARCHAR(40) NOT NULL, PARAM_VALUE ? (Não sei que tipo utilizar), CONSTRAINT PK_PARAM_USUARIOS PRIMARY KEY(ID_USER,PARAM_NAME) ); Desde já agradeço por sugestões, Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: Res: [delphi-br] Definindo Padrão - Herança d e Formulários
Outra possibilidade é criar funções e procedimentos genéricos, que recebam como parâmetros, nomes dos controles de data dos formulários. Mas em termos de produtividade, acho que o ideal mesmo é colocar os componentes na tela (como já disseram) e criar as funções de acordo com a telapai. Nos formulários herdados, é só fazer o select e adicionar os fields conforme você desejar. Aliás, o select poderia ser uma variável do formpai, por exemplo: Digamos que você tenha o componente CDS no formpai e a variável Select declarada. No evento de sua escolha do form herdado, você preencheria a variável Select e quando necessário, as funções e procedimentos do form pai utilizariam o valor da variável Select para trabalhar. Para melhorar mais ainda, a variável Select poderia ser uma propriedade do formpai, assim você poderia controlar quando os valores são inseridos na variável. E para melhorar mais ainda (e para finalizar também) a variável Select poderia estar inclusa em um record, assim você poderia criar mais variáveis, por exemplo: TCommandText = record FSelect, FWhere, FEtc : String; End; Uma função fictícia que trabalharia com o CDS: Procedure OpenIt; Begin If CDS.Active then CDS.Close( ); CDS.CommandText := Select + Where; Try CDS.Open( ) Except //Tratamento de Erros. End; End; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jean Barreiros Enviada em: quinta-feira, 1 de julho de 2010 16:27 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Res: [delphi-br] Definindo Padrão - Herança de Formulários POde continuar clicando duas vezes a arrastanto, não há problema. Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br De: Rodrigo Rossi rdrg.ro...@gmail.com mailto:rdrg.rossi%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 1 de Julho de 2010 15:39:58 Assunto: Re: Res: [delphi-br] Definindo Padrão - Herança de Formulários Kra... se de certo isso fecho... Mas eu to com uma dúvida, eu aprendi adicionar meu Edits no form da seguinte maneira: Clico duas vezes no meu dataSource que está na tela e pego os fields e arrasto para o form, ou seja, TDBEdits. Se eu colocar os DataWare no form modelo como vou fazer isso? Att. Rodrigo Rossi rdrg_ro...@hotmail.com mailto:rdrg_rossi%40hotmail.com (45) 9963-1897 Cascavel - PR On 07/01/2010 02:55 PM, Jean Barreiros wrote: Sim claro que tem como você não ficar reescrevendo todo código, basta você colocar todos os componentes Dataware no form modelo e tratar todos os comandos de inserção edicao e etc... Na propriedade DataSet do dataSource por exemplo. e não nomear os seus componentes tipo: CDSCliente, CDSFornecedor deixe-os como nomes padrões tipo: Cds(ClientDataSet), Qry(SQLQuery), Provider(DataSetProvider) e Ds(DataSource). espero ter ajudado. Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br mailto:delphijean%40yahoo.com.br De: Rodrigo Rossi rdrg.ro...@gmail.com mailto:rdrg.rossi%40gmail.com mailto:rdrg.rossi%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 1 de Julho de 2010 14:32:58 Assunto: [delphi-br] Definindo Padrão - Herança de Formulários Boa tarde. Estou desenvolvendo uma aplicação Win32 com Delphi 2010 e preciso de algumas orientações referente a reaproveitamento de código. Tenho um form modelo, onde lá tenho alguns métodos juntamente com a parte visual bem definida. Quando vou criar um outro form Cadastro de Clientes eu gero uma herança deste form modelo (inherited form) e neste form de cadastro de Clientes coloco meu componentes de banco de dados, SqlQuery, DataSetProvider, ClientDataSet, DataSource e implemento os métodos dos botões inserir, alterar, proximo, anterior etc O problema é que quando faço outra tela Cadastro de Fornecedores herdando do form modelo (inherited form) tenho que adicionar os componentes do BD novamente e copiar e colar os métodos de todos os botões do cadastro de cliente para o cadastro de fornecedores pois vai ser a mesma coisa. Exeiste a possibilidade de nao ter que ficar copiando e colando o código e todos os forms? Não queria fazer desta mandeira pois se um dia eu quiser alterar o comportamento do método Incluir tenho que passar nos meu 999 forms para
RES: [delphi-br] Sistema de atividades
Como ser acessível de qualquer lugar do Brasil sem estar conectado a rede mundial (Internet)? temos duas formas Que software nada, imagina a negada baixando arquivo, instalando, atualizando, blablablablablabla, ta loco. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jean Barreiros Enviada em: terça-feira, 29 de junho de 2010 20:01 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Sistema de atividades Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br - Mensagem encaminhada De: Jean Barreiros delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 29 de Junho de 2010 19:50:35 Assunto: Res: [delphi-br] Sistema de atividades Pessoal leva a mal não mas, vamos analisar o caso dele e vejamos que loucura. Ele diz: - Mas este sistema tem que ser acessivel de qualquer lugar do Brasil. Como ser acessível de qualquer lugar do Brasil sem estar conectado a rede mundial (Internet)? temos duas formas - Sistemas Win32 Usando DataSanp; Se optarmos pela primeira opção como acessar a base? Ele também diz: - Nosso servidor nao pode ser acessado de fora - regra de IP - Sistemas Web em linguagem como PHP, C#.net, asp e ect; Se optarmos pela segunda opção como alimentar as bases de dados Eu diria que se ele estiver usando uma solução n-tier como DataSnap que dar acesso usando umas linguagem quase que milagrosa chamda: JSON veja se não resolve. Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: delphij...@gmail.com mailto:delphijean%40gmail.com e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br De: Murilo Cunha mcscu...@yahoo.com.br mailto:mcscunha%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 29 de Junho de 2010 16:59:42 Assunto: [delphi-br] Sistema de atividades Pessoal, Estou com uma duvida. Eu quero fazer um mural de atividades. Neste mural eu colocaria todas as atividades que o pessoal da empresa deveria executar. Por exemplo: Func. A - Fazer o fechamento do cliente A Func. B - Encerrar participacao na ativ. Y Func. B - Gerar relat. de fazendas e enviar para Fulano ... Entre outros itens (status de conclusao, data termino, inicio, comentarios...) Mas este sistema tem que ser acessivel de qualquer lugar do Brasil. Nosso servidor nao pode ser acessado de fora - regra de IP De que forma os senhores me indicam fazer esta aplicacao? Em Delphi ou Site na Web? OBS.: Se houver algum soft q tem esta funcionalidade, por favor, podem indicar Obrigado MuriloCunha [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Diagrama de GANTT
A que melhor pode te atender é a suite de componente devexpress, realmente o gráfico de gantt deles é ótimo. __ Fale com seus amigos de gra�a com o novo Yahoo! Messenger http://br.messenger.yahoo.com/
[delphi-br] Multicamadas com Delphi
Alguém teria esse livro usado, tenho interesse em adquirir. http://www.malima.com.br/book_read.asp?id=33 Leonardo Freitag -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Moacir Florindo Enviada em: segunda-feira, 21 de junho de 2010 09:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Alterar posição das tabs (iwtabcontrol) Então Eric, conforme no email anterior...: TENHO T1,T2 E T3 QUERO PASSAR PARA T1,T3 E T2 Quero fazer é alteração fisica da tab que estava no final e quero trazer para o meio. Att, Marcelo Em 21 de junho de 2010 09:37, eric_developer developer.syst...@yahoo.comescreveu: eu cliquei na Guia em tempo de projeto e mudou normalmente, não sei qual é a dificuldade, usei o D2009. A melhor coisa é ser mais específico ao inves de cada um precisar ficar advinhando. Eric Developer Systems www.magaldi.eti.br --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Adriano Santos asrsan...@... escreveu Eric, É que tem uns componentes no IW que não deixam mudar em tempo de projeto. O TreeView por exemplo só consigo mudar indo no DFM. não sei é o caso do TabControl, preciso olhar no Delphi pra ter certeza. Adriano Santos +55 (11)8219-5420 http://twitter.com/asrsantos Enviado de meu iPhone Em 21/06/2010, às 01:10, eric_developer developer.syst...@... escreveu: ué, mas é só clicar na guia, seja em tempo de projeto ou execuçã o. expliquem melhor... Eric Developer Systems www.magaldi.eti.br --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Marcelo Moacir Florindo marceloflorindo@ escreveu Adriano é isto mesmo, quero mudar a posição do tab fisicamente. Att, Marcelo Em 20 de junho de 2010 22:28, Adriano Santos asrsantos@ escreveu: Eric, Acho que ele quer fazer isso via projeto. Não entendi direito o que ele quer. Tô sem Delphi nessa máquina, se for o mesmo problema do Tr eeView imagino que só indo no DFM. Clica com o direito no Form e use Vi ew as Text. Localiza o código da aba e muda o trecho de código para onde des eja. Depois clica com o direito e View as Form. No IwTreeView só funciona de ssa forma para mudar os itens em projeto. Amanhã no escritório dou uma olhada nisso direito. Se não for isso a dica do Eric funciona. -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com 2010/6/20 eric_developer developer.systems@ Olá, IWTabControl1.ActivePage:=0; // primeira guia IWTabControl1.ActivePage:=1; // segunda guia ... Eric Developer Systems www.magaldi.eti.br --- Em delphi-br@yahoogrupos.com.brdelphi-br%40yahoogrupos.com.brdelphi-br %40yahoogrupos.com.br, Marcelo Moacir Florindo marceloflorindo@ escreveu Colegas, Tenho 2 tabs quero alterar a posição delas, Qual seria o procedimento? Grato, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram remo vidas] [As partes desta mensagem que não continham texto foram removida s] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaotec.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/
RES: [delphi-br] Como esconder algumas msgs de erro?
O AppEvents está na paleta additional, não é necessário utilizar o da Jedi, ao menos para interceptar exceções. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirlei Enviada em: sexta-feira, 18 de junho de 2010 16:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como esconder algumas msgs de erro? Paulo, Em Debugger Options/Language Exceptions há uma lista Exception types to ignore. Você pode adicionar a essa lista os tipos de exceção que deseja que o debugger ignore. Agora, esconder exceções durante a execução (sem try..except), dá um pouco mais de trabalho. Você pode criar um interceptador para o evendo OnException do objeto Application e tratar o erro pelo tipo dele ou pelo conteúdo (menos aconselável). O Jedi tem um componente que facilita interceptar o evento OnException, o TAppEvents. Sobre essa questão dos MaskEdits, particularmente, prefiro não obrigar o o usuário a preencher corretamente o campo antes de sair dele. Valido, mas permito que ele mude o foco. Só não permito a confirmação da operação até que o conteúdo esteja correto. []'s -- Dirlei Dionísio Novo artigo: O estágio House do bom programador http://MaisQueBomCodigo.blogspot.com Em Sex, 2010-06-18 às 14:14 -0300, Paulo Coutinho escreveu: Olá, Gostaria de saber como fazer para esconder as caixas de mensagens que aparecem enquanto você está debugando ou rodando a aplicação direto pelo delphi, tais como: *1- Cannot focus* a disabled or invisible window 2- Outras que estão dentro do TRY e que mesmo assim exibem caixa de alerta com o erro ao invés de ir para o console. 3 - No maskedit ao sair do componente(perder foco) ele lança uma mensagem em inglês pedindo para apertar o ESC para retornar para o valor anterior, como mudar a mensagem ou desabilita-la voltando automaticamente para o valor anterior? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com mailto:paulo%40prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: Res: Res: [delphi-br] Arrastando arquivos do windows para dentro de um listbox
Entrando de gaiato na história aí...
Não seria mais simples utilizar aqueles componentes da Win 31? Coloca os
componentes na tela, inclusive o fileslistbox (ou o nome que seja) e
trabalha com os arquivos pelo index desse componente. Se o caso é só
renomear...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Adriano Santos
Enviada em: quinta-feira, 17 de junho de 2010 15:44
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: Res: [delphi-br] Arrastando arquivos do windows para
dentro de um listbox
Beleza,
Meu, vou publicar no blog hoje a noite do meu drag-and-drop, não sei se
vai ajudar.
Se não tô enganado tenho um exemplo também de como arrastar e soltar de fora
de uma aplicação Delphi para dentro dela, tipo qdo fazemos no Word ou
Outlook por exemplo. Acho que tenho isso. Se tiver tento adaptar ao que
precisa blz?
--
Adriano Santos
http://twitter.com/asrsantos
www.delphitodelphi.blogspot.com
2010/6/16 Roni Rodrigo ronirodr...@yahoo.com.br
aahh..
qto ao icone circular do listbox... verifica a propriedade DragMode..
não lembro qual tem que ser, acho q é dmAutomatic.. mas enfim, da uma
testada ai... hehe
o/
Em 16/06/2010 13:05, Roni Rodrigo escreveu:
mas então cara... aquele exemplo ta bem mastigado...
(
http://www.planetadelphi.com.br/dica/6768/arrastar-e-soltar-arquivos-sobre-s
ua-aplica%C3%A7%C3%A3o
)
O listbox vc ja tem no form né?
a seção private está na declaração do teu form, lá onde tem: Form1 =
class(TForm) etc após as declarações dos seus componentes tem a
palara reservada PRIVATE. Logo abaixo dela vc coloca essa linha:
procedure WMDropFiles(var Msg: TMessage); message wm_DropFiles;
isso vai interceptar as mensagens de arrasto (Drag end drop) do
windows..
aí vc vai nos eventos OnCreate e OnDestroy do form
No Create:
DragAcceptFiles(Handle, true);
isso diz que seu aplicativo vai aceitar que algo seja arrastado sobre
ele
no Destroy:
DragAcceptFiles(Handle, false);
isso desativa o arrasto
ai vc só precisa dizer o que fazer quando arrastar os arquivos no seu
form, no seu caso, adicioná-los ao listbox...
o código está bem comentado, acho que da pra entender fácil...
se não der certo procura outra rotina no google.. tem várias... mas não
acredito que tenha maneira mais simples que essa
procedure TForm1.WMDropFiles(var Msg: TMessage);
var
I, FileCount, BufferSize: word;
Drop: HDROP;
FileName: string;
Pt: TPoint;
RctListBox, RctMemo: TRect;
begin
{ Pega o manipulador (handle) da operação
arrastar e soltar (drag-and-drop) }
Drop := Msg.wParam;
{ Pega a quantidade de arquivos soltos (dropped) }
FileCount := DragQueryFile(Drop, $, nil, 0);
{ Se nenhum arquivo... }
if FileCount = 0 then begin
ShowMessage('Nenhum arquivo.');
Exit;
end;
{ Pega o retângulo do ListBox }
RctListBox := ListBox1.BoundsRect;
{ Pega o retângulo do Memo }
RctMemo := Memo1.BoundsRect;
{ Se soltou fora da área cliente do form... }
if not DragQueryPoint(Drop, Pt) then
ShowMessage('Arquivos soltos fora da área cliente do form')
{ Se soltou na área do ListBox... }
else if PtInRect(RctListBox, Pt) then begin
{ Pega todos os nomes de arquivos e coloca no ListBox }
for I := 0 to FileCount -1 do begin
{ Obtém o comprimento necessário para o nome do arquivo,
sem contar o caractere nulo do fim da string. }
BufferSize := DragQueryFile(Drop, I, nil, 0);
SetLength(FileName, BufferSize +1); { O +1 é p/ nulo do fim da string }
if DragQueryFile(Drop, I, PChar(FileName), BufferSize+1) = BufferSize
then
ListBox1.Items.Add(string(PChar(FileName)))
else
ShowMessage('Erro ao obter nome do arquivo.');
end;
{ Se soltou na área do Memo... }
end else if PtInRect(RctMemo, Pt) then begin
if FileCount 1 then
ShowMessage('Será mostrado apenas o conteúdo do primeiro arquivo.');
{ Obtém o comprimento necessário para o nome do arquivo,
sem contar o caractere nulo do fim da string.
O segundo parâmetro (zero) indica o primeiro arquivo da lista }
BufferSize := DragQueryFile(Drop, 0, nil, 0);
SetLength(FileName, BufferSize +1); { O +1 é p/ nulo do fim da string }
if DragQueryFile(Drop, 0, PChar(FileName), BufferSize+1) = BufferSize
then
Memo1.Lines.LoadFromFile(string(PChar(FileName)))
else
ShowMessage('Erro ao obter nome do arquivo.');
end;
Msg.Result := 0;
end;
Em 14/06/2010 20:01, Andre Luiz Stivanatto escreveu:
então meu listbox ja esta com essa opção abilitada :
AllowMultiSelect pra
permitir selecionar múltiplos arquivos
é que para abrir 4.783 arquivos que tenho no pc demora muito tempo,
porisso preciso de arrrastar os arquivos para dentro do listbox é
muito mais facil fazer isso, pois eu abro a pasta que tem os 4.783
arquivos, vou em editar e mando selecionar tudo de uma vez depois, é
so aeu arrastar tudo para dentro do listbox.
não preciso de ter o memo, so
Re: [delphi-br] Delphi parou de funcionar com Gmail
Boa noite Antonio
tenta trocar
SSLOptions.Method := sslvSSLv2;
por
SSLOptions.Method := sslvSSLv23;
tive um problema parecido com isso um tempo atras e resolveu
espero ter ajudado
- Original Message -
From: Antonio Leandro Furstenberger Favero
To: delphi-br
Sent: Tuesday, June 15, 2010 11:27 AM
Subject: [delphi-br] Delphi parou de funcionar com Gmail
Olá Pessoal,
Souberam que alguma mudança no Gmail? Simplesmente uma função que funcionava
parou de funcionar.
Usava a OpenSSL 0.9.8a atualizei ontem para a 1.0 32 bits.
Testamos em Windows XP e Windows 7, 32 e 64bits.
Segue o fonte básico:
procedure TForm1.Button1Click(Sender: TObject);
var
POP: TidPop3;
MailMessage: TidMessage;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
POP := TIdPOP3.Create(nil);
MailMessage := TIdMessage.Create(nil);
SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLHandler := IdSSLIOHandlerSocketOpenSSL1;
with SSLHandler do
begin
Destination := 'pop.gmail.com:995';
Host := 'pop.gmail.com';
Port := 995 ;
SSLOptions.Method := sslvSSLv2;
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 0;
end;
with POP do
begin
AuthType :=patAPOP;
AutoLogin := True;
Host := 'pop.gmail.com';
Username := '@gmail.com';
POP.IOHandler := SSLHandler;
UseTLS := utUseImplicitTLS;
Password := '';
Port := 995;
end;
try
POP.Connect();
except on E: Exception do
raise Exception.Create('Error Message'+ e.Message);
end;
end;
Obrigado
Leandro Favero
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Programador Senior Delphi - PAF-ECF
- Original Message - From: marcosflexerp59 marcosflexer...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Friday, June 04, 2010 8:04 PM Subject: [delphi-br] Programador Senior Delphi - PAF-ECF Empresa localizada em São Paulo contrata PROGRAMADOR Senior com o seguinte perfil: REQUISITOS: -Amplo domínio de Delphi 7 ou maior. -Experiência com impressoras fiscais e PAF-ECF. A empresa oferece a possibilidade de trabalhar em regime Home-Office e salário a combinar. Interessados devem enviar currículo, com pretensão salarial para marcosflexer...@yahoo.com.br. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas
Por que usaria o paradox Rubem? _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: segunda-feira, 7 de junho de 2010 13:12 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Prioridade: Alta Se uma aplicação que terá um registro pequeno de dados, usaria XML ou Palhadox (digo, Paradox!). Se for uma aplicação que pode necessitar de algum tipo de replicação ou contenção massificada de dados, optaria pelo SQL Server Express 200x ou FireBird. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jhosef Marks Enviada em: segunda-feira, 7 de junho de 2010 12:01 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas No caso de usar o Firebird embacado, para matar o esquema de uma unica conexao é soh fazer uma aplicação multicamada, os usuários se conectam no servidor que por sua vez se conecta no banco (uma unica conexao no banco). Quanto ao SQLite, já ouvi falar muito bem, só fica o esquema de ter que usar componentes de terceiro ou desenvolver seu proprio drive de conexão. Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 5 de junho de 2010 11:01, arossi75 anderson.ro...@gmail.com mailto:anderson.rossi%40gmail.com escreveu: Use o Firebird embedded. Vc não instala nada apenas copia agumas dlls e arquivos para o raiz de seu exec. O arquivo do BD é o mesmo usado pela versão servidor. Caso um dia seu sistema comece a ser acessado por mais pessoas , basta apenas instalar a versão servidor e alterar a forma de acesso em seu sistema. Porém a versão embedded do Firebird é MONOUSUÁRIO!!, ou seja, somente dá acesso local ao banco de dados, não adianta fazer aquela velha gambiarra de compartilhar uma pasta. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas
Se uma aplicação que terá um registro pequeno de dados, usaria XML ou Palhadox (digo, Paradox!). Sei lá, isso não me parece um motivo. Perguntei para entender o motivo de não utilizar o firebird mesmo em uma aplicação pequena. Não foi uma pergunta com tom ofensivo e acho que a resposta merecia ser um pouco melhor do que essa. Ou melhor, ou silêncio, tanto faz. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: segunda-feira, 7 de junho de 2010 14:25 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Prioridade: Alta Pelos motivos que expus. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Vitor Yahoo Enviada em: segunda-feira, 7 de junho de 2010 13:26 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Por que usaria o paradox Rubem? _ De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Rocha Enviada em: segunda-feira, 7 de junho de 2010 13:12 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas Prioridade: Alta Se uma aplicação que terá um registro pequeno de dados, usaria XML ou Palhadox (digo, Paradox!). Se for uma aplicação que pode necessitar de algum tipo de replicação ou contenção massificada de dados, optaria pelo SQL Server Express 200x ou FireBird. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jhosef Marks Enviada em: segunda-feira, 7 de junho de 2010 12:01 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Qual melhor tipo de arquivo de dados para pequenos sistemas No caso de usar o Firebird embacado, para matar o esquema de uma unica conexao é soh fazer uma aplicação multicamada, os usuários se conectam no servidor que por sua vez se conecta no banco (uma unica conexao no banco). Quanto ao SQLite, já ouvi falar muito bem, só fica o esquema de ter que usar componentes de terceiro ou desenvolver seu proprio drive de conexão. Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Em 5 de junho de 2010 11:01, arossi75 anderson.ro...@gmail.com mailto:anderson.rossi%40gmail.com mailto:anderson.rossi%40gmail.com mailto:anderson.rossi%40gmail.com escreveu: Use o Firebird embedded. Vc não instala nada apenas copia agumas dlls e arquivos para o raiz de seu exec. O arquivo do BD é o mesmo usado pela versão servidor. Caso um dia seu sistema comece a ser acessado por mais pessoas , basta apenas instalar a versão servidor e alterar a forma de acesso em seu sistema. Porém a versão embedded do Firebird é MONOUSUÁRIO!!, ou seja, somente dá acesso local ao banco de dados, não adianta fazer aquela velha gambiarra de compartilhar uma pasta. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Acessar bando dataflex .dat
Você pode usar o utilitário DFQuery para isso, ele acompanha a instalação do seu cliente. Poderá exportar o arquivo que quiser... Samuel M. Basso escreveu: Bom dia. Gostaria de saber se existe a possibilidade de algum componente ou conexao odbc acessar banco de dados FLEX (.dat) para fazer uma conversão de dados para outra base de dados. -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelba...@gmail.com mailto:samuelbasso%40gmail.com Web site: www.samuelbasso.com [As partes desta mensagem que não continham texto foram removidas] -- Ramon A. Körber Jr MSN - ramon15061...@hotmail.com Skype - ramon15061959 Harbour 2.0.0 - MiniGUI Extended 1.7 xDevStudio - BCC 5.5 - Firebird - OleDB-AdoDB Lazarus 0.9.29 - ZeosDBO 6.6.5 - Firebird - Desenvolvimento Multi-Plataforma Windows XP SP3 - Linux Opensuse 11 - Mandriva 2009 - Ubuntu 9.10 Linux User Number 404280 -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ActiveX - DLL
Pessoal estou tentando instalar um ActiveX, que esta armazenado em uma DLL, no Delphi 2010, o mesmo activeX funciona no Delphi 7, usando o mesmo processo de instalação funciona da certo no Delphi 7 e no Delphi 2010 não da.. Quando mando executar no Delphi 2010 da erro de acess violation, acredito que o problema seja com as strings que mudaram do Delphi 7 para Delphi 2010 O trecho onde da o problema é neste function Get_AdicionaCardSerial(pNumero: Byte; const pPorta: WideString; pVelocidade: SVelocidade; pCatraca: WordBool; pModoComunicacao: SModoComunicacao): Integer; O problema esta no fato que esta enviando um WideString, e do Delphi 7 para o 2010 mudou, eu acho que se eu colocar o tipo compatível do Delphi 2010 irá funcionar... alguém sabe qual o tipo correto ? Se alguém se interessar por dar uma olhada, tenho aqui a instalação do activex com o passo a passo para instalar no Delphi 7 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ref. Desaparecer form ao fundo
Omar, Bom Dia... Utilizo também um form de acesso, mas ele não é o meu mainforrm, no meu projeto o main form é o form principal do meu sistema ( o que tem os menus ) o de acesso é executado no onshow do meu formprincipal. Veja o meu código abaixo, o Form000 é o principal e o Form999 é o de login procedure TForm000.FormShow(Sender: TObject); Var F :TForm; begin FechaForm := True; SetaVariaveis; if not SistemaJaIniciado then begin ModuloAcesso := '000'; Form999:=TForm999.Create(self); Form999.ShowModal; if VerificaAcesso then begin SetaVariaveis; SistemaJaIniciado := true; end else begin Application.Terminate; Close; end; Form000.SetFocus; end; end; Espero ter ajudado... Qualquer dúvida é só perguntar Abração Samuca - Original Message - From: Omar Marques To: delphi-br@yahoogrupos.com.br Sent: Friday, May 28, 2010 10:16 AM Subject: [delphi-br] Ref. Desaparecer form ao fundo Olá, bom dia amigos(as), Estou com uma aplicação que tem como MainForm, um formulario de login e senha. Após o login, abre-se outro form (Principal) com as opções de menu, bem básico. Mas, neste contexto, estou com um problema. No form Principal, existe a opção de minimizá-lo. Caso o usuário faça isso, o formulario de acesso fica visível, mas o usuário não consegue clicar nele, mas eu gostaria de sumir com ele, após efetuar o login. Dúvida: Mesmo ele sendo o MainForm definido no Projeto, posso ativar o FrmPrincipal e fechar o formulário de login sem problemas ? Obrigado a todos. Omar M. Haddad Analista de Sistemas [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] NFe: Como conseguiram esta nfe ???
Albuquerque, Boa Tarde, Se você notar, verá que o Total da Nota é exatamente o Total dos Produtos somado à base de cálculo do ICMS. ( 139.82 = 136.32 + 3.50 ) Se você observar nos tributos do produto está lá : Tributação do ICMS : 60 - ICMS cobrado anteriormente por substituição tributária; isto significa que o Emissor dessa NF já pagou o ICMS deste produto quando o comprou, ou seja, quando ele efetuou uma operação de venda pra revenda, O que ele está fazendo agora é cobrando este imposto ( ou a diferença ) dele do seu cliente. Entendeu!?!?!? Abraço, Samuca - Original Message - From: Albuquerque To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br ; automacaoto...@yahoogrupos.com.br ; projeto_cooperar_...@yahoogrupos.com.br Sent: Wednesday, May 19, 2010 4:30 PM Subject: [delphi-br] [OFF-TOPIC] NFe: Como conseguiram esta nfe ??? Estou com um DANFE em mãos. Pertence a um fornecedor de um cliente meu. Meu cliente permitiu a publicação da chave de acesso da nfe (está no final deste) para esclarecer a seguinte dúvida: -A soma dos produtos não confere com o valor total da nota. Por quê ? -Simples: a nfe tem desconto ! Porém -No DANFE não tem desconto algum impresso, seja nos totais (Valor Desconto) ou por produto. Como ? -Desconfiei que o desconto foi enviado via XML, porém o sistema do fornecedor não imprime o desconto no DANFE dele. Só que -Acessando a nfe através de sua chave nota-se que não tem desconto algum enviado/citado/impresso !!! Portanto pergunto: O sistema da Receita não faz a conferência da soma dos produtos com o valor total da nota ? (se fizesse jamais permitiria que a nfe aqui em questão fosse liberada) Pra quem quiser acessar a nfe para conferir, segue a chave (com autorização EXPRESSA do meu cliente) 3510057285550500138255055838436208280945 Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Segurança DataS nap
Mas como define permissões para IPs específicos se a máquina que vai acessar remotamente não tiver IP Fixo? De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Alexandre Lemos Rodrigues Enviada em: sábado, 15 de maio de 2010 18:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Segurança DataSnap Pra quem ela fica ou não aberta cabe ao seu firewall definir. Voce pode abrir apenas pra sua rede interna ou para IPs específicos. Outra medida de segurança é mudar a porta padrão, já que 211 todo mundo sabe que é usada pelo Socket Server. Use uma porta de valor alto de preferência, pra lá dos 10.000. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Envio de e-Mail
Bom dia Pessoal!! O pessoal aqui no serviço está com dificuldades no uso do Indy10, para envio de e-mail, quando usam um smtp que não têm certificação SSL e TSL. No GMail, por exemplo, que tem a certificação, funciona porreta! Mas no da Oi, que não tem a certificação, não funciona. Será q alguém poderia dar uma ajuda nisso?! Alguma solução para o próprio Indy funcionar, ou a indicação de um componente (com fonte de preferência), que saibam que funcione...? Agradeço desde já, [ ]´s Luis Lopes [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Minimizar icone na bandeja
Bom dia aos membros da lista. Gostaria de saber de vcs como faço para minimizar um programa em execução na bandeja, ou seja, na área onde ficam os icones no relógio(msn e afins). Meu programa ficará em execução mas não deve se manter minimizado na barra de tarefas. Alguém ja necessitou fazer essa operação? E aproveitando, alguém aqui ja desenvolveu a NFE usando a dll da Flexdocs(Nfe_Util.dll)? Grato - Rick [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] OFF TOPIC-Multiprocessamento com Firebird
Instalei novamente usando a versão Classic , fiz um backup e restore. Funcionou. Rodei um relatório bem pesado e a performance foi bem melhor. Verifiquei no gerenciador de tarefas que os 4 processadores estavam sendo usados no processo. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] OFF TOPIC-Multiprocessamento com Firebird
Verifiquei que em computadores com multiprocessadores, o Firebird só usa um núcleo do processador quando acessa o banco de dados. Dessa forma a performance do servidor não é totalmente aproveitada. Como fazer para que o firebird use todos os núcleos do processador? Existe alguma versão especial, alguma configuração ou modo diferente de fazer a instalação do Firebird para isso? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] TcxGrid
Cara, é muito mais fácil você trabalhar com um TClientDataSet virtual. Tem um exemplo na pasta demo (não tenho certeza) que ensina a trabalhar com o TcxGrid sem DataSource, mas ainda acho que o DataSet virtual resolveria mais facilmente a questão, apesar de não saber qual é a questão, hehe. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quinta-feira, 22 de abril de 2010 15:27 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] TcxGrid Pessoal, Quem manja de mexer com o componente TcxGrid, do pacote da DevExpress?? Nao estou conseguindo inserir dados nele. Nao quero liga-lo a um DataSource, quero inserir dados como se fosse um TStringGrid. Ha como fazer isso via programacao? Se souberem me passe o e-mail para enviar um sisteminha de testes para me ajudar a trabalhar com este componente. Obrigado. MuriloCunha [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problema no ADOTable com Delphi 2010
if Operacao='incluir' then
begin
frmFornecedor.ADOTable1.Append;
frmFornecedor.ADOTable1Codigo.Value := Codigo;
frmFornecedor.PageControl1.ActivePageIndex :=
end
coloque o post no botão gravar.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Eduardo
Enviada em: quarta-feira, 21 de abril de 2010 16:48
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Problema no ADOTable com Delphi 2010
Boa tarde, Pessoal
Montei um formulário com um PageControl e 3 TabSheets, na primeira coloquei
um DBGrid, DBNavigator(invisivel) e criei um botão incluir, quando clicado
ele seta a TabSheet2, onde eu tenho vários DBEdit's, nessa hora eu crio um
código (tenho uma função SOMA1) e preencho o DBEdit do código, seto o foco
para o próximo campo e continuo preenchendo os demais, quando clico no botão
gravar, dá um erro no banco pq não é permitido gravar nulo. Como eu devo
atribuir esse valor?
Olha o código aqui...
Tem um monte de linhas que eram testes para tentar fazer funcionar...
unit uFornecedor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, ComCtrls, DBCtrls,
Mask,
DB, ADODB;
type
TfrmFornecedor = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel3: TPanel;
Excluir: TBitBtn;
Alterar: TBitBtn;
Incluir: TBitBtn;
ComboBox1: TComboBox;
Edit1: TEdit;
BitBtn4: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Panel4: TPanel;
Memo1: TMemo;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBNavigator1: TDBNavigator;
ADOTable1Filial: TStringField;
ADOTable1Codigo: TStringField;
ADOTable1Razao: TStringField;
ADOTable1CNPJ: TStringField;
ADOTable1IE: TStringField;
ADOTable1Endereco: TStringField;
ADOTable1Complemento: TStringField;
ADOTable1Bairro: TStringField;
ADOTable1Municipio: TStringField;
ADOTable1Estado: TStringField;
ADOTable1CEP: TStringField;
ADOTable1Email: TStringField;
ADOTable1Obs: TMemoField;
Label3: TLabel;
DBEdit1: TDBEdit;
Label4: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
DBEdit3: TDBEdit;
Label6: TLabel;
DBEdit4: TDBEdit;
Label7: TLabel;
DBEdit5: TDBEdit;
Label8: TLabel;
DBEdit6: TDBEdit;
Label9: TLabel;
DBEdit7: TDBEdit;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBEdit11: TDBEdit;
Label14: TLabel;
DBMemo1: TDBMemo;
BitBtn1: TBitBtn;
procedure IncluirClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure DBMemo1Exit(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
// O erro é aqui !!!
//Function TfrmFornecedor.Soma1(Num:Integer):String;
// O erro é aqui !!!
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmFornecedor: TfrmFornecedor;
Operacao,Codigo: String;
implementation
{$R *.dfm}
Function Soma1(Num:integer):String;
//Var Result : String;
Begin
// O Tamanho do numero de saida sempre será 9 digitos
Num := Num + 1;
if Length(IntToStr(Num))=1 then Result := ''+IntToStr(Num);
if Length(IntToStr(Num))=2 then Result := '000'+IntToStr(Num);
if Length(IntToStr(Num))=3 then Result := '00'+IntToStr(Num);
if Length(IntToStr(Num))=4 then Result := '0'+IntToStr(Num);
if Length(IntToStr(Num))=5 then Result := ''+IntToStr(Num);
if Length(IntToStr(Num))=6 then Result := '000'+IntToStr(Num);
if Length(IntToStr(Num))=7 then Result := '00'+IntToStr(Num);
if Length(IntToStr(Num))=8 then Result := '0'+IntToStr(Num);
if Length(IntToStr(Num))=9 then Result := IntToStr(Num);
if Length(IntToStr(Num))9 then
Begin
ShowMessage('Erro função SOMA1');
Result := '*'
End;
End;
procedure TfrmFornecedor.BitBtn1Click(Sender: TObject);
begin
if Operacao='incluir' then
begin
frmFornecedor.ADOTable1Codigo.Value := Codigo;
frmFornecedor.ADOTable1.Append;
frmFornecedor.ADOTable1.Post;
frmFornecedor.PageControl1.ActivePageIndex := 0;
end;
end;
procedure TfrmFornecedor.DBMemo1Exit(Sender: TObject);
begin
frmFornecedor.BitBtn1.Enabled := True;
end;
procedure TfrmFornecedor.FormKeyPress(Sender: TObject; var Key: Char);
begin
//verifica se a tecla pressionada é a tecla ENTER, conhecida pelo Delphi
como #13
If key = #13 then
Begin
//se for, passa o foco para o próximo campo, zerando o valor da variável Key
Key:= #0;
Perform(Wm_NextDlgCtl,0,0);
end;
end;
procedure TfrmFornecedor.IncluirClick(Sender: TObject);
Var CodFor: integer;
begin
Operacao := 'incluir';
// Inclusão de Fornecedor
//**
// dar foco a página do registro
frmFornecedor.PageControl1.ActivePageIndex := 1;
frmFornecedor.BitBtn1.Enabled := false;
// Calcular o código do novo registro
if frmFornecedor.ADOTable1.IsEmpty then
Begin
CodFor := 0;
frmFornecedor.DBEdit1.Text :=
Re: [delphi-br] [MAF] Banco de dados free
Esses documentos podem ser gravados em um campo do tipo blob. Eu faço no Firebird usando os componentes da Devart. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Master Detail com Campo Auto-Incremento
Olá amigos, muito obrigado pelas sugestões. Consegui resolver da maneira que vocês me falaram. Agradeço muito. Diego. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quinta-feira, 15 de abril de 2010 19:50 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Master Detail com Campo Auto-Incremento Prioridade: Alta Ratificando o link do artigo: http://edn.embarcadero.com/article/20847 Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Rocha Enviada em: quinta-feira, 15 de abril de 2010 18:47 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Master Detail com Campo Auto-Incremento Prioridade: Alta Quando trabalho com TClientDataSet e tenho campos auto-incremento para gerar as chaves tanto de uma tabela máster como de seus detalhes, gero valores de chave e sub-chave localmente, na aplicação. Só depois deu aplicar o TClientDataSet ao banco de dados (ApplyUpdates) é que mostro (se for aplicável na maioria das vezes, não precisa disso!) as chaves já geradas pelo banco de dados. Faço isso seguindo dicas e orientações do excelente artigo http://av.rds.yahoo.com/_ylt=A0oGkti3l8dLJlQA7QYNGqMX;_ylu=X3oDMTBzdXAxcTho BHBndANhdl93ZWJfYWR2X3Jlc3VsdARzZWMDc3I-/SIG=11s6l03of/EXP=1271458103/**http %3a/edn.embarcadero.com/article/20847 How to use AutoInc fields with DataSnap, de autoria de Dan Miser. Sugiro que faça o mesmo! Boa sorte. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de diego yahoo Enviada em: quinta-feira, 15 de abril de 2010 16:50 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Master Detail com Campo Auto-Incremento Olá amigos, alguém sabe como utilizar Master/Detail com campo auto incremento (generator) ?? Preciso que o campo auto-incremento gerado pelo banco seja atualizado na tela. Utilizo DBExpress , Delphi7 e Firebird. Agradeço. Diego. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Master Detail com Campo Auto-Incremento
Olá amigos, alguém sabe como utilizar Master/Detail com campo auto incremento (generator) ?? Preciso que o campo auto-incremento gerado pelo banco seja atualizado na tela. Utilizo DBExpress , Delphi7 e Firebird. Agradeço. Diego. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Leitor optico USB
Paulo, O leitor conectado ao PC pode emular uma porta teclado ou serial, vai depender da configuração. Provavelmente falte somente a configuração do leitor. Abraço Samuca - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 14, 2010 5:29 PM Subject: [delphi-br] Leitor optico USB Olá a todos, Tenho um cliente que comprou 2 pistolas USB , uma da bematech e outra da elgin, sendo que nenhuma das 2 está lendo o código, eu passo a pistola no código e ela não envia nada para a máquina, testei direto no word, pois como ela só re-digitaliza, então tem que funcionar em qualquer lugar, assim como a ps2 funciona. Alguém tem idéia do que pode ser? -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tabela de preços
Paulo, Boa Tarde, Eu acredito que a melhor forma seria ter uma segunda tabela onde vc teria cadastrados cada preço que desejar... você poderia inclusive trabalhar com uma terceira tabela onde teria o nome da lista e aí vc teria nesta sua tabela de preços o produto+lista como chave. Entendido? Samuca - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br Sent: Wednesday, April 14, 2010 5:42 PM Subject: [delphi-br] Tabela de preços Olá a todos, Tenho a seguinte situação: Meu ERP possui 3 preços fixos na tabela de produtos, sendo que alguns clientes novos precisam de 4 preços, então eu quero criar uma forma dentro dos padrões para que exista uma forma forma dele cadastrar quantos preços quiser. Não sei como é feito em outros sistemas, mas aceito sugestões e opniões. -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro : Out of Memory
Olá Pessoal, Bom Dia... Eu tenho uma aplicação escrita em Delphi6 VCL que roda 24 hs por dia em um servidor windows 2000 server. Esta aplicação fica lendo uma tabela nomeada T_SPOOL_PRINTER e quando encontra uma solicitação de impressão ou envio de email com o orçamento, ela executa e volta ao estado de espera. Alé disso tem 3 rotinas diárias que executam às 21:30, 22:00 e 22:30 horas que enviam emails de aviso de faturamento, cobrança de aprovação de orçamento e congelamento de pedidos antigos. O programa fica o dia inteiro rodando executando todas as funções sem dar qualquer tipo de erro, e às vezes até à noite, acontece que às vezes, sem explicação nenhuma,. o programa apresenta o erro Out of Memory e para. O engraçado é que as funções são sempre as mesmas, não teve alterações... A pergunta : Alguém sabe se tem como tratar este erro para impedí-lo? Abraço Samuca __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Sistema para Builds de projetos
No Delphi 7 eu uso o Project Manager. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 6 CLX - O que fazer?
Pessoal, Bom Dia, Trabalho com um sistema que está ficando cada dia maior, hoje já temos mais de 400 units, muitas delas com forms correspondentes. Todo o projeto está desenvolvido em Delphi 6 CLX, talvez a pior besteira que tenhamos feito quando decidicmos escrevê-lo em CLX, pois a limitação com os objetos e funções é limitadíssimo e tem alguns erros que ocorrem que fica muito claro que é por conta do uso do CLX, como por exemplo a scroll bar nas grids que mesmo habilitadas nem sempre aparecem. A idéia era rodar tudo em máquinas Linux, porém isto nunca se concretizou e com certeza não se concretizará. Gostaria de uma ajuda do grupo para ver se tem algum meio de conseguirmos migrar os fontes para outra versão do Delphi, se possível para VCL, para que possamos melhorar a qualidade do nosso sistema, visto que toda esta lilmitação faz com que a direção da empresa acredite que não estamos fazendo o nosso trabalho corretamente. Ah, me esqueci de mencionar que o banco que utilizamos é o Firebird 2.1 Antecipadamente agradeço Samuca __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] [ OFF ? ] Multiplos campos OR n a clásula Where
Select Referencia, Apelido, Descricao From Descritivos Where UPPER( Referencia ) = UPPER( :ENTRADA ) or UPPER( Apelido ) = UPPER( :ENTRADA ) or UPPER( Descricao ) = UPPER( :Entrada ) _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ricardo César Cardoso Enviada em: terça-feira, 6 de abril de 2010 16:54 Cc: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [ OFF ? ] Multiplos campos OR na clásula Where Boa tarde senhores. Não estou conseguindo implementar uma query SQL com o Firebird 1.5 e gostaria da sua ajuda. Tenho uma situação onde preciso procurar informação mas ela pode estar em qualquer qualquer um entre três campos e o texto sempre será exato o que acho que descarta o uso de LIKE ou CONTAINS. Exemplo: Tabela Descritivos Campos: Referencia | Apelido | Descricao Tentei: Select Referencia, Apelido, Descricao From Descritivos Where Referencia = :ENTRADA or Apelido = :ENTRADA or Descricao = :Entrada Grato, Ricardo 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca http://br.maisbuscados.yahoo.com dos.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Digito Verificador
Sim, usei a funçao Modulo11('1751',9) e deu outro valor, se não me engano
deu 0, sendo que o valor da tabela é 5.
Sabe o pode ser?
-Mensagem original-
De: Bollasette [mailto:bollase...@yahoo.com.br]
Enviada em: terça-feira, 30 de março de 2010 23:50
Para: Felipe Yahoo
Assunto: [Bulk] Re: [Bulk] Fw: [delphi-boleto] Digito Verificador
Na prática, como escreveu a função ?
tipo: D2:= Modulo11(sChave,9) ?
- Original Message -
From: Felipe Yahoo nunesfel...@yahoo.com.br
To: 'Bollasette' bollase...@yahoo.com.br
Sent: Tuesday, March 30, 2010 6:54 PM
Subject: RES: [Bulk] Fw: [delphi-boleto] Digito Verificador
Eu jaz fiz pelo modulo 11 base 9 assim. E deu valores diferentes.
function Modulo11(Valor: String; Base: Integer = 9; Resto : boolean = false)
: string;
{
Rotina muito usada para calcular dígitos verificadores
Pega-se cada um dos dígitos contidos no parâmetro VALOR, da direita para
a
esquerda e multiplica-se pela seqüência de pesos 2, 3, 4 ... até BASE.
Por exemplo: se a base for 9, os pesos serão 2,3,4,5,6,7,8,9,2,3,4,5...
Se a base for 7, os pesos serão 2,3,4,5,6,7,2,3,4...
Soma-se cada um dos subprodutos.
Divide-se a soma por 11.
Faz-se a operação 11-Resto da divisão e devolve-se o resultado dessa
operação
como resultado da função Modulo11.
Obs.: Caso o resultado seja maior que 9, deverá ser substituído por 0
(ZERO).
}
var
Soma, Contador, Digito, iResto : integer;
Peso: String;
begin
Soma := 0;
Peso := '4329876543298765432987654329876543298765432';
for Contador := 1 to length(valor) do
begin
Soma := Soma + (StrToInt(Valor[Contador]) * StrToInt(Peso[contador]));
end;
// iResto := (Soma mod 11);
Digito := 11 - (Soma mod 11);
if Digito 9 then
Digito := 0;
Result := IntToStr(Digito);
end;
-Mensagem original-
De: Bollasette [mailto:bollase...@yahoo.com.br]
Enviada em: terça-feira, 30 de março de 2010 18:08
Para: Felipe Nunes
Assunto: [Bulk] Fw: [delphi-boleto] Digito Verificador
- Original Message -
From: Bollasette bollase...@yahoo.com.br
To: delphi-bol...@yahoogrupos.com.br
Sent: Tuesday, March 30, 2010 5:58 PM
Subject: Re: [delphi-boleto] Digito Verificador
É pelo módulo 11, base 9
http://www.cjdinfo.com.br/cjdinfo.php/utilitario-calculo-digito-modulo-11
[ ]sss
- Original Message -
From: Felipe Yahoo nunesfel...@yahoo.com.br
To: Felipe Yahoo nunesfel...@yahoo.com.br
Sent: Tuesday, March 30, 2010 5:49 PM
Subject: [delphi-boleto] Digito Verificador
Boa tarde senhores, preciso de ajuda para descobrir qual calculo foi feito
para encontrar esses digitos informados em baixo:
Já utilizei o Modulo10 e Modulo11.
Codigo do Produto
Digito Verificador
1751
5
2002
8
3013
9
3050
3
3051
1
3057
1
4032
1
4070
3
6004
6
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
Delphi-Boleto - Componentes para geração de boleto bancário em Delphi.
Criador/Moderador: Genilton Barbosa
Visite meu site: www.gbimoveis.com/genilton - Dicas de programação em
Delphi, diversos componentes grátis e muito mais
Para enviar mensagens:
delphi-bol...@yahoogrupos.com.br
Para cancelar assinatura:
delphi-boleto-unsubscr...@yahoogrupos.com.br
Site do grupo:
http://www.yahoogrupos.com.br/groups/delphi-boleto
Para fazer download do componente, visite o meu site:
http://www.gbimoveis.com/genilton
PARTICIPE DE NOSSAS PESQUISAS DE OPINIÃO
As pesquisas ajudam a entender melhor as opiniões e necessidades dos
membros do grupo. Dê o seu voto. Para acessar as pesquisas visite o
endereço www.yahoogrupos.com.br/groups/delphi-boleto/pollsLinks do Yahoo!
Grupos
[delphi-br] Digito Verificador
Boa tarde senhores, preciso de ajuda para descobrir qual calculo foi feito para encontrar esses digitos informados em baixo: Já utilizei o Modulo10 e Modulo11. Codigo do Produto Digito Verificador 1751 5 2002 8 3013 9 3050 3 3051 1 3057 1 4032 1 4070 3 6004 6 Obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RES: Digito Verificador
Eu jaz fiz pelo modulo 11 base 9 assim. E deu valores diferentes.
function Modulo11(Valor: String; Base: Integer = 9; Resto : boolean = false)
: string; {
Rotina muito usada para calcular dígitos verificadores
Pega-se cada um dos dígitos contidos no parâmetro VALOR, da direita para
a
esquerda e multiplica-se pela seqüência de pesos 2, 3, 4 ... até BASE.
Por exemplo: se a base for 9, os pesos serão 2,3,4,5,6,7,8,9,2,3,4,5...
Se a base for 7, os pesos serão 2,3,4,5,6,7,2,3,4...
Soma-se cada um dos subprodutos.
Divide-se a soma por 11.
Faz-se a operação 11-Resto da divisão e devolve-se o resultado dessa
operação
como resultado da função Modulo11.
Obs.: Caso o resultado seja maior que 9, deverá ser substituído por 0
(ZERO).
}
var
Soma, Contador, Digito, iResto : integer;
Peso: String;
begin
Soma := 0;
Peso := '4329876543298765432987654329876543298765432';
for Contador := 1 to length(valor) do
begin
Soma := Soma + (StrToInt(Valor[Contador]) * StrToInt(Peso[contador]));
end;
// iResto := (Soma mod 11);
Digito := 11 - (Soma mod 11);
if Digito 9 then
Digito := 0;
Result := IntToStr(Digito);
end;
De: Felipe Yahoo [mailto:nunesfel...@yahoo.com.br]
Enviada em: terça-feira, 30 de março de 2010 17:49
Assunto: Digito Verificador
Boa tarde senhores, preciso de ajuda para descobrir qual calculo foi feito
para encontrar esses digitos informados em baixo:
Já utilizei o Modulo10 e Modulo11.
Codigo do Produto
Digito Verificador
1751
5
2002
8
3013
9
3050
3
3051
1
3057
1
4032
1
4070
3
6004
6
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF - Assunto relacionado ao Projeto NFe Nacional
Acho que a nota fiscal eletrônica é um grande avanço sim. Facilitaria muito a nossa vida se o governo conseguisse exterminar a sonegação. Já pensaram que maravilha seria se nenhum cliente te pedisse um sistema que facilitasse a sonegação? Além do mais sem sonegação seria possível reduzir a carga tributária. Mas, com uma coisa temos que concordar: o governo não faz nada pra facilitar a nossa vida. Eta área complicada é essa área fiscal, acho que nem os governantes entendem direito. Além do mais, acho que, se é obrigatório a emissão de NFE, o governo deveria desenvolver alguma solução para facilitar a vida dos desenvolvedores. Poderia, por exemplo, desenvolver uma dll onde a gente somente passaria os dados e a dll enviaria a nota e te daria os retornos necessários. Mas, como eu já disse, o governo não faz nada pra facilitar a nossa vida. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Duplicar registro no firebird
Esses campos DB estão ligados ao cds_TCM? Se sim, tente
cds_TCM.DisableControls( )
antes do insert, mas é mais recomendado que você trabalhe com outros
controles, TEdit por exemplo, para esse tipo de operação.
Ah, coloque cds_TCM.EnableControls( ) depois do for.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ralp Alves Bezerra
Enviada em: terça-feira, 16 de março de 2010 07:32
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Duplicar registro no firebird
Pois é, já havia feito desta maneira mas continua não gravando em banco.
Estou fazendo desta forma:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
end;
finally
DM.cds_TCM_A.ApplyUpdates(0);
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Abraços.
Ralp Alves
De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
[mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br
os.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: sexta-feira, 12 de março de 2010 16:01
Para: delphi-br
Assunto: RE: [delphi-br] Duplicar registro no firebird
Prioridade: Alta
Faça o posto para cada registro criado, e ao final use ApplyUdpates(0). Com
ApplyUpdates(-1), se houverem erros, os mesmos não serão notificados à
aplicação.
Sds.
To: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br
mailto:delphi-br%40yahoogrupos.com.br
From: ral...@gmail. mailto:ralprd%40gmail.com com
mailto:ralprd%40gmail.com
Date: Fri, 12 Mar 2010 07:20:01 -0300
Subject: [delphi-br] Duplicar registro no firebird
Bom dia.
Venho mais uma vez, pedir a ajuda dos nobres colegas.
Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos
com duas tabelas devidamente ligadas (master detail).
Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a
quantidade de documentos a digitalizar.
Com base nesta quantidade digitada, queria que fosse gravado em banco a
quantidade de registros informado no campo QtdPag.
Na verdade, os registros seriam duplicados e salvos em banco de acordo com a
quantidade informada.
Estou tentando desta maneira abaixo:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(-1);
end;
finally
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros,
mas no banco é gravado somente 1 registro.
Como poderia resolver este problema?
Abraços.
Ralp Alves Bezerra
__
Não deixe rastros ao navegar na Internet. Instale Grátis o Internet Explorer
8 agora.
http://go.microsoft http://go.microsoft.com/?linkid=9707132
.com/?linkid=9707132
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Controlar o botão Scroll do mouse dentro da aplicaçã o Delphi
Amigos, Boa Tarde, Trabalho com uma aplicação em Delphi 6 CLX e preciso controlar o botão scroll do mouse, alguém sabe como? Antecipadamente agradeço, Samuca [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: [lista-delphi] Apagar c onteúdo de Arquivo TXT
Tem um jeito que eu considero mais tranqüilo ainda:
Var
VStr : TStrings;
Begin
VStr := TStringList.Create( );
VStr.LoadFromFile( arquivo.txt );
VStr.Text := ;
VStr.SaveToFile( arquivo.txt );
VStr.Free( )
End;
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Marcos Abreu Ferreira
Enviada em: quarta-feira, 3 de março de 2010 11:21
Para: lista-del...@yahoogrupos.com.br
Cc: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: [lista-delphi] Apagar conteúdo de Arquivo TXT
Augusto,
tenta assim...
*var*
* arq: TextFile;*
* txtArq: String;*
*begin*
* txtArq := 'C:\windows\ERP\log_sistema.text';*
* if FileExists(txtArq) then*
* begin
*
* AssignFile(arq, txtArq);*
* Rewrite(arq);*
* WriteLn(arq, '');*
* CloseFile(arq);*
* end;*
*end;*
Att,
Marcos A. Ferreira
São Paulo - Brasil
(+55) 11 9309-3936
MSN: maferre...@hotmail. mailto:maferreira%40hotmail.it it
Google Talk: maf.decisiva
Skype: m_abreuferreira
LinkedIn: http://www.linkedin http://www.linkedin.com/in/maferreira/
.com/in/maferreira/
Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não
pode usar, copiar, ou divulgar as informações nela contidas ou tomar
qualquer ação baseada nestas informações. Se você recebeu esta mensagem por
engano, por favor, avise imediatamente o remetente, respondendo o email e em
seguida, apague-o.
Agradecemos sua cooperação.
This message may contain confidential and/or privileged information. If you
are not the addressee or authorized to receive this for the addressee, you
must not use, copy, disclose or take any action based on this message or any
information herein. If you have received this message in error, please,
advise the sender immediately by reply e-mail and delete this message.
Thank you for your cooperation.
Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing.
Em 3 de março de 2010 10:33, Augusto Bondan Nascimento
augustobondan@ mailto:augustobondan%40gmail.com gmail.com escreveu:
Estou tendo dificuldades em apagar o conteúdo de um arquivo texto.
por exemplo:
AssignFile(f,'c:\windows\ERP\log_sistema.text');
if fileExists('C:\windows\ERP\log_sistema.text') then
begin
Append(f)
rewrite(F);
erase(f);
closefile(F);
end;
O código não está com todos esses comandos, mas gostaria de saber qual
deles
consegue apagar o que está escrito no arquivo.
Não quero deletar o arquivo, apenas o conteúdo. Achei que o comando
erase(f) conseguiria, mas não funciona.
Atenciosamente;
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Verificar se campo foi alterado
Pessoal, eu consigo ver se um registro do clientdataset foi alterado através do método ClientDataset.ChangeCount. Mas eu gostaria de verificar se um campo específico do clientdataset foi alterado. É possível? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Qual o melhor maneira de Cancelar a Nota Fiscal?
cStat pra cancelamento tem que ser igual a 101.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de ademir.mossane
Enviada em: quarta-feira, 24 de fevereiro de 2010 17:02
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Qual o melhor maneira de Cancelar a Nota Fiscal?
Cancelamento de Notas tem 2 maneiras
Exemplo usando a Chave e Protocolo da NFe:
ACBrNFe1.WebServices.Cancelamento.NFeChave := chNFe;
ACBrNFe1.WebServices.Cancelamento.Protocolo := Protocolo;
ACBrNFe1.WebServices.Cancelamento.Justificativa := AJustificativa;
Dessa forma, tem que fechar a nota carregada antes de cancelar.
Após o envio do cancelamento, o componente salva o xml do cancelamento
automáticamente ou tenho que salvar enviando algum comando:
if ACBrNFe.WebServices.Cancelamento.cStat = 101 then begin
{ Autorizado o cancelamento. .. }
end;
--
Exemplo carregando um XML
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.Add.XML.LoadFromFile(cPathArquivo);
if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then
exit;
ACBrNFe1.Cancelamento(vAux);
O ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat
é alterado, ou permanece como 100?
--
Minha Dúvida é a seguinte:
Qual o melhor maneira de Cancelar a Nota Fiscal?
Quais os comandos pra salvar se existir, pois quando gerar
o Speed esse cancelamento será obrigatório informar...
Desde já Agradeço a quem puder me ajudar
Abraços
Ademir Mossane
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sugestão de componente p/ verifica ção contínua de existência de arquivo.
Use o TTimer. No evento OnTimer do mesmo utilize a função FileExists. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] BDE Windows 64Bits
Pessoal Estou tendo problemas com os clientes que estão instalando o Windows 64Bits (Qualquer versão), pois estão comprando equipamentos com 4Gb de memória, o fato do Windows 32Bits somente reconhecer 3Gb esta fazendo com que instalem o 64Bits O problema: O BDE não instala no Windows 64Bits, alguém já passou por esse problema? atenciosamente Juliano Silva [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] BDE Windows 64Bits
Pessoal, obrigado Estarei fazendo os testes... Juliano De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Camoloze Terra Enviada em: terça-feira, 23 de fevereiro de 2010 09:09 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] BDE Windows 64Bits Olá Juliana, Estes dias estava dando uma olhada no site abaixo, e tem o que você precisa. http://www.cesarromero.com.br Att. []´s Camoloze De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Juliano Silva - Yahoo Enviada em: terça-feira, 23 de fevereiro de 2010 08:49 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ; lista-del...@yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br Assunto: [delphi-br] BDE Windows 64Bits Pessoal Estou tendo problemas com os clientes que estão instalando o Windows 64Bits (Qualquer versão), pois estão comprando equipamentos com 4Gb de memória, o fato do Windows 32Bits somente reconhecer 3Gb esta fazendo com que instalem o 64Bits O problema: O BDE não instala no Windows 64Bits, alguém já passou por esse problema? atenciosamente Juliano Silva [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] gravar autoincremento no firebird 2.0
Atribua zero para o campo em questao no beforepost. -- mens. original -- Assunto: Re: RES: [delphi-br] gravar autoincremento no firebird 2.0 De: Rubens Antunes rubensantu...@yahoo.com.br Data: 21/02/2010 11:07 Realmente não há, mas você pode criar uma trigger aliada a um generator para conseguir o auto incremento, mas pelo que entendi seu problema está no delphi, com o seu dataset selecioando abra o field editor e selecione o campo desejado e desmarque a propriedade Required, assim o Delphi irá gravar sem o campo desejado, mas sugiro a você uma outra maneira, buscar o valor do campo generator através do evento OnNewRecord, não sei se no ADO existe este evento, dar uma olhada ai. qualquer dúvida manda aí, Abraço Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em dom, 21/2/10, Claudiney - Listas claudiney-lis...@n2solutions.com.br escreveu: De: Claudiney - Listas claudiney-lis...@n2solutions.com.br Assunto: RES: [delphi-br] gravar autoincremento no firebird 2.0 Para: delphi-br@yahoogrupos.com.br Data: Domingo, 21 de Fevereiro de 2010, 12:08 Bom dia Alex No Firebird/Interbase não existe um campo autoincremento da maneira como os outros bancos tem. Aqui é necessário utilizar um generator para gerar os números automáticos. Talves o seu problema esteja por aí. Abaixo segue um link com um exemplo bem prático sobre isso: http://www.planetad elphi.com. br/download/ 4229/Autoincreme nto%20no% 20firebird Abraço _ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná http://www.n2soluti ons.com.br/ www.n2solutions. com.br http://www.nfe. n2solutions. com.br/ www.nfe.n2solutions .com.br http://www.studion2 .com.br/ www.studion2. com.br De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de asandro1501 Enviada em: sábado, 20 de fevereiro de 2010 15:04 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] gravar autoincremento no firebird 2.0 Olá pessoal Instalei o firebird 2.0 para testar, mas não consigo gravar os dados na tabela, estou utilizando o odbc para conexao. O erro é por causa da chave primaria que é um auntoincremento, como ele não gera a chave antes de salvar me dá o erro. Pra salvar tentei utilizar o método tradicional da paleta ADO dataset.post mas não deu. Procurei em tudo quanto for lugar mas não achei como fazer isso. Alguém pode me socorrer? Alex Silva [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro na Conversão de BD usando Clien tDataSet
Veja o que diz o help do Delphi : Set MaxErrors to -1 to indicate that there is no limit to the number of errors. Ou seja, se você colocar -1 no parâmetro o ClientDataset vai aceitar infinitos erros. Coloque DMCONVERTE.CDSForn2.ApplyUpdates(0); e não esqueça de colocar uma exceção no evento OnReconcileError. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Delete no Detail
Você só não respondeu a pergunta dele... Dar applyupdates no detail não funga? _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Luiz Onhate Enviada em: terça-feira, 2 de fevereiro de 2010 16:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delete no Detail Não precisa dar o .Post para dar o .ApplyUpdates... quando der o .ApplyUpdate ele já dá o .Post em tudo que for necessário... e outra, se vc der um .ApplyUpdate e não alterou nada ele simplesmente não vai fazer nada... Sabes a diferença do Post e ApplyUpdate? Post confirma somente no Client, ou seja, na memória local... e o ApplyUpdate gera sql e envia as alterações para o Banco... Em 02/02/2010 15:16, magnunoliveira escreveu: Fala galera ... Seguinte, to com um master/detail com DBX e CDS. Quando excluo um item no detail, uso cds_Detail.Delete; porem pra gravar qualquer alteracao uso: if (cds_Master.State in [dsInsert, dsEdit]) then begin cds_Master.Post; cds_Master.ApplyUpdates(0); end; o que ocorre é que ao excluir um item do detail, o state do Master nao entra em dsEdit, nem dsInsert; se eu chamar diretamente o applyupdates, da a mensagem que o cds_Master nao está em modo de edicao. entao a duvida é: como fazer para comitar as exclusoes no detail ? vlw [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Filter not found to convert type 1 to type 2
Quando mudei de banco também tive esse tipo de problema. Tente fazer um backup e restaurar. Se não der certo gere o script e crie o banco novamente e depois crie scripts com os dados e jogue os dados para o banco novo. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Reconhecimento de voz no delphi
Da uma olhada no link a seguir (é freeware) http://say-now.software.informer.com/ abraços e bom proveito - Original Message - From: Allan GabrielAM alla...@americamoveiseletro.com.br To: delphi-br@yahoogrupos.com.br Sent: Monday, February 01, 2010 10:49 PM Subject: [ Re: [delphi-br] Reconhecimento de voz no delphi Olá Sr. Antônio, obrigado pela dica,mas na verdade acho que me expressei mal, na verdade quero que o programa desenvolvido em delphi ouça o que eu diga e execute alguma açãoe não que o programa fale alguma coisa, precisaria de algum componente, ou ao menos alguma luz, olha estive procurando adoidado pela net, e nada até agora, só encontrei programas que fazem o pc falar, mas quero o processo inverso. Por favor se alguém souber de algo me ajude, e olhe, acredito ser realmente difícil, pois livros a respeito não achei nada também. Atenciosamente, Rafael Vivan. - Original Message - From: Antonio Leandro Furstenberger Favero lean...@fave.ro To: delphi-br@yahoogrupos.com.br Sent: Monday, February 01, 2010 2:46 PM Subject: Re: [delphi-br] Reconhecimento de voz no delphi http://www.nuance.com/naturallyspeaking/ Em 1 de fevereiro de 2010 13:10, Rafa - Bem Bom alla...@americamoveiseletro.com.br escreveu: Olá prezados, estive procurando no histórico da lista mas não encontrei nada do que eu preciso, preciso de ajuda pra fazer um programa onde ele execute alguma ação quando um comando de voz é pronunciado pelo microfone conectado ao pc, por exemplo, dito ao microfone Explorer - ele abre o explorer, dito ao microfone iexplorer ele abre o navegador da internet, procurei por tudo, o que consegui até agora foi fazer os assistêntes do windows falarem somente, mago, merlin, spped etc, mas preciso que o pc somente entenda o que estou falando e não que ele pronuncie o que eu colocar num edit por exemplo. Por favor se alguém souber de alguma coisa que possa me ajudar responda. Obrigado. Att. Rafael [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] Dataset.BookMark agora é do tipo TBytes
Estava tentado compilar alguns projetos antigos para o Delphi 2010, e me deparei com uma surpresa desagradável. Quando tenho uma chamada do tipo: book := dataset.bookmark; sendo que a variável book é do tipo string, no delphi 2010, dá o seguinte erro: [DCC Error] cxDBData.pas(1001): E2010 Incompatible types: 'string' and 'TBytes' Isso devido ter sido mudado o tipo de retorno da função getbookmark da classe Dataset na unit DB. Agora como posso fazer para acertar nos meus projetos com o menos impacto possível ? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] FormatDateTime
QuotedStr( FormatDateTime( mm/dd/, DATA ) ); _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Elazar Dornelles Ceza Enviada em: quarta-feira, 27 de janeiro de 2010 08:28 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] FormatDateTime Sempre que vou montar um sql na unha, uso 'dd.mm.' e nunca tive problemas, na verdade usso este formato para inclusive fazer selects/insert/updates no IBExperto ou IBConsole... Atenc; Elazar Dornelles Ceza De: Evaldo evaldoavelar@ mailto:evaldoavelar%40yahoo.com.br yahoo.com.br Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Terça-feira, 19 de Janeiro de 2010 8:36:22 Assunto: Re: [delphi-br] FormatDateTime Tentei assim também mas o da o mesmo problema. _ _ __ From: CRM Desenvolvimentos crmdesenvolvimentos @gmail.com To: delphi...@yahoogrup os.com.br Sent: Mon, January 18, 2010 3:51:42 PM Subject: Re: [delphi-br] FormatDateTime Porque não usa assim: *FormatDateTime( 'mm/dd/' ,date);* é mais simples. __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca http://br.maisbuscados.yahoo.com dos.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Componente para Agenda
Já olhei sim os componentes da Jedi, mas é muito confuso o uso dos mesmos, estava procurando algo mais simples de usar e manter. Mas sigo ainda em busca de alguma coisa, qualquer coisa eu posto os resultados. Obrigado. André Luis da Silveira __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] OFF... NAT
http://www.guiadohardware.net/comunidade/500g-dlink/177897/ Não uso DLink, mas nunca tive problemas com o singleclick. Quando estiver em outra máquina, é só ajustar o nat e pronto. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fernando Bueno Enviada em: sexta-feira, 22 de janeiro de 2010 08:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] OFF... NAT Bom dia ! Cara quando não preciso transferir arquivos uso o CrossLoop e quando preciso mando via ftp é assim que tenho feito porque tem varios modelos de modem e tem alguns que se ressetam ai tem que configurar tudo denovo. Um abraço. 2010/1/21 Régis Bender regis...@terra.com.br Boa tarde, estou com um problema pra acertar minha conexão remota. Estou usando o ultra vnc(single click), ai eu configurei pro endereço regissk8.no-ip.org:15000, mas tenho que configurar a NAT do meu roteador e não estou conseguindo. Utilizo o Dlink 500g II. Alguém utiliza este mesmo programa e poderia me ajudar a criar essas regras? sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: regis...@terra.com.br regissk8%40terra.com.br ''A vida é um milhão de novos começos movidos pelo desafio sempre novo de viver e fazer todo sonho brilhar! [As partes desta mensagem que não continham texto foram removidas] -- Fernando P. Bueno.'. 54 8145 6625 Caxias do Sul - RS - Brasil Oh! Quão bom e quão suave é que os irmãos vivam em união ..! (Salmos 133:1). [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[delphi-br] BDE funciona de 2 modos diferentes
Alguém sabe me dizer porque em algumas máquinas o path do BDE funciona configurado como servidor:c:\pasta\bd.gdb e em algumas tenho que configurar como \\servidor\c:\pasta\bd.gdb? Inclusive em algumas máquinas param de funcionar e eu tenho que mudar essa configuração, ou seja, ora funciona de um jeito, ora funciona de outro. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] OFF... NAT
Vc poderia usar o teamviewer, é muito semelhante ao vnc e não é necessária nenhuma mudança no seu DLink Régis Bender escreveu: Boa tarde, estou com um problema pra acertar minha conexão remota. Estou usando o ultra vnc(single click), ai eu configurei pro endereço regissk8.no-ip.org:15000, mas tenho que configurar a NAT do meu roteador e não estou conseguindo. Utilizo o Dlink 500g II. Alguém utiliza este mesmo programa e poderia me ajudar a criar essas regras? sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: regis...@terra.com.br mailto:regissk8%40terra.com.br ''A vida é um milhão de novos começos movidos pelo desafio sempre novo de viver e fazer todo sonho brilhar! [As partes desta mensagem que não continham texto foram removidas] -- Ramon A. Körber Jr MSN - ramon15061...@hotmail.com Skype - ramon15061959 Harbour 2.0.0 - MiniGUI Extended 1.7 xDevStudio - BCC 5.5 - Firebird - OleDB-AdoDB Lazarus 0.9.29 - ZeosDBO 6.6.5 - Firebird - Desenvolvimento Multi-Plataforma Windows XP SP3 - Linux Opensuse 11 - Mandriva 2009 - Ubuntu 9.10 Linux User Number 404280 -- 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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] ApplyUpdates - Gravar por procedure no Banco
Para interceptar a inserção, atualização ou exclusão em um banco de dados, você pode usar triggers. Só não estou entendendo o que você quer fazer, pois não faz sentido interceptar uma inclusão e fazer a gravação através de procedure. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Trabalhar com JPGE E TIFF
Bom dia, Cara passei a noite revirando esse site que vc me passou e não encontrei coisas do tipo, vc tem noção mais ou menos do nome do algoritimo? Obrigado De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de EmbarcaDelphi Enviada em: terça-feira, 19 de janeiro de 2010 00:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Trabalhar com JPGE E TIFF Esse site vai quebrar teu galho e te dar mais visões para o que deseja :) http://www.efg2.com/Lab/Library/Delphi/Graphics/Algorithms.htm Diz aí se serviu... Em 18/01/2010 22:22, Felipe Yahoo escreveu: Boa Noite senhores, estou com um problema e não consigo solucionar. Preciso desenvolver um aplicativo que pega uma ou mais imagens jpg e transforme em um arquivo TIFF com várias paginas. Não se se conseguir ser claro, mas um arquivo de imagem TIFF consegue armazenar varias páginas no mesmo arquivo. E essas paginas seria minhas imagens jpg. Alguem por gentileza e por favor consegue me ajudar? Obrigado [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] NFe c/ ACBR
Chave := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; Protocolo := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; Recibo := ACBrNFe1.WebServices.Retorno.NFeRetorno.nRec; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] [APLICACAO OFF-LINE]
100% os binários do clientdataset também. Muito simples de utilizar, sem crise. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Bruno Lichot Enviada em: terça-feira, 19 de janeiro de 2010 15:06 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] [APLICACAO OFF-LINE] Ola pessoal , preciso desenvolver uma aplicacao para vendas off-line, ou seja o representante comercial vai até o cliente, digita o pedido e mais tarde transmite o pedido a fabrica. vou preciar criar uma base de dados no cliente. o que fica melhor ?? --binarios do clientdataset dados em txt ? xml ? banco(qual). qual componete devo utilizar para fazer a comunicacao/sincronizacao dos dados ?? --DataSnap sem nenhuma duvida se alguem algum material para estudar , algumas dicas .. o que nao fazer .. --http://cc.embarcade http://cc.embarcadero.com/author/795118 ro.com/author/795118 --http://www.yahoogru http://www.yahoogrupos.com.br/group/nddv pos.com.br/group/nddv att. Marcio Click here https://www. https://www.mailcontroller.altohiway.com/sr/7VabMuUReGrTndxI mailcontroller.altohiway.com/sr/7VabMuUReGrTndxI!oX7Up4RmTWEAj2hIPAGCwfUkYrM ziPwCZeGZFOzQIlXLpimr8xudnTOzjv1lqOECv!Swg== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailCont http://www.MailController.altohiway.com/ roller.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ACBr NF-e - Nota fiscal modelo 1
Procure pelo grupo projeto cooperar nfe ou projeto_cooperar_nfe no yahoo groups. É o grupo do ACBR. Só pra constar, você rodou o demo pelo bds06? Funcionou tranqüilo? Se sim, provavelmente você está esquecendo de preencher alguma propriedade do componente. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Thiago Menon Enviada em: terça-feira, 19 de janeiro de 2010 15:11 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] ACBr NF-e - Nota fiscal modelo 1 Olá, Estou com problemas para utilizar o componente ACbrNf-e. Estou utilizando o BDS 2006. Ao tentar enviar uma nota pelo componente recebo a mensagem dizendo Rejeição: Falha no Schema XML da NF-e. Alguém sabe como eu posso ter um erro menos genérico? por onde eu posso procurar para saber sobre esse erro? Muito Obrigado pela atenção e ajuda de todos Thiago Menon msn: thime...@hotmail. mailto:thimenon%40hotmail.com com __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. http://br.beta.messenger.yahoo.com/ messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] FormatDateTime
Var VData, VFormato : String; Begin VFormato := dd/mm/; VData := FormatDateTime( FORMATO, NOW ); ShowMessage( VData ) End; _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de EmbarcaDelphi Enviada em: terça-feira, 19 de janeiro de 2010 11:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] FormatDateTime Tenta assim: FormatDateTime( 'mm/dd/',now); Em 19/01/2010 07:36, Evaldo escreveu: Tentei assim também mas o da o mesmo problema. From: CRM Desenvolvimentos crmdesenvolvimentos mailto:crmdesenvolvimentos%40gmail.com @gmail.com mailto:crmdesenvolvimentos%40gmail.com To: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Mon, January 18, 2010 3:51:42 PM Subject: Re: [delphi-br] FormatDateTime Porque não usa assim: *FormatDateTime( 'mm/dd/' ,date);* é mais simples. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro em Post Usando 2 Tabelas
Você configurou os ProvidersFlags dos campos que não serão salvos para False? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Trabalhar com JPGE E TIFF
Boa Noite senhores, estou com um problema e não consigo solucionar. Preciso desenvolver um aplicativo que pega uma ou mais imagens jpg e transforme em um arquivo TIFF com várias paginas. Não se se conseguir ser claro, mas um arquivo de imagem TIFF consegue armazenar varias páginas no mesmo arquivo. E essas paginas seria minhas imagens jpg. Alguem por gentileza e por favor consegue me ajudar? Obrigado [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com Filtro para abrir formulario..
Opa, tudo certo?
Seguinte, você está chamando o formulário 2 com ShowModal, isso quer dizer
que sistema irá esperar os processos serem executados no formulário 2, para
depois passar pelo código que existe abaixo dele.
Faça assim e deve funcionar ok.
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
FrmConsultaMedico.ShowModal;
Aconselho você a criar parâmetros no formulário 2, para evitar código
manipulando o formulário de outro formulário, por exemplo:
No formulário 2:
Public
VMedido : Integer;
VData : TDateTime;
No FormShow (ou em qualquer outro evento do segundo formulário):
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico'] :=VMedico;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] := VData;
frmConsultaMedico.ADOQuery1.Open;
No primeiro formulário, o código ficaria reduzido a:
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.VMedido := EdtMedido;
FrmConsultaMedico.VData := EdtData; (aqui o edtdata deve seguir um typecast
ou ser do tipo date)
FrmConsultaMedico.ShowModal;
Quanto a segunda duvida:
Não existe nenhum tipo de enablecontrols/disablecontrols no
FrmModMedicoConsulta né? Tente fechar e abrir novamente o dataset, caso o
resultado seja positivo poste aqui para que possamos melhorar isso.
Até mais.
Vitor.
_
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de dssmoura
Enviada em: quinta-feira, 14 de janeiro de 2010 21:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda com Filtro para abrir formulario..
Boa noite senhores, me desculpe fazer duas perguntas mas eu estou precisando
de uma grande ajuda,
1- Tenho uma aplicação de filtro de agenda medica onde tem um form inicial
onde e informdo o nome do medico
através de um dbedit onde e informado o nome do medico e um Edit que e
informado a data, e um botão que chama
um formulário com um grid com as consultas do dia, após chamar a primeira
vez o grid vem em branco apos fechar
e chamar a segunda vez pelo botão ele abre com a consulta, o codigo do botão
e o seguinte:
procedure TFrmCons.SpeedButton1Click(Sender: TObject);
Var
EdtMedico :Integer;
EdtData:String;
begin
FrmConsultaMedico.ShowModal;
FrmConsultaMEdico.ADOQuery1.Close;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtMedico']
:=Edmedico.Text;
frmConsultaMedico.ADOQuery1.Parameters.ParamValues['EdtData'] :=
EdData.Text;
frmConsultaMedico.ADOQuery1.Open;
end;
2 - Neste mesmo Grid inseri um função no evento OnDbClick, para chamar o
formulário de Prontuário medico, após
click duplo ele abre o form com o registro selecionado no grid, mas se fecho
o formulario e seleciono o
registro ele abre com o mesmo selecionado anteriormente o código e o
seguinte:
procedure TFrmConsultamedico.DBGrid1DblClick(Sender: TObject);
begin
DadosMedico.AdConsulta1.Locate('Medico',AdoQuery1.fieldbyname('codigo').asIn
teger,[]);
FrmModMedicoConsulta.Showmodal;
end;
Como devo fazer nestes casos ?
Desde já agradeço a atenção de todos.
Danilo Moura
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componentes ACBr
Alguém aqui usa os componentes ACBr para emissão de nota fiscal eletrônica? Vocês recomendariam o uso do componente? Gostaria de inscrever em um grupo de discussão sobre o assunto. Instalei os componentes, mas quando tentei rodar um demo deu a seguinte mensagem : Unit ACBrNFeDANFERave wad compiled with a different version of RpRave.TRvProject.Open. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Paradox para SqlServer2000
Bem, faz um bom tempo que não trabalho com SQL Server nem Paradox. Mas, o tipo Date no Paradox deve ser uma data simples, sem hora. No SQLServer deve ter um tipo igual a esse. Deve ser SmallDate ou coisa parecida. - Original Message - From: Nivaldo Stainle stainle2...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Friday, January 08, 2010 9:00 AM Subject: Re: [delphi-br] Paradox para SqlServer2000 e quando um campo for DATE no paradox, que tipo você coloca no SQLSERVER ?? Stainle __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
RES: [delphi-br] Fluxo de Formulário - Intraweb
Form1.BringToFront( ); _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Moacir Florindo Enviada em: quinta-feira, 7 de janeiro de 2010 11:12 Para: delphi-br@yahoogrupos.com.br; i...@yahoogrupos.com.br Assunto: [delphi-br] Fluxo de Formulário - Intraweb Colegas, Tenho o formulário 1 que chama o formulário 2 e este chama o formulário 3 Estou querendo voltar do formulário 3 para o formulário 1, fazendo assim: formulario1.show; porém, na compilação ele não aceita, só se eu cria-lo novamente. Como proceder? Att, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaote http://www.gestaotec.com.br c.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Fluxo de Formulário - Intraweb
Ou falei besteira, esqueci que é intraweb, só trabalhei com isso uma vez e odiei na verdade. Desculpem-me. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Vitor Yahoo Enviada em: quinta-feira, 7 de janeiro de 2010 11:17 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Fluxo de Formulário - Intraweb Form1.BringToFront( ); _ De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Marcelo Moacir Florindo Enviada em: quinta-feira, 7 de janeiro de 2010 11:12 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br; i...@yahoogrupos. mailto:iwbr%40yahoogrupos.com.br com.br Assunto: [delphi-br] Fluxo de Formulário - Intraweb Colegas, Tenho o formulário 1 que chama o formulário 2 e este chama o formulário 3 Estou querendo voltar do formulário 3 para o formulário 1, fazendo assim: formulario1.show; porém, na compilação ele não aceita, só se eu cria-lo novamente. Como proceder? Att, -- Marcelo Moacir Florindo Analista/Desenvolvedor http://www.gestaote http://www.gestaote http://www.gestaotec.com.br c.com.br c.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Paradox para SqlServer2000
Quando eu tenho que importar dados de um banco para outro eu crio a tabela manualmente no banco de dados e faço um programa que consulta os dados no banco de origem e grava no banco de destino. Assim eu tenho um controle melhor do tipo de dados e dos valores que serão gravados. Esse programas que fazem migração de dados sempre dão algum problema. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Calculo em DBGrid
Já tentou em algum evento do campo? No OnValidate deve funcionar. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro usando Canvas
Olá pessoal! Estou tentando usar o Canvas para imprimir em uma Argox. Funciona bem quando estou utilizando a impressora em rede, porém quando tentei utilizar numa com impressora local são apresentados dois erros: Primeiro: Printing in progress. Segundo: Printer is not currently printing. A tradução tudo bem, mas não estou conseguindo encontrar o porquê. Se alguém puder me ajudar. Leonardo Freitag. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF] Lista Delphi-br
Pessoal, Bom Dia, Ultimamente a lista tem se tornado um local de ofensas e agressões sem que sejam respeitadas as opiniões de cada um. É impossível todos terem a mesma opinião sobre um determinado assunto, porém é plenamente possível que cada um respeite a opinião do outro; é claro que podemos questionar e sugerir, porém sem ofender. Afinal, somos ou não um povo civilizado? Abraços Samuca [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] OFF Topic - Férias
Puxa, queria umas férias assim só volta em Maio/2010 ou 05 de Outubro!?!?!?!? hehehehehe Brincadeiras à parte. Boas Férias e Boas Festas. Abração Samuca - Original Message - From: Evandro Siqueira vans...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 22, 2009 11:59 AM Subject: [delphi-br] OFF Topic - Férias Bom dia pessoal, Estou avisando aos colegas que estou de férias a partir de hoje retornando no dia 05/10. Aproveito para desejar a todos um feliz natal e um ano novo repleto de realizações. Felicidade a todos e até 2010, se Deus assim desejar!!! -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.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: delphi-br-ow...@yahoogrupos.com.br 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: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Paradox em rede ajuda s.o.s
Alessandra, Boa Tarde, Não quero te desanimar, mas o Paradox rodando em rede com duas ou mais máquinas acessando é muito ruim... os índices são facilmente corrompidos, Na minha modesta opinião o Paradox é bom pra uso em uma única máquina com um único sistema. Abraços Samuca - Original Message - From: alessandra porto To: lista-del...@yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br Sent: Friday, December 18, 2009 9:19 AM Subject: [delphi-br] Paradox em rede ajuda s.o.s Em um cliente meu tem uma aplicação que usa paradox e não posso mudar ela ainda para firebird então precisei criar uma aplicação que grava no firebird e no paradox desta antiga o local tem 3 maquinas o servidor: contem o banco paradox alias = Estoque PATH = C:\BOMBA\DADOS NET DIR = C:\BOMBA\DADOS LOACAL SHARE = FALSE estação A acessa o paradox pelo mapeamento disco Z: PATH = Z:\DADOS NET DIR = Z:\DADOS LOACAL SHARE = TRUE Estação B acessa o paradox pelo mapeamento disco Z: contem o firebird eminha aplicação que tambem usa o mapeamento disco Z: para gravar no paradox PATH = Z:\DADOS NET DIR = Z:\DADOS LOACAL SHARE = TRUE Olhei em varios artigos na web sobre compartilhamento do BDE e continuo com os erros que creio seja por causa do tal LOCAL SHARE que no servidor só funciona no caso se for LOCAL SHARE = False nas estações aceita LOCAL SHARE = True Mas o servidor nada , só false Como Posso configurar essa coisa para parar de corromper os tais indices agradeço sua ajuda amigo já não aguento mais essa bomba __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird
Mas e se os campos já existirem? Eu vou ter que trocar um a um via código? - Original Message - From: humberto sales de oliveira humberto_...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 16, 2009 11:51 PM Subject: Re: [delphi-br] Re: OFF TOPIC-Consultar registro com acentos em Firebird declare dessa forma ALTER TABLE ESTOQUE ADD DESCRICAO Varchar(60) COLLATE WIN_PTBR; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Problema com ClientDataset
Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente também : ClientDataset.CommandText := 'select * from CONTAS Where COD_CONTA = ' + DBGrid1.Fields[0].AsString. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] OFF TOPIC-Consultar registro com acentos em Firebird
Pesquisei na internet sobre a possibilidade de fazer consulta no Firebird sem fazer a distinção entre palavras acentuadas e não acentuadas, entre maiúsculas e minúsculas. Ex. Se eu pesquisar por JOAO, a consulta trará registros que contém joão, joao, JOÃO e JOAO. Achei artigos que dizem dizendo que devo usar o Charset WIN1252 e Collate PXW_INTL850. Usando o IbExpert vi que consigo definir o Charset WIN1252 ao criar o banco, mas e oCollate PXW_INTL850? Como faço para definir? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Visual do sistema
Olá pessoal! Não sou muito bom com a parte visual do sistema, telas botões, ícones. Gostaria de saber onde posso conseguir imagens para dar um up no visual dos meus programas. Atenciosamente, Leonardo Freitag. _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ulisses Enviada em: terça-feira, 15 de dezembro de 2009 11:32 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] delphi e sqlserver Bom dia! Migre para ADO. Depois que passar a utilizar o ADO, vai migrar até a aplicação que conecta o Oracle para outra forma de conexão. Abandone o BDE! Boa sorte, Ulisses _ De: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de rodrigoojapa Enviada em: terça-feira, 15 de dezembro de 2009 08:42 Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] delphi e sqlserver Bom dia pessoal, Tenho uma aplicação que faz conexão com banco de dados Oracle, e preciso mudar para um banco de dados SQLServer. Preciso alterar muita coisa.a aplicação usa o bde para a conexão.. Ou teriam uma outra sugestão [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ordenar TIBOQuery
Boa Tarde Senhores Queria saber como faço pra ordenar o componente TIBOQuery. No ClientDataSet uso ClientDataSet.IndexFieldName := 'CAMPO' ; Obrigadi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Colocando um CheckBox na Grid
Rubem, Ops. esqueci de citar.. versão 6 Enterprise. Abç Samuca - Original Message - From: Rubem Nascimento da Rocha To: delphi-br Sent: Wednesday, December 09, 2009 8:35 PM Subject: RE: [delphi-br] Colocando um CheckBox na Grid Qual a versão do Delphi que vc usa? Sds. To: delphi-br@yahoogrupos.com.br From: samuca_1...@yahoo.com.br Date: Wed, 9 Dec 2009 17:20:41 -0300 Subject: [delphi-br] Colocando um CheckBox na Grid Amigos, Boa Tarde, No link abaixo encontrei informações de como fazer no Delphi para colocar um CheckBox na grid, Fiz todos os procedimentos, mas na hora de compilar diz que a chamda DrawFrameControl não está declarada. Pelo overview do Help cota a user32.lib e a winuser.h, porém não encontrei nenhuma da duas na minha máquina. http://delphi.about.com/od/usedbvcl/l/aa082003a.htm Alguém pode me ajudar? Antecipadamente agradeço Samuca __ Navegue com segurança com o Novo Internet Explorer 8. Baixe agora, é gratis! http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmailutm_medium=Taglineutm_content=Tag4utm_campaign=IE8 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Exportar pra PDF
Qual o gerador de relatorios que vc usa? De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Suruagy Enviada em: quinta-feira, 10 de dezembro de 2009 13:43 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Exportar pra PDF Olá, bom dia Tenho uma duvida, Como eu devo fazer para exportar o report para pdf, sem que o usuário precise abrir o previen mode. ou seja gerar o report não mostra-lo e salva-lo diretamente em PDF. Eduardo Suruagy C2 Sistemas (82) 3313-1782 (82) 3313-1783 (82) 9117-0204 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Colocando um CheckBox na Grid
Amigos, Boa Tarde, No link abaixo encontrei informações de como fazer no Delphi para colocar um CheckBox na grid, Fiz todos os procedimentos, mas na hora de compilar diz que a chamda DrawFrameControl não está declarada. Pelo overview do Help cota a user32.lib e a winuser.h, porém não encontrei nenhuma da duas na minha máquina. http://delphi.about.com/od/usedbvcl/l/aa082003a.htm Alguém pode me ajudar? Antecipadamente agradeço Samuca __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Função para descobrir numero de se rie do HD
Procure pelo assunto no Google e você vai achar aos montes, inclusive em mensagens aqui da lista. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Share my happiness!!!
As vezes a pessoa pode ter deixado outra pessoa com menos conhecimento mexer no computador (tal como esposa, filho), lamento que isso tenha te ofendido tanto, meio sensível não ? Peço desculpas a todos, mas parece que tem gente que acha que o bambam, mas não passa de um mané preconceituoso, e se quiser me banir já que é moderador esteja a vontade. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
