[delphi-br] Re: Criar Sequence Oracle com Delphi
Olá, Acho que o erro está nesse linha, não pode usar o quoted, deve ser direto mesmo. sql.Add( 'start with ' + Edit_max_chv.TEXT); Tb deixar um espaço após o with. HTH Roberto. --- Em delphi-br@yahoogrupos.com.br, giuvany [EMAIL PROTECTED] escreveu Bom dia Pessoal, Preciso criar uma sequence do Oracle usando o Delphi, Esta sequence ela começa com um valor pre definido conforme o Edit_max_chv.text. Mas não estou conseguindo faze-lo pois dá erro de invalid number quando passado este edit para o START WITH da sequence Veja o que faço with qry_aux do begin sql.Clear; sql.Add( 'create sequence SEQ_CHV'); sql.Add( 'minvalue 1'); sql.Add( 'maxvalue '); sql.Add( 'start with'+quotedstr(Edit_max_chv.TEXT)); sql.Add( 'increment by 1'); sql.Add( 'cache 20'); Prepare; execsql; end; Alguem já fez isto antes? Ou senão alguem sabe me dizer um modo de alterar o valor do START WHITH da sequence Qualquer ajuda agradeço Valeu! No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.13/1099 - Release Date: 30/10/2007 10:06 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Somando Data
Pode ser assim: var hoje : TDate; amanha : TDate; begin hoje:=Now(); amanha:=hoje + 1; end; --- Em delphi-br@yahoogrupos.com.br, Marcelo [EMAIL PROTECTED] escreveu Caros da lista, mais uma vez solicito a ajuda de vcs. Estou com o seguinte problema: Como eu faço para somar a data atual mais 1. Ex1: HOJE = 28/10/2006 então teria que somar essa data mais um = 29/10/2006 Ex2: HOJE= 31/12/2006 então teria que somar essa data mais um = 01/01/2007 e por ai vai. Desde já agradeço a todos pela atenção. -- 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
[delphi-br] Re: Quick Report exibindo resultado de duas Querys
Olá, sim é possível, Pelo menos aqui quando necessito algo desse tipo crio um relatório sem a banda Detail e com duas bandas SubDetail, cada uma listando o resultado de uma Query. HTH, Roberto. --- Em delphi-br@yahoogrupos.com.br, Cido [EMAIL PROTECTED] escreveu Boa tarde! Tenho um relatório, usando Quick Report e gostaria de exibir o resultado de duas querys. Em uma QRBand exibir todos os resultados da primeira query, e numa segunda QRBand exibir os resultados da outra Query. Isso é possível? Grato Aparecido -- 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
[delphi-br] Re: Chamada de função
Olá, vc teria que ver como deve ser o parâmetro que a função está esperando, se ela deve receber o CPF formatado (666.666.666-66) ou sem formatação (666). O validação pode ser no OnExit do campo mesmo ou no momento que for gravar os dados, HTH, Roberto. --- Em delphi-br@yahoogrupos.com.br, João S. Araújo [EMAIL PROTECTED] escreveu Bom dia pessoal, peguei um função de validação de cpf ( function cpf(num: string): boolean; ) na net e coloquei em um novo form, porém não estou sabendo efetuar a chamada correta da função no envento OnExit do campo cpf. Alguém pode me ajudar?!!! Obrigado João [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Dois Recibos em uma mesma folha no Quick Report ?
Olá, normalmente faço dessa forma: Crio o relatório com o recibo normalmente somente com uma DetailBand que ocupe a metade da folha. Gero numa tabela temporária dois registros com os dados repetidos do recibo. Chamo a impressão normalmente pois como a tabela possui dois registros serão geradas duas cópias na mesma página. Roberto. --- Em delphi-br@yahoogrupos.com.br, Anderson Carlos [EMAIL PROTECTED] escreveu É possível fazer o quick report imprimir dois recibos iguais, na mesma folha, eu queria imprimi-los dessa forma: usando a metade de cima da folha para o 1º recibo e a metade de baixo, para 2º folha. Estou apanhando um bocado, se alguem puder me ajudar eu agradeço antecipadamente. Anderson Carlos - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Erro ao dar Preview no Quickrep
Olá, Esse erro A component QRStandard Preview already exists parece ser um bug do QuickReport. Aqui onde trabalho, esse erro foi minimizado usando o método Release do Form, mais ou menos assim: try Application.CreateForm(TFormReport,FormReport); FormReport.Query.Open; FormReport.QReport.Preview; finally FormReport.Release; end; HTH, Roberto. --- Em delphi-br@yahoogrupos.com.br, Anelise [EMAIL PROTECTED] escreveu Oi, Boa Tarde! Quero ser mais específica... No programa que estamos desenvolvendo, temos um formulário de consulta onde criamos o form do Quick e damos preview...ahhh, e quando fechamos o formulário de consulta, destruímos o form do Quick...Prcebi que no evento on-close do form do Quick não estava destruindo... Estou fazendo testes e se fico abrindo e fechando várias vezes o form do Quick, depois de diversos preview, ele dá erro de acesso! E se tento abrir o form do Quick da a msg: A component QRStandard Preview already exists... Fiquei testando e não sei se preciso criar e destruir apenas o componente TQuickRep...Também não consegui... Já procurei aqui no fórum e na net e não vi nenhuma dica parecida... Alguém tem uma dica?? Att., Anelise. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Converter para Data
Pode ser mais ou menos assim: var datastr : string; datadate : TDate; begin datastr:='240444'; datadate:=strtodate(copy(datastr,1,2) + '/' + copy(datastr,3,2) + '/' + copy(datastr,5,2)); end; Dessa forma deve funcionar, considerando que o datastr sempre esteja no formato ddmmyy Roberto. --- Em delphi-br@yahoogrupos.com.br, Cristiano Rodrigo Gomes [EMAIL PROTECTED] escreveu Bom dia a todos, gostaria de saber se alguém poderia me ajudar. É o seguinte: tenho uma viriável do tipo string cujo conteúdo é '240444', gostaria de transformá-la no formato de data 24/04/1944 para gravação correta na tabela. Já tentei o StrToDate e não deu certo. Utilizo o firebird 1.5 e Delphi 7 Grato Cristiano. _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Teclas Função em Forms MDI
Para teclas especiais deve usar o evento OnKeyDown e não o OnKeyPress Roberto. --- Em delphi-br@yahoogrupos.com.br, hffsouza [EMAIL PROTECTED] escreveu Pessoal, boa tarde... Estou com um problemão em formulários com FormStyle definido como fsMDIChild, no evento OnKeyPress, quando pressionado alguma tecla de função (F1, F2, F3.) não é disparado o evento, sendo que, quando qualquer outra tecla for pressionado o evento é disparado normalmente... alguém poderia me ajudar, preciso fazer essas teclas funcionarem quando estiver em qualquer lugar do form... Obrigado, Higor -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Mudar cor da fonte no quickReport
Olá,
Assim deve funcionar:
Coloque no evento BeforePrint da banda:
if Table1(Query1).FieldByName('SALDO').AsFloat 0 then
QRDetailBand1.Font.Color:=clRed
else
QRDetailBand1.Font.Color:=clBlack;
HTH, Roberto,
ps. Sete todas os componentes da band (QRDBText etc..) como parent
font = True.
--- Em delphi-br@yahoogrupos.com.br, Catiúscia A. Barrilli da
Cruz [EMAIL PROTECTED] escreveu
Boa Tarde !
Gostaria de saber como faço para no relatório em QuickReport,
mudar a cor da
fonte da linha toda de todos os registros q mostrar valor negativo.
Desde já agradeço.
Cati
...Não pense de si mesmo além do que convém... Rm 12.3
Nada está fora do alcance da oração, exceto o que está fora da
vontade de Deus.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Configuração cliente
Olá, Até onde sei, o ApplyUpdates não gera nenhuma exceção quando ocorre algum erro. Vc deve interceptar os erros no evento OnReconcileError do ClientDataSet. HTH, Roberto. --- Em delphi-br@yahoogrupos.com.br, Aldinei Simoes [EMAIL PROTECTED] escreveu Tenho um servidor FB 1.5 com alguns clientes com a GDS32, usando um sistema Delphi que faz algumas atualizações com o applyupdate, em alguns casos essas atualizações não ocorrem. A instalação do FB é padrão em um server windows 2003 com 80 clientes fazendo atualizaçõeso tempo todo, tem alguma configuração que devo fazer no server para que não ocorra mais a falha na atualização? P.S. não da nenhuma msg de erro Aldinei -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Erro ao abrir Formulario de Relatorio
Isso acontece quando os componentes do QuickReport não está instalado no Delphi. Verifique se a paleta de componentes Quick Report está aparecendo. Roberto. --- Em delphi-br@yahoogrupos.com.br, Tooklar [EMAIL PROTECTED] escreveu Caros amigos, como fazer quando tentamos abrir um formulário de relatório aparece a seguinte mensagem, como resolver isto quando precisamos editar o relatório. Veja o erro que da quando tentamos abrir o formulário de relatório e pede para Cancelar, Ignorar, Ignorar todas qualquer coisa que fizer causa um erro... Error Reading form Class TquickRep not foud. Ignore the error and continue? NOTE: Ignoring the error may cause components to be deleted or property values to be lost. Betho... -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Importar TXT para DB
Antes de tudo vc deve definir o campo Codigo_Entidade com chave
primária no banco de dados para não permitir duplicação.
While not Eoln(Txt) do
begin
Readln(Txt,Entrada);
try
// tenta inserir
F_Importar.Table1.Insert;
F_Importar.Table1.FieldByName('Codigo_Entidade').Value:=
Copy(Entrada,06,6);
F_Importar.Table1.FieldByName('Referencia').Value:= Copy
(Entrada,14,50);
F_Importar.Table1.FieldByName('Valor_Dolar').Value:=Copy
(Entrada,75,8);
F_Importar.Post;
F_Importar.Table1.Post;NeatoMeter1.MeterText:= 'Importando,
aguarde... '+ IntToStr(Table1.RecordCount);
except
// se der erro eh pq já existe
// cancela inclusão e faz update
F_Importar.Table1.Cancel;
// localiza já existente e faz update
F_Importar.Filter:='Codigo_Entidade = ' + Copy(Entrada,06,6)
F_Importar.Filtered:=True;
F_Importar.Table1.Edit;
F_Importar.Table1.FieldByName('Codigo_Entidade').Value:=
Copy(Entrada,06,6);
F_Importar.Table1.FieldByName('Referencia').Value:= Copy
(Entrada,14,50);
F_Importar.Table1.FieldByName('Valor_Dolar').Value:=Copy
(Entrada,75,8);
F_Importar.Table1.Post;NeatoMeter1.MeterText:= 'Importando,
aguarde... '+ IntToStr(Table1.RecordCount);
F_Importar.Post;
end;
end;
O caminho e mais ou menos esse.
Roberto.
--- Em delphi-br@yahoogrupos.com.br, Adriano (Micro Center)
[EMAIL PROTECTED] escreveu
Olá pessoal eu estou usando este função para importar um arquivo
txt para db a importação foi um sucesso, mas assim que eu termino de
importar se eu for importar novamente uma atualização do mesmo txt
ele adiciona tudo novamente ,,,
se o txt tem 1000 nomes ele adiciona mais 1000 ficando o o banco
de dados com 2000 registro...
Eu gostaria de saber se existe alguma função para mim colocar
junto da minha para ela verificar se a base de dados existe e o txt
se tem alguma alteração se tiver ele atualiza somente o que foi
atualizado...
Olá pessoal eu estou usando este função para importar um arquivo
txt para db a importação foi um sucesso, mas assim que eu termino de
importar se eu for importar novamente uma atualização do mesmo txt
ele adiciona tudo novamente ,,,
se o txt tem 1000 nomes ele adiciona mais 1000 ficando o o banco
de dados com 2000 registro...
Eu gostaria de saber se existe alguma função para mim colocar
junto da minha para ela verificar se a base de dados existe e o txt
se tem alguma alteração se tiver ele atualiza somente o que foi
atualizado...
no final da função existe o txt que eu estou exportando
Obrigado desde já
Muito grato
Adriano
var
Txt: Textfile;
Entrada: string;
begin
BitBtn1.Enabled:= false;
if
OpenDialog1.Execute then
begin
//F_Importar.Table1.EmptyTable; //... zera o arquivo
//F_Importar.Table1.Open;
AssignFile(Txt,(OpenDialog1.FileName));{ NOME do arquivo texto}
//Animate1.Visible:= true;
//Animate1.Active:= true;
Reset(Txt);
While not Eoln(Txt) do
begin
Readln(Txt,Entrada);
F_Importar.Table1.Insert;
F_Importar.Table1.FieldByName('Codigo_Entidade').Value:= Copy
(Entrada,06,6);
F_Importar.Table1.FieldByName('Referencia').Value:= Copy
(Entrada,14,50);
F_Importar.Table1.FieldByName('Valor_Dolar').Value:=Copy
(Entrada,75,8);
F_Importar.Table1.Post;NeatoMeter1.MeterText:= 'Importando,
aguarde... '+ IntToStr(Table1.RecordCount);
end;
CloseFile(Txt);
NeatoMeter1.MeterText:= 'Importação realizado com sucesso...';
Label1.Visible:=True;
NeatoMeter1.Max:= 100;
BitBtn1.Enabled:= true;
BitBtn2.Kind:= bkClose;
Label1.Caption := 'Foi Importado um total de '+ IntToStr
(Table1.RecordCount)+' registros com sucesso';
end;
end;
Arquivi.txt
40150 | ACES DESCANCO DE CABECA IMP HP 840C
| 15,00
50273 | ADAPTADOR MOUSE PS2 PARA
USB | 1,70
50284 | ADAPTADOR MOUSE USB PARA
PS2 | 1,70
27984 | ADAPTADOR SCSI DE HD 80 PARA 68
PINOS| 14,00
14319 | ADAPTADOR TECLADO PS2 PARA
AT| 1,75
79633 | CABO ADAP. FONTE 20/24
PINOS | 3,50
85204 | CABO AUDIO DIGITAL P/CD-
ROM/DVD/GRAVADOR | 1,25
81277 | CABO EXTENCAO VIPOWER VP-9189
7PORTAS| 23,00
48168 | CABO FORCA P/ 1 HD SATA (SERIAL
ATA) | 2,50
28278 | CABO HD IDE HD/CD
ROM/GRAVADOR | 1,80
16501 | CABO SCSI 50
PINOS | 7,50
53614 | CABO SCSI 68 PINOS TRANCADO ULTRA
160| 25,00
45402 | CABO SCSI 68 PINOS TRANCADO ULTRA
320| 25,50
16982 | CABO SCSI 68 PINOS
UW . | 7,50
47986 | CABO SERIAL DB25M/F P/ MODEM EXT.
RS232 |
[delphi-br] Re: Limpar campo do DbLookupComboBox
Tenta assim: DbLookupComboBox1.KeyValue:=Null ou limpa o campo da tabela: Table1FIELD1.Clear; HTH, Roberto. --- Em delphi-br@yahoogrupos.com.br, F D [EMAIL PROTECTED] escreveu Como Faço para limpar o que esta no DbLookupComboBox Tentei Fazer DbLookupComboBox1.text:= ''; mas não funcionou. O que devo fazer? Grato Francisco __ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Atualização de StatusBar
begin statusbar1.Panels[0].Text:='Aguarde. - Processando as Trocas!'; Statusbar1.Update; coloca esse update trocas; HTH, Roberto --- Em delphi-br@yahoogrupos.com.br, Emerson Cassio [EMAIL PROTECTED] escreveu Pessoal é o seguinte tenho um StatusBar com 02 Panels, no segundo agreguei um Progresbar que mostra o andamento da execução de 03 procedures. Tenho uma procedure de Processamento de Vendas, uma de Processamento de Trocas, e uma de Processamento de Calculo de Médias, denominadas de Vendas, Trocas, e Medias; No evento de clique de um botão tenho o seguinte: begin statusbar1.Panels[0].Text:='Aguarde. - Processando as Trocas!'; trocas; statusbar1.Panels[0].Text:='Aguarde. - Processando as Vendas!'; vendas; statusbar1.Panels[0].Text:='Aguarde. - Processando as Médias!'; medias; end; não sei porque motivo essas atualizações do panels[0] do status bar não ocorre, o progressbar faz mosta a evolução dos 03 procedimentos certinho, porem o panels[0] não aparece as atualizações como deveria, informando que procedimento esta em execução, somente após o termino dos três aparece a ultima ocorrencia 'Aguarde. - Processando as Médias!'. Como resolver isso? Grato Emerson Cassio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Como montar relatorio ??
Supondo as duas tabelas Cliente --- CodCliente Nome Titulo -- NroTitulo CodCliente Valor O select: Select Cliente.CodCliente, Cliente.Nome, Titulo.NroTitulo, Valor From Cliente, Titulo Where Cliente.CodCliente = Titulo.CodCliente Order by Cliente.CodCliente No quick report teria mais o menos a seguinte estrutura: QRGroup - Expression = CodCliente Detail - Dados dos títulos GroupFooter (ligado ao QRGroup) - Expression (SUM(Valor)) - setar a propriedade ResetAfterPrint para False Summary - Expression (SUM(Valor)) HTH, Roberto. --- Em delphi-br@yahoogrupos.com.br, Leonardo [EMAIL PROTECTED] escreveu Procurei materia referente a utilização do QReport mas não encotrei uma que realmente me ajudasse (Iniciante). Será que existe algum site que desse uma luz ao meu problema? Por exemplo 01: Tem que criar um relatorio para o setor financeiro da seguinte forma: Dados Tabela c/Titulos a Receber Tabela c/Cad. Clientes Objetivo Imprimir um relatorio que contivesse os titulos em aberto por ordem de clinte e que me desse a soma por cliente e um total no final. Se for possível fazer via qrepot,pois eu nao gostaria de escrever todo o relatio com o canvas Eu ate temtei fazer o relatorio com uma query com junção mas não consegui que ele me desse o subtotal por cliente. Firebird 1.5 + IB. Obs: Terei que criar relatorio mais complicados com um relacionamente de ate 5 tabelas? Agradeço desde ja por qualquer sujestao -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: PROBLEMA COM DATA
Se no se engano:
var
data : TDate;
prim_dia : TDate;
ult_dia : TDate;
begin
data := StrToDate('10/06/2005');
prim_dia := StrToDate('01/' + FormatDateTime('mm/',data));
data := IncMonth(data,1); // passa para mes seguinte
// primeiro dia do mes seguinte - 1 volta para ultimo do mes
// anterior
ult_dia := StrToDate('01/' + FormatDateTime('mm/',data)) - 1;
end;
HTH,
Roberto.
--- Em delphi-br@yahoogrupos.com.br, F D [EMAIL PROTECTED] escreveu
Como eu fao para pegar o primeiro dia do mes e o ultimo?
Grato
Francisco
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que no continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que voc faz do Yahoo! Grupos est sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Hora DBGrid
Ol, se o campo do tipo string no poderia estar ocorrendo esse tipo de erro. Eu usuria um campo do tipo DateTime do Access e trataria a visualizao no dbgrid do delphi utilizando mscaras, como hh:nn no campo da tabela. HTH. --- Em delphi-br@yahoogrupos.com.br, Cristina [EMAIL PROTECTED] escreveu Ol Pessoal, Tenho um campo do tipo String que armazena um valor do tipo hora 12:50:00, mas no DBGrid e no relatrio est aparecendo 12:00, ele est ignorando os minutos sempre e incluindo os segundos, como posso resolver este problema? Tentei diminuir o campo da string via SQL para cortar os segundos, mas o Access no deixa, aparece a mensagem O campo muito pequeno para aceitar a quantidade de dados que voc tentou adicionar. Tente inserir ou colar menos dados. Existe alguma soluo para este problema? Atenciosamente Cristina Orthmann da Silva HACON Automao e Tecnologia Ltda Rua Lauro Linhares 589 - Bairro Trindade Florianpolis - SC - Brasil CEP 88036-001 Fone/Fax: 55 48 333-0699 Site: http://www.hacon.com.br/ Email: [EMAIL PROTECTED] [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: soma total do relatorio
Qual o gerador de relatrio?? Se for o Quick Report teria que ser a seguinte : QRGroup - cliente Detail - produtos FooterBand - total por cliente Summary - total geral HTH. --- Em delphi-br@yahoogrupos.com.br, bene20032004 [EMAIL PROTECTED] escreveu Ola pessoal ! Algum poderia me dizer como fao para dar o total geral em um relatorio desse jeito... 1 NOME DO CLIENTE OS PRODUTOS QUE COMPROU SUBTOTAL 2 NOME DO CLIENTE OS PRODUTOS QUE COMPROU SUBTOTAL TOTAL DA PAGINA TOTAL GERAL DO RELATORIO Quero saber como fao para dar este total geral... Obrigado ! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: retorno de select em SQLQuery
Retira a parte do into e deixa assim:
select
count(NOME_PRO)
from DOCUMENTO
where (TITULO_DOC = :TITULODOC) and (CODIGO_PRO = :CODIGOPRO)
query1.close;
query1.params[0].value:=1;
query1.params[1].value:=2;
query1.open;
showmessage('foram encontrado(s) ' + query1.fields[0].asstring + '
registro(s)');
--- Em delphi-br@yahoogrupos.com.br, Marcos H Silva [EMAIL PROTECTED]
escreveu
Pessoal estou tentando fazer uma busca e preciso saber
se ela retornou 0 ou mais registros, poderiam me
ajudar?
a Query tem:
select
count(NOME_PRO)
from DOCUMENTO
where (TITULO_DOC = :TITULODOC) and (CODIGO_PRO =
:CODIGOPRO)
into :RESPOSTA
só que ele não aceita into, alguem sabe como devo
proceder?
grato desde ja.
Marcos
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Problemas com Stored Procedures
Vc está usando: SQLStoredProc1.ExecProc deve ser assim ou SQLStoredProc1.Open Talvez seja isso. --- Em delphi-br@yahoogrupos.com.br, Ana Júlia Solano Rocha [EMAIL PROTECTED] escreveu Boa tarde pessoal! Estou desenvolvendo uma aplicação em Dephi 7 com Interbase 6. Criei uma Stored Procedure e testei no banco, onde funcionou perfeitamente. Dentro da minha aplicação utilizei o TSQLStoredProc (DBExpress) para executá-la. Testei em tempo de projeto e funcionou também. Mas quando tento executá-la dentro da aplicação, dá o erro: DBExpress error: Operation not Supported. Estou passando 3 parâmetros do tipo Integer e 1 do tipo Date. Se eu utilizar um TSQLQuery funciona também, mas gostaria de utilizar o TSQLStoredProc. Alguém tem idéia do que pode estar acontecendo? Abraços, Ana [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] =?iso-8859-1?q?Re:_Como_identificar_altera=E7=F5es_em_uma_tabela?=
Olha, acho que a solução seria criar uma coluna flag na tabela pra dizer que o registro foi alterado, e na aplicação que gera/altera esses registros deve assinalá-los quando conveniente. Depois é só tratar da maneira que quiser. Roberto. --- Em delphi-br@yahoogrupos.com.br, delphi6_2005 [EMAIL PROTECTED] escreveu tenho um sistema delphi que precisa identificar as alterações sofridas por uma tabelas (oracle) a cada x minutos, selecionar os registos e processá-los. Algum amigos tem uma dica de como fazer. Agradeço a ajuda de todos. Paulo. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Auto-Incremento
Da maneira que está não ocorrerá autoincremento, sempre será gerado
o mesmo código:
DataModulo.TREGRA.FieldByName('CDREGRA').Value:=
DataModulo.TREGRA.FieldByName('CDREGRA').Value + 1;
O que pode fazer eh criar uma TREGRA1 que aponte para a mesma tabela
TREGRA do banco e usar dessa forma.
// vai para o ultimo registro da TREGRA1
DataModulo.TREGRA1.Close;
DataModulo.TREGRA1.Last;
DataModulo.TREGRA1.Open;
DataModulo.TREGRA.Append;
DataModulo.TREGRA.FieldByName('CDREGRA').Value:=
DataModulo.TREGRA1.FieldByName('CDREGRA').Value + 1; // observe que
está pegando o codigo da TREGRA1
Vale lembrar que CDREGRA1 deve ser chave primária.
Roberto.
--- Em delphi-br@yahoogrupos.com.br, Info Desenvolvimento
[EMAIL PROTECTED] escreveu
Possuo uma tabela que o campo é auto-incremento. Como faço para
que sejam gravados registros nesta tabela
Estou mandando gravar, mas não está gravando, está gravando por
cima
Exemplo no meu botão gravar, onde está o erro?
if(Application.MessageBox
('Confirma a Gravação dos dados?',
'CONFIRMAÇÃO',mb_IconQuestion+mb_YESNO)=idyes)then
BEGIN
LStatus.Visible:= True;
LSTATUS.Caption:= 'Inclusão de Registro!';
DataModulo.TREGRA.Open;
DataModulo.TREGRA.Edit;
DataModulo.TREGRA.FieldByName('CDREGRA').Value:=
DataModulo.TREGRA.FieldByName('CDREGRA').Value + 1;
DataModulo.TREGRA.FieldByName('DESCRICAO').Value:=
EDESCRICAO.Text;
DataModulo.TREGRA.FieldByName('PERCENTUAL').Value:= EPERC.Text;
DataModulo.TREGRA.FieldByName('VAL_LIMITE').Value:=
ELIMITE.Text;
DataModulo.TREGRA.FieldByName('DTINI_RETENCAO').AsDateTime:=
strtodate(EINICIO.Text);
DataModulo.TREGRA.FieldByName('DTFIM_RETENCAO').AsDateTime:=
strtodate(EINICIO.Text);
IF RGRETENCAO.ItemIndex = 0 THEN
DataModulo.TREGRA.FieldByName
('TP_RETENCAO').AsString:= 's';//Semanal
IF RGRETENCAO.ItemIndex = 1 THEN
DataModulo.TREGRA.FieldByName
('TP_RETENCAO').AsString:= 'q';//Quinzenal
IF RGRETENCAO.ItemIndex = 2 THEN
DataModulo.TREGRA.FieldByName
('TP_RETENCAO').AsString:= 'm';//Mensal
IF RGRETENCAO.ItemIndex = 3 THEN
DataModulo.TREGRA.FieldByName
('TP_RETENCAO').AsString:= 't';//Trimestral
IF RGRETENCAO.ItemIndex = 4 THEN
DataModulo.TREGRA.FieldByName
('TP_RETENCAO').AsString:= 'e';//Semestral
IF RGRETENCAO.ItemIndex = 5 THEN
DataModulo.TREGRA.FieldByName
('TP_RETENCAO').AsString:= 'a';//Anual
DataModulo.TREGRA.FieldByName('DTINI_VALIDADE').AsDateTime:=
strtodate(EINIVALID.Text);
DataModulo.TREGRA.FieldByName('DTFIM_VALIDADE').AsDateTime:=
strtodate(EFIMVALID.Text);
DataModulo.TREGRA.Post;
ShowMessage('Operação realizada com sucesso!');
LStatus.Visible:= False;
EDESCRICAO.Clear;
EPERC.Clear;
ELIMITE.Clear;
EINICIO.Clear;
EFIM.Clear;
EINIVALID.Clear;
EFIMVALID.Clear;
EDESCRICAO.Enabled:= False;
EPERC.Enabled:= False;
ELIMITE.Enabled:= False;
EINICIO.Enabled:= False;
EFIM.Enabled:= False;
EINIVALID.Enabled:= False;
EFIMVALID.Enabled:= False;
BitGrava.Enabled:= False;
BitEdita.Enabled:=False;
BitCancela.Enabled:=False;
BitDeleta.Enabled:= False;
RGRETENCAO.ItemIndex:= -1;
RGRETENCAO.SetFocus;
END;
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Me ajudem a achar algum erro neste código!!!
Olá, esqueci de dizer, Quando se trata de uma consulta que não retorna registros, uma consulta ação, vc deve utilizar QueryX.ExecSql. Roberto. --- Em delphi-br@yahoogrupos.com.br, Erika Lemes [EMAIL PROTECTED] escreveu Roberto, Até que apagou certinho, mas deu este erro antes: Error creating cursor handle O que pode ser??? Obrigado pela sua ajuda! Erika - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: QReport
Procure pelo DuckBarCode, tenho utilizado (com D5) na emissão de boletos bancários e funciona bem. --- Em delphi-br@yahoogrupos.com.br, Hudson [EMAIL PROTECTED] escreveu Galera existe algum componete que gera no QReport barra de Codigo..pois preciso fazer carteiras de clientes com barra de codigos.. grato [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Cancel - MessageBox
Olá, eu faria assim:
procedure TForm1.Button1Click(Sender: TObject);
var
res : Integer;
begin
// usando api
res:=Application.MessageBox(PChar('Ação desejada'),PChar
('Aviso'),MB_YESNOCANCEL);
if res = IDYES then
begin
ShowMessage('selecionou sim');
end
else
if res = IDNO then
begin
ShowMessage('selecionou não');
end
else
if res = IDCANCEL then
begin
ShowMessage('selecionou cancel');
end
end;
--- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED]
escreveu
Pessoal
Eu tenho message box com os tres botões:
- sim
- não
- cancelar
queria fazer o seginte:
- sim: gravar e sair
- não: sair sem gravar
- cancelar: não fazer nada, apenas fechar o message box
O sim e o não estão ok... mas como faço para cancelar?
Obrigado @
Abraço
Erika
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: PrintScreen - URGENTE !!!
Form1.GetFormImage - retorna um bitmap do form. --- Em delphi-br@yahoogrupos.com.br, Filipe [EMAIL PROTECTED] escreveu Olá, Tenho um form transparente (Soh com as bordas), e preciso saber como se faz para que possa capturar o ecrã (tipo PrintScreen) apenas na área do meu form. Obrigado. Filipe Geyer Programador [EMAIL PROTECTED] www.bludata.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: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Variável ou SQL toda vez?!?!?!?
Se o acesso a essa tabela de parametros é rápido, ou seja, são usados índices ou a tabela é pequena, acho que não teria nenhum overhead. Mesmo que use uma variável global, de uma forma ou outra teria que atualizá-la caso a tabela de parametros fosse alterada. HTH, Roberto. --- Em delphi-br@yahoogrupos.com.br, Felipe Pasqualotto [EMAIL PROTECTED] escreveu Tenho uma dúvida assim: Possuo várias configurações, por exemplo pesquisa de códigos de barras alfa ou não, e esta config está no Banco de Dados, a questão é a seguinte, é melhor criar uma variável public e buscar no banco uma vez só, ou toda vez que eu entrar na consulta eu vou no banco e vejo como está setado? Abraços Felipe -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.0 - Release Date: 27/01/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Me ajudem a achar algum erro neste código!!!
--- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED]
escreveu
Pessoal
Eu quero excluir os itens da minha tabela que possuam
o CODCOMPRA
igual ao valor de uma Label... não sei o que está acontecendo mas
ele exclui TODOS os itens não está selecionando!!!
Alguém poderia me dizer se existe algum erro neste código?
Gente, não consigo enxergar erro será que estou cega? ..rs..
(...)
if Application.MessageBox('Confirma a exclusão do
registro ?','Excluir',Mb_YesNo+Mb_IconQuestion)=IdYes then
with QrExclui do begin
Close;
Sql.Clear;
Sql.Add('SELECT *');
Sql.Add('FROM ITEM.DB');
Sql.Add('WHERE CODCOMPRA = :PCod');
ParamByName('PCod').AsInteger := StrToInt(Label5.Caption);
if not QrExclui.Prepared then Prepare;
Open;
end;
QrExclui.First;
while not QrExclui.Eof do TabelItem.Delete;
Vc tem que dar um locate ou filtar a tabela de itens de acordo com a
QrExclui, senão todos serão excluídos. Ou troca a tua query para :
DELETE
FROM ITEM.DB
WHERE CODCOMPRA = :PCod
Acho que fica mais fácil.
Roberto.
(...)
Obrigado gente
Abraços!!!
PS: uso o banco paradox...
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Combo em dbGrid
Se vcs criarem um campo calculado de LookUp (para buscar os dados de
outra tabela) o DBGrid cria automaticamente uma combo no grid para
aquele campo.
Roberto.
--- Em delphi-br@yahoogrupos.com.br, Cristina Orthmann
[EMAIL PROTECTED] escreveu
Talvez você possa comparar o valor digitado com os valores do
PickList, assim:
OnSetText da celula do DBGrid (QueryNomeCampo)
if not (Text = DBGrid1.Columns[12].PickList[i]) then
begin
Text := '';
Showmessage('Valor inválido');
end
Catiúscia Barrilli da Cruz escreveu:
Tem como fazer para digitar somente o q tiver no PickList
- Original Message -
From: Cristina Orthmann
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, January 20, 2005 5:18 PM
Subject: Re: [delphi-br] Re: Combo em dbGrid
Eu não utilizei um combo, porque não consegui fazer o mesmo
funcionar, mas tem uma outra forma...
Você pode adicionar os itens no PickList da coluna em
questão do
DBGrid, assim:
Tabela.Open;
Tabela.First;
while not Tabela.Eof do
begin
DBGrid1.Columns[12].PickList.Add(Tabela.FieldByName
(NomeCampo).AsString);
Tabela.Next;
end;
Tabela.Close;
[As partes desta mensagem que não continham texto foram removidas]
--
Atenciosamente
-
Cristina Orthmann da Silva
HACON Automação e Tecnologia Ltda
Rua Lauro Linhares 589 - Bairro Trindade
Florianópolis - SC - Brasil
CEP 88036-001
Fone/Fax: 55 48 333-0699
Site: http://www.hacon.com.br/
Email: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED]
-
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: quickrep com 2 details
Olá, até onde sei o QuickReport não pode ter mais que um Detail. Eu faria usando dois sub-details, tenho alguns casos parecidos e funciona perfeitamente. Por exemplo o subdetail1 ficaria ligado a query dos produtos e o subdetail2 a query das condições de pagamento. Roberto. --- Em delphi-br@yahoogrupos.com.br, Rafael Jorge [EMAIL PROTECTED] escreveu preciso montar um relatorio com 2 detais um com os items vendidos e outro com as parcelas de pagamento. seria mais ou menos assim: cliente: andre endereco: rua de andre telefone : 1234-12-12 __ items qtd total sabao em po 1 1,00 buxa de canhao 2 4,00 sapo morto1 5,00 miojo 2 10,00 __ valor total: 20,00 parcela / forma de pagamento / vencimento 1 30, 60, 90 dias10/01/2005 2 30, 60 90 dias 10/02/2005 3 30, 60 90 dias 10/03/2005 eu utiliseu um grouphead com os dados do cliente depois uma banda detail pra mostrar os items logo em sequida uma summary linkada com o group head pra mostrar o total ai coloquei uma children band pra mostrar o parcelamento mais nao da certo pois so mostra o primeiro parcelamento! como eu devo fazer isso pra funcionar corretamente?? obrigado t+ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Quebra de palavras
Olá, dê uma olhada na função *WrapText* (unit SysUtils), do delphi mesmo. Roberto. --- Em delphi-br@yahoogrupos.com.br, Weber Luvisa [EMAIL PROTECTED] escreveu Amigos, estou presisando de uma rotina que quebre a palavra inteira, jogando para a prox. linha... exemplo duas linhas de 10... HOJE VAI CHOVER LINHA 1 = HOJE VAI LINHA 2 = CHOVER Se for apenas com copy fica assim LINHA 1 = HOJE VAI C LINHA 2 - HOVER -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: DbExpress com Oracle
Olá Matheus, Tempos atrás, aqui a universidade onde trabalho tentamos fazer isso e tb não conseguimos. Até onde sei, acho que isso não é possível. Acabamos por optar por um componente de terceiro, o ODAC, que faz a conexão diretamente com o banco, sem usar nenhuma dll ou client. Roberto. --- Em delphi-br@yahoogrupos.com.br, Matheus [EMAIL PROTECTED] escreveu Pessoal, alguém pode me esclarecer uma dúvida? Sempre ouvi falar que o DBExpress conseguia fazer uma conexão direta com o Oracle, sem necessidade de ODBC ou qualquer outro tipo de driver intermediário, inclusive não seria necessário sequer possuir o client do Oracle instalado na máquina, bastando apenas possuir a DLL distribuida com o Client do Oracle. Bom, fiz um teste aqui e não consigo conectar ao oracle de maneira nenhuma usando o DBExpress sem o Client do Oracle instalado. peguei a DLL usada pelo DBExpress (oci.dll) e gravei no diretório da aplicação. Configurei o SQLConnection da seguinte maneira: ConnectionName = 'OracleConnection' DriverName = 'Oracle' GetDriverFunc = 'getSQLDriverORACLE' LibraryName = 'dbexpora.dll' LoginPrompt = False VendorLib = 'oci.dll' e os parâmetros da seguinte maneira: DriverName=Oracle DataBase=nome do banco no oracle User_Name= usuario Password=senha RowsetSize=20 BlobSize=-1 ErrorResourceFile= LocaleCode= Oracle TransIsolation=ReadCommited OS Authentication=False Multiple Transaction=False Trim Char=False Agora vem a pergunta. Em nenhum lugar existe a opção para se informar o endereço do Servidor Oracle, porta, etc. Apenas existe a opção para informar o DataBase que acredito que deva ser o nome da instância criada no Oracle. Ou, se no caso eu tivesse o client do Oracle instalado, seria o nome do TNS armazenado lá no TNSNames. Estou fazendo certo esta configuração para conexão com o Oracle? O que posso estar fazendo errado? Existe alguma maneira mesmo de conectar ao oracle sem instalar o seu client? Meu interesse é em não fazer a instalação deste client nas máquinas que receberão o aplicativo. Estou utilizando o Delphi 7. Muito obrigado. Matheus [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Dúvidas SQL
Cristina, vc deve atualizar os componentes do ADO. Procure no site da Borland. Roberto --- Em [EMAIL PROTECTED], Cristina Orthmann [EMAIL PROTECTED] escreveu Olá pessoal, Estou com 3 dúvidas, que acredito que vcs possam me ajudar. 1) Como posso tratar quando um consulta não retorna nada, quando não há nenhum registro sempre aparece a mensagem BOF ou EOF são verdadeiros, ou registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. 2) Ao excluir registros através de comando SQL aparece a mensagem CommandText does not return a result set 3) Como incluir um ComboBox em um dbGrid. Estou utilizando Delphi5 com banco Access 97 -- Atenciosamente - Cristina Orthmann da Silva HACON Automação e Tecnologia Ltda Rua Lauro Linhares 589 - Bairro Trindade Florianópolis - SC - Brasil CEP 88036-001 Fone/Fax: 55 48 333-0699 Site: http://www.hacon.com.br/ Email: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] - [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Ajuda com IBX + QReport (Master Detail)
Olá, eu faria dessa forma: A Query master ligada ao relatório, normalmente e a Query Detail ligada ao SubDetail. No evento Before Print do GroupHeader vc abre a query Detail passando os parametros desejados. Espero ter ajudado. Roberto. --- Em [EMAIL PROTECTED], Eduardo Jedliczka [EMAIL PROTECTED] escreveu Caros amigos, trabalho com RDPrint, e TCanvas para desenvolver os relatórios da Empresa. Estou acompanhando como monitor o projeto de alguns alunos de processamento de dados, e um deles me perguntou como fazer um relatório no Qreport com master detail. Com paradox, BDE, TTable, é baba, é só usar o masterlinks e tá pronto. Mas ele usa Ibx e os dados estão vindo de uma VIEW. O componente TIBTable não acessa um view, e o TIBQuery não tem a masterlinks. Será que alguém que utiliza QReport com IBX poderia me dar uma sugestão, perdi o feriado inteiro quebrando a cabeça e não saí do lugar, (tentei até com o onAfterScroll), ou seja, ou ele imprime todos os registros detalhe para todos os master ou não imprime nenhum! [s] = Eduardo Jedliczka GeraSoft Informática Apucarana - PR = -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
