s3c

Bom, pra desligar: http://scriptbrasil.com.br/forum/index.php...=0entry136487 você pode colocar o código num TTimer e quando chegar a hora você executa.

Antes de dar Query.Open, dê um ShowMessage(Query.Sql.Text) e poste o que aparece no ShowMessage.

As vezes um detalhezinho pode complicar todo um projeto. Bom, fico contente que tenha virado passado. Abraços a todos os colaboradores !!!

No Preview saíram todos os registros com o mesmo código e o DBGrid ficou vazio ?

Bom, pelo texto seu dataset está correto. O que pode ser é que você está com a Query1 vinculada ao datasource do DBGrid e este está 'mandando' na tabela. Desvincule a Query1 do Datasource1 e clique no SpeedButton1.

Como você manda imprimir ou visualizar o preview?

Pra ligar eu não sei, mas pra desligar existe uma api que faz isso.

Não esqueça que você tem um outro Query1 em U_GerarRelAt com código implementado daqueles selecionados que não tem nada a ver com o Query1 da Unit U_RelAt.

Bom, na sua unit U_RelAt você tem um QuickRep1, um Table1 e um Query1, certo? Qual dataset você amarrou ao QuickRep1?

Poste o .dpr e os .pas das units de você utiliza.

Tente clicando no DBGrid.

Uma sugestão: Clique no meio do Form. Depois clique com o botão direito e clique em View as Text. Marque tudo e poste.

Estou meio por fora da amarração do Dataset ao relatório porque eu utilizo o evento onNeedData do TQuickRep para imprimir sem precisar ligar Datasets, mas deve ter um furo muito grande para só sair o primeiro registro várias vezes.

Imagens em bancos de dados não tem extensão, elas ficam como campos Blobs(Binary Large Object). Já que é um novo projeto, te aconselharia a utilizar o Interbase ao invés de Paradox.

Faça num único evento: var ArquivoE,ArquivoS:TextFile; i,j:Integer; sE,sS,sW:String; begin AssignFile(ArquivoE, OpenDialog1.FileName); //aqui é o botao pra abrir o arq. Reset(ArquivoE); AssignFile(ArquivoS, OpenDialog1.FileName); //aqui é o botao pra abrir o arq. Rewrite(ArquivoS); While not Eof(ArquivoE) do begin Readln(ArquivoE, sE); sS := ''; sW := ''; for i := 1 to Length(sE) do if sE[i] in [' ', #9] then begin if sW <> '' then if sS <> '' then sS := sS + ' ' + sW else sS := sW; sW := ''; Continue; end else sW := sW + sE[i]; if sW <> '' then if sS <> '' then sS := sS + ' ' + sW else sS := sW; Writeln(ArquivoS, sS); end; CloseFile(ArquivoE); CloseFile(ArquivoS); end;

Teria que dar certo quando você utiliza as Strings explícitas. Por exemplo: MoveFile('C:\origem\teste.doc','C:\destino\teste.doc'); //Não deveria dar erro de conversão. Agora, se for utilizado: MoveFile(sOrigem, sDestino); // erro de conversão, o certo seria: MoveFile(PChar(sOrigem), PChar(sDestino));

Será que não falta algum .Next ?

você lê ArquivoE, separa as palavras e gera ArquivoS com um registro para cada palavra? É isso?

O FindWindow retorna o Hande de uma janela e você pode passar o nome da classe no primeiro parâmetro, ou o caption da janela no segundo parâmetro, ou os dois. O nome do programa não tem nada a ver com FindWindow a não ser que coincida.

É estranho que o RequestLive só funcione em true e não em false. Para mim costumava acontecer o oposto, ou seja, tinha bancos que quando havia seleção de registros, você tinha que deixar RequestLive=false; daí ele exibia normalmente, mas você não conseguia atualizar o DBGrid. Bom, agora é com o Corposemalma p/ você ligar o seu relatório à esta query. A soma das quantidades você pode fazer no loop desta query.

Essa query é um objeto TQuery? Se for, verifique a propriedade RequestLive e deixe-a false.

Uma sugestão: Desvincule o relatório desta query. Utilize-a apenas para preencher o DBGrid e veja se funciona com mais de um código.

Na verdade o parâmetro pFrom é um ponteiro para diversos filenames. Quando você define PChar(String), seu último caracter é #0. Como pFrom é um PChar p/ várias Strings, a api tenta ler próximo nome de filename após o #0; é por isso que é adicionado outro #0 dizendo que não há mais Strings para ler.

Não seria melhor testar (if sWhe <> '') p/ fechar o parêntese; no caso da Lista2 estar vazia dará erro.

Bom, acredito que você deve conhecer um pouco de análise de sistemas, fazer uma macro análise do como será seu projeto, dividí-lo em módulos integrados para depois detalhar cada módulo fazendo a micro-análise e a programação propriamente dita.