Re: [delphi-br] Fui demitido de uma grande Empresa que adotava o MS-SQL Server - E agora?

2006-07-14 Por tôpico André Moraes - DJSystem
Esse link não abre.
- Original Message - 
From: Ailton Branco [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 13, 2006 9:58 AM
Subject: Re: [delphi-br] Fui demitido de uma grande Empresa que adotava o 
MS-SQL Server - E agora?


tenta usar o sqlserver 2005 express... acho que pode te ajudar... da uma 
olhada nas vantagens dele e ve se adapta para vc... e e free
  - Original Message - 
  From: ricardofloressql
  To: delphi-br@yahoogrupos.com.br
  Sent: Thursday, July 13, 2006 2:41 AM
  Subject: [delphi-br] Fui demitido de uma grande Empresa que adotava o 
MS-SQL Server - E agora?


  Caso real que acabo de responder e incorporar no FAQ de meu site

  http://www.ricardodefaria.com/ricardoflores

  Ricardo, eu era o programador de uma grande Empresa que adotava o MS-
  SQL Server. O Sistema que criei usava Stored Procedures e Funções do
  MS-SQL Server.
  Fui despedido por Corte de Custos.
  Agora tenho um Código Fonte que só funciona no MS-SQL Server.
  Recentemente peguei um cliente que não pode pagar pelo MS-SQL Server e
  gostaria de adotar o Interbase 6.0 ou Firebird que são de graça.
  Por favor, ajude-me. O que eu faço ?

  Adquira o Livro O Caminho das Pedras (O Filme), que você não ficará
  mais escravo de um Servidor de Banco de Dados.

  http://www.ricardodefaria.com/ricardoflores/pFAQ.htm





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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



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]
 
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 em applyuptades Unable to find record. No key specified

2006-07-10 Por tôpico André Moraes - DJSystem
Caso seu select esteja com algum JOIN, nos campos que vem da tabela 
relacionada, mudo os provideflags todos para false.

- Original Message - 
From: Jader Ricardo [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 10, 2006 3:39 PM
Subject: [delphi-br] Erro em applyuptades Unable to find record. No key 
specified


Boa tarde amigos !

Ainda estou pesquisando e aprendendo sobre o uso dos componentes
TSQLConnection+TSQLQuery+TDataSetProvider+TClientDataSet.

No momento estou com um problema que ainda não consegui resolver, então
gostaria da ajuda de vocês. É o seguinte, tenho um cadastro que é
mestre-detalhe. Para isso uso assim, eu incluo todos os campos na
propriedade fielddefs, então nas propriedades do campo código adiciono em
provideflags [pfInKey] para que o dataSet o entenda como chave primária (no
dataset mestre e no dataset detalhe faço isso na chave). Em updateMode do
TDataSetProvider utilizo upWhereKeyOnly para gerar o comando sql na cláusula
where.

Para a inserir, deletar e alterar os dados do Dataset mestre funciona
corretamente. Para alterar e deletar os dados do dataset detalhe ele me
retorna o seguinte erro: Unable to find record. No key specified.

Com upWereAll funciona, só que ele gera um comando sql com todos os campos
em where.

Creio que estou fazendo algo errado, alguém poderia me ajudar ?

Atenciosamente,
Jader Ricardo


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



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]
 
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] Valor por extenso

2006-07-06 Por tôpico André Moraes - DJSystem
No pacote ACBr existe um componente para gerar extenso.

acesse http://acbr.sf.net

- Original Message - 
From: Fernando Luiz Bortolanzza [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 06, 2006 1:59 PM
Subject: RES: [delphi-br] Valor por extenso


Peguei o pacotinho e tal, mas dentro do zip não tem nenhum .pas, como fiz no
leime para fazer a instalação :(


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Campus
Enviada em: quinta-feira, 6 de julho de 2006 13:50
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Valor por extenso

procure nessa página por TExtenso

http://www.revolution.com.br/delphistop/comps.htm


- Original Message - 
From: Fernando Luiz Bortolanzza [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 06, 2006 1:30 PM
Subject: [delphi-br] Valor por extenso


Alguem ai tem uma função que passa o valor em real e retorna o texto do
valor por extenso?



Atenciosamente,

-

Fernando Luiz Bortolanzza

Analista de desenvolvimento de sistemas
CoreSinPR - http://www.corepr.org.br http://www.corepr.org.br/
Fone: +55 (41) 3223-5213  R.212
-





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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos













-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



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]
 
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] Path do Windows

2006-07-06 Por tôpico André Moraes - DJSystem
Diretório de instalação do windows
function PegaSysDir: string;
var
MeuBuffer: Array [1..128] of Char;
retorno: Integer;
Begin
retorno:=GetSystemDirectory(@MeuBuffer,128);
if (retorno128) OR (retorno=0) then
PegaSysDir:=''
else
PegaSysDir:=StrPas(@MeuBuffer);
End; {prc}

- Original Message - 
From: Luis [EMAIL PROTECTED]
To: Delphi-Br delphi-br@yahoogrupos.com.br
Sent: Thursday, July 06, 2006 3:05 PM
Subject: [delphi-br] Path do Windows


 Galera tem alguma função que acha o path aonde esta instalado o windows.?

 ex.: F:\windows\

 -- 
 
 Grato pelo atenção

  Luís



 ___
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
 Registre seu aparelho agora!
 http://br.mobile.yahoo.com/mailalertas/




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



 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]
 
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] Re: Dbexpress X Exception (do firebird)

2006-07-04 Por tôpico André Moraes - DJSystem
Se vc estiver usando um ClientDataSet, coloque no evento OnReconcileError 
ShowMessage(E.Message); que vc verá o pq seu registro nao está sendo 
gravado.
- Original Message - 
From: jader_ricarddo [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, July 04, 2006 2:44 PM
Subject: [delphi-br] Re: Dbexpress X Exception (do firebird)


Olá Murillo, obrigado pela dica !

Ali em baixo no seu exemplo qdo vc diz deu pau era isso que eu
gostaria de mostrar ao usuário.

Se eu fizer a verificação do ApplyUpdates eu posso mostrar uma
mensagem qualquer, mas, imaginemos que eu tenha 2 verificações na
trigger, ai lá pela segunda verificação dá o erro (exception), eu
gostaria de mostrar ao usuário aquele erro aproveitando o texto da
exception.

Quando eu usava o IBX se eu não tratasse nada aparecia o erro mas
agora em meus testes com o Dbexpress este erro não aparece.

Não sei se consegui me expressar bem, mas ... preciso de ajuda ...

Desde já agradeço sua atenção ...
Jader Ricardo

--- Em delphi-br@yahoogrupos.com.br, Murillo Proença
[EMAIL PROTECTED] escreveu

 Verifica o retorno do seu ApplyUpdates(0)

 if ApplyUpdates(0)  0 then
   deu pau
 end;

 --- Em delphi-br@yahoogrupos.com.br, Jader Ricardo [EMAIL PROTECTED]
 escreveu
 
  Boa tarde amigos !
 
  D7 + Dbexpress + firebird 1.5
 
  Tenho uma trigger que é executada antes do registro ser gravado
em
 uma
  tabela, esta trigger faz uma verificação e dependendo do
resultado
 ele gera
  uma exceção (exception).
 
  Na minha aplicação, quando realizo um ApplyUpdates(0) em
execução a
 exceção
  não aparece, o registro não grava mas deveria dar uma mensagem
de
 erro,
  certo ?
 
  A mensagem de erro só aparece quando estou em desenvolvimento
 (debug).
  Alguém tem uma dica de como corrigir isto ?
 
  Vejam o código ?
 
  If (Dm.CdsAca.Active = False) Then
  Begin
Showmessage('Não há dados para gravar');
Exit;
  End
Else
  Begin
Try
  Begin
Dm.CdsAca.Post;
Dm.CdsAca.ApplyUpdates(0);
Showmessage('Registro inserido com sucesso.');
  End;
Except
  Begin
Showmessage('O registro não pode ser inserido.');
Exit;
  End;
End;
  End;
 
  Atenciosamente,
  Jader Ricardo
 
 
  [As partes desta mensagem que não continham texto foram
removidas]
 








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



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]
 
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] Recebendo Parâmetros na aplicaçã o.

2006-07-03 Por tôpico André Moraes - DJSystem
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
for I := 1 to ParamCount do begin
  if ParamStr(I) = '/sai' then
  Application.Terminate;
end;

- Original Message - 
From: FILIPE GMAIL [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 03, 2006 9:55 AM
Subject: [delphi-br] Recebendo Parâmetros na aplicação.


Bom Dia Pessoal, alguém sabe como posso receber parâmetros passados pela 
linha de comando para  a minha aplicação

ex:

c:\teste.exe -x - 12

onde x e 12 seriam variáveis que eu receberia e trataria dentro do 
executável teste.exe.


Obrigado, Filipe.

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



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]
 
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 de conexao usando o FB e dbXpress_somente no cliente_

2006-06-22 Por tôpico André Moraes - DJSystem
Se vc estiver usando WIN98 este arquivo está dentro da pasta c:\windows\; se 
for XP ele está em c:\windows\system32\drivers\etc.

Procure nele a linha gds_db 3050/tcp, e caso não exista, acrescente.
  - Original Message - 
  From: Welson Avelar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 22, 2006 2:35 PM
  Subject: Re: [delphi-br] Erro de conexao usando o FB e dbXpress_somente no 
cliente_


  --- André Moraes - DJSystem escreveu:
   Verifique se o arquivo services contém a linha tcp_gb 3050/TCP
  [--x--]

  [Welson] Arquivo services !? Eu procurei por esse arquivo aqui, mas não
  encontrei um que fosse relacionado ao FB. Se você se refere ao services,
  dentro de Ferramentas Administrativas, lá está com o FB sendo iniciado
  automaticamente.

  Obrigado pela atenção. Té mais. ;-)

  =
  O que me preocupa não é o grito dos maus. É o silêncio dos bons.
  Martin Luther King.
  =
  Welson de Avelar Soares Filho
  Analista/Programador Delphi
  Gemini Sistemas
  www.geminisistemas.com.br
  Juiz de Fora - Minas Gerais
  =







  
  ___ 
  Yahoo! doce lar. Faça do Yahoo! sua homepage. 
  http://br.yahoo.com/homepageset.html 

   

[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]
 
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] lista de arquivos de uma pasta

2006-06-07 Por tôpico André Moraes - DJSystem
Abaixo uma dica retirada do arquivo DTDelphi 2.7:

840 - Listar Arquivos de Um Diretório

uma dica sobre como listar qualquer tipo de arquivos de um diretorio. o toque 
especial dessa procedure e que ela pode entrar em todos os diretorios que estão 
dentro do diretorio inicial, para procurar arquivos do tipo especificado.

parametros da procedure:

diretorioinicial - diretorio que a procedure comeca a sua busca ex: c:\windows\ 
ou ainda c:\ mascara - mascara de arquivo ex: *.txt ou ainda *.* listtotaldir - 
quando true, ela fornece o caminho completo recursive - quando true, ativa a 
busca do arquivo dentro de outros diretorios, que estao dentro do diretorio 
inicial

obs.:O form que ira chamar esta função deve possuir uma variavel global 
declarada da sequinte forma

listtemp2:Tstrings; 


ele deve ser criada com o comando


listtemp2 := TstringList.Create;


depois de chamada a procedure o resultado final estara nesta variavel


procedure ListarArquivos(diretorioInicial, mascara: string; listtotaldir: 
boolean = false; recursive: boolean = true);
var
  i: integer;
  listatemp: TStrings;
  procedure ListarDiretorios(Folder: string; lista: Tstrings);
  var
Rec: TSearchRec;
i: integer;
temps: string;
  begin
lista.Clear;
if SysUtils.FindFirst(Folder + '*', faDirectory, Rec) = 0 then
try
  repeat
lista.Add(rec.Name);
  until SysUtils.FindNext(Rec)  0;
finally
  if lista.count  0 then
  begin
// deleta o diretorio ..
lista.Delete(1);
// deleta o diretorio .
lista.Delete(0);
i := 0;
//deleta os arquivos isto e fica apenas os diretorios
if lista.count  0 then
begin
  repeat
temps := lista.Strings[i];
temps := extractfileext(temps);
if temps  '' then
  lista.Delete(i)
else
  inc(i);
  until i = lista.Count;
end;
  end;
end;
  end;

  procedure ListarAtahos(Folder, mask: string; Lista: Tstrings);
  var
Rec: TSearchRec;
  begin
lista.Clear;
if SysUtils.FindFirst(Folder + mask, faAnyFile, Rec) = 0 then
try
  repeat
lista.Add(rec.Name);
  until SysUtils.FindNext(Rec)  0;
finally
  SysUtils.FindClose(Rec);
end;
  end;

  procedure AddLIstInOther(ListSource, ListDestino: TStrings);
  var
f: integer;
  begin
for f := 0 to ListSource.Count - 1 do
begin
  ListDestino.Add(ListSource.Strings[f]);
end;
  end;
begin
  listatemp := TStringList.Create;
  ListarAtahos(diretorioInicial, mascara, listatemp);
  if listtotaldir = true then
  begin
for i := 0 to listatemp.Count - 1 do
begin
  listatemp.Strings[i] := diretorioInicial + listatemp.Strings[i];
end;
  end;
  AddLIstInOther(listatemp, listtemp2);
  if recursive = true then
  begin
ListarDiretorios(diretorioInicial, listatemp);
for i := 0 to listatemp.Count - 1 do
begin
  ListarArquivos(diretorioInicial + listatemp.Strings[i] + '\', mascara, 
listtotaldir, recursive);
end;
  end;
  listatemp.Free;
end;



exemplo:
coloca-se um listbox, e um button no form.
depois declara-se a variavel global no form
ex:


var
  Form1: TForm;
  listtemp2: TStrings;



e no evento onclick do button a seguinte procedure



listtemp2 := TStringList.Create;
ListarArquivos('c:\windows\', '*.exe', true, true);
listbox1.items := listtemp2;
listtemp2.free;
  - Original Message - 
  From: Rubem Nascimento da Rocha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 07, 2006 8:31 AM
  Subject: RE: [delphi-br] lista de arquivos de uma pasta



  Não existe função pronta para isso. Vc deverá criar uma função própria 
  usando as funções FindFirst(), FindNext() e FindClose() da unit SysUtils. Ao 
  consultar informações sobre essas funções no help do Delphi, haverá um link 
  ilustrando exemplo de como usar essas funções. Use o exemplo e crie sua 
  própria função. Sds.

  From: Filipe Belchior [EMAIL PROTECTED]
  Reply-To: delphi-br@yahoogrupos.com.br
  To: delphi-br@yahoogrupos.com.br
  Subject: [delphi-br] lista de arquivos de uma pasta
  Date: Tue, 06 Jun 2006 14:18:51 -0300
  
  olá galera,
  
  como eu consigo, de preferência numa list,
  o nome dos arquivos de uma pasta? para windows
  
  pensei em usar o TFileListBox, mas ele é visual,
  não to precisando visual.. será q existe alguma
  função na unit Windows?
  
  
  FILIPE BELCHIOR
  
  
  
  ___
  Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular 
  e anti-spam realmente eficaz.
  http://mail.yahoo.com.br/

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

   

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

Re: [delphi-br] ComboBox / Banco de Dados ? Como ?

2006-06-07 Por tôpico André Moraes - DJSystem
Vc pode usar um DbLookupComboBox  onde o list source será a tabela com a 
descrição e o ID e o data source a tabela de destino.

A propriedade KeyField vc seta com o campo ID, pois assim será retornado para 
seu datasource apenas o ID e não a descrição.
  - Original Message - 
  From: FILIPE GMAIL 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 06, 2006 9:05 AM
  Subject: Re: [delphi-br] ComboBox / Banco de Dados ? Como ?


  Faz um vetor dinamico armazenando os códigos. (aproveita o while), mas eu 
acho que o mais fácil é o lookupdbcombobox, pois vc pode pegar pelo value qual 
o id que vc quer, sem precisar setar em outra tabela. A solução do Elazar é 
boa, mas mais trabalhosa.

  []s, Filipe.
- Original Message - 
From: Yahoo 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, June 06, 2006 8:27 AM
Subject: RES: [delphi-br] ComboBox / Banco de Dados ? Como ?


Bom dia Haylo;

Resolve, se voce fizer uma nova busca na sua tabela onde o campo
descricao for igual ao escolhido, mas 
Vai dar problema em decidir qual dos registros no caso de a descricao
estiver repetida.

A alternativa que eu deixo, seria criar uma janela para este tipo de
buscas, ai nesta janela o usuario vai ver todos os registros (que voce
esta mostrando no combo), poder decidir entre eles.

No momento que der um ok (usuario escolheu) esta janela devolve um id,
que vai parar no campo de onde
Originou a consulta (voce tem que programar isto...logico)

Atenc.
Elazar


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Haylo Silva
Enviada em: segunda-feira, 5 de junho de 2006 18:40
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ComboBox / Banco de Dados ? Como ?


Olá Pessoal,

Estou com dificuldades em encontrar uma solução que resolva a seguinte 
situação:

Tenho uma tabela com 2 campos (ID e Descrição), no qual quero exibir

uma relação de descrições contidas nesta tabela para o usuário. Eu 
consigo colocar os registros em uma combobox tranquilamente (usando uma 
Query + While..etc), porém preciso que o combo retorne somente o campo 
ID. Não estou utilizando o DbLookupComboBox devido eu precisar somente

do código.

Estrutura Atual: Banco de Dados ACCESS utilizando ADO e não utilizando 
nenhum objeto TTABLE

Abraço,

Haylo Neto




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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!. 



___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular 
e anti-spam realmente eficaz. 
http://mail.yahoo.com.br/ 
 

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

   

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






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* 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]
 
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] Estrutura Do Relatório

2006-06-07 Por tôpico André Moraes - DJSystem
Vc deverá criar um relatório com grupos, nunca trabalhei com o reporterbuilder, 
mas no quick report é bem simples de ser feito.

Vc deve ter uma tabela com os nomes dos fornecedores e outra com os dados da 
venda. Liga-las atráves da propriedade master source e acrescentar uma banda 
QRGroup e QRDetail.

O relatório seria exibido da seguinte maneira:

FornecedorD. CompraV. Compra

Usina Goioere
01/06/2006R$ 380,41
02/06/2006R$ 330,37
06/06/2006R$ 570,01


  - Original Message - 
  From: Cleiton 
  To: Delhpi 
  Sent: Wednesday, June 07, 2006 10:43 AM
  Subject: [delphi-br] Estrutura Do Relatório


  Olá pessoal...

  Estou com um pequeno probleminha pra gerar um relatório e acho que não é 
difícil de resolver.

  No sistema, tenho um relatório de compras por fornecedor, ou seja, o cliente 
escolhe o fornecedor e são listados todas as compras referente aquele 
fornecedor.

  A estrutura do relatório fica assim:

  FornecedorD. CompraV. Compra

  Usina Goioere01/06/2006R$ 380,41
  Usina Goioerê02/06/2006R$ 330,37
  Usina Goioerê06/06/2006R$ 570,01

  No entanto eu gostaria que essa estrutura do relatório ficasse dessa forma:

  FornecedorD. CompraV. Compra

  Usina Goioere01/06/2006R$ 380,41
  02/06/2006R$ 330,37
  06/06/2006R$ 570,01

  Eu uso delph7, MySql e para geração dos relatório u uso o componente 
ReportBuider.

  Um grande abraço a todos
  Cleiton
  -- 
  Esta mensagem foi verificada pelo sistema de antivírus e
  acredita-se estar livre de perigo.



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

   

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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* 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]
 
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] Re: Emissão De Cupom Fiscal - and ré luis

2006-06-06 Por tôpico André Moraes - DJSystem
Pelo erro que está dando, de acesso negado, provavelmente vc esteja executando 
algum outro aplicativo que esteja usando a COM que o ACBr está tentando 
utilizar.

Vc deve ter duas portas COM para poder usar o ACBr com o emulador na Bematech, 
usando um cabo ligando as duas portas. Para fazer este cabo, vc encontra as 
informações no site da bematech.
  - Original Message - 
  From: Cleiton 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 06, 2006 9:51 AM
  Subject: [delphi-br] Re: Emissão De Cupom Fiscal - andré luis


  Oi André Luis... tudo bom?

  Assimo como você indicou, entrei no site do SourcForge.net e fiz o download 
  dos componentes ABCr.

  Instalei e comecei a testar. Também estou conseguindo entender sem problemas 
  o funcionamento do componente.

  O detalhe é que não tenho a impressora fiscal pra poder testar.

  Encontrei no site da Bematech um aplicativo que simula a impressora fiscal. 
  No entanto, não está dando certo com os componentes ABCr.

  Sempre que vou usar o compoente dá um erro de acesso negado.

  Será que estou fazendo alguma coisa errado ou o comoponente realmente não 
  funciona com o emulador da impressora?

  Você por acaso não conhece algum outro aplicativo que poderia simular a 
  impressora ou realmente  vou ter que conseguir uma impressora?

  De qualquer forma, muito obrigado pela dica. Se não fosse isso eu ainda 
  estaria perdidinho.

  E obrigado também aos demais companheiros que de alguma forma colaboraram 
  para com esse pequeno problema.
  - Original Message - 
  From: Andre Luis [EMAIL PROTECTED]
  To: delphi-br@yahoogrupos.com.br
  Sent: Friday, June 02, 2006 3:15 PM
  Subject: Re: [delphi-br] Emissão De Cupom Fiscal


   Vai no http://www.sf.net e procura por ACBr, é um componente que
   implementa os cupons para quase todas as marcas de impressoras do
   mercado. Muito simples de usar, vem com um demo muito bom de entender.
  
  
   -- 
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
   Links do Yahoo! Grupos
  
  
  
  
  
  
  
  
  
  
   -- 
   No virus found in this incoming message.
   Checked by AVG Free Edition.
   Version: 7.1.394 / Virus Database: 268.8.1/355 - Release Date: 02/06/2006
  
   


  -- 
  Esta mensagem foi verificada pelo sistema de antivírus e
  acredita-se estar livre de perigo.

   

[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]
 
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] Codigo de Barra

2006-06-05 Por tôpico André Moraes - DJSystem



Acesse o endereço http://acbr.sf.net/Boleto e conheça o componente open source para trabalhar com geração de boletos bancários.
 - Original Message - 
 From: Moked - Tamara (Brazil) 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Monday, June 05, 2006 8:52 AM
 Subject: RES: [delphi-br] Codigo de Barra


 Bom dia,

 Existem vários componentes param gerar código de barras, eu só ñ saberei lhe indicar nem o melhor e nem nenhum para D7, mas acredito q dando uma procuradinha na net(delphi.eti, activedephi...etc) vc encontre um leque de componentes para vc escolher...

 Tamara Clemente - Suporte Técnico
 Moked do Brasil - Consultoria de Segurança Empresarial
 Divisão MokInf de Informática
 PABX: (55-11) 5071-2748
 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] 
 www.moked.com.br http://www.moked.com.br/ 


 

 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Dobhermad
 Enviada em: segunda-feira, 5 de junho de 2006 08:46
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Codigo de Barra


 Bom dia a todos!
 
 Seguinte estou precisando criar um sistema de boleto bancario para a empresa, e tenho uma dificuldade de estar criando os codigos de barra só que ai que mora o perigo, por que eu não sei criar o codigo de barra. Então as perguntas são : Estou usando o Delphi 7 tem alguma ferramenta ou componente para gerar o codigo de barra? 
 
 Aguardando, 
 
 
 Dobher

 __
 Fale com seus amigos de graça com o novo Yahoo! Messenger 
 http://br.messenger.yahoo.com/ 

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



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






 Yahoo! Grupos, um serviço oferecido por: 
 PUBLICIDADE
 http://br.ard.yahoo.com/SIG=12fime78e/M=396560.7942992.9564770.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1149511803/A=3752823/R=0/id=noscript/SIG=150o1f56l/*http://lt.dell.com/lt/lt.aspx?CID=13277LID=345812DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/topics/segtopic.aspx/pt/odg?c%3dbr%26l%3dpt%26s%3ddhs 

 

 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] mailto:[EMAIL PROTECTED] 
 
 * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . 




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



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 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]






  




  
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!.












[delphi-br] Problema com o FastReport

2006-06-02 Por tôpico André Moraes - DJSystem



Tenho um projeto antigo que funcionava normalmente, hj ao tentar compilar aparece a seguinte mensagem:

Formato (FRF) não suportado.

Quando clico em OK aparece:

Exception EZeroDivide in module Oleo.exe.
Floating point division by zero.

Se tiro os componentes do Fast Report do form funciona normalmente.

Alguém sabe oq pode ser isso, sendo que antes executava normalmente.

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






  




  
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!.












Re: [delphi-br] Emissão De Cupom Fiscal

2006-06-02 Por tôpico André Moraes - DJSystem



Veja o projeto http://acbr.sf.net

É um projeto OpenSource que realiza comunicação com diversas marcas de impressora e aparelhos de automação comercial.

Vc também pode encontrar mais informações em:

http://www.forumweb.com.br/foruns/index.php?s=655448b946e77e6dcce1ecbfbd411823showforum=416

 - Original Message - 
 From: Cleiton 
 To: Delhpi 
 Sent: Friday, June 02, 2006 3:03 PM
 Subject: [delphi-br] Emissão De Cupom Fiscal


 Olá pessoal...

 Estou precisando de uma grande ajuda de vocês. 

 Estou concluindo o desenvolvimento de um sistema para mercado e agora que surgiu uma questão que até então não tinha pensando.

 O sistema deverá realizar a emissão de cupom fiscal.

 Sei que devo registrar o sistema junto a receita estadual, inclusive já andei me informando a respeito.

 Também fiz o download, no site da bematech, de um programa emulador de impressoras fiscais.

 No entanto, estou perididinho no que se refere a comunicação do sistema com a impressora, bem como na utilização da mesma.

 Alguem poderia me ajudar?

 Um grande abraço a todos

 Cleiton
 -- 
 Esta mensagem foi verificada pelo sistema de antivírus e
 acredita-se estar livre de perigo.



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



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





 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]






  




  
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!.