[delphi-br] Re: Persistencia OR no Delphi

2008-09-23 Por tôpico Airton
--- Em delphi-br@yahoogrupos.com.br, Joao Morais [EMAIL PROTECTED] escreveu

 Clayton Bonelli wrote:
  Pessoal, o que voces estão usando para persistencia no delphi com
mapeamento
  Objeto-Relacional ?
 
 http://br.pressobjects.org
 
 Para win32, dos que eu me lembro ainda tem InstantObjects, tiOPF, 
 Jazz-SDK, Infra e o falecido Bold, e para .net tem ECO e Hibernate.
 
 Joao Morais


Se os feras da persistencia no Brasil, tais como o Jazz-SDK,
PressObjects e Infra trabalhassem num unico projeto em conjunto, o
Brasil teria um dos melhores projetos do mundo.




Re: RES: [delphi-br] componete

2008-09-23 Por tôpico Edilson Hashida
Boa tarde;

Acho que o colega tá querendo implantar no Delphi, o que se encontra no 
link abaixo:

http://www.online-tech-tips.com/free-software-downloads/quickly-launch-applications-in-windows-with-rocketdock/pt/

Em tempo: se for isso, sugiro ao colega explicar o que pretente, até 
mesmo colocar um exemplo em sua solicitação - a minha bola de cristal 
que comprei na China foi apreendida pela Receita Federal - estão 
alegando que a nota de compra foi subfaturado 

SDS

Edilson

Juliano Silva - Yahoo escreveu:

 Donde

 De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br] Em
 nome de Rubem Nascimento da Rocha
 Enviada em: segunda-feira, 22 de setembro de 2008 17:01
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: RE: [delphi-br] componete
 Prioridade: Alta

 Cuma?

 
 To: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
 From: [EMAIL PROTECTED] mailto:pontoltda%40ig.com.br 
 mailto:pontoltda%40ig.com.br
 Date: Mon, 22 Sep 2008 16:56:06 -0300
 Subject: [delphi-br] componete

 componente como rocketdok do xp para delphi.

 __
 Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
 Messenger! É GRÁTIS!
 http://www.msn.com.br/emoticonpack http://www.msn.com.br/emoticonpack

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

  


___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 



Res: [delphi-br] Re: Acessar campo num tbl

2008-09-23 Por tôpico marcio
como assim instanciar ??
se eu coloka assim:

Dm_Base.Tb_saidaQauntidae.AsInteger * 
(Dm_Base.Tb_Produto.SieldByName('ValorTotal').AsFloat := nltot2;

Será que vai fik d boa?


grato
--- Em delphi-br@yahoogrupos.com.br, Marcio [EMAIL PROTECTED] 
escreveu

 Márcio, voce instanciou os campos da tabela 
 
 
 Márcio C. Tenreiro 
  
 ---Mensagem original---
  
 De: marcio
 Data: 09/22/08 16:37:15
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Re: Acessar campo num tbl
  
 alguem pod resonder ? :)
 
 --- Em delphi-br@yahoogrupos.com.br, marcio fernando_vip@ 
 escreveu
 
  estou tentando acessat um campo chamado quantidade numa tbl para
  retornar o valor num edit e ta retornando o seguinte erro:
  [Error] UCadVendas.pas(60): Undeclared identifier: 
 'Tb_SaidaValorTotal'
  o codigo da unit é:
  unit UCadVendas;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, 
 Controls,
  Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
  
  type
  TFrm_Vendas = class(TForm)
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  DBLookupComboBox1: TDBLookupComboBox;
  DBLookupComboBox2: TDBLookupComboBox;
  DBText1: TDBText;
  BitBtn1: TBitBtn;
  BitBtn2: TBitBtn;
  BitBtn3: TBitBtn;
  DBEdit1: TDBEdit;
  DBEdit2: TDBEdit;
  Edit1: TEdit;
  procedure FormShow(Sender: TObject);
  procedure BitBtn1Click(Sender: TObject);
  procedure BitBtn2Click(Sender: TObject);
  procedure BitBtn3Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  
  var
  Frm_Vendas: TFrm_Vendas;
  
  implementation
  
  uses UDados;
  
  {$R *.dfm}
  
  procedure TFrm_Vendas.FormShow(Sender: TObject);
  begin
  Dm_Base.Tb_Saida.Open;
  Dm_Base.Tb_MotivoSaida.Open;
  Dm_Base.Tb_Produtos.Open;
  Dm_Base.Tb_Saida.Append;
  Edit1.Text := FormatFloat('00.00', 0.0);
  DbLookupComboBox1.SetFocus;
  end;
  
  procedure TFrm_Vendas.BitBtn1Click(Sender: TObject);
  var
  vltot, vltot2 : real;
  begin
  //vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
  Dm_Base.Tb_ProdutosValorVenda);
  Dm_Base.Tb_SaidaValorTotal := nltot2;
  vltot := 0;
  Edit1.Text := formatfloat('00,00', vltot);
  Dm_Base.Tb_Saida.Appdend;
  DBLookUpComboBox1.SetFocus; 
  end;
  
  procedure TFrm_Vendas.BitBtn2Click(Sender: TObject);
  begin
  Dm_Base.Tb_Saida.Delete;
  end;
  
  procedure TFrm_Vendas.BitBtn3Click(Sender: TObject);
  begin
  Close;
  end;
  
  end.
  
  Como posso resolver ?
 
 
 
  
  
 
 [As partes desta mensagem que não continham texto foram removidas]






RES: [delphi-br] Mudar posição de registros em DBG rid

2008-09-23 Por tôpico Ray Costa
Não entendi ao certo, mas talvez vc possa usar a função rand do delphi que
cria números aleatorios

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Luiz Carlos
Enviada em: segunda-feira, 22 de setembro de 2008 21:51
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Mudar posição de registros em DBGrid

 

Olá a todos,

Estou com o seguinte problema; tenho uma sequencia de 5 registros e
gostaria de mudar a ordem deles, podendo escolher em que posição
inseri-los, por exemplo:
modo original:
1, 2, 3, 4, 5
gostaria de poder muda-los de posição como eu bem entender:
1,3,5,2,4

alguma idéia

 



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



Re: [delphi-br] Re: Persistencia OR no Delphi

2008-09-23 Por tôpico Fellipe Henrique
Concordo, esse é o lado negro da força rsrsrss

Todo projeto Free, Open, tende a ter milhares de ramificações, o que por sua
vez, acaba atrapalhando ao invés de ajudar... mas como cada projeto é uma
cabeça, o difícil é integrar as mentes do projeto..

[]s

2008/9/22 Airton [EMAIL PROTECTED]

   --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 Joao Morais [EMAIL PROTECTED] escreveu

 
  Clayton Bonelli wrote:
   Pessoal, o que voces estão usando para persistencia no delphi com
 mapeamento
   Objeto-Relacional ?
 
  http://br.pressobjects.org
 
  Para win32, dos que eu me lembro ainda tem InstantObjects, tiOPF,
  Jazz-SDK, Infra e o falecido Bold, e para .net tem ECO e Hibernate.
 
  Joao Morais
 

 Se os feras da persistencia no Brasil, tais como o Jazz-SDK,
 PressObjects e Infra trabalhassem num unico projeto em conjunto, o
 Brasil teria um dos melhores projetos do mundo.

  




-- 
_
T.·.F.·.A.·.
Fellipe Henrique

---
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
###


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



Re: [delphi-br] Pegar um pedaço de um arquivo stream em um servidor FTP

2008-09-23 Por tôpico Fabio Thomaz
Valeu André, vou dar uma pesquisada, creio que isto já vai me ajudar.


2008/9/22 Andre Luis [EMAIL PROTECTED]

   Procura na clubedelphi que tem um artigo sobre isso, como atualizar um
 executável pegando somente a parte que foi alterada. Teve inclusive uma
 palestra na Borcon do ano passado sobre isso.
 __
 Faça ligações para outros computadores com o novo Yahoo! Messenger
 http://br.beta.messenger.yahoo.com/
  




-- 
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Fone: (27) 3727-1127
Celular: (27) 9947-0459
Msn: [EMAIL PROTECTED]


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



Re: [delphi-br] Pegar um pedaço de um arquivo stream em um servidor FTP

2008-09-23 Por tôpico André Yahoo
Vou verificar em casa qual revista saiu esse artigo, não lembro bem se foi na 
clubedelphi ou na activedelphi.
Mas vou tentar achar e te passar o exemplo que tem . Também estou precisando 
usar isso nos projetos da empresa aqui.

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



[delphi-br] Fast Report

2008-09-23 Por tôpico valdir
Olá,

Utilizo o Fortes Report, D7 e FB 2.0 e estou pensando em mudar para Fast 
Report. Meu sistema tem atualmente 96 relatórios. Vai ser um trabalho e tanto 
essa migração, mas não vejo outra saída.
Antes de fazê-lo, gostaria da opinião dos colegas que já utilizam esse 
componente. 
Baixei a instalação e estou fazendo alguns testes e lendo sobre o mesmo. Em 
princípio, me parece muito bom, mas tenho dúvidas. Se puderes me ajudar a 
esclarecê-las...

1) Como tenho 96 relatórios, quando todos estiverem com Fast Report, ao 
distribuir minha aplicação, terei que mandar junto 96 arquivos .fr3 relativos a 
cada layout de cada relatório?

2) Será que a versão FastReport 4 Basic Edition vai me atender? Quais as 
principais limitações dessa versão? No site não conseguir ver isso.

3) O Fortes tem bastante limitações no salvamento de arquivos, principalmente 
para .xls. Essa parte funciona bem no Fast?

4) Qualquer outra dica ou dificuldade que você tenha enfrentado com esse 
componente (Fast) será muito bem vinda.

Obrigado

Valdir Dill





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



[delphi-br] Layout Retorno BB

2008-09-23 Por tôpico Adriano O. Cipriano
Olá pessoal.. alguém tem o layout de arquivo de retorno pra
pagamento de fornecedor do Banco do Brasil ?
Já procurei na net e só achei de cobrança.. e é diferente..

Valeu

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



Re: [delphi-br] Fast Report

2008-09-23 Por tôpico Fellipe Henrique
 Olá,
 Utilizo o Fortes Report, D7 e FB 2.0 e estou pensando em mudar para Fast
Report. Meu sistema tem atualmente 96 relatórios. Vai 
 ser um trabalho e tanto essa migração, mas não vejo outra saída.
 Antes de fazê-lo, gostaria da opinião dos colegas que já utilizam esse
componente.
 Baixei a instalação e estou fazendo alguns testes e lendo sobre o mesmo.
Em princípio, me parece muito bom, mas tenho dúvidas.
 Se puderes me ajudar a esclarecê-las...

Bom, eu utilizo ele, não tenho o que reclamar, realmente ele é Fast...

 1) Como tenho 96 relatórios, quando todos estiverem com Fast Report, ao
distribuir minha aplicação, terei que mandar junto 96
 arquivos .fr3 relativos a cada layout de cada relatório?

Bom isso depende, é uma das formas de se usar o FR, mas você pode deixar o
relatório embutido no proprio componente, que por padrão já é assim.

 2) Será que a versão FastReport 4 Basic Edition vai me atender? Quais
as principais limitações dessa versão? No site não
 conseguir ver isso.

Isso amigo, só você mesmo pode dizer, também não sei lhe dizer as
limitações, mas mande um email para eles, e pergunte, talvez nao te atenda,
ou talvez atenda...

 3) O Fortes tem bastante limitações no salvamento de arquivos,
principalmente para .xls. Essa parte funciona bem no Fast?

Bom, com o Fast, você pode salvar em: pdf, xml, csv, bmp, jpeg, xsl e etc...
tem plugin que já vem com ele pra isso, só nao sei lhe dizer se na versão
Basic eles vem junto...


No mais é isso...

[]s

-- 
_
T.·.F.·.A.·.
Fellipe Henrique

---
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
###


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



Res: [delphi-br] Re: Acessar campo num tbl

2008-09-23 Por tôpico Marcio
Marcio, pelo que eu vi, os campos nao estao instanciados.
Clique na table com o botao direito e depois em Add All Fields
Ai ele instancia os campos. Depois disso vc consegue acessar direto via
codigo.

Com o fieldByName('nomecampo').asfloat vc consegue acessar sem instanciar.
Se dessa forma voce nao esta conseguindo acessar o campo, alguma coisa esta
errada na tabela.


 
---Mensagem original---
 
De: marcio
Data: 09/23/08 07:31:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Re: Acessar campo num tbl
 
como assim instanciar ??
se eu coloka assim:

Dm_Base.Tb_saidaQauntidae.AsInteger * 
(Dm_Base.Tb_Produto.SieldByName('ValorTotal').AsFloat := nltot2;

Será que vai fik d boa?

grato
--- Em delphi-br@yahoogrupos.com.br, Marcio [EMAIL PROTECTED] 
escreveu

 Márcio, voce instanciou os campos da tabela 
 
 
 Márcio C. Tenreiro 
 
 ---Mensagem original---
 
 De: marcio
 Data: 09/22/08 16:37:15
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Re: Acessar campo num tbl
 
 alguem pod resonder ? :)
 
 --- Em delphi-br@yahoogrupos.com.br, marcio fernando_vip@ 
 escreveu
 
  estou tentando acessat um campo chamado quantidade numa tbl para
  retornar o valor num edit e ta retornando o seguinte erro:
  [Error] UCadVendas.pas(60): Undeclared identifier: 
 'Tb_SaidaValorTotal'
  o codigo da unit é:
  unit UCadVendas;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, 
 Controls,
  Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
  
  type
  TFrm_Vendas = class(TForm)
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  DBLookupComboBox1: TDBLookupComboBox;
  DBLookupComboBox2: TDBLookupComboBox;
  DBText1: TDBText;
  BitBtn1: TBitBtn;
  BitBtn2: TBitBtn;
  BitBtn3: TBitBtn;
  DBEdit1: TDBEdit;
  DBEdit2: TDBEdit;
  Edit1: TEdit;
  procedure FormShow(Sender: TObject);
  procedure BitBtn1Click(Sender: TObject);
  procedure BitBtn2Click(Sender: TObject);
  procedure BitBtn3Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  
  var
  Frm_Vendas: TFrm_Vendas;
  
  implementation
  
  uses UDados;
  
  {$R *.dfm}
  
  procedure TFrm_Vendas.FormShow(Sender: TObject);
  begin
  Dm_Base.Tb_Saida.Open;
  Dm_Base.Tb_MotivoSaida.Open;
  Dm_Base.Tb_Produtos.Open;
  Dm_Base.Tb_Saida.Append;
  Edit1.Text := FormatFloat('00.00', 0.0);
  DbLookupComboBox1.SetFocus;
  end;
  
  procedure TFrm_Vendas.BitBtn1Click(Sender: TObject);
  var
  vltot, vltot2 : real;
  begin
  //vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
  Dm_Base.Tb_ProdutosValorVenda);
  Dm_Base.Tb_SaidaValorTotal := nltot2;
  vltot := 0;
  Edit1.Text := formatfloat('00,00', vltot);
  Dm_Base.Tb_Saida.Appdend;
  DBLookUpComboBox1.SetFocus; 
  end;
  
  procedure TFrm_Vendas.BitBtn2Click(Sender: TObject);
  begin
  Dm_Base.Tb_Saida.Delete;
  end;
  
  procedure TFrm_Vendas.BitBtn3Click(Sender: TObject);
  begin
  Close;
  end;
  
  end.
  
  Como posso resolver ?
 
 
 
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]



 
 

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



[delphi-br] Gerar PDF com Report Builder

2008-09-23 Por tôpico Giovani
Bom dia,

Estou tentando gerar relatório em PDF utilizando o REPORT Builder, mas 
eu NÃO quero que apareça a caixa de diálogo, ou seja, quando eu clico no 
botão gerar aí gera automático dentro do caminho que eu especifiquei.

Att.

--
Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.


RES: [delphi-br] Gerar PDF com Report Builder

2008-09-23 Por tôpico Zote
Se não me engano, o extradevices (plugin pro RB) faz isso.

--

José Henrique (Zote)

Analista de TI

Bludata Software

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Giovani
Enviada em: terça-feira, 23 de setembro de 2008 09:06
Para: DELPHI
Assunto: [delphi-br] Gerar PDF com Report Builder

 

Bom dia,

Estou tentando gerar relatório em PDF utilizando o REPORT Builder, mas 
eu NÃO quero que apareça a caixa de diálogo, ou seja, quando eu clico no 
botão gerar aí gera automático dentro do caminho que eu especifiquei.

Att.

--
Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.

 



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



Re: [delphi-br] Gerar PDF com Report Builder

2008-09-23 Por tôpico Fellipe Henrique
AS Versões mais novas já tem isso embutido, só marcar pra poder salvar pra
Arquivo, no proprio ppReport.

[]s

2008/9/23 José Henrique (Zote) [EMAIL PROTECTED]

   Se não me engano, o extradevices (plugin pro RB) faz isso.

 --

 José Henrique (Zote)

 Analista de TI

 Bludata Software

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Giovani
 Enviada em: terça-feira, 23 de setembro de 2008 09:06
 Para: DELPHI
 Assunto: [delphi-br] Gerar PDF com Report Builder


 Bom dia,

 Estou tentando gerar relatório em PDF utilizando o REPORT Builder, mas
 eu NÃO quero que apareça a caixa de diálogo, ou seja, quando eu clico no
 botão gerar aí gera automático dentro do caminho que eu especifiquei.

 Att.

 --
 Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.

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

  




-- 
_
T.·.F.·.A.·.
Fellipe Henrique

---
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar
um e-mail, delete todas as informações que apareçam no corpo do e-mail e que
possam ser usadas por hackers.
###


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



Re: [delphi-br] Gerar PDF com Report Builder

2008-09-23 Por tôpico Giovani
Eu já fiz isso, quando marco para salvar em arquivo, aí abre uma caixa 
de diálogo onde pede o nome do arquivo, etc...
Eu não quero que apareça a caixa de diálogo, que gere direto!


Fellipe Henrique escreveu:

 AS Versões mais novas já tem isso embutido, só marcar pra poder salvar pra
 Arquivo, no proprio ppReport.

 []s

 2008/9/23 José Henrique (Zote) [EMAIL PROTECTED] 
 mailto:zote%40bludata.com.br

  Se não me engano, o extradevices (plugin pro RB) faz isso.
 
  --
 
  José Henrique (Zote)
 
  Analista de TI
 
  Bludata Software
 
  De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 delphi-br%40yahoogrupos.com.br [mailto:
  delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
 delphi-br%40yahoogrupos.com.br] Em
  nome de Giovani
  Enviada em: terça-feira, 23 de setembro de 2008 09:06
  Para: DELPHI
  Assunto: [delphi-br] Gerar PDF com Report Builder
 
 
  Bom dia,
 
  Estou tentando gerar relatório em PDF utilizando o REPORT Builder, mas
  eu NÃO quero que apareça a caixa de diálogo, ou seja, quando eu clico no
  botão gerar aí gera automático dentro do caminho que eu especifiquei.
 
  Att.
 
  --
  Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 -- 
 _
 T.·.F.·.A.·.
 Fellipe Henrique

 --
 CAMPANHA POR UMA INTERNET SEGURA
 Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar
 mensagens use SEMPRE o Cco (cópia oculta).
 Assim TODOS os endereços estarão preservados. E, claro, antes de 
 encaminhar
 um e-mail, delete todas as informações que apareçam no corpo do e-mail 
 e que
 possam ser usadas por hackers.
 ###

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

  

--
Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.


Re: [delphi-br] Ordenar registros DBGrid.

2008-09-23 Por tôpico Luiz Carlos
Edson Marco Ferrari Junior escreveu:

 Veja os indices do clientdataset.

 É por ele que tu pode facilmente ordenar (ascendente, ou descentde) uma
 coluna (ou mais).

 2008/9/22 Luiz Carlos [EMAIL PROTECTED] 
 mailto:lcrp_grupos%40yahoo.com.br

  Olá a todos,
 
  Estou com o seguinte problema; tenho uma sequencia de 5 registros e
  gostaria de mudar a ordem deles, podendo escolher em que posição
  inseri-los, por exemplo:
  modo original:
  1 - registro 1
  2 - registro 2
  3 - registro 3
  4 - registro 4
  5 - registro 5
 
  resultado desejado:
  1 - registro 2
  2 - registro 3
  3 - registro 4
  4 - registro 5
  5 - registro 1
 
  isso de forma aleatório,
 
  alguma idéia?
 
 
 

 -- 
 /*
 * Edson Marco Ferrari Junior
 * [EMAIL PROTECTED] mailto:edmafer%40edmafer.com.br
 * http://www.edmafer.com.br http://www.edmafer.com.br
 */

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

  
Não seria isso, eu gostaria de ordenar na sequencia de números que bem 
entender, por ex: colocar o 1,2 e depois o 4, 3 e depois o 5.



Res: [delphi-br] Ordenar registros DBGrid.

2008-09-23 Por tôpico Luciano Calenzani Simões
Luiz, se você quer usar ordenação, deverá ter um campo para usar como índice.
Se você quer deixar a critério do usuário, crie um campo lookup com uma 
numeração sequencial, assim o usuário pode selecionar em que posição quer que 
seja exibido o registro

 Luciano Calenzani Simões




Não seria isso, eu gostaria de ordenar na sequencia de números que bem 
entender, por ex: colocar o 1,2 e depois o 4, 3 e depois o 5.


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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



Re: [delphi-br] Fast Report

2008-09-23 Por tôpico Eduardo Silva dos Santos
Olá Valdir, eu utilizo o Fast desde 2002, vou tentar te ajudar..

1 - para distribuir o sistema você pode optar por mandar os 96 arquivos fr3
de layout na pasta do seu sistema ou pode optar por deixar o arquivo salvo
dentro do DFM e ficar tudo dentro do exe, veja no componente FrxReport a
propriedade StoreInDFM

2 - A Versão Basic é simples, não te permite por exemplo, programar dentro
do relatório, compre a versão Standart.

3 - O esquema de exportação do Fast é perfeito, para todos os formatos, ele
exporta qualquer relatório para o excel com perfeição.

4 - A dica que posso dar é.. veja o Demo do componente.. e depois que vc se
familiarizar.. nunca mais vai querer usar outro Engene para relatórios.

boa sorte.

2008/9/23 valdir [EMAIL PROTECTED]

   Olá,

 Utilizo o Fortes Report, D7 e FB 2.0 e estou pensando em mudar para Fast
 Report. Meu sistema tem atualmente 96 relatórios. Vai ser um trabalho e
 tanto essa migração, mas não vejo outra saída.
 Antes de fazê-lo, gostaria da opinião dos colegas que já utilizam esse
 componente.
 Baixei a instalação e estou fazendo alguns testes e lendo sobre o mesmo. Em
 princípio, me parece muito bom, mas tenho dúvidas. Se puderes me ajudar a
 esclarecê-las...

 1) Como tenho 96 relatórios, quando todos estiverem com Fast Report, ao
 distribuir minha aplicação, terei que mandar junto 96 arquivos .fr3
 relativos a cada layout de cada relatório?

 2) Será que a versão FastReport 4 Basic Edition vai me atender? Quais as
 principais limitações dessa versão? No site não conseguir ver isso.

 3) O Fortes tem bastante limitações no salvamento de arquivos,
 principalmente para .xls. Essa parte funciona bem no Fast?

 4) Qualquer outra dica ou dificuldade que você tenha enfrentado com esse
 componente (Fast) será muito bem vinda.

 Obrigado

 Valdir Dill




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Layout Retorno BB

2008-09-23 Por tôpico Eduardo Silva dos Santos
Acho que se vc for em uma agência eles te passam isso, ou deve até ter no
site do banco.

2008/9/23 Adriano O. Cipriano [EMAIL PROTECTED]

   Olá pessoal.. alguém tem o layout de arquivo de retorno pra
 pagamento de fornecedor do Banco do Brasil ?
 Já procurei na net e só achei de cobrança.. e é diferente..

 Valeu

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



[delphi-br] Fast Report

2008-09-23 Por tôpico tobler
Também estou procurando um gerador de relatórios, atualmente uso o Report
Builder e gostaria de migrar para um gerador que oferecesse mais ou menos
o que o Report Builder oferece porém, que fosse freeware. Alguém poderia
sugerir algum?

Obrigado, Luis Hilário.

 Olá,

 Utilizo o Fortes Report, D7 e FB 2.0 e estou pensando em mudar para Fast
 Report. Meu sistema tem atualmente 96 relatórios. Vai ser um trabalho e
 tanto essa migração, mas não vejo outra saída.
 Antes de fazê-lo, gostaria da opinião dos colegas que já utilizam esse
 componente.
 Baixei a instalação e estou fazendo alguns testes e lendo sobre o mesmo.
 Em princípio, me parece muito bom, mas tenho dúvidas. Se puderes me ajudar
 a esclarecê-las...

 1) Como tenho 96 relatórios, quando todos estiverem com Fast Report, ao
 distribuir minha aplicação, terei que mandar junto 96 arquivos .fr3
 relativos a cada layout de cada relatório?

 2) Será que a versão FastReport 4 Basic Edition vai me atender? Quais as
 principais limitações dessa versão? No site não conseguir ver isso.

 3) O Fortes tem bastante limitações no salvamento de arquivos,
 principalmente para .xls. Essa parte funciona bem no Fast?

 4) Qualquer outra dica ou dificuldade que você tenha enfrentado com esse
 componente (Fast) será muito bem vinda.

 Obrigado

 Valdir Dill





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







--
Este e-mail foi enviado pelo Flash Mail.
http://www.flash.tv.br


[delphi-br] IP Camera

2008-09-23 Por tôpico Helder Marques
Boa Tarde a todos

Alguem sabe como se consegue visualizar imagens de uma IP Camera
directamente no Delphi ???


Cumprimentos

-- 
-
Helder Marques
[EMAIL PROTECTED]
-


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



Re: [delphi-br] Fast Report

2008-09-23 Por tôpico valdir
Valeu Eduardo. Obrigado.
Se puder me ajudar mais um pouco...: 
1) mudei a propriedade StoreInDFM do TfrxReport, mas não surtiu nenhum efeitou, 
ou seja, o preview sai na tela, mas com fundo marrom e sem nenhum dado. Tem 
mais alguma coisa que precisa fazer?
2) Normalmente você distribui os .fr3 junto na sua aplicação? Qual a 
vantagem/desvantagem em distribuir ou não?
3) No Fortes eu crio o relatório normal para impressão em jato de tinta/laser. 
Se a impressão for para matricial, apenas coloco um componente drafFilter e 
mudo a propriedade DefaultFilter do TRLReport e pronto. Com isso dou a opção 
para o usuário escolher entre matricial ou não e isso fica disponível para 
todos os relatórios com apenas algumas linhas de código.
Pelo que andei lendo, no Fast precisa fazer um relatório para jato de 
tinta/laser e outro para matricial. É isso mesmo?

Obrigado


Valdir


  - Original Message - 
  From: Eduardo Silva dos Santos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, September 23, 2008 10:16 AM
  Subject: Re: [delphi-br] Fast Report


  Olá Valdir, eu utilizo o Fast desde 2002, vou tentar te ajudar..

  1 - para distribuir o sistema você pode optar por mandar os 96 arquivos fr3
  de layout na pasta do seu sistema ou pode optar por deixar o arquivo salvo
  dentro do DFM e ficar tudo dentro do exe, veja no componente FrxReport a
  propriedade StoreInDFM

  2 - A Versão Basic é simples, não te permite por exemplo, programar dentro
  do relatório, compre a versão Standart.

  3 - O esquema de exportação do Fast é perfeito, para todos os formatos, ele
  exporta qualquer relatório para o excel com perfeição.

  4 - A dica que posso dar é.. veja o Demo do componente.. e depois que vc se
  familiarizar.. nunca mais vai querer usar outro Engene para relatórios.

  boa sorte.

  2008/9/23 valdir [EMAIL PROTECTED]

   Olá,
  
   Utilizo o Fortes Report, D7 e FB 2.0 e estou pensando em mudar para Fast
   Report. Meu sistema tem atualmente 96 relatórios. Vai ser um trabalho e
   tanto essa migração, mas não vejo outra saída.
   Antes de fazê-lo, gostaria da opinião dos colegas que já utilizam esse
   componente.
   Baixei a instalação e estou fazendo alguns testes e lendo sobre o mesmo. Em
   princípio, me parece muito bom, mas tenho dúvidas. Se puderes me ajudar a
   esclarecê-las...
  
   1) Como tenho 96 relatórios, quando todos estiverem com Fast Report, ao
   distribuir minha aplicação, terei que mandar junto 96 arquivos .fr3
   relativos a cada layout de cada relatório?
  
   2) Será que a versão FastReport 4 Basic Edition vai me atender? Quais as
   principais limitações dessa versão? No site não conseguir ver isso.
  
   3) O Fortes tem bastante limitações no salvamento de arquivos,
   principalmente para .xls. Essa parte funciona bem no Fast?
  
   4) Qualquer outra dica ou dificuldade que você tenha enfrentado com esse
   componente (Fast) será muito bem vinda.
  
   Obrigado
  
   Valdir Dill
  
  

  -- 
  ...
  Eduardo Silva dos Santos
  DRD SISTEMAS
  (27) 3218-4201
  MSN: [EMAIL PROTECTED]
  Site: http://www.drdsistemas.com.br/
  ...

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



   


--



  No virus found in this incoming message.
  Checked by AVG - http://www.avg.com 
  Version: 8.0.169 / Virus Database: 270.7.1/1686 - Release Date: 23/9/2008 
07:38


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



Re: [delphi-br] Pegar um pedaço de um arquivo stream em um servidor FTP

2008-09-23 Por tôpico Fabio Thomaz
Verifica ai e me fala, depois que tudo aqui estiver certo posso até te
mostrar ele, se for o que vc quiser eu te passo os fontes.

2008/9/23 André Yahoo [EMAIL PROTECTED]

   Vou verificar em casa qual revista saiu esse artigo, não lembro bem se
 foi na clubedelphi ou na activedelphi.
 Mas vou tentar achar e te passar o exemplo que tem . Também estou
 precisando usar isso nos projetos da empresa aqui.


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

  




-- 
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Fone: (27) 3727-1127
Celular: (27) 9947-0459
Msn: [EMAIL PROTECTED]


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



Re: [delphi-br] Re: Persistencia OR no Delphi

2008-09-23 Por tôpico Joao Morais
Airton wrote:
 --- Joao Morais [EMAIL PROTECTED] escreveu
 Clayton Bonelli wrote:
 Pessoal, o que voces estão usando para persistencia no delphi com
 mapeamento Objeto-Relacional ?

 http://br.pressobjects.org

 Para win32, dos que eu me lembro ainda tem InstantObjects, tiOPF, 
 Jazz-SDK, Infra e o falecido Bold, e para .net tem ECO e Hibernate.
 
 Se os feras da persistencia no Brasil, tais como o Jazz-SDK,
 PressObjects e Infra trabalhassem num unico projeto em conjunto, o
 Brasil teria um dos melhores projetos do mundo.

Mais do que trabalhar em conjunto, é necessário trabalhar em sincronia. 
Os três autores possuem propostas distintas para abstrair classes para 
os frameworks. Ainda assim isto não impede que o Brasil tenha um dos, 
senão o melhor projeto, no entanto ele pode levar um pouco mais de tempo 
para chegar lá.

--
Joao Morais


Re: [delphi-br] Layout Retorno BB

2008-09-23 Por tôpico Alisson
O Banco do Brasil com certeza tem. É o local mais indicado pra procurar 
isso. 

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


Re: [delphi-br] Fast Report

2008-09-23 Por tôpico Eduardo Silva dos Santos
Olá Valdir, vamos lá

1 - para salvar o Fr3 no Dfm vc deve setar a propriedade StoreInDfm para
true, e em seguida fazer o relatorio no Editor ou carregar um arquivo Fr3
existente, dai em diante, quando vc salvar e fechar o form, quando abrir
novamente e abrir o Editor do fast o relatório já estará lá.

2 - A vantagem de vc deixar o relatório salvo em arquivo externo e carregar
na hora de exibir é que vc pode modificar o relatório sem ter que recompilar
o sistema, a única desvantagem é a quantidade de arquivos externos e o
trabalho a mais na hora de atualizar, nada muito grave, imagine uma pasta
com 96 arquivos, isso para uns não é problema mas eu sou meio neurótico com
isso.

3 - No Fast vc tem que criar um relatório à parte para imprimir em modo 100%
texto. não sei como o Fortes trabalha, vamos supor que vc tem um relatório
com uma Imagem por exemplo, se for imprimir em modo texto não tem como essa
imagem ser impressa. Agora nada impede que vc imprima os relatórios gráficos
na matricial, só vai ficar + lento.

2008/9/23 valdir [EMAIL PROTECTED]

   Valeu Eduardo. Obrigado.
 Se puder me ajudar mais um pouco...:
 1) mudei a propriedade StoreInDFM do TfrxReport, mas não surtiu nenhum
 efeitou, ou seja, o preview sai na tela, mas com fundo marrom e sem nenhum
 dado. Tem mais alguma coisa que precisa fazer?
 2) Normalmente você distribui os .fr3 junto na sua aplicação? Qual a
 vantagem/desvantagem em distribuir ou não?
 3) No Fortes eu crio o relatório normal para impressão em jato de
 tinta/laser. Se a impressão for para matricial, apenas coloco um componente
 drafFilter e mudo a propriedade DefaultFilter do TRLReport e pronto. Com
 isso dou a opção para o usuário escolher entre matricial ou não e isso fica
 disponível para todos os relatórios com apenas algumas linhas de código.
 Pelo que andei lendo, no Fast precisa fazer um relatório para jato de
 tinta/laser e outro para matricial. É isso mesmo?

 Obrigado

 Valdir

 - Original Message -
 From: Eduardo Silva dos Santos
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Tuesday, September 23, 2008 10:16 AM
 Subject: Re: [delphi-br] Fast Report

 Olá Valdir, eu utilizo o Fast desde 2002, vou tentar te ajudar..

 1 - para distribuir o sistema você pode optar por mandar os 96 arquivos fr3
 de layout na pasta do seu sistema ou pode optar por deixar o arquivo salvo
 dentro do DFM e ficar tudo dentro do exe, veja no componente FrxReport a
 propriedade StoreInDFM

 2 - A Versão Basic é simples, não te permite por exemplo, programar dentro
 do relatório, compre a versão Standart.

 3 - O esquema de exportação do Fast é perfeito, para todos os formatos, ele
 exporta qualquer relatório para o excel com perfeição.

 4 - A dica que posso dar é.. veja o Demo do componente.. e depois que vc se
 familiarizar.. nunca mais vai querer usar outro Engene para relatórios.

 boa sorte.

 2008/9/23 valdir [EMAIL PROTECTED]valdirdill%40infolivre.com.br
 

  Olá,
 
  Utilizo o Fortes Report, D7 e FB 2.0 e estou pensando em mudar para Fast
  Report. Meu sistema tem atualmente 96 relatórios. Vai ser um trabalho e
  tanto essa migração, mas não vejo outra saída.
  Antes de fazê-lo, gostaria da opinião dos colegas que já utilizam esse
  componente.
  Baixei a instalação e estou fazendo alguns testes e lendo sobre o mesmo.
 Em
  princípio, me parece muito bom, mas tenho dúvidas. Se puderes me ajudar a
  esclarecê-las...
 
  1) Como tenho 96 relatórios, quando todos estiverem com Fast Report, ao
  distribuir minha aplicação, terei que mandar junto 96 arquivos .fr3
  relativos a cada layout de cada relatório?
 
  2) Será que a versão FastReport 4 Basic Edition vai me atender? Quais
 as
  principais limitações dessa versão? No site não conseguir ver isso.
 
  3) O Fortes tem bastante limitações no salvamento de arquivos,
  principalmente para .xls. Essa parte funciona bem no Fast?
 
  4) Qualquer outra dica ou dificuldade que você tenha enfrentado com esse
  componente (Fast) será muito bem vinda.
 
  Obrigado
 
  Valdir Dill
 
 

 --
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
 Site: http://www.drdsistemas.com.br/
 ...

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

 --

 No virus found in this incoming message.
 Checked by AVG - http://www.avg.com
 Version: 8.0.169 / Virus Database: 270.7.1/1686 - Release Date: 23/9/2008
 07:38

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

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Re: [delphi-br] Fast Report

2008-09-23 Por tôpico Joao Morais
Eduardo Silva dos Santos wrote:
 2 - A vantagem de vc deixar o relatório salvo em arquivo externo e carregar
 na hora de exibir é que vc pode modificar o relatório sem ter que recompilar
 o sistema, a única desvantagem é a quantidade de arquivos externos e o
 trabalho a mais na hora de atualizar, nada muito grave, imagine uma pasta
 com 96 arquivos, isso para uns não é problema mas eu sou meio neurótico com
 isso.

Outra idéia é gravar estes arquivos em campos blob no banco e carregar 
para o FReport através de um stream. Assim, um usuário altera o 
relatório e todos ganham a alteração sem precisar replicar arquivos 
externos.

--
Joao Morais


Re: [delphi-br] Fast Report

2008-09-23 Por tôpico Eduardo Silva dos Santos
É uma excelente idéia João, eu fiz isso em um dos software que tenho, mas
para os arquivos digitalizados dos clientes, eram cerca de 200.000 arquivos
JPG no servidor, era um parto para fazer backup, coloquei tudo no banco,
facilitou o backup, facilitou a visualização nas estações.  sem contar que
acalmou minha neura de ver aquele monte de arquivo la no servidor.. hehehe,
coisa de doido, mas..

2008/9/23 Joao Morais [EMAIL PROTECTED]

   Eduardo Silva dos Santos wrote:
  2 - A vantagem de vc deixar o relatório salvo em arquivo externo e
 carregar
  na hora de exibir é que vc pode modificar o relatório sem ter que
 recompilar
  o sistema, a única desvantagem é a quantidade de arquivos externos e o
  trabalho a mais na hora de atualizar, nada muito grave, imagine uma pasta
  com 96 arquivos, isso para uns não é problema mas eu sou meio neurótico
 com
  isso.

 Outra idéia é gravar estes arquivos em campos blob no banco e carregar
 para o FReport através de um stream. Assim, um usuário altera o
 relatório e todos ganham a alteração sem precisar replicar arquivos
 externos.

 --
 Joao Morais
  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Res: [delphi-br] Fast Report

2008-09-23 Por tôpico Silvio Clécio
Olá pessoal,
 
Veja o FreeReport e o VDOPrint, eles são free e muito bons, tem exemplos 
compilados para você testar antes de instalar no Delphi, acesse o link: 
http://www.4shared.com/dir/5679510/48848609/Uploads.html
 
Um abraço a todos!
Silvio Clécio
 
- Mensagem original 
De: [EMAIL PROTECTED] [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Setembro de 2008 10:34:14
Assunto: [delphi-br] Fast Report


Também estou procurando um gerador de relatórios, atualmente uso o Report
Builder e gostaria de migrar para um gerador que oferecesse mais ou menos
o que o Report Builder oferece porém, que fosse freeware. Alguém poderia
sugerir algum?

Obrigado, Luis Hilário.
. __ 


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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



Re: [delphi-br] Ordenar registros DBGrid.

2008-09-23 Por tôpico Coutinho - Yahoo
Luis Carlos.

Não sei se os colegas que te responderam antes entenderam o que vc 
deseja. Eu entendi que você quer controlar, aleatoriamente, ou como der 
na telha, em determinado momento a ordem de inclusão de registros numa 
tabela...

Bem, pelo visto você deseja alterar hoje de uma forma, amanhã, de outra...

Eu sugiro que vc coloque um campo numérico, com valor inteiro, e coloque 
um índice único neste campo... Este campo é o que vc deverá alterar, 
inserindo números sequencialmente para que sejam apresentados na ordem 
que vc deseja.

Lembre, que o conteúdo do campo é o que ordena,  e se for um campo 
string, o sgbd vai letra a letra, fazendo a indexação, então:
Antonia, vem antes de Antonio, Jorge antes de José... e assim 
sucessivamente.

Você pode ainda usar vários campos... por exemplo
Se for gerar um view (ou pesquisa do access), crie um campo que analise 
o valor do campo, e te dê uma resposta lógica (boolean), e depois, use 
outro campo para ser a próxima chave do índice... e um terceiro e assim 
sucessivamente... aí sua imaginação é que vai dizer, mas ainda assim, eu 
usaria um sql para isso, pois você poderá manipulá-lo de forma mais 
controlada

Sds
Emanuel Coutinho



Luiz Carlos escreveu:

 Olá a todos,

 Estou com o seguinte problema; tenho uma sequencia de 5 registros e
 gostaria de mudar a ordem deles, podendo escolher em que posição
 inseri-los, por exemplo:
 modo original:
 1 - registro 1
 2 - registro 2
 3 - registro 3
 4 - registro 4
 5 - registro 5

 resultado desejado:
 1 - registro 2
 2 - registro 3
 3 - registro 4
 4 - registro 5
 5 - registro 1

 isso de forma aleatório,

 alguma idéia?





Re: [delphi-br] Layout Retorno BB

2008-09-23 Por tôpico Coutinho - Yahoo
Se você está criando um programa para algum cliente, pode solicitar que 
ele peça ao gerente dele a estrutura,
é um cnab400, e seu cliente poderá conseguí-lo sem problemas

Sou cliente BB e já fiz isso antes, só que não tenho + o lay-out... mas 
sei que vc poderá conseguir com qualquer cliente BB Pessoa Jurídica, 
basta que ele solicite ao Gerente
Sds
Emanuel Coutinho




Re: [delphi-br] Ordenar registros DBGrid.

2008-09-23 Por tôpico Luiz Carlos
Coutinho - Yahoo escreveu:

 Luis Carlos.

 Não sei se os colegas que te responderam antes entenderam o que vc
 deseja. Eu entendi que você quer controlar, aleatoriamente, ou como der
 na telha, em determinado momento a ordem de inclusão de registros numa
 tabela...

 Bem, pelo visto você deseja alterar hoje de uma forma, amanhã, de outra...

 Eu sugiro que vc coloque um campo numérico, com valor inteiro, e coloque
 um índice único neste campo... Este campo é o que vc deverá alterar,
 inserindo números sequencialmente para que sejam apresentados na ordem
 que vc deseja.

 Lembre, que o conteúdo do campo é o que ordena, e se for um campo
 string, o sgbd vai letra a letra, fazendo a indexação, então:
 Antonia, vem antes de Antonio, Jorge antes de José... e assim
 sucessivamente.

 Você pode ainda usar vários campos... por exemplo
 Se for gerar um view (ou pesquisa do access), crie um campo que analise
 o valor do campo, e te dê uma resposta lógica (boolean), e depois, use
 outro campo para ser a próxima chave do índice... e um terceiro e assim
 sucessivamente... aí sua imaginação é que vai dizer, mas ainda assim, eu
 usaria um sql para isso, pois você poderá manipulá-lo de forma mais
 controlada

 Sds
 Emanuel Coutinho

 Luiz Carlos escreveu:
 
  Olá a todos,
 
  Estou com o seguinte problema; tenho uma sequencia de 5 registros e
  gostaria de mudar a ordem deles, podendo escolher em que posição
  inseri-los, por exemplo:
  modo original:
  1 - registro 1
  2 - registro 2
  3 - registro 3
  4 - registro 4
  5 - registro 5
 
  resultado desejado:
  1 - registro 2
  2 - registro 3
  3 - registro 4
  4 - registro 5
  5 - registro 1
 
  isso de forma aleatório,
 
  alguma idéia?
 

  
Obrigado pelas dicas pessoal


Re: [delphi-br] Ordenar registros DBGrid.

2008-09-23 Por tôpico Luiz Carlos
Coutinho - Yahoo escreveu:

 Luis Carlos.

 Não sei se os colegas que te responderam antes entenderam o que vc
 deseja. Eu entendi que você quer controlar, aleatoriamente, ou como der
 na telha, em determinado momento a ordem de inclusão de registros numa
 tabela...

 Bem, pelo visto você deseja alterar hoje de uma forma, amanhã, de outra...

 Eu sugiro que vc coloque um campo numérico, com valor inteiro, e coloque
 um índice único neste campo... Este campo é o que vc deverá alterar,
 inserindo números sequencialmente para que sejam apresentados na ordem
 que vc deseja.

 Lembre, que o conteúdo do campo é o que ordena, e se for um campo
 string, o sgbd vai letra a letra, fazendo a indexação, então:
 Antonia, vem antes de Antonio, Jorge antes de José... e assim
 sucessivamente.

 Você pode ainda usar vários campos... por exemplo
 Se for gerar um view (ou pesquisa do access), crie um campo que analise
 o valor do campo, e te dê uma resposta lógica (boolean), e depois, use
 outro campo para ser a próxima chave do índice... e um terceiro e assim
 sucessivamente... aí sua imaginação é que vai dizer, mas ainda assim, eu
 usaria um sql para isso, pois você poderá manipulá-lo de forma mais
 controlada

 Sds
 Emanuel Coutinho

 Luiz Carlos escreveu:
 
  Olá a todos,
 
  Estou com o seguinte problema; tenho uma sequencia de 5 registros e
  gostaria de mudar a ordem deles, podendo escolher em que posição
  inseri-los, por exemplo:
  modo original:
  1 - registro 1
  2 - registro 2
  3 - registro 3
  4 - registro 4
  5 - registro 5
 
  resultado desejado:
  1 - registro 2
  2 - registro 3
  3 - registro 4
  4 - registro 5
  5 - registro 1
 
  isso de forma aleatório,
 
  alguma idéia?
 

 
 Mensagens neste tópico 
 http://br.groups.yahoo.com/group/delphi-br/message/192092;_ylc=X3oDMTM4dWQ3aGVuBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjEzMgRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzEyMjIxODE5MDkEdHBjSWQDMTkyMDky
  
 (4) Responder (através da web) 
 http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyNzFqZGg5BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE5MjEzMgRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzEyMjIxODE5MDk-?act=replymessageNum=192132
  
 | Adicionar um novo tópico 
 http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJldXI4dm5kBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTIyMjE4MTkwOQ--
  

 Mensagens 
 http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlbHFjaGtvBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTIyMjE4MTkwOQ--
  
 | Arquivos 
 http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmcDh0a2tpBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzEyMjIxODE5MDk-
  
 | Fotos 
 http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlaWJyNmdmBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTIyMjE4MTkwOQ--
  
 | Links 
 http://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmamJvOHI4BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzEyMjIxODE5MDk-
  
 | Banco de dados 
 http://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjZW91YzZyBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2RiBHN0aW1lAzEyMjIxODE5MDk-
  

 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 http://br.groups.yahoo.com/;_ylc=X3oDMTJkb3A4cnVoBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxMjIyMTgxOTA5
  

 Alterar configurações via web 
 http://br.groups.yahoo.com/group/delphi-br/join;_ylc=X3oDMTJmMjFjMWtsBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3N0bmdzBHN0aW1lAzEyMjIxODE5MDk-
  
 (Requer Yahoo! ID)
 Alterar configurações via e-mail: Alterar recebimento para lista 
 diária de mensagens 
 mailto:[EMAIL PROTECTED]:%20Lista%20de%20mensagens 
 | Alterar formato para o tradicional 
 mailto:[EMAIL PROTECTED]:+Tradicional 

 Visite seu Grupo 
 http://br.groups.yahoo.com/group/delphi-br;_ylc=X3oDMTJkNDFrazMyBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2hwZgRzdGltZQMxMjIyMTgxOTA5
  
 | Termos de uso do Yahoo! Grupos http://br.yahoo.com/info/utos.html 
 | Sair do grupo 
 mailto:[EMAIL PROTECTED]
 Atividade nos últimos dias

*
14
   Novos usuários
   
 http://br.groups.yahoo.com/group/delphi-br/members;_ylc=X3oDMTJmbGYxbXU4BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwN2dGwEc2xrA3ZtYnJzBHN0aW1lAzEyMjIxODE5MDk-
*
1
   Novos arquivos
   
 http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJnc2VrOGprBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwN2dGwEc2xrA3ZmaWxlcwRzdGltZQMxMjIyMTgxOTA5

 Visite seu Grupo 
 

[delphi-br] imagem

2008-09-23 Por tôpico eu_sossego
como abrir pelo delphi o programa que exibi as imagens do windows ? 



[delphi-br] Impedir que componentes sejam colocados em um panel

2008-09-23 Por tôpico Alisson
Desenvolvi um componente de lookup a partir do TCustomPanel.Dentro desse 
panel ficam 2 edits e um TSpeedButton. Está funcionando beleza, mas é 
possível para o programador arrastar um componente qualquer pra dentro desse 
componente por mim criado. Tem alguma maneira de impedir que isso aconteça? 

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


[delphi-br] Delphi 2007 - 3 Camadas - BSS

2008-09-23 Por tôpico fjogassa
Boa tarde a todos.
Estou desenvolvendo um sistema em três camadas no Delphi 2007
utilizando o Borland Socket Server + DatasetProvider + ClientDataSet.
Desenvolvi o servidor e o mesmo está funcionando, aparentemente,
iniciei o socket server na máquina cliente (Windows Vista Ultimate
64bits). Vou no BSS e configuro o servidor e dou um connected TRUE e
conecta também. No cliente, juntamente com o socket coloquei um
SharedConnection apontando para este socket. Agora vem o problema, na
tela coloco um clientdataset e configuro o remoteserver e o
providername e na hora que vou dar um actiev TRUE ele dá access
violation no scktsvr.exe. alguém poderia me ajudar por favor.

Obrigado.

Abraços.

GTalk: [EMAIL PROTECTED]



Res: [delphi-br] Delphi 2007 - 3 Camadas - BSS

2008-09-23 Por tôpico Luciano Calenzani Simões
Posta sua dúvida no grupo [EMAIL PROTECTED], é só de n-tier em Delphi.

 Luciano Calenzani Simões





- Mensagem original 
De: fjogassa [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Setembro de 2008 14:44:24
Assunto: [delphi-br] Delphi 2007 - 3 Camadas - BSS


Boa tarde a todos.
Estou desenvolvendo um sistema em três camadas no Delphi 2007
utilizando o Borland Socket Server + DatasetProvider + ClientDataSet.
Desenvolvi o servidor e o mesmo está funcionando, aparentemente,
iniciei o socket server na máquina cliente (Windows Vista Ultimate
64bits). Vou no BSS e configuro o servidor e dou um connected TRUE e
conecta também. No cliente, juntamente com o socket coloquei um
SharedConnection apontando para este socket. Agora vem o problema, na
tela coloco um clientdataset e configuro o remoteserver e o
providername e na hora que vou dar um actiev TRUE ele dá access
violation no scktsvr.exe. alguém poderia me ajudar por favor.

Obrigado.

Abraços.

GTalk: [EMAIL PROTECTED] com


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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



Res: [delphi-br] Re: Acessar campo num tbl

2008-09-23 Por tôpico marcio
Era o instaciamento dos campos mesmo q n tinha seido feitos contudo
gera ainda um erro, coloquei o  meu cod assim:

vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
Dm_Base.Tb_ProdutosValorVenda);

e o erro:
[Error] UCadVendas.pas(59): Operator not applicable to this operand type




--- Em delphi-br@yahoogrupos.com.br, Marcio [EMAIL PROTECTED] escreveu

 Marcio, pelo que eu vi, os campos nao estao instanciados.
 Clique na table com o botao direito e depois em Add All Fields
 Ai ele instancia os campos. Depois disso vc consegue acessar direto via
 codigo.
 
 Com o fieldByName('nomecampo').asfloat vc consegue acessar sem
instanciar.
 Se dessa forma voce nao esta conseguindo acessar o campo, alguma
coisa esta
 errada na tabela.
 
 
  
 ---Mensagem original---
  
 De: marcio
 Data: 09/23/08 07:31:29
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Res: [delphi-br] Re: Acessar campo num tbl
  
 como assim instanciar ??
 se eu coloka assim:
 
 Dm_Base.Tb_saidaQauntidae.AsInteger * 
 (Dm_Base.Tb_Produto.SieldByName('ValorTotal').AsFloat := nltot2;
 
 Será que vai fik d boa?
 
 grato
 --- Em delphi-br@yahoogrupos.com.br, Marcio mtenreiro-cpd@ 
 escreveu
 
  Márcio, voce instanciou os campos da tabela 
  
  
  Márcio C. Tenreiro 
  
  ---Mensagem original---
  
  De: marcio
  Data: 09/22/08 16:37:15
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Re: Acessar campo num tbl
  
  alguem pod resonder ? :)
  
  --- Em delphi-br@yahoogrupos.com.br, marcio fernando_vip@ 
  escreveu
  
   estou tentando acessat um campo chamado quantidade numa tbl para
   retornar o valor num edit e ta retornando o seguinte erro:
   [Error] UCadVendas.pas(60): Undeclared identifier: 
  'Tb_SaidaValorTotal'
   o codigo da unit é:
   unit UCadVendas;
   
   interface
   
   uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, 
  Controls,
   Forms,
   Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
   
   type
   TFrm_Vendas = class(TForm)
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   Label5: TLabel;
   Label6: TLabel;
   DBLookupComboBox1: TDBLookupComboBox;
   DBLookupComboBox2: TDBLookupComboBox;
   DBText1: TDBText;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   BitBtn3: TBitBtn;
   DBEdit1: TDBEdit;
   DBEdit2: TDBEdit;
   Edit1: TEdit;
   procedure FormShow(Sender: TObject);
   procedure BitBtn1Click(Sender: TObject);
   procedure BitBtn2Click(Sender: TObject);
   procedure BitBtn3Click(Sender: TObject);
   private
   { Private declarations }
   public
   { Public declarations }
   end;
   
   var
   Frm_Vendas: TFrm_Vendas;
   
   implementation
   
   uses UDados;
   
   {$R *.dfm}
   
   procedure TFrm_Vendas.FormShow(Sender: TObject);
   begin
   Dm_Base.Tb_Saida.Open;
   Dm_Base.Tb_MotivoSaida.Open;
   Dm_Base.Tb_Produtos.Open;
   Dm_Base.Tb_Saida.Append;
   Edit1.Text := FormatFloat('00.00', 0.0);
   DbLookupComboBox1.SetFocus;
   end;
   
   procedure TFrm_Vendas.BitBtn1Click(Sender: TObject);
   var
   vltot, vltot2 : real;
   begin
   //vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
   Dm_Base.Tb_ProdutosValorVenda);
   Dm_Base.Tb_SaidaValorTotal := nltot2;
   vltot := 0;
   Edit1.Text := formatfloat('00,00', vltot);
   Dm_Base.Tb_Saida.Appdend;
   DBLookUpComboBox1.SetFocus; 
   end;
   
   procedure TFrm_Vendas.BitBtn2Click(Sender: TObject);
   begin
   Dm_Base.Tb_Saida.Delete;
   end;
   
   procedure TFrm_Vendas.BitBtn3Click(Sender: TObject);
   begin
   Close;
   end;
   
   end.
   
   Como posso resolver ?
  
  
  
  
  
  
  [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: imagem

2008-09-23 Por tôpico marcio
Existe um componente do delphi na guia dialogs chamado
OpenPictureDialog, com ele vc pod chamar uma tela para abrir imagens,
vc pod definir o filtro na propriedade filter, tipo se vc q só bmp,
jpeg, ...

OpenPictureDialo1.execute .


--- Em delphi-br@yahoogrupos.com.br, eu_sossego [EMAIL PROTECTED]
escreveu

 como abrir pelo delphi o programa que exibi as imagens do windows ?





[delphi-br] Conversão de Access para Firebird

2008-09-23 Por tôpico Coutinho - Yahoo
Olá colegas

Tenho uma base de dados com uma estrutura ENORME e gostaria de migrar 
essa estrutura para o Firebird. Gostaria de saber se alguém sabe de uma 
aplicação que possa fazer isso, que seja free, ou se paga, que não seja 
muito cara, pois me facilitaria não ter de gerar tudo de novo. Pensei em 
fazer apenas as rotinas de views novas e stored procedures no banco novo.
Alguém pode me ajudar nisso?
Estou querendo usar em Delphi 2006 com Firebird

Sds
Emanuel Coutinho



Re: [delphi-br] Re: Acessar campo num tbl

2008-09-23 Por tôpico Rafael
Faltou o tipo do dado do campo ValorVenda.
AsInteger, AsFloat, etc.


On 9/23/08, marcio [EMAIL PROTECTED] wrote:

   Era o instaciamento dos campos mesmo q n tinha seido feitos contudo
 gera ainda um erro, coloquei o meu cod assim:

 vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
 Dm_Base.Tb_ProdutosValorVenda);

 e o erro:
 [Error] UCadVendas.pas(59): Operator not applicable to this operand type

 --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 Marcio [EMAIL PROTECTED] escreveu
 
  Marcio, pelo que eu vi, os campos nao estao instanciados.
  Clique na table com o botao direito e depois em Add All Fields
  Ai ele instancia os campos. Depois disso vc consegue acessar direto via
  codigo.
 
  Com o fieldByName('nomecampo').asfloat vc consegue acessar sem
 instanciar.
  Se dessa forma voce nao esta conseguindo acessar o campo, alguma
 coisa esta
  errada na tabela.
 
 
 
  ---Mensagem original---
 
  De: marcio
  Data: 09/23/08 07:31:29
  Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  Assunto: Res: [delphi-br] Re: Acessar campo num tbl
 
  como assim instanciar ??
  se eu coloka assim:
 
  Dm_Base.Tb_saidaQauntidae.AsInteger *
  (Dm_Base.Tb_Produto.SieldByName('ValorTotal').AsFloat := nltot2;
 
  Será que vai fik d boa?
 
  grato
  --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 Marcio mtenreiro-cpd@
  escreveu
  
   Márcio, voce instanciou os campos da tabela
  
  
   Márcio C. Tenreiro
  
   ---Mensagem original---
  
   De: marcio
   Data: 09/22/08 16:37:15
   Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
   Assunto: [delphi-br] Re: Acessar campo num tbl
  
   alguem pod resonder ? :)
  
   --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br,
 marcio fernando_vip@
   escreveu
   
estou tentando acessat um campo chamado quantidade numa tbl para
retornar o valor num edit e ta retornando o seguinte erro:
[Error] UCadVendas.pas(60): Undeclared identifier:
   'Tb_SaidaValorTotal'
o codigo da unit é:
unit UCadVendas;
   
interface
   
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
   Controls,
Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
   
type
TFrm_Vendas = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBText1: TDBText;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Edit1: TEdit;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
   
var
Frm_Vendas: TFrm_Vendas;
   
implementation
   
uses UDados;
   
{$R *.dfm}
   
procedure TFrm_Vendas.FormShow(Sender: TObject);
begin
Dm_Base.Tb_Saida.Open;
Dm_Base.Tb_MotivoSaida.Open;
Dm_Base.Tb_Produtos.Open;
Dm_Base.Tb_Saida.Append;
Edit1.Text := FormatFloat('00.00', 0.0);
DbLookupComboBox1.SetFocus;
end;
   
procedure TFrm_Vendas.BitBtn1Click(Sender: TObject);
var
vltot, vltot2 : real;
begin
//vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
Dm_Base.Tb_ProdutosValorVenda);
Dm_Base.Tb_SaidaValorTotal := nltot2;
vltot := 0;
Edit1.Text := formatfloat('00,00', vltot);
Dm_Base.Tb_Saida.Appdend;
DBLookUpComboBox1.SetFocus;
end;
   
procedure TFrm_Vendas.BitBtn2Click(Sender: TObject);
begin
Dm_Base.Tb_Saida.Delete;
end;
   
procedure TFrm_Vendas.BitBtn3Click(Sender: TObject);
begin
Close;
end;
   
end.
   
Como posso resolver ?
   
  
  
  
  
  
   [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] Conversão de Access para Firebird

2008-09-23 Por tôpico Eduardo Silva dos Santos
Da uma olhada no velho companheiro:
http://www.google.com.br/search?hl=pt-BRq=Access+to+FireBirdbtnG=Pesquisa+Googlemeta=

2008/9/23 Coutinho - Yahoo [EMAIL PROTECTED]

   Olá colegas

 Tenho uma base de dados com uma estrutura ENORME e gostaria de migrar
 essa estrutura para o Firebird. Gostaria de saber se alguém sabe de uma
 aplicação que possa fazer isso, que seja free, ou se paga, que não seja
 muito cara, pois me facilitaria não ter de gerar tudo de novo. Pensei em
 fazer apenas as rotinas de views novas e stored procedures no banco novo.
 Alguém pode me ajudar nisso?
 Estou querendo usar em Delphi 2006 com Firebird

 Sds
 Emanuel Coutinho

  




-- 
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


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



Res: [delphi-br] Como criar tarefas agendadas no windows?

2008-09-23 Por tôpico Luciano Calenzani Simões
Fala Mariz!

Olha esse exemplo aqui http://cc.codegear.com/Item.aspx?id=16007

Veja também o final desta página: 
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_22063360.html


 Luciano Calenzani Simões





- Mensagem original 
De: Ricardo Lima [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 17 de Setembro de 2008 10:34:38
Assunto: [delphi-br] Como criar tarefas agendadas no windows?


Estou precisando criar tarefas agendadas no windows alguem sabe como 
consigo fazer isso?

Obrigado.

At.
Ricardo Lima


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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



Res: [delphi-br] Re: Acessar campo num tbl

2008-09-23 Por tôpico Marcio
 Marciao, acho que agora só falta colocar o tipo do campo

Dm_Base.Tb_ProdutosValorVenda.ascurrency;

Marcio C. Tenreiro

---Mensagem original---
 
De: marcio
Data: 09/23/08 14:52:16
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Re: Acessar campo num tbl
 
Era o instaciamento dos campos mesmo q n tinha seido feitos contudo
gera ainda um erro, coloquei o meu cod assim:

vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
Dm_Base.Tb_ProdutosValorVenda);

e o erro:
[Error] UCadVendas.pas(59): Operator not applicable to this operand type

--- Em delphi-br@yahoogrupos.com.br, Marcio [EMAIL PROTECTED] escreveu

 Marcio, pelo que eu vi, os campos nao estao instanciados.
 Clique na table com o botao direito e depois em Add All Fields
 Ai ele instancia os campos. Depois disso vc consegue acessar direto via
 codigo.
 
 Com o fieldByName('nomecampo').asfloat vc consegue acessar sem
instanciar.
 Se dessa forma voce nao esta conseguindo acessar o campo, alguma
coisa esta
 errada na tabela.
 
 
 
 ---Mensagem original---
 
 De: marcio
 Data: 09/23/08 07:31:29
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Res: [delphi-br] Re: Acessar campo num tbl
 
 como assim instanciar ??
 se eu coloka assim:
 
 Dm_Base.Tb_saidaQauntidae.AsInteger * 
 (Dm_Base.Tb_Produto.SieldByName('ValorTotal').AsFloat := nltot2;
 
 Será que vai fik d boa?
 
 grato
 --- Em delphi-br@yahoogrupos.com.br, Marcio mtenreiro-cpd@ 
 escreveu
 
  Márcio, voce instanciou os campos da tabela 
  
  
  Márcio C. Tenreiro 
  
  ---Mensagem original---
  
  De: marcio
  Data: 09/22/08 16:37:15
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Re: Acessar campo num tbl
  
  alguem pod resonder ? :)
  
  --- Em delphi-br@yahoogrupos.com.br, marcio fernando_vip@ 
  escreveu
  
   estou tentando acessat um campo chamado quantidade numa tbl para
   retornar o valor num edit e ta retornando o seguinte erro:
   [Error] UCadVendas.pas(60): Undeclared identifier: 
  'Tb_SaidaValorTotal'
   o codigo da unit é:
   unit UCadVendas;
   
   interface
   
   uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, 
  Controls,
   Forms,
   Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
   
   type
   TFrm_Vendas = class(TForm)
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   Label5: TLabel;
   Label6: TLabel;
   DBLookupComboBox1: TDBLookupComboBox;
   DBLookupComboBox2: TDBLookupComboBox;
   DBText1: TDBText;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   BitBtn3: TBitBtn;
   DBEdit1: TDBEdit;
   DBEdit2: TDBEdit;
   Edit1: TEdit;
   procedure FormShow(Sender: TObject);
   procedure BitBtn1Click(Sender: TObject);
   procedure BitBtn2Click(Sender: TObject);
   procedure BitBtn3Click(Sender: TObject);
   private
   { Private declarations }
   public
   { Public declarations }
   end;
   
   var
   Frm_Vendas: TFrm_Vendas;
   
   implementation
   
   uses UDados;
   
   {$R *.dfm}
   
   procedure TFrm_Vendas.FormShow(Sender: TObject);
   begin
   Dm_Base.Tb_Saida.Open;
   Dm_Base.Tb_MotivoSaida.Open;
   Dm_Base.Tb_Produtos.Open;
   Dm_Base.Tb_Saida.Append;
   Edit1.Text := FormatFloat('00.00', 0.0);
   DbLookupComboBox1.SetFocus;
   end;
   
   procedure TFrm_Vendas.BitBtn1Click(Sender: TObject);
   var
   vltot, vltot2 : real;
   begin
   //vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
   Dm_Base.Tb_ProdutosValorVenda);
   Dm_Base.Tb_SaidaValorTotal := nltot2;
   vltot := 0;
   Edit1.Text := formatfloat('00,00', vltot);
   Dm_Base.Tb_Saida.Appdend;
   DBLookUpComboBox1.SetFocus; 
   end;
   
   procedure TFrm_Vendas.BitBtn2Click(Sender: TObject);
   begin
   Dm_Base.Tb_Saida.Delete;
   end;
   
   procedure TFrm_Vendas.BitBtn3Click(Sender: TObject);
   begin
   Close;
   end;
   
   end.
   
   Como posso resolver ?
  
  
  
  
  
  
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]



 
 

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



Re: [delphi-br] Delphi 2007 - 3 Camadas - BSS

2008-09-23 Por tôpico Luiz Carlos
fjogassa escreveu:

 Boa tarde a todos.
 Estou desenvolvendo um sistema em três camadas no Delphi 2007
 utilizando o Borland Socket Server + DatasetProvider + ClientDataSet.
 Desenvolvi o servidor e o mesmo está funcionando, aparentemente,
 iniciei o socket server na máquina cliente (Windows Vista Ultimate
 64bits). Vou no BSS e configuro o servidor e dou um connected TRUE e
 conecta também. No cliente, juntamente com o socket coloquei um
 SharedConnection apontando para este socket. Agora vem o problema, na
 tela coloco um clientdataset e configuro o remoteserver e o
 providername e na hora que vou dar um actiev TRUE ele dá access
 violation no scktsvr.exe. alguém poderia me ajudar por favor.

 Obrigado.

 Abraços.

 GTalk: [EMAIL PROTECTED] mailto:fjogassa%40gmail.com

  
Tentou fazer a conexão sem o ShareConnection?


[delphi-br] regexp

2008-09-23 Por tôpico Marcos Douglas
Senhores,
Utilizando a lib RegExp, gostaria de obter uma ajuda com expressões
regulares.
Tenho um prefixo (Ex: TT) e um sufixo (Ex: AAA).
Em uma string, por exemplo TTqqcoisaAAA eu gostaria de extrair o
qqcoisa.

Obrigado
Marcos Douglas


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



Res: [delphi-br] regexp

2008-09-23 Por tôpico Luciano Calenzani Simões
Dá pra fazer isso usando o comando COPY em combinação com o POS e LENGTH.

 Luciano Calenzani Simões





- Mensagem original 
De: Marcos Douglas [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 23 de Setembro de 2008 16:00:19
Assunto: [delphi-br] regexp


Senhores,
Utilizando a lib RegExp, gostaria de obter uma ajuda com expressões
regulares.
Tenho um prefixo (Ex: TT) e um sufixo (Ex: AAA).
Em uma string, por exemplo TTqqcoisaAAA eu gostaria de extrair o
qqcoisa.

Obrigado
Marcos Douglas


  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses

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



Re: [delphi-br] regexp

2008-09-23 Por tôpico Marcos Douglas
Certo, Luciano, mas é que este padrão estará dentro de outra string que pode
ter qq tamanho, exemplo:
xx1234TTblablaAAA
Aqui eu quero retirar o blabla, entendeu?



2008/9/23 Luciano Calenzani Simões [EMAIL PROTECTED]

 Dá pra fazer isso usando o comando COPY em combinação com o POS e LENGTH.

  Luciano Calenzani Simões





 - Mensagem original 
 De: Marcos Douglas [EMAIL PROTECTED]
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Terça-feira, 23 de Setembro de 2008 16:00:19
 Assunto: [delphi-br] regexp


 Senhores,
 Utilizando a lib RegExp, gostaria de obter uma ajuda com expressões
 regulares.
 Tenho um prefixo (Ex: TT) e um sufixo (Ex: AAA).
 Em uma string, por exemplo TTqqcoisaAAA eu gostaria de extrair o
 qqcoisa.

 Obrigado
 Marcos Douglas


   Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
 sua cara @ymail.com ou @rocketmail.com.
 http://br.new.mail.yahoo.com/addresses

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

2008-09-23 Por tôpico Luiz ESCobar

if (pos('AAA',string))  (POS('TT',string)+2) then begin // tem algo aqui no 
meio...
   DELETE( string, POS('TT',string)+2, (pos('AAA',string)) - 
(POS('TT',string)+2) );
   // se errei foi por 1 caracter 
  // testa depois diz ai...
end;




Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR 
--
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9175) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
---


From: Marcos Douglas 
Sent: Tuesday, September 23, 2008 4:11 PM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] regexp


Certo, Luciano, mas é que este padrão estará dentro de outra string que pode
ter qq tamanho, exemplo:
xx1234TTblablaAAA
Aqui eu quero retirar o blabla, entendeu?

2008/9/23 Luciano Calenzani Simões [EMAIL PROTECTED]

 Dá pra fazer isso usando o comando COPY em combinação com o POS e LENGTH.

 Luciano Calenzani Simões





 - Mensagem original 
 De: Marcos Douglas [EMAIL PROTECTED]
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Terça-feira, 23 de Setembro de 2008 16:00:19
 Assunto: [delphi-br] regexp


 Senhores,
 Utilizando a lib RegExp, gostaria de obter uma ajuda com expressões
 regulares.
 Tenho um prefixo (Ex: TT) e um sufixo (Ex: AAA).
 Em uma string, por exemplo TTqqcoisaAAA eu gostaria de extrair o
 qqcoisa.

 Obrigado
 Marcos Douglas


 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
 sua cara @ymail.com ou @rocketmail.com.
 http://br.new.mail.yahoo.com/addresses

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



Re: [delphi-br] regexp

2008-09-23 Por tôpico Joao Morais
Marcos Douglas wrote:
 Certo, Luciano, mas é que este padrão estará dentro de outra string que pode
 ter qq tamanho, exemplo:
 xx1234TTblablaAAA
 Aqui eu quero retirar o blabla, entendeu?

Salvo engano, expressão regular serve para casar, e não para extrair. 
Aqui, segundo meu humilde ponto de vista, copy/pos é melhor do que regexp.

Por via das dúvidas: http://aurelio.net/er/

--
Joao Morais


 
 
 
 2008/9/23 Luciano Calenzani Simões [EMAIL PROTECTED]
 
 Dá pra fazer isso usando o comando COPY em combinação com o POS e LENGTH.

  Luciano Calenzani Simões





 - Mensagem original 
 De: Marcos Douglas [EMAIL PROTECTED]
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Terça-feira, 23 de Setembro de 2008 16:00:19
 Assunto: [delphi-br] regexp


 Senhores,
 Utilizando a lib RegExp, gostaria de obter uma ajuda com expressões
 regulares.
 Tenho um prefixo (Ex: TT) e um sufixo (Ex: AAA).
 Em uma string, por exemplo TTqqcoisaAAA eu gostaria de extrair o
 qqcoisa.

 Obrigado
 Marcos Douglas


   Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
 sua cara @ymail.com ou @rocketmail.com.
 http://br.new.mail.yahoo.com/addresses

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

2008-09-23 Por tôpico Luiz ESCobar
What are regular expressions?
Regular Expressions are a way to search and replace patters of text. In a 
way, these patterns are like using the wildcards '?' and '*' when searching 
for files, but regular expressions are immensely more powerful than that. In 
the pattern you can specify whether the string being sought should occur at 
the beginning or end of the line, which characters are allowed, how many 
times they can be repeated and many more things.

http://www.latiumsoftware.com/en/articles/9.php

[]s
Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR 
--
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9175)
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26
---



From: Joao Morais
Sent: Tuesday, September 23, 2008 4:23 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] regexp


Marcos Douglas wrote:
 Certo, Luciano, mas é que este padrão estará dentro de outra string que 
 pode
 ter qq tamanho, exemplo:
 xx1234TTblablaAAA
 Aqui eu quero retirar o blabla, entendeu?

Salvo engano, expressão regular serve para casar, e não para extrair.
Aqui, segundo meu humilde ponto de vista, copy/pos é melhor do que regexp.

Por via das dúvidas: http://aurelio.net/er/

--
Joao Morais




 2008/9/23 Luciano Calenzani Simões [EMAIL PROTECTED]

 Dá pra fazer isso usando o comando COPY em combinação com o POS e LENGTH.

 Luciano Calenzani Simões





 - Mensagem original 
 De: Marcos Douglas [EMAIL PROTECTED]
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Terça-feira, 23 de Setembro de 2008 16:00:19
 Assunto: [delphi-br] regexp


 Senhores,
 Utilizando a lib RegExp, gostaria de obter uma ajuda com expressões
 regulares.
 Tenho um prefixo (Ex: TT) e um sufixo (Ex: AAA).
 Em uma string, por exemplo TTqqcoisaAAA eu gostaria de extrair o
 qqcoisa.

 Obrigado
 Marcos Douglas


 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
 sua cara @ymail.com ou @rocketmail.com.
 http://br.new.mail.yahoo.com/addresses

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


 

 --



[delphi-br] Atualizar Tabelas do sistema

2008-09-23 Por tôpico Pedro Henrique
Estava tentando atualizar as tabelas de sistema e não foi permitido.

Eu precisava de atualizar todos os campos do meu banco de NVARCHAR para
VARCHAR pois tenho um sistema multi banco e no Firibird não há o tipo
NVARCHAR e precisava fazer esta modificação para manter a compatibilidade
dos bancos para não atrapalhar o sistema.

 

O select abaixo me retorna todos os campos do banco com as definições e
tamanho dos campos NVARCHAR.

Abaixo do select tem o update que tentei fazer, que era trocar os NVARCHAR
para VARCHAR setando o tamanho do campo para a metade.

 

select:

 

select

  'Column_name'= name,

  'Type'   = type_name(user_type_id),

  'IdType' = user_type_id,

  'Computed'   = case when
ColumnProperty(object_id, name, 'IsComputed') = 0 then 'no' else 'yes' end,

  'Length' = convert(int, max_length),

  -- for prec/scale, only show for those types that have
valid precision/scale

  -- Search for type name + ',', because 'datetime' is
actually a substring of 'datetime2' and 'datetimeoffset'

  'Prec' = case when
charindex(type_name(system_type_id) + ',',
N'tinyint,smallint,decimal,int,real,money,float,numeric,smallmoney,date,time
,datetime2,datetimeoffset,')  0

   then
convert(char(5),ColumnProperty(object_id, name, 'precision'))

   else ' ' end,

  'Scale'= case when
charindex(type_name(system_type_id) + ',',
N'tinyint,smallint,decimal,int,real,money,float,numeric,smallmoney,date,time
,datetime2,datetimeoffset,')  0

   then
convert(char(5),OdbcScale(system_type_id,scale))

   else ' ' end,

  'Nullable'   = case when is_nullable = 0
then '@no' else 'yes' end,

  'TrimTrailingBlanks'= case ColumnProperty(object_id,
name, 'UsesAnsiTrim')

   when 1 then 'no'

   when 0 then 'yes'

   else '(n/a)' end,

  'FixedLenNullInSource'  = case

   when type_name(system_type_id) not in
('varbinary','varchar','binary','char')

 then '(n/a)'

   when is_nullable = 0 then 'no' else 'yes'
end,

  'Collation'   = collation_name

from sys.all_columns 

--where object_id = (select object_id/*, @sysobj_type = type*/ from
sys.all_objects where object_id = object_id('MENU'))

where object_id  100

and type_name(user_type_id) in ('nvarchar','varchar')

 

 

update:

update sys.all_columns 

set max_length = (max_length/2),

user_type_id = 167

where user_type_id = 231

and object_id  100

and type_name(user_type_id) = 'nvarchar'

 

Erro:

Mensagem 259, Nível 16, Estado 1, Linha 1

As atualizações ad hoc em catálogos do sistema não são permitidas.

 

 

Parte superior do formulário

Parte inferior do formulário

Parte superior do formulário

  _  

Atenciosamente,

 


http://www.vienasistemas.com.br/assinatura.png

 Pedro Henrique Gomes 
 Projetos e Desenvolvimento 


 


( 

 MG (37) 3213-4855


* 

  mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]


8 

  http://www.vilesoft.com.br/ www.vilesoft.com.br


 

http://www.vienasistemas.com.br/images/bn_franquia_pegn.gif

Parte inferior do formulário

Parte superior do formulário

O emitente desta mensagem é responsável por seu conteúdo e endereçamento.
Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida
autorização, a divulgação, a reprodução, a distribuição ou qualquer outra
ação em desconformidade com as normas internas da Vilesoft são proibidas e
passíveis de sanção disciplinar, cível e criminal. 

The sender of this message is responsible for its content and addressing.
The receiver shall take proper care of it. Without due authorization, the
publication, reproduction, distribution or the performance of any other
action not conforming to Vilesoft internal policies and procedures is
forbidden and liable to disciplinary, civil or criminal sanctions. 

 El emisor de este mensaje es responsable por su contenido y
direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la
debida autorización, su divulgación, reproducción, distribución o cualquier
otra acción no conforme a las normas internas de Vilesoft están prohibidas y
serán pasibles de sanción disciplinaria, civil y penal. Parte inferior do
formulário

 

 



[As 

[delphi-br] [Off] Vaga para estágio em Delphi

2008-09-23 Por tôpico Adriano Santos (Yahoo)
Caros amigos,

Abrimos uma vaga para estágio em desenvolvimento de sistemas.
Desejável conhecimentos em:

- Delphi;
- Firebird;
- IntraWeb/VCL for Web;
- HTML;
- Noções de desenvolvimento para Web.

Cursando do 1º ao 4º ano de faculdade na área de informática.

Vaga para São Paulo, Capital na região do Itaim Bibi.
Interessados enviar e-mail para [EMAIL PROTECTED]

Benefícios: Vale Transporte

Possibilidade de efetivação

-- 
Boa Leitura,

Adriano Santos
Gerente de TI




Re: [delphi-br] regexp

2008-09-23 Por tôpico Marcos Douglas
 [...]search and replace [...]
Posso procurar, obter o padrão que eu quero, e depois extrair somente o meio
(sem prefixo e sem sufixo).
Acho que utilizando RegExp fica muito mais fácil de ler do que utlizar POS e
IF's.
Como vcs fariam pra testar se um email é válido com POS e IF's? Em RegExp é
isso: '[EMAIL PROTECTED](\.[\w\d\-]+)+'

Abraços
Marcos Douglas

2008/9/23 Luiz ESCobar [EMAIL PROTECTED]

 What are regular expressions?
 Regular Expressions are a way to search and replace patters of text. In a
 way, these patterns are like using the wildcards '?' and '*' when searching
 for files, but regular expressions are immensely more powerful than that.
 In
 the pattern you can specify whether the string being sought should occur at
 the beginning or end of the line, which characters are allowed, how many
 times they can be repeated and many more things.

 http://www.latiumsoftware.com/en/articles/9.php

 []s
 Luiz Escobar - Analista/Desenvolvedor:
 WEB - HTML/JavaScript/PHP/MySQL
 WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
 SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
 HARBOUR
 --
 Borland C++ 5.5.1 (32 bit)
 Harbour 1.0.0 Intl. (Rev. 9175)
 xHarbour Compile build 1.1.0 (Simplex)
 Harbour MiniGUI 1.5 Extended Edition (Build 55) - 2008.08.26

 ---



 From: Joao Morais
 Sent: Tuesday, September 23, 2008 4:23 PM
 To: delphi-br@yahoogrupos.com.br
 Subject: Re: [delphi-br] regexp


 Marcos Douglas wrote:
  Certo, Luciano, mas é que este padrão estará dentro de outra string que
  pode
  ter qq tamanho, exemplo:
  xx1234TTblablaAAA
  Aqui eu quero retirar o blabla, entendeu?

 Salvo engano, expressão regular serve para casar, e não para extrair.
 Aqui, segundo meu humilde ponto de vista, copy/pos é melhor do que regexp.

 Por via das dúvidas: http://aurelio.net/er/

 --
 Joao Morais

 
 
 
  2008/9/23 Luciano Calenzani Simões [EMAIL PROTECTED]
 
  Dá pra fazer isso usando o comando COPY em combinação com o POS e
 LENGTH.
 
  Luciano Calenzani Simões
 
 
 
 
 
  - Mensagem original 
  De: Marcos Douglas [EMAIL PROTECTED]
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 23 de Setembro de 2008 16:00:19
  Assunto: [delphi-br] regexp
 
 
  Senhores,
  Utilizando a lib RegExp, gostaria de obter uma ajuda com expressões
  regulares.
  Tenho um prefixo (Ex: TT) e um sufixo (Ex: AAA).
  Em uma string, por exemplo TTqqcoisaAAA eu gostaria de extrair o
  qqcoisa.
 
  Obrigado
  Marcos Douglas
 
 
  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
  sua cara @ymail.com ou @rocketmail.com.
  http://br.new.mail.yahoo.com/addresses
 
  [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]



[delphi-br] Erro WebService com PROCEDURE TIPADA

2008-09-23 Por tôpico douglasmmm
Em um WSDL a seguite PROCEDURE esta declarada:
   procedure Z_RFC_WS_SILOS_EST(const IDCAB: IDCAB; out MSG_TEXT: 
MSG_TEXT; out SUBRC: SUBRC); stdcall;

porém ao tentar compilar o código:

var 
   SolicitacaoServico : Z_RFC_WS_SILOS_ESTPortType;
   msg : MSG_TEXT;
   vIdCab : IDCAB;
   vSUBRC : SUBRC;
begin
  inherited;
  vIdCab := '7957261';

  SolicitacaoServico := HTTPRIO1 as Z_RFC_WS_SILOS_ESTPortType;

  sMsg := SolicitacaoServico.Z_RFC_WS_SILOS_EST(vIdCab, msg, vSUBRC);

a seguite mensagem de erro é apresentada:
  [Error] uFrmCancelaNF.pas(181): Incompatible types: 'Integer' 
and 'procedure, untyped pointer or untyped parameter'

Alguem tem alguma dica?



[delphi-br] Mais uma dúvida Importante !

2008-09-23 Por tôpico victor_scampini
Boa tarde amigos, tudo bem ?, tenho mais uma dúvida...não tão 
complicada, porém não estou conseguindo resolve-lá...Eu tenho uma 
tabela e quero que se não for o último dado cadastrado passe para o 
próximo dado cadastrado...Quando eu clico no botão para dar próximo, 
antes ele faz a verificação abaixo...
Eu fiz assim, mas não deu certo :

Begin
if not Dm.cds_sub_montadora.Last then
Dm.cds_sub_montadora.Next;
End;

Se vocês poderem me ajudar ficarei muito grato...se não entenderem 
alguma coisa podem perguntar Ok ?...Obrigado desde já !

Abraço !



Re: [delphi-br] Mais uma dúvida Importante !

2008-09-23 Por tôpico JB
Dm.cds_sub_montadora.Eof

2008/9/23 victor_scampini [EMAIL PROTECTED]:
 Boa tarde amigos, tudo bem ?, tenho mais uma dúvida...não tão
 complicada, porém não estou conseguindo resolve-lá...Eu tenho uma
 tabela e quero que se não for o último dado cadastrado passe para o
 próximo dado cadastrado...Quando eu clico no botão para dar próximo,
 antes ele faz a verificação abaixo...
 Eu fiz assim, mas não deu certo :

 Begin
 if not Dm.cds_sub_montadora.Last then
 Dm.cds_sub_montadora.Next;
 End;

 Se vocês poderem me ajudar ficarei muito grato...se não entenderem
 alguma coisa podem perguntar Ok ?...Obrigado desde já !

 Abraço !

 



-- 
Att.

-- 

José Benedito
Software Developer
[EMAIL PROTECTED]
(19) 8116-7826


Re: [delphi-br] Mais uma dúvida Importante !

2008-09-23 Por tôpico JB
não Last, Eof...

2008/9/23 JB [EMAIL PROTECTED]:
 Dm.cds_sub_montadora.Eof

 2008/9/23 victor_scampini [EMAIL PROTECTED]:
 Boa tarde amigos, tudo bem ?, tenho mais uma dúvida...não tão
 complicada, porém não estou conseguindo resolve-lá...Eu tenho uma
 tabela e quero que se não for o último dado cadastrado passe para o
 próximo dado cadastrado...Quando eu clico no botão para dar próximo,
 antes ele faz a verificação abaixo...
 Eu fiz assim, mas não deu certo :

 Begin
 if not Dm.cds_sub_montadora.Last then
 Dm.cds_sub_montadora.Next;
 End;

 Se vocês poderem me ajudar ficarei muito grato...se não entenderem
 alguma coisa podem perguntar Ok ?...Obrigado desde já !

 Abraço !

 



 --
 Att.

 --
 
 José Benedito
 Software Developer
 [EMAIL PROTECTED]
 (19) 8116-7826




-- 
Att.

-- 

José Benedito
Software Developer
[EMAIL PROTECTED]
(19) 8116-7826


[delphi-br] Ajuda com BD e SQL

2008-09-23 Por tôpico tetraetila®
Olá pessoal!

Estou migrando um sistema para Firebird e me deparei com um problema que 
gostaria de debater com vocês. 
Tenho um BD que possui as tabelas com os dados de clientes, fornecedores, 
transportadores e vendedores, além
das tabelas de tipos de documentos, plano de contas, bancos, etc. Seria a base 
principal.

Quando estou na Empresa01 faço um select que me retorna o tipo de documento 
na tabela A017 e a descrição do 
documento que está na tabela A014,  o tipo de fornecedor na tabela A017 e o 
nome do fornecedor  na tabela A001
e por aí vai, vendedores, transportadores, plano de contas, etc. A tabela A017 
é de movimentação de contas a pagar, porém no sistema
eu trabalho com as Empresas02, 03, n... As tabelas padrões são as mesmas, eu 
mudo apenas os arquivos de movimentação
para outro BD. O problema é que eu não sei como fazer isto ou se é possível 
fazê-lo no Firebird.  Ou seja, dar um select que 
busque dados em dois BD's distintos. Quando o banco de dados é o mesmo o 
select abaixo  funciona perfeitamente, 
porém quando mudo para a Empresa02 não funciona, pois não sei buscar as 
informações das tabelas A014 - 
A001 - A016 - A011 que estão no BD001. Isto que necessito seria em Postgres, um 
DBLink, já andei pesquisando.

Se alguém tiver uma sugestão que possa me ajudar mesmo que seja fazer o 
DBLink no Postgress, agradeço desde já. 
Pois esta está sendo a pedra no meu caminho para terminar o sistema, 
resolvendo isto vários problemas serão
solucionados de uma vez só. Estamos saindo do Clipper e DBF.

Muito obrigado!

Vejam o select que funciona quando o BD é único:

select a017.a017_docu, a017.a017_tipo, A014_DESC, a017.a017_dtem,
a017.a017_tpfo, a017.a017_forn, A001_NOME, a017.a017_hist,
a017.a017_dtvn, a017.a017_vavn, a017.a017_dtpg, a017.a017_vapg,
a017.a017_atra, a017.a017_cdbx, a017.a017_banc, A016_DESC,
a017.a017_cheq, a017.a017_his1, a017.a017_digi, a017.a017_plan, A011_DESC,
a017.a017_dupl, a017.a017_docu as ca017_docu, a017.a017_tipo as ca017_tipo

from a001017_tbl a017

   left outer join a001014_tbl on (a017.a017_tipo = a001014_tbl.a014_chv)
   left outer join a001001_tbl on (a017.a017_tpfo = a001001_tbl.a001_tipo) and  
(a017.a017_forn = a001001_tbl.a001_chv)
   left outer join a001016_tbl on (a017.a017_banc = a001016_tbl.a016_chv)
   left outer join a001011_tbl on (a017.a017_plan = a001011_tbl.a011_redu)


O que retornaria mais ou menos conforme abaixo:

-
A017_DOCU | A017_TIPO | A014_DESC | A017_DTEM | A017_TPFO | A017_FORN | 
A001_NOME   |
-
52.521-U| 003  | Duplicatas  |16/09/2008  | 001 
  | 000565  | Santa Maria S/A.|
--
36.878-A| 005  | Cheques |16/08/2008 | 001  
 | 98  | Papelão  Cia.|
--
14.315-B| 001  | Pagamentos |16/09/2007| 001
   | 01  | Pagamentos diversos|
--


Adilson Nunes


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



Re: [delphi-br] Fast Report

2008-09-23 Por tôpico Luis Hilário Tobler Garcia
Obrigado Silvio.

  - Original Message - 
  From: Silvio Clécio 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, September 23, 2008 11:41 AM
  Subject: Res: [delphi-br] Fast Report


  Olá pessoal,
   
  Veja o FreeReport e o VDOPrint, eles são free e muito bons, tem exemplos 
compilados para você testar antes de instalar no Delphi, acesse o link: 
http://www.4shared.com/dir/5679510/48848609/Uploads.html
   
  Um abraço a todos!
  Silvio Clécio
   
  - Mensagem original 
  De: [EMAIL PROTECTED] [EMAIL PROTECTED]
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 23 de Setembro de 2008 10:34:14
  Assunto: [delphi-br] Fast Report

  Também estou procurando um gerador de relatórios, atualmente uso o Report
  Builder e gostaria de migrar para um gerador que oferecesse mais ou menos
  o que o Report Builder oferece porém, que fosse freeware. Alguém poderia
  sugerir algum?

  Obrigado, Luis Hilário.
  . __ 

  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail.com.
  http://br.new.mail.yahoo.com/addresses

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



   

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