Re: [delphi-br] [OFF-TOPIC] Explicação da velocida de de compilação do Delphi

2010-07-06 Por tôpico Leodinei Bielak
Pascal é uma linguagem extremamente simples.
Por exemplo, você declara todas as variáveis num único lugar. Isso e outras
coisas tornam simples ler o fonte pascal e gerar o binário.
Já por exemplo C++, você pode declarar uma variável em qualquer lugar, tem
variáveis que só existem dentro de um laço e por aí vai, logo é bem mais
complicado interpretar o fonte.

2010/7/5 Vinicius Santos vinicius.santos.li...@gmail.com



 Pessoal boa noite,

 Alguém sabe a explicação técnica de o compilador Delphi ser TÃO rápido ?

 Ando(por curiosidade apenas) estudando o funcionamento de compiladores e
 não consigo entender o porque o Delphi de fato é muito rápido nessa parte.

 Veja o g++ e o VC++, demoram um tempo consideravelmente maior para
 compilar um programa que o Delphi/C++ Builder.

 Estou errado quando digo que as partes mais demoradas são a Análise
 Léxica e a Semântica ??

 Qual seria a explicação técnica ?
  

 vinicius.santos.li...@gmail.com?subject=[off-topic]+explica%c3%a7%c3%a3o+da+velocidade+de+compila%c3%a7%c3%a3o+do+delphi|delphi...@yahoogrupos.com.br?subject=[off-topic]+explica%c3%a7%c3%a3o+da+velocidade+de+compila%c3%a7%c3%a3o+do+delphi


-- 
Leodinei Bielak

Even a broken clock is right twice a day
If the code was pretty, I probably didn't write it.


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



Re: [delphi-br] Delphi e Windows 2008 TS

2010-07-06 Por tôpico Murilo Cunha
Antonio,

Use um sistema que duplica os itens dos usuarios.
Aqui na empresa eu uso o software: PROFWIZ.EXE


Obrigado.
MuriloCunha




On 05/07/2010 21:00, Arrobba Sistemas wrote:
 Alguém  já instalou o Delphi no Windows 2008 e depois através de outra
 maquina



 Acessar via terminal service, e puxar todas as configurações e componentes
 instalados



 No usuários administrador.





 Digamos instalei o Delphi como  administrador e instalei também o componente
 Jvcl,





 Quando crio outro usuárioEmpresa,  e ele vir com o Delphi e a Jvcl já
 instalada.





 Alguma dica de como fazer isto 





 Antonio C. de M. Pires

 Arrobba Sistemas





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



 





Re: Res: [delphi-br] TcxGrid Zebrado

2010-07-06 Por tôpico Murilo Cunha
Elaine,

Ainda nao deu certo!!
Será que estah faltando alguma coisa?
Poderia me enviar um exemplo?

Obrigado
MuriloCunha



On 02/07/2010 17:23, elaine...@gmail.com wrote:
 If 
 (TcxGridDataRowViewInfo(AViewInfo.RecordViewInfo).GridRecord.Values[TableViewNomeCampo.Index]
  = 0) then

 Begin

ACanvas.Font.Style := [fsBold];

ACanvas.Font.Color := clRed;

ACanvas.Brush.Color := clYellow;

 End;






Re: Res: [delphi-br] TcxGrid Zebrado

2010-07-06 Por tôpico 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






[delphi-br] IFDEF

2010-07-06 Por tôpico Aldinei Simões
Bom dia
Onde vejo a versão do Delphi para usar no IFDEF
 
ALdinei


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



[delphi-br] CMF-Limitar numero de caracteres em um dbMemo

2010-07-06 Por tôpico Clovito
Ola Pessoal
Saudações

Tenho um  dbmemo e preciso limitar o numero de caracteres por linha. Esse 
dbmemo será carregado através de um texto via ctrl+c e ctrl+v.
Preciso que ele se autoarrume dentro do limite estipulado. Tipo torna-lo 
justificavel. Será possível? Existiria um componente fora os normais do 
Delphi 7?
Obrigado
Clovis
 QUE O GRANDE ARQUITETO DO UNIVERSO
 NOS AMPARE
clovito.ferre...@hotmail.com MSN

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



Re: [delphi-br] IFDEF

2010-07-06 Por tôpico Jackson Gomes - ToolsComps

 Onde vejo a versão do Delphi para usar no IFDEF

http://delphi.about.com/od/objectpascalide/a/compiler_ver.htm

http://www.google.com.br/search?hl=pt-BRsource=hpq=delphi+compiler+versionsaq=faqi=aql=oq=gs_rfai=

Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: jack...@toolsandcomps.com
Fone: 27 3389 1138 - 8811 0324

http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc

Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
devh...@devhost.com.br 




RES: [delphi-br] IFDEF

2010-07-06 Por tôpico Aldinei Simões
Valeu Jackson

  _  

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Jackson Gomes - ToolsComps
Enviada em: terça-feira, 6 de julho de 2010 11:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] IFDEF


  


 Onde vejo a versão do Delphi para usar no IFDEF

http://delphi.about.com/od/objectpascalide/a/compiler_ver.htm

http://www.google.com.br/search?hl=pt-BR
http://www.google.com.br/search?hl=pt-BRsource=hpq=delphi+compiler+versio
nsaq=faqi=aql=oq=gs_rfai=
source=hpq=delphi+compiler+versionsaq=faqi=aql=oq=gs_rfai=

Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: jack...@toolsandcomps.com mailto:jackson%40toolsandcomps.com 
Fone: 27 3389 1138 - 8811 0324
--
http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc
--
Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
devh...@devhost.com.br mailto:devhost%40devhost.com.br  






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



Re: Res: [delphi-br] TcxGrid Zebrado

2010-07-06 Por tôpico Murilo Cunha
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: [delphi-br] Atualização de versão do a plicativo

2010-07-06 Por tôpico Fabiano Almeida
Walter,como vc faz pra colocar e depois recuperar o executável na base 
de dados?


Em 05/07/2010 09:50, Walter Chagas (Bol) escreveu:

 Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, 
 não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a 
 cópia sem problema algum. Eu tenho a versão do sistema atual gravado 
 em uma tabela e o proprio programa consulta a tabela pra saber se tem 
 atualização nova lá no servidor.

 []s


 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br mailto:wchagasj%40bol.com.br
 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
 SKYPE: WalterChagasJr

 - Original Message -
 From: Eny Urias
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Sent: Sunday, July 04, 2010 10:09 AM
 Subject: Res: [delphi-br] Atualização de versão do aplicativo

 Eu tenho um esquema assim:

 - Uma pasta no servidor para deixar o .exe atual.
 - Um programa que verifica se o .exe do usuário é mais antigo que o da 
 pasta do servidor.
 - Renomeio o .exe antigo e copio o novo.
 - O atalho do sistema aponta para o .exe desse programa ou seja, ele é 
 executado antes do sistema.

 Se interessar, te passo os arquivos.
 --
 Eny Trova Urias

 Somos o que repetitivamente fazemos, portanto, a excelência não é um 
 feito, mas um hábito- Aristóteles

 
 De: Ari Arantes Filho a...@dd.com.br mailto:ari%40dd.com.br
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Domingo, 4 de Julho de 2010 3:01:32
 Assunto: [delphi-br] Atualização de versão do aplicativo

 Pessoal,

 Como fazer para atualizar automaticamente (de preferência) o
 executável do sistema, num ambiente onde o executável (.exe) fica nos
 micros dos usuários, principalmente nos notebooks. Pois vários
 usuários utilizam através de VPN e fica melhor o acesso com o
 executável direto no PC que no servidor de arquivos. Para os usuários
 da rede interna sem problemas, pois o .exe fica no servidor de
 arquivos.

 Existe alguma maneira de deixar sempre o .exe atualizado?

 Obrigado,

 Ari

 [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] Atualização de v ersão do aplicativo

2010-07-06 Por tôpico Walter Chagas (Bol)
Eu não coloco ele na base de dados. Na base de dados vai so o numero da versão. 
O executavel fica em uma pasta em outro servidor. O atualizador vai lá na 
pasta, no IP tal e puxa o programa

[]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: Fabiano Almeida 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 06, 2010 3:21 PM
  Subject: Re: [delphi-br] Atualização de versão do aplicativo



  Walter,como vc faz pra colocar e depois recuperar o executável na base 
  de dados?

  Em 05/07/2010 09:50, Walter Chagas (Bol) escreveu:
  
   Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, 
   não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a 
   cópia sem problema algum. Eu tenho a versão do sistema atual gravado 
   em uma tabela e o proprio programa consulta a tabela pra saber se tem 
   atualização nova lá no servidor.
  
   []s
  
  
   Walter Alves Chagas Junior
   Belo Horizonte - MG - Brazil
   wchag...@bol.com.br mailto:wchagasj%40bol.com.br
   http://delphitocorporerm.blogspot.com/
   http://twitter.com/wchagas
   MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
   SKYPE: WalterChagasJr
  
   - Original Message -
   From: Eny Urias
   To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
   Sent: Sunday, July 04, 2010 10:09 AM
   Subject: Res: [delphi-br] Atualização de versão do aplicativo
  
   Eu tenho um esquema assim:
  
   - Uma pasta no servidor para deixar o .exe atual.
   - Um programa que verifica se o .exe do usuário é mais antigo que o da 
   pasta do servidor.
   - Renomeio o .exe antigo e copio o novo.
   - O atalho do sistema aponta para o .exe desse programa ou seja, ele é 
   executado antes do sistema.
  
   Se interessar, te passo os arquivos.
   --
   Eny Trova Urias
  
   Somos o que repetitivamente fazemos, portanto, a excelência não é um 
   feito, mas um hábito- Aristóteles
  
   
   De: Ari Arantes Filho a...@dd.com.br mailto:ari%40dd.com.br
   Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
   Enviadas: Domingo, 4 de Julho de 2010 3:01:32
   Assunto: [delphi-br] Atualização de versão do aplicativo
  
   Pessoal,
  
   Como fazer para atualizar automaticamente (de preferência) o
   executável do sistema, num ambiente onde o executável (.exe) fica nos
   micros dos usuários, principalmente nos notebooks. Pois vários
   usuários utilizam através de VPN e fica melhor o acesso com o
   executável direto no PC que no servidor de arquivos. Para os usuários
   da rede interna sem problemas, pois o .exe fica no servidor de
   arquivos.
  
   Existe alguma maneira de deixar sempre o .exe atualizado?
  
   Obrigado,
  
   Ari
  
   [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]



Res: [delphi-br] [OFF-TOPIC] Erro A propried ade e ou o objeto não foi encontrado no Cer t.Digital (c/ ACBrNFe)

2010-07-06 Por tôpico Berdam
veja todos os parâmetros de envio de NFE, como servidor, ambiente, chave, 

 

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: Albuquerque sys.e...@yahoo.com
Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br; 
automacaoto...@yahoogrupos.com.br
Enviadas: Terça-feira, 6 de Julho de 2010 16:10:05
Assunto: [delphi-br] [OFF-TOPIC] Erro A propriedade e ou o objeto não foi 
encontrado no Cert.Digital (c/ ACBrNFe)

  
É possível o modelo A1 de Certificado Digital (CD) gerar uma chave tão
pequena como “41E36AF2” ?

Em todos meus clientes com CD mod. A1 a chave parece número de chassi de
carro (exemplo: “6DC091D3A54A6B1B129598A58F62AC0B”).

Estou utilizando o ACBrNFe e todos CD´s mod. A1 dos meus clientes
funcionaram perfeitamente, agora este primeiro citado neste email, de um
outro cliente, não está funcionando.

É retornado o seguinte erro: “A propriedade e ou o objeto não foi
encontrado”.

Tudo que encontrei a respeito desse erro na internet refere-se a atualização
do msxml5 e/ou do capicom. 

Por desencargo de consciência atualizei os dois, mesmo achando improvável,
uma vez que os demais CD´s de outros clientes funcionaram perfeitamente.

-será que o contador do cliente, ao baixar o CD, fez de forma incorreta ?

-será que meu cliente digitou uma senha na CEF ao receber o CD e o contador
não a exportou no momento de exportar o arquivo pra mim ?

-é possível o Certificado estar com problema ?

Desde já agradeço a atenção dispensada.

Att.

Albuquerque

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


 


  

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



Re: Res: [delphi-br] TcxGrid Zebrado

2010-07-06 Por tôpico 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





 




 




[delphi-br] [OFF-TOPIC] Erro A propriedade e ou o objeto não foi encontrado no Cert.Digital (c / ACBrNFe)

2010-07-06 Por tôpico Cristiano Bauer
Boa noite.

 

Eu estou utilizando um certificado emitido pela CEF e também possui uma
chave do tamanho que você mencionou e está funcionando corretamente.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Albuquerque
Enviada em: terça-feira, 6 de julho de 2010 16:10
Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br;
automacaoto...@yahoogrupos.com.br
Assunto: [delphi-br] [OFF-TOPIC] Erro A propriedade e ou o objeto não foi
encontrado no Cert.Digital (c/ ACBrNFe)

 

  

É possível o modelo A1 de Certificado Digital (CD) gerar uma chave tão
pequena como “41E36AF2” ?

Em todos meus clientes com CD mod. A1 a chave parece número de chassi de
carro (exemplo: “6DC091D3A54A6B1B129598A58F62AC0B”).

Estou utilizando o ACBrNFe e todos CD´s mod. A1 dos meus clientes
funcionaram perfeitamente, agora este primeiro citado neste email, de um
outro cliente, não está funcionando.

É retornado o seguinte erro: “A propriedade e ou o objeto não foi
encontrado”.

Tudo que encontrei a respeito desse erro na internet refere-se a atualização
do msxml5 e/ou do capicom. 

Por desencargo de consciência atualizei os dois, mesmo achando improvável,
uma vez que os demais CD´s de outros clientes funcionaram perfeitamente.

-será que o contador do cliente, ao baixar o CD, fez de forma incorreta ?

-será que meu cliente digitou uma senha na CEF ao receber o CD e o contador
não a exportou no momento de exportar o arquivo pra mim ?

-é possível o Certificado estar com problema ?

Desde já agradeço a atenção dispensada.

Att.

Albuquerque

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





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



Re: [delphi-br] Atualização de versão d o aplicativo

2010-07-06 Por tôpico Adriano Santos
Eu coloco no banco de dados mesmo. 
Para incluir no banco:
QueryNomeCampo.LoadFromFile('C:\Arquivo')

Para extrair:
QueryNomeCampo.SaveFromFile('C:\Arquivo')

Adriano Santos
http://twitter.com/asrsantos
Enviado de meu iPhone

Em 06/07/2010, às 15:35, Walter Chagas \(Bol\) wchag...@bol.com.br escreveu:

 Eu não coloco ele na base de dados. Na base de dados vai so o numero da 
 versão. O executavel fica em uma pasta em outro servidor. O atualizador vai 
 lá na pasta, no IP tal e puxa o programa
 
 []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: Fabiano Almeida 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Tuesday, July 06, 2010 3:21 PM
 Subject: Re: [delphi-br] Atualização de versão do aplicativo
 
 Walter,como vc faz pra colocar e depois recuperar o executável na base 
 de dados?
 
 Em 05/07/2010 09:50, Walter Chagas (Bol) escreveu:
 
  Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém, 
  não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a 
  cópia sem problema algum. Eu tenho a versão do sistema atual gravado 
  em uma tabela e o proprio programa consulta a tabela pra saber se tem 
  atualização nova lá no servidor.
 
  []s
 
 
  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  wchag...@bol.com.br mailto:wchagasj%40bol.com.br
  http://delphitocorporerm.blogspot.com/
  http://twitter.com/wchagas
  MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
  SKYPE: WalterChagasJr
 
  - Original Message -
  From: Eny Urias
  To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
  Sent: Sunday, July 04, 2010 10:09 AM
  Subject: Res: [delphi-br] Atualização de versão do aplicativo
 
  Eu tenho um esquema assim:
 
  - Uma pasta no servidor para deixar o .exe atual.
  - Um programa que verifica se o .exe do usuário é mais antigo que o da 
  pasta do servidor.
  - Renomeio o .exe antigo e copio o novo.
  - O atalho do sistema aponta para o .exe desse programa ou seja, ele é 
  executado antes do sistema.
 
  Se interessar, te passo os arquivos.
  --
  Eny Trova Urias
 
  Somos o que repetitivamente fazemos, portanto, a excelência não é um 
  feito, mas um hábito- Aristóteles
 
  
  De: Ari Arantes Filho a...@dd.com.br mailto:ari%40dd.com.br
  Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
  Enviadas: Domingo, 4 de Julho de 2010 3:01:32
  Assunto: [delphi-br] Atualização de versão do aplicativo
 
  Pessoal,
 
  Como fazer para atualizar automaticamente (de preferência) o
  executável do sistema, num ambiente onde o executável (.exe) fica nos
  micros dos usuários, principalmente nos notebooks. Pois vários
  usuários utilizam através de VPN e fica melhor o acesso com o
  executável direto no PC que no servidor de arquivos. Para os usuários
  da rede interna sem problemas, pois o .exe fica no servidor de
  arquivos.
 
  Existe alguma maneira de deixar sempre o .exe atualizado?
 
  Obrigado,
 
  Ari
 
  [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] Gerar xml para convenios

2010-07-06 Por tôpico Dirlei Dionísio
Marcelo,

Fiz um sistema pra isso em 2007. Segui as instruções da própria ANS, fazendo
bastante uso dos XSD's que definem a estrutura do XML. Uma ferramenta como o
Altova XML Spy, dá uma ajuda trementa. Não foi exatamente difícil, mas deu
bastante trabalho, especialmente nas guias SP/SADT e Resumo de Internação.

[ ]'s

--
Dirlei Dionísio
Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade
http://MaisQueBomCodigo.blogspot.com


Em 6 de julho de 2010 17:13, Marcelo leite_rom...@yahoo.com.br escreveu:



 Bom tarde pessoal, gostaria de saber se alguem aki ja gerou xml para
 faturamento eletronico de convenios. Tem alguma dificuldade ou é só seguir o
 esquema do site da ANS.
 .Desde já agradeço a atenção de todos.




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



Re: [delphi-br] Atualização de versão do aplicati vo

2010-07-06 Por tôpico Leandro
mas o banco suporta? sempre q tentei da estouro de tempo ou do buffer da
query

Em 6 de julho de 2010 19:56, Adriano Santos asrsan...@gmail.com escreveu:



 Eu coloco no banco de dados mesmo.
 Para incluir no banco:
 QueryNomeCampo.LoadFromFile('C:\Arquivo')

 Para extrair:
 QueryNomeCampo.SaveFromFile('C:\Arquivo')

 Adriano Santos
 http://twitter.com/asrsantos
 Enviado de meu iPhone

 Em 06/07/2010, às 15:35, Walter Chagas \(Bol\) 
 wchag...@bol.com.brwchagasj%40bol.com.br
 escreveu:

  Eu não coloco ele na base de dados. Na base de dados vai so o numero da
 versão. O executavel fica em uma pasta em outro servidor. O atualizador vai
 lá na pasta, no IP tal e puxa o programa
 
  []s
 
 
  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  wchag...@bol.com.br wchagasj%40bol.com.br
  http://delphitocorporerm.blogspot.com/
  http://twitter.com/wchagas
  MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
  SKYPE: WalterChagasJr
 
  - Original Message -
  From: Fabiano Almeida
  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  Sent: Tuesday, July 06, 2010 3:21 PM
  Subject: Re: [delphi-br] Atualização de versão do aplicativo
 
  Walter,como vc faz pra colocar e depois recuperar o executável na base
  de dados?
 
  Em 05/07/2010 09:50, Walter Chagas (Bol) escreveu:
  
   Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém,
   não precisa renomear o .exe. O lançador fecha o programa e sobrepoe a
   cópia sem problema algum. Eu tenho a versão do sistema atual gravado
   em uma tabela e o proprio programa consulta a tabela pra saber se tem
   atualização nova lá no servidor.
  
   []s
  
  
   Walter Alves Chagas Junior
   Belo Horizonte - MG - Brazil
   wchag...@bol.com.br wchagasj%40bol.com.br mailto:
 wchagasj%40bol.com.br wchagasj%2540bol.com.br
   http://delphitocorporerm.blogspot.com/
   http://twitter.com/wchagas
   MSN: whitesock...@hotmail.com whitesockets%40hotmail.com mailto:
 whitesockets%40hotmail.com whitesockets%2540hotmail.com
   SKYPE: WalterChagasJr
  
   - Original Message -
   From: Eny Urias
   To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
   Sent: Sunday, July 04, 2010 10:09 AM
   Subject: Res: [delphi-br] Atualização de versão do aplicativo
  
   Eu tenho um esquema assim:
  
   - Uma pasta no servidor para deixar o .exe atual.
   - Um programa que verifica se o .exe do usuário é mais antigo que o da
   pasta do servidor.
   - Renomeio o .exe antigo e copio o novo.
   - O atalho do sistema aponta para o .exe desse programa ou seja, ele é
   executado antes do sistema.
  
   Se interessar, te passo os arquivos.
   --
   Eny Trova Urias
  
   Somos o que repetitivamente fazemos, portanto, a excelência não é um
   feito, mas um hábito- Aristóteles
  
   
   De: Ari Arantes Filho a...@dd.com.br ari%40dd.com.br mailto:
 ari%40dd.com.br ari%2540dd.com.br
   Para: delphi-br@yahoogrupos.com.br 
   delphi-br%40yahoogrupos.com.brmailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
   Enviadas: Domingo, 4 de Julho de 2010 3:01:32
   Assunto: [delphi-br] Atualização de versão do aplicativo
  
   Pessoal,
  
   Como fazer para atualizar automaticamente (de preferência) o
   executável do sistema, num ambiente onde o executável (.exe) fica nos
   micros dos usuários, principalmente nos notebooks. Pois vários
   usuários utilizam através de VPN e fica melhor o acesso com o
   executável direto no PC que no servidor de arquivos. Para os usuários
   da rede interna sem problemas, pois o .exe fica no servidor de
   arquivos.
  
   Existe alguma maneira de deixar sempre o .exe atualizado?
  
   Obrigado,
  
   Ari
  
   [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]

  




-- 
Leandro, MuTukA


[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




[delphi-br] Livro usado

2010-07-06 Por tôpico MSDNX Yahoo
Alguém teria este livro disponível para venda.

 



 

Leonardo Freitag.



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



[delphi-br] Manipulação arquivos .xls/xlsx

2010-07-06 Por tôpico Douglas Henrique de Souza

Pessoal, alguém me ajude por favor.

Eu preciso manipular alguns arquivos .xls/.xlsx, extrair dados e salvar em um 
BD.

Estou usando a seguinte rotina para isso:

 

function TForm1.XlsToStringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean;
const
xlCellTypeLastCell = $000B;
var
XLApp, Sheet: OLEVariant;
RangeMatrix: Variant;
x, y, k, r, ind: Integer;
begin
ind:= (RadioGroup1.ItemIndex)+1;
Result:=False;
//Cria Excel- OLE Object
XLApp:=CreateOleObject('Excel.Application');
try
//Esconde Excel
XLApp.Visible:=False;
//Abre o Workbook
XLApp.Workbooks.Open(AXLSFile);
XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[ind].Activate;
Sheet:=XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[ind];
Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
//Pegar o número da última linha
x:=XLApp.ActiveCell.Row;
//Pegar o número da última coluna
y:=XLApp.ActiveCell.Column;
//Seta Stringgrid linha e coluna
AGrid.RowCount:=x;
AGrid.ColCount:=y;
//Associaca a variant WorkSheet com a variant do Delphi
RangeMatrix:=XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;
//Cria o loop para listar os registros no TStringGrid
k:=1;

repeat
for r:=1 to y do
AGrid.Cells[(r - 1),(k - 1)]:=RangeMatrix[K, R];
Inc(k,1);
until k  x;
RangeMatrix:=Unassigned;
finally
//Fecha o Excel
if not VarIsEmpty(XLApp) then
begin
XLApp.Quit;
XLAPP:=Unassigned;
Sheet:=Unassigned;
Result:=True;
end;
end;

end;

 

Até aí tudo bem, consigo manipular os dados das células tranquilamente. O meu 
problema é que, tem dados que eu preciso extrair que estão como comentários da 
célula(é tipo um hint da célula). Alguém sabe como manipular esses comentários?

 

Obrigado desde já.


Douglas Henrique de Souza
Desenvolvimento de Sistemas (Projetos)
URI - FW

Tel: (55) 3744 - 9236
e-mail alternativo: douglaso...@brturbo.com.br



  
_
http://clk.atdmt.com/UKM/go/19780/direct/01/
We want to hear all your funny, exciting and crazy Hotmail stories. Tell us now

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



Re: Res: [delphi-br] TcxGrid Zebrado

2010-07-06 Por tôpico João Carlos


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

2010-07-06 Por tôpico João Carlos
Murilo,

Vê se isso te ajuda.

João


procedure TfrmOrcamento.gridOrcamentoDBTableView1CustomDrawCell(
   Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
   AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
val, val1:string;
begin
   if (not AViewInfo.RecordViewInfo.Selected) then
   begin
  val  := 
VarAsType(AViewInfo.GridRecord.DisplayTexts[gridOrcamentoDBTableView1POSICAO.Index],
 
varString);
  val1 := 
VarAsType(AViewInfo.GridRecord.DisplayTexts[gridOrcamentoDBTableView1TIPO.Index],
 
varString);
  if (StrToInt(val)0) then
  begin
if  (val1='V') and (AViewInfo.Item.Index=0) then
begin
   ACanvas.Canvas.Font.Color := clGreen;
end;
if  (val1='I') and (AViewInfo.Item.Index=0) then
begin
   ACanvas.Canvas.Font.Color := clBlue;
end;
  end
  else
  begin
ACanvas.Canvas.Font.Style := [fsBold];
ACanvas.Canvas.Font.Color := clNavy;
  end;
   end
   else
   begin
  ACanvas.Canvas.Font.Style := [fsBold];
  ACanvas.Canvas.Font.Color := clWhite
   end;
end;


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






 


  


 




[delphi-br] Delphi Prism

2010-07-06 Por tôpico Ray Silva
Pessoal, boa tarde.

Alguém já está trabalhando com o Delphi Prism? Qual o feedback de vocês?

Eu iniciei um projeto na empresa onde trabalho e estou tenho um pouco de 
dificuldade com relação a documentação e até mesmo a linguagem em sí. Tentei 
usar o With e me parece que no Prism ele não é suportado. Foi uma grande 
surpresa.

Referente à documentação, não tenho visto muita atividade nos fóruns EDN, o 
Wiki do Prism tá bem básico.

Referente a linguagem:

Quando eu vou acessar algum evento existente, ele duplica os métodos! Segue um 
exemplo que aconteceu agora:

...
type
  morador = public partial class(System.Web.UI.Page)
  protected
method btnSalvar_Click(sender: System.Object; e: System.EventArgs);
   method btnSalvar_Click(sender: System.Object; e: System.EventArgs);

 ...

Estou tentando imaginar o que pode ser isso. Bug da IDE? !

Qual a opinião de vocês? O que esperam ou não esperam do Prism?

Grande abraço a todos.

Jump off cliffs all the time and build your wings on the way down.


  

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



Re: Res: [delphi-br] TcxGrid Zebrado

2010-07-06 Por tôpico Thiago
Para linhas zebradas impares e pares:

Dentro do Evento CustomDrawCell do cxGridLevel:
   If AViewInfo.GridRecord.RecordIndex mod 2 = 0 Then
  ACanvas.Brush.Color := $FFFAFA
   Else
  ACanvas.Brush.Color := $CDC9C9;

   ACanvas.Font.Color := clBlack;


Agora se quer brincar com valores de colunas para coloração.
No mesmo evento para saber o valor de uma celula:

If AViewInfo.GridRecord.DisplayTexts[ gridDbTableViewNOMEDOCAMPO.Index ] = 
'VALOR_A_COMPARAR' THEN
//Faça tal coisa;

Espero ter ajudado.

Atenciosamente, 

Thiago Montezano
Analista de Sistemas
Época Comércio e Distribuição
www.epoca-distribuicao.com.br
Mail.: thi...@epoca-distribuicao.com.br
Tel.: (31) 2128-5042
Cel.: (31) 9151-9105

--- Em delphi-br@yahoogrupos.com.br, Murilo Cunha mcscu...@... 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: [delphi-br] Atualização de versão do aplicati vo

2010-07-06 Por tôpico Gilson
Eduardo,

Provavelmente vc precisará desabilitar o UAC.

Atenciosamente,

Gilson

Em 5 de julho de 2010 23:18, Eduardo Silva dos Santos eduardo@gmail.com
 escreveu:

 Gilson, como você consegue fazer isso? aqui no meu pc, Win7, com o
 executável aberto não é possível renomear.


 Att,
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 9961-7095
 MSN: eduardo@gmail.com
 Site: http://www.drdsistemas.com.br/
 ...


 Em 5 de julho de 2010 23:04, Gilson gilson...@gmail.com escreveu:

 
 
  Uma informação que pode ajudar é a seguinte:
 
  Quando uma aplicação está sendo executada, vc não pode sobrescrever ou
  excluir o executavél, mas pode renomea-lo. Experimente! Esse pode ser um
  caminho.
 
  Gilson
 
  Em 5 de julho de 2010 20:24, Adriano Santos asrsan...@gmail.com
 asrsantos%40gmail.com
  escreveu:
 
   Hummm verdade, nem com o nosso esquema vai funcionar.
  
   Adriano Santos
   http://twitter.com/asrsantos
   Enviado de meu iPhone
  
   Em 05/07/2010, às 17:38, Walter Chagas \(Bol\) wchag...@bol.com.br
 wchagasj%40bol.com.br
  
   escreveu:
  
Aqui na Telemont usa-se muito o WTS nas regionais pra acessar o RM.
  Neste
   caso não tem outro jeito. O pessoal da Rede tem que derrubar todo mundo
  que
   tá no terminal e parar o serviço pra atualizar.
   
[]s
   
   
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
SKYPE: WalterChagasJr
   
- Original Message -
From: Odair
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Monday, July 05, 2010 5:36 PM
Subject: Re: [delphi-br] Atualização de versão do aplicativo
   
Pegando uma carona no assunto:
   
Tenho uma rotina de atualização que funciona muito bem para o sistema
rodando local (cerca de 40 micros) .
O problema é que temos 10 micros acessando o sistema via WTS
 (Terminal
Server) e quando libero alguma atualização, o executavel principal da
aplicação não consegue ser substituido pois sempre ha algum usuario
 com
  o
mesmo em execução no WTS.
   
Alguem tem alguma rotina ou dica para atualização da aplicação em
   servidor
WTS??
   
Grato a todos,
   
Odair
   
- Original Message -
From: Walter Chagas (Bol) wchag...@bol.com.brwchagasj%
 40bol.com.br
  
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Monday, July 05, 2010 9:50 AM
Subject: Re: [delphi-br] Atualização de versão do aplicativo
   
Os que fiz aqui na Telemont funcionam exatamente deste jeito, porém,
  não
precisa renomear o .exe. O lançador fecha o programa e sobrepoe a
 cópia
   sem
problema algum. Eu tenho a versão do sistema atual gravado em uma
  tabela
   e o
proprio programa consulta a tabela pra saber se tem atualização nova
 lá
   no
servidor.
   
[]s
   
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
SKYPE: WalterChagasJr
   
- Original Message -
From: Eny Urias
To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Sent: Sunday, July 04, 2010 10:09 AM
Subject: Res: [delphi-br] Atualização de versão do aplicativo
   
Eu tenho um esquema assim:
   
- Uma pasta no servidor para deixar o .exe atual.
- Um programa que verifica se o .exe do usuário é mais antigo que o
 da
pasta do servidor.
- Renomeio o .exe antigo e copio o novo.
- O atalho do sistema aponta para o .exe desse programa ou seja, ele
 é
executado antes do sistema.
   
Se interessar, te passo os arquivos.
--
Eny Trova Urias
   
Somos o que repetitivamente fazemos, portanto, a excelência não é um
feito, mas um hábito- Aristóteles
   

De: Ari Arantes Filho a...@dd.com.br ari%40dd.com.br
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Domingo, 4 de Julho de 2010 3:01:32
Assunto: [delphi-br] Atualização de versão do aplicativo
   
Pessoal,
   
Como fazer para atualizar automaticamente (de preferência) o
executável do sistema, num ambiente onde o executável (.exe) fica nos
micros dos usuários, principalmente nos notebooks. Pois vários
usuários utilizam através de VPN e fica melhor o acesso com o
executável direto no PC que no servidor de arquivos. Para os usuários
da rede interna sem problemas, pois o .exe fica no servidor de
arquivos.
   
Existe alguma maneira de deixar sempre o .exe atualizado?
   
Obrigado,
   
Ari
   
[As 

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

2010-07-06 Por tôpico Vitor Yahoo
Lembrando que estruturas que trabalham online o tempo inteiro, devem
controlar as transações e conexões com o banco de dados de forma BEM
diferente de estruturas locais.

Talvez vocês estejam querendo resolver um problema que não existe.
Conforme um colega já disse, conecte no banco, faça a operação desejada,
desconecte. Se a operação envolver select, traga os registros em um
TClientDataSet e desconecte. É muito mais fácil do que procurar chifre em
cabeça de cavalo e gastar dinheiro com componente.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Eduardo Silva dos Santos
Enviada em: segunda-feira, 5 de julho de 2010 21:41
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] MySQL server has gone away

Olá Levy, para que não seja exibida a mensagem da desconexão tem que
conficar no Evento OnConnectionLost do TMyConnection:

RetryMode := rmReconnectExecute;

Quando a Dll, não ha necessidade de nenhuma, o mydac conecta diretamente ao
servidor.

quanto a demora para gravação dos dados, não deveria acontecer, tem que ver
mais detalhes.. como a mesta sendo feita.. para determinar a causa.


Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


Em 5 de julho de 2010 20:52, Levy Pereira levypere...@yahoo.com escreveu:



 Eduardo,
 baixei o MyDAC e parece-me que vou ter que investir neste componente. A
 conexão continua sendo perdida mas diferente do Zeos ela é restabelecida,
 vou ver ainda com o tratar a mensagem de erro.

 Ele carrega alguma .dll para não ter a obrigatoriedade de instalar o MySQL
 Client?

 Há demora na gravação dos dados, como não estou acostumado (ainda) com
 MySQL não sei se estou com problema de código ou se é mesmo caracteristica
 da conexão.

 Grato,


 Levy

 
 From: Eduardo Silva dos Santos
eduardo@gmail.comeduardo.drd%40gmail.com
 
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Mon, July 5, 2010 5:57:59 PM
 Subject: Re: [delphi-br] MySQL server has gone away

 Levy, o mysql é exigente com a conexão, qualquer anormalidade e ele
derruba
 a mesma.

 Quanto eu usava zeos eu implementei uma rotina que reconectava
 automaticamente caso a mesma fosse perdida.
 eu não sei se isso foi implementado na versão atual do zeos. Vou tentar
 achar a versão que fiz essa mudança e te passo, assim vc aplica ai..

 Bom, mudando de zeos para MyDAC, não sei se você conhece, nele existe uma
 teconologia que faz o mesmo processo, se a conexão cair, ele reconecta de
 forma transparente.. caso não conheça, veja: www.devart.com/mydac

 Att,
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 9961-7095
 MSN: eduardo@gmail.com eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

 Em 5 de julho de 2010 14:01, Levy Pereira
levypere...@yahoo.comlevypereira%40yahoo.com
 escreveu:

 
 
  Prezados amigos,
 
  como um (por enquanto) iniciante com o MySQL estou apanhando, estou
 usando
  o ZEOS para conexão.
 
  A conexão é instável. Muitas vezes procede normalmente as consultas,
  atualizações ou inserções, em outras o fatal erro acontece e somente
 volta a
  conectar depois de sair e entrar no aplicativo.
 
  Este erro acontece algumas vezes quando o aplicativo fica ativo sem
  atividade.
 
  Antes de começar qualquer procedimento checo se há conexão:
 
  if BD.Conexao.Connected = false then BD.Conexao.Reconnect;
 
  Depois o processo:
 
   BD.Query01.Close;
   BD.Query01.SQL.Clear;
   BD.Query01.SQL.Add('start transaction');
   BD.Query01.ExecSQL;
   BD.Query01.Close;
   BD.Query01.SQL.Clear;
   BD.Query01.SQL.Add(
 'insert into fornecedores ( cnpj, razaosocial, telefone,
 contato,'+
 'email ) values ( '+A01+','+A02+','+A03+','+A04+','+A05+')');
   BD.Query01.ExecSQL;
   BD.Query01.SQL.Clear;
   MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação',
 64
  );
   passou := True;
   BD.Query01.SQL.Add('commit');
   BD.Query01.ExecSQL;
   BD.Query01.SQL.Clear;
   BD.01.Refresh;
 
  Grato pela ajuda!
 
  Levy
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

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

 


 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  



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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM