[delphi-br] Abrir o mesmo Form várias vezes

[Alessandro Araujo]

Amigos,

Sou novo na lista e tenho uma dúvida. Gostaria de saber como faço para abrir 
várias instancias do mesmo form. Tenho uma janela que precisa abrir um número 
indeterminado de uma janela filha. Agradeço a ajuda antecipadamente. 

Valeu


  

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]

[delphi-br] Delphi com Progress

[Rodrigo Mota]

Boa noite galera,

preciso para semana que vem conectar-me ao banco de dados Progress (Datasul) se 
não me
engano.

estou fazendo uma pesquisa na web sobre como fazer isso, até o momento vi que 
dá via ODBC.
Vi nos drivers do meu ODBC - Windows XP sp3, não vi nada para Progress, alguém 
sabe de um
componente free e outra opção paga, assim ja me adianto para o dia.


Att,

Rodrigo Mota.

[delphi-br] Check out my photos on Facebook

[Reginaldo Donizete Felix]

Hi delphi-br@yahoogrupos.com.br,

I set up a Facebook profile where I can post my pictures, videos and events and 
I want to add you as a friend so you can see it. First, you need to join 
Facebook! Once you join, you can also create your own profile.

Thanks,
Reginaldo

To sign up for Facebook, follow the link below:
http://www.facebook.com/p.php?i=10271425449&k=Z6E3Y5U3TZ3B2FMJPBW3QRW2VW&r


delphi-br@yahoogrupos.com.br was invited to join Facebook by Reginaldo Donizete 
Felix. If you do not wish to receive this type of email from Facebook in the 
future, please click on the link below to unsubscribe.
http://www.facebook.com/o.php?k=83ed89&u=1080066852&mid=11b9d9cG40608324G0G8
Facebook's offices are located at 1601 S. California Ave., Palo Alto, CA 94304.



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

Re: [delphi-br] Instalar Delphi 2010 Trial

[Ricardo César Cardoso]

Palpite estilo "chutômetro": vc deve registrar a sua cópia trial do Delphi 2010.

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 qua, 16/9/09, rodrigo  escreveu:





 





  Olá, estoutendo problemas para instalar o delphi 2010 trial 
no meu windows 7 x64, depois de instalar ele, quando vou abrir ao invés de 
abrir o Delphi ele abre uma pagina da net "http://shop. embarcadero. 
com/dr/sat4/ ec_MAIN.Entry17C ?SID=39696& SP=10007& CID=0&PID= &PN=0&CUR= 
840&DSP=& PGRP=0&ABCODE= &CACHE_ID= 0" não sei por que já desinstalei e 
reinstalei mas não adiantou nada, alguém pode me ajudar com isso?



 

















  

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] mxNativeExcel_d7

[Ricardo César Cardoso]

Um pouco de Google não faz mal a ninguém... 

[ http://www.maxcomponents.net/index.php?id=2&page=1 ]

Mas seja rápido, pois o site será fechado!

[]'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 qua, 16/9/09, Jose Newton Araujo  escreveu:





 





  Alguem tem noticia deste arquivo ? mxNativeExcel_ d7 



Saudações a todos,



JN

 

















  

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]

[delphi-br] Instalar Delphi 2010 Trial

[rodrigo]

Olá, estoutendo problemas para instalar o delphi 2010 trial no meu windows 7 
x64, depois de instalar ele, quando vou abrir ao invés de abrir o Delphi ele 
abre uma pagina da net 
"http://shop.embarcadero.com/dr/sat4/ec_MAIN.Entry17C?SID=39696&SP=10007&CID=0&PID=&PN=0&CUR=840&DSP=&PGRP=0&ABCODE=&CACHE_ID=0";
 não sei por que já desinstalei e reinstalei mas não adiantou nada, alguém pode 
me ajudar com isso?

Re: [delphi-br] Windows 7(Seven) + Delphi

[Pedro Neves]

No Win7 fiz isso varias vezes e não mudou, sempre fica somente leitura. 
A pasta arquivos de programas está protegida.

Pedro.



João Carlos escreveu:
>  
>
> Pedro,
>
> Bastava dar direito de escrita na pasta de instalação do Delphi 7 em
> Arquivo de Programas.
>
> []´s
>
> João Carlos
>
> Pedro Neves escreveu:
> > A pasta Arquivos de Programas do Win7 estava como somente leitura, e na
> > execução do Delphi7 o delphi tentava criar um um arquivo na mesma 
> pasta,
> > e resolvi instalando de Delphi em uma pasta fora do Arquivos de
> > Programas do Win7.
> >
> > Pedro.
> >
> >
> >
>
> 

Re: [delphi-br] Erro sinistro

[Yahoo]

Viniucius, eu expliquei mal. Eu coloco o breakpoint é após a linha a ser 
verificada. O que está acontecendo é que a variável rVlrICMS fica sempre com 
valor zero, mesmo que as variáves rValItem e rPercICMS tenham valor diferente 
de zero. Se eu habilitar a linha 4 a variável rVlrICMS recebe o valor 
corretamente. Dê uma olhada no código:

Linha 1: rValItem := QualquerCoisa;
Linha 2: rPercICMS := OutraCoisaQualquer;
Linha 3: rVlrICMS := rValItem * rPercICMS;
Linha 4: //ShowMessage(FormatFloat('#0.00', rVlrICMS);


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

[delphi-br] mxNativeExcel_d7

[Jose Newton Araujo]

Alguem tem noticia deste arquivo ? mxNativeExcel_d7 

 

Saudações a todos,

 

JN

 



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

Re: [delphi-br] Erro sinistro

[Marcelo Luiz Onhate]

Se você não utilizar a variavel após a atribuição ela será ignorada. 
Acho que isso é feito durante a compilação ainda...

Alisson Yahoo escreveu:
>  
>
> Pessoal, tenho uma rotina onde atribuo valores a variáveis do tipo Real:
>
> Linha 1: rValItem := QualquerCoisa;
> Linha 2: rPercICMS := OutraCoisaQualquer;
> Linha 3: rVlrICMS := rValItem * rPercICMS;
> Linha 4: //ShowMessage(FormatFloat('#0.00', rVlrICMS);
>
> Se eu colocar um breakpoint na linha 3 eu verifico que variável rVlrICMS
> está com o valor = 0, mas as variáveis rValItem e rPercICMS estão com 
> valor
> diferente de 0. Se eu habilitar a linha 4, a variável rVlrICMS recebe o
> valor corretamente. Alguém pode me ajudar a exorcizar esse espírito? 
> Estou
> usando Delphi 7.
>

Re: [delphi-br] Erro sinistro

[Vinicius A. Santos]

Alisson Yahoo escreveu:
>  
> 
> Pessoal, tenho uma rotina onde atribuo valores a variáveis do tipo Real:
> 
> Linha 1: rValItem := QualquerCoisa;
> Linha 2: rPercICMS := OutraCoisaQualquer;
> Linha 3: rVlrICMS := rValItem * rPercICMS;
> Linha 4: //ShowMessage(FormatFloat('#0.00', rVlrICMS);
> 
> Se eu colocar um breakpoint na linha 3 eu verifico que variável rVlrICMS
> está com o valor = 0, mas as variáveis rValItem e rPercICMS estão com valor
> diferente de 0. Se eu habilitar a linha 4, a variável rVlrICMS recebe o
> valor corretamente. Alguém pode me ajudar a exorcizar esse espírito? Estou
> usando Delphi 7.

O depurador trabalha assim mesmo, o breakpoint pára ANTES da linha ser 
executada, tanto que se vc apertar F8, verá que a variável recebe os 
valores corretamente.
Portanto acho que não temos nenhum ET, ou espírito dentro da sua CPU. =D

-- 
Vinicius A. Santos
www.msisolucoes.com.br

Res: [delphi-br] Erro sinistro

[Berdam]

coloca o brekpoint na linha 4, dai a linha 3 é executada.

 

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: Alisson Yahoo 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 16 de Setembro de 2009 17:14:39
Assunto: [delphi-br] Erro sinistro

  
Pessoal, tenho uma rotina onde atribuo valores a variáveis do tipo Real:

Linha 1:  rValItem := QualquerCoisa;
Linha 2:  rPercICMS := OutraCoisaQualquer;
Linha 3:  rVlrICMS := rValItem * rPercICMS;
Linha 4:  //ShowMessage( FormatFloat( '#0.00', rVlrICMS);

Se eu colocar um breakpoint na linha 3 eu verifico que variável rVlrICMS 
está com o valor = 0, mas as variáveis  rValItem e rPercICMS estão com valor 
diferente de 0. Se eu habilitar a linha 4, a variável rVlrICMS recebe o 
valor corretamente. Alguém pode me ajudar a exorcizar esse espírito? Estou 
usando Delphi 7. 

 _ _ _ _ __
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta. messenger. yahoo.com/ 

   


  

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]

[delphi-br] mxNativeExcel_d7

[Jose Newton Araujo]

Caros amigos, estou de volta e já aprontando para a turma. Alguem sabe onde
posso encontrar esse arquivo ? mxNativeExcel_d7

 

Jose Newton

 



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

Res: [delphi-br] Componentes kbmMW

[Sergio Carlos]

Melhor mas mais caro.




De: Bruno Lichot 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 16 de Setembro de 2009 13:07:09
Assunto: RE: [delphi-br] Componentes kbmMW

  
Porem, não existiria justificativa técnica de utiliza-lo em detrimento do 
DataSnap no Delphi 2010, que no meu parecer é melhor.

Abs

BL

From: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] On 
Behalf Of Sergio Carlos
Sent: quarta-feira, 16 de setembro de 2009 09:51
To: delphi...@yahoogrup os.com.br
Subject: Res: [delphi-br] Componentes kbmMW


  

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]

[delphi-br] Erro sinistro

[Alisson Yahoo]

Pessoal, tenho uma rotina onde atribuo valores a variáveis do tipo Real:

Linha 1:  rValItem := QualquerCoisa;
Linha 2:  rPercICMS := OutraCoisaQualquer;
Linha 3:  rVlrICMS := rValItem * rPercICMS;
Linha 4:  //ShowMessage(FormatFloat('#0.00', rVlrICMS);

Se eu colocar um breakpoint na linha 3 eu verifico que variável rVlrICMS 
está com o valor = 0, mas as variáveis  rValItem e rPercICMS estão com valor 
diferente de 0. Se eu habilitar a linha 4, a variável rVlrICMS recebe o 
valor corretamente. Alguém pode me ajudar a exorcizar esse espírito? Estou 
usando Delphi 7. 

__
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/ 

RES: [delphi-br] Re: Capturar valor em arquivo UDL

[alexsandro_qs]

Opa Fábio;
Muito obrigado veio,( solução muito boa ...)
Mas já resolvemos ela no post anterior


--- Em delphi-br@yahoogrupos.com.br, Fábio Henrique Beltrame  
escreveu
>
> Bom dia
> 
>  
> 
> Caso você queira apenas o valor do Data Source, tente assim.
> 
>  
> 
> procedure TForm1.Button1Click(Sender: TObject);
> 
> var
> 
>v_lista1:TStrings;
> 
>v_udl: string;
> 
> begin
> 
>v_udl := 'Provider=SQLOLEDB. 1;Integrated Security=SSPI; Persist Security
> Info=False;InitialC atalog=ERP; Data Source=www.servidor.com.br';
> 
>try
> 
>   v_lista1 := TStringList.Create;
> 
>  
> 
>   ExtractStrings([';'],[' '],PChar(v_udl),v_lista1);
> 
>  
> 
>   ShowMessage(v_lista1.Values['Data Source']);//Pode utilizar qualquer
> valor que aparece antes de "=". Como "'Provider" e "Persist Security Info",
> com os espaços.
> 
>finally
> 
>   FreeAndNil(v_lista1);
> 
>end;
> 
> end;
> 
>  
> 
> Atenciosamente,
> 
> 
> Fábio Henrique Beltrame
> * fa...@...  
> 
> KM&M Engenharia de Sistemas
> Rua Couto Magalhães, 228 - Nova Rússia
> CEP 84.070-080 - Ponta Grossa - PR
> ( (42) 3026 3000 - 3026 3032 - Fax: (42) 3026 3001
> 8 http://www.kmm.com.br
> 
>  
> 
> De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
> nome de alexsandro_qs
> Enviada em: quarta-feira, 16 de setembro de 2009 07:58
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Re: Capturar valor em arquivo UDL
> 
>  
> 
>   
> 
> Bom dia;
> Bom ... meu veio, acredito que não deu para vc acompanhar as minhas
> respostas...( é claro que seria fácil ...rsrs).
> pois aquela solução que vc passou, não dar certo pois ele separa o "Data
> Souce", pois ele usa o espaço como delimitador também ok
> 
> --- Em delphi-br@yahoogrupos.com.br 
> , Eduardo Silva dos Santos  escreveu
> >
> > rapaz.. a dica que te passei resolve seu problema, é só percorrer o
> > stringList, mais fácil que isso impossível..
> > 
> > 
> > Att,
> > ...
> > Eduardo Silva dos Santos
> > DRD SISTEMAS
> > (27) 3218-4201
> > (27) 9961-7095
> > MSN: eduardo.drd@
> > Site: http://www.drdsistemas.com.br/
> > ...
> > 
> > 
> > 2009/9/15 alexsandro_qs 
> > 
> > >
> > >
> > > Boa tarde pessoal;
> > > Eu consegui esse exemplo:
> > >
> > > var
> > > strLinha: String;
> > > Parte : TStringList;
> > > begin
> > > strLinha := 'a b;Alexsandro Que;Q;f;alex';
> > >
> > > Parte := TStringList.Create;
> > > try
> > > Parte.Clear;
> > > ExtractStrings([';'],[ ], PChar(strLinha), Parte);
> > > ShowMessage(Parte[1]);
> > > finally
> > > Parte.Free;
> > > end;
> > > end;
> > >
> > > No caso desse, ele pega o "Alexsandro Que"... acredito que estou quase
> lá
> > > !!!
> > > Será que tem alguma forma de ele pegar só o ultimo campo, independente
> de
> > > quantos houver ?
> > > Aê eu mataria esse desafio ...
> > > Pois abriria o arquivo e pegaria somente o ultimo campo ...
> > > Quem poder me ajudar agradeço muito !!!
> > >
> > > --- Em delphi-br@yahoogrupos.com.br
>   ,
> > > Eduardo Silva dos Santos  escreveu
> > > >
> > > > O Fato de do espeço em data Source não é problema.. quanto ao ; lá
> vai..
> > > >
> > > > ;
> > > > var
> > > > ArqIni: TIniFile;
> > > > StrList:TStringList;
> > > > begin
> > > > StrList := TStringList.Creat;
> > > > ArqIni := TIniFile.Create('c:\arqu1.udl' );
> > > > try
> > > > aTexto := ArqIni.ReadString('oledb', 'Data source', '');
> > > > StrList.Delimiter := ';';
> > > > StrList.DelimitedText := aTexto;
> > > > //pronto você tem um StringList com todas as linhas separadas...
> > > > //Basta percorrer o mesmo e pegar o valor que você deseja..
> > > >
> > > >
> > > > finally
> > > > ArqIni.Free;
> > > > StrList.Free;
> > > > end;
> > > >
> > > > end;
> > > >
> > > >
> > > >
> > > > Att,
> > > > ...
> > > > Eduardo Silva dos Santos
> > > > DRD SISTEMAS
> > > > (27) 3218-4201
> > > > (27) 9961-7095
> > > > MSN: eduardo.drd@
> > > > Site: http://www.drdsistemas.com.br/
> > > > ...
> > > >
> > > >
> > > > 2009/9/11 alexsandro_qs 
> > > > >
> > > > >
> > > > >
> > > > > Obrigado Ricardo;
> > > > > Eu estou tentando como aquivo ini
> > > > >
> > > > > E fiz assim:
> > > > >
> > > > > procedure LeIni(var aTexto: string);
> > > > >
> > > > > var
> > > > >
> > > > > ArqIni: TIniFile;
> > > > >
> > > > > begin
> > > > >
> > > > > ArqIni := TIniFile.Create('c:\arqu1.udl');
> > > > >
> > > > > try
> > > > >
> > > > > aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
> > > > >
> > > > > finally
> > > > >
> > > > > ArqIni.Free;
> > > > >
> > > > > end;
> > > > >
> > > > > procedure TForm1.Button1Click(Sender: TObject);
> > > > > var
> > > > > //cria arquivo ini
> > > > > ArqIni: TIniFile;
> > > > > begin
> > > 

Re: RES: [delphi-br] Jedi dando erro

[Daniel Augusto Bastos]

Se não me engano, tem o TDateTimePicker que é nativo, e a JVCL tem alguns
outros.

Abs
Daniel Augusto Bastos


2009/9/15 zottozbr 

> Delphi 7. Vou tentar instalar o rxLIb..
>
> PS: Alguem conhece um componente do tipo ComboBox com um
> calendario "anexo".. para preenchimento de datas..
>
>
> --- Em delphi-br@yahoogrupos.com.br, Rubem Rocha 
> escreveu
> >
> > O mais importante vc ñ mencionou. Qual a versão do Delphi q vc usa?
> >
> > Sds.
> >
> >
> >
> > De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]
> Em
> > nome de Denilson Albuquerque
> > Enviada em: segunda-feira, 14 de setembro de 2009 13:43
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: [delphi-br] Jedi dando erro
> >
> > Olá pessoal!!! Meu primeiro post (ou melhor dúvida).
> >
> > Sou novato no delphi e instalei o Jedi mas ta dando erro na hora de
> iniciar
> > o Delphi. Quando vou compilar qq programinha exemplo
> > da erro de divisão por zero. Acho que é compatibilidade com outas Units?
> > Zeoslib?? Winskin??
> >
> > Desde já agradeço.
> >
> >
> >
> >
> >
> > [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]

Re: [delphi-br] Oportunidade - Desenvolvedores Pleno e Sênior (RJ)

[Walter Chagas (Bol)]

Dirlei,

poste esta anuncio também na lista delphi-empregos

delphi-empre...@yahoogrupos.com.br

[]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: Dirlei 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, September 11, 2009 10:06 AM
  Subject: [delphi-br] Oportunidade - Desenvolvedores Pleno e Sênior (RJ)


Olá Pessoal,

  Gostaria de compartilhar com vocês duas oportunidades de trabalho que 
  estão abertas na empresa onde trabalho.

  :: SOBRE A EMPRESA ::

  Somos uma softwarehouse localizada no centro da cidade do Rio de 
  Janeiro, que desenvolve, principalmente, sistemas financeiros bancários 
  (há 20 anos) e sistemas para consultórios, clínicas e hospitais (2 
  anos). Criamos produtos para oferecer no mercado e também desenvolvemos 
  sob medida. Temos cerca de meio milhão de usuários no Brasil e alguns no 
  exterior. Trabalhamos para um dos maiores bancos privados do País.

  Atualmente há uma série de oportunidades identificadas nos mercados em 
  que atuamos e novos mercados em vista, mas poucos desenvolvedores para 
  dar conta da demanda. Temos um time relativamente enxuto, jovem, mas de 
  qualidade. Cada membro do time faz muita diferença, por isso sempre 
  selecionamos com muito cuidado cada profissional.

  Utilizamos atualmente Delphi e PHP como principais 
  ferramentas/linguagens e temos ainda algumas coisas em C/C++, alguns 
  experimentos internos em Lua e Python e alguns projetos em vista com Java.

  Nosso site: www.itquality.com.br

  :: SOBRE AS OPORTUNIDADES ::

  No momento estamos com vagas em aberto para DESENVOLVEDORES de nível 
  PLENO e SÊNIOR com proficiência especialmente em Delphi. Entendemos que 
  desenvolvedores pleno e sênior possuem pelo menos 3 e 5 anos de 
  experiência, respectivamente. Os profissionais selecionados farão parte 
  da equipe de desenvolvimento, criando novos produtos e/ou fazendo 
  manutenção dos existentes.

  Salário: A partir de R$2,5mil (pleno) e 3,1mil (sênior). Esses são os 
  valores mínimos. A pretensão deve ser enviada pelo candidato.

  Como também sou desenvolvedor, vou ignorar os requisitos "formais" e 
  passar para vocês o que realmente importa:

  1) Procuramos um profissional que:

  - goste MUITO de programar;

  - não tenha adquirido experiência só com o feijão-com-arroz do Delphi 
  (arrastar e conectar componentes);

  - tenha bom senso na hora de codificar (organização, consumo consciente 
  de recursos etc);

  - codifique preocupado com a reutilização e manutenção;

  - seja prático (não vá desenvolver um navio quando uma canoa era tudo o 
  que o cliente precisava);

  - tenha INICIATIVA e MOTIVAÇÃO;

  - se comunique bem de forma verbal e escrita.

  2) Você não precisa saber programar em um monte de outras linguagens, 
  conhecer todos os componentes do Delphi, saber a API do Windows de cor, 
  saber criar aplicações n-tier de olhos fechados, ser fera em Threads ou 
  conhecer todos os bancos de dados. Mas precisa ser capaz de pesquisar e 
  aprender coisas novas quando o trabalho exigir.

  3) O processo seletivo inclui a análise do currículo, uma prova (de 
  Delphi) e uma entrevista. A prova não é difícil (testamos nos nossos 
  estagiários e eles tiraram entre 6,5 e 7). Se você tem bom raciocínio 
  lógico, sabe manipular arquivos, conhece um pouco de XML e atende aos 
  requisitos que coloquei acima, terá boas chances.

  4) Alguma experiência com desenvolvimento Web (PHP principalmente) será 
  um bom diferencial.

  5) O ambiente de trabalho é excelente. Profissionais que se destacam têm 
  seu trabalho reconhecido, inclusive financeiramente.

  6) Ah, e se você gosta de jogar futebol, poderá jogar conosco numa 
  quadra alugada pela empresa.

  Interessados, enviar currículo com pretensão salarial para 
  gostodeprogra...@gmail.com (não estou usando meu e-mail oficial de 
  trabalho apenas para evitar spam)

  Ficarei feliz se conseguir novos colegas de trabalho aqui no grupo.

  Um abraço a todos,
  Dirlei.



  

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

Re: [delphi-br] Oportunidade - Desenvolvedores Pleno e Sênior (RJ)

[Walter Chagas (Bol)]

Tambem achei. Se eu morasse no rio ou fosse solteiro, mandaria meu curriculo 
pra eles de meia em meia hora.

[]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: Ricardo César Cardoso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, September 11, 2009 12:59 PM
  Subject: Re: [delphi-br] Oportunidade - Desenvolvedores Pleno e Sênior (RJ)


Desculpem o comentário sobre a proposta, mas foi uma das ofertas de emprego 
que mais me deu satisfação em ler. Descontraído e bem humorado na medida certa 
e muito informativo quanto ao que se espera do candidato e quanto ao que o 
candidato pode esperar da empresa. 
  Boa sorte a quem for se candidatar a essa vaga. 
  Atenciosamente,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 sex, 11/9/09, Dirlei  escreveu:

  De: Dirlei 
  Assunto: [delphi-br] Oportunidade - Desenvolvedores Pleno e Sênior (RJ)
  Para: delphi-br@yahoogrupos.com.br
  Data: Sexta-feira, 11 de Setembro de 2009, 10:06

   

  Olá Pessoal,

  Gostaria de compartilhar com vocês duas oportunidades de trabalho que 

  estão abertas na empresa onde trabalho.

  :: SOBRE A EMPRESA ::

  Somos uma softwarehouse localizada no centro da cidade do Rio de 

  Janeiro, que desenvolve, principalmente, sistemas financeiros bancários 

  (há 20 anos) e sistemas para consultórios, clínicas e hospitais (2 

  anos). Criamos produtos para oferecer no mercado e também desenvolvemos 

  sob medida. Temos cerca de meio milhão de usuários no Brasil e alguns no 

  exterior. Trabalhamos para um dos maiores bancos privados do País.

  Atualmente há uma série de oportunidades identificadas nos mercados em 

  que atuamos e novos mercados em vista, mas poucos desenvolvedores para 

  dar conta da demanda. Temos um time relativamente enxuto, jovem, mas de 

  qualidade. Cada membro do time faz muita diferença, por isso sempre 

  selecionamos com muito cuidado cada profissional.

  Utilizamos atualmente Delphi e PHP como principais 

  ferramentas/ linguagens e temos ainda algumas coisas em C/C++, alguns 

  experimentos internos em Lua e Python e alguns projetos em vista com Java.

  Nosso site: www.itquality. com.br

  :: SOBRE AS OPORTUNIDADES ::

  No momento estamos com vagas em aberto para DESENVOLVEDORES de nível 

  PLENO e SÊNIOR com proficiência especialmente em Delphi. Entendemos que 

  desenvolvedores pleno e sênior possuem pelo menos 3 e 5 anos de 

  experiência, respectivamente. Os profissionais selecionados farão parte 

  da equipe de desenvolvimento, criando novos produtos e/ou fazendo 

  manutenção dos existentes.

  Salário: A partir de R$2,5mil (pleno) e 3,1mil (sênior). Esses são os 

  valores mínimos. A pretensão deve ser enviada pelo candidato.

  Como também sou desenvolvedor, vou ignorar os requisitos "formais" e 

  passar para vocês o que realmente importa:

  1) Procuramos um profissional que:

  - goste MUITO de programar;

  - não tenha adquirido experiência só com o feijão-com-arroz do Delphi 

  (arrastar e conectar componentes) ;

  - tenha bom senso na hora de codificar (organização, consumo consciente 

  de recursos etc);

  - codifique preocupado com a reutilização e manutenção;

  - seja prático (não vá desenvolver um navio quando uma canoa era tudo o 

  que o cliente precisava);

  - tenha INICIATIVA e MOTIVAÇÃO;

  - se comunique bem de forma verbal e escrita.

  2) Você não precisa saber programar em um monte de outras linguagens, 

  conhecer todos os componentes do Delphi, saber a API do Windows de cor, 

  saber criar aplicações n-tier de olhos fechados, ser fera em Threads ou 

  conhecer todos os bancos de dados. Mas precisa ser capaz de pesquisar e 

  aprender coisas novas quando o trabalho exigir.

  3) O processo seletivo inclui a análise do currículo, uma prova (de 

  Delphi) e uma entrevista. A prova não é difícil (testamos nos nossos 

  estagiários e eles tiraram entre 6,5 e 7). Se você tem bom raciocínio 

  lógico, sabe manipular arquivos, conhece um pouco de XML e atende aos 

  requisitos que coloquei acima, terá boas chances.

  4) Alguma experiência com desenvolvimento Web (PHP principalmente) será 

  um bom diferencial.

  5) O ambiente de trabalho é excelente. Profissionais que se destacam têm 

  seu trabalho reconhecido, inclusive financeiramente.

  6) Ah, e se você gosta de jogar futebol, poderá jogar conosco numa 

  quadra alugada pela empresa.

  Interessados, enviar currículo com pretensão salarial para 

  gostodeprogramar@ gmail.com (não estou usando meu e-mail oficial de 

  trabalho apenas para evitar spam)

  Ficarei feliz se conseguir novos colegas de trabalh

RE: [delphi-br] Componentes kbmMW

[Bruno Lichot]

Porem, não existiria justificativa técnica de utiliza-lo em detrimento do 
DataSnap no Delphi 2010, que no meu parecer é melhor.

 

Abs

 

BL

 

From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On 
Behalf Of Sergio Carlos
Sent: quarta-feira, 16 de setembro de 2009 09:51
To: delphi-br@yahoogrupos.com.br
Subject: Res: [delphi-br] Componentes kbmMW

 

  




De: José Mário Silva Guedes mailto:jmarioguedes%40gmail.com> >
Para: delphi-br@yahoogrupos.com.br  
Enviadas: Terça-feira, 15 de Setembro de 2009 13:31:28
Assunto: Re: [delphi-br] Componentes kbmMW

Sérgio, a empresa em que trabalho já usa esta suite a anos com grande
sucesso.

Estou me aprofundando nestes componentes e acho uma tecnologia muito
poderosa e interessante.

Basicamente, em linhas gerais, ele usa o Indy como provedor TCP/IP.

A missão do KBM MW é facilitar a construção da infra-estrutura de soluções
baseadas em camadas. Sendo uma alternativa muito interessante às
tecnologias.

Pode funcionar como um servidor RPC.

-- 
José Mário Silva Guedes
Analista Programador Delphi

[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]



 

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]

Re: [delphi-br] Componentes kbmMW

[JB]

Recomendadíssimo, utilizo em todos os projetos da empresa, servidor de
aplicações, web, SOAP...
esse Kim é fera

Att.
-- 

José Benedito
Software Developer


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

Res: [delphi-br] Componentes kbmMW

[Sergio Carlos]

De: José Mário Silva Guedes 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 15 de Setembro de 2009 13:31:28
Assunto: Re: [delphi-br] Componentes kbmMW

  
Sérgio, a empresa em que trabalho já usa esta suite a anos com grande
sucesso.

Estou me aprofundando nestes componentes e acho uma tecnologia muito
poderosa e interessante.

Basicamente, em linhas gerais, ele usa o Indy como provedor TCP/IP.

A missão do KBM MW é facilitar a construção da infra-estrutura de soluções
baseadas em camadas. Sendo uma alternativa muito interessante às
tecnologias.

Pode funcionar como um servidor RPC.

-- 
José Mário Silva Guedes
Analista Programador Delphi

[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] Windows 7(Seven) + Delphi

[João Carlos]

Pedro,

Bastava dar direito de escrita na pasta de instalação do Delphi 7 em 
Arquivo de Programas.

[]´s

João Carlos

Pedro Neves escreveu:
> A pasta Arquivos de Programas do Win7 estava como somente leitura, e na 
> execução do Delphi7 o delphi tentava criar um um arquivo na mesma pasta, 
> e resolvi instalando de Delphi em uma pasta fora do Arquivos de 
> Programas do Win7.
>
> Pedro.
>
>   
>   

RES: [delphi-br] Re: Capturar valor em arquivo UDL

[Fábio Henrique Beltrame]

Bom dia

 

Caso você queira apenas o valor do Data Source, tente assim.

 

procedure TForm1.Button1Click(Sender: TObject);

var

   v_lista1:TStrings;

   v_udl: string;

begin

   v_udl := 'Provider=SQLOLEDB. 1;Integrated Security=SSPI; Persist Security
Info=False;InitialC atalog=ERP; Data Source=www.servidor.com.br';

   try

  v_lista1 := TStringList.Create;

 

  ExtractStrings([';'],[' '],PChar(v_udl),v_lista1);

 

  ShowMessage(v_lista1.Values['Data Source']);//Pode utilizar qualquer
valor que aparece antes de “=”. Como “'Provider” e “Persist Security Info”,
com os espaços.

   finally

  FreeAndNil(v_lista1);

   end;

end;

 

Atenciosamente,


Fábio Henrique Beltrame
* fa...@kmm.com.br  

KM&M Engenharia de Sistemas
Rua Couto Magalhães, 228 - Nova Rússia
CEP 84.070-080 - Ponta Grossa - PR
( (42) 3026 3000 - 3026 3032 - Fax: (42) 3026 3001
8 http://www.kmm.com.br

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de alexsandro_qs
Enviada em: quarta-feira, 16 de setembro de 2009 07:58
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Capturar valor em arquivo UDL

 

  

Bom dia;
Bom ... meu veio, acredito que não deu para vc acompanhar as minhas
respostas...( é claro que seria fácil ...rsrs).
pois aquela solução que vc passou, não dar certo pois ele separa o "Data
Souce", pois ele usa o espaço como delimitador também ok

--- Em delphi-br@yahoogrupos.com.br 
, Eduardo Silva dos Santos  escreveu
>
> rapaz.. a dica que te passei resolve seu problema, é só percorrer o
> stringList, mais fácil que isso impossível..
> 
> 
> Att,
> ...
> Eduardo Silva dos Santos
> DRD SISTEMAS
> (27) 3218-4201
> (27) 9961-7095
> MSN: eduardo@...
> Site: http://www.drdsistemas.com.br/
> ...
> 
> 
> 2009/9/15 alexsandro_qs 
> 
> >
> >
> > Boa tarde pessoal;
> > Eu consegui esse exemplo:
> >
> > var
> > strLinha: String;
> > Parte : TStringList;
> > begin
> > strLinha := 'a b;Alexsandro Que;Q;f;alex';
> >
> > Parte := TStringList.Create;
> > try
> > Parte.Clear;
> > ExtractStrings([';'],[ ], PChar(strLinha), Parte);
> > ShowMessage(Parte[1]);
> > finally
> > Parte.Free;
> > end;
> > end;
> >
> > No caso desse, ele pega o "Alexsandro Que"... acredito que estou quase
lá
> > !!!
> > Será que tem alguma forma de ele pegar só o ultimo campo, independente
de
> > quantos houver ?
> > Aê eu mataria esse desafio ...
> > Pois abriria o arquivo e pegaria somente o ultimo campo ...
> > Quem poder me ajudar agradeço muito !!!
> >
> > --- Em delphi-br@yahoogrupos.com.br
  ,
> > Eduardo Silva dos Santos  escreveu
> > >
> > > O Fato de do espeço em data Source não é problema.. quanto ao ; lá
vai..
> > >
> > > ;
> > > var
> > > ArqIni: TIniFile;
> > > StrList:TStringList;
> > > begin
> > > StrList := TStringList.Creat;
> > > ArqIni := TIniFile.Create('c:\arqu1.udl' );
> > > try
> > > aTexto := ArqIni.ReadString('oledb', 'Data source', '');
> > > StrList.Delimiter := ';';
> > > StrList.DelimitedText := aTexto;
> > > //pronto você tem um StringList com todas as linhas separadas...
> > > //Basta percorrer o mesmo e pegar o valor que você deseja..
> > >
> > >
> > > finally
> > > ArqIni.Free;
> > > StrList.Free;
> > > end;
> > >
> > > end;
> > >
> > >
> > >
> > > Att,
> > > ...
> > > Eduardo Silva dos Santos
> > > DRD SISTEMAS
> > > (27) 3218-4201
> > > (27) 9961-7095
> > > MSN: eduardo.drd@
> > > Site: http://www.drdsistemas.com.br/
> > > ...
> > >
> > >
> > > 2009/9/11 alexsandro_qs 
> > > >
> > > >
> > > >
> > > > Obrigado Ricardo;
> > > > Eu estou tentando como aquivo ini
> > > >
> > > > E fiz assim:
> > > >
> > > > procedure LeIni(var aTexto: string);
> > > >
> > > > var
> > > >
> > > > ArqIni: TIniFile;
> > > >
> > > > begin
> > > >
> > > > ArqIni := TIniFile.Create('c:\arqu1.udl');
> > > >
> > > > try
> > > >
> > > > aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
> > > >
> > > > finally
> > > >
> > > > ArqIni.Free;
> > > >
> > > > end;
> > > >
> > > > procedure TForm1.Button1Click(Sender: TObject);
> > > > var
> > > > //cria arquivo ini
> > > > ArqIni: TIniFile;
> > > > begin
> > > > ArqIni := TIniFile.Create('c:\arqu1.udl');
> > > > try
> > > > ArqIni.WriteString('oledb', 'Data source', 'aTexto');
> > > > finally
> > > > ArqIni.Free;
> > > > end;
> > > >
> > > > 2 Problemas:
> > > >
> > > > 1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
> > > > 2º como poderia tratar nesse código o separadar de linhas ";" pois
ele
> > esta tratando o arquivo todo como se fosse uma linha só. Ele só encontra
se
> > eu colocar uma linha abaixo da outra
> > > >
> > > > Ex.:
> > > > InitialCatalog=ERP;
> > > > Data_Source=www.servidor.com

RES: [delphi-br] NF-E

[Jose Carlos A Dias Fo.]

Feliipe Boa Tarde,
 
A receita ja disponibilizou este programa, atarvez do arquivo XML vc ja
visualiza a NF-e, e so procurar visualizador de nf no site da receita.
 
Sd's
 
Dias

  _  

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Filippe Info
Enviada em: quarta-feira, 16 de setembro de 2009 07:23
Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] NF-E


  

Bom dia a todos,

Hoje a empresa que trabalho ainda não esta enquadrada para envio da NFe.
Porem estou recebendo todas de meus fornecedores o arquivos XML.

Eu gostaria de montar um programa para abrir o XML da NFe, pois a pessoa que
recebe as mercadorias aqui na empresa não tem acesso a internet.

E como meus fornecedores a maioria manda o XML, ele poderia abrir via
software, mais não conseguir ainda fazer um sistema para abrir o XML.

obrigado,

Filippe Maymone

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






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

[delphi-br] Re: Capturar valor em arquivo UDL ... Até que fim resolvido

[alexsandro_qs]

Agora deu certo ..

Ricardo, 
Obrigado pela sua grande atenção velho...
Precisando estarei a disposição (Tenho experiência em redes linux, precisando 
!!!)

Fiz assim:

var
  StrList:TStringList;
  parte : TStringList;
  strlinha : string;
  aTexto : string;
  ArqIni: TIniFile; 

begin

try
 ArqIni := TIniFile.Create('c:\alex.udl'); //Pega o arquivo
 aTexto := ArqIni.ReadString('oledb', 'Provider', ''); // aqui ele vai pegar a 
linha que começa com Provider da coluna oledb

Strlist := TStringlist.Create;
parte := TStringlist.Create;

strlinha:= atexto;  // recebe o arquivo udl como texto, ele direto não 
reconhece...

ExtractStrings(['='],[  ], PChar(strLinha), parte);  
ShowMessage( Parte[ Pred( Parte.Count ) ] );   
 finally
StrList.Free; 
ArqIni.Free; 
StrListRecArq.Free;   

end;

[delphi-br] Re: Email enviado com Atraso - Indy

[mgrec]

Passei pelo mesmo problema com o Delphi 2006 a a saída foi atualizar o versão 
da Indy.

Sds,
Marcello


--- Em delphi-br@yahoogrupos.com.br, "rmpena25"  escreveu
>
> Ricardo,
> 
> Se eu envio pelo Outlook a data/hora fica correta. Isso só acontece se mando 
> pelo Delphi usando o Indy.
> 
> Tá muito estranho...
> 
> --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso  
> escreveu
> >
> > O servidor de e-mail está usando o GMT (Greenwich Mean Time, também 
> > conhecido como Hora de Greenwich)
> > http://pt.wikipedia.org/wiki/Greenwich_Mean_Time
> > 
> > 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, 15/9/09, rmpena25  escreveu:
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> >  
> >  
> > 
> > 
> > 
> > 
> > 
> >   Pessoal,
> > 
> > 
> > 
> > Estou usando o código abaixo para enviar email e os emails estão chegando 
> > com 3 horas a menos (enviei as 13:00 e ele chega com 10:00). Até coloquei a 
> > linha ===>IdMessage. Date := now; e não resolveu.
> > 
> >  
> > 
> > Alguem tem alguma dica?
> > 
> > 
> > 
> > Segue o código que uso no envio.
> > 
> > 
> > 
> > procedure TSendEmail.Execute;
> > 
> > var
> > 
> >   SMTP: TIdSMTP;
> > 
> >   IdMessage: TIdMessage;
> > 
> > begin
> > 
> >   SMTP := TIdSMTP.Create( nil);
> > 
> >   IdMessage := TIdMessage.Create( nil);
> > 
> >   try
> > 
> > SMTP.Host := self.ServidorSMTP;
> > 
> > if self.GeraLog= 1 then LogMailThread( 'Host: '+self.ServidorSMTP );
> > 
> > SMTP.Port := self.Porta;
> > 
> > SMTP.Password := self.Senha;
> > 
> > SMTP.Username := self.Usuario;
> > 
> > if self.Autenticacao= 1 then SMTP.AuthType := atDefault else
> > 
> > SMTP.AuthType := atNone;
> > 
> > IdMessage.From. Address := self.Remetente;
> > 
> > IdMessage.From. Name  := self.NomeRemetente;
> > 
> > Idmessage.BccList. EMailAddresses := Destinatario;
> > 
> > if self.GeraLog= 1 then LogMailThread( 'Para: '+Destinatario) ;
> > 
> > IdMessage.Subject:= self.Assunto;
> > 
> > IdMessage.Body. Text  := self.TextoEmail;
> > 
> > IdMessage.ContentTy pe:= 'text/html';
> > 
> > IdMessage.Date := now;
> > 
> > 
> > 
> > try
> > 
> >   SMTP.Connect;
> > 
> >   SMTP.Send(IdMessage );
> > 
> > except
> > 
> >   on e: Exception do
> > 
> >   begin
> > 
> > if self.GeraLog= 1 then LogMailThread( E.Message) ;
> > 
> >   end;
> > 
> > end;
> > 
> >   finally
> > 
> > if SMTP.Connected then SMTP.Disconnect;
> > 
> > IdMessage.Destroy;
> > 
> > SMTP.Destroy;
> > 
> >   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]
> >
>

Res: Res: [delphi-br] API para mudar Aparência d o Windows

[Denilson Alexandre dos Santos Silva]

Valeu Sílvio! 

Erra isso mesmo que eu estava precisando.

Um abraço.





De: Silvio Clecio 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 15 de Setembro de 2009 21:47:56
Assunto: Re: Res: [delphi-br] API para mudar Aparência do Windows

  
Denilson Alexandre dos Santos Silva escreveu:
> Bom dia a todos,
> 
> Obrigado Silvio pela resposta. Era quase isso que eu queria. Vou 
> explicar melhor. Estou usando em meus formulários um componente Skin. E 
> o que está acontecendo é que alguns componentes já existentes na minha 
> aplicação estão com o fundo padrão do Windows (o que me referi a 
> propriedade "Objetos 3D"). Então, o que eu estou precisando é colocar 
> esses componentes com a mesma cor dos outros objetos. Tem um objeto 
> (JvInspector) que não tem nenhuma propriedade de cor. Por isso que 
> queria mudar a propriedade "Objetos 3D", que resolveria o meu problema, 
> só que era automático e não abrir somente a tela.
> Então, se tiver algum jeito de mudar essa cor de fundo deles, é o que eu 
> preciso.
> 
> Desde já, agradeço a todos.

Brother, eu testei um demo ("C:\Arquivos de
programas\Borland\ Delphi7\jvcl\ examples\ JvInspector" ) e vi a propriedade
Style no JvInspector, mudei para isDotNet, o JvInspector ficou bem
estiloso; ele também tem a propriedade Painter, use um
JvInspectorDotNETPa inter junto e configure as cores.

Sucesso aí.
--
Silvio Clecio.




  

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] Re: NF-E

[Jancarlos Martins]

Tudo bem Felipe,
So esclarecendo que o AcbrNfePCn e um componente que voce pode ler o XML e
obter todas as informaçoes da NFe e muito simples vale a pena instalar.

Jancarlos P. Martins
www.defence.com.br


2009/9/16 v.silva31 

>
>
> Bom, existem alguns disponiveis na internet. Caso vc apenas precise
> visualizar o arquivo de xml e ou imprimir poderia usa-lo sem maiores
> problemas.
>
>
> http://www.unimake.com.br/uninfe/download.php?id=6512bd43d9caa6e02c990b0a82652dca
>
> esta é a versão free, diferente do sistema oferecido pela receita, vc tem
> aqui a possibilidade imprmiri o danfe exatamente como ele é.
> espero ter ajudado.
>
> boa sorte t+.
>
> --- Em delphi-br@yahoogrupos.com.br ,
> "Filippe Info"  escreveu
>
> >
> > Bom dia a todos,
> >
> >
> > Hoje a empresa que trabalho ainda não esta enquadrada para envio da NFe.
> > Porem estou recebendo todas de meus fornecedores o arquivos XML.
> >
> > Eu gostaria de montar um programa para abrir o XML da NFe, pois a pessoa
> que recebe as mercadorias aqui na empresa não tem acesso a internet.
> >
> > E como meus fornecedores a maioria manda o XML, ele poderia abrir via
> software, mais não conseguir ainda fazer um sistema para abrir o XML.
> >
> >
> > obrigado,
> >
> >
> > Filippe Maymone
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
>
>  
>


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

[delphi-br] Fast Report e/ou Quick Report 2010

[Huander]

Alguém conseguiu instalar os componentes Fast Report e/ou Quick Report no
Delphi 2010? Podem me ajudar a instalar ou obter uma nova versão Trial pra
instalação?

 

Att...

 

Huander


 




 



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

Re: [delphi-br] Re: calculo da idade de nascimento no momento do cadastro

[Luciano Angelini]

Gustavo 

  Aparentemente seria só substituir o message pelo seu DBedit, mas eu 
penso que isso daria errado gravar a idade em
um campo de dados, quando passar um certo tempo ja não estara correto os 
dados (idade), o correto seria fazer que calcula-se essa idade e jogaria 
em uma variavel, se vc por pra calcular a idade, tipo toda vez que vc 
abrir o sistema, imagine um sistema rodando em rede com 20 micros, com 
1 pacientes/clientes, toda vez que uma maquina entra no sistema tem 
que fazer esse calculo, dar um while na tabela alterando e gravando, é 
de matar qualquer rede !! Eu tinha um sistema para imprimir cartão 
de aniversariantes do municipio que eu colocava uma Label só pra mostrar 
a idade !!


Espero ter ajudado 


Luciano Angelini




gustavoandref escreveu:
>  
>
> Luciano,
> fico muito grato pela sua ajuda, mas estou precisando pegar esse valor 
> e colocar em um outro dbedit, como faço isso?
> um abraço,
>
> --- Em delphi-br@yahoogrupos.com.br 
> , Luciano Angelini 
>  escreveu
> >
> >
> > Boa Tarde Gustavo .
> >
> >
> > Eu uso assim 
> >
> >
> > function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer;
> > var
> > D1, M1, A1,
> > D2, M2, A2: Word;
> > begin
> > DecodeDate(Data1, A1, M1, D1);
> > DecodeDate(Data2, A2, M2, D2);
> >
> > Result := A2 - A1;
> >
> > if (M1 > M2) or ((M1 = M2) and (D1 > D2)) then
> > Dec(Result);
> > end;
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> > DataNasc: TDateTime;
> > begin
> > DataNasc := StrToDate(MaskEdit1.Text);
> > ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos');
> >
> > end;
> >
> > Espero ter ajudado !1
> >
> >
> > Luciano Angelini
> > Prefeitura de Lupionópolis-Pr
> >
> > gustavoandref escreveu:
> > >
> > >
> > > Pessoal,
> > > estou precisando que na tela de cadastro de pacientes ao digitar a
> > > data de nascimento apareça em outro campo a idade do paciente (isso é
> > > necessário para definir qual especialidade médica ele será 
> direcionado).
> > >
> > > sei que é possível fazer via eventos do delphi, mas não sei como
> > > fazer. se alguém tiver a solução por favor poste aqui,
> > >
> > > um grande abraço,
> > >
> > > Gustavo Freitas
> > > Hospital Geral de Linhares
> > >
> > >
> >
>
> 

Re: [delphi-br] NF-E

[Marcelo Luiz Onhate]

http://acbr.sourceforge.net/drupal/?q=node/36

Filippe Info escreveu:
>  
>
> Bom dia a todos,
>
> Hoje a empresa que trabalho ainda não esta enquadrada para envio da NFe.
> Porem estou recebendo todas de meus fornecedores o arquivos XML.
>
> Eu gostaria de montar um programa para abrir o XML da NFe, pois a 
> pessoa que recebe as mercadorias aqui na empresa não tem acesso a 
> internet.
>
> E como meus fornecedores a maioria manda o XML, ele poderia abrir via 
> software, mais não conseguir ainda fazer um sistema para abrir o XML.
>
> obrigado,
>
> Filippe Maymone
>
>

[delphi-br] Re: NF-E

[v.silva31]

Bom, existem alguns disponiveis na internet. Caso vc apenas precise visualizar 
o arquivo de xml e ou imprimir poderia usa-lo sem maiores problemas.

http://www.unimake.com.br/uninfe/download.php?id=6512bd43d9caa6e02c990b0a82652dca


esta é a versão free, diferente do sistema oferecido pela receita, vc tem aqui 
a possibilidade imprmiri o danfe exatamente como ele é.
espero ter ajudado.

boa sorte t+.




--- Em delphi-br@yahoogrupos.com.br, "Filippe Info"  escreveu
>
> Bom dia a todos,
> 
> 
> Hoje a empresa que trabalho ainda não esta enquadrada para envio da NFe.
> Porem estou recebendo todas de meus fornecedores o arquivos XML.
> 
> Eu gostaria de montar um programa para abrir o XML da NFe, pois a pessoa 
> que recebe as mercadorias aqui na empresa não tem acesso a internet.
> 
> E como meus fornecedores a maioria manda o XML, ele poderia abrir via 
> software, mais não conseguir ainda fazer um sistema para abrir o XML.
> 
> 
> obrigado,
> 
> 
> Filippe Maymone
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

Re: [delphi-br] Re: calculo da idade de nascimento no momento do cadastro

[Rodinei]

Estudando um pouco.
Rodinei Amorim 
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br



From: gustavoandref 
Sent: Wednesday, September 16, 2009 8:27 AM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Re: calculo da idade de nascimento no momento do cadastro


  Luciano,
fico muito grato pela sua ajuda, mas estou precisando pegar esse valor e 
colocar em um outro dbedit, como faço isso?
um abraço,

--- Em delphi-br@yahoogrupos.com.br, Luciano Angelini  
escreveu
>
> 
> Boa Tarde Gustavo .
> 
> 
> Eu uso assim 
> 
> 
> function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer;
> var
> D1, M1, A1,
> D2, M2, A2: Word;
> begin
> DecodeDate(Data1, A1, M1, D1);
> DecodeDate(Data2, A2, M2, D2);
> 
> Result := A2 - A1;
> 
> if (M1 > M2) or ((M1 = M2) and (D1 > D2)) then
> Dec(Result);
> end;
> 
> procedure TForm1.Button1Click(Sender: TObject);
> var
> DataNasc: TDateTime;
> begin
> DataNasc := StrToDate(MaskEdit1.Text);
> ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos');
> 
> end;
> 
> Espero ter ajudado !1
> 
> 
> Luciano Angelini
> Prefeitura de Lupionópolis-Pr
> 
> gustavoandref escreveu:
> > 
> >
> > Pessoal,
> > estou precisando que na tela de cadastro de pacientes ao digitar a 
> > data de nascimento apareça em outro campo a idade do paciente (isso é 
> > necessário para definir qual especialidade médica ele será direcionado).
> >
> > sei que é possível fazer via eventos do delphi, mas não sei como 
> > fazer. se alguém tiver a solução por favor poste aqui,
> >
> > um grande abraço,
> >
> > Gustavo Freitas
> > Hospital Geral de Linhares
> >
> >
>





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

[delphi-br] Re: calculo da idade de nascimento no momento do cadastro

[gustavoandref]

Luciano,
fico muito grato pela sua ajuda, mas estou precisando pegar esse valor e 
colocar em um outro dbedit, como faço isso?
um abraço,

--- Em delphi-br@yahoogrupos.com.br, Luciano Angelini  
escreveu
>
> 
> Boa Tarde Gustavo .
> 
> 
> Eu uso assim 
> 
> 
> function TForm1.CalcAnos(const Data1, Data2: TDateTime): integer;
> var
>   D1, M1, A1,
>   D2, M2, A2: Word;
> begin
>   DecodeDate(Data1, A1, M1, D1);
>   DecodeDate(Data2, A2, M2, D2);
> 
>   Result := A2 - A1;
> 
>   if (M1 > M2) or ((M1 = M2) and (D1 > D2)) then
>  Dec(Result);
> end;
> 
> procedure TForm1.Button1Click(Sender: TObject);
> var
>DataNasc: TDateTime;
> begin
>DataNasc := StrToDate(MaskEdit1.Text);
>ShowMessage(IntToStr(CalcAnos(DataNasc, Date)) + ' anos');
> 
> end;
> 
> Espero ter ajudado !1
> 
> 
> Luciano Angelini
> Prefeitura de Lupionópolis-Pr
> 
> gustavoandref escreveu:
> >  
> >
> > Pessoal,
> > estou precisando que na tela de cadastro de pacientes ao digitar a 
> > data de nascimento apareça em outro campo a idade do paciente (isso é 
> > necessário para definir qual especialidade médica ele será direcionado).
> >
> > sei que é possível fazer via eventos do delphi, mas não sei como 
> > fazer. se alguém tiver a solução por favor poste aqui,
> >
> > um grande abraço,
> >
> > Gustavo Freitas
> > Hospital Geral de Linhares
> >
> >
>

Res: [delphi-br] Unit não debuga

[Berdam]

Obrigado pela ajuda joão, mas não resolveu.

O engraçado é que use SVN, dai comitei esses fontes e a mesma unit em pcs 
diferentes não debuga.

 

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: Joao Morais 
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 15 de Setembro de 2009 19:12:58
Assunto: Re: [delphi-br] Unit não debuga

  
2009/9/15 Berdam :
> fiz alguns testes, coloquei um showmessage dentro dos métodos dessa unit, 
> quando compiilo o showmessage aparece justamente onde eu coloquei, porém o 
> código não para no breakpoint anotado na linha acima .
>
> Estranho pacas

Adiciona {$D+} no cabeçalho da unit para adicionar informações de debug.

Joao Morais

   


  

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]

RES: [delphi-br] NF-E

[Marcelo - CH Sistemas]

Opa tem um programa que já faz isso é o Visualizador NFE 3.5 dá uma
procurada no google que vc acha

 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Filippe Info
Enviada em: quarta-feira, 16 de setembro de 2009 07:23
Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] NF-E

 

  

Bom dia a todos,

Hoje a empresa que trabalho ainda não esta enquadrada para envio da NFe.
Porem estou recebendo todas de meus fornecedores o arquivos XML.

Eu gostaria de montar um programa para abrir o XML da NFe, pois a pessoa que
recebe as mercadorias aqui na empresa não tem acesso a internet.

E como meus fornecedores a maioria manda o XML, ele poderia abrir via
software, mais não conseguir ainda fazer um sistema para abrir o XML.

obrigado,

Filippe Maymone

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





__ Informação do ESET Smart Security, versão da vacina 4429
(20090916) __

A mensagem foi verificada pelo ESET Smart Security.

http://www.eset.com



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

[delphi-br] Re: Capturar valor em arquivo UDL

[alexsandro_qs]

Bom dia;
Bom ... meu veio, acredito que não deu para vc  acompanhar as minhas 
respostas...( é claro que seria fácil ...rsrs).
pois aquela solução que vc passou, não dar certo pois ele separa o "Data 
Souce", pois ele usa o espaço como delimitador também ok


--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos  
escreveu
>
> rapaz.. a dica que te passei resolve seu problema, é só percorrer o
> stringList, mais fácil que isso impossível..
> 
> 
> Att,
> ...
> Eduardo Silva dos Santos
> DRD SISTEMAS
> (27) 3218-4201
> (27) 9961-7095
> MSN: eduardo@...
> Site: http://www.drdsistemas.com.br/
> ...
> 
> 
> 2009/9/15 alexsandro_qs 
> 
> >
> >
> > Boa tarde pessoal;
> > Eu consegui esse exemplo:
> >
> > var
> > strLinha: String;
> > Parte : TStringList;
> > begin
> > strLinha := 'a b;Alexsandro Que;Q;f;alex';
> >
> > Parte := TStringList.Create;
> > try
> > Parte.Clear;
> > ExtractStrings([';'],[ ], PChar(strLinha), Parte);
> > ShowMessage(Parte[1]);
> > finally
> > Parte.Free;
> > end;
> > end;
> >
> > No caso desse, ele pega o "Alexsandro Que"... acredito que estou quase lá
> > !!!
> > Será que tem alguma forma de ele pegar só o ultimo campo, independente de
> > quantos houver ?
> > Aê eu mataria esse desafio ...
> > Pois abriria o arquivo e pegaria somente o ultimo campo ...
> > Quem poder me ajudar agradeço muito !!!
> >
> > --- Em delphi-br@yahoogrupos.com.br ,
> > Eduardo Silva dos Santos  escreveu
> > >
> > > O Fato de do espeço em data Source não é problema.. quanto ao ; lá vai..
> > >
> > > ;
> > > var
> > >ArqIni: TIniFile;
> > > StrList:TStringList;
> > > begin
> > > StrList := TStringList.Creat;
> > > ArqIni := TIniFile.Create('c:\arqu1.udl' );
> > > try
> > > aTexto := ArqIni.ReadString('oledb', 'Data source', '');
> > > StrList.Delimiter := ';';
> > > StrList.DelimitedText := aTexto;
> > > //pronto você tem um StringList com todas as linhas separadas...
> > > //Basta percorrer o mesmo e pegar o valor que você deseja..
> > >
> > >
> > > finally
> > > ArqIni.Free;
> > > StrList.Free;
> > > end;
> > >
> > > end;
> > >
> > >
> > >
> > > Att,
> > > ...
> > > Eduardo Silva dos Santos
> > > DRD SISTEMAS
> > > (27) 3218-4201
> > > (27) 9961-7095
> > > MSN: eduardo.drd@
> > > Site: http://www.drdsistemas.com.br/
> > > ...
> > >
> > >
> > > 2009/9/11 alexsandro_qs 
> > > >
> > > >
> > > >
> > > > Obrigado Ricardo;
> > > > Eu estou tentando como aquivo ini
> > > >
> > > > E fiz assim:
> > > >
> > > > procedure LeIni(var aTexto: string);
> > > >
> > > > var
> > > >
> > > > ArqIni: TIniFile;
> > > >
> > > > begin
> > > >
> > > > ArqIni := TIniFile.Create('c:\arqu1.udl');
> > > >
> > > > try
> > > >
> > > > aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto);
> > > >
> > > > finally
> > > >
> > > > ArqIni.Free;
> > > >
> > > > end;
> > > >
> > > > procedure TForm1.Button1Click(Sender: TObject);
> > > > var
> > > > //cria arquivo ini
> > > > ArqIni: TIniFile;
> > > > begin
> > > > ArqIni := TIniFile.Create('c:\arqu1.udl');
> > > > try
> > > > ArqIni.WriteString('oledb', 'Data source', 'aTexto');
> > > > finally
> > > > ArqIni.Free;
> > > > end;
> > > >
> > > > 2 Problemas:
> > > >
> > > > 1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
> > > > 2º como poderia tratar nesse código o separadar de linhas ";" pois ele
> > esta tratando o arquivo todo como se fosse uma linha só. Ele só encontra se
> > eu colocar uma linha abaixo da outra
> > > >
> > > > Ex.:
> > > > InitialCatalog=ERP;
> > > > Data_Source=www.servidor.com.br
> > > >
> > > > Se alguem poder me ajudar com isso eu agradeço muito
> > > >
> > > >
> > >
> >
> >  
> >
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] NF-E

[Filippe Info]

Bom dia a todos,


Hoje a empresa que trabalho ainda não esta enquadrada para envio da NFe.
Porem estou recebendo todas de meus fornecedores o arquivos XML.

Eu gostaria de montar um programa para abrir o XML da NFe, pois a pessoa 
que recebe as mercadorias aqui na empresa não tem acesso a internet.

E como meus fornecedores a maioria manda o XML, ele poderia abrir via 
software, mais não conseguir ainda fazer um sistema para abrir o XML.


obrigado,


Filippe Maymone

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