RES: [delphi-br] Delphi 7 x Firebird 1.53
Alessandro, Obrigado pela dica. Vou verificar e assim que tiver o resultado, notifico a todos. Também estou sofrendo muito com isso! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alessandro DUARTE de Moraes Enviada em: sexta-feira, 5 de janeiro de 2007 17:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 7 x Firebird 1.53 Já sofri com isso ... graças a Deus achei a solução :D Seguinte, teu problema é com as Transações. Qual a conexão que usas, IBX? Bem, é o seguinte, as transações possuem nível de isolamento, isto é, dependendo do tipo de transação vc realmente só pode ver o que já existia antes do início da sua transação e a partir daí só o que vc digitou. Aconselho vc a estudar os níveis de isolamento, pois para cada tipo de aplicação/programa vc pode usar um ou outro. No site http://www.firebase http://www.firebase.com.br/fb/ .com.br/fb/ tem bons artigos sobre isso. []'s - Original Message - From: Ronaldo Pena To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, January 05, 2007 5:18 PM Subject: [delphi-br] Delphi 7 x Firebird 1.53 Srs, Estou com o seguinte problema: tenho um sistema que é utilizado por 5 usuários. O que um usuário altera em um estação a outra não consegue visualizar. Para que as alterações apareçam os dois usuários devem sair do sistema e entrar novamente. Já configurei o meu banco para Forced Writes e mesmo assim o problema permanece. Alguém tem alguma idéia? --- spam free by SafestMail® www.safestmail.com.br SafO.X 1.0.160 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net net Chave de Identificação: 54568,459ea7e154962090696151 [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] ENVIO DE EMAIL
Caro Rubem, os anexos que estou mandando são pequenos. Quanto ao servidor,
quando mando via outlook, são enviados sem problema algum.
Obrigado pela dica, mas creio que não é nenhum destes motivos.
Continuo no aguardo de todos e um grande abraço.
Pedro - Desenvolvimento
Das duas uma:
1) O servidor não aceita e-mail nos anexos, ou;
2) Se aceita, os anexos são muito grandes.
Informe-se com o provedor do servidor de e-mail.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ENVIO DE EMAIL
Date: Fri, 5 Jan 2007 18:06:41 -0300
Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5.
Quando não uso anexo, o email é enviado com sucesso mas quando anexo algum
arquivo o email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725'; //senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); //
'[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL
DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses := TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.16.7/619 - Release Date: 7/1/2007 18:29
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro Jedi vcl - Install.bat
Você está tentando instalar os componentes como Administrador ou como usuário avançado? Pode estar aí o problema. Ah! E verifique onde você descompactou os arquivos. Aqui no serviço e em casa ele descompacta para uma pasta com nome muito comprido. O caminho onde havia instalado também estava muito grande. Solução: descompactei diretamente em D:\JVCL320\ e parou de dar erros. Instalou perfeitamente do Delphi 7. Já no BDS2006 precisei adicionar os arquivos BPL manualmente, mas também está ok agora. Espero ter ajudado. Um abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: sirmenon To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 1:57 AM Subject: [delphi-br] Erro Jedi vcl - Install.bat Nao consigo instalar o Jedi vcl. Quando eu vou executar o Install.bat da pasta JCL o windows da o seguinte erro: Windows cannot access the specified devices,path or file. You may not have appropriate permission to access the item. Estou usando WindowsXP com Delphi7 e a versao 3.2 do Jedi Vcl. Caso alguem puder me ajudar fico grato. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ENVIO DE EMAIL
Pedro, a lista não aceita anexos.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] ENVIO DE EMAIL
Date: Mon, 8 Jan 2007 08:11:00 -0300
Caro Rubem, os anexos que estou mandando são pequenos. Quanto ao servidor,
quando mando via outlook, são enviados sem problema algum.
Obrigado pela dica, mas creio que não é nenhum destes motivos.
Continuo no aguardo de todos e um grande abraço.
Pedro - Desenvolvimento
Das duas uma:
1) O servidor não aceita e-mail nos anexos, ou;
2) Se aceita, os anexos são muito grandes.
Informe-se com o provedor do servidor de e-mail.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ENVIO DE EMAIL
Date: Fri, 5 Jan 2007 18:06:41 -0300
Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5.
Quando não uso anexo, o email é enviado com sucesso mas quando anexo
algum
arquivo o email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725'; //senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); //
'[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL
DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses := TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.16.7/619 - Release Date: 7/1/2007
18:29
[As partes desta mensagem que não continham texto foram removidas]
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: [delphi-br] ENVIO DE EMAIL
Rs... ele não tava mandando anexos para a lista.. ele quer mandar anexos via
email pela aplicação dele...
Acho que vc não leu o email por inteiro =)
[]'s
Eric D. - Desenvolvimento e Soluções de Tecnologia
[EMAIL PROTECTED]
Talk is cheap, show me the code...
- Original Message -
From: Rubem Nascimento da Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 08, 2007 9:16 AM
Subject: Re: [delphi-br] ENVIO DE EMAIL
Pedro, a lista não aceita anexos.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] ENVIO DE EMAIL
Date: Mon, 8 Jan 2007 08:11:00 -0300
Caro Rubem, os anexos que estou mandando são pequenos. Quanto ao servidor,
quando mando via outlook, são enviados sem problema algum.
Obrigado pela dica, mas creio que não é nenhum destes motivos.
Continuo no aguardo de todos e um grande abraço.
Pedro - Desenvolvimento
Das duas uma:
1) O servidor não aceita e-mail nos anexos, ou;
2) Se aceita, os anexos são muito grandes.
Informe-se com o provedor do servidor de e-mail.
Sds.
From: Pedro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ENVIO DE EMAIL
Date: Fri, 5 Jan 2007 18:06:41 -0300
Pessoal, Feliz 2007 e um grande abraço para Todos.
Como sempre, venho recorrer a ajuda de vocês.
Estou usando a rotina abaixo para enviar email, com anexo, no Delphi 5.
Quando não uso anexo, o email é enviado com sucesso mas quando anexo
algum
arquivo o email não chega ao destino.
OBS: Ao executar o programa não é dado nenhum sinal de erro.
Desde já agradeço a Todos
ROTINA USADA:
var inPos: Integer;
begin
IdSMTP.AuthenticationType := atlogin;//Conexão com autenticação
IdSMTP.Host := TRIM(edtHost.Text) ; // 'smtp.diagramaba.com.br';
IdSMTP.Password := 'pa3725'; //senha
IdSMTP.Port := 25; //porta é sempre essa não mude isso
IdSMTP.Username := '[EMAIL PROTECTED]';
IdMessage.From.Name := TRIM(edtDE.Text); //
'[EMAIL PROTECTED]';
IdMessage.Recipients.EMailAddresses := TRIM(edtPara.Text); // EMAIL
DESTINO
IdMessage.CCList.EMailAddresses := TRIM(edtCC.Text);
IdMessage.BccList.EMailAddresses := TRIM(edtBCC.Text);
case cbPrioridade.ItemIndex of
0: IdMessage.Priority := mpHigh;
1: IdMessage.Priority := mpNormal;
2: IdMessage.Priority := mpLow;
end;
IdMessage.Subject := TRIM(edtAssunto.Text);
IdMessage.Body.Clear;
IdMessage.Body.Text := TRIM(mmTexto.Lines.Text);
if cbConfirma.Checked then
IdMessage.ReceiptRecipient.Text := TRIM(IdMessage.From.Text);
for inPos := 0 to mmAnexos.Lines.Count - 1 do
begin
if TRIM(mmAnexos.Lines.Strings[inPos]) '' then
TIdAttachment.Create(IdMessage.MessageParts,
TFileName(TRIM(mmAnexos.Lines.Strings[inPos])));
end;
try
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
except
On E: Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.16.7/619 - Release Date: 7/1/2007
18:29
[As partes desta mensagem que não continham texto foram removidas]
__
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] 4 primeiros registros da tabela
Oi pessoal... Como poderia fazer uma pesquisa mostrando os 4 primeiros registros de uma tabela? Isso em oracle e my sql. Um grande abraço a todos Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] 4 primeiros registros da tabela
No oracle tente isso : Select * From mgobr.vnc_apontamento a Where Rownum 5 Espero ter ajudado. Abraços, César Eduardo Teixeira Silva [EMAIL PROTECTED] Ober S/A - Industria e Comercio 19-3466-9200 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cleiton Enviada em: segunda-feira, 8 de janeiro de 2007 08:52 Para: Delhpi Assunto: [delphi-br] 4 primeiros registros da tabela Oi pessoal... Como poderia fazer uma pesquisa mostrando os 4 primeiros registros de uma tabela? Isso em oracle e my sql. Um grande abraço a todos Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [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] 4 primeiros registros da tabela
Em MySQL acho que é isso: Select * From mgobr.vnc_apontamento a Limit 4 - Original Message - From: Cesar - Informatica [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 12:00 PM Subject: RES: [delphi-br] 4 primeiros registros da tabela No oracle tente isso : Select * From mgobr.vnc_apontamento a Where Rownum 5 Espero ter ajudado. Abraços, César Eduardo Teixeira Silva [EMAIL PROTECTED] Ober S/A - Industria e Comercio 19-3466-9200 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cleiton Enviada em: segunda-feira, 8 de janeiro de 2007 08:52 Para: Delhpi Assunto: [delphi-br] 4 primeiros registros da tabela Oi pessoal... Como poderia fazer uma pesquisa mostrando os 4 primeiros registros de uma tabela? Isso em oracle e my sql. Um grande abraço a todos Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
RES: [delphi-br] 4 primeiros registros da tabela
Cleiton, No final da sua expressão SQL adicione limit 4 Atenciosamente, Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cleiton Enviada em: segunda-feira, 8 de janeiro de 2007 09:52 Para: Delhpi Assunto: [SPAM] [delphi-br] 4 primeiros registros da tabela Oi pessoal... Como poderia fazer uma pesquisa mostrando os 4 primeiros registros de uma tabela? Isso em oracle e my sql. Um grande abraço a todos Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] 4 primeiros registros da tabela
o ideal é usar: LIMIT 0,4 pq daí vc pode pegar um bloco de registros... se vc quiser do 1 ao 5, vc usa 1,4 manja? - Original Message - From: Douglas Uesato - Depto. de Informática To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 10:59 AM Subject: RES: [delphi-br] 4 primeiros registros da tabela Cleiton, No final da sua expressão SQL adicione limit 4 Atenciosamente, Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cleiton Enviada em: segunda-feira, 8 de janeiro de 2007 09:52 Para: Delhpi Assunto: [SPAM] [delphi-br] 4 primeiros registros da tabela Oi pessoal... Como poderia fazer uma pesquisa mostrando os 4 primeiros registros de uma tabela? Isso em oracle e my sql. Um grande abraço a todos Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1962 (20070108) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ordenação não funciona ??
Olá! Eu tive este problema, o caso era parecido com o seu, queria ordenar por uma coluna com SUM, na ocasião eu não consegui arrumar o problema e então tive que gerar um auxiliar para obter o resultado esperado, o interessante é que o SQL só não funcionava com os componentes DbExpress + ClientDataSet, fiz alguns teste com o BDE (TQuery) no mesmo banco e tudo funcionou. Atenciosamente, Enio José de Sousa -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Antonio Pires Enviada em: sábado, 6 de janeiro de 2007 20:49 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ordenação não funciona ?? tenho uma select para retornar os produtos mais comprados, a select é feita em uma view: SELECT CODIPROD, NOMEPROD, SUM(QTDAPROD) AS QTDA, SUM(TOTAPROD) AS TOTAL FROM MAISCOMPRADOS GROUP BY CODIPROD, NOMEPROD ORDER BY 3 DESC quando teste no ibexpert funcionou corretamente, retornando do produto mais comprada para o menos comprado. mas quando coloco no delphi, ela retorna do menos comprado para o mais comprado, é como se a opcao DESC não estivesse sendo reconhecida. testei no delphi 2005 e funcionou corretamente, mas preciso dela funcionando no delphi 7. utilizo o seguinte: DELPHI 7 sem nenhum update COMPONENTES DE ACESSO: SqlConnection SQLQuery DataSetProvider ClientDataSet Banco de Dados: FIREBIRD 1.5.2 espero que possam me ajudar Antonio Pires -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.16.6/617 - Release Date: 05/01/2007 11:11 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] 4 primeiros registros da tabela
No Oracle é no where rownum = 4 Eduardo Desenvolvimento (Anderson) escreveu: o ideal é usar: LIMIT 0,4 pq daí vc pode pegar um bloco de registros... se vc quiser do 1 ao 5, vc usa 1,4 manja? - Original Message - From: Douglas Uesato - Depto. de Informática To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Monday, January 08, 2007 10:59 AM Subject: RES: [delphi-br] 4 primeiros registros da tabela Cleiton, No final da sua expressão SQL adicione limit 4 Atenciosamente, Douglas Uesato 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 Cleiton Enviada em: segunda-feira, 8 de janeiro de 2007 09:52 Para: Delhpi Assunto: [SPAM] [delphi-br] 4 primeiros registros da tabela Oi pessoal... Como poderia fazer uma pesquisa mostrando os 4 primeiros registros de uma tabela? Isso em oracle e my sql. Um grande abraço a todos Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1962 (20070108) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
RES: [delphi-br] Digitar Maiúsculo no Memo
Como eu obrigo o usuário a digitar maiúsculo em um Memo? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Layout extrato bancário
Componente para importar/exportar formatos OFC OFX: http://www.nack.com.br/modules.php?name=Contentpa=showpagepid=9 [ ] s Gerhard Roger Nack [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Alexsandro Enviada em: domingo, 7 de janeiro de 2007 23:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Layout extrato bancário vou fazer, entrarei em contato com os bancos valeu pela dica eu vi que no site da caixa tem uma opção do Money, da microsoft ele gerou um arquivo .ofc com o conteúdo do extrato olhando a descrição de outros sistemas, vi que alguns arquivos importados tem a extensão .ofc e .ofx achei até um componente para ler arquivo no formato OFC http://www.torry.net/pages.php?id=274 http://www.torry.net/pages.php?id=274 especificação do OFC http://ferraroa.dyndns.org:8200/MnyBank/help/Specs_Ofc.html http://ferraroa.dyndns.org:8200/MnyBank/help/Specs_Ofc.html sobre o OFX http://www.ofx.net/ofx/default.asp http://www.ofx.net/ofx/default.asp caso eu achei mais coisas sobre o assunto eu coloco aqui Em 07/01/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] mailto:djpardalrocha%40hotmail.com escreveu: Esse layout segue o padrão CNAB, mas ele (o arquivo) varia conforme o banco. Informe-se com o(s) banco(s) que seu software irá trabalhar a respeito do manual de layout do arquivo de conciliação bancária. É desse manual que vc irá precisar. Sds. From: Paulo Alexsandro [EMAIL PROTECTED] mailto:dprogrammer.listas%40gmail.com dprogrammer.listas%40gmail.com Reply-To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Layout extrato bancário Date: Sun, 7 Jan 2007 17:05:37 -0300 Boa tarde Alguém sabe aonde consigo o layout de extrato bancário para que eu possa implementar a importação em um sistema que estou desenvolvendo sobre controle de finanças pessoais desde já eu agradeço Paulo Alexsandro - dprogrammer dprogrammer.wordpress.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] 4 primeiros registros da tabela
Faça um teste, Acho que vc pode incluir na clausula where o seguinte: and rownum 5 Não sei se funciona em mysql, mas em oracle é isso ai.. - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 11:44 AM Subject: Re: [delphi-br] 4 primeiros registros da tabela o ideal é usar: LIMIT 0,4 pq daí vc pode pegar um bloco de registros... se vc quiser do 1 ao 5, vc usa 1,4 manja? - Original Message - From: Douglas Uesato - Depto. de Informática To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 10:59 AM Subject: RES: [delphi-br] 4 primeiros registros da tabela Cleiton, No final da sua expressão SQL adicione limit 4 Atenciosamente, Douglas Uesato De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Cleiton Enviada em: segunda-feira, 8 de janeiro de 2007 09:52 Para: Delhpi Assunto: [SPAM] [delphi-br] 4 primeiros registros da tabela Oi pessoal... Como poderia fazer uma pesquisa mostrando os 4 primeiros registros de uma tabela? Isso em oracle e my sql. Um grande abraço a todos Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1962 (20070108) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Aplicação Distribuída em CD
Boa tarde, Estou começando agora com programação em Java e também em Delphi, e preciso desenvolver algumas aplicações para serem distribuídas em CD. Na opinião de vocês, o que seria melhor (Java ou Delphi) para desenvolver uma aplicação: - Robustas e funcionalidades - Fácil Instalação - Rode sem problemas em quaisquer (ou grande parte) das máquinas - Necessite o mínimo de suporte. Desde já agradeço a atenção de todos. Welson Tavares [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Formatação de Path da Base de dados a partir dos proto colos de conexão via Delphi
Olá. Estou usando IBO e pra carregar as informações a minha IBConnection,
preciso formatar o cominho da base de dados (Path). Sendo assim, estou
montando uma pequena rotina:
case Conexao.Protocolo of
Ord(cpLocal ): DmConexao.RKConexao.DatabaseName := Conexao.Local;
Ord(cpNetBEUI): DmConexao.RKConexao.DatabaseName :=
Format('\\%s\%s',[Conexao.Servidor,Conexao.Local]);
Ord(cpTCP_IP ): DmConexao.RKConexao.DatabaseName := Format('%s:%s'
,[Conexao.Servidor,Conexao.Local]);
Ord(cpNovell ): DmConexao.RKConexao.DatabaseName := Format('[EMAIL
PROTECTED]'
,[Conexao.Servidor,Conexao.Local]);
end;
Mas as informações que me foram passadas quanto à formatação do path para
NetBEUI e Novell não procedem.
Alguém sabe a formatação correta qual é ??
Para local basta informarmos o caminho da base, para TCP/IP, colocamos um
dois pontos ( : ) entre o server e o caminho (Server : Caminho). E quanto ao
Novell e ao NetBEUI ??
Aguardo ajuda dos amigos. Até a próxima...
Rodrigo Madureira Barbosa
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Funcao TAB
Amigos, Alguem tem alguma função ou procedure que tenha a mesma função do vbtab no visual basic (faz tabulação). Pois preciso fazer uma importação de dados de um arquivo texto e o mesmo vem com os dados todos embaralhados no qual a função tipo tabulacao me ajudaria a fazer isto para fazer a importação do arquivo, pois nao tem como eu pegar por copy ou ler o tamanho da string, pois os campos em determinada ordem ficam embaralhados. Se alguem souber ficarei grato pela ajuda. Abraço a todos Rodrigo __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ordenação não funciona ??
Para esses casos aconselho usar o número da coluna no order by, por exemplo: SELECT data, count(*) as Quant, sum(valor) as Soma FROM notas ORDER BY 3 Nesse caso ficara ordenado pela coluna Soma. Abraços, Alessandro. - Original Message - From: Enio_listas To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 2:15 PM Subject: RES: [delphi-br] Ordenação não funciona ?? Olá! Eu tive este problema, o caso era parecido com o seu, queria ordenar por uma coluna com SUM, na ocasião eu não consegui arrumar o problema e então tive que gerar um auxiliar para obter o resultado esperado, o interessante é que o SQL só não funcionava com os componentes DbExpress + ClientDataSet, fiz alguns teste com o BDE (TQuery) no mesmo banco e tudo funcionou. Atenciosamente, Enio José de Sousa -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Antonio Pires Enviada em: sábado, 6 de janeiro de 2007 20:49 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ordenação não funciona ?? tenho uma select para retornar os produtos mais comprados, a select é feita em uma view: SELECT CODIPROD, NOMEPROD, SUM(QTDAPROD) AS QTDA, SUM(TOTAPROD) AS TOTAL FROM MAISCOMPRADOS GROUP BY CODIPROD, NOMEPROD ORDER BY 3 DESC quando teste no ibexpert funcionou corretamente, retornando do produto mais comprada para o menos comprado. mas quando coloco no delphi, ela retorna do menos comprado para o mais comprado, é como se a opcao DESC não estivesse sendo reconhecida. testei no delphi 2005 e funcionou corretamente, mas preciso dela funcionando no delphi 7. utilizo o seguinte: DELPHI 7 sem nenhum update COMPONENTES DE ACESSO: SqlConnection SQLQuery DataSetProvider ClientDataSet Banco de Dados: FIREBIRD 1.5.2 espero que possam me ajudar Antonio Pires -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.16.6/617 - Release Date: 05/01/2007 11:11 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,45a26f07457031934111587 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicação Distribuída em CD
Minha opnião pessoal... - Robustas e funcionalidades ( Os dois...) - Fácil Instalação ( Acho o DELPHI mais facil... mas tudo depende da sua aplicação em si...) - Rode sem problemas em quaisquer (ou grande parte) das máquinas ( ai depende.. vai rolar LINUX ) - Necessite o mínimo de suporte. ( creio que o DELPHI se encaixa melhor aqui...mas também vai depender da sua aplicação... ) O melhor mesmo e ver em qualquer VC se encaixa melhor... aquela que é mais facil pra vc Não é a linguagem que faz o programa e sim VC, ela apenas te da as ferramentas, então veja em qual vc tem mais pratica etc e tal... que tudo fica mais facil... É claro veja as FERRAMENTAS de cada uma, as que te dão mais suporte, etc e tal... Luiz Escobar Analista/Desenvolvedor: WEB - HTML/JavaScript/PHP/MySQL WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase DOS - Clipper/Assembler xBase SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k LINUX - LAZARUS/Kylix/MySQL; http://www.megasistema.com.br - Original Message - From: Welson Tavares To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 2:47 PM Subject: [delphi-br] Aplicação Distribuída em CD Boa tarde, Estou começando agora com programação em Java e também em Delphi, e preciso desenvolver algumas aplicações para serem distribuídas em CD. Na opinião de vocês, o que seria melhor (Java ou Delphi) para desenvolver uma aplicação: - Robustas e funcionalidades - Fácil Instalação - Rode sem problemas em quaisquer (ou grande parte) das máquinas - Necessite o mínimo de suporte. Desde já agradeço a atenção de todos. Welson Tavares [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] Delphi 7 x Firebird 1.53
Recomendo a leitura do artigo abaixo. Através dele e com dicas aqui da lista consegui resolver o problema de atualização de dados em todas as máquinas. http://www.firebase.com.br/fb/artigo.php?id=232 Obrigado a todos! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ronaldo Pena Enviada em: segunda-feira, 8 de janeiro de 2007 09:13 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Delphi 7 x Firebird 1.53 Alessandro, Obrigado pela dica. Vou verificar e assim que tiver o resultado, notifico a todos. Também estou sofrendo muito com isso! _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Alessandro DUARTE de Moraes Enviada em: sexta-feira, 5 de janeiro de 2007 17:52 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: Re: [delphi-br] Delphi 7 x Firebird 1.53 Já sofri com isso ... graças a Deus achei a solução :D Seguinte, teu problema é com as Transações. Qual a conexão que usas, IBX? Bem, é o seguinte, as transações possuem nível de isolamento, isto é, dependendo do tipo de transação vc realmente só pode ver o que já existia antes do início da sua transação e a partir daí só o que vc digitou. Aconselho vc a estudar os níveis de isolamento, pois para cada tipo de aplicação/programa vc pode usar um ou outro. No site http://www.firebase http://www.firebase http://www.firebase.com.br/fb/ .com.br/fb/ .com.br/fb/ tem bons artigos sobre isso. []'s - Original Message - From: Ronaldo Pena To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Friday, January 05, 2007 5:18 PM Subject: [delphi-br] Delphi 7 x Firebird 1.53 Srs, Estou com o seguinte problema: tenho um sistema que é utilizado por 5 usuários. O que um usuário altera em um estação a outra não consegue visualizar. Para que as alterações apareçam os dois usuários devem sair do sistema e entrar novamente. Já configurei o meu banco para Forced Writes e mesmo assim o problema permanece. Alguém tem alguma idéia? --- spam free by SafestMail® www.safestmail.com.br SafO.X 1.0.160 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] mailto:spam%40vetorial.net net Chave de Identificação: 54568,459ea7e154962090696151 [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]
ENC: [delphi-br] OFC / OFX
Componente para importar/exportar formatos OFC OFX: http://www.nack.com.br/modules.php?name=Contentpa=showpagepid=9 [ ] s Gerhard Roger Nack [EMAIL PROTECTED] De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo Alexsandro Enviada em: domingo, 7 de janeiro de 2007 23:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Layout extrato bancário vou fazer, entrarei em contato com os bancos valeu pela dica eu vi que no site da caixa tem uma opção do Money, da microsoft ele gerou um arquivo .ofc com o conteúdo do extrato olhando a descrição de outros sistemas, vi que alguns arquivos importados tem a extensão .ofc e .ofx achei até um componente para ler arquivo no formato OFC http://www.torry.net/pages.php?id=274 http://www.torry.net/pages.php?id=274 especificação do OFC http://ferraroa.dyndns.org:8200/MnyBank/help/Specs_Ofc.html http://ferraroa.dyndns.org:8200/MnyBank/help/Specs_Ofc.html sobre o OFX http://www.ofx.net/ofx/default.asp http://www.ofx.net/ofx/default.asp caso eu achei mais coisas sobre o assunto eu coloco aqui Em 07/01/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] mailto:djpardalrocha%40hotmail.com escreveu: Esse layout segue o padrão CNAB, mas ele (o arquivo) varia conforme o banco. Informe-se com o(s) banco(s) que seu software irá trabalhar a respeito do manual de layout do arquivo de conciliação bancária. É desse manual que vc irá precisar. Sds. From: Paulo Alexsandro [EMAIL PROTECTED] mailto:dprogrammer.listas%40gmail.com dprogrammer.listas%40gmail.com Reply-To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: [delphi-br] Layout extrato bancário Date: Sun, 7 Jan 2007 17:05:37 -0300 Boa tarde Alguém sabe aonde consigo o layout de extrato bancário para que eu possa implementar a importação em um sistema que estou desenvolvendo sobre controle de finanças pessoais desde já eu agradeço Paulo Alexsandro - dprogrammer dprogrammer.wordpress.com . [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Cursor
faça assim: Screen.Cursor :=crHourglass; // ampulheta Screen.Cursor := crDefault; // Normal Screen.Cursor := crSQL; // ampulheta SQL.. e por ai vai. Em 08/01/07, willer [EMAIL PROTECTED] escreveu: Olá, Alguém sabe o que devo fazer para modificar o cursor da minha aplicação? Consigo modificar o cursor para determinados componentes e para o form, mas gostaria de saber se tem como modificar o cursor padrão. Willer [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Cursor
Valeu Eduardo. Agora é só eu colocar meu cursor customizado e pronto. Eu tinha conseguido colocar um corsor customizado em um form, mas não na aplicação inteira. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br Sent: Monday, January 08, 2007 4:32 PM Subject: Re: [delphi-br] Cursor faça assim: Screen.Cursor :=crHourglass; // ampulheta Screen.Cursor := crDefault; // Normal Screen.Cursor := crSQL; // ampulheta SQL.. e por ai vai. Em 08/01/07, willer [EMAIL PROTECTED] escreveu: Olá, Alguém sabe o que devo fazer para modificar o cursor da minha aplicação? Consigo modificar o cursor para determinados componentes e para o form, mas gostaria de saber se tem como modificar o cursor padrão. Willer [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1963 (20070108) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] off-topic: Quais DLLs fazem parte do client do SQL-Server
Pessoal: Gostaria de criar um instalador proprio, que instalasse a parte do client do SQL-Server 2000 e 2005, sem ter de usar o instalador do CD do SQL-Server. Pergunta 1: --- Sabem se isso e´ viavel ? (obs.: Vou usar apenas para facilitar meu trabalho em alguns clientes - todos os clientes de meus sistemas possuem o SQL-Server devidamente licenciado). Pelo que eu descobri ate´ o momento, as DLLs que fazem parte do client do SQL-Server ficam em C:\WINDOWS\SYSTEM32, e sao estas: DBNMPNTW.DLL DBNETLIB.DLL DBMSRPCN.DLL DBMSASDSN.DLL DBMSVINN.DLL Vi essas DLLs atraves do menu Iniciar/Programas/Microsoft SQL Server/Client Network Utility. Pergunta 2: - Alguem sabe se basta copiar essas DLLs para \WINDOWS\SYSTEM32 ? Fiz um teste em algumas maquinas, copiando manualmente essas DLLs, e parece que funcionou bem, mas nao sei se pode aparecer algum problema futuro que eu nao tenha percebido ainda. Grato pela atencao de todos Paulo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Cursor
Blz willer, bom trabalho aee. Em 08/01/07, willer [EMAIL PROTECTED] escreveu: Valeu Eduardo. Agora é só eu colocar meu cursor customizado e pronto. Eu tinha conseguido colocar um corsor customizado em um form, mas não na aplicação inteira. - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, January 08, 2007 4:32 PM Subject: Re: [delphi-br] Cursor faça assim: Screen.Cursor :=crHourglass; // ampulheta Screen.Cursor := crDefault; // Normal Screen.Cursor := crSQL; // ampulheta SQL.. e por ai vai. Em 08/01/07, willer [EMAIL PROTECTED]willer%40personalcom.com.br escreveu: Olá, Alguém sabe o que devo fazer para modificar o cursor da minha aplicação? Consigo modificar o cursor para determinados componentes e para o form, mas gostaria de saber se tem como modificar o cursor padrão. Willer [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 1963 (20070108) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Funcao TAB
O vbTab que vc menciona não é uma função, e sim nada mais é do que uma constante definida dentro do VB. Abra o seu VB 6, abra um projeto qualquer dentro do VB e depois vá em F2, e depois procure por vbTab, e vc verá que é uma constante, e não uma função. Vc pode vc mesmo definir uma constante dentro do seu código em Delphi com o valor do caracter TAB, assim: const CHR_TAB = #9 Sds. From: Rodrigo Magno [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Funcao TAB Date: Mon, 8 Jan 2007 05:13:49 -0800 (PST) Amigos, Alguem tem alguma função ou procedure que tenha a mesma função do vbtab no visual basic (faz tabulação). Pois preciso fazer uma importação de dados de um arquivo texto e o mesmo vem com os dados todos embaralhados no qual a função tipo tabulacao me ajudaria a fazer isto para fazer a importação do arquivo, pois nao tem como eu pegar por copy ou ler o tamanho da string, pois os campos em determinada ordem ficam embaralhados. Se alguem souber ficarei grato pela ajuda. Abraço a todos Rodrigo __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] _ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
Re: RES: [delphi-br] Usar serviço do correio para conseguir CEP através da aplic
Parabéns pela grande contribuição
[delphi-br] Erro em DbLookUpComboBox
Pessoal, Estou tentando ver os dados de uma outra tabela em meu form atraves de um dblookupcombobox, o form de clientes tenta acessar a tabela de situacao, ja criei o relacionamento que segue abaixo, mas quando vou cadastrar um novo cliente e clico no dblookupcombobox ele dar a seguinte mensagem: LIST INDEX OUT OF BOUNDS(2) e mostra todos os dados que estao na tabela repetidos. Depois clico novamente no dblookupcombobox e dar a seguinte mensagem: DATABASE SERVER ERROR: request synchronization error. Alguem poderia mim ajudar ? Alter Table CLIENTES add Constraint pk_CLIENTES_CODCLI Primary Key (CODCLI); Alter Table SITUACAO add Constraint pk_SITUACAO_CODSIT Primary Key (CODSIT); Alter Table CLIENTES add Constraint fk_situacao_clientes Foreign Key (CODSIT) references SITUACAO (CODSIT) on update cascade on delete no action ; coloquei os seguintes componentes no form uma sqlquery e com a seguinte linha de comando: SELECT CODSIT, DESCRI FROM SITUACAO um datasource para ligar a sqlquery a ele mesmo e depois fiz as devidas ligacoes. Ele esta gravando certo quando eu vou escolhendo as opcoes sem abrir o dblook..., mas quando abre dar esses erros. Se alguem pudr mim dar uma ideia seria otimo. Valeu Leonardo Anselmo [As partes desta mensagem que não continham texto foram removidas]
