Re: Res: [delphi-br] Programador Delphi (CAMPO GRANDE-MS)

[Prisma - GMAIL]

  Pessoal,

Independente de tudo, mas tudo mesmo, o Douglas (que fez o anuncio que 
gerou toda esta thread) foi corretissimo ao colocar o anúncio e já 
informar o salário.
Não entro no mérito se é muito ou pouco, adequado ou não a região dele, 
mas sim ao fato de ele ter deixado bem claro a faixa salarial que ele 
pratica , ou pode pagar.

Sucesso a ele na sua busca.

Moacir

Em 03/09/2010 16:50, Ricardo Kenji escreveu:
> Sou de Campo Grande/MS, na minha opinião não é o custo de vida que é
> mais barato, mas sim a valorização do serviço no estado em geral. Para
> se ter uma idéia, o salário inicial de São Paulo parece que é quase o
> teto daqui de MS.
> Não conheço ninguém na minha área que ganhe muito mais que isso por aqui.
>
> Aqui neste estado não existe campo para a informática, não existe uma
> procura por profissionais, podem reparar, acho que um dos únicos
> anúncios sobre vagas para a cidade foi este do colega Douglas, o que é
> forte aqui é o agronegócio, parece que aos poucos isso vai mudando
> (assim espero), abrindo oportunidades para outros nichos, mas atualmente
> não.
>
>
>
> Em 03/09/2010 12:57, Eny Urias escreveu:

Re: [delphi-br] Delphi 6, 7 ou 2006?

[Prisma - GMAIL]

   Julio,

Eu migraria pro 7 sem nem pestanejar..

Mesmo sendo ultrapassado, descontinuado, execrado pelo pessoal da 
Embarcadero, é NA MINHA OPINIÃO, a melhor versão do Delphi que já 
lançaram. Alem de ter zilhoes de componentes compativeis e em permanente 
atualização (esqueceram de avisar as empresas que desenvolvem 
componentes que o Delphi 7 ta ultrapassado...).
Vou ressaltar de novo: NA MINHA OPINIÃO.

Sucesso !!

Moacir


Em 20/07/2010 08:43, Softbyte Sistemas escreveu:
> Boa Sorte Pra Voce Então Bruno!
>
> mito ? bom aqui mesmo na lista eu nunca li post de Delphi 4,6 ou 8  
>
>
>
> From: Bruno Lichot
> Sent: Monday, July 19, 2010 9:46 PM
> To: delphi-br@yahoogrupos.com.br
> Subject: RE: [delphi-br] Delphi 6, 7 ou 2006?
>
>
>
> Isso é mito...
>
> Fale com propriedade. O Delphi 7 esta descontinuado e ultrapassado, em nada é 
> melhor que a versão 2006 que também já esta descontinuada.
>
> Use você mesmo e comprove. Verá que o 2006 é a melhor opção.
>
> Tive vários sistema de missão critica em Delphi 2006 com mais de 2 mil 
> conexões simultâneas usando DBExpress e FireBird, muito melhor do que Delphi 
> 7.
>
> E venho migrando o mesmo sistema a anos, do Delphi 5 para o Delphi 7, do 7 
> para o Delphi 2006 update 2, depois para o 2007 e 2009, e agora esta no 2010.
>
> From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On 
> Behalf Of Softbyte Sistemas
> Sent: segunda-feira, 19 de julho de 2010 21:01
> To: delphi-br@yahoogrupos.com.br
> Subject: Re: [delphi-br] Delphi 6, 7 ou 2006?
>
> Vai de Delphi 7 com certeza!
>
> Mesmo pq, todas as versões pares do Delphi não presta
> e de 2005 pra cima parece que virou VB{osta} 
>
> Ghost
>
> From: Júlio César Santiago Guiótti
> Sent: Monday, July 19, 2010 4:57 PM
> To: delphi-br@yahoogrupos.com.br
> Subject: [delphi-br] Delphi 6, 7 ou 2006?
>
> Olá,
>
> hoje no projeto no qual trabalho utilizamos o Delphi 6.
> Estamos pensando em migrar para Delphi 2006, pois é a versão mais atual que
> possuímos licença.
> O projeto é um sistema desktop.
>
> No entanto, li e ouvi inúmeras críticas à versão 2006.
> Compensa o desgaste para migração?
> Me recomendaram migrar para a versão 7, que também possuímos licença.
>
> Obrigado,
> Júlio César Santiago Guiótti
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> Click 
> here
>   to report this email as spam.
>
> This message has been scanned for viruses by 
> MailController  .
>
> [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] Importação de Arquivo

[Prisma - GMAIL]

  Walter,

Acredito que o StringReplace resolva a parada sem problemas:

MeuTextoCorrigido :=  StringReplace(MeuTexto,'","','";"',[rfReplaceAll]);


Sucesso !!

Moacir

Em 13/07/2010 17:09, Walter Chagas (Bol) escreveu:
> é mas e a virgula dos valores decimais??
>
> É um enigma essa parada daí.
>
> []s
>
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br
> http://delphitocorporerm.blogspot.com/
> http://twitter.com/wchagas
> MSN: whitesock...@hotmail.com
> SKYPE: WalterChagasJr
>
>
>- Original Message -
>From: Marcelo
>To: delphi-br@yahoogrupos.com.br
>Sent: Tuesday, July 13, 2010 5:04 PM
>Subject: Res: RES: [delphi-br] Importação de Arquivo
>
>
>
>
>
>Já pensou em dar um StringReplace nas "," trocando por ";" ai voce teria um
>separador padrão ai facaria muito mais facil de trabalhar
>
>
>De: Ralp Alves Bezerra
>Para: delphi-br@yahoogrupos.com.br
>Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
>Assunto: RES: [delphi-br] Importação de Arquivo
>
>Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
>das aspas duplas e delimitadas por vírgula.
>
>Existe um campo no formato "100.000,00" que também contém vírgulas em seu
>conteúdo.
>
>De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
>nome de Rubem Nascimento da Rocha
>Enviada em: terça-feira, 13 de julho de 2010 15:54
>Para: delphi-br
>Assunto: RE: [delphi-br] Importação de Arquivo
>Prioridade: Alta
>
>Qual é exatamente a sua dificuldade?
>
>Sds.
>
>To: delphi-br@yahoogrupos.com.br
>From: ral...@gmail.com
>Date: Tue, 13 Jul 2010 15:50:44 -0300
>Subject: [delphi-br] Importação de Arquivo
>
>Nobres colegas, estou tentando importar para o meu banco de dados um 
> arquivo
>no formato txt com o formato abaixo:
>
>
> "601","029",201000,"02","01",20100512,"12050002",201005,"04","122","0003","2
>","002","","33901400","100.000,00"
>
>
> "601","029",201000,"02","01",20100517,"17050003",201005,"04","122","0003","2
>","002","","33901400","130.00"
>
>
> "601","029",201000,"02","01",20100517,"17050004",201005,"04","122","0003","2
>","002","","33901400","1.000,00"
>
>
> "601","029",201000,"02","01",20100524,"24050005",201005,"04","122","0003","2
>","003","","33903000","10.000,00"
>
>
> "601","029",201000,"03","01",20100503,"03050009",201005,"04","122","0003","2
>","006","","33903900","100,00"
>
>Já vasculhei a net e até o momento ainda não consegui nenhum êxito.
>
>Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
>neste formato?
>
>Estou utilizando Delphi 7/Firebird 2.1
>
>Grato.
>
>Ralp Alves
>
>__
>CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
>VEJA COMO.
>http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
>
> Live:Hotmail:Tagline:senDimensao:CONVERSECO85:->
>&ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
>
>[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]
>
>
>
>
>
> [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] Delphi Prism

[Prisma - GMAIL]

  Walter,

Então a Embarcadero não esta fazendo a parte dela no que tange a própria 
divulgação enquanto empresa e seus produtos...

Sucesso !

Moacir


Em 08/07/2010 22:25, Walter Chagas (Bol) escreveu:
> O problema maior é que não há muita divulgação do delphi atualmente. Pra voce 
> ter uma ideia, muita gente conversa comigo e fala que o Delphi foi 
> descontinuado porque a Borland não o fabrica mais..
>
> Estas pessoas, nem sabiam da existencia da Embarcadero.
>
> []s
>
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br
> http://delphitocorporerm.blogspot.com/
> http://twitter.com/wchagas
> MSN: whitesock...@hotmail.com
> SKYPE: WalterChagasJr
>
>
>- Original Message -
>From: Eny Urias
>To: delphi-br@yahoogrupos.com.br
>Sent: Thursday, July 08, 2010 10:06 PM
>Subject: Res: [delphi-br] Delphi Prism
>
>
>
>Entrando de "gaiata" na conversa quero deixar registrado o que me 
> aconteceu há
>alguns dias.
>
>Fui contratada por uma empresa para desenvolver um sistema em Delphi...
>Disseram, até o dia da contratação, que era difícil encontrar programador 
> em
>Delphi aqui no interior e bla bla bla...
>Um dia antes de começar na empresa me perguntaram se eu tinha conhecimento 
> em
>.Net... Ãh? Como assim??? Não era Delphi?
>
>Aí responderam "Queremos mudar para .Net por causa de todo o respaldo 
> que a
>Microft tem. Nós não podemos arriscar a começar um sistema utilizando um
>programa que a cada hora uma empresa é dona... Primeiro a Borland, depois A
>CodeGear, agora a Embarcadero... E daqui um tempo? Como vai ser? Preferimos
>mudar agora para que futuramente não sejamos pegos de surpresa..."
>
>Tem muita empresa pensando assim...
>
>--
>Eny Trova Urias
>
>"Somos o que repetitivamente fazemos, portanto, a excelência não é um 
> feito, mas
>um hábito"- Aristóteles
>
>
>De: Fortes Marcelo
>Para: delphi-br@yahoogrupos.com.br
>Enviadas: Quinta-feira, 8 de Julho de 2010 21:41:23
>Assunto: Re: Res: [delphi-br] Delphi Prism
>

Re: Res: [delphi-br] TcxGrid Zebrado

[Prisma - GMAIL]

Murilo,

Suponhamos que o nome de teu grid  seja GridDados:

 GridDadosDBTableView1.Styles.ContentEven := cxStyle1;
 GridDadosDBTableView1.Styles.ContentOdd :=  cxStyle2;

No meu caso aqui uso um DbTableView, adapte para o teu caso.

Sucesso !!

Moacir



Em 06/07/2010 15:15, Murilo Cunha escreveu:
> Moacir,
>
> De-me mais detalhes (exemplos).
> Nao estou conseguindo fazer este grid zebrado (de acordo com valores das
> celulas, nao linhas impares ou pares).
>
> Obrigado
> MuriloCunha
>
>
>
> On 06/07/2010 10:33, Prisma - GMAIL wrote:
>> Elaine,
>>
>> Use o Style da view do proprio grid para isto..
>>
>> ContentOdd ou ContentEven
>>
>> Sucesso !!
>>
>> Moacir
>>
>>
>> Em 06/07/2010 10:23, Murilo Cunha escreveu:
>>
>>> Elaine,
>>>
>>> Ainda nao deu certo!!
>>> Será que estah faltando alguma coisa?
>>> Poderia me enviar um exemplo?
>>>
>>> Obrigado
>>> MuriloCunha
>>>
>>>
>>>
>>>
>>
>> 
>>
>>
>
>
> 
>

Re: Res: [delphi-br] TcxGrid Zebrado

[Prisma - GMAIL]

  Elaine,

Use o Style da view do proprio grid para isto..

ContentOdd ou ContentEven

Sucesso !!

Moacir


Em 06/07/2010 10:23, Murilo Cunha escreveu:
>
> Elaine,
>
> Ainda nao deu certo!!
> Será que estah faltando alguma coisa?
> Poderia me enviar um exemplo?
>
> Obrigado
> MuriloCunha
>
>
>

Re: [delphi-br] MySQL server has gone away

[Prisma - GMAIL]

  Levy,

Sua base esta na web, pelo que vi em sua outra mensagem.

Faça o seguinte:

- Abra a conexão
- Faça as operações desejadas
- Feche a conexão

Caso vc precise apresentar os dados do site no teu sistema:

- conecte
- faça o select desejado, transfira os dados para um clientdataset ou 
para uma tabela de memória
- desconecte
- Ao efetuar qualquer atualização de dados na base local, atualize na 
base remota tb.

Para atualizar os dados no banco de dados do site:

- conecte
- faça a atualização necessária
- desconecte


Não deixe a conexão aberta...
Tenho o mesmo cenário aqui e da forma descrita acima funciona 100% .. 
sem problemas.

Sucesso !!

Moacir


Em 05/07/2010 17:04, Levy Pereira escreveu:
> Caro Moacir,
>
> negativo. Não houve resposta diferente a anterior.
>
>
>
>
> ____
> From: Prisma - GMAIL
> To: delphi-br@yahoogrupos.com.br
> Sent: Mon, July 5, 2010 2:47:06 PM
> Subject: Re: [delphi-br] MySQL server has gone away
>
>   
>
> Levy,
>
> Faça esta alteração, acredito que deva resolver teu problema.
>
> if not BD.Conexao.Connected then
> BD.Conexao.Connected := True;
>
> try
>
> if not BD.Conexao.Intransaction then
>
> BD.Conexao.StartTransaction;
> 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.Conexao.Commit;
> MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64 );
> passou := True;
> except
>
> on e: exception do
> begin
>
> BD.Conexao.Rollback;
>
> MessageBox( Handle, 'Erro ao adicionar Fornecedor '+#13+e.message, 
> 'Informação', 64 );
> passou := false;
>
> end;
> end
>
> BD.01.Refresh;
>
> Sucesso !!
>
> Moacir
>
> Em 05/07/2010 14:01, Levy Pereira 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]
>
>
>
> 
>

Re: [delphi-br] MySQL server has gone away

[Prisma - GMAIL]

Levy,

Faça esta  alteração, acredito que deva resolver teu problema.

if not BD.Conexao.Connected  then
BD.Conexao.Connected := True;

try

   if not BD.Conexao.Intransaction then

  BD.Conexao.StartTransaction;
   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.Conexao.Commit;
   MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64 );
   passou := True;
except

on e: exception do
begin

   BD.Conexao.Rollback;

   MessageBox( Handle, 'Erro ao adicionar Fornecedor '+#13+e.message, 
'Informação', 64 );
   passou := false;

end;
end

BD.01.Refresh;


Sucesso !!

Moacir


Em 05/07/2010 14:01, Levy Pereira 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]
>
>
>
> 
>

Re: [delphi-br] Duvida NFe com duas CFOP

[Moacir - GMAIL]

Rubem,

Convivo com os mesmos problemas aqui em Porto Alegre.

Mas é bom saber que existem exceções.

Sucesso !

Moacir


Em 17/06/2010 11:01, Rubem Rocha escreveu:
> Discordo de você quando diz que fui infeliz em meu comentário. A experiência
> mostra que muitos contadores não possuem o devido conhecimento acerca do
> tema abordado, ou seja, ainda acreditam que CFOP e Natureza de Operação é a
> mesma coisa. Ainda mais quando o assunto é nota fiscal eletrônica (NF-e), aí
> é que eles se enrolam mais ainda! Fico feliz que você e outros colegas desta
> lista sejam (raras) exceções!
>
> Minha observação é com base na minha experiência, cuja mesma é embasada em
> fatos. Concordo que os contadores é quem deveriam ter esse entendimento, mas
> em termos de NF-e prefiro dirimir minhas dúvidas com experientes analistas
> de negócio e consultores de ERPs. Respeito sua opinião, assim como gostaria
> que você respeitasse a minha, pois ela é baseada em experiência e vivência
> de fatos.
>
> Sds.
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
> nome de Gildenor - Autogere Informática
> Enviada em: quarta-feira, 16 de junho de 2010 23:17
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] Duvida NFe com duas CFOP
>
> Caro Luis,
>
> Parabéns!!!
>
> Att,
>
>

Re: [delphi-br] Função Explode

[Moacir - GMAIL]

Evaldo,

Use esta que adaptei do PHP:

function Explode(delimiter:string; source:string) : TStringList;
var
   c : word;
begin
   Result:=TStringList.Create;
   c:=0;
   while source<>'' do
   begin
 if Pos(delimiter,source)>0 then
 begin
   Result.Add(Copy(Source,1,Pos(delimiter,source)-1));
   Delete(Source,1,Length(Result[c])+Length(delimiter));
 end
 else
 begin
   Result.Add(Source);
   Source:='';
 end;
 inc(c);
   end;
end;


Sucesso !

Moacir


Em 15/06/2010 11:55, Evaldo escreveu:
> Delphi tem alguma função explode nativa?
> ou vou ter que implementar?
>
> por exemplo:
>
> A string:
> str := teste,teste,teste,teste
> explode(str,',');
>
> retorna uma stringlist:
> teste
> teste
> teste
> tese
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>

RES: [delphi-br] OFF Treinamento Embarcadero

[gmail]

Este eu vi mas não tem treinamento em SC.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Bruno Lichot
Enviada em: quarta-feira, 12 de maio de 2010 09:58
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] OFF Treinamento Embarcadero

 

  

www.aquasoft.com.br

From: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
] On Behalf Of gmail
Sent: quarta-feira, 12 de maio de 2010 09:50
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> 
Subject: [delphi-br] OFF Treinamento Embarcadero

Bom Dia amigos da lista.

Gostaria de saber como fico sabendo os locais que promovem treinamento
Embarcadero, preferencialmente em Santa Catarina mesmo.

Só perguntei porque procurei muito e só achei em outros estados.

Obrigado

[As partes desta mensagem que não continham texto foram removidas]

Click here
<https://www.mailcontroller.altohiway.com/sr/+LyQSnLYl6XTndxI!oX7UlXrL06QsU8
vpB5vE!Q0Pooc10FSdMNeY89P9Zv62mQ6!BRnKHvkql3C8dmstCo9uQ==> to report this
email as spam.

This message has been scanned for viruses by MailController
<http://www.MailController.altohiway.com/> .

[As partes desta mensagem que não continham texto foram removidas]



Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 9.0.819 / Banco de dados de vírus: 271.1.1/2867 - Data de
Lançamento: 05/12/10 03:26:00



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] OFF Treinamento Embarcadero

[gmail]

Bom Dia amigos da lista.

 

 

Gostaria de saber como fico sabendo os locais que promovem treinamento
Embarcadero, preferencialmente em Santa Catarina mesmo.

Só perguntei porque procurei muito e só achei em outros estados.

 

Obrigado



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] ajuda sql uso do or ?

[Moacir - GMAIL]

Alessandra,

Tente assim:

SELECT NOME,SEXO FROM CLIENTE WHERE SEXO not in ('F','M')


Sucesso,

Moacir


Em 22/04/2010 22:23, alessandra porto escreveu:
>  Peguei um banco velho de cadastros de clientes
> que possui uma serie de erros e preciso
> pesquisar todos os clientes que estão cadastrados
> com SEXO diferente do padrão  F ou M
>
>   Algo como:
>
>SELECT NOME,SEXO FROM CLIENTE WHERE SEXO<>  'F' or 'M'
>
>
>mas assim não funcionou
>
>como faço para mostrar os registros que sejam diferentes
> de F ou M   no  firebird  
>
> Grata  a todos que colaborarem
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>

Re: [delphi-br] MySQL Web, Conexão via Zeus , procedimentos

[Moacir - GMAIL]

Opa !!

Quer dizer que pra me conectar com qualquer banco de dados utilizando 
ZEOS não preciso de DLL´s ??

Acredito que vc esteja errado.

Eric, as DLL´s necessárias para a conexão com os seus respectivos bancos 
de dados vc encontra no subdiretorio LIB da instalação do ZEOS.


Sucesso !!

Moacir

Em 22/04/2010 21:22, Fabiano Almeida escreveu:
> ZeosDBO, na versão 6.6 (a última estavel) não necessita de DLLs para conexão
>
> Em 22/04/2010 20:54, eric_developer escreveu:
>
>> Pessoal boa noite,
>>
>> Fiz um pequeno teste com Delphi 7+Zeus, grid para listar todos os
>> registros da tabela de um banco MySQL (5.1) que esta na internet,
>> minhas perguntas são:
>> 1) qual protocolo devo selecionar ? (no Zeus/TZConnection)
>> 2) o que eu preciso instalar para rodar ? DLLs
>>
>> Apesar que consegui fazer funcionar, talvez foi de forma forçada,
>> gostaria de saber o procedimento correto.
>>
>> Grato
>>
>> Eric

Re: [delphi-br] Protesto

[Moacir - GMAIL]

Um pequeno comentário:

Todos aqui ajudam de maneira gratuita e dentro do tempo que dispõe para 
isto.
O trabalho de moderação, acredito, seja feita nos mesmos moldes..

Portanto, sejamos pacientes.

Sucesso a todos !

Moacir

Em 19/04/2010 09:06, Walter Chagas (Bol) escreveu:
> Só lembrando que nem sempre isto é culpa da moderação do grupo. As vezes o 
> servidor de E-Mails SMTP seus é quem agarra no envio da mensagem e outras 
> vezes o proprio trafego nos servidores do Yahoo também está com Delay alto.
>
>
>
> []s
>
>
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br
> http://delphitocorporerm.blogspot.com/
>
>

Re: [delphi-br] OFF - Teste automatizado

[dbug.eti.br - Gmail]

Owarruma a data do seu micro vai22/11/2009, ninguém merece...




Em 22/11/2009 01:16, Dirlei escreveu:
>
> Eu não faço testes automatizados em Delphi, mas usaria o DUnit se
> fizesse.
>
> Para testes visuais (de interface) não se recomenda testes automatizados
> e sim um testador humano.
>
> [ ]'s
> Dirlei.
>
> Em Qui, 2010-04-15 às 12:53 +, simoesluciano escreveu:
> >
> > Como vocês fazem testes automatizados em suas classes do server e nas
> > telas do client?
> >
> > Luciano C. Simões
>
> >
>
> 


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Desenhar Bitmap em área não transparente do TPageControl

[Moacir - GMAIL]

Eduardo,

Coloque um painel ali e dentro do painel o teu bitmap.

Moacir

Em 04/04/2010 22:49, Eduardo Silva dos Santos escreveu:
> Olá pessoal, alguém tem alguma dica de como exibir um bitmap naquela área do
> PageControl? área após o última aba.
> segue imagem para ilustrar: http://yfrog.com/1rpagewp
> o bitmap já está ao fundo do form, mais aquele parte azul clara fica sobre o
> bitmap.
>
> Att,
> ...
> Eduardo Silva dos Santos
>
>

Re: [delphi-br] Procedure para calcular idade no firebird 1.5

[Moacir - GMAIL]

Dimas,

Mas se tens a rotina em Delphi porque não a adaptas para uso com Firebird ??

A sintaxe no firebird e praticamente a mesma..

Veja como fica o exemplo que te mandei:

SET TERM ^ ;

CREATE OR ALTER PROCEDURE CALCULAIDADE (
 ddata date = current_date,
 ddataatual date = current_date)
returns (
 idade varchar(100),
 ianoidade integer,
 imesidade integer,
 idiaidade integer)
as
declare variable ianoatual integer = 0;
declare variable imesatual integer = 0;
declare variable idiaatual integer = 0;
declare variable iano integer = 0;
declare variable imes integer = 0;
declare variable idia integer = 0;
begin

idade = '';
ianoidade = 0;
imesidade = 0;
idiaidade = 0;
if (not ddata is null) then
begin
   if (ddataatual is null) then
  ddataatual = current_date;
   ianoatual = extract(year from :ddataatual);
   imesatual = extract(month from :ddataatual);
   idiaatual = extract(day from :ddataatual);

   iano  = extract(year from :ddata);
   imes  = extract(month from :ddata);
   idia  = extract(day from :ddata);

   ianoidade = ianoatual - iano ;
   If ((iMesAtualiMes) then
   begin
 iMesIdade = iMesAtual-iMes;
 If (iDiaAtual Oi Moacir
>
>
>
> A rotina em Delphi eu tenho, quero criar uma procedure
>
> no FireBird que eu posso chamar atraves de um Select
>
> e ele me calcular a idade da pessoa, ou calcular
>
> qquer coisa que eu passe como parametro a Data e
>
> a procedure calcula com a data atual do servidor.
>
>
>
> Exemplo:
>
>
>
> Select PESSOA.NOME,
>
>PESSOA.DATA_NASC,
>
>   CalculaIdade( PESSOA.DATA_NASC)
>
>
>
> Neste caso vai me retornar 3 campos, sendo o terceiro o calculo da idade.
>
>
>
> Obrigado.
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>

Re: [delphi-br] Procedure para calcular idade no firebird 1.5

[Moacir - GMAIL]

Dimas,

Veja se esta função escrita em Delphi te ajuda ai.

function MostraIdade(dData : tDateTime = 0 ; dDataAtual : tDateTime = 0 
) : string ;
var
iAnoIdade,
iMesIdade,
iDiaIdade,
iAnoAtual,
iMesAtual,
iDiaAtual : Integer;
iAno,
iMes,
iDia : Integer;
begin
iAnoIdade := 0;
iMesIdade := 0;
iDiaIdade := 0;
if dData>0 then
begin
  If dDataAtual<1 then
 dDataAtual := now;
  iAnoAtual := StrToIntDef(FormatDateTime('',dDataAtual),0);
  iMesAtual := StrToIntDef(FormatDateTime('mm',dDataAtual),0);
  iDiaAtual := StrToIntDef(FormatDateTime('dd',dDataAtual),0);

  iAno  := StrToIntDef(FormatDateTime('',dData),0);
  iMes  := StrToIntDef(FormatDateTime('mm',dData),0);
  iDia  := StrToIntDef(FormatDateTime('dd',dData),0);

  iAnoIdade := iAnoAtual - iAno;
  If ((iMesAtualiMes) then
  begin
 iMesIdade := iMesAtual-iMes;
 If (iDiaAtual Oi pessoal
>
> Trabalho com FireBird 1.5 e Delphi 7.
>
> Preciso fazer um Select de uma tabela de pessoas e um dos campos de retorno
> precisa ser a idade da pessoa. (exemplo:  4 anos , 5 meses )
>
> Na minha tabela eu tenho a data de nascimento.
>
> Agradeço sugestões.
>
> Obrigado.
>
>
>
>
> 
>
>

RES: [delphi-br] Arquivos temp NFE

[André Moraes - Gmail]

Após enviar a nota use ACBrNFe1.NotasFiscais.Items[0].SaveToFile;

André F. Moraes

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Filippe Maymone
Enviada em: quarta-feira, 31 de março de 2010 09:00
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Arquivos temp NFE

Eu desabilitei a função salvar ...
Ai ele envia o XML para a receita e não salva o arquivo para envio para os
clientes ...

Eu precisava salvar o XML da Nota ... e não salvar estes outros arquivos ...



Obrigado,



Filippe Maymone

Em 30 de março de 2010 21:40, André Moraes escreveu:

> Desabilite a opção de salvar arquivos. E não são arquivos temporários,
veja
> no manual de integração o que siginifica cada um, pois os nomes seguem os
> padrões sugeridos no manual de integração.
>
> André F. Moraes
>
> Em 30 de março de 2010 21:34, Filippe Maymone  >escreveu:
>
> >
> >
> > Caros,
> >
> > Eu uso o Acbr para geração das minhas NFE.
> >
> > Quando eu faço o envio dos meus arquivos XML, na pasta
> > Pathsalvar sempre gera 5 arquivos Temporários:
> >
> > 0-env-lot.xml
> >
> > 0-rec.xml
> >
> > 12312321313213-sta.xml
> >
> > 311231231254542-ped-rec.xml
> >
> > 123123213123213-pro-rec.xml
> >
> > Como faço para não gerar, ou apagar estes arquivo após o
> > processo de envio da NFE ???
> >
> > Ou ultima opção se tem como salvar estes arquivos em uma
> > pasta diferente da pasta onde serão gerados meus XML e PDF
> >
> > Abraços,
> >
> > [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]





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

[delphi-br] Impressão Etiquetas WTS

[gmail]

Boa tarde a todos.  Estou precisando imprimir etiquetas em impressora
térmica argox. Localmente já estou com o software 100%.

Meu problema começa que meu software roda em WTS e não sei como setar a
porta que localmente é LPT1.

Já tentei a porta (Ex TS008) e o nome da impressora (Ex ArgoxPPLA em teste
(de INFO) na sessão 1) mas não funcionou.

O comando abaixo funcionou, mas apenas até efetuar logoff.

 

  Dentro da seção do TS compartilhe sua impressora em rede, e não use
espaços, nem acentos nem nomes maiores que 8 posições.

Ainda na seção do TS vá no DOS e capture esta mesma impressora no próprio
servidor para porta LPT1 com o comando:

NET USE LPT1: \\NomeDoServidor\NomeDaImpressora



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Delphi e MySQL - SQL de insert com caracteres especiais

[Moacir - GMAIL]

Eduardo,

Tente usar a função QuotedStr:

QryInsert.SQL.Text := ' insert into tabela (CAMPO1, CAMPO2) values (0, 
'+QuotedStr(HTML)+') ';


Sucesso !!

Moacir


Em 25/03/2010 10:13, Alemão escreveu:
> Olá Eduardo.
>
> Também não funciona desta maneira...  Acho que é pq o HTML ja tem as aspas
> em seu texto. Outro problema que encontrei foi em relação à quebra de
> linhas, mas retirei todas as quebras e ainda assim continua dando erro no
> insert.
>
> Obrigado.
>
>
> Em 24 de março de 2010 12:02, Eduardo Silva dos Santos<
> eduardo@gmail.com>  escreveu:
>
>
>> Tem sim, coloca entre aspas
>>
>> QryInsert.SQL.Text := ' insert into tabela values(0, "  ' + HTML + ' " ) ';
>>
>> ou use parâmetros
>>
>> QryInsert.SQl.Text := ' insert into tabela values(0,:HTML) ';
>> QryInsert.ParamByName( 'HTML' ).AsString := HTML;
>> QryInsert.Execute;
>>
>>
>> Att,
>> ...
>> Eduardo Silva dos Santos
>> DRD SISTEMAS
>> (27) 3218-4201
>> (27) 9961-7095
>> MSN: eduardo@gmail.com
>> Site: http://www.drdsistemas.com.br/
>> ...
>>
>>
>> Em 24 de março de 2010 11:59, Alemão  escreveu:
>>
>>  
>>>
>>> Olá pessoal,
>>>
>>> Estou desenvolvendo um aplicativo em delphi simples que grava valores em
>>> HTML em um campo de uma tabela MYSQL.
>>>
>>> codigo - integer
>>> html - text
>>>
>>> Vou utilizar um select semelhante à este para a inserção
>>>
>>> insert into tabela values(0,HTML).
>>>
>>> O problema é que como a minha variavel de HTML possui caracteres
>>>
>> especiais
>>  
>>> como aspas, parenteses, etc, acredito que possa dar conflito quando o
>>> programa enviar este select ao banco. Existe alguma maneira de evitar que
>>> isso aconteça?
>>>
>>> Preciso fazer algum tratamento especial para este caso?
>>>
>>> Obrigado.
>>>
>>> [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]
>
>
>
> 
>
>

RES: [delphi-br] ACBR C/ NFe em contigencia SCAN

[André Moraes - Gmail]

Veja http://www.devmedia.com.br/articles/viewcomp.asp?comp=15914

 

André F. Moraes

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dimas Bolognani
Enviada em: segunda-feira, 22 de março de 2010 07:49
Para: automacaoto...@yahoogrupos.com.br
Cc: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ACBR C/ NFe em contigencia SCAN

 

  

Bom dia a todos

Alguém já usou o ACBR p/ NFe em Contingência no SCAN? Quais configurações
precisa fazer para transmissão p/ SCAN?

Atte.

DBSOFT INFORMÁTICA LTDA

OURO FINO - MG

TEL:(35)3441-5254

DIMAS BOLOGNANI

CEL:9978-8540

[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] Desenvolvimento SOMENTE para Win32, Delphi 7 ou Delphi 2010?

[dbug.eti.br - Gmail]

Está aí uma boa pergunta!

Pq não uma política de preços que possam ser pagos pelas pequenas 
empresas? Se existisse isso, com certeza sempre me manteria minhas 
versões atualizadas. Além disso, poderiam ter formas de pagamentos 
amigáveis para pequenas empresas. A Embarcadero poderia lançar uma 
política como a que a Microsoft lançou, "Microsoft SOL": 
http://www.microsoftsol.com.br/conheca.html. Enfim, eu compraria! Será 
que só interessa para a Embarcadero as médias e grandes empresas que no 
fim são minoria e também no fim, compram apenas uma licença e instalam 
em "n" máquinas?

Gostaria de ler uma resposta para isso de algum representande da 
Embarcadero. Minha empresa por exemplo, está inscrita no modelo 
"simples", mas os custos para aquisição de software são impraticáveis. 
Pq nós, pequenos desenvolvedores, que somos maioria do mercado, temos 
que pagar mais proporcionalmente do que os grandes players?


Em 19/03/2010 11:02, Maria das Graças . escreveu:
>
> Eu, como usuária do Delphi, o q me impede de migrar do Delphi 7 para 
> uma nova versão não é o fato de não acreditar na nova versão. Mais 
> recursos? Sim, tem!
> O q me impede de migrar é custo. E o q impede milhares de 
> programadores de migrar é esse: custo!
> Investimento alto! E não adianta dizerem que o preço está dentro das 
> nossas possibilidade porque não está! Ele está dentro das 
> possibilidades de grandes empresas.
>
> Então vai aqui a pergunta que não quer calar? Por que a Embarcadero 
> não reduz o preço para que esses milhares de usuários Delphi 7 tenham 
> condição financeira de migrar? Por que não cria uma forma para q as 
> pequenas, médias Software Houses e desenvolvedores autonomos tenham 
> acesso a essas inovações? Será q prefere ver uma gama de gente usando 
> um Delphi 7 ou migrando para outras linguagens? E continuar 
> com retorno zero?
>
> Afinal, q politica comercial é essa da Embarcadero?
>
> Graça
>
> 
> De: Fellipe Henrique mailto:fellipeh%40gmail.com>>
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Quinta-feira, 11 de Março de 2010 14:18:17
> Assunto: [delphi-br] Desenvolvimento SOMENTE para Win32, Delphi 7 ou 
> Delphi 2010?
>
>
> Amigos,
>
> Estou vendo as maravilhas do Delphi 2010... sim, são muita coisas boas...
> mas convenhamos, que para nós- pelo menos para mim, pobre mortal, muita
> coisa não me levaria a mudar.. tipo, unicode, mudança em RTL (?!?) ou 
> seja,
> o bom e velho D7 satisfaz numa boa.. aplicativo compilado nele, roda
> tranquilo em Win Vista e Seven seja 32 ou 64bits
>
> Então me vem na cabeça agora.. apesar de tantas coisas boas que o 2010 
> trás,
> a "correria" para ele está sendo pouca, e grandes desenvolvedoras de
> software, ainda utilizam o Delphi 7... e dizem que apesar das mudanças e
> tals.. para win32 o 7 ainda é melhor e mais rápido de desenvolver do que o
> resto..
>
> Então é isso, pra quem não irá usar nunca o que o 2010 fornece (Unicode,
> RTL, Refactoring, UML e etc..) vale a pena mudar? Pois sabemos que
> gerenciadores de memória podemos usar o que o 2010 usa, no D7.. então não
> vale contar isso.. hehe... o que me dizem?
>
> -- 
>  _ _ ___
> T.·.F.·.A.·.
> Fellipe Henrique
>  - - - - - -
> CAMPANHA POR UMA INTERNET SEGURA
> Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
> mensagens use SEMPRE o "Cco" (cópia oculta).
> Assim TODOS os endereços estarão preservados. E, claro, antes de 
> encaminhar
> um e-mail, delete todas as informações que apareçam no corpo do e-mail 
> e que
> possam ser usadas por hackers.
>  # # #
>
> [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]
>
> 


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Re: importar arquivo com qualificador de texto

[Moacir - GMAIL]

Marcos,

Tente usar esta função para fazer o split dos dados:

function Explode(delimiter:string; source:string) : TStringList;
(*
// Name : Explode
// Purpose : each of which is a substring of string formed by splitting 
it on
// boundaries formed by the string delim. It does not support PHP's
// 'limit' feature.
// Date : 12 Feb 2001 by Bob Brown (bob.br...@opus.co.nz)
// Comments : Based on PHP's Explode function (http://www.php.net/explode).
// Returns an array of strings, each of which is a substring of
// string formed by splitting it on boundaries formed by the string // 
delimiter.
*)
var
   c : word;
begin
   Result:=TStringList.Create;
   c:=0;
   while source<>'' do
   begin
 if Pos(delimiter,source)>0 then
 begin
   Result.Add(Copy(Source,1,Pos(delimiter,source)-1));
   Delete(Source,1,Length(Result[c])+Length(delimiter));
 end
 else
 begin
   Result.Add(Source);
   Source:='';
 end;
 inc(c);
   end;
end;


Sucesso !!

Moacir


Em 10/03/2010 09:41, Marcos Abreu Ferreira escreveu:
> Dirlei,
>
> tive um problema parecido, só que dentro de um dos determinados campos tinha 
> o nome do individuo, só que ele poderia vir com a vírgula, como exemplo abaixo
>
> "1","029",200900,"Carlos Alberto"
> "2","030",200901,"Henrique, Carmen"
>
> Se eu der um SPLIT por vírgula, no primeiro registro vou ter um vetor de 4 
> posições, e no segundo registro, vou ter um vetor com 5 posições. A minha 
> solução foi avisar o cliente que se ele colocar a vírgula nos nomes, iria dar 
> problema, mas gostaria de fazer uma solução que se o cara colocar a vírgula, 
> o sistema entenda isso e ignore na hora do SPLIT.
>
> Alguém teria uma solução para isso?
>
> Marcos
>
> --- Em delphi-br@yahoogrupos.com.br, Dirlei  escreveu
>
>> Ralph,
>>
>> Para retirar as aspas, você pode utilizar:
>>  StringReplace(, '"', '', [rfReplaceAll]);
>>
>> Para fazer "split" dos valores separados por vírgula, você pode utilizar
>> uma função que fiz para isso. Disponibilizei em:
>> http://pastebin.com/ZfAGxK5i (use à vontade, mas mantenha a atribuição).
>>
>> Dirlei.
>>
>> Ralp Alves Bezerra escreveu:
>>  
>>>
>>>
>>> Nobres colegas,
>>>
>>> Estou tentando importar um arquivo texto no seguinte formato:
>>>
>>> "601","029",200900,"01","01",20091201,"01120001",200912,"01","031"
>>> "601","029",200900,"01","01",20091201,"01120001",200912,"01","031"
>>> "601","029",200900,"01","01",20091201,"01120001",200912,"01","031"
>>> Porém, esbarrei no qualificador de texto (aspas).
>>>
>>> Como poderia fazer a importação deste arquivo delimitado por vírgula e com
>>> as aspas?
>>>
>>> Alguém já efetuou este processo ou tem alguma idéia de como devo proceder?
>>>
>>> Já dei uma olhada no velho amigo Google e não consegui nada.
>>>
>>> Estou utilizando delphi7 e firebird 2.1.
>>>
>>> Abraços.
>>>
>>> Ralp Alves
>>>
>
>
> 
>
>

Re: [delphi-br] importar arquivo com qualificador de texto

[Moacir - GMAIL]

Ralp,

Aparentemente as aspas duplas indicam que aqueles dados são textos e os 
campos sem aspas duplas são numéricos:

Veja se esta função aqui te ajuda com este teu problema:

function Explode(delimiter:string; source:string) : TStringList;
(*
// Name : Explode
// Purpose : each of which is a substring of string formed by splitting 
it on
// boundaries formed by the string delim. It does not support PHP's
// 'limit' feature.
// Date : 12 Feb 2001 by Bob Brown (bob.br...@opus.co.nz)
// Comments : Based on PHP's Explode function (http://www.php.net/explode).
// Returns an array of strings, each of which is a substring of
// string formed by splitting it on boundaries formed by the string // 
delimiter.
*)
var
   c : word;
begin
   Result:=TStringList.Create;
   c:=0;
   while source<>'' do
   begin
 if Pos(delimiter,source)>0 then
 begin
   Result.Add(Copy(Source,1,Pos(delimiter,source)-1));
   Delete(Source,1,Length(Result[c])+Length(delimiter));
 end
 else
 begin
   Result.Add(Source);
   Source:='';
 end;
 inc(c);
   end;
end;


Voce teria que fazer algo como:

Dados := 
Explode(',','"601","029",200900,"01","01",20091201,"01120001",200912,"01","031" 
');
For i:=0 to Dados.Count-1 do
begin
  If Pos('"',Dados[i]) then
  begin
   //-- é String, eliminar as aspas duplas
   Dados[i] := (StringReplace(Dados[i],';','',[rfReplaceAll]));
  end;
end;

Ai esta o pontapé inicial, boa sorte.

Sucesso !

Moacir

Re: [delphi-br] Programa compilado no Windows 7 está lento

[Moacir - GMAIL]

Fellipe,

Humm..

Meu D7 ainda não foi notificado disto ou esqueceu de ler o blog do 
Andreano, pois funciona PERFEITAMENTE no W7 32 e 64 bits.

Sucesso !

Moacir



Em 23/02/2010 20:25, Fellipe Henrique escreveu:
> Bom amigos é o seguinte, como o próprio Andreano já disse, o único delphi
> compativel com a Win7 é o 2010... o resto é rodado "meia-boca" ou com alguns
> macetes... Eu mesmo estou tendo problemas com o Delphi 2007.. já consegui
> arrumar o bug do debug que ele tinha... mas ainda assim nao funciona
> direito..
>
> Infelizmente esta mensagem é mais pra desanimar do que pra dar solução...
> rsrs.. mas a Borland poderia soltar algum patch pra nós né?!?
>
> Att
>
> Em 25 de janeiro de 2010 07:38, wrafhael  escreveu:

[delphi-br] SISTEMA DE LEVANTAMENTO DE OPERA ÇÕES DE ARRENDAMENTO MERCANTIL

[Jota Pyl Gmail]

Bom dia a todos.

Preciso saber se alguem tem ou conhece um software (via web) para a aplicação 
de autos de infração por sonegação de ISS.

O Software porecisa dessas funcionalidades mínimas.

SISTEMA DE LEVANTAMENTO DE OPERAÇÕES DE ARRENDAMENTO MERCANTIL - 
FUNCIONALIDADES 

CADASTRO DE INSTITUIÇÕES FINANCEIRAS 
1 Deverá realizar o cadastro de todas as Arrendadoras Mercantis ativas no 
Mercado.  
2 Não deverá permitir a exclusão de uma ARRENDADORA  que já esteja cadastrada 
no sistema.  

ACESSO WEB
3 Deverá permitir acesso pelo Município de todas as Funções Constantes do 
Sistema via web  
4 O acesso de informações via web deverá ter dois níveis de autenticações 
visando garantir a segurança das informações  

ACESSO AO SISTEMA
5 Os acessos visando a segurança das informações deverão ter vários níveis  
6 Os níveis de acesso ao sistema deverá ser determinado por um Administrador 
Máster  

INFORMAÇÕES FORNECIDAS  PELO DETRAN/PR
7 Possibilitar a importação automática de informações constantes dos Arquivos 
Eletrônicos fornecidos pelo DETRAN/PR  

VALOR DOS BENS ARRENDADOS
8 Determinar automaticamente o valor de mercado do bem através de informações 
procedentes de instituições confiáveis, como por exemplo, a (TABELA DA FIPE)  

AUTOS DE INFRAÇÃO
9 Parametrizar os Autos de Infração para conter os indicadores constantes da 
Legislação do Município, tais como: juros/multa/índices de correção.  
10 Realizar automaticamente os cálculos necessários para a Emissão do Auto de 
Infração automaticamente.  
11 Emitir automaticamente o Auto de Infração para ser encaminhado pelo 
Município para a Arrendadora Mercantil. 
12 Controle dos Autos de Infração em Andamento – desde a fase administrativa 
até a emissão da Certidão de Dívida Ativa (CDA) 

RELATÓRIOS
13 Emissão de Relatórios de Acompanhamento de Andamento de Autos de Infração  
14 Emissão de Relatórios de Estatísticas de Levantamento de Operações de 
Arrendamento Mercantil – a) Relatórios por Período de Apuração b) Relatórios 
por Arrendadora Mercantil  


Se alguem tem ou sabe por favor entrar em contato.

Grato.



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] somar numero inteiro a uma data ajuda

[Moacir - GMAIL]

Alessandra,

O problema parece estar no teste:

"if (DATA + NDIAS)  = now then", pois se a soma não resultar exatamente 
na data e hora atual não funciona !


troque por

procedure TDm.Cds_FinanceiroCalcFields(DataSet: TDataSet);
begin
if (Cds_FinanceiroDTA_PEDIDO.AsDateTime + 
Cds_FinanceiroNDIAS.AsInteger)<=now then
   begin
   Cds_FinanceiroVENCIDO.AsDateTime := now;
   end;




Sucesso !!

Moacir


> Em 16/02/2010 23:32, alessandra porto escreveu:
>> Amigos
>> Tentei de varias formas mas  a  coisa da erro
>>
>> na tabela os campos
>>
>> DTA_PEDIDO  = date;
>> NDIAS= Integer;
>>
>> a ideia  e  somar um certo numero de dias a uma data e comparar com o 
>> dia atual
>> e jogar o resultado ao um campo calculado (VENCIDO)
>>
>>
>>
>> procedure TDm.Cds_FinanceiroCalcFields(DataSet: TDataSet);
>> var
>>DATA  : Tdate;
>>NDIAS : integer;
>>   begin
>>
>> DATA  :=strtodate(Cds_FinanceiroDTA_PEDIDO.AsString);
>> NDIAS :=Cds_FinanceiroNDIAS.AsInteger;
>>
>> if (DATA + NDIAS)  = now then
>>begin
>>Cds_FinanceiroVENCIDO.AsString :=datetostr(now);
>>end;
>>
>>   Já fiz mil e uma tentativas e nada
>>
>> já usei   Cds_FinanceiroDTA_PEDIDO.AsDateTime   direto na  
>> variavel DATA e nada
>>
>> Deve ser simples a solução mas  eu não consegui achar
>>
>>
>> Agradeço aos amigos que puderem ajudar
>>

Re: [delphi-br] [OFF-TOPIC] Servidor Web

[Moacir - GMAIL]

Outra opção seria o WAMP (embora seja especifico para a plataforma Windows)

www.wampserver.com/en/download.php

Sucesso !

Moacir

Em 04/02/2010 14:46, Marcos Bernardo escreveu:
> Eu ja tive muitos problemas com isso... versão.. instalação entre apache e
> php e mysql...
>
> uma sugestão...
>
> acabei com meus problemas com o xampp...
> de uma olhada no xampp e no easyphp
>
> estas suites instalam tudo pra voce...
> tem um modulo de configuração.. junto.. bem facil..
>
> abraço
> Marcos Bernardo
>
>
>
>
>
> Em 4 de fevereiro de 2010 14:59, Willian Jhonnes L. dos Santos<
> willianjhon...@yahoo.com.br>  escreveu:
>
>
>>
>> Em 04/02/2010 12:55, nillgolv escreveu:
>>
>>  
>>> Fiz tudo certo, abro a página na própria máquina no localhost, mas não
>>> consigo acessar de outras máquinas na rede interna e nem pela internet.
>>>
>> Olá, boa tarde...
>>
>> Bem, pra poder ajudar você, com certeza precisamos de mais detalhes,
>> coisas insignificantes como Sistema Operacional, versão do Apache,
>> versão do PHP, coisinhas assim, que não fazem diferença...
>>
>> Outro detalhe: como você está tentando fazer o acesso ao servidor
>> Apache? Pelo IP? Pelo nome da máquina?
>>
>> Mais informações, respostas mais eficientes...
>>
>> []'s
>>
>> --
>>
>> ---
>> Att.:
>> Willian Jhonnes L. dos Santos
>> Analista/Desenvolvedor Object/Free Pascal
>> willianjhon...@yahoo.com.br
>> ---
>> Seja livre. Use Linux.
>> Grupo de Usuários GNU/Linux de São José dos Pinhais
>> Linux user number 449753
>> ---
>> Powered by Slackware Linux 13.0
>> Kernel 2.6.32.6-i686-core2quad
>> ---
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>>  
>
>
>


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] OT - Impressão de etiquetas ZEBRA tlp 2844

[Moacir - GMAIL]

PessoALL,

Estou precisando imprimir etiquetas numa impressora ZEBRA TLP 2844 pela 
porta USB.

A impressão ja ocorre 100% pela porta LPT1 e COM1, mas agora o cliente 
esta trocando o desktop por NB sem porta paralela e sem porta serial, 
somente USB.

Já tentei usar algumas dicas antigas aqui da lista, mas não teve jeito. 
Quando mando a impressão pelo driver so Windows a impressora após alguns 
segundos avança algumas etiquetas sem imprimir nada..

Ex dos comandos enviados:

N
D9
S3
R0,0
B30,0,0,1,1,3,40,B,"ABC1234567"
A0,75,0,2,1,1,N,"DESCRICAO PRODUTO"
A60,95,0,1,1,2,N,"R$ 9.999,99"
P1

Alguem ja passou por isto e tem uma dica ?

Sucesso !

Moacir

Re: [delphi-br] Conectar Firebird pela Internet

[Moacir - GMAIL]

Voodoorv,

Voce precisa informar o IP EXTERNO da máquina servidora.

Caso no local aonde esta o servidor não tenha IP FIXO, use um cliente 
dinâmico de IP, por exemplo o NO-IP (www.no-ip.com).
Veja como configurar o NO-IP aqui 
(http://videolog.uol.com.br/video.php?id=396589)

Depois basta conectar:

Com IP FIXO:

200.123.123.123:c:\teste\teste.fdb


Com NO-IP:

meunoipdetestes.no-ip.info:c:\teste\teste.fdb


Não esqueça de liberar a porta do Firebird no firewall do servidor e nas 
regras de NAT (ou Port Forwarding) de seu modem.

Sucesso !!

Moacir

Ex.:

Em 25/01/2010 08:05, voodoorv escreveu:
> Bom dia pessoal, pode ser que já responderam esta questão aqui no forum, mas 
> não achei nada, preciso conectar uma aplicação em delphi com banco de dados 
> firebird 1.5, pela internet.
> Por exemplo tenho um computador em um escritório com o meu banco de dados, 
> preciso acessar este banco de dados de um outro local via net, como faço ?
>
> Tentei colocar no TIBDatabase, o database name o IP da máquina servidora, 
> 192.1.1.1:c:\teste\teste.fdb
>
> Mas não funcionaou, alguém pode me ajudar !
>
> Obrigado.
>
>
>
> 
>
>

Re: [delphi-br] pesquisa por data e cliente

[Moacir - GMAIL]

Francisco,

Ajuste os nomes dos campos e o nome da tabela e acredito que deva ser o
que queres.

Select CLIENTE, sum(VALOR) as VALORTOTAL from MINHATABELA WHERE
CLIENTE=:CLIENTE AND DATA BETWEEN :DATAINICIAL AND :DATAFINAL GROUP BY
CLIENTE ORDER BY CLIENTE

Sucesso !!

Moacir


Em 25/12/2009 23:25, Francisco escreveu:
>  Caros colegas  tenho um controle de gastos por cliente  onde guardo o nome 
> do cliente para isso uso um radiogroup para escolher o nome do cliente e 
> guardo ainda a descrição o valor e para  a data uso um DateTimePicker para 
> escolher a mesma, consigo  perfeitamente totalizar separadamente os valores 
> de cada cliente usando um radiogroup  e também consigo totalizar os valores 
> em um determinado período (intervalo de datas, data inicial e data final) so 
> que agora estou precisando totalizar os valores por um determinado cliente e 
> período e mão estou conseguindo construir o Sql que me faz a pesquisa como 
> preciso. Um exemplo:  preciso fazer os totais   de um determinado período do 
> mês de um cliente por exemplo do mês tal do cliente tal espero que alguém 
> possa  ter me entendido e esteja disposto a ajudar a resolver meu problema 
> Uso o D7 e firebird 2.1
>  Agradeço  desde ja a preciosa ajuda dos colegas
>
>

Re: [delphi-br] Paradox em rede ajuda s.o.s

[dbug.eti.br - Gmail]

Pois é, e não devemos dar conselhos aos colegas da lista, certo? 
Mantenho minha opinião, usar PARADOX não é nem de longe uma boa idéia, é 
um conselho para nossa colega, utilizar um SGDB.
E sim, tenho meu blog para escrever o que quiser, inclusive vc também 
deveria ter um. :-(


Em 21/12/2009 19:13, EmbarcaDelphi escreveu:
>
> Pessoal, responder apenas a peguntas, comentários vocês criam um blog e
> coloca lá o que querem falar com relação a qualquer assunto. :(
>
> Em 21/12/2009 08:29, dbug.eti.br - Gmail escreveu:
> >
> > Ahfala sério, PARADOX é banco de dados de verdade agora? Só pela
> > razão de que alguém não teve problemas com PARADOX não significa que ele
> > realmente deva ser utilizado em projetos sérios. Pessoal, por favor,
> > reavaliem essa situação. Utilizem um SGDB de verdade! Existem muitos
> > livres, como MySQL (InnoDB suporta transações), Postgre (EXCELENTE!) e
> > nosso conhecido Firebird. Uma frase de um ex-professor meu, mas que ele
> > citou de um filósofo: "Mostra-me as ferramentas que utiliza que te direi
> > que tipo de profissional és."
> >
> > Abraço
> >
> > Em 21/12/2009 04:41, EmbarcaDelphi escreveu:
> > >
> > > Pessoal só manda resposta depois que alguém entrega uma dica, e ainda
> > > por cima diz que as dicas estão equivocadas. Pois bem, quem repassou
> > > esta dica foi nada menos que o Sr. Daniel Wildt, Mestrado em 
> computação
> > > UFRS, Borland Certified Instructor.
> > > Mas tudo bem, minha parte eu fiz sem ter que criticar ninguém.
> > >
> > > Em 20/12/2009 16:42, JC Informática (José Cláudio) escreveu:
> > > > Estimada Alessandra,
> > > >
> > > > Minha sugestão, baseada em sistemas desenvolvidos utilizando banco
> > > de dados
> > > > Paradox ao longo dos últimos 10 anos é a seguinte:
> > > >
> > > > No servidor, configure localshare = true,
> > > >
> > > > no path do banco de dados nunca use unidades compartilhadas, mas 
> sim o
> > > > caminho no formato UNC (mesmo estando no servidor)
> > > > \\NOMEDOSERVIDOR\\NOMEDOCOMPARTILHAMENTO
> > > >
> > > > O netdir pode estar na mesma pasta, mas antes de abrir qualquer
> > banco de
> > > > dados no sistema, exclua os arquivo *.lck (se estiverem sendo
> > usados por
> > > > outro micro da rede, nada acontecerá).
> > > >
> > > > Nunca tive problemas de corrupção de índices ou perca de dados. O
> > único
> > > > problema do paradox é não saber configurá-lo, acredito eu. As
> > dicas dos
> > > > colegas foram muito boas, mas algumas estão equivocadas, pois tempos
> > > vários
> > > > clientes trabalhando com o servidor, fazendo downloads usando
> > programas
> > > > aceleradores e com a proteção de tela ativada.
> > > >
> > > > Porém, eu não uso ALIASES criados no BDE Admin, uso o componente
> > > TDatabase
> > > > fazendo as configurações assim:
> > > > Session.NetFileDir := LocalDosDados;
> > > > // atualizar DataBase;
> > > > db.close;
> > > > db.Params.Values['PATH'] := LocalDosDados;
> > > > db.Open;
> > > >
> > > >
> > > > Configura localshare através de código usando a seguinte função.
> > > > ---
> > > > function LocalShare(Ligado: Boolean): Boolean;
> > > > var
> > > > regini: TReginifile;
> > > > const
> > > > Key = '\SOFTWARE\Borland\Database Engine\Settings\SYSTEM\INIT';
> > > > Id = 'LOCAL SHARE';
> > > > begin
> > > > Result := True;
> > > > regini := TRegIniFile.Create();
> > > > try
> > > > regini.RootKey := HKEY_LOCAL_MACHINE;
> > > > try
> > > > if regini.KeyExists(key) then
> > > > begin
> > > > s := regini.ReadString(key, id, '');
> > > > if Trim(S)<> 'TRUE' then
> > > > regini.WriteString(key, id, 'TRUE');
> > > > end;
> > > > except
> > > > erro('Impossível gravar no registro e configurar o BDE!');
> > > > Result := False;
> > > > raise;
> > > > end;
> > > > finally
> > > > regini.Free;
> > > > end;
> > > > end;
> > > > -
> > > >
> > > >
> > > >
> > > > 2009/12/19 EMGF Doc <

Re: [delphi-br] Paradox em rede ajuda s.o.s

[dbug.eti.br - Gmail]

Olha, usar um bando de arquivos que contém um bando de campos que contém 
um bando de dados é no mínimo uma atitude questionável de um 
profissional da área de desenvolvimento de software.
Quem sabe para uma vídeo-locadora funcione, apesar de que nestes casos, 
até ACCESS é MENOS RUIM!
Como disse antes, galera, PIRADOX, dBase, ACCESS e seus comparsas não 
são banco de dados. Profissionalizem-se mais, aprendam muito bem SQL 
ANSI e trabalhem com SGDBs de verdade, garanto que não irão 
arrepender-se. Para mim, é realmente uma questão de profissionalismo! 
(mas sem querer ofender ninguém, apenas querendo ajudar a encontrar um 
caminho melhor)

Att.


Em 21/12/2009 10:41, Leonardo Quinino escreveu:
> PARADOX = PIRADOX  = Bando de DADOS  , BANDO mesmo
>
> Usar Paradox é melhor usar DBASE, o Dbase, qdo usava com clipper, dava uns
> paus de INDICES, no máximo era só deletar .cdx, .ntx, e mandar reindexar...
> Agora no paradox, qdo iniciei minha carreira delphiana lá por idos do Delphi
> 3 (já havia acompanhando o delphi desde a versão 1) mas não sentia firmeza
> na então recém lançada IDE revolucionária. Enfim o maldição do paradox é que
> qdo fode o indice, costuma perder meio mundo de dados.
>
>
>
> 2009/12/21 dbug.eti.br - Gmail
>
>
>>
>> Ahfala sério, PARADOX é banco de dados de verdade agora? Só pela
>> razão de que alguém não teve problemas com PARADOX não significa que ele
>> realmente deva ser utilizado em projetos sérios. Pessoal, por favor,
>> reavaliem essa situação. Utilizem um SGDB de verdade! Existem muitos
>> livres, como MySQL (InnoDB suporta transações), Postgre (EXCELENTE!) e
>> nosso conhecido Firebird. Uma frase de um ex-professor meu, mas que ele
>> citou de um filósofo: "Mostra-me as ferramentas que utiliza que te direi
>> que tipo de profissional és."
>>
>> Abraço
>>
>> Em 21/12/2009 04:41, EmbarcaDelphi escreveu:
>>
>>  
>>> Pessoal só manda resposta depois que alguém entrega uma dica, e ainda
>>> por cima diz que as dicas estão equivocadas. Pois bem, quem repassou
>>> esta dica foi nada menos que o Sr. Daniel Wildt, Mestrado em computação
>>> UFRS, Borland Certified Instructor.
>>> Mas tudo bem, minha parte eu fiz sem ter que criticar ninguém.
>>>
>>> Em 20/12/2009 16:42, JC Informática (José Cláudio) escreveu:
>>>
>>>> Estimada Alessandra,
>>>>
>>>> Minha sugestão, baseada em sistemas desenvolvidos utilizando banco
>>>>  
>>> de dados
>>>
>>>> Paradox ao longo dos últimos 10 anos é a seguinte:
>>>>
>>>> No servidor, configure localshare = true,
>>>>
>>>> no path do banco de dados nunca use unidades compartilhadas, mas sim o
>>>> caminho no formato UNC (mesmo estando no servidor)
>>>> \\NOMEDOSERVIDOR\\NOMEDOCOMPARTILHAMENTO
>>>>
>>>> O netdir pode estar na mesma pasta, mas antes de abrir qualquer banco
>>>>  
>> de
>>  
>>>> dados no sistema, exclua os arquivo *.lck (se estiverem sendo usados
>>>>  
>> por
>>  
>>>> outro micro da rede, nada acontecerá).
>>>>
>>>> Nunca tive problemas de corrupção de índices ou perca de dados. O único
>>>> problema do paradox é não saber configurá-lo, acredito eu. As dicas dos
>>>> colegas foram muito boas, mas algumas estão equivocadas, pois tempos
>>>>  
>>> vários
>>>
>>>> clientes trabalhando com o servidor, fazendo downloads usando programas
>>>> aceleradores e com a proteção de tela ativada.
>>>>
>>>> Porém, eu não uso ALIASES criados no BDE Admin, uso o componente
>>>>  
>>> TDatabase
>>>
>>>> fazendo as configurações assim:
>>>> Session.NetFileDir := LocalDosDados;
>>>> // atualizar DataBase;
>>>> db.close;
>>>> db.Params.Values['PATH'] := LocalDosDados;
>>>> db.Open;
>>>>
>>>>
>>>> Configura localshare através de código usando a seguinte função.
>>>> ---
>>>> function LocalShare(Ligado: Boolean): Boolean;
>>>> var
>>>> regini: TReginifile;
>>>> const
>>>> Key = '\SOFTWARE\Borland\Database Engine\Settings\SYSTEM\INIT';
>>>> Id = 'LOCAL SHARE';
>>>> begin
>>>> Result := True;
>>>> regini := TRegIniFile.Create();
>>>> try
>>>> regini.RootKey := HKEY_L

Re: [delphi-br] Paradox em rede ajuda s.o.s

[dbug.eti.br - Gmail]

Ahfala sério, PARADOX é banco de dados de verdade agora? Só pela 
razão de que alguém não teve problemas com PARADOX não significa que ele 
realmente deva ser utilizado em projetos sérios. Pessoal, por favor, 
reavaliem essa situação. Utilizem um SGDB de verdade! Existem muitos 
livres, como MySQL (InnoDB suporta transações), Postgre (EXCELENTE!) e 
nosso conhecido Firebird. Uma frase de um ex-professor meu, mas que ele 
citou de um filósofo: "Mostra-me as ferramentas que utiliza que te direi 
que tipo de profissional és."

Abraço


Em 21/12/2009 04:41, EmbarcaDelphi escreveu:
>
> Pessoal só manda resposta depois que alguém entrega uma dica, e ainda
> por cima diz que as dicas estão equivocadas. Pois bem, quem repassou
> esta dica foi nada menos que o Sr. Daniel Wildt, Mestrado em computação
> UFRS, Borland Certified Instructor.
> Mas tudo bem, minha parte eu fiz sem ter que criticar ninguém.
>
> Em 20/12/2009 16:42, JC Informática (José Cláudio) escreveu:
> > Estimada Alessandra,
> >
> > Minha sugestão, baseada em sistemas desenvolvidos utilizando banco 
> de dados
> > Paradox ao longo dos últimos 10 anos é a seguinte:
> >
> > No servidor, configure localshare = true,
> >
> > no path do banco de dados nunca use unidades compartilhadas, mas sim o
> > caminho no formato UNC (mesmo estando no servidor)
> > \\NOMEDOSERVIDOR\\NOMEDOCOMPARTILHAMENTO
> >
> > O netdir pode estar na mesma pasta, mas antes de abrir qualquer banco de
> > dados no sistema, exclua os arquivo *.lck (se estiverem sendo usados por
> > outro micro da rede, nada acontecerá).
> >
> > Nunca tive problemas de corrupção de índices ou perca de dados. O único
> > problema do paradox é não saber configurá-lo, acredito eu. As dicas dos
> > colegas foram muito boas, mas algumas estão equivocadas, pois tempos 
> vários
> > clientes trabalhando com o servidor, fazendo downloads usando programas
> > aceleradores e com a proteção de tela ativada.
> >
> > Porém, eu não uso ALIASES criados no BDE Admin, uso o componente 
> TDatabase
> > fazendo as configurações assim:
> > Session.NetFileDir := LocalDosDados;
> > // atualizar DataBase;
> > db.close;
> > db.Params.Values['PATH'] := LocalDosDados;
> > db.Open;
> >
> >
> > Configura localshare através de código usando a seguinte função.
> > ---
> > function LocalShare(Ligado: Boolean): Boolean;
> > var
> > regini: TReginifile;
> > const
> > Key = '\SOFTWARE\Borland\Database Engine\Settings\SYSTEM\INIT';
> > Id = 'LOCAL SHARE';
> > begin
> > Result := True;
> > regini := TRegIniFile.Create();
> > try
> > regini.RootKey := HKEY_LOCAL_MACHINE;
> > try
> > if regini.KeyExists(key) then
> > begin
> > s := regini.ReadString(key, id, '');
> > if Trim(S)<> 'TRUE' then
> > regini.WriteString(key, id, 'TRUE');
> > end;
> > except
> > erro('Impossível gravar no registro e configurar o BDE!');
> > Result := False;
> > raise;
> > end;
> > finally
> > regini.Free;
> > end;
> > end;
> > -
> >
> >
> >
> > 2009/12/19 EMGF Doc >
> >
> >
> >>
> >> Alessandra e Samuca
> >>
> >> Sinto discordar do Samuca. Utilizei durante anos em um cliente, um 
> sistema
> >> utilizando Paradox, em rede, com 6 máquinas acessando e ainda mais,
> >> contrariando tambem o que um outro colega disse, utilizando o 
> "servidor"
> >> tambem como máquina de digitação.
> >>
> >> Sem problemas! Mas o que notei que dava problemas e eu NÂO fazia NUNCA:
> >>
> >> criar e/ou destruir qualquer forma de indices no runtime;
> >>
> >> NÃO PERMITIR exclusões de registros. Marcava como inativos e só eram
> >> excluídos por ocasião da manutenção;
> >>
> >> ou seja. cada tabela tinha seu índice primário e o número mínimo de 
> índices
> >>
> >> secundários necessários criados em tempo de desenvolvimento e sempre
> >> mantidos e mais, tinha uma rotina de manutenção que rodava uma vez por
> >> semana, copiando as tabelas co grande movimento de inclusão e de 
> inativação
> >>
> >> em um loop "while not tab..eof do ... next" de tabelas provisósias para
> >> tabelas vazias de forma a ter uma tabela sequencialmente arrumada pelo
> >> indice principal e da qual eram eliminados os registros inativos..
> >>
> >> Era uma cadeia de lojas com 8 lojas e 25,000 produtos.
> >>
> >> Sem problemas
> >>
> >> Edison
> >>
> >>
> >> - Original Message -
> >> From: "Samuca ( Yahoo )" 
> >>
> >>>
> >> To: >;<
> >> lista-del...@yahoogrupos.com.br 
> >
> >> Sent: Friday, December 18, 2009 4:53 PM
> >> Subject: 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
>

Re: [delphi-br] Criar Procedure em Tempo de Execução

[Moacir - GMail]

Tire o suspend. Ele não tem função alguma ali.

Sucesso !

Moacir


mario.pagnozzi1979 escreveu:
> Amigos,
>  Encontro-me com o seguinte problema, preciso atualizar a base de dados 
> de um cliente, pra isto estou criando um aplicativo para que atualize essa 
> base. Até nas alterações de tabelas e criação de tabelas tudo certo. Porém ao 
> criar uma SP ocorre um erro.
>  Quando crio essa SP no IBExpert vai tudo bem, mais pela aplicação 
> retorna erro. A procedure segue abaixo:
>
> CREATE PROCEDURE SP_TOTAL_DIZIMISTA (
> COD_SETOR INTEGER,
> COD_COMU INTEGER)
>  AS
> BEGIN
> UPDATE COMUNIDADE SET COMUNIDADE.TOTAL_DIZ = (
> SELECT COUNT(DIZIMISTA.RG_DIZIMISTA) FROM DIZIMISTA
> WHERE DIZIMISTA.COD_COMUNIDADE = :COD_COMU AND DIZIMISTA.COD_SETOR = 
> :COD_SETOR)
> WHERE COMUNIDADE.NUM_COMUNIDADE = :COD_COMU  AND COMUNIDADE.COD_SETOR = 
> :COD_SETOR;
> SUSPEND;
> END
>
> Estou me conectando com o Mercury e usando o MDOScript para compilar os 
> scripts que preciso. Estou com um pouco de urgencia, se alguem souber de 
> algum procedimento ficarei grato.
>
> Mário Antônio Pagnozzi
>
>
>
>
>
> 
>
>   

Re: [delphi-br] Testar string

[Moacir - GMail]

If pos(stParametro262 ,'00,01,02,03,04,05,06,07,08')=0 then



Berdam escreveu:
> Existe a possibilidade de  realizar este teste em delphi sendo a variavel 
> stparametro262 uma string ??
>
> Com char é possível, mas com string é ??
>
>if stParametro262 <> ['00', '01', '02', '03', '04', '05', '06', '07', 
> '08'] then
>
>
>   
> 
> 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] Sistema com NFe

[jalosii gmail]

Aqui guardamos o xml gerado e tbm o xml assinado, não tem como refazê-los.

Tbm guardamos o numero do recibo.

Mas ainda não uso o ACBR estou com o flexdocs, mas pretendo partir pro ACBR.

Estou trabalhando tbm no CTE, e já estou gerando na mão o xml do mesmo, 
tentei reproduzir no ACBR e encontrei diferenças na geração do mesmo, 
irei testar novamente assim que puder pra avaliar novamente.

t+
Alosi



Nazareno Neto escreveu:
> Aqui faço com reduncancia, ante de gerar a nota, guardo todos os dados!
>
> 2009/12/3 Berdam 
>
>   
>> eu acho melhor guardar redundante, pois armazena as infos no instante, se
>> algum dado muda no cadastro do cliente, não altera a nota.
>>
>> --
>> Uberdam Cavaletti
>> Programador Delphi
>> Formado em Tecnologia da Informação
>> Pós-graduado em desenvolvimento Java.
>> Professor Tópicos Especias em BD - Unoesc Xanxerê
>> Professor Estruturas de Dados - Unoesc Xanxerê
>>
>> http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
>> --
>>
>> 
>> De: Iran Lima >
>> Para: delphi-br@yahoogrupos.com.br 
>> Enviadas: Quinta-feira, 3 de Dezembro de 2009 16:12:57
>> Assunto: [delphi-br] Sistema com NFe
>>
>> Gente gostaria de pedir uma ajuda aqui. Estou desenvolvendo um sistema que
>> emite NF-e usando o ACBRNFE gostaria de saber
>>
>> Quais os campos que vcs (quem trabalha com isso) gravam nas tabelas da Nota
>> Fiscal. Tipo eu gravar gravar os campos de relacionados ao produto, ou do
>> emitente, ou do cliente, ficaram redundantes no banco. Porém e mais seguro
>> gravar pois mudanças nessas tabelas alteraria os dados da NFe que estão
>> relacionados. Exemplos: - caso um produto mude sua alicota de ICMS ou
>> redução de base – ou o emitente mudasse o endereço ... etc. Quando o
>> sistema
>> fosse gerar informações referentes a Nota(exemplo Sintegra) estariam
>> erradas.
>>
>> E ai Grava tudo nas tabelas da Nota Fiscal mesmo sendo redundante?? ?
>>
>> Grato Iran Lima
>>
>> [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




-- 
< 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] Desabilitar PopupMenu TaskBar do aplicativo

[Moacir - GMail]

Juliomar,

A opções do Menu popup mudam de acordo com o BorderStyle  do formulário.

Veja se isto te ajuda ai.

Sucesso !!

Moacir


Juliomar Marchetti escreveu:
> Boa tarde
> Leandro
> Valeu pela ajuda, mas ele só desabilita no form, eu gostaria de desabilitar
> ele no barra de tarefas.
>
> Quando o aplicativo esta aberto, eu posso ir na barra de tarefas e clicar
> com o lado direito do mouse em cima dela e tens as opções de fechar,
> maximizar, restaurar e etc.
>
> Obrigado mesmo assim.
>
> Atenciosamente
>  
> Juliomar Marchetti
>
>
>   

Re: [delphi-br] Pronunciamento da Active Delphi

[André Moraes - Gmail]

Veja http://br.groups.yahoo.com/group/delphi-br/message/206248

André F. Moraes
- Original Message - 
From: "Jose Newton Araujo" 
To: 
Sent: Wednesday, December 02, 2009 1:26 PM
Subject: [delphi-br] Pronunciamento da Active Delphi


Senhores:



Eu não vi este e-mail. Peço a gentileza de quem puder, enviar-me uma cópia
para jose.new...@jnewton.com.br ou aqui na lista.



Muito Obrigado

Jose Newton



[As partes desta mensagem que não continham texto foram removidas]





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Re: Res: Re: [delphi-br] Desenvolver software 64 bits com Delphi

[Moacir - GMail]

Asafe Locker:


Asafe Locker escreveu:
> Claro que temos o direito de reclamar so acho que temos que reclamar no lugar 
> certo e com as pessoas certas. Não adianta vir um cidadão aqui e ficar 
> malhando o Delphi como se ele ou a Embarcadero tivessem mais defeitos do que 
> qualidade.
>
>   
Não foi isto que eu li nas mensagens anteriores...
> Se o seu software é livre 100% de erros parabens!!! Mas eu não conheço 
> software sem bugs. Se voce comercializa seu software, e um cliente antigo seu 
> que nao compra de vc a muito tempo reclama de erros, o que vc faz? depende da 
> sua politica, quantos de nos nao falamos pro cara comprar um versao recente, 
> pagar manutencao, ou coisa do tipo? Quem aqui gosta de trabalhar de graça?
>   
BUG´s, erros, são SEMPRE corrigidos nos softwares que eu desenvolvo e 
sem custo para meus clientes, afinal eles pagaram por algo que não 
estava de acordo  com aquilo que eles haviam comprado. Faço com os meus 
clientes aquilo que espero que os meus fornecedores façam comigo.
> Eu crio um software versao 1 e so por que eu vendi bastante sou obrigado a 
> manter aquela versao sem evoluir e sem ganhar dinheiro com isso? A 
> Embarcadero assim como nossas empresas é comercial e precisa do dinheiro, e 
> se o o dinheiro esta nas novas versões onde sera que esta o foco?
>
>   
Pelo visto voce não entendeu nada do que foi exposto nos email´s 
anteriores. Ninguém aqui falou em não evoluir, em manter eternamente a 
mesma versão. Todos nós temos que ter visão a comercial de nosso 
negócio. Agora, monte uma banquinha de frutas e passe a vender frutas 
estragadas.. O que vc acha que acontecerá com sua empresa ?? Vc acha que 
o comprador voltará a comprar de vc ?

> Continuo crendo que o elefante branco que muito pintam aqui não existe, e se 
> ao inves de chorar e espernear trabalhassemos mais, creio que teriamos 
> retorno mais imediato.
>
>   
Isto reflete a sua opinião pessoal e eu a respeito profundamente. Mas 
para mim, só reflete a sua opinião pessoal e não a realidade que observo 
com relação ao Delphi. Conhecei a usa-lo ainda na versão 2 e acredito 
que  tenho algum conhecimento  a respeito dele e de sua evolução. 
Acredito na verdade que a grande maioria aqui  deve viver a mesma situação.
> Não sei com relação aos outors, mas minha licença de Delphi se paga sempre 
> sozinha. Um bom projeto, um bom desenvolvedor, um bom negocio e o Delphi são 
> formulas certas de sucesso.
>
>   
No meu caso o Delphi é só uma das ferramentas do meu dia a dia. E eu 
preciso de ferramentas que funcionem. Por isto estou ainda na versão 7, 
pra mim a melhor versão ja lançada até hoje. Já o meu editor de PHP tem 
sido renovado religiosamente em todas as suas versão, afinal eles me 
garantem a correção de todos os bugs encontrados, mesmo depois de 
lançarem outra versão. Verifique por si mesmo: Rapid PHP -> 
http://www.blumentals.net/
E eles não são os unicos.

> Eu também reclamo dos erros, mas faço direto no quality central e pelo 
> suporte ao desenvolvedor registrado, area existente para tdos os usuários 
> dentro do member services da Embarcadero, sempre sou atendido de forma 
> satisfatória.
>
>   
Isto ja foi feito, isto esta exposto nos email´s anteriores.
> Eu não espero que todos os erros do Delphi sejam corrigidos, mas que o Delphi 
> continue tendo a qualidade e excelencia que vem sido evidenciada para que eu 
> continue tendo sucesso como profissional que o utiliza. Não conheço nenhumm 
> erro tão critico que me sejam empecilho de uso do Delphi ou que prejudique 
> meu produto final desenvolvido com ele.
>
>   
Eu ja penso diferente, mas como ja disse antes, respeito a sua visão. 
Quando aos 'pequenos erros', de-lhe POG :)
> E acho muito normal que erros sejam corrigidos em novas versões do software e 
> eu como usuário mantenho minhas manutenções e atualizações para que este 
> continue evoluindo.
>
>   
Mas é disto exatamente que estamos nos queixando, usar a CORREÇÃO DE 
BUG´s como argumento de venda e mecanismo de imposição de atualização.
> E por isso que existe manutenção e upgrades, para beneficiar os usuários 
> Delphi e proporcionar que haja um diferencial de preço na evolução de uma 
> versão para outra e a compatibilidade entre o codigo fonte é mantida.
>
>   
> Venho evoluindo minhas aplicações desde o Delphi 5, passei pelo 7, 2006, 
> 2007, 2009 e 2010 sem problemas e me beneficiando muito a cada nova versão. E 
> nada mais justo se me beneficio com isso, que eu pague por isso, pois ninguem 
> trabalha de graça e não ganha de graça.
>
> Nao paguei 10 pilas, ate por que somente um Delphi architect novo custa mais 
> ou menos isso, mas pago minhas 3 e 5 pilas pelos upgrades de versao 
> Enterprise e Architect, e ainda vou pagar menos, pois estou vendo como 
> adquirir o All-Access e se faz sentido pra meu negocio e/ou fazer planos de 
> manutenção que reduzirão ainda mais meu custo de licenciamento anual.
>
> Acho legal colocarmos os erros aqui na lista e proporcionarmos discus

Re: [delphi-br] Desenvolver software 64 bits com Delphi

[Moacir - GMail]

Ricardo,

Bingo !!

Vc tocou no X da questão.
O Quality center recebe estes questionamentos e reclamações e, pode 
acreditar, eles estão lá postados e no aguardo de um retorno.
Esperemos agora pelo que a Borland / CodeGear / Embarcadero (espero naum 
ter esquecido ninguem ;) ) tem a dizer sobre isto.

Seria importante que todos aqueles que se sentem atingidos por esta 
pratica (sic) comercial da Borland / CodeGear / Embarcadero fizessem os 
mesmos questionamentos lá e tb aqui, para que TODOS os usuários de 
Delphi possam ter uma visão clara desta situação.

Eu, particularmente, considero meu D7 a ultima versão de Delphi, a menos 
que esta pratica escabrosa mude.

No computo final esta thread, a meu ver, foi bem  interessante. Grato 
João Carlos, Ricardo e a todos que se pronunciaram a respeito.

Sucesso a todos nós !

Moacir
 

Ricardo César Cardoso escreveu:
> Também acredito e foi exatamente o que quiz dizer em minha mensagem anterior. 
> A observação importante é que esse tipo de requisição deve ser direcionado à 
> quem de direito (Embarcadero/MicroFocus/CG/Borland) e a lista apenas copiada 
> para efeito de informação.
>
> Bem lembrado que vivemos numa democracia. Mas se não reclamamos a quem tem 
> que tem que se pronunciar, damos margem a Anarquia, pois cada um reage 
> conforme seus sentimentos.
>
> Direito de expressão todos temos, mas também temos que nos expressar nos 
> canais adequados. Em momento algum ficou claro se essa cobrança foi feita ao 
> pessoal da Embarcadero. Aí complica, né?
>
> Sem mais,
> 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!
>
> --- Em ter, 1/12/09, Moacir - GMail  escreveu:
>
> De: Moacir - GMail 
> Assunto: Re: [delphi-br] Desenvolver software 64 bits com Delphi
> Para: delphi-br@yahoogrupos.com.br
> Data: Terça-feira, 1 de Dezembro de 2009, 13:44
>
>
>
>
>
>
>
>  
>
>
>
>   
>
>
> 
>   
>   
>   Ricardo,
>
>
>
> Acredito que o colega tem todo o direito de reclamar, comentar, etc. 
>
> Esta é uma lista voltada para o Delphi, e o assunto levantado por ele é 
>
> pertinente.
>
>
>
> As colocações dele encontram eco na grande maioria de nós, proprietários 
>
> de uma licença de uso do Delphi, independente de versão, já que o 
>
> problema reportado por ele atinge praticamente TODAS as versões.
>
>
>
> Lembre-se: Estamos numa DEMOCRACIA.
>
>
>
> Não entenda meus comentários como um ataque, na verdade estou 
>
> defendendo  o meu direito de expressar minhas opiniões aqui na lista, 
>
> assim como vc e o próprio João Carlos o fazem.
>
>
>
> Sucesso !!
>
>
>
> Moacir
>
>
>
> Ricardo César Cardoso escreveu:
>
>   
>> Sem querer me alongar mas complementando sua primeira frase, você realmente 
>> tem todo o direito de reclamar DIRETAMENTE COM O FABRICANTE/FORNCEDO R DO 
>> SOFTWARE. 
>> 
>
>   
>
>   
>> Como esta lista não é um canal oficial da Embarcadero, sugiro encaminhar 
>> esse tipo de questionamento diretamente ao fornecedor. Caso ache necessário 
>> COPIAR a lista, proceda dessa maneira.
>> 
>
>   
>
>   
>> Garanto que evita flames e trocas de ofensas desnecessárias.
>> 
>
>   
>
>   
>> Atte,
>> 
>
>   
>> Ricardo.
>> 
>
>   
>
>   
>
>   
>>   
>> 
>
>   
>>   
>> 
>
>
>
> 
>  
>
> 
> 
>
>
>  
>
>
>
>   
>
>
>
>
>
>
>   
> 
> 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] Desenvolver software 64 bits com Delphi

[Moacir - GMail]

Ricardo,

Acredito que o colega tem todo o direito de reclamar, comentar, etc. 
Esta é uma lista voltada para o Delphi, e o assunto levantado por ele é 
pertinente.

As colocações dele encontram eco na grande maioria de nós, proprietários 
de uma licença de uso do Delphi, independente de versão, já que o 
problema reportado por ele atinge praticamente TODAS as versões.

Lembre-se: Estamos numa DEMOCRACIA.

Não entenda meus comentários como um ataque, na verdade estou 
defendendo  o meu direito de expressar minhas opiniões aqui na lista, 
assim como vc e o próprio João Carlos o fazem.

Sucesso !!

Moacir


Ricardo César Cardoso escreveu:
> Sem querer me alongar mas complementando sua primeira frase, você realmente 
> tem todo o direito de reclamar DIRETAMENTE COM O FABRICANTE/FORNCEDOR DO 
> SOFTWARE. 
>
> Como esta lista não é um canal oficial da Embarcadero, sugiro encaminhar esse 
> tipo de questionamento diretamente ao fornecedor. Caso ache necessário COPIAR 
> a lista, proceda dessa maneira.
>
> Garanto que evita flames e trocas de ofensas desnecessárias.
>
> Atte,
> Ricardo.
>
>
>   
>   

Re: [delphi-br] Delphi terá em 2010 versõ es para Linux e Mac OS

[dbug.eti.br - Gmail]

Então, ele provavelment gerará binários estáticos e vc mesmo deverá 
montar o pacote de instalação para cada distro (apt, rpm, tar.gz, 
etc..), e sim, existem executáveis em linux/unix, mas não precisam ter 
extensão alguma, só permissão de execução (ou seja, é um arquivo 
"executável").

Flws

Edward Fernandes
Eu sou filiado ao PPR, PARTIDO DAS PEDRAS QUE ROLAM! E vc?
http://www.lumbra.com.br/


Em 30/11/2009 10:40, Nazareno Neto escreveu:
> Não saco muito de linux e muito menos de Mac OS, entao resumindo: o delphi
> ira gerar os "executaveis" para linus e mac os?
> obs: sei quem eh linux nao existe .exe, mas algo que possa instalar nele
>
> Flw
>
> 2009/11/27 Jackson Gomes - Tools&Comps
>
>
>>
>>
>>  
>>> Delphi terá em 2010 versões para Linux e Mac OS
>>>
>>>
>>> Ferramenta de desenvolvimento para os dois ambientes deve chegar ao
>>>
>> mercado
>>  
>>> no meio do próximo ano
>>>
>> Corrigindo: O Delphi não terá versões para Linux ou Mac OS, mas irá gerar
>> binários para essas plataformas e terá recursos de debugger remoto para
>> ambas as
>> plataformas também. A IDE continua no Windows apenas.
>>
>> --
>> Jackson
>>
>>
>>
>>  
>
>
>

Re: [delphi-br] Desenvolver software 64 bits com Delphi

[Moacir - GMail]

Acho que o Delphi ainda não !

Da uma olhada no Lazarus (www.*lazarus*.freepascal.org), este com 
certeza ja faz isto, compila para Windows (32 / 64), Linux e Mac.

Sucesso !!

Moacir


Ricardo César Cardoso escreveu:
> Basta que o compilador seja escrito, ou melhor, dê suporte para essa 
> plataforma. Se não me engano (tenho quase certeza) o compilador do Delphi 
> 2010 já suporta essa caracteristica.
>
> Atte,
> 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!
>
> --- Em sáb, 28/11/09, Ricardo Ravelli  escreveu:
>
> De: Ricardo Ravelli 
> Assunto: [delphi-br] Desenvolver software 64 bits com Delphi
> Para: delphi-br@yahoogrupos.com.br
> Data: Sábado, 28 de Novembro de 2009, 19:27
>
>
>
>
>
>
>
>  
>
>
>
>   
>
>
> 
>   
>   
>   Pessoal, boa tarde.
>
>
>
> Com o aumento do uso de sistema operacionais 64 bits (x64), acredito que os
>
> sistemas também futuramente começarão a migrar para x64.
>
>
>
> O que eu quero saber é o seguinte:
>
>
>
> Como eu faço para desenvolver aplicativos x64 em Delphi? O que eu preciso? 
>
>
>
> Ex: Sistema operacional, Delphi, Framework??
>
>
>
> A idéia é começar a migrar alguns sistemas que tenho para essa plataforma.
>
>
>
> Obrigado.
>
>
>
> Att.
>
>
>
> Ricardo Ravelli.
>
>
>
> [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]
>
>
>
> 
>
>   


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Validação de IE do RS

[jalosii gmail]

aqui quebrou as linhas, se precisar entre em contato 
al...@digitalsystem.com.br que te envio a função diretamente.

berdam escreveu:
> o problema daquela dll é que em debug ela solta umas msgs que atrapalham 
> muito.
>
> Irei tentar ver seu código
>
> jalosii gmail escreveu:
>   
>> eu usava a dll pra validar os IEs, mas depois que encontrei essa função
>> na net, arrumei o que precisava e uso ela sem problemas.
>>
>> function ConfereIE(IE, UF: String; ApenasDigitos: Boolean = True): 
>> Boolean;
>> const
>> MASCARAS_: String = ' X- NNNXY-
>> NNX- NX- NNYX-' +
>> ' XY- NX- XNNY- XNNN-
>> NNNXY';
>> PESOS_: String =
>> 'GFEDCJIHGFEDCA- FEDCJIHGFEDCAA- GFEDCJIHGFEDAC- GFEDCA- 
>> ABCDEFGHIA- '
>> +
>>
>> 'AAAJIAAHGFEDCA- FEDCBJIHGFEDCA- IHGFEDCHGFEDCA- HGFEDCHGFEDCAA- 
>> ABCBBCBCBCBCAA- ADCLKJIHGFEDCA- '
>> +
>>
>> 'AABDEFGHIK- AADCKJIHGFEDCA- AJIHGFEDCA- AIHGFEDCAA- 
>> AJIHGFEDCA- KJIHGFEDCA- ';
>> PESO_: String =
>> 'ABABBABAAJ AAIGAHAADAEALLAF NOQ!A !CC!A !!K!!H!!! 
>> !!M!! !!P!';
>> ALFA_: String = 'ABCDEFGHIJKLMNOPQR S';
>> ROTINAS_: String =
>> 'EE0112 EE0EEEDEDDEE EE0!E !EE!E !!E!!E!!! 
>> !!D!! !!E!';
>> MODULOS_: String =
>> '999898 9979 999090890900 9009 
>> 0990' ;
>> INICIO_ : String =
>> '002AB000111X2X 11X11X2XXX22 XX21143337XC C2X8X56X89X0XXX4 
>> 9XX0' ;
>> MASCARA_: String = 'ABAEEABCAB AAFDAEAGADAAHIAC AJG';
>> FATORES_: String = '100010 00011100 000';
>> ESTADOS_: String =
>> 'ACACALAPAPAPAMBABA CEDFESGOGOMAMTMS MGPAPBPRPEPIRJRN RSRORORRSCSPSPSE 
>> T0TOPERN' ;
>> var
>> c1, c2, alternativa, inicio, posicao, erros, fator, modulo, soma1,
>> soma2, valor, digito: Smallint;
>> mascara, inscricao, a1, a2, peso, rotina: String;
>> begin
>> UF := trim(uppercase( UF));
>> IE := trim(uppercase( IE));
>> result := ((IE = 'ISENTO') or (IE = 'EM ANDAMENTO') or ((UF = 'EX')
>> and ((IE = '') or (IE = '00' ;
>> posicao := 0;
>> while not result and (posicao < 37) and (IE <> '') do begin
>> inc(posicao) ;
>> if (copy(ESTADOS_ , posicao * 2 - 1, 2)) <> UF then
>> continue;
>> inscricao := '';
>> for C1 := 1 to 30 do
>> if pos(copy(IE, C1, 1), '0123456789' ) <> 0 then
>> inscricao := inscricao + copy(IE, C1, 1);
>> mascara := copy(MASCARAS_ , pos(copy(MASCARA_ , posicao, 1), ALFA_) *
>> 15 - 14, 14);
>> while length(inscricao) < length(trim( mascara)) do
>> inscricao := '0' + inscricao;
>> if length(inscricao) <> length(trim( mascara)) then
>> continue;
>> inscricao := copy('0 0' + inscricao, length(inscricao) +
>> 1, 14);
>> erros := 0;
>> alternativa := 0;
>> while alternativa < 2 do begin
>> inc(alternativa) ;
>> inicio := posicao + (alternativa * 37) - 37;
>> peso := copy(PESO_, inicio, 1);
>> if peso = '!' then
>> continue;
>> a1 := copy(INICIO_ , inicio, 1);
>> a2 := copy(copy(inscricao , 15 - length(trim( mascara)) ,
>> length(trim( mascara)) ), alternativa, 1);
>> if not ApenasDigitos and (((pos(a1, 'ABCX') = 0) and (a1 <> a2)) or
>> ((pos(a1, 'ABCX') <> 0) and (pos(a2,
>> copy('012345- 67- 01- 0123456789' , (pos(a1, 
>> 'ABCX') *
>> 11 - 10), 10)) = 0))) then
>> erros := 1;
>> soma1 := 0;
>> soma2 := 0;
>> for C2 := 1 to 14 do begin
>> valor := StrToInt(copy( inscricao, C2, 1)) *
>> (pos(copy(copy( PESOS_, (pos(peso, ALFA_) * 15 - 14), 14), C2, 1), ALFA_)
>> - 1);
>> soma1 := soma1 + valor;
>> if valor > 9 then
>> valor := valor - 9;
>> soma2 := soma2 + valor;
>> end;
>> rotina := copy(ROTINAS_ , inicio, 1);
>> modulo := StrToInt(copy( MODULOS_, inicio, 1)) + 2;
>> fator := StrToInt(copy( FATORES_, posicao, 1));
>> if pos(rotina, 'A22') <> 0 then
>> soma1 := soma2;
>> if pos(rotina, 'B00') <> 0 then
>> soma1 := soma1 * 10;
>> if pos(rotina, 'C11') <> 0 then
>> soma1 := soma1 + (5 + 4 * fator);
>> i

Re: [delphi-br] Validação de IE do RS

[jalosii gmail]

eu usava a dll pra validar os IEs, mas depois que encontrei essa função 
na net, arrumei o que precisava e uso ela sem problemas.

function ConfereIE(IE, UF: String; ApenasDigitos: Boolean = True): Boolean;
const
  MASCARAS_: String = ' X- NNNXY-   
NNX-NX-  NNYX-' +
  'XY-NX-  XNNY-  XNNN- 
NNNXY';
  PESOS_: String = 
'GFEDCJIHGFEDCA-FEDCJIHGFEDCAA-GFEDCJIHGFEDAC-GFEDCA-ABCDEFGHIA-' 
+
  
'AAAJIAAHGFEDCA-FEDCBJIHGFEDCA-IHGFEDCHGFEDCA-HGFEDCHGFEDCAA-ABCBBCBCBCBCAA-ADCLKJIHGFEDCA-'
 
+
  
'AABDEFGHIK-AADCKJIHGFEDCA-AJIHGFEDCA-AIHGFEDCAA-AJIHGFEDCA-KJIHGFEDCA-';
  PESO_: String = 
'ABABBABAAJAAIGAHAADAEALLAFNOQ!A!CC!A!!K!!H!MP!';
  ALFA_: String = 'ABCDEFGHIJKLMNOPQRS';
  ROTINAS_: String = 
'EE0112EE0EEEDEDD0!E!EE!E!!E!!E!DE!';
  MODULOS_: String = 
'99989899709089090090090990';
  INICIO_ : String = 
'002AB000111X2X11X11X2XXX22XX21143337XCC2X8X56X89X0XXX49XX0';
  MASCARA_: String = 'ABAEEABCABAAFDAEAGADAAHIACAJG';
  FATORES_: String = '100011110';
  ESTADOS_: String = 
'ACACALAPAPAPAMBABACEDFESGOGOMAMTMSMGPAPBPRPEPIRJRNRSRORORRSCSPSPSET0TOPERN';
var
  c1, c2, alternativa, inicio, posicao, erros, fator, modulo, soma1, 
soma2, valor, digito: Smallint;
  mascara, inscricao, a1, a2, peso, rotina: String;
begin
  UF := trim(uppercase(UF));
  IE := trim(uppercase(IE));
  result := ((IE = 'ISENTO') or (IE = 'EM ANDAMENTO') or ((UF = 'EX') 
and ((IE = '') or (IE = '00';
  posicao := 0;
  while not result and (posicao < 37) and (IE <> '') do begin
inc(posicao);
if (copy(ESTADOS_, posicao * 2 - 1, 2)) <> UF then
  continue;
inscricao := '';
for C1 := 1 to 30 do
  if pos(copy(IE, C1, 1), '0123456789') <> 0 then
inscricao := inscricao + copy(IE, C1, 1);
mascara := copy(MASCARAS_, pos(copy(MASCARA_, posicao, 1), ALFA_) * 
15 - 14, 14);
while length(inscricao) < length(trim(mascara)) do
  inscricao := '0' + inscricao;
if length(inscricao) <> length(trim(mascara)) then
  continue;
inscricao := copy('00' + inscricao, length(inscricao) + 
1, 14);
erros := 0;
alternativa := 0;
while alternativa < 2 do begin
  inc(alternativa);
  inicio := posicao + (alternativa * 37) - 37;
  peso := copy(PESO_, inicio, 1);
  if peso = '!' then
continue;
  a1 := copy(INICIO_, inicio, 1);
  a2 := copy(copy(inscricao, 15 - length(trim(mascara)), 
length(trim(mascara))), alternativa, 1);
  if not ApenasDigitos and (((pos(a1, 'ABCX') = 0) and (a1 <> a2)) or
 ((pos(a1, 'ABCX') <> 0) and (pos(a2, 
copy('012345-67-01-0123456789', (pos(a1, 'ABCX') * 
11 - 10), 10)) = 0))) then
erros := 1;
  soma1 := 0;
  soma2 := 0;
  for C2 := 1 to 14 do begin
valor := StrToInt(copy(inscricao, C2, 1)) * 
(pos(copy(copy(PESOS_, (pos(peso, ALFA_) * 15 - 14), 14), C2, 1), ALFA_) 
- 1);
soma1 := soma1 + valor;
if valor > 9 then
  valor := valor - 9;
soma2 := soma2 + valor;
  end;
  rotina := copy(ROTINAS_, inicio, 1);
  modulo := StrToInt(copy(MODULOS_, inicio, 1)) + 2;
  fator := StrToInt(copy(FATORES_, posicao, 1));
  if pos(rotina, 'A22') <> 0 then
soma1 := soma2;
  if pos(rotina, 'B00') <> 0 then
soma1 := soma1 * 10;
  if pos(rotina, 'C11') <> 0 then
soma1 := soma1 + (5 + 4 * fator);
  if pos(rotina, 'D00') <> 0 then
digito := soma1 mod modulo;
  if pos(rotina, 'E12') <> 0 then
digito := modulo - (soma1 mod modulo);
  if digito = 10 then
digito := 0;
  if digito = 11 then
digito := fator;
  if (copy(inscricao, pos(copy('XY', alternativa, 1), mascara), 1) 
<> IntToStr(digito)) then
erros := 1;
end;
result := erros = 0;
  end;
end;


Berdam escreveu:
> Olá pessoal, venho solicitar ajuda principalmente do pessoal do RS.
>
> Tenho o seguinte IE 481926, que quando cadastro no sistema, acusa que o 
> mesmo é inválido
>
> Tenho o seguinte código para validação, reparem na linha em negrito ou aquela 
> q tem o nr 467. A validação testa se os primeiros 3 números são maior ou 
> igual a 1 e menor igual a 467.
>
> Porém o início do meu IE é 480, dai ele não entra no if.
>
> Verifiquei no próprios site do sefaz que existe mesmo essa validação, será 
> que meu código está desatualizado ??
>
> Gostaria da ajuda de vcs para resolver isso
>
> function ChkIERS(const ie: string): Boolean; // 999.99-9
> var
>   b, i, soma: Integer;
>   nro: array[1..10] of byte;
>   dig: SmallInt;
> begin
>   Result :=false;
>   if (length(ie) <> 10) then
> exit;
>   if not IsNumero(ie) then
> exit;
>   i :=StrToInt(copy(ie, 1, 3));
>   if (i >= 1) a

Re: [delphi-br] nome do arquivo com data

[Moacir - GMail]

Ou então,

nomearquivo := 'NomeArquivo_'+formatDateTime('mmdd',Now)+'.txt' 
ou
nomearquivo := 'NomeArquivo_'+formatDateTime('mmdd_hhnn',Now)+'.txt' 




Andre Yahoo escreveu:
> nomearquivo := 'NomeArquivo'+DatetoStr(Now)+'.txt'
>
>   

Re: [delphi-br] Delphi Conference 2009 - Evento Gratuito

[dbug.eti.br - Gmail]

Concordo plenamente. Sou de Curitiba e trabalho com desenvolvimento de 
software. Todos sabem, que isso é Fexige muita dedicação... São 
Paulo? Deslocamento? Tempo perdido em ônibus/avião e outros traslados?
Põe na web!
Faz a galera se registrar mas poder ver o que rolou...

Edward

Em 18/11/2009 18:32, Leandro escreveu:
> galera podiam fazer a transmissao via web tbm né! pra gente que esta longe
> poder participar?
>
> 2009/11/18 Bruno Lichot
>
>
>>
>> Galera,
>>
>> Faltam apenas mais dois dias de inscrição e as vagas já estão quase
>> acabando.
>>
>> A conferencia está imperdível, vai ter um mini-curso inteiro sobre VCL For
>> Web com o Jackson, vai ser muito legal.
>>
>> http://latam.embarcadero.com/br/delphiconference/
>>
>> Permaneço a disposição de todos para o que for necessário, se alguém quiser
>> ajuda de como chegar ou qualquer outra dúvida, pode me contatar diretamente
>> se preferir.
>>
>> Abraços,
>>
>> Bruno
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>>  
>
>
>

Re: [delphi-br] Sped Fiscal

[André Moraes - Gmail]

Veja http://www.forumweb.com.br/foruns/index.php?/topic/78912-sped-fiscal/ 
talvez possa te ajudar.

André F. Moraes
  - Original Message - 
  From: Berdam 
  To: Delphi 
  Sent: Wednesday, November 18, 2009 8:17 AM
  Subject: [delphi-br] Sped Fiscal



  Olá Pessoal.

  Alguém aqui da lista implementa ou já implementou Sped Fiscal ??

  --
  Uberdam Cavaletti
  Programador Delphi
  Formado em Tecnologia da Informação
  Pós-graduado em desenvolvimento Java.
  Professor Tópicos Especias em BD - Unoesc Xanxerê
  Professor Estruturas de Dados - Unoesc Xanxerê

  http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
  --

  __
  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] intervalo entre duas datas

[Moacir - GMail]

Leonardo,

Definitivamente a função DaysBetween não toma conhecimento dos feriados !!

O cálculo é matemático !

Ex.:

Data Inicial: 1/11/2009
Data Final: 30/11/2009
Dias entre datas = 29 (30 - 1)

Data Inicial: 1/12/2009
Data Final: 31/12/2009
Dias entre datas = 30 (31 - 1)

Data Inicial: 1/12/2009
Data Final:  1/12/2009
Dias entre datas = 0 (1 - 1)


Sucesso !!

Moacir


Leonardo Baldino escreveu:
> naum sei como mas a função DaysBetween não contas os dias que são feriados
>
> 2009/10/28 José Mário Silva Guedes 
>   

Re: RES: [delphi-br] NFe usando ACBR

[Moacir - GMail]

Grande informação Evandro, vou me cadastrar.

Grato,

Moacir


Evandro Siqueira escreveu:
> Estou usando desde 01/09 e o que posso dizer é: Show de Bola!!! Tem 
> atualizações praticamente diárias e atende muito bem às nossas 
> necessidades. Existe uma lista de discussão muito prestativa e a 
> comunidade é muito atuante e que me ajudou muito no processo de 
> implantação (http://br.groups.yahoo.com/group/projeto_cooperar_nfe/) . 
> Recomendo a qualquer um que queira implementar NFe.
>
>   
>




-- 
< 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: RES: [delphi-br] NFe usando ACBR

[jalosii gmail]

Tudo bem, não procurei direito a informação, sei que devo usar o sistema 
sempre no drive local da máquina, com a dll registrada e as pastas de 
schemas e url junto ao exe, senão só causa AVs.

t+

Rubem Rocha escreveu:
> Uma pequena retificação.
>
> OCX - Controle visual para aplicações que suportem controles ActiveX.
> DLL - No caso de arquitetura COM, trata-se de componente para uso em 
> ferramentas de desenvolvimento que suportem COM.
>
> Ou seja, a DLL da FlexDocs é na verdade um componente COM encapsulado em uma 
> DLL, e não um controle ActiveX para ser denominado como um OCX!
>
> Sds.
>
> 
> De: delphi-br@yahoogrupos.com.br [delphi...@yahoogrupos.com.br] em Nome de 
> jalosii gmail [jalo...@gmail.com]
> Enviado: segunda-feira, 26 de outubro de 2009 5:34
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] NFe usando ACBR
>
>
>
> Quando eu tiver tempo pretendo migrar pro ACBR_NFE, mas no momento estou
> usando o ocx da flexdocs, muito bom tbm. Agora estou fazendo o CTE com o
> componente da flexdocs, mas não descarto a possibilidade de fazer envio
> direto pros httpservices(estou com mais tempo pra terminar o projeto),
> mas estou envolvido com o paf-ecf-tef tbm.
>
> Alosi
> DigitalSystem Sistemas
> Bento Gonçalves-RS
>
> Marcos Douglas escreveu:
>   
>>> Pessoal,
>>>
>>> Alguem ja implementou alguma coisa para NFE usando a ACBR ??
>>>
>>> Em especial para uso aqui no RS ??
>>>
>>> Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
>>> esta usando
>>>
>>> Sucesso !!
>>>
>>>   
>> Caro Moacir,
>> Procure no histórico de mensagens da lista que vc verá que já existem
>> várias pessoas utilizando estes componentes. Eu mesmo utilizo e
>> recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
>> sendo utilizado em MG.
>>
>> Abraços
>> Marcos Douglas
>> 
>
> .
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>   

Re: [delphi-br] NFe usando ACBR

[Moacir - GMail]

Marcos,

Grato pela pronta resposta.

Na verdade o que busco é a opinião de quem ja esta usando, assim como 
vc, NFER com o ACBR.

Com o uso surgem novos dados e é isto que estou buscando.

Quaisquer comentários a respeito do uso da ACBR/NFE são bem vindos, pela 
lista ou em pvt.

Sucesso a todos !

Moacir


Marcos Douglas escreveu:
>> Pessoal,
>>
>> Alguem ja implementou alguma coisa para NFE usando a ACBR ??
>>
>> Em especial para uso aqui no RS ??
>>
>> Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
>> esta usando
>>
>> Sucesso !!
>> 
>
> Caro Moacir,
> Procure no histórico de mensagens da lista que vc verá que já existem
> várias pessoas utilizando estes componentes. Eu mesmo utilizo e
> recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
> sendo utilizado em MG.
>
> Abraços
> Marcos Douglas
>
>
> 
>
>   


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] NFe usando ACBR

[jalosii gmail]

Quando eu tiver tempo pretendo migrar pro ACBR_NFE, mas no momento estou 
usando o ocx da flexdocs, muito bom tbm. Agora estou fazendo o CTE com o 
componente da flexdocs, mas não descarto a possibilidade de fazer envio 
direto pros httpservices(estou com mais tempo pra terminar o projeto), 
mas estou envolvido com o paf-ecf-tef tbm.

Alosi
DigitalSystem Sistemas
Bento Gonçalves-RS

Marcos Douglas escreveu:
>> Pessoal,
>>
>> Alguem ja implementou alguma coisa para NFE usando a ACBR ??
>>
>> Em especial para uso aqui no RS ??
>>
>> Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja
>> esta usando
>>
>> Sucesso !!
>> 
>
> Caro Moacir,
> Procure no histórico de mensagens da lista que vc verá que já existem
> várias pessoas utilizando estes componentes. Eu mesmo utilizo e
> recomendo. Não sou do RS, mas sim do RJ. No entanto meu sistema está
> sendo utilizado em MG.
>
> Abraços
> Marcos Douglas
>
>
> 
>
>   

[delphi-br] NFe usando ACBR

[Moacir - GMail]

Pessoal,

Alguem ja implementou alguma coisa para NFE usando a ACBR ??

Em especial para uso aqui no RS ??

Estou pensando em usar a ACBR para isto, mas queria a opinião de quem ja 
esta usando

Sucesso !!

Moacir

D7 + Zeos + Firebird 2.0/MySQL



ajama_1 escreveu:
> Muito Obrigado Marcelo, deu certo, parabéns, solução simples e criativa.
>
> - Original Message - 
> From: "Marcelo Luiz Onhate" 
> To: 
> Sent: Thursday, October 22, 2009 8:06 AM
> Subject: Re: [delphi-br] Evento do grid OnCellclick (herança)
>
>
>   
>> Basicamente
>> Você precisa armarzenar oque já existe no OnCellClick em uma variável do
>> tipo TDBGridClickEvent e depois quando for executar o seu cell click
>> teste se existe algo nesta variável, se existe executa ela...
>>
>> var AntigoCellClick: TDBGridClickEvent;
>>
>> procedure Inicializa;
>> begin
>> AntigoCellClick:=grid.OnCellClick;
>> grid.OnCellClick:=MeuCellClick;
>> end;
>>
>> procedure MeuCellClick(Column: TColumn);
>> begin
>> if Assigned(AntigoCellClick) then begin
>> AntigoCellClick(Column);
>> end;
>> //faz o resto do "rolo"...
>> end;
>>
>>
>> ajama_1 escreveu:
>> 
>>> Pessoal, será que alguém sabe me informar como eu faço para atribuir
>>> um evento a um evento já existente sem alterar o evendo que já existe ?
>>>
>>> procedure TLib_SkinFrm.CClick_Ex(Column: TColumn);
>>> begin
>>> Lib_CellClick_ExC(Column);
>>> end;
>>>
>>> procedure TMainForm.StGridCellClick(Column: TColumn);
>>> begin
>>> ShowMessage('teste');
>>> end;
>>>
>>>
>>> Mais eu queria manter o evento que já exite em "StGridCellClick",
>>> quando efaço assim:
>>>
>>> StGrid.OnCellClick := CClick_Ex;
>>>
>>> ele apaga o evento anterior.
>>>
>>> Desde já agradeço
>>>
>>>
>>>   
>> -- 
>>
>> */System – Soluções em Sistemas de Informação
>> /*/Marcelo Luiz Onhate
>> Departamento de Desenvolvimento/
>> marc...@systempro.com.br 
>> www.systempro.com.br
>> (54) 3321-5888
>>
>>
>>
>> 
>>
>> -- 
>> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>>
>>
>>
>> 
>
>
>
> 
>
>   


[As partes desta mensagem que não continham texto foram removidas]





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
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] [Off] Duvida exportação MyS ql para Firebird

[Moacir - GMail]

Substitua somente a pasta dos dados do teu cliente que esta dentro do 
pasta data , algo como:

Ex.: ..mysql\mysql5.x.xx\data\meuprojeto

meuprojeto = nome da pasta de dados do teu cliente.

Sucesso !!

Moacir


Nazareno Neto escreveu:
> Estou com o seguinte problema, estamos com um cliente que quer mudar de
> sistema, o sistema antigo esta com banco mysql, e trabalhamos com firebird,
> eis a questao, como faria para copiar os dados do banco? o que consegui com
> o dono da empresa foi apenas uma copia do pasta do Mysql e nada mais, pois
> cara do sistema entigo nao quer a senha para acessar (nao se eh nessario,
> sou leigo com mysql).
>
> Alguem podeira me dar uma ajuda nessa importação? tipo to querendo saber
> como abrir o mysql em outra maquina, se instalo o mysql e depois substituo a
> pasta do mysql pela pasta q eu trouse da empresa?
>
> Alguem me da uma luz ai!
>
> Obrigado a todos!
>
>   

Re: [delphi-br] Erro ao carregar dll

[Moacir - GMail]

Alisson,

De uma googlada e vc obterá algumas respostas.

Pelo que vi aqui, pode se tratar de virus !!

http://www.google.com.br/search?sourceid=chrome&ie=UTF-8&q=Libeay32.dll 


Sucesso !!

Moacir



Alisson Yahoo escreveu:
> Uso algumas dlls em meu projeto. Quando tento abrir o exe em algumas 
> máquinas pede uma dll que não está incluída no projeto(Libeay32.dll). 
> Inclusive em algumas máquinas o exe nem abre se não existir essa dll, dando 
> a seguinte mensagem: "Aplicativo não inicializado corretamente (9xc015002). 
> Clique em OK para finalizar.". Alguém sabe do que se trata essa dll, e por 
> que meu programa está pedindo ela? 
>
> __
> Faça ligações para outros computadores com o novo Yahoo! Messenger 
> http://br.beta.messenger.yahoo.com/ 
>
>
> 
>
>   


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Sistema em TS

[Gmail - Sharplinux]

Pessoal, bom dia

Preciso de algumas dicas, é o seguinte.

Utilizamos um sistema que o exe e as bpl´s ficam em uma pasta de cada 
estação, estamos querendo migrar esta aplicação para que funcione de 
forma adequada para utilizar no Windows TS, hoje até funciona mas 
preciso de uma pasta para cada usuário, porque o sistema possui uma 
trava para não execução mais de uma vez.

Alguém ja implantou ou alterou o sistema para alguma coisa assim.

Atte,
Rodrigo Fernando
Analista de processos
Belo Horizonte / MG

Re: [delphi-br] Botões

[jalosii gmail]

[Error] Unit1.pas(63): Undeclared identifier: 'Modulo'
[Error] Unit1.pas(63): Missing operator or semicolon
Modulo seria outro form, provavelmente um datamodule, onde esteja o 
cdscontatos(Tclientdataset).

[Error] Unit1.pas(69): Undeclared identifier: 'TbSupSetor'
TbSupSetor é o nome de uma tabela(TTable, TQuery, TClientDataSet, etc).

[Error] Unit1.pas(69): 'THEN' expected but identifier 'State' found
Propriedade da TbSupSetor

[Error] Unit1.pas(70): Unterminated string
[Error] Unit1.pas(71): Unterminated string
Não pode escrever um pedaço da string numa linha e o resto na outra sem 
finalizar a linha.

[Error] Unit1.pas(78): Statement expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'




Monique escreveu:
> Olá grupo. Como disse estudo Delphi e instalei Dekphi 7. Mas quando procuro 
> alguma coisa na internet em relação a implementar um botão (ex o botão 
> cancelar( tem propriedades e eventos do botão no site que não tem no meu 
> Delphi. Vcs acham melhor instalar novamente ou pegar um completo?
> Sobre o código dá erro quando tento rodar o programa. Abaixo o código 
> completo:
>
>
> unit Unit1;
>
> interface
>
> uses
>   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
>   Dialogs, StdCtrls, Menus, ExtCtrls;
>
> type
>   TForm1 = class(TForm)
> btOk: TButton;
> btCancelar: TButton;
> btAjuda: TButton;
> lbLabel1: TLabel;
> lbLabel2: TLabel;
> lbLabel3: TLabel;
> edEdit3: TEdit;
> edEdit2: TEdit;
> edEdit1: TEdit;
> mmMenu1: TMainMenu;
> Arquivo1: TMenuItem;
> Salvar1: TMenuItem;
> Inserir1: TMenuItem;
> SelecionarTudo1: TMenuItem;
> SalvarComo1: TMenuItem;
> Ajuda1: TMenuItem;
> Sobre1: TMenuItem;
> Sair1: TMenuItem;
> cbBox1: TCheckBox;
> cbBox2: TCheckBox;
> cbBox3: TCheckBox;
> cbBox4: TCheckBox;
> lbLabel4: TLabel;
> rgGroup1: TRadioGroup;
> lbBox1: TListBox;
> cbBox5: TComboBox;
> gbBox1: TGroupBox;
> rbButton1: TRadioButton;
> rbButton2: TRadioButton;
> rbButton3: TRadioButton;
> rbButton4: TRadioButton;
> LbLabel5: TLabel;
> btSair: TButton;
> procedure btCancelarClick(Sender: TObject);
> procedure btSairClick(Sender: TObject);
>   private
> { Private declarations }
>   public
> { Public declarations }
>   end;
>
> var
>   Form1: TForm1;
>
> implementation
>
> {$R *.dfm}
>
> procedure TForm1.btCancelarClick(Sender: TObject);
> begin
> If MessageDlg('Deseja realmente cancelar as modificações ?', mtConfirmation, 
> [mbYes,mbNo], 0) = mrYes Then
> Modulo.cdsContatos.Cancel;
>
> end;
>
> procedure TForm1.btSairClick(Sender: TObject);
> begin
>  If TbSupSetor.State = dsEdit Then
>   ShowMessage('Confirme ou Cancele a operação antes de
>   fechar o programa.')
>else
>   close
> end;
>
> end.
>
> Os erros são esses:
>
> [Error] Unit1.pas(63): Undeclared identifier: 'Modulo'
> [Error] Unit1.pas(63): Missing operator or semicolon
> [Error] Unit1.pas(69): Undeclared identifier: 'TbSupSetor'
> [Error] Unit1.pas(69): 'THEN' expected but identifier 'State' found
> [Error] Unit1.pas(70): Unterminated string
> [Error] Unit1.pas(71): Unterminated string
> [Error] Unit1.pas(78): Statement expected but end of file found
> [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
>
> Me ajudem.
>
> Grata.
>
>
>
> 
>
>   

Re: [delphi-br] Pesquiza com SQLQue ry - Ajuda TCC Último Ano!!!!!!!

[Moacir - GMail]

Ricardo,

Use a função UPPER do firebird para isto:

sql :='select * from TB_PRODUTO where UPPER(NOME_PROD) 
like'++'%'+Ansiuppercase(edtBusca.Text)+'%'+;



Sucesso !!

Moacir

ricardo_rmsr escreveu:
> Bom dia ... Estou fazendo uma aplicação Delphi para meu TCC, esta aplicação 
> utiliza o componente BDE para conexão com Firebird, fiz um formulário onde 
> tenho um edid, dbgrid, datasource e sqlquery. Meu código de pesquiza está 
> assim:
>
>   sql : String;
> begin
> sql :='select * from TB_PRODUTO where NOME_PROD 
> like'++'%'+edtBusca.Text+'%'+;
> DMBusca.qVenda.Close;
> DMBusca.qVenda.SQL.Clear;
> DMBusca.qVenda.SQL.Add(sql);
> DMBusca.qVenda.Open;
>
> a pesquisa está funconando, porém as informações armazenadas na TB_PRODUTO, 
> estão escrita com a primeira letra em maiuscula e o restante em minusculo, 
> como eu faço para fazer a pesquisa sem diferencias as letras
>
> Obrigado Ricardo Rocha
>
>
>
>
> 
>
>   

Re: [delphi-br] Dados da tabela p ara array dinâmico

[Moacir - GMail]

Adjalma,

Vc esta usando o setlength da forma incorreta. Veja como seria, no teu caso:

procedure TForm1.Button4Click ( Sender: TObject );

var i: InteGer;

vetor_string_ dinamico: array of array of string;

TamTabela: InteGer;

begin

ClientDataSet_ Clientes. Close;
ClientDataSet_ Clientes. Open;

i := 0;
while not ClientDataSet_ Clientes. Eof do
begin
   SetLength( vetor_string_ dinamico, i+1 );
   vetor_string_ dinamico[ i,1] := ClientDataSet_ ClientesID. AsString;
   vetor_string_ dinamico[ i,2] := ClientDataSet_ ClientesNome. AsString;
   inc(i);
   ClientDataSet_ Clientes. next;
end;

end;

Os dados serão alocados a partir da posição '0' (Zero) do array.

Sucesso !!

Moacir



Adjalma Costa escreveu:
> Bom dia!
>
> Aguém poderia me ajudar informando como posso inserir dados de uma tabela em 
> um Array dinâmico?
>
> Tentei fazer da forma abaixo, mas está dando erro.
>
> procedure TForm1.Button4Click ( Sender: TObject );
>
> var i: InteGer;
>
> vetor_string_ dinamico: array of array of string;
>
> TamTabela: InteGer;
>
> begin
>
> ClientDataSet_ Clientes. Close;
> ClientDataSet_ Clientes. Open;
>
> TamTabela := ClientDataSet_ Clientes. RecordCount;
>
> SetLength( vetor_string_ dinamico, TamTabela, 2 );
>
> ClientDataSet_ Clientes. First;
>
> i := 1;
>
> while not ClientDataSet_ Clientes. Eof do
> begin
> vetor_string_ dinamico[ i,1] := ClientDataSet_ ClientesID. AsString;
> vetor_string_ dinamico[ i,2] := ClientDataSet_ ClientesNome. AsString;
> i := i+1;
> ClientDataSet_ Clientes. next;
> end;
>
> end;
>
>
>   
> 
> 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] Dados da tabela p ara array dinâmico

[Moacir - GMail]

Adjalma,

me ocorreu que vc pode fazer o mesmo usando records..

Na seção 'type' declare:

  tDadosCliente = record
  Id  : Integer;
  Nome: string;
  end;

Depois é só alterar a rotina do botão:

procedure TForm1.Button4Click ( Sender: TObject );

var i: InteGer;

vetor_string_ dinamico: array of tDadosCliente;


begin

ClientDataSet_ Clientes. Close;
ClientDataSet_ Clientes. Open;

ClientDataSet_ Clientes. First;

i := 1;

while not ClientDataSet_ Clientes. Eof do
begin
   SetLength( vetor_string_ dinamico, i+1 );
   vetor_string_ dinamico[ i].Id   := ClientDataSet_ ClientesID. AsInteger;
   vetor_string_ dinamico[ i].Nome := ClientDataSet_ ClientesNome. AsString;
   i := i+1;
   ClientDataSet_ Clientes. next;
end;

end;


Sucesso !!

Moacir


Adjalma Costa escreveu:
> Bom dia!
>
> Aguém poderia me ajudar informando como posso inserir dados de uma tabela em 
> um Array dinâmico?
>
> Tentei fazer da forma abaixo, mas está dando erro.
>
> procedure TForm1.Button4Click ( Sender: TObject );
>
> var i: InteGer;
>
> vetor_string_ dinamico: array of array of string;
>
> TamTabela: InteGer;
>
> begin
>
> ClientDataSet_ Clientes. Close;
> ClientDataSet_ Clientes. Open;
>
> TamTabela := ClientDataSet_ Clientes. RecordCount;
>
> SetLength( vetor_string_ dinamico, TamTabela, 2 );
>
> ClientDataSet_ Clientes. First;
>
> i := 1;
>
> while not ClientDataSet_ Clientes. Eof do
> begin
> vetor_string_ dinamico[ i,1] := ClientDataSet_ ClientesID. AsString;
> vetor_string_ dinamico[ i,2] := ClientDataSet_ ClientesNome. AsString;
> i := i+1;
> ClientDataSet_ Clientes. next;
> end;
>
> end;
>
>
>   
> 
> 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] Ferramenta de fácil uso par a gerar intaladores

[Moacir - GMail]

Inno setup com certeza !!

http://www.innosetup.com

Sucesso !

Moacir


Silvio Clecio escreveu:
> Hugo Vieira escreveu:
>   
>> Gostaria de saber de vocês uma ferramenta rápida e fácil para a geração 
>> de instaladores(SETUP).  ...
>> 
>
> Brother, veja isso: 
> [http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg78527.html].
>
> Caso o Yahoo quebre a URL, cole no browser e remova os espaços em 
> branco, depois Enter.
>
> Boa sorte. ;)
>   


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Como enviar vários anexos u sando MAPI via Delphi?

[Moacir - GMail]

Cesar,

Tente enviar os anexos separados por  #13, por ex.:

MeusAnexos := 'arquivo1.txt'+#13+'arquivo2.txt' ;

Sucesso !!

Moacir


Fellipe Henrique escreveu:
> Olá Ricardo,
>
> Foi a primeira coisa que tentei mudar, porém continua a dar erro nº 2... não
> adianta mudar o nFileCount, só se eu estiver mudando no local errado.
>
> []s
>
> 2009/9/28 Ricardo César Cardoso 
>
>   
>> Dica: Dá uma lida no código e repare no uso da variável nFileCount.
>>
>> Abraço,
>> 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!
>>
>> --- Em seg, 28/9/09, Fellipe Henrique 
>> >
>> escreveu:
>>
>> De: Fellipe Henrique >
>> Assunto: [delphi-br] Como enviar vários anexos usando MAPI via Delphi?
>> Para: delphi-br@yahoogrupos.com.br 
>> Data: Segunda-feira, 28 de Setembro de 2009, 13:50
>>
>>
>>
>>
>> Amigos, achei um codigo na internet que usa MAPI pra enviar email.. porém
>> só
>>
>> aceita 1 anexo... alguém teria algum codigo que aceitaria mais de 1 anexo?
>>
>> Segue o codigo:
>>
>> function SendMailMAPI( const Subject, Body, FileName, SenderName,
>>
>> SenderEMail,
>>
>> RecepientName, RecepientEMail: string): Integer;
>>
>> var
>>
>> message: TMapiMessage;
>>
>> lpSender,
>>
>> lpRecepient: TMapiRecipDesc;
>>
>> FileAttach: TMapiFileDesc;
>>
>> SM: TFNMapiSendMail;
>>
>> MAPIModule: HModule;
>>
>> SL: TStringList;
>>
>> i: integer;
>>
>> begin
>>
>> FillChar(message, SizeOf(message) , 0);
>>
>> with message do
>>
>> begin
>>
>> if (Subject <> '') then
>>
>> begin
>>
>> lpszSubject := PChar(Subject)
>>
>> end;
>>
>> if (Body <> '') then
>>
>> begin
>>
>> lpszNoteText := PChar(Body)
>>
>> end;
>>
>> if (SenderEMail <> '') then
>>
>> begin
>>
>> lpSender.ulRecipCla ss := MAPI_ORIG;
>>
>> if (SenderName = '') then
>>
>> begin
>>
>> lpSender.lpszName := PChar(SenderEMail)
>>
>> end
>>
>> else
>>
>> begin
>>
>> lpSender.lpszName := PChar(SenderName)
>>
>> end;
>>
>> lpSender.lpszAddres s := PChar('SMTP: ' + SenderEMail) ;
>>
>>
>> lpSender.ulReserved := 0;
>>
>> lpSender.ulEIDSize := 0;
>>
>> lpSender.lpEntryID := nil;
>>
>> lpOriginator := @lpSender;
>>
>> end;
>>
>> if (RecepientEMail <> '') then
>>
>> begin
>>
>> lpRecepient. ulRecipClass := MAPI_TO;
>>
>> if (RecepientName = '') then
>>
>> begin
>>
>> lpRecepient. lpszName := PChar(RecepientEMai l)
>>
>> end
>>
>> else
>>
>> begin
>>
>> lpRecepient. lpszName := PChar(RecepientName )
>>
>> end;
>>
>> lpRecepient. lpszAddress := PChar('SMTP: ' + RecepientEMail) ;
>>
>> lpRecepient. ulReserved := 0;
>>
>> lpRecepient. ulEIDSize := 0;
>>
>> lpRecepient. lpEntryID := nil;
>>
>> nRecipCount := 1;
>>
>> lpRecips := @lpRecepient;
>>
>> end
>>
>> else
>>
>> begin
>>
>> lpRecips := nil
>>
>> end;
>>
>> if (FileName = '') then
>>
>> begin
>>
>> nFileCount := 0;
>>
>> lpFiles := nil;
>>
>> end
>>
>> else
>>
>> begin
>>
>> SL := TStringList. Create;
>>
>> try
>>
>> SL.Text := Filename;
>>
>> for i := 0 to SL.Count - 1 do
>>
>> begin
>>
>> FillChar(FileAttach , SizeOf(FileAttach) , 0);
>>
>> FileAttach.nPositio n := Cardinal($) ;
>>
>> FileAttach.lpszPath Name :=
>>
>> PChar(SL.Strings[ i]);//PChar( FileName) ;
>>
>> Inc(nFileCount) ;//nFileCount := 1;
>>
>> lpFiles := @FileAttach;
>>
>> end;
>>
>> finally
>>
>> SL.Free;
>>
>> end;
>>
>> end;
>>
>> end;
>>
>> MAPIModule := LoadLibrary( PChar(MAPIDLL) );
>>
>> if MAPIModule = 0 then
>>
>> begin
>>
>> Result := -1
>>
>> end
>>
>> else
>>
>> begin
>>
>> try
>>
>> @SM := GetProcAddress( MAPIModule, 'MAPISendMail' );
>>
>> if @SM <> nil then
>>
>> begin
>>
>> Result := SM(0, Application. Handle, message, MAPI_DIALOG or
>>
>> MAPI_LOGON_UI, 0);
>>
>> end
>>
>> else
>>
>> begin
>>
>> Result := 1
>>
>> end;
>>
>> finally
>>
>> FreeLibrary( MAPIModule) ;
>>
>> end;
>>
>> end;
>>
>> if Result <> 0 then
>>
>> begin
>>
>> MessageDlg(' Error sending mail (' + IntToStr(Result) + ').', mtError,
>>
>> [mbOk],
>>
>> 0)
>>
>> end;
>>
>> end;
>>
>> --
>>
>>  _ _ ___
>>
>> T.·.F.·.A.·.
>>
>> Fellipe Henrique
>>
>>  - - - - - -
>>
>> CAMPANHA POR UMA INTERNET SEGURA
>>
>> Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
>>
>> mensagens use SEMPRE o "Cco" (cópia oculta).
>>
>> Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
>>
>> um e-mail, delete todas as informações que apareçam no corpo do e-mail e
>> que
>>
>> possam ser usadas por hackers.
>>
>>  # # #
>>
>> [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] Dúvidas em relação às versões

[Moacir - GMail]

Ricardo,

Estou usando o Zeos no Dephi 7 e no Lazarus.

E estou 100% satisfeito..

Até agora tenho conseguido converter satisfatoriamente todas as minhas 
aplicações desenvolvidas em D7 para o Lazarus, e recomendo o uso do mesmo.

Sucesso !!

Moacir



Ricardo César Cardoso escreveu:
> Quanto as questões comerciais referentes ao Delphi 2010 recomendo (note: 
> "recomendo") que encaminhe cópia para o departamento comercial da Embarcadero 
> ou sua representante no Brasil a Microfocus.
>
> Quanto ao Lazarus, depende do que vc quer fazer. Os três itens da sua 
> mensagem, por exemplo, podem ser feitos aplicando o Lazarus, porém não 
> exatamente como é feito no Delphi que possui o dbExpress, algo que o Lazarus 
> não possui. Agora, se já estivesse usando ZEOS (uma alternativa ao 
> DBExpress), não há diferenças nos componentes utilizados seja no Delphi ou 
> seja no Lazarus.
>
> Atte,
> 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!
>
> --- Em seg, 28/9/09, romulocsouza  escreveu:
>
> De: romulocsouza 
> Assunto: [delphi-br] Dúvidas em relação às versões
> Para: delphi-br@yahoogrupos.com.br
> Data: Segunda-feira, 28 de Setembro de 2009, 18:20
>
>
>
>
>
>
>  
>
>
>
>
> 
>   Olá!
>
>
>
> Gostaria de pedir orientação para aquisição de licença delphi (2010). A 
> dúvida reside nas diferenças entre a professional e a enterprise. No caso 
> dessa aquisição, o uso seria para desenvolvimento de aplicações comerciais. É 
> possível:
>
>
>
> 1) trabalhar com bd firebird e/ou postgres?
>
> 2) consegue-se desenvolver para web?
>
> 3) distribuir o executável sem custo adicional para o cliente
>
>
>
> Quais os limites da professional?
>
>
>
> Aproveitando, andei lendo sobre o projeto Lazarus. Até que ponto, de fato, 
> consigo desenvolver aplicações próximas às feitas com delphi?
>
>
>
> Desde já, agradeço a atenção.
>
> Abraço a todos.
>
>
>
>
>  
>
>   
>
> 
> 
>   
>
>   
>   
>
>
>
>
>
>
>
>
>   
>
>
>   
>   
>
>
>   
> 
> 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] Gravar uma data em branco no firebird

[Moacir - GMail]

auriston.delphi,

dm.qyrecbto.FieldByName('UPGTO').Clear ;


Sucesso !!

Moacir

auriston.delphi escreveu:
> Salve Delphianos.
> No comando dm.qyrecbto.FieldByName('UPGTO').AsDateTime := Date, preciso 
> trocar a funcao Date por uma data em branco, é possivel efetuar este processo 
> ?
>
> Uso D7+Firebird+IBX
>
> at
>
>
>
> 
>
>   

Re: [delphi-br] Dúvida com MEMO

[Moacir - GMail]

Ops !!

Eu havia entendido que ele 1º adicionaria os dados e depois queria 
evitar a sua edição, algo como:

memo.readonly:=false;
//-- Incluir dados;
//-- Incluir dados;
//-- Incluir dados;
//-- Incluir dados;
memo.readonly:=true;

Moacir




Jackson Gomes - Tools&Comps escreveu:
>> Verifique a propriedade readonly..
>> 
>
> Aí ele não vai poder adicionar texto via código
>
> Jackson Gomes - Tools&Comps escreveu:
>   
>>> So que, as linhas são adicionadas, mas podem ser alteradas.
>>> existe algum comando que a eu adicionar as linhas no memo,
>>> o usuario na possa alterar-las ? para nao prejudicar na impressao do cupom?
>>>
>>>   
>> Enabled = False pode funcionar. Ou vc pode rastrear os eventso OnKeyPress,
>> OnKeydown, etc
>>
>> Jackson Gomes
>>
>>
>>
>> 
>>
>>
>> 
>
>
> [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] Mostrar janela encontrada com CreateMutex

[Moacir - GMail]

Andrei,

Este artigo deve resolver teu problema.

http://delphi.about.com/od/windowsshellapi/l/aa100703a.htm

Sucesso !!

Moacir

Andrei Luís escreveu:
> Olá Jackson,
>
> Achei muitas dicas de sendmessage que maximizam a tela e/ou fazem o restore,
> mas nenhuma funcionou por aqui.
>
> Abaixo meu código, Mutex, é uma variável do tipo THandle, que pelo que
> entendi, pega o Handle da janela que está sendo criada, ou da janela já
> existe caso seja a segunda execução do executável.
>
> Você, ou outro colega poderia dar uma luz no que estou fazendo errado ao
> restaurar a aplicação?
>
> Mutex := CreateMutex(nil, True, 'TeStE');
>   if Mutex <> 0 then //Encontrou sua aplicação
> begin
>   if GetLastError = ERROR_ALREADY_EXISTS then
> begin
>   Showmessage('Sistema já está em execução.');
>
>   // abaixo as tentativas que fiz, uma de cada vez
>
>   SendMessage(Mutex, WM_SYSCOMMAND, SC_RESTORE, 0);
>   SetForegroundWindow(Mutex);
>   SendMessage(Mutex, sw_maximize , 0, 0);
>   SendMessage(HWND_BROADCAST, RegisterWindowMessage('TeStE'), 0, 0);
>   ShowWindow(Mutex, SW_MAXIMIZE );
>
>
>
>   CloseHandle(Mutex); // Fecha Handle
>
>   Halt; // Fecha a segunda aplicação
>
>   Exit; // Sai
> end;
> end;
>
> 2009/9/28 Jackson Gomes - Tools&Comps 
>
>
>   
>   

Re: [delphi-br] Dúvida com MEMO

[Moacir - GMail]

Verifique a propriedade readonly..


Jackson Gomes - Tools&Comps escreveu:
>> So que, as linhas são adicionadas, mas podem ser alteradas.
>> existe algum comando que a eu adicionar as linhas no memo,
>> o usuario na possa alterar-las ? para nao prejudicar na impressao do cupom?
>> 
>
> Enabled = False pode funcionar. Ou vc pode rastrear os eventso OnKeyPress, 
> OnKeydown, etc
>
> Jackson Gomes
>
>
>
> 
>
>   


[As partes desta mensagem que não continham texto foram removidas]

Re: RES: [delphi-br] DELPHI 7

[Moacir - GMail]

Evandro,

Ja esta saindo do forno duas ferramentas open source de apoio a usuário 
de mysql desenvolvidas no lazarus.

Em breve deverão estar disponibilizadas lá no blog do Silvio Clécio.

Aqui ja tenho instalados os seguintes pacotes de componentes de terceiros:
- Indy10.2.0.3
- RX
- Zeos
entre outros.
E tudo funcionando 100%.

No que eu puder ser util, faça contato.

Sucesso !!

Moacir

Evandro Siqueira escreveu:
> Concordo Moacyr,
>
> Inclusive já estou migrando meus projetos pessoais para o lazarus. E 
> estou tão entusiasmado com o retorno que já estou pensando em começar 
> esse processo aqui na empresa.
>
> Moacir - GMail escreveu:
>   
>> Jose,
>>
>> Da uma olhada com carinho no lazarus..
>> Dependendo das tuas necessidades ele ate pode te suprir, e é 0800 ;)
>>
>> www.*lazarus*.freepascal.org
>>
>> Sucesso !!
>>
>> Moacir
>>
>>
>> Jose Newton Araujo escreveu:
>>   
>> 
>>> Caro Ricardo
>>>
>>> Eu nunca tive versão nenhuma versão do Delphi, porque sempre usei a da
>>> empresa onde eu trabalhava. Agora preciso de uma versão para trabalhar em
>>> casa.  A venda usada pode ser de qualquer um dos colegas que esteja querendo
>>> desfazer-se da versão 7. (Tb acho difícil, porem...)
>>>
>>> Muito obrigado pela dica. Continuo aguardando os demais colegas.
>>>
>>> JN
>>>
>>>  
>>>
>>>   




-- 
<<<<< 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] um misterio no evento...

[Moacir - GMail]

Cleiton,

No evento OnKeyDown acrescente esta linha:

if (key =VK_F10) then 
begin
  //-- AQUI
  key :=0 ;
  btConsultaClick(Self); 
end;

Sucesso !

Moacir


Cleiton Maciel Reis da Silva escreveu:
> Galera delphiana, eu sei que na programação tudo tem um
> lógica. Mas
> sinceramente não estou conseguindo encontrar a lógica disso:
>  
> e tenho uma tela de cadastro, nessa tela tem todos os botões 
> de incluir alterar etc
>  
> e tem um botão de PESQUISA (CONSULTA) que abre um outro
> formulário
> lista todas os registros desse cadsatro.
>  
> Eu utilizo teclas de funções nesse cadastro
>  
> Por exemplo pra abrir a consulta eu utilizo F10, no evento
> OnKeyDow com o seguinte código
> if (key =
> VK_F10) then btConsultaClick(Self); 
>  
> ele carrega o evento onclick do botão.
>  
>Consulta
> := TConsulta.create ( application );
>  
>  try
> 
> Consulta.ShowModal
>   
> finally
> 
> Consulta.Release;
> 
> Consulta := nil;
>end;
>  
> agora que vem o X da questão quando eu fecho a consulta o
> sistema executa novamente
> o envento OnKeyDow . e abre novamente a bendita da consulta. 
>   
>
> Como pode? Fica buferizado isso no forme por causa do
> KeyPreview = True? Por que sem isso não funciona
> as teclas de função. Sinceramente nãoo sei espero que os experientes colegas 
> possam me dizer..
>
> Testei chamando um showmessage e tambem a msg aparece duas vezes. Tenho 
> outros modulos que trabalham com 
>
> o KeyPreview = True e não ocorre esse problema.
>
> Obrigado.
>
>
>   
> 
> 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: RES: [delphi-br] DELPHI 7

[Moacir - GMail]

Jose,

Da uma olhada com carinho no lazarus..
Dependendo das tuas necessidades ele ate pode te suprir, e é 0800 ;)

www.*lazarus*.freepascal.org

Sucesso !!

Moacir


Jose Newton Araujo escreveu:
> Caro Ricardo
>
> Eu nunca tive versão nenhuma versão do Delphi, porque sempre usei a da
> empresa onde eu trabalhava. Agora preciso de uma versão para trabalhar em
> casa.  A venda usada pode ser de qualquer um dos colegas que esteja querendo
> desfazer-se da versão 7. (Tb acho difícil, porem...)
>
> Muito obrigado pela dica. Continuo aguardando os demais colegas.
>
> JN
>
>  
>
> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
> nome de Ricardo César Cardoso
> Enviada em: terça-feira, 22 de setembro de 2009 15:56
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] DELPHI 7
>
>  
>
>   
>
> Não existe (até onde eu saiba, ou pelo menos não oficialmente) a venda de
> Delphi (qualquer versão) usada.
>
> O que você deve fazer nesse caso é comprar uma licença da versão mais atual
> do Delphi. E se precisa ESPECIFICAMENTE do Delphi 7, verifique se a
> Embarcadero continua oferecendo a opção de Downgrade. Antes de comprar o
> Delphi 2005 (lá em 2004) existia essa possibilidade, desde que o usuário
> enviasse cópia da nota fiscal do produto que possuia e informasse qual
> versão tem necessidade.
>
> Importante frisar que vc só poderá usar uma das versões do Delphi por vez e
> não as duas ao mesmo tempo.
>
> Mas, como de 2004 até hoje se passou muito tempo, verifique se tudo o que
> citei anteriormente ainda é válido.
>
> Atte,
> 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!
>
> --- Em ter, 22/9/09, Jose Newton Araujo   > escreveu:
>
> De: Jose Newton Araujo   >
> Assunto: [delphi-br] DELPHI 7
> Para: delphi-br@yahoogrupos.com.br  
> Data: Terça-feira, 22 de Setembro de 2009, 15:37
>
>  
>
> Muito Pessoal, chegou a hora. Onde comprar uma versão original do Delphi 7 ?
>
> pode ser usado.
>
> SDS,
>
> Jose Newton
>
> [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]
>
>
>
>
>
> [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] Delphi 7 para .NET

[Moacir - GMail]

Walter,

Vejo que não estou só !!

Neste instante estou debruçado no Lazarus...
Não, ele não é páreo nem pro D7 (eita Delphizinho que deu baum sô !!), 
mas funciona que é uma belezinha...
To até pegando gosto pelo bichinho.
Nem bem dei uma googlada e la estava: zeos, rxlib, e mais uma meia duzia 
de componentes bem familiares aos desenvolvedores Delphi.
Estou na fase final de conversão de umas ferramentas para banco de dados 
(a principio só para MySQL, mais tarde quem sabe..) que eu desenvolvi em 
Delphi, e com a  ajuda do Silvio Clecio, deve estar finalizado em breve.
Se tudo der certo com o Lazarus (e olha que esta melhor que eu 
imaginava), sabe quando eu atualizo meu Delphi ? Nunquinha.. hehehehehe..

Sucesso  !!

Moacir
 




Walter Chagas (Bol) escreveu:
> Esse é que é o mal deles.
>
> A linha Express foi uma das grandes responsáveis pela alavancada que o VS deu 
> no mercado já que muitas empresas não precisaram comprar licença de um 
> produto para desenvolvimento interno. A linha express vem 100% funcional 
> porém, com limitações de recursos mais avançados que, em muitos casos, voce 
> nunca vai usar. É verdade que ele vem sem muita coisa que voce usa, 
> realmente. Mas nada que o Source Forge ou estes portais de código fonte 
> espalhados aí na WEB não tenham. 20 minutos de procura no Google ou no Yahoo 
> e voce acha o recurso rodando beleza com direito a demo pra ver como funciona.
>
> O Delphi, infelizmente, se não revisarem a política de preços ao empresário 
> de baixo faturamento lamentavelmente estará fadado a sumir do mercado. Não 
> porque a ferramenta seja ruim, mas porque está fora da realidade de muitos. 
> Se ficar no mercado, vai ser o segmento tipicamente pirata que vai 
> prevalecer. Portanto, já que existe a linha express, porque não fazer o DP 
> Express TAMbém?? Ce já ouviu falar naquele ditado que as vezes é bom 
> dar um passo pra trás pra depois dar dois pra frente?
>
> Eles usam muito o argumento da produtividade para justificar o alto preço do 
> produto. Tá, é até valido e plausível, porém, não é convincente ao cartola 
> que sempre analisa a coisa da ótica do custo e não do retorno. Pega uma 
> licença do Delphi top de linha e uma licença do VS top de linha. Multiplica 
> pelo numero de desenvolvedores que iriam requerê-las em um Depto de 
> desenvolvimento e adicione ainda o custo com um treinamento qualificado. Voce 
> tem um valor X. Veja então quanto voce teria que produzir de receita, com 
> softwares, para, com o que sobrar (Tirando as despesas e encargos já 
> provisionados) da mesma cubra esta compra.
>
> Então? Pega estas duas linhas de cálculo e apresente-as em uma reunião de 
> planejamento estratégico no final do ano pra ver o que eles vão dizer. Em 
> outras palavras, este discurso, de que o preço voce o supre na produvitidade, 
> funciona direitinho no papel. Mas na prática o buraco é bem mais embaixo...
>
> PS: Não estou nem falando do upgrade do final do ano heim. 
>
> Quando criaram a linha turbo, abriu-se até uma esperança no micro empresario, 
> porém, lançaram a versao com limitações inexplicadas como, por exemplo, a 
> instalação de componentes. Aí foi melhor nem lançar...
>
> Quer ver outro exemplo? Enquanto existia a Code Gear, eles ainda mantinham o 
> Turbo JBuilder que era uma IDE do Eclipse muito boa e gratúita totalmente 
> funcional. Quem fosse programar em J2ME, por exemplo, o Turbo atendia e 
> sobrava. Entrou Embarcadero na jogada, embarcaram o turbo e o despacharam pra 
> Saturno... Só tem agora as versões pagas. Pro que eu mexia em Java, aqui no 
> meu serviço, o Turbo fazia e tinha desempenho até melhor que o Eclipse em sí. 
> Só que tiraram o produto de linha. Se tem, caçei no site da embarcadero pra 
> tudo quanto é lado e não achei. Se tem, tá escondido então. 
>
> Sabe aquele vazio que voce sente quando se sente abandonado na esquina
>
> E assim caminha a humanidade.
>
>
>
> []s
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> wchag...@bol.com.br
> http://delphitocorporerm.blogspot.com/
> http://twitter.com/wchagas
> MSN: whitesock...@hotmail.com
> SKYPE: WalterChagasJr
>
>
>   - Original Message - 
>   From: João Carlos 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Monday, September 14, 2009 11:23 AM
>   Subject: Re: [delphi-br] Delphi 7 para .NET
>
>
> Caro Walter,
>
>   Sugiro um banquinho bem estofado para você não se cançar 
>   esperando.hehehehe.
>
>   A outrora M$$$ está sendo substituida pela Emb$$$.
>
>   []´s
>
>   João Carlos
>
>   Walter Chagas (Bol) escreveu:
>   > De tudo que li a respeito do delphi Prism, NÃO TEM QUE COMPRAR VS NÃO. A 
> IDE do VS, e não o VS em sí, já vem "embarcada" no produto. Voce paga uma 
> licença só.
>   >
>   > quanto ao Visual Studio, se o camarada não se familiariza bem com o C# 
> mas bem com o VB, ele pode programar em VB.net também já que os recursos 
> disponíveis tanto pra um como pra outro são os mesmos.
>   >
>   > A minha ex

Re: [delphi-br] Alguem usa o componente tBackupFile?

[Moacir - GMail]

Rafael,

Qual é exatamente o problema que ocorre ??

Moacir


Rafael Marques escreveu:
> Alguem na lista que trabalha com este componente está conseguindo utiliza-lo 
> no Delphi2009???
>
> eu uso ele desde a versao 7 (tenho alguns sistemas utilizando-o em varias 
> telas) e no delphi 2009 ele n funciona mais, dá problema nos backups gerados
>
> tentei procurar no google uma atualizacao e n encontrei.
>
> alguem sabe de algum local onde posso encontrar???
>
>
> obrigado
>
>
>
> __ Information from ESET NOD32 Antivirus, version of virus signature 
> database 4405 (20090908) __
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>   

Re: [delphi-br] capturar campo do dbgrid

[Moacir - GMail]

Alex,

Use o evento OnCellClick para isto:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   Edit1.Text := Column.Field.AsString;
end;

ou o evento OnDblClick:
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
   Edit1.Text :=  DBGrid1.Columns[1].Field.AsString;  //-- Indique qual 
a coluna desejada começando em 0
end;

Sucesso !!

Moacir


asandro1501 escreveu:
> Olá amigos
>
> Alguém pode me dizer como faço para capturar o valor de uma célula do dbgrid. 
> O dbgrid está ligado num dataset que tem uma consulta no qual utilizei left 
> join para relacionar com valores não iguais, preciso inserir um registro em 
> uma das tabelas relacionadas, pra isso preciso do valor contido no dbgrid que 
> é da outra tabela do relacionamento. Espero ter esclarecido a situação.
>
>
> Grato
>
> Alex Silva
>
>
>   

Re: [delphi-br] Re: Para o Andr eano Lanusse - Tamanho do executável gerado pelo delphi 2010

[Moacir - GMail]

Simoesluciano,

Não me parece que este teste tenha sido o suficiente para determinar se 
o EXE gerado faz algum tipo de comunicação !

Ele pode estar fazendo este contato a cada X execuções, a cada X dias, 
ou de uma forma aleatória.

O comportamento seria algo como o de um virus, acredito eu.

Sucesso !!

Moacir


simoesluciano escreveu:
> Acabei de fazer um teste com a versão D2010 trial devidamente registrada. 
> Gerei um EXE simples com um botão. Coloquei esse EXE atrás de um firewall e o 
> executei. Nenhum pacote veio do EXE.
>
>
> Luciano C. Simões
>
> --- Em delphi-br@yahoogrupos.com.br, "Walter Chagas \(Bol\)"  
> escreveu
>   
>>  Quem aí já tiver com ele instalado na maquina, faz um teste com o 
>> firewall ou com algum utilitário que monitore portas pra ver se ele tenta 
>> acessar algum ip do nada.
>>
>> []s
>> 
>
>   


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Para o Andreano L anusse - Tamanho do executável gerado pelo delphi 2010

[Moacir - GMail]

Fabiano,

Após uma breve consulta:

VS 2008 PRO  - R$ 2.485,00


Sucesso !!

Moacir


Fabiano Moura escreveu:
> Boa tarde!
>
> Um dos motivos na minha opinião do Delphi perder o mercado é o alto valor
> das licenças. Fiz um orçamento com umas das empresas conveniadas da
> Embarcadero e que vende o Delphi e o Rad Studio 2010 e me deram o seguinte
> preço:
>
> *Delphi 2010 - Enterprise New User:* R$ 5.397,30
>  *Delphi 2010 - Architect New User*: R$ 9.447,30
>
> *RAD Studio 2010 - Enterprise New User*: R$ 7.557,30
>  *RAD Studio 2010 - Architect new User*: R$ 11.607,30
>
>
> Agora vamos ver o preço do JAVA
> Netbeans: R$0,00
> Eclipse: R$0,00
>
>
> Isso eu estou falando de licenças para um único usuário, se for uma equipe,
> é bem mais caro.
> Está certo que o Delphi 2010 está muito bom mesmo, inclusive o Rad Studio,
> mas com um preço desses fica difícil para muitas empresas, principalmente
> empresas de pequeno porte. Sem falar que as condições de pagamento facilitam
> e muito, já deram uma olhada para ver as condições de pagamentos que a
> Embarcadero dão aos clientes? Conheço várias empresas que gostariam de
> comprar o Delphi, mas que estão partindo para outras linguagens como Java
> por exemplo, por causa do preço dos produtos da Embarcadero.
> Alguém sabe o preço do Visual Studio? Para compararmos?
>
>
> Fabiano
>
>
> 2009/9/1 Ricardo César Cardoso 
>
>   
>> Essa proteção (ou não) e o comentário do Andreano são como o segredo de
>> Tostines ou como a Lipo(ou não) do Ronaldo Nazário. Se existe ninguém vai
>> contar... E se perguntar não vão te responder.
>>
>> Meu palpite baseado na teoria da conspiração: a Embarcadero/CG "deixa
>> vazar" uma versão alternativa do Delphi com esse monitoramento como um
>> HoneyPot e assim consegue monitorar ou mapear os números de pirataria.
>>
>> Isso é o que eu faria se quisesse ter uma idéia de quanto representa a
>> sangria no meu software.
>>
>> []'s
>> 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!
>>
>> --- Em ter, 1/9/09, Fellipe Henrique  escreveu:
>>
>> Traduzindo
>>
>> Se você adquiriu legalmente eles não fazem nada, se for pirata já era!
>>
>> Agora me diz uma coisa Andreano! Como vocês irão saber se é legítimo ou
>> pirata, sem pegar alguns dados da licença/computador que tem o D2010? Você
>> precisam de algo pra saber se é ou não legitimo, só isso já cabe algum
>> processo judicial/criminal. .. a não ser claro, que se tenha escrito na
>> licença que você pegam tais dados... que vou confessar, não li!...
>>
>> rsrsrsrs...
>>
>> Att.
>>
>> 2009/9/1 Andreano Lanusse 
>> 
>>> Boa noite a todos,
>>>
>>> Nós não estamos monitorando ou coletando nenhum tipo de informação
>>>   
>> daqueles
>> 
>>> usuários que compraram uma cópia legítima ou utilizam uma versão Trial
>>> registrada e legítima. Se você estiver utilizando uma cópia adquirida
>>> legalmente ou um Trial devidamente registrado não existe nenhum tipo de
>>> monitoramento.
>>>
>>> Nós não iremos fazer quaisquer comentários neste momento sobre as
>>> atividades e esforços relacionados com pirataria ou uso ilegítimo dos
>>>   
>> nossos
>> 
>>> software.
>>>
>>> []'s
>>> Andreano Lanusse
>>> Product Line Manager Latin America & Caribbean
>>> Embarcadero Technologies
>>>
>>>
>>> CONFIDENTIALITY NOTICE: This email message is for the sole use of the
>>> intended recipient(s) and may contain confidential and privileged
>>> information. Any unauthorized review, use, disclosure or distribution is
>>> prohibited. If you are not the intended recipient, please contact the
>>>   
>> sender
>> 
>>> by reply email and destroy all copies of the original message.
>>>
>>> [As partes desta mensagem que não continham texto foram removidas]
>>>
>>>
>>>
>>>   
>> --
>> _
>> T.·.F.·.A.·.
>> Fellipe Henrique
>> --
>>
>> CAMPANHA POR UMA INTERNET SEGURA
>> Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
>> mensagens use SEMPRE o "Cco" (cópia oculta).
>> Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
>> um e-mail, delete todas as informações que apareçam no corpo do e-mail e
>> que possam ser usadas por hackers.
>> ###
>>
>>
>>
>>  
>> 
>> Veja quais são os assuntos do momento no Yahoo! +Buscados
>> http://br.maisbuscados.yahoo.com
>>
>>
>> 
>>
>> --
>> < 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 

Re: [delphi-br] NF-e com ACBr e certificado A3 com leitor de car tão.

[gmail]

Se o ambiente é win2003 server a unica solução encontrada até agora é utilizar 
o aspack. Eu tb tinha este problema e resolvi assim.

  - Original Message - 
  From: Marcos Douglas 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 27, 2009 8:06 PM
  Subject: Re: [delphi-br] NF-e com ACBr e certificado A3 com leitor de cartão.


Olá Thiago,
  Estou utilizando a mesma configuração que vc. Eu consigo achar o certificado
  (clicando no botão sbtnCaminhoCert, abre uma tela pra escolher o
  certificado), no entanto estou com o mesmo erro: "Inativo ou inoperante...
  bla bla bla".

  Vc já conseguiu resolver?!?
  Abraço

  Marcos Douglas

  2009/8/18 Thiago Menon 

  > Alguém da lista conhece ou sabe alguém que participou do projeto desse
  > componente?
  >
  > Eu fiz um debug simples e verifique que na classe ACBrNFeConfiguracoes
  > função GetCertificado está gerando o erro.
  > O problema é q não consegue achar o certificado.
  > Minha dúvida é aonde ele busca os certificados instalados na máquina?
  >
  > Pois o certificado aparece no internet explore / opções da internet /
  > conteúdo / aba pessoal
  >
  > Alguém sabe como posso fazer para que o componente identifique ele?
  > Tem alguma coisa para ativar?
  >
  > Estou usuando
  > BDS 2006
  > ACBrNFePCN VCL
  > CAPICON para validação do certificado
  > Certificado Certisign A3 e-CNPJ com leitor de cartão USB
  >
  > Agradeço pela ajuda de todos
  > Thiago
  >
  > Thiago Menon escreveu:
  > > Olá,
  > >
  > > Alguém ná lista já conseguiu utilizar os componentes da ACBr para nfe
  > para assinar
  > > os arquivos com o certificado A3 com leitor de cartao?
  > >
  > > Já instalei tudo certinho e quando rodo o teste q vem junto com o
  > componente e testo a opção status Serviço
  > > apresenta um erro dizendo:
  > > "-inativo ou inoperante tente novamente.
  > > - Certificado Digital não encontrado."
  > >
  > > Alguém sabe o q posso fazer para que a aplicação ache o certificado?
  > >
  > > Já setei na propriedade NumeroSerie.
  > >
  > > Utilizando:
  > > BDS 2006
  > > Componentes ACBr baixados com SVN
  > > Certificado e-cnpj Certisign com cartao e leitor Gemplus
  > >
  > > Agradeço a ajuda de todos
  > > Thiago
  > > msn: thime...@hotmail.com
  > > __
  > > Faça ligações para outros computadores com o novo Yahoo! Messenger
  > > http://br.beta.messenger.yahoo.com/
  > >
  > >
  > > 
  > >
  > __
  > 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 >
  >
  >
  >
  >

  [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] NF-e com ACBr e certificado A3 com lei tor de cartão.

[gmail]

Só complementando. Nem sempre vai resolver o problema baixar esta cadeia. Vocês 
devem baixar a cadeia da fornecedora do certificado de vocês. No meu caso 
http://www.certisign.com.br/suporte/utilitarios-criptograficos/hierarquias-de-certificacao/icp-brasil/hierarquia-completa-icp-brasil.
 Além disso para não haver erros no envio é necessário baixar a cadeia de 
certificados do Sefaz onde irão operar. Novamente no meu caso 
http://nfe.sef.sc.gov.br/index.php?option=com_content&task=view&id=88&Itemid=54.
Espero ter ajudado.


  - Original Message - 
  From: Daniel Sobrinho Laporte 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 27, 2009 9:57 PM
  Subject: Re: [delphi-br] NF-e com ACBr e certificado A3 com leitor de cartão.


Pessoal,

  Quando der esse erro baixei o arquivo cadeiasprodemge.exe e instale. As
  vezes ocorre isso. Só isso e já resolve o problema!
  O arquivo está disponível em:
  
https://wwws.prodemge.gov.br/index.php?option=com_content&task=view&id=223&Itemid=91

  Abs
  Daniel.

  2009/8/27 Marcos Douglas 

  >
  >
  > Olá Thiago,
  > Estou utilizando a mesma configuração que vc. Eu consigo achar o
  > certificado
  > (clicando no botão sbtnCaminhoCert, abre uma tela pra escolher o
  > certificado), no entanto estou com o mesmo erro: "Inativo ou inoperante...
  > bla bla bla".
  >
  > Vc já conseguiu resolver?!?
  > Abraço
  >
  > Marcos Douglas
  >
  > 2009/8/18 Thiago Menon >
  >
  >
  > > Alguém da lista conhece ou sabe alguém que participou do projeto desse
  > > componente?
  > >
  > > Eu fiz um debug simples e verifique que na classe ACBrNFeConfiguracoes
  > > função GetCertificado está gerando o erro.
  > > O problema é q não consegue achar o certificado.
  > > Minha dúvida é aonde ele busca os certificados instalados na máquina?
  > >
  > > Pois o certificado aparece no internet explore / opções da internet /
  > > conteúdo / aba pessoal
  > >
  > > Alguém sabe como posso fazer para que o componente identifique ele?
  > > Tem alguma coisa para ativar?
  > >
  > > Estou usuando
  > > BDS 2006
  > > ACBrNFePCN VCL
  > > CAPICON para validação do certificado
  > > Certificado Certisign A3 e-CNPJ com leitor de cartão USB
  > >
  > > Agradeço pela ajuda de todos
  > > Thiago
  > >
  > > Thiago Menon escreveu:
  > > > Olá,
  > > >
  > > > Alguém ná lista já conseguiu utilizar os componentes da ACBr para nfe
  > > para assinar
  > > > os arquivos com o certificado A3 com leitor de cartao?
  > > >
  > > > Já instalei tudo certinho e quando rodo o teste q vem junto com o
  > > componente e testo a opção status Serviço
  > > > apresenta um erro dizendo:
  > > > "-inativo ou inoperante tente novamente.
  > > > - Certificado Digital não encontrado."
  > > >
  > > > Alguém sabe o q posso fazer para que a aplicação ache o certificado?
  > > >
  > > > Já setei na propriedade NumeroSerie.
  > > >
  > > > Utilizando:
  > > > BDS 2006
  > > > Componentes ACBr baixados com SVN
  > > > Certificado e-cnpj Certisign com cartao e leitor Gemplus
  > > >
  > > > Agradeço a ajuda de todos
  > > > Thiago
  > > > msn: thime...@hotmail.com 
  > > > __
  > > > Faça ligações para outros computadores com o novo Yahoo! Messenger
  > > > http://br.beta.messenger.yahoo.com/
  > > >
  > > >
  > > > 
  > > >
  > > __
  > > 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 >
  > >
  > >
  > >
  > >
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  Daniel Sobrinho Laporte
  Analista de Sistemas e Desenvolvedor Delphi + Firebird.
  Colunista e Editor Técnico ClubeDelphi - DevMedia.

  [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] Meio Off - Apresentação Delphi 2010

[Moacir - GMail]

Luiz,

Pelo que percebi aqui o link é personalizado com meu numero de inscrição 
e não sei se dois participantes poderão usar o mesmo numero.


Moacir

Luiz Carlos escreveu:
> Moacir,
>
> Tem como voce mandar o link por favor. Como lhe disse, não recebi nada.. 
> e quando tento efetuar novamente a inscrição consta como já efetuada.
>
> Vlw!!!
>
>
>
>
> ____
> De: Moacir - GMail 
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Sexta-feira, 28 de Agosto de 2009 11:31:21
> Assunto: Re: [delphi-br] Meio Off - Apresentação Delphi 2010
>
>   
> Luiz,
>
> Recebi minha confirmação sem problemas.
>
> Sucesso !!
>
> Moacir
>
> Luiz Carlos escreveu:
>   
>> Pessoal, alguma posição sobre esse evento?
>>
>> Efetuei a inscrição, porem não recebi nenhuma confirmação por e-mail!
>>
>>
>> Abraços...
>>
>>
>>
>>
>> 
>
>
>
>
>   
> 
> 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] Meio Off - Apresentação Del phi 2010

[Moacir - GMail]

Luiz,

Recebi minha confirmação sem problemas.

Sucesso !!

Moacir


Luiz Carlos escreveu:
> Pessoal, alguma posição sobre esse evento?
>
> Efetuei a inscrição, porem não recebi nenhuma confirmação por e-mail!
>
>
> Abraços...
>
>
>
>   

Re: [delphi-br]

[Moacir - GMail]

Guilherme,

Pelo que pude entender do teu email vc precisaria de uma coluna com o 
numeração sequencial dos registros, algo como:

1  Campo1  Campo2  Campo3
2  Campo1  Campo2  Campo3
3  Campo1  Campo2  Campo3
4  Campo1  Campo2  Campo3

Faça uma procedure para isto, por ex.(aqui usei o firebird):

SET TERM ^ ;

CREATE OR ALTER PROCEDURE TESTE
returns (
nome varchar(100),
endereco varchar(100),
posicao integer)
as
declare variable contador integer = 0;
begin
  contador = 0;
  for Select nome, endereco_res from cliente into :nome,  :endereco do
  begin
contador = contador + 1;
posicao = contador;
suspend;
  end
end^

SET TERM ; ^

Sucesso !!

Moacir

>
> Bom dia pessoal, estou com um problema para criar uma query
> Alguém conhece alguma forma de criar um "contador(count)" no SQL Server
>
> Acredito que usando o ROW_NUMBER seja o caminho, mas não consegui fazer 
> progresso.
> --
> Guilherme Ventura de Souza
>
>
>   

[delphi-br] Referente a nova lei...

[Wilhame (Gmail)]

Concordo com o colega, Willian Jhonnes.

 

A todos do fórum, acho importante a pessoa ser graduador, Pós-Graduado,
Mestre ou Doutor, Parabéns aos que conseguiram o seu diploma, mais não posso
dizer que a pessoa que não tem graduação mas que tem conhecimento e anos de
experiência não seja um profissional qualificado com direito a exerce seu
cargo ou sua profissão que já faz a anos.

 

Muitos profissionais reconhecidos foram para faculdade já sendo um
profissional na área, e na faculdade viram a discrepância que existe em
lesionar e trabalhar na área, pergunte aos próprios professores, mestres e
doutores sobre informática o que eles pensam disso, como é difícil montar um
curso para um área que evolui a cada minuto, lembre aos Graduados que se
julgam melhores que os semi-analfabetos que muitas das ferramentas que eles
usam foram criadas em casa precisam de exemplos??? Estudem sobre a política
de grande empresas em tecnologia, em seus critérios e métodos para avaliar a
contratação de seus profissionais, estudem sobre a Microsoft, Google, Apple,
Oracle, CISCO, muitos do grandes profissionais dessas empresas trabalham em
casa, não tem horário nem local fixo, são pagos por suas tarefas e não pela
graduação que tem, pergunte para esses mestres em tecnologia o que é ser um
profissional da área de tecnologia em sistemas, Banco de Dados etc. 

 

Vamos deixar de achar que somos melhores que os outros porque temos uma
graduação enquanto milhões de brasileiros são tirado deles todos os dias o
direito a educação, saúde e segurança. Vamos ver que a cada dia os políticos
do nosso pais com idéias mirabolantes, atos secretos, outros nem secretos
são, ficam cada vez mais ricos tirando dos trabalhadores e dos cidadão de
bem sua dignidade.

 

Acabei de enviar um email para o Senador Expedito, mostrando para ele minha
indignação. Entre muitas coisas que escrevi fiz a ele um desafio.

 

Invés de fazer um projeto de lei para regulamentar os profissionais de
informática, porque não profissionalizar os políticos de nosso pais;

 

Abaixo parte do trecho de meu email para o senador.

 

“PROJETO DE LEI PARA REGULAMENTAR A PESSOA PARA EXERCER O CARGO DE POLITICO
NO BRASIL, Vereador ao Presidente da Republica, pois bem qual a formação do
nosso presidente, meu caro senador? Para uma pessoa ser um político, deveria
ser formado por um desses cursos ao meu ver: Economia, Direito mas aprovado
pela OAB, relações internacionais, Ciências Contábeis, Psicologia, Recursos
Humanos ou Letras (pois muitos mal sabem ler ou escrever, são
semi-analfabeto como eu), mas depois de graduado tem que ter pelo menos 2
anos de experiência comprovada na área, ok?, meu caro senador,  os políticos
de nosso pais deveriam ser exemplo para o povo não a vergonha dele.”

 

Aprovem a lei que quiserem, ninguém vai conseguir tirar o meu direito e de
milhões de brasileiros de tentar criar soluções em sistemas, desenvolver
tecnologias e melhorar a qualidade dos trabalhos nas empresas!!! A todos
meus cumprimentos...

 

 



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Monitorar rede

[Moacir - GMail]

Rodrigo,

Que tipo de servidores vc quer monitorar ??

Abraços,

Moacir

ps.: Espero que voce não se importe de ser ajudado por um semi-analfabeto...


Gmail - Sharplinux escreveu:
> Pessoal, boa noite
>
> Estou tentando desenvolver uma aplicação onde ele irá ficar monitorando 
> os servidores a idéia e ele ficar pingando o ip e porta do servidor se 
> estiver ativo ele retorna com o ok e fica verde se estiver off fica 
> vermelho.
>
> Alguém já fez alguma coisa assim
>
>
> Abraços
>
> Rodrigo Fernando
> Cordenador de T.I
> Ti Móvel
>
>
> 
>
>   

[delphi-br] Monitorar rede

[Gmail - Sharplinux]

Pessoal, boa noite

Estou tentando desenvolver uma aplicação onde ele irá ficar monitorando 
os servidores a idéia e ele ficar pingando o ip e porta do servidor se 
estiver ativo ele retorna com o ok e fica verde se estiver off fica 
vermelho.

Alguém já fez alguma coisa assim


Abraços

Rodrigo Fernando
Cordenador de T.I
Ti Móvel

Re: [delphi-br] [OFF] Referente a nova lei...

[André Moraes - Gmail]

A lei não vai tirar ninguém do mercado. Veja os artigos abaixo:

Veja o q diz os artigos 3 e 4:

Art. 2º Poderão exercer a profissão de Analista de Sistemas no país:

I - os possuidores de diploma de nível superior em Análise de
Sistemas, Ciência da Computação ou Processamento de Dados, expedido por
escolas oficiais ou reconhecidas;

II - os diplomados por escolas estrangeiras reconhecidas pelas
leis de seu País e que revalidarem seus diplomas de acordo com a legislação
em vigor;

III - os que, na data de entrada em vigor desta Lei, tenham
exercido, comprovadamente, durante o período de, no mínimo, cinco anos, a
função de Analista de Sistemas;

Art. 3º Poderão exercer a profissão de Técnico de Informática:

I - os portadores de diploma de ensino médio ou equivalente, de
Curso Técnico de Informática ou de Programação de Computadores, expedido
por escolas oficiais ou reconhecidas;

II - os que, na data de entrada em vigor desta Lei, tenham
exercido, comprovadamente, durante o período de, no mínimo, quatro anos, a
função de Técnico em Informática;

Fonte: http://legis.senado.gov.br/mate-pdf/64268.pdf

André F. Moraes
  - Original Message - 
  From: Willian Jhonnes L. dos Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 21, 2009 7:39 PM
  Subject: Re: [delphi-br] [OFF] Referente a nova lei...


"Eu comparo qualquer carreira como a carreia de um Medico.. para mim tem a
  mesma importancia,
  e acho q todas deveriam existir exames igual a OAB.. onde mesmo a
  universidade sendo boa ou uma merda soh seriam liberados a exercer a
  profissao quem passasse pelos teste do conselho..

  minha opniao!"

  Leandro...

  Partindo do seu ponto de vista, nosso mercado se esvaziaria. Há nele 
  profissionais competentíssimos sem graduação e inúmeros graduados de uma 
  incompetência absurda. Posso citar inúmeros casos em que eu trabalhei 
  desfazendo "artifícios técnicos" de profissionais graduados (alguns com 
  as malditas certificações Microsoft, inclusive) mesmo sem ser graduado 
  na área.

  Quando iniciei neste mercado, ele era muito valorizado e eram poucos os 
  profissionais competentes. Hoje a história é diferente... Os 
  profissionais competentes ainda são difíceis de se encontrar e, por 
  conta disso, o mercado se desvalorizou. Hoje, qualquer um pode cursar 
  Sistemas da Informação e se tornar analista de sistemas sem assiistir a 
  uma aula sequer, apenas pela internet. E, pior, sem escrever uma linha 
  de código, sem configurar uma rede ou sequer trabalhar na área! Isto é 
  um insulto a quem investiu seu tempo estudando, trabalhando, perdendo 
  noites de sono em busca de soluções e aprendeu a resolver problemas de 
  maneira eficiente e rápida.

  Não questiono a capacidade de ninguém aqui, mas corroboro da opinião do 
  Rubem. Esta lei é um insulto, sim! Não por regulamentar a profissão, mas 
  por tirar do mercado quem, por muitas vezes, demonstrou ser mais 
  competente que os profissionais graduados.

  -- 
  ---
  Att.:
  Willian Jhonnes L. dos Santos
  Analista/Desenvolvedor Object/Free Pascal e PHP
  willianjhon...@yahoo.com.br
  ---
  Seja livre. Use Linux.
  Grupo de Usuários GNU/Linux de São José dos Pinhais
  Linux user number 449753
  ---
  Powered by Slackware Linux 12.2
  Kernel 2.6.30.5-core2
  ---



  

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Memo ou RichEdit - Problema

[Moacir - GMail]

Hugo,

Uma solução simples e rapida e trocar a fonte do teu memo por courier.

Sucesso !!

Moacir


Hugo Vieira escreveu:
> Meus amigos delphianos,
>
>  
>
>  
>
> Estou em fase final de desenvolvimento de um PDV.
>
>  
>
> Tudo funciona perfeitamente, porem ainda possuo algumas broncas p resolver.
>
>  
>
> Uso para simular o cupom fiscal, um Memo
>
>  
>
> Alinho as informações: codigo de barras, descrição total atraves de lines.add.
>
> Porem como as descrições dos produtos variam muito, sempre a comanda fica 
> desconfigurada.
>
>  
>
>  
>
> Como eu faria para adicionar os produtos no memo/richedit e alinhar o texto 
> para que naop haja estre problema?
>
> Caso eu adicione uma descrição extensa da vida, ela nao "empurrar" o preço 
> para a linha de baixo?
>
> É possivel ainhar tudo direitinho? Nao gostaria de usar um grid.
>
>  
>
> grato pelas respostas!
>
> Hugo
>
>
>
>
>
>
>  
>
>
>
>
>
>
>
> _
> Conheça os novos produtos Windows Live! Clique aqui.
> http://www.windowslive.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>   

Re: [delphi-br] Sql usando union e order by

[Moacir - GMail]

Marcelo,

O  "avg(0) AS DIAS" pode, e deve, ser substituido por:

Cast(0 as integer) ou Cast(0 as numeric(12,2)) ou de acordo com o campo 
correspondente ao union


Sucesso !!

Moacir


Marcelo Luiz Onhate escreveu:
> Para fazer um GROUP BY... nos campos que vai fazer beleza, mas nos 
> outros vc vai ter que fazer algo do tipo SUM(), AVG()... Senão não vai 
> rolar.
> E outra dos unions teem que ser igual.
>
> Exemplo:
> SELECT CONTRATO,
>ALBUM,
>avg(DATA),
>VENCIMENTO,
>sum(VALOR,)
>sum(COALESCE(PCOMISSAO,0)) AS PCOMISSAO,
>TIPO,
>sum(COALESCE(VALOR,0) * (COALESCE(PCOMISSAO,0)/100) )AS 
> COMISSAO,
> avg(VENCIMENTO-DATA) AS DIAS
> FROM CTRECEBER
> GROUP BY 1,2,4,7
> UNION
> SELECT
> A.CONTRATO,
> A.ALBUM ,
> avg(A.VNDDATA AS DATA),
> A.VNDDATA AS VENCIMENTO,
> sum(A.VNDDINHEIRO) AS VALOR,
> sum(COALESCE(A.PCOMISSDIN,0))AS PCOMISSAO,
>  'I'AS TIPO,
> sum(COALESCE(A.VNDDINHEIRO,0) * 
> (COALESCE(A.PCOMISSDIN,0)/100))AS COMISSAO,
> avg(0) AS DIAS
> FROM ALBUNS A WHERE A.VNDDINHEIRO > 0
> GROPU BY 1,2,4,7
>
> Até isso vai ter que fazer avg(0) AS DIAS;
>
>
> 
>
>   

Re: [delphi-br] NF-e Status com ACBrNFe

[André Moraes - Gmail]

Seu certificado é válido(comprado)? Onde vc adquiriu seu certificado? Com 
qual estado vc está tentando se comunicar?

André F. Moraes
- Original Message - 
From: "Thiago Menon" 
To: 
Sent: Monday, August 17, 2009 1:56 PM
Subject: Re: [delphi-br] NF-e Status com ACBrNFe


> Alguem conseguiu achar uma solução para o problema relatado?
>
> Estou com o mesmo problema.
>
> "
> WebService Consulta Status serviço:
> - Inativo ou Inoperante tente novamente.
> - A autoridade de certificação não é válida ou está incorreta - URL:
>
> https://homologacao.nfe.sefaz.rs.gov.br/ws/nfestatusservico/NfeStatusServico
> .asmx-
> SOAPAction:
> http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF
> "
>
> No aguardo.
>
> Thiago
> msn: thime...@hotmail.com
>
>
> Nicolas escreveu:
>> Comigo aconteceu isso também após instalar a última versão,
>> e nunca mais conectou, ainda não sei o que é.
>>
>> []s
>>
>> alexandre
>>
>>
>>
>>   - Original Message - 
>>   From: Samuel M. Basso
>>   To: delphi-br@yahoogrupos.com.br
>>   Sent: Wednesday, August 05, 2009 8:09 AM
>>   Subject: Re: [delphi-br] NF-e Status com ACBrNFe
>>
>>
>> Ok obrigado, é que estou tentando faz uns dois dias, e ja começo a
>>   desconfiar que existe um outro problema , mas vou aguardar entao mais 
>> um
>>   pouco.
>>
>>   2009/8/5 Dimas Bolognani 
>>
>>   >
>>   >
>>   > Bom dia,
>>   >
>>   > Isto apenas quer dizer que o serviço do estado que vc verificou não 
>> esta
>>   > funcionado no momento. Vai tentando que já vc recebe um OK.
>>   >
>>   > Atte.
>>   >
>>   > Dimas
>>   >
>>   > De: delphi-br@yahoogrupos.com.br  
>> [mailto:
>>   > delphi-br@yahoogrupos.com.br ] Em
>>   > nome de Samuel M. Basso
>>   > Enviada em: terça-feira, 4 de agosto de 2009 13:36
>>   > Para: delphi-br@yahoogrupos.com.br 
>>   > Assunto: [delphi-br] NF-e Status com ACBrNFe
>>   >
>>   >
>>   > Olá pessoal!
>>   >
>>   > Estou testando o envio de nota fiscal eletronica com o componente
>>   > ACBrMonitorNFe e estou tendo um problema ao verificar o status ele me
>>   > mostra
>>   > o seguinte erro:
>>   >
>>   > WebService Consulta Status serviço:
>>   > - Inativo ou Inoperante tente novamente.
>>   > - A autoridade de certificação não é válida ou está incorreta - URL:
>>   >
>>   > 
>> https://homologacao.nfe.sefaz.rs.gov.br/ws/nfestatusservico/NfeStatusServico
>>   > .asmx-
>>   > SOAPAction:
>>   > 
>> http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF
>>   >
>>   > Verifiquei em diversos sites e me falaram sobre a cadeia de 
>> certificados
>>   > etc, já fiz tudo isso e ainda persiste o erro. Se alguem poder me 
>> ajudar
>>   > agradeço.
>>   >
>>   > --
>>   > Atenciosamente,
>>   >
>>   > Samuel M. Basso
>>   > Tel: (54) 3463-9114
>>   > Cel: (54) 8135-3723
>>   > E-mail/MSN: samuelba...@gmail.com  >   > samuelbasso%40gmail.com >
>>   > Web site: www.samuelbasso.com
>>   >
>>   > [As partes desta mensagem que não continham texto foram removidas]
>>   >
>>   > Verificado por AVG - www.avgbrasil.com.br
>>   > Versão: 8.5.375 / Banco de dados de vírus: 270.13.42/2279 - Data de
>>   > Lançamento: 08/05/09 05:57:00
>>   >
>>   > [As partes desta mensagem que não continham texto foram removidas]
>>   >
>>   >
>>   >
>>
>>   -- 
>>   Atenciosamente,
>>
>>   Samuel M. Basso
>>   Tel: (54) 3463-9114
>>   Cel: (54) 8135-3723
>>   E-mail/MSN: samuelba...@gmail.com
>>   Web site: www.samuelbasso.com
>>
>>   [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>>
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>> 
>>
> __
> 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 >
>
>
> 

Re: [delphi-br] [MAF] Salvar dados no MySQL

[Moacir - GMail]

E se vc usar um no-ip da vida ??

Ai a liberação se daria para a tua url.

[ ]´s
Moacir


Marcos Abreu Ferreira escreveu:
> Mas o acesso externo é sempre liberado a um determinado IP, e como estou 
> usando conexao por modem 3G, o IP muda a cada conexao. 
>  
>  
> Att,
>
> Marcos A. Ferreira
> São Paulo - BrasilMSN: maferre...@hotmail.itgoogle Talk: maf.decisiva
> Skype: m_abreuferreira
>
> 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.
>
>
>  
>
>
>
> To: delphi-br@yahoogrupos.com.br
> From: mutu...@yahoo.com.br
> Date: Wed, 12 Aug 2009 13:51:59 -0400
> Subject: Re: [delphi-br] [MAF] Salvar dados no MySQL
>
>   
>
>
>
> estranho pq em todos q trabalhei eram bloqueados e era soh fazer
> configuracao de usuario e pedir para o suporte liberar acesso externo ao
> banco q funcionava..
>
> se vc paga e quer acessar de fora os riscos sao seus por isso sempre
> consegui essa liberacao..
>
> 2009/8/12 Marcos Ferreira 
>
>   
>> Leandro,
>>
>> a grande maioria dos provedores não faz isso, por problema de segurança.
>>
>>
>> Att,
>>
>> Marcos A. Ferreira
>> São Paulo - Brasil
>>
>> MSN: maferre...@hotmail.it 
>> Google Talk: maf.decisiva
>> Skype: m_abreuferreira
>>
>> 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.
>>
>> From: Leandro
>> Sent: Tuesday, August 11, 2009 5:48 PM
>> To: delphi-br@yahoogrupos.com.br 
>> Subject: Re: [delphi-br] [MAF] Salvar dados no MySQL
>>
>> vc pode habilitar em seu servidor aceitar conexoes de fora d qualquer ip,
>> procure na central de suporte como liberar essa configuracao
>>
>> 2009/8/11 Marcos Abreu Ferreira 
>> 
>> 
>>>
>>> Pessoal,
>>>
>>> tenho o seguinte problema. Preciso atualizar o banco de dados que está em
>>> um servidor de um provedor. Como o meu provedor pede que eu cadastre o IP
>>>   
>> de
>> 
>>> onde estou fazendo a atualização para liberar o acesso, ai surge o
>>>   
>> problema,
>> 
>>> como sempre estou em locais diferentes e meu acesso é via modem 3G e ai
>>>   
>> meu
>> 
>>> IP varia toda hora, vi que nao ia conseguir fazer dessa forma.
>>>
>>> Estou pensando em fazer um form no meu site com 3 campos. Dois deles
>>>   
>> seriam
>> 
>>> para passar usuário e senha e um terceiro passaria o comando SQL que
>>> quizesse executar. Como dar um submit nesse HTML que ficará em meu
>>>   
>> provedor?
>> 
>>> alguém já fez algo parecido?
>>>
>>>
>>> Att,
>>>
>>> Marcos A. Ferreira
>>> São Paulo - BrasilMSN: 
>>> maferre...@hotmail.itgoogleTalk:
>>>   
>> maf.decisiva
>> 
>>> Skype: m_abreuferreira
>>>
>>> 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.
>>> Agradecemo

Re: [delphi-br] [Entrevista - Ramon Durães] Você ainda lembra do Clipper? Vamos migra r para .NET!

[Moacir - GMail]

E eu ainda perco meu tempo lendo isto..


Rubem Rocha escreveu:
>  
>
> http://www.ramonduraes.net/post/Voce-ainda-lembra-do-Clipper-Vamos-migrar-pa
> ra-NET!.aspx
>
>  
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>   

Re: [delphi-br] [OFF] Quem fez o download do OCR Delphi?

[André Moraes - Gmail]

GPL obriga a liberar o código, LGPL não, por isso que os componentes pra 
Delphi usam esta licença para não obrigar q quem utilize o componente tenha 
q liberar o código do programa.

André F. Moraes
- Original Message - 
From: "Joao Morais" 
To: 
Sent: Tuesday, August 11, 2009 7:33 PM
Subject: Re: [delphi-br] [OFF] Quem fez o download do OCR Delphi?


2009/8/11 OCRDelphi :
> Já baixei dezenas de OCR com fontes em C e
> Delphi e nenhum deles prestam, reconhece alguns caracteres e outros não.
> Como meu aplicativo é comercial não posso repassar os fontes

A quem interessar possa, caso você tenha incluido algum código GPL ou
LGPL ao seu projeto, você é obrigado a distribuir os fontes de tudo o
que você fizer.

Joao Morais




-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Re: [delphi-br] ACBrNFeMonitor problema validação XML

[André Moraes - Gmail]

Crie seu XML com a tag cPais e xPais que será validada com sucesso pelo 
ACBrNFeMonitor.

André F. Moraes
  - Original Message - 
  From: Samuel M. Basso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, August 10, 2009 10:58 AM
  Subject: [delphi-br] ACBrNFeMonitor problema validação XML


Estou com um problema na validação ou assinatura do XML. Eu gero o XML pelo
  meu sistema e mando o ACBrNFeMonitor validar ou assinar, porém o que
  acontece é ele gerar um outro arquivo XML e altera alguns valores das tags,
  vou mostrar um exemplo.

  Quando eu gero o xml fica assim:

  - 
  91955633000109
  LUMIBRAS COMPONENTES ELETRICOS LTDA
  COMPONENTE
  - 
  RODOV RST 470 KM 62,5
  0
  0
  Linha Garibaldina
  4308607
  GARIBALDI
  RS
  9572
  5454346391
  
  0500054223
  

  Apos validar pelo ACBrNFeMonitor ele gera um novo arquivo xml na pasta e
  muda algumas tags como exemplo abaixo:

  - 
  [b][/b]
  LUMIBRAS COMPONENTES ELETRICOS LTDA
  COMPONENTE
  - 
  RODOV RST 470 KM 62,5
  000
  0
  Linha Garibaldina
  [b]999[/b]
  [b]EXTERIOR[/b]
  [b]EX[/b]
  9572
  1058
  5454346391
  
  0500054223
  

  Podem perceber que nao tem mais o CNPJ, mudou o municipio colocando EXTERIOR
  e outras tags. Muito estranho.

  Se alguem poder me ajudar agradeço.

  -- 
  Atenciosamente,

  Samuel M. Basso
  Tel: (54) 3463-9114
  Cel: (54) 8135-3723
  E-mail/MSN: samuelba...@gmail.com
  Web site: www.samuelbasso.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] Ajuda com Select Utilizando Union All e Cast

[Moacir - GMail]

valdirdill,

Acrescente uma coluna com o tipo:

SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL, 
Cast('EM ABERTO' as Varchar(10)) as TIPO FROM CONTASRECEBER WHERE VENCIMENTO 
BETWEEN :VInicio AND :VFim
UNION ALL
SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL, 
Cast('QUITADO' as Varchar(10)) as TIPO FROM CONTASRECEBIDAS WHERE VENCIMENTO 
BETWEEN :VInicio AND :VFim

Sucesso !!

Moacir


valdirdill escreveu:
> Olá,
>
> Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns 
> campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o 
> script:
>
> SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM 
> CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
> UNION ALL
> SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM 
> CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
>
> Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar 
> cada linha para saber se o registro impresso é de CONTASRECEBER ou de 
> CONTASRECEBIDAS
>
> Alguém pode me ajudar?
>
> Uso D7 e FB 2.0
>
> Obrigado
>
>
>
> 
>
>   

Re: [delphi-br] Localizar TXT

[Moacir - GMail]

Filippe,

Tente algo assim:

Function  Checa_IP(IP : String = '') : Boolean;
var
iPos : Integer;
aTexto : tStringList ;
begin
aTexto := tStringList.Create;
aTexto.LoadFromFile('MeuArquivodelog.txt');
iPos := aTexto.Indexof(IP);
FreeAndNil(aTexto);
Result iPos <>-1;
end;

Não testei mas ja deve te dar uma boa pista de como fazer.


Sucesso!!

Moacir


Filippe Info escreveu:
> Olá Galera,
>
> Preciso criar uma função que faça o seguinte.
> Abra um arquivo TXT;
> E dentro desse TXT localizar um texto, se encontrar resultar True,
>
> Eu tenho um sistema que vai criando um log dos ip´s que estou utilizando, 
> esse log é criado em um TXT, porem da forma que eu fiz ele gera o log mesmo 
> que o IP continue o mesmo.
> Preciso dessa função para antes de gravar o novo log veficar se o IP ja 
> não esta na lista. Caso retorne true eu não gravo novamente.
>
>
> Obrigado, 
>
>
> Filippe Maymone
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>   

Re: [delphi-br] [OFF] Inglês (alguém da lista já...)

[Moacir - GMail]

EmbarcaDelphi,

Uma ótima opção é o curso da bbs, totalmente 0800

http://www.bbc.co.uk/portuguese/learningenglish/

Sucesso !!
Moacir


EmbarcaDelphi escreveu:
> Aproveitando o tópico (coloquei um OFF).
> Alguém sabe informar se aquele curso on-line de inglês é bom, realmente 
> dá para aprender alguma coisa? Me refiro ao site: 
> http://mkge.englishtown.com/Sp/lp/Home.aspx?bhcp=1
>
> Alguém na lista já participou?
>
>   

Re: [delphi-br] Re: Hamster I - NitGen

[Moacir - GMail]

Fernando,

o SDK deste finger print  tem o que vc precisa.

Olhe neste diretório:

C:\Arquivos de programas\NITGEN eNBSP\SDK\Samples\DLL\Delphi\UITestDP

Caso vc tenha instalado em outro diretório que não o padrão, olhe no 
subdiretorio SDK\Samples\DLL\Delphi\UITestDP

Sucesso !!

Moacir


Fernando José Ramos Figueira da Silva escreveu:
> Pessoal,
> Boa noite.
>
>   alguém poderia dar uma luz?
>
>
> abraços!
>
>
>
> --- Em delphi-br@yahoogrupos.com.br, Fernando José Ramos Figueira da Silva 
>  escreveu
>   
>> Amigos,
>> Boa tarde.
>>
>> Meu cliente adquiriu o leitor de digitais HAMSTER I da NITGEN. Ele já vem com
>> o SDK.
>>
>> Alguém teria algum tutorial que ensinasse como recuperar a digital e gravar
>> no banco de dados?
>>
>> 
>
>
>
>
> 
>
>   


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Exception

[Thiago gmail]

Fiz o procedimento abaixo para tratar as exceptions e gostaria de saber como 
faço para que a aplicação grave o log mas continue executando o restante do 
código.

procedure TForm1.TrataErros(Sender: TObject; E: Exception);
begin
GravaLog;
end ;


[As partes desta mensagem que não continham texto foram removidas]