Boa noite tenho um datamodulo onde faço a conecção com o banco.
No formulário quando faço novos lançamentos nao esta sendo ordenado pois a ordenação e feita quando abro a ADOQuery... Como posso fazer para a cada lançamento fazer a ordenação na minha ADO Query -------Mensagem original------- De: Andrei Luís Data: 04/03/08 21:03:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Remover caracteres de arquivo txt Grande Rubem, O JLPSay é um componente bem, bem simples. Mas que tem funcionado legal comigo, a única ressalva é o preview. É freeware, o 'fabricante' acho que é esse cara aqui: http://jlpascoal.sites.uol.com.br/ , mas o site tá meio bugado, nenhum link tá funcionando, por isso mandei o componente pra lista. Aos moderadores, desculpe enviar um arquivo desse tamanho, se estourar o limite da lista excluam-no sem dó. :-) Depois que mandei a msg pra lista hoje a tarde, cheguei a mesma solução que você: o que seria de nós programadores sem o If, não? hehehe Na falta de outra forma, vou de If por enquanto. O problema que vejo em tentar tratar os códigos, é que o preview é chamado depois que o arquivo txt foi criado e fechado. Não dá pra simplesmente deixar os códigos de fora do arquivo txt que é gerado, pois o componente não sabe se será chamado o preview, ou se será chamado a impressão. A solução talvez seja criar outro arquivo txt independente para o preview, sem os tais códigos. De qualquer forma, obrigado pelas dicas Rubem. Quero dar uma olhada ainda no componente que o Eduardo sugeriu, só que aí vou ter que mudar toda a minha rotina de impressão, que está funcionando redondinha. :-( [] Andrei Em 03/04/08, Rubem Nascimento da Rocha<[EMAIL PROTECTED]> escreveu: > > > Confesso que nunca ouvi falar desse componente. Quem é o fabricante dele? Onde tem pra baixar a demonstração do mesmo? Quanto à visualização, isto quer dizer que seu bloco de impressão não consegue ser visto em TMemo em função de ele reconhecer no caracter nulo ('#0') uma espécie de fim de texto TRichEdit não consegue visualizar isso pq o conteúdo de um RichText segue um padrão de marcações(tags) inerentes ao padrão RTF. Pode esquecer RichText > > A sugestão bem simples seria criar blocos diferenciados, um para impressão e outro para visualização sem o caracter nulo ('#0')! Não conheço este componente, mas deduzo eu que ele deveria tratar isto. Se ele não trata, além de considerar isso um bug, vai ter que remediar da forma semelhante a que eu sugeri. > > Sds. > > > > ________________________________ > > To: delphi-br@yahoogrupos.com.br > From: [EMAIL PROTECTED] > Date: Thu, 3 Apr 2008 14:41:30 -0300 > Subject: [delphi-br] Remover caracteres de arquivo txt > > > > > > > > > Boa tarde, > > Utilizo um componente (JLPSay) pra imprimir notas fiscais. Esse > componente faz uso de writeln pra criar um arquivo txt e depois copia > esse arquivo para a porta da impressora. Esse componente tem um > preview, que nada mais é que um form com um Tmemo onde o arquivo > gerado é carregado. O problema, é que os primeiros caracteres que > envio são caracteres de config da impressora Epson: > > printNF.put(#27+'@'); > printNF.put(#27+#120+#0); > printNF.put(#27+#15); > > E quando o preview é visualizado, aparece apenas os primeiros 4 > caracteres. A impressão funciona perfeitamente, só o preview que tá > zicado. Pelo que entendi, o Tmemo para a leitura no #0 (nulo) e não lê > mais nada daí pra diante. Se eu abrir o arquivo que o componente gera > no bloco de notas, tá lá todo o arquivo certinho. > > Já tentei trocar o TMemo pra richEdit. Tentei carregar o conteúdo do > arquivo em um StringList para tirar os primeiros caracteres e obtive > os mesmos 4 caracteres iniciais. > > Alguém teria alguma idéia? > > Esse foi o código que usei, tentei salvar todo o conteúdo pra um outro > txt, e tentei copiando do 10º caracter até o final. > > wArqTmp := TStringList.Create; > wArqTmp.LoadFromFile(printNF.TempFile); > // wArqTmp.Text := Copy(wArqTmp.Text, 10, wArqTmp.Count); > wArqTmp.SaveToFile('C:\Teste.txt'); > > []s > Andrei > > Delphi 2006 Pro > > > [As partes desta mensagem que não continham texto foram removidas]
