Eder

Pessoal...testei a sugestão do Micheus.... neste caso depende do tipo de relatorio por exemplo se o filtro for de uma filial que tem pouco movimentação(poucos registros) ele até conta de 4 em 4 segundos... mas se for uma filial com bastante movimentação, ai conta assim: depois só quanto termina: neste caso por ter muitos registros....não atualiza legal, só atualiza no inicio e no final do processamento. quanto ao tamanho da tabela paradox... bom....por enquanto vou me virando.....esta tabela só até fechar 2007, janeiro abro nova tabela 2008(Pra ficar facil a manipulação e pra não dar muito trabalho de manutenção) mas concordo plenamente com vocês...tenho que começar a mexer com um SGBD de verdade como Menciona nosso colega Micheus. Bom pessoal...é isto ai.... se tiver mais alguma ideia por favor ... grato

R.: Shiiii....ferrou. então deixa como esta mesmo..... achei que era simples, mas já ficou complicado...hehehe grato :D

Ola..Churc.....beleza? carinha não deu certo...... :( Ele congela e não deixa atualizar o label..... só depois que é gerado o relatorio e mostra o preview do quickreport(video) ai quando fecho o preview ai vejo que o label contou 45 segundos.....mas eu não vi contar..um por um(segundos)..nesta hora ele tava congelado...alias o form e o programa Congela... :( só descongelando após o relatorio gerado. Obs.: a base de dados paradox é de 120 Mb um arquivo grande com mais de 80.000 registros Tens mais alguma dica pra resolver este probleminha? Grato

Ola...tenho um relatorio que é lento a geração...gera em torno de 3 a 5 minutos....eu tenho na tela..apenas um label informando. "Aguarde Geração do Relatorio" mas eu queria colocar um contador pro usuario acompanhar o tempo de processamento.. tenho este aqui ...que funciona show...porem ele congela(visualização)...quando o relatorio começa a gerado... var Form1: TForm1; tempoInicial : TDatetime; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := FormatDateTime('hh:nn:ss',TempoInicial - Now); end; procedure TForm1.Button1Click(Sender: TObject); begin TempoInicial := now; Timer1.Enabled := true; end; na verdade ele não congela..continua contando mas pro usuario fica parado o label. grato

resolvido... formatei de novo e na hora do boot entrei com este comando: kurumin screen=1024x768 Grato

Ola..pessoal Sou usuario novato do Kurumin 7 pela primeiro vez. Na instalação o sistema me informou(instalou) que a resolução é de 1600x1200 mas é muito pequena....não gostei então alterei pra 1024x768 via painel de controle com a marcação pra "forcar Resolução". Funcionou perfeito como queria na 1024x768 Neste caso quando reiniciou caiu na tela texto(preta)..e ai tive que recuperar a resolução antiga e voltar a 1600x1200 Pergunta aos amigos: Porque na hora que altero ela funciona perfeito(trabalho normalmente), e porque quando reinicio não segura a alteração que fiz?? Grato

Oba...ótima dicas (if...then...else) valeu Deu certo! valeu muito Grato Abraço :D

Ola..Churc Carinha também não da certo, pois como mencionei no post, sempre o relatorio processa o count = 1, mesmo não relacionando dados. :( grato t+

Ola, Pessoal Bom Dia!! Eu montei este código: procedure TFormGrafAbaste.EncartaButton1Click(Sender: TObject); Var Txt:String; begin If DateTimePicker2.Date < DateTimePicker1.Date Then begin ShowMessage('Intervalo de datas Inválido, a data Inicial é maior que a data Final!'); DateTimePicker2.Date := DateTimePicker1.Date; exit; end; If Combobox1.Text = '' Then Begin Showmessage('Selecione a Marca do Veículo.'); Combobox1.SetFocus; Exit; End; // If Combobox2.Text = '' Then Begin Showmessage('Selecione a Filial do Veículo.'); Combobox2.SetFocus; Exit; End; // Txt:='SELECT sum(Abaste.KmPer) as Total1, Sum(Abaste.Litros) as Total2, '+ 'Sum(Abaste.ValorFinal) as Total3, Vei.Placa, Vei.Marca, Vei.Veiculo, Vei.Unidade, Vei.Tipo '+ 'FROM ABASTE, VEI '+ 'WHERE (ABASTE.DATA >= :DATAI) and (ABASTE.DATA <= :DATAF) AND '+ 'Abaste.CodVei = Vei.CodVei '+ 'and Vei.Marca = '+ QuotedStr(ComboBox1.text) + 'and Vei.Unidade = '+ QuotedStr(ComboBox2.text) + 'Group By Vei.Placa, Vei.Marca, Vei.Veiculo, Vei.Unidade, Vei.Tipo '+ 'Order By Vei.Placa'; // Query1.Close; Query1.SQL.Text := Txt; Query1.ParamByName('datai').AsDate := DateTimePicker1.Date; Query1.ParamByName('dataf').AsDate := DateTimePicker2.Date; Query1.Open; // If Query1.IsEmpty Then begin ShowMessage('Nenhum Registro Encontrado!'); exit; Abort; end; // frReport1.ShowReport; end; Nesta parte abaixo: no caso quando não tiver registro deveria vir a mensagem "Nenhum Registro Encontrado". If Query1.IsEmpty Then begin ShowMessage('Nenhum Registro Encontrado!'); exit; Abort; end; Mas sempre aparece o relatorio....a mensagem não aparece...abortanto a operação. Notei que no relatorio tem um contador no Sumary....e este contador diz que é = 1. O porque que a mensagem não aparece, e o contador conta 1? Neste caso acima...qual seria a solução pra aparecer a mensagem????(porque na verdade não existe registro de lançamento pra determinada placa). Grato

Micheus..tentei fazer o processo como me falou..ai descobri que o problema esta na instalação do FreeReport que parece ter um Tee mais antigo..... Pra testar removi o FReport e ai o Chart do QR funcionou......mas como eu já tenho relatorios prontos do FR e até gráficos...e gostei muito dele....optei por abandonar o TChart do QR, pois tenho que ficar somente com um ...pois a instalação da erro...quando tento colocar os dois juntos...ai removi de novo o Tchar do QR e instalei novamente o FR.. mesmo assim o seu procedimento comprovou que deu certo também no D4. Cara valeu a força.......bom se desse pra deixar os dois...mas como tenho que escolher um...optei pelo FreeReport.(que por sinal é muito bom gerador, muito mais facil de trabalhar, no meu ponto de vista......achei mais rapido na confecção de um relatorio tanto numeros como Grafico....simples é verdade( a paleta, o grafico) mas funcional...até consegui traduzir as suas mensagens e seu preview pra Portugues(um camarada do forum me mandou os arquivos traduzidos)....tem exportador pra PDF(somente D5, que pena). o Unico problema do FR é que tem pouquissima gente que sabe mexer no mesmo....apenas existe um forum....mas com poucos conhecedores e visitantes. Linck: Forum FreeReport-BR Demais muito grato Abraços t+ :D

Carinha......o meu D4 ta virado numa bagunça...tenho uma hora que formatar minha maquina e começar do zero......tem mtos arquivos do D4 misturado.. fiz as dicas que você colocou...e ai fui em: notei que a lista de pacotes TeeChart 4.0 Components esta lá...mas sem a seleção....e quando vou marcar(selecionar) da erro: Cannot Lod package tee44. It Contains Unit TeCanvas which is also contained in package tee44 ai removi tudo e fiz tudo de novo...e o erro persiste. :( o que acho que é? Grato..t+

Oba..Micheus....sim..eu descompactei...mas ali pede o arquivo TEE44.DPK e este não tem no zip..somente tem o TeeQR44.dpk Mas..tudo bem..Micheus...ontem e hoje estou usando outro gerador o FreeReport...ate gostei do gerador..muito bom....achei até mais facil que o Quick....e tem uns esqueminhas de grafico também.. esta instalação já me deu mta dor de cabeça.... Mas...beleza..deixa pra lá...vou continuar estudando o FreeReport e ver se consigo montar o grafico por lá mesmo...ele instalou direitinho e parece bom.... Só to me quebrando pra montar um relatorio sintetico nele.....não to conseguindo...e este no quick é moleza... Mas valeu..abraço e muito grato :)

R.: Carinha já tou quase desistindo......rs. nesta parte da sua explicação da erro na hora de compilar: [Fatal Error] TeeQR44.dpk(32): File not found: 'C:\Arquivos de programas\Borland\Delphi4\LIB\Tee44.dpk' este arquivo (TEE44.DPK)não achei em lugar nenhum!! nem no SourceQRTee.zip e nem na minha maquina toda........não existe!! :( Grato...abraço

Micheus...não tou entendendo.....fiquei meio perdido neste arquivo que você me passou pra download este: QR4Tee4D7 dentro dele tem um arquivo somente.... o que fazer com ele?? e os lincks que você me mandou olhar.... olhei e a minha versão instalada é a 3.05 for delphi 4(é a ultima pro D4). e este aqui: Este eu baixei e o que fazer com ele....poderias dar um passo a passo o que tenho que fazer.... tipo qual o primeiro passo de tudo muito Grato e desculpa ..as perguntas.. Meu Delhi é 4 e o Quickreport é o 3.05 Abraço

Ola..pessoal eu nunca usei gráficos no quickreport e então tentei usar e deu erro, após inserir o componente qrchart1 NO FORM....quando compilei Erro: [Fatal Error] Unit1.pas(7): Unit QrTee was compiled with a different version of QuickRpt.TQRPrintable procurei na net e achei comentários dizendo que foi lançada a versão 3.05 do quick e faltou este arquivo QRTEE achei este comentário no site da RAMOS: Fonte: http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=666 O problema que eu não consigo achar estes arquivos mais pra download. alguém teria uma ideia ou passou por esta situação?? Grato :(

Ola...Micheus..Bom Dia! Carinha fiz os testes conforme sua instrução. Primeiro dei uma alterada no seu codigo pois tava dando uns errinhos ficando assim: testei num programinha que tenho que teste comando SQL A data ali em baixo eu coloquei fixa pra teste. Select A.Codigo, B.CodLan, V.placa, G.CodLan, G.data_saida, G.peso, B.litros from Viagem G, Ajuste A, Vei V left join Abaste B on (B.codlan = A.codigo) where G.Data_Saida = '01/10/2007' and A.codigo = G.codlan and V.codvei = A.codvei order by V.placa, G.Data_Saida também testei no quickreport pra ver se realmente bate com o programinha teste(emitante ao DatabaseDesktop). O Problema: Então resumindo..o problema que encontrei foi este....somente. o resto ele processa legal.... Tem como corrigir isto???? Não tenho certeza, mas parece que alguém me comentou uma vez que left join o Paradox não gerencia legal......não sei ao certo..... Obs.: quanto o restante das observações que você fez....OK :) Grato

R.: Bom seguinte....a tabela Mestre(pai) é a: AJUSTE.DB Codigo(relacionamento) CodVei esta se relaciona com as tabelas(filhas): NOTE que as tabelas viagem e abaste estão vinculadas a tabela ajuste atraves do campo chamado CODLAN é isto que você quer dizer......? haaaa..e a AJUSTE.DB relaciona com a Vei.db(mas é o relacionamento com o cadastro de veiculos)aqui não to vendo problemas..... O problema maior é entre as tabelas: AJUSTE.DB VIAGEM.DB ABASTE.DB Grato

Ola...tenho que fazer um relatorio meio complicadinho....não sei se é possivel...mas vou explicar tenho as seguintes tabelas: ajuste.db codigo codvei vei.db codvei placa viagem.db codigo data_saida codlan peso abaste.db codigo codlan litros o que eu queria.... mostrar os veiculos no periodo sintetico sua quantidade de viagens, peso e os litros consumidos.. eu consegui mostrar o total de viagens e o peso mas não consigo mostrar os litros, pois ele esta na tabela abaste.db .....é aqui que ta o problema...não consigo amarrar o processo junto a tabela abaste.db sendo que a abaste.db esta amarrada a ajuste.db ajuste.codigo = abaste.codlan (somente esta amarração existe). meu codigo ta ai: TXT := 'select * from AJUSTE, VEI, VIAGEM '+ 'where DATA_SAIDA between :datai and :dataf AND '+ '(AJUSTE.CODIGO = VIAGEM.CODLAN) AND '+ '(AJUSTE.CODVEI = VEI.CODVEI) ORDER BY VEI.PLACA'; eu teria que colocar neste codigo uma amarração pra abaste.db ajuste.codigo = abaste.codlan assim eu poderia mostrar os litros... não sei se deu pra entender....mas é bem complicadinho mesmo de explicar... Grato

Ola..pessoal Eu tenho este codigo abaixo que pergunta pro usuario se ele deseja imprimir no Vídeo o relatorio...se sim imprimi senão imprimi no Papel If MessageDlg('Deseja Imprimir no Vídeo?',mtConfirmation,[mbYes,mbNo],0)<>mrYes then begin FormTFilial.quickrep1.PrinterSetup; FormTFilial.quickrep1.Print; aguarde.visible:=false; aguarde.Update; Abort; end else FormTFilial.Quickrep1.Preview; aguarde.visible:=false; aguarde.Update; end; Mas ficou meio esquisito eu acho.... :( Então eu pensei uma pergunta assim: Selecione o Tipo de impressão!! ai abaixo apareceria um botão VIDEO e outro PAPEL mas nem imagino como fazer este codigo...pois não consigo mudar o texto dos botões... alguém teria uma ideia.....??? Grato

Opa...Deu Certo.. Valeu a ajuda e explicação Grato t+ :D

Ola. R.: ok R.: Carinha deu erro [Error] Bomba_Res.pas(168): Left side cannot be assigned to Micheus....o relatorio esta assim: tem um qrexpr2 numa banda que recebe um valor tem outro QrExpr24 que esta numa OUTRA band que recebe outro valor então eu teria que colocar o resultado num QrLabel ou QrExpr que me mostre na teoria assim: QrLabelResultado.caption:=QrExpr2 - QxExpr24 e o formato teria que ser assim: 1.252.352,20 Valeu muito grato

R.: acho que sim.....e cheguei a conclusão...que realmente é proque eu copio e colo em outro form....veja. eu tenho um relatorio legal que aparece o componente certinho...eu colo este quickrep em outro form.......ai neste novo form...eu não adiciono o componente Qrtextfilter e neste form não aparece este componente...mas na hora de salvar ele aparece....é como se ele tivesse um caminho invisivel la de onde(form) ele foi copiado. se você fizer ai também...vai notar que chegará a esta conclusão também. O problema é como resolver isto....tenho um monte de relatorio de copio...pois são meio que parecidos.....agora ferrou. Grato

você diz do quickrep ??? que tenho que deletar ....mas se eu deletar eu perco o relatorio!!! não é? eu até acho o porque acontece isto....eu acho porque as vezes eu copio um quickrep de um form pra um outro form porque o relatorio as vezes é mais ou menos igual e pra ganhar tempo...as vezes faço isto...acho que deve ser isto...é a unica coisa de diferente que faço.. O que você acha?? grato

ola Jonas Value:='Saldo do Período: '+format(%n,[LitrosBomba - LitrosAbaste]+' Litros'; Carinha ta dando erro!!!! naquele parenteses que você colocou!! Grato

Eu de novo... não sei porque acontece isto....tem vários forms que uso que acontece isto... eu ensiro um QRTextFilter e depois quando executo o programa....e ai vou salvar um relatorio do quickreport, ai ao invés de aparecer uma opção na caixinha pra salvar em TXT aparece um monte desta opção: tipo: aparece um monte ...como se eu tivesse colocado no form do quick 4 vezes o QRTextFilter alguém saberia me dizer porque ocorre isto?? Grato