RES: [delphi-br] Re: Dúvida Sobre Package

2007-10-15 Por tôpico Wenceslau Miranda
Desculpe a demora em responder, mas consegui resolver o problema, criando
uma classe para conexão, dispensando assim o datamódulo, mas desde já
obrigado a todos

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Josir Gomes
Enviada em: terça-feira, 9 de outubro de 2007 18:50
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Dúvida Sobre Package

 

Olá wenceslau,

a Package onde está o Datamodule deve ser Required para a package
chamadora. Na package chamadora, vc tem que declarar o datamodule no uses.

Em um form normal, vc consegue chamar as packages dinamicamente
(usando RegisterClass e LoadPackage) mas para datamodules, a coisa não
funciona, ou pelo menos, eu nos meus 10 anos de Delphi, nunca consegui
fazer funcionar.

Por isso, eu não utilizo Datamodules... Datamodule is evil!

Dá uma analisada na sua modelagem, se vc está precisando compartilhar
os datasets, não seria interessante criar classes DAO ao invés de
criar datamodules ? Vai por mim, dá mais trabalho no início mas fica
mais produtivo a longo prazo.

Saudações,
Josir.

--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
, Wenceslau Miranda
[EMAIL PROTECTED] escreveu

 Boa tarde a todos da lista
 
 
 
 Estou começando a trabalhar com pacotes agora e tenho a seguinte dúvida:
 
 
 
 Tenho um executável que chama um pacote e este pacote chama outro, o
 primeiro pacote cotem somente o datamódulo com seus componentes de
conexão
 devidamente configurados, este chama o segundo pacote. Eis a minha
dúvida,
 como faço para que o segundo pacote consiga enxergar a conexão
existente
 no primeiro pacote?
 
 
 
 Desde já agradeço a todos,
 
 
 
 
 
 Wenceslau Miranda

 



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



RES: [delphi-br] Deletar linhas

2007-09-20 Por tôpico Wenceslau Miranda
Experimente tirar a linha “Dmodule.DsTotLotesPAT.Next;”

 

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Adolfo Stotz
Enviada em: quinta-feira, 20 de setembro de 2007 16:44
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Deletar linhas

 

Usando o codigo abaixo, a cada execução, sao apagadas as linhas impares, mas
as linhas pares nao sao deletadas. 
Porque ? Como fazer para acertar ?
Grato
--
begin
with Dmodule.DsTotLotesPAT do
begin
Dmodule.DsTotLotesPAT.Close;
Dmodule.DsTotLotesPAT.Open;
Dmodule.DsTotLotesPAT.First;
while not Dmodule.DsTotLotesPAT.Eof do
begin
Dmodule.DsTotLotesPAT.Delete;
Dmodule.DsTotLotesPAT.Next;
end;
end;
Dmodule.DsTotLotesPAT.Close;
--

[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] Urgente(Preview)Rave

2005-06-01 Por tôpico Wenceslau Miranda
Olha, aqui na empresa passamos por algo semelhante essa semana. A impressora 
utilizada no cliete era uma Epson LX 300+, para conseguir funcionar tivemos que 
colocar o driver da LX 300 ou a Epson 810, isso utilizando windows XP
 
  - Original Message - 
  From: Roberto Wazen 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, May 31, 2005 7:15 PM
  Subject: Re: [delphi-br] Urgente(Preview)Rave


  Com o Win2K e o XP fica difícil, tanto assim que no meu programa de cupom 
fiscal, uso no caixa e para impressão de cheques o WIN98, principalmente com as 
impressoras com  drivers  antigos  
- Original Message - 
From: Wilson Valdevite 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, May 31, 2005 12:59 PM
Subject: Re: [delphi-br] Urgente(Preview)Rave


tbem tenho problema com essa impressora no QReport, nenhum relatorio 
personalizado que monto consegue imprimir nela e já me disseram que é problema 
no driver dela já que em uma jato de tinta funciona normalmente.

Se tiver alguma solução, por favor, me avise...
  - Original Message - 
  From: Hudson 
  To: delphi-br@yahoogrupos.com.br 
  Cc: [EMAIL PROTECTED] 
  Sent: Tuesday, May 31, 2005 12:29 AM
  Subject: [delphi-br] Urgente(Preview)Rave


  Estou levando um coro...

  Turmaestou fazendo um relatorio (Orçamento de protudos), no Rave 
report ate ai OKestou tbm cofigurando a pagina PageHeight = 6,000
  PageWidth = 8,000
  PaperSize = Custom.ate ai ok...

  agora começo o problema...
  quando execulto (F9) no rave o preview mostra a pagina como A4e 
quando mando imprimir, a folha ñ para na metade conforme a configuração acima 
citado.

  Já tente nas propriedade da impressora, mas ñ deu certo...
  estou usando uma Epson LX 300 ..

  O q faço

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



  -- 
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]





--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 
Serviço do Yahoo!. 





--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.322 / Virus Database: 267.3.2 - Release Date: 31/05/2005


[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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




  --
Links do Yahoo! Grupos

  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 
Serviço do Yahoo!. 




  --


No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 267.3.0 - Release Date: 30/05/2005


  [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:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]




--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:

Re: RES: [delphi-br] Aproveitar mesmo formulário de consulta

2005-04-18 Por tôpico Wenceslau Miranda

Olha eu faço da seguinte forma:
 
Por exemplo tenho um formulário de OS e preciso pegar o código do cliente para 
aquela os. o meu código fica assim:

  Application.CreateForm(TFrmPesqCliCont,FrmPesqCliCont);
  FrmPesqCliCont.Showmodal;
  if FrmPesqCliCont.ModalResult = mrOK then  
  begin
DBEdit4.SetFocus;
DBEdit4.Text := FrmPesqCliCont.VAROS;
DBEdit5.SetFocus;
  end;
  FreeAndNil(FrmPesqCliCont);
 
Onde no formulário FrmPesqCliCont tenho um botão que está setado o modalresult 
como mrOK e ao clicar nesse botão gravo em uma variável VAROS, o código do 
clientes.
No outro quando fecho o form de pesquisa, em meu form de OS antes de dar um 
freeandnil eu pego o conteúdo da variável, sendo assim posso usar o mesmo form 
de pesquisa para diversas situações.
 
Se eu entendi bem em seu caso você poderá chamar quantas vezes quiser esse form 
de pesquisa e  criando o form e destruindo logo após a utilização.
 

Cícero [EMAIL PROTECTED] wrote:
Eu costumo colocar um edit  chave no formulario principal. O usuario digita
o codigo, eu vejo se o registro existe. Se existe eu seto alteração
(consulta por tabela) e caso contrario eu seto inclusão.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de giuvany
Enviada em: sexta-feira, 15 de abril de 2005 15:34
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Aproveitar mesmo formulário de consulta



Boa tarde cristiano
Nos passe um pedaço do código_fonte
Ou do botão pra que possamos saber como vc está fazendo,
Pois a sua questão está um pouco confusa!

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Cristiano Rodrigo Gomes
Enviada em: sexta-feira, 15 de abril de 2005 15:24
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Aproveitar mesmo formulário de consulta


Olá pessoal, é o seguinte, tenho em um cadastro de produtos a necessidade de

cadastrar mais de um fornecedor, na verdade 3.

O que eu gostaria de fazer é o seguinte, criei um formulário de consulta
onde o usuário localiza o primeiro fornecedor.

Gostaria de aproveitar este mesmo formulário para localizar os outros 2
fornecedores, para não precisar cirar 3 forms de consultas, ou seja, qdo
clicar no botão localizar do 2o.  fornecedor, ele crie uma variável ou algo
parecido e que no UNIT do botão OK do formulário de consulta ele saiba em
qual botão eu cliquei e assim transporte o código para o fornecedor onde
cliquei com o botão

Espero ajuda

Cristiano.

_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



--
 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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










--
 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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
 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:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
 

-
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:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 


__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Mestre/Detalhe - ClientDataset

2005-04-04 Por tôpico Wenceslau Miranda

Amigos da Lista,

Estou tentando fazer um mestre/detalhe em dois níveis e não estou conseguindo.
Estou usando Dbexpress com ClientDataset, Um mestre/detalhe simples eu consegui 
fazer, mas esto precisando fazer mais um nível nele.
Ex.
cdsClientes
cdsModelos
cdsComponentes

 

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Erro ReconcileError

2005-03-17 Por tôpico Wenceslau Miranda

Olá Pessoal, 

Estou tendo dificuldades para tratar acesso concorrente de dados (2 usuários 
alterando o mesmo registro).

Estou utilizando D7+DBX+Firebird, e utilizo o conjunto 
SQLDataSet+DataSetProvider+ClientDataSet.
O problema acontece se dois usuários estão visualizando um mesmo registro (pois 
os registros estão em cache devido o uso do CLIENTDATASET) e um usuário altera 
o registro e dá um ApplyUpdate e depois o outro usuário altera o registro e ao 
tentar dar o applyupdates está me retornando o seguinte erro: 
RECORD NOT FOUND OR CHANGED BY ANOTHER USER

Então o registro não é alterado.

Já tentei utilizar o ReconcileError mas não obtive sucesso. O problema é que 
ele não gera a exceção do bloco TRY EXCEPT END, ele dá o commit normalmente 
mesmo com a mensagem, mas não grava o registro.

Por favor galera me ajudem que já não sei mais oq fazer.


-
Yahoo! Mail - Com 250MB de espaço.  Abra sua conta!

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Erro ReconcileError

2005-03-17 Por tôpico Wenceslau Miranda

Olha, pelo que eu aindei lendo sobre o dialogo de reconciliação de erro, ele 
deveria abrir informando que houve uma alteração no registro que você tenta 
alterar e pergunta o que você gostaria de faser, cancelar, aplicar a sua 
alteração ou pular aquele procedimento. Isso até que acontece também só que se 
eu mando aplicar a alteração nada acontece tb

 
  - Original Message - 
  From: Misako Kadowaki 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 17, 2005 5:43 PM
  Subject: Re: [delphi-br] Erro ReconcileError


  Oi Wenceslau,

  no meu caso, está acontecendo o contrário... ambos podem alterar o mesmo 
  registro que não dá erro nenhum... tipo, o usuário 1 põe o registro X em 
  edição, daí o usuário 2 faz o mesmo com o mesmo registro... daí, o 
  usuário 2 manda gravar a alteração... em seguida, o usuário 1, que 
  iniciou a edição primeiro, manda gravar também... em ambas as estações, 
  nenhum aviso e nenhuma mensagem de erro... esse é o comportamento esperado ?

  Wenceslau Miranda wrote:

  Olá Pessoal, 
  
  Estou tendo dificuldades para tratar acesso concorrente de dados (2 usuários 
alterando o mesmo registro).
  
  Estou utilizando D7+DBX+Firebird, e utilizo o conjunto 
SQLDataSet+DataSetProvider+ClientDataSet.
  O problema acontece se dois usuários estão visualizando um mesmo registro 
(pois os registros estão em cache devido o uso do CLIENTDATASET) e um usuário 
altera o registro e dá um ApplyUpdate e depois o outro usuário altera o 
registro e ao tentar dar o applyupdates está me retornando o seguinte erro: 
  RECORD NOT FOUND OR CHANGED BY ANOTHER USER
  
  Então o registro não é alterado.
  
  Já tentei utilizar o ReconcileError mas não obtive sucesso. O problema é que 
ele não gera a exceção do bloco TRY EXCEPT END, ele dá o commit normalmente 
mesmo com a mensagem, mas não grava o registro.
  
  Por favor galera me ajudem que já não sei mais oq fazer.
  
  
  -
  Yahoo! Mail - Com 250MB de espaço.  Abra sua conta!
  
  [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:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: Re: [delphi-br] Erro ReconcileError

2005-03-17 Por tôpico Wenceslau Miranda

Olá Thiago,

Fiz o que você me recomendou e estou tendo o seguinte problema, vou lhe contar 
o que fiz passo a passo e o que aconteceu, talvez você possa me ajudar:

1 - Abri duas instâncias de meu programa
2 - Coloquei ambas em modo de alteração no mesmo registro
3 - Fiz alterações diferente no nome do cliente em cada instância
4 - Confirmei a primeira e tudo ocorreu bem
5 - Confirmei a 2ª e me foi aberto a tela de reconciliação de erro;
6 - Marquei a opção de correção no Form de reconciliação, ou sejateoricamente 
deveria assumir esse valor no banoc de dados
7 - Não deu erro nenhum, mas ao atualizar o banco (cds.open / close), somente a 
primeira atualização foi efetuada
8 - Fechei uma das instãncias (a primeira a dar o update) e tentei alterar 
novamente (lembre que agora não existe concorrencia e o cds está aberto)
9 - Novamente me abre o Form de conciliação e na mensagem de erro vem o 
seguinte: Table unknown
clientes
At line 1, column 20.

Nem sei mais o que fazer, mesmo escolhendo a ação a executar como skip ou 
correct me parece que sempre ocorre a cancel.

Se alguém teve problema semelhante ou tenha um exemplo funcionando com o 
ReconcilieError por favor me ajude.


 
  - Original Message - 
  From: Francisco Thiago 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 17, 2005 5:39 PM
  Subject: [Norton AntiSpam] Re: [delphi-br] Erro ReconcileError


  Primeiro: Com o ClientDataSet, você não controla a transação... Quem 
  controla é ele mesmo. Se você está fazendo o controle transacional, está 
  fazendo atoa.

  Segundo: Verifique como está a propriedade ProviderFlags dos campos do teu 
  SQLDataSet. Verifique se a chave primária está marcada pfInKey. Se não 
  estiver, marque. Para gerar os SQL de atualizações, o DataSetProvider se 
  basea na configuração desta propriedade... Logo, pfInWhere, significa que 
  aquele campo entrará no Where do update, por exemplo, e assim por diante.

  Terceiro: Adicione um formulário ReconcileError na sua aplicação e faça o 
  tratamento deste evento. Esta é a única forma de saber se ouve algum erro. 
  Outra forma alternativa, seria comparar o valor retornado pela 
  ApplyUpdates.. se for diferente de zero, é que houve algum erro (acho que é 
  isso mesmo :D)

  Testa e depois fala para gente como ficou okay?

  Boa sorte

  Francisco Thiago de Almeida
  EnterPlug Informática
  Divisão: Desenvolvimento e Banco de dados
  MSN: [EMAIL PROTECTED]
  Skype: enterplug_thiago

  - Original Message - 
  From: Wenceslau Miranda [EMAIL PROTECTED]
  To: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]; 
  [EMAIL PROTECTED]
  Sent: Thursday, March 17, 2005 5:28 PM
  Subject: [delphi-br] Erro ReconcileError



  Olá Pessoal,

  Estou tendo dificuldades para tratar acesso concorrente de dados (2 usuários 
  alterando o mesmo registro).

  Estou utilizando D7+DBX+Firebird, e utilizo o conjunto 
  SQLDataSet+DataSetProvider+ClientDataSet.
  O problema acontece se dois usuários estão visualizando um mesmo registro 
  (pois os registros estão em cache devido o uso do CLIENTDATASET) e um 
  usuário altera o registro e dá um ApplyUpdate e depois o outro usuário 
  altera o registro e ao tentar dar o applyupdates está me retornando o 
  seguinte erro:
  RECORD NOT FOUND OR CHANGED BY ANOTHER USER

  Então o registro não é alterado.

  Já tentei utilizar o ReconcileError mas não obtive sucesso. O problema é que 
  ele não gera a exceção do bloco TRY EXCEPT END, ele dá o commit normalmente 
  mesmo com a mensagem, mas não grava o registro.

  Por favor galera me ajudem que já não sei mais oq fazer.


  -
  Yahoo! Mail - Com 250MB de espaço.  Abra sua conta!

  [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:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

  Links do Yahoo! Grupos













  -- 
   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:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens

[delphi-br] Criptografai de senha

2005-03-15 Por tôpico Wenceslau Miranda

Amigos da lista,

Mais uam vez venho recorrer a vocês.
Estou usando o Firebir como meu SGBD só qeu como todos sabem a seguraça do 
mesmo em relação à senha é muito pequena, pois qualquer um poderia copiar a 
base de dados e abrir em outro computador com a senha padrão do banco. Sendo 
assim gostaria pelo menos de criptografar a senha dos usuários do sistema em 
minha base de dados.
Alguem poderia me ajudar a gravar e ler no banco as senhas criptografadas. 
Alguém teria uma exemplo de como isso é feito.
Desde já agradeço.


 

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Arquivo texto

2005-02-23 Por tôpico Wenceslau Miranda

Amigos do grupo

Sou iniciante em Delphi e mais uma vez venho contar com a ajuda de vocês. Estou 
precisando gravar todo o conteúdo de uma tabela em um arquivo texto, mas 
precisaria que esse aqruivo saisse tabulado.
Estou usando DbExpress com sqlconection, datasetprovider e clientedataset.
Essa seria a estrutura de minha tabela

ACOMP_CLI 

 CODIGOINTEGER NOT NULL,
 DATADATE,
 CLIENTE   INTEGER,
 ASSUNTO VARCHAR(50),
 DESCRICAO  VARCHAR(500),
 OPERADOR  INTEGER

Alguém poderia me ajudar?

 

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: Re: [delphi-br] Firebir + MySQL+PostegreSQL

2005-01-31 Por tôpico Wenceslau Miranda

Olha só, na empresa que eu trabalho estamos utilizando o Firebird como opção de 
banco de dados gratuito e estamos enfrentando grandes problemas, pois o mesmo 
funcionando remotamente em um link com 2 megas está muito lento, sem falar nas 
constantes travas que o banco dá paralizando todo o serviço da empresa, nessa 
emrpesa estão funcionando mais de 20 estações sendo que 7 são locais e outras 
15 remotas. 
Estamos fazendo testes ultimamente com o MySQL e esse apresentou uma 
performance (acesso remoto) muito superior ao Firebird, o que nos impede de 
usá-lo é ainda não aceitar Store Procedures, e Views.
Se tiver opção procure usar bancos pagos Recomendo Oracle e SQL Server, que com 
certeza você não irá se arrepender

 
  - Original Message - 
  From: Bruno Lichot - Micrologos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, January 31, 2005 8:24 PM
  Subject: [Norton AntiSpam] Re: [delphi-br] Firebir + MySQL+PostegreSQL


  Com certeza o FireBird te atenderá plenamentea outra opção seria o
  Oracle...
  mas naum vejo necessidade

  []´s
  Bruno Lichot
  Gerente de Novas Tecnologias - Micrologos
  Equipe ClubeDelphi.NET
  DevMedia Group

  www.micrologos.com.br - www.clubedelphi.net -
  www.delphirio.assespro-rj.org.br
  www.sqlmagazine.com.br - www.neoficio.com.br/msdn - www.javamagazine.com.br
  www.portalwebmobile.com.br

  - Original Message - 
  From: [EMAIL PROTECTED]
  To: delphi-br@yahoogrupos.com.br
  Sent: Monday, January 31, 2005 8:54 PM
  Subject: [delphi-br] Firebir + MySQL+PostegreSQL



  Olá Pessoal,



  Tô precisando desenvolver um sistema que vai receber mais de 5 milhões de
  registros e mais de 200 estações manipulando isso em várias Cidades, qual
  desses banco é o mais indicado pra esse tipo de aplicação ?

  Alguém pode me dar uma luz ?








  ---
  avast! Antivirus: Outbound message clean.
  Virus Database (VPS): 0505-0, 31/01/2005
  Tested on: 31/1/2005 19:54:11
  avast! - copyright (c) 1988-2004 ALWIL Software.
  http://www.avast.com




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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

  Links do Yahoo! Grupos












  -- 
   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:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Transação

2005-01-28 Por tôpico Wenceslau Miranda

   Salve amigos do grupo,
 
   Mais uma vez venho tentar aprender um pouco com vocês.
   Estou usando Depressa com Firebird ( SQLConection  SQLDataset  
DataSetProvider  ClientDataset).
   Já procurei algumas informações sobre o controle transacional e pude ver que 
ele será muito útil no sisteminha que estou fazendo para a empresa. Em uma 
determinada parte precisarei gravar Dados de um cliente que serão disposto em 
tabelas da seguinte forma: Clientes, Base_Instalada, Equipamentos. 1 Cliente 
tem 1 Base-Instalada e esta tem N equipamentos. Preciso fazer um controle 
transacional para que ao gravar os dados não se perca nada e se ocorrer erro 
aconteça um rollback.  Como faço para fazer essa gravação sendo que tenho que 
gravar em minha tabela Base_Instalada o Código da base, o Código do cliente, e 
os diversos equipamentos. Sei que devo abrir uma transação antes e fechá-la 
depois, mas como fazer? Como eu devo proceder depois da transação aberta? Dou 
uma applyupdates na tabela de base instalada e ela gravará todos os 
equipamentos juntamente com o cliente? Alguma alma caridoso poderia me instruir 
ou me envia um exemplo de como isso é feito? Sei que para vocês isso é fácil,
 mas sou iniciante e pra mim está um pouco difícil fazer.




-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! 
agora.

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Rave Reports - Agrupamento

2005-01-26 Por tôpico Wenceslau Miranda

Amigos da lista!!!
 
Estou desenvolvendo um sisteminha para minha empresa que fará o controle das 
OS's e fará também o acompanhamento dos Clientes da empresa. 
Comecei a usar o Rave Reports e tive uma grande dúvida. Em minha query fiz um 
select q está unindo 3 tabelas.
 
SELECT C.CODIGO, C.NOME, C.CGC_CPF, C.ENDERECO, C.NUM, C.COMPLEMENTO, C.BAIRRO,
   C.MUNICIPIO, C.UF, C.CEP, C.TELEFONE,
   O.NOME as RESPONSAVEL,
   A.CODIGO as ACOMPANHAMENTO, A.DATA, A.ASSUNTO, A.DESCRICAO, A.CLIENTE
FROM clientes C, operador O, acomp_cli A
WHERE C.codigo = A.cliente
AND   A.operador = O.codigo
 
Estou querendo fazer o seguinte: preciso agrupar os acompanhamentos dos 
clientes pelo nome, seria algo assim:
 
CLIENTE 1
   ACOMPANHAMENTO 1
   ACOMPANHAMENTO 2
  ...
CLIENTE 2
   ACOMPANHAMENTO 1
   ACOMPANHAMENTO 2
  ...

 
Sei que deve ser algo simples mais não estou conseguindo fazer. Já tentei usar 
o Group Header e Detail, talvez eu tenho feito alguma ligação errada entre as 
DataBand's.
Alguém teria um esquema ou exemplo dessa ligação para me passar. Ficaria muito 
grato.

__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] OnReconcilieError

2005-01-02 Por tôpico Wenceslau Miranda

A todos os amigos da lista um Feliz 2005!!!
 
Para começar o ano de 2005 com pé direito  (hehehe) já vou trazendo um 
probleminha que estou enfrentando ao usar dbexpress com cliet dataste.
 
Bom! Como estou usando tabela em bufar todas as ações dessa tabela ficam em 
bufar inseret,dateedeleiteete), ao dar uApalpastete ao acontecer uDesbastarãoor 
em tempo de execução eu consigo identificar esse erro, mas depois de compilado 
o problema Desbastarãoor não acontece. Tentedeleitarar um registro dtabelala 
clientes (esse cliente é pai de outros registros em outras tabelas) e como 
estou com os registros em bufar consigo apagar normalmente (sem que ocorra 
erros, mesmo existindo integridade referencial entre os registros), mas ao 
reabrir o sistema o registro está lá. Consegui em um livro que tenho como usar 
opizzariad dodespii e criar um formulário de reconciliação doserrosr eu o fiz, 
sempre que tento dar um date ou modificar esse registro o meu evento 
OReconciliaremoentra em ação, mas o mesmo não ocorre quanto ao comando deleite.
Alguém já passou por esse problema? Podem me ajudar?
 
Estou usando frieira, sqlconecction  Saldaste  DataSetprovider  Contataste.


-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! 
agora.

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Try Except Dbexpress

2004-12-23 Por tôpico Wenceslau Miranda

Olá amigos da lista!
Estou com um problema que é o seguinte:
estou tentando usa a seguinte rotina para a exclusão de meus registros:
 
begin
  if MessageDlg('Deseja realmente excluir o'+#13+
'Cliente: '+DBEdit3.Text,
mtConfirmation,[mbYes, mbNo],0) = mrYes then
 begin
   DmOS.CliDsCli.Delete;
   DmOS.CliDsCli.ApplyUpdates(-1);
   ShowMessage('Cliente excluído;');
 end
  else
  begin
 DmOS.CliDsCli.Cancel;
  end;
end;
 
Até aí tudo bem!
Mas se o meu cliente é chave estrangeira em uma tabela eu não consigo excluílo 
devido à integridade referencial.
Vamos ao problema.
Em tempo de execução (assim que compilo o programa) se tento excluir o referido 
cliente me mostar o EDatabaseError OK! Tratei o erro com om Try e um Except, 
daí o problema. Quando vou excluir esse cliente simplesmente não valida o try 
except exclui o registro e me apresenta a mensagem contida no ShowMessage: 
Cliente excluído. Navego pelos registros dos clientes e esse cliente não existe 
(bom nem deveria ter excluído mas tudo bem), saio e entro no programa novamente 
e o registro que supostamente fora excluído está lá. 
Alguém sabe o que está acontecendo? Podem me ajudar
Uso componentes de conexão DBexpress  na seguinte ordem SQLConnection  
SQLDataSet  DataSetProvider  ClientDataset  DataSource.



-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! 
agora.

[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:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
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:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html