Eder

Grande Micheus..Deu certo. :D Só nesta parte aqui que mudei: SELECT FIRST(PAGADOR_NOME) FROM CTRC WHERE PAG_CNPJ = :PAG_CNPJ para SELECT PAGADOR_NOME FROM CTRC WHERE PAG_CNPJ = :PAG_CNPJ tirei o First pois da erro ...acho que o paradox não suporta pois deu o erro: CAPACIDADE NÃO SUPORTADA. Demais deu certinho.. valeu Carinha...mais uma vez muito Grato abraços :D

Ola...Micheus...beleza? R: OK... a sua idéia eu até peguei..... tentei resolve-la mas não consegui.... você quer dizer que eu insiro mais uma query e nela a consulta parametrizada(com o filtro nela) né? Ai eu ligo esta query a um QrLabel na mesma band que imprimi o cnpj do cliente atraves do BeforiPrint com um codigo no OnPrint do QrLabel. acho que é assim né? porem não consegui montar o codigo na query ou até mesmo no Onprint. se for isto poderias me detalhar como montaria este codigo? Haaa.... R.:Neste caso aqui eu tou usando o Quickreport.......na verdade uso agora o Quickreport e o Freereport, dependendo da situação. Neste caso o relatorio já estava pronto é apenas uma correção. Abraço :D

R:Denis só existe uma tabela paradox com estes dados......estes dados são originados de uma conversão de um arquivo *.csv que importei. então não da pra fazer da maneira como fala.....eu entendi perfeitamente como você mencionou..só que neste caso....é uma unica tabela. acho que eu vou ter que entrar nela e filtrar este cnpj e alterar todos os registros para que fiquem com a mesma razão social....pois não to vendo solução....achei que teria via consulta sql...mas não parece que não tem jeito. Grato

Ola...Deniz..Grato em responder. R.: neste caso aqui tenho apenas uma tabela chamado Ctrc......sem nenhum relacionamente...pois este ctrc.db foi gerado apartir de um *.csv R.: Ok....fiz o que me sugeriu mais deu erro: CAPABILITY NOT SUPORTED Será que é por causa de ser Paradox a Tabela?? muito Grato

Jonas....acho que você não ta me entendendo!!!hehehe. mas beleza.... R.: já esta assim........eu já utilizo desta forma. o problema...é que como na tabela foi cadastrado assim: registro: CLIENTE CNPJ AAAAAA SA 22222222222222 até meio do ano o pessoal alimentou os registros com o nome do cliente assim: AAAAAA SA depois alguém mudou o nome do cliente pra: AAAAAA(sem o SA) certo? como faço a group by em cima dos campos: GROUP BY PAG_CNPJ, PAGADOR_NOME a consulta ta entendendo que são dois CLIENTES DIFERENTES e ta me mostrando separados.... Na verdade são clientes iguais.... então eu tenho duas alternativas....uma forma de consulta onde junte, ou pegar a tabela paradox e alterar tudo pra um nome igual...... você. Compreendeu o problema????é isto que você ta me passando o esquema de concatenar não fiz ...mas os dos qrdbtext já esta assim...e não junta os registros..... pois existe dois nomes de clientes diferentes.... Pro sistema ....são dois clientes distintos...... Achei que seu eu fizesse a consulta em cima do campo de filtro por cnpj ai resolveria o problema..mas eu tenho que mostrar o nome do cliente ao lado. Grato

Ola..Jonas..eu uso dois campos QrDbText um pro Nome_Cliente e outro pro Cnpj_Cliente O programa é que no codigo ele agrupa pelos dois campos......e como esta com a razão social diferente não ta juntando.. Não tem uma maneira de fazer Funcionar via codigo?? Tentei tirar da Group o PAGADOR_NOME pra não agrupar ...mas como esta na select da erro.....e como eu precise que ele aparece no relatorio....ai fiquei com as mãos atadas. Acho que agora expliquei melhor....era isto que você também tinha entendido?? Grato

Ola.. tou com um probleminha muito chato...rs tem programas(exe) que neles possuem lincks pra algumas paginas de internet...mas eu clicko neles e nada acontece....na abre pagina alguma... já fiz em outras maquina e abre na minha não abre. alguém sabe como corrigir este problema?? Grato

Ola.. Tenho esta instrução sql: Qry1 :='SELECT PAG_CNPJ, PAGADOR_NOME, '+ 'SUM(VALOR_FRETE) AS VALOR_FRETE_TOTAL, '+ 'SUM(CONTADOR) AS CONTADOR_TOTAL, '+ 'SUM(KG_CALCULO) AS KG_CALCULO_TOTAL, '+ 'SUM(VALOR_N_FISCAL) AS VALOR_N_FISCAL_TOTAL '+ 'FROM CTRC WHERE (SITUACAO_CTRC <> "C") '+ 'AND DATA_EMISSAO between :datai and :dataf '+ 'AND NOME_VENDEDOR = ' + QuotedStr(COMBOBOX1.text) + ' GROUP BY PAG_CNPJ, PAGADOR_NOME ORDER BY 3 DESC'; Notem que ela agrupa por GROUP BY PAG_CNPJ, PAGADOR_NOME e me mostra estes dados no relatorio.... assim: MAS agora tem um problema...HOuve um cadastro do cliente alterado no meio do ano......o cadastro no inicio do ano tava assim: AAAAAA E agora foi alterado assim(razão social): AAAAAA SA ai o relatorio começou a mostrar assim: Notem que por causa do SA ele não juntou os dados, porque esta diferente ...... Como é que eu faço pra Juntar os registros, desconsiderando o NOME DO CLIENTE(PAGADOR_NOME) SÓ fazendo o filtro pelo CNPJ DO CLIENTE(PAG_CNPJ). Mas o nome do cliente deve aparece no relatorio Grato

Ola..Jonas. O meu codigo é pra apenas exportar pro JPG sem a geração do preview no quickreport. na verdade o que resolveu mesmo foi assim: Form2.quickrep1.prepare; QrpToImg(FORM2.QuickRep1,'C:\',1); //Exporta o Quick para JPG Foi este comando que resolveu. Form2.quickrep1.prepare; eu montei um codigo...que ele vai gerando e salvando arquivos em jpg, tipo um filtro onde ele gera primeiro o total geral da empresa, depois por filiais uma a uma até finalizar...tudo sem ver o preview no quick na tela, apenas gerando e salvando pra jpg Agora ta tudo certinho.... muito Grato t+

Ola..estou usando esta dica pra salvar quick pra JPG O problema é que tenho um relatoria que trabalha com mtas variaveis.....e demora um pouco pra mostrar o resultado.....é um relatorio por mes sintetico. No quickreport sai correto.... A ultima coluna é a coluna que soma todos os meses......agrupando.. esta coluna esta somando so os tres primeiros meses........quando exporto pro JPG... No quickreport sai correto.... Só na exportação pro JPG...parece que não da tempo de somar tudo antes de salvar o arquivo JPG..... quando é um relatorio com poucos dados funciona 100%....só este que da problema. :( alguém teria alguma solução pra resolver o problema... Grato

valeu....Churc Grato também Micheus... muito Grato t+

Micheus...carinha....não consegui montar eu não sei como pego o conteudo do SL pra ser salvo no Savediolog fiz assim,mas é claro falta algo. procedure TForm1.XiButton5Click(Sender: TObject); var sl: TStringList; begin sl := TStringList.Create; sl.Add(Memo1.Lines.Text); sl.Add(Memo2.Lines.Text); sl.Add(Memo3.Lines.Text); //sl.SavetoFile('c:\alias.txt'); sl.free; savedialog1.filename:='alias.txt'; if savedialog1.execute then begin (savedialog1.filename); end; end; Grato

R.: Ok.. R.: sim..o seu funciona...e aquele exemplinho com showmessage também funciona... Só no meu programa oficial....que não funca....deve ter algo la no programa que não deixa funcionar...mas já revirei o codigo e não tem nada.... mas beleza.....vou arrumar alguma maneira de não usar o componente Ttimer nesta aplicação. valeu...muito grato

R.: isto me enganei mesmo :) R.: sim deu certo. só pra fechar.... nesta parte aqui: sl.SavetoFile('C:\MeuArquivodeTexto.txt'); Teria como eu disponibilizar pro usuário pra escolher o nome do arquivo a ser salvo e o local??? tipo com um savedialog(não sei como usa-lo!!) valeu..Grato :D

// interval do timer = 600000 > 60 segundos R.: oba....aqui acho que você se enganou é 60000 (60 segundos né?) a cada 1000 equivale a 1 segundo né? BELEZA..mas vamos lá.. Jonas...nunca via algo assim...já procurei no codigo todo do form e não achei o problema... veja o exemplo é igual a este que vou passar abaixo: //este timer coloquei ligado pra 3000(3 segundos) procedure TForm1.Timer1Timer(Sender: TObject); begin SHOWMESSAGE('LIGADO'); end; //este desabilitaprocedure TForm1.Button1Click(Sender: TObject); begin TIMER1.Enabled:=FALSE; end; este exemplinho acima funciona legal.......é lógica....se ta ligado aperto o botao e ele desliga....mas no meu programa oficial...ele não desativa..... TIMER1.Enabled:=FALSE; ou seja é como se eu não clickasse neste codigo acima... já troquei de nome dos componentes timer´s, pois pensei que alguém form tinha numo parecido e taria puxando.... já não sei mais o que fazer.... pela logica e pelo exemplinho que mostrei acima deveria funcionar!! Grato

R.: Ola Churc.. testei e deu erro nesta linha: sl.Add(Memo1.list); [Error] Unit1.pas(581): Incompatible types: 'String' and 'TStrings' :)

Ola.... Pessoal...tem como gravar o conteudo de dois memos num unico arquivo texto(*.txt)?? Grato

beleza....instalei com o Kurumin 7 com Swap....é melhor né. valeu grato

.....na dúvida instalei o Kurumin 7. valeu..grato

Eu de novo O Mandriva 2008 é Free?/ Grato

Ola..pessoal..tou com um probleminha muito chato..já não sei mais o que pensar... Tenho um TTimer1 que esta Enabled=True com tempo de 60 segundosnele no onClick esta: Application Terminate; e Tenho um Botão onde esta assim no OnClick Timer1.Enabled:=False; Explicando: se eu não clickar no botão em 60 segundos...o programa fecha, e se eu clickar no botão então desabilita o Timer1 Porem não funciona...eu clicko no Botão..e ele não desabilita o Timer1 Eu nunca vi isto......ele não obedece. Tem algum codigo que eu posso desabilitar este Timer?? Grato

Ola.... Minha maquina tem 750 mb de memoria. preciso instalar swap pra instalar o linux kurumin ou mandriva etc..?? Grato

valeu....Churc. :D Grato, t+ ;)

Ola... eu tenho este codigo: procedure TForm1.XiButton1Click(Sender: TObject); Var CAMINHO : STRING; begin caminho := extractFilepath(application.ExeName)+'BDADOS'; SHOWMESSAGE(CAMINHO); end; ele me traz o caminho do executavel que vai ser extraido + BDADOS ficando tipo assim: Y:\PROGRAMA\BDADOS mas eu gostaria que pegasse somente a Letra da Unidade(Y:\) + PROGRAMA\BDADOS ficando assim igual: Y:\PROGRAMA\BDADOS. Eu queria que extraisse somente a LETRA DA UNIDADE e o resto eu adiciono na MÃO valeu..Grato

Ola...tenho um programa..que ta dando um erro que não tou conseguindo descobrir Na minha maquina não da o erro, somente nas maquina CLIENTE O erro acontece logo ao clickar no atalho do Programa: COULD NOT FIND OBJECT alguém saberia me dizer o porque do erro?? o programa esta em Rede... Opa.....já resolvi, era um probleminha de tratamento de uma Table :D Grato