Eder

Ola...pessoal. Eu tou usando no OnPrint do QrExpr1 este codigo: LitrosBomba:=strtofloat(value); no QrExpr2 este codigo: LitrosAbaste:=strtofloat(value); e em outro Qrexpr o total que ficaria assim: Value:='Saldo do Período: '+floattostr(LitrosBomba - LitrosAbaste)+' Litros'; Estas variaveis acima são Globais. até aqui tudo bem..funciona... o problema é que eu gostaria de formatar estes resultados que vão aparecendo nestes Qrexpr pois estão saindo tipo assim: 999555,21 eu gostaria de formatar assim: 999.555,21 (com o ponto). até coloquei na mascara dos qrexpr...mas ai da erro quando são acionadas as variaveis.. Como eu resolveria este problema?? Grato

R...é coisas do alem.....abraço...rs t+

funcionou...... porem como ele não tem o valor fora da data que pedi o relatorio...ai não faz conta. COMO mostra acima....ele não tem o valor e por isto não tem valor como mostra a sua explicação: If QtdHora = 0 then QRRepouso.Caption := '' // na primeira linha não há diferença else mas beleza...sem problemas...alias não é problema.... valeu...muito grato t+

Ola..Jonas.. Carinha não sei o que fiz exatamente mas agora ficou certinho tanto no bloco de notas e também no Word Pad. Agora eu te pergunto: Porque que acontece isto??Tem algum configuração pra ficar certinho? pois não sei o que fiz que deu certo agora...e eu já tava um tempão...pra ver o porque ocorria..eu achava que era do componente que não exportava direito. Grato

Ola..Pessoal Eu sempre encontrei problema com este componente QrTextFilter do QuickReport. Ele salva legal em TXT mas se o relatorio tiver mtos dados....e as colunas estiverem bem juntinhas pra ganhar espaço...no *.QRP sai direitinho e no *.TXT(qrTextFilter) tem coluna que acaba invadindo a outra misturando os dados....fazendo a maior salada. Ai tenho que dar espaços maiores....e funciona...só que as vezes o relatorio não tem como dar espaço ai o bicho pega.. Tem alguma maneira de corrigir este problema? eu sempre abro depois de salva o txt no bloco de notas...será alguma configuração no bloco de notas??? Grato

R.: opa agora abriu também.....e li a sua explicação.. quanto ao resultado deu certo. :D só achei um coisinha esquisitinha no relatorio(parece falha).....no caso o primeiro registro do motorista.. Pois como não tenho a data_saida e hora_saida não tem como fazer a conta...mas beleza....se precisar saber é só tirar o relatorio uns dias antes. Mas Beleza....Micheus....muito grato pela ajuda mais uma vez.. Forte Abraço ;)

Ola...Micheus....fiz o exemplo como me mostrou...funcionou legal...exceto pela questão de ultrapassar a 23:59, tipo como exemplo abaixo: ai tentei ler o tópico que você me mostrou: só que este tópico não ta abrindo pra mim. :( Grato

R.: bom....como o campo é timer e ultrapassa as 23:59 horas então é convertido os dias+horas em segundos....visto quando da os segundos...ai volta de segundos pra horas..pelo menos um colega meu me disse que seria uma solução mais correta pra resolver o problema. vou tentar fazer a sua dica que você exemplicou acima...pra ver...no que da. se tiveres mais alguma dica mais simples...por favor me mostra....infelizmente foi o presente que ganhei hoje no meu primeiro dia após as feiras hehehe... tenho que montar este relatorio até sexta...é mole? ;) Grato

ola..Micheus.....quanto tempo heimmm!! Carinha primeiro vou responder este pergunta: Algo assim. Resta uma pergunta: Há a possibilidade de este intervalo de tempo ser maior que 23:59h? R.: bom infelizmente pode ocorrer sim......por exemplo se a viagem foi dia 10 e depois somente dia 15 ele viajou denovo neste caso da um monte de horas... neste mesmo relatorio eu uso estas duas funções pra converter horas pra segundo e depois voltar de segundo pra horas.... //Função converter Hora para Segundos function Hora_Seg( Horas:string ):LongInt; Var Hor,Min,Seg:LongInt; begin Horas[Pos(':',Horas)]:= '['; Horas[Pos(':',Horas)]:= ']'; Hor := StrToInt(Copy(Horas,1,Pos('[',Horas)-1)); Min := StrToInt(Copy(Horas,Pos('[',Horas)+1,(Pos(']',Horas)-Pos('[',Horas)-1))); if Pos(':',Horas) > 0 then Seg := StrToInt(Copy(Horas,Pos(']',Horas)+1,(Pos(':',Horas)-Pos(']',Horas)-1))) else Seg := StrToInt(Copy(Horas,Pos(']',Horas)+1,2)); Result := Seg + (Hor*3600) + (Min*60); end; //Função converter Segundos para Horas function Seg_Hora( Seg:LongInt ):string; Var Hora,Min:LongInt; Tmp : Double; begin Tmp := Seg / 3600; Hora := Round(Int(Tmp)); Seg := Round(Seg - (Hora*3600)); Tmp := Seg / 60; Min := Round(Int(Tmp)); Seg := Round(Seg - (Min*60)); Result := FormatFloat( '00', Hora )+ ':' + FormatFloat( '00', Min ) + ':' + FormatFloat( '00', Seg ); end; Será que não teria uma maneira de trabalhar com estas duas funções pra solucionar o problema?? Nota: não testei a sua idéia ainda.......tou esperando a sua dica... ;) valeu...muito Grato :)

Ola..pessoal Tenho que montar um relatorio no quick.....e nele tenho que diminuir a Dta e hora final - Data e hora inicial da ultima viagem. assim deve ser: Dta Saida----Hra Saida---Dta Chegada----Hra Chegada---Repouso Motorista(em horas) ---------------------------------------------------------------------------------- 15.10.2007 20:00 16.10.2007 16:00 16.10.2007 18:00 17.10.2007 15:00 02:00 17.10.2007 19:00 18.10.2007 16:00 04:00 18.10.2007 17:00 19.10.2007 15:00 01:00 eu teria que mostra no relatorio o total de REPOUSO DO MOTORISTA o repouso compreende a data e hora inicio da viagem - data e hora final da ultima viagem. não sei se fui claro....se alguém não entender por favor ...... eu já montei o relatorio só falta mostrar aquela continha do REPOUSO DO MOTORISTA...não sei montar.... paradox campo da tabela tipo (t)timer + delphi 4. muito Grato :(

R.: amigão....seguinte, não sou a pessoa mais indicada pra te dizer como montar um relatório deste tipo, porem passei pelas mesmas dificuldades suas, pois precisava de um relatorio até mais complexo que o seu em paradox. O problema dele, é que ele é um relatorio lento, pois trabalhei com variaveis no OnPrint dos Qrlabels. Ele funciona perfeito.....porem é muito chato a montagem dele....mas parece que no seu caso não seria tão dificil pois você quer totalizar os valores de faturamento somente...portanto como sendo apenas um tipo de dado seria mais facil. A ideia é no quickreport criar duas queries: *Uma chamada query1 que seria a consulta em si *Uma query chamada QryMeses que seria a query que iria fazer os calculos dos meses e mostrar no Onprint de cada qrlabel. nela você colocaria o seguinte codigo: SELECT sum(Qtdhe) as TOTAL FROM Despesas, func where (DESPESAS.CODFUN = FUNC.CODIGO) and DESPESAS.COMPET NOT LIKE "13/%" and extract(month from data)=:pMes and extract(year from data)=:pAno and Func.Codigo=:pCliente *você colocaria um qrlabel pra cada mes de faturamento.... em cada qrlabel no onprint você colocaria assim: procedure TFormRTME2.QRLabel15Print(sender: TObject; var Value: String); begin qryMeses.Close; //abaixo a variavel PAno trata o ano qryMeses.ParamByName('pAno').AsInteger := StrToInt(FormRTME.ComboBox1.Text); //selecionada o ano //abaixo a variavel pmes trata o mes qryMeses.ParamByName('pMes').AsInteger := 1; //mes 1-janeiro //abaixo a variavel pcliente trata o cliente atraves do codigo do clientes qryMeses.ParamByName('pCliente').AsInteger := Query1CODIGO.AsInteger; qryMeses.Open; {aqui a variavel que totaliza o total p/ mes (janeiro) na banda detail} TotJaneiro := TotJaneiro + qryMesesTOTAL.AsCurrency; // {aqui a varivel que totaliza na banda amarela o total geral} TJan := 0; TJan := TJan + qryMesesTOTAL.AsCurrency; // Value := FormatFloat('###,###,##0.00',qryMesesTOTAL.AsCurrency); //abaixo ele verifique se o valor é 0,00 se for ele não conta o registro...que é mostrado no qrlabel67 If (value<>'0,00') and (value<>'') then RJan := RJan + 1; end; Note que é um monte de variaveis.....isto da um nó na cabeça...mas..tem que criar e depois inicializar....em fim...ai vai da sua imaginação... Mas a ideia central é esta......funciona perfeito, exceto como citei acima o relatorio é muito lento, demora dependendo da quantidade de dados alguns minutos.... Só pra você ter uma ideia...estou com uma base paradox de 120 mb com 70.000 registros de janeiro até agosto deste ano...e o relatorio trabalha com mais dados...faturamento, peso, valormercadoria uns 8 dados....e funciona legal, exceto pela demora...hehehe.. Inclusive eu uma vez postei algo aqui no forum inclusive na época nosso colega Micheus também participou do tópico, pra tentar otimizar o processo mas não tive sucesso e acabei ficando com esta ideia mesma... Ralei um monte pra montar este tipo de relatorio juntamente com um amigo (Rodrigo Thor de Sinop no Mato Grosso)mais experiente é claro. Bom é isto ai amigão...Boa sorte..tomará que você consiga... Espero que ajude a dica. Abraços. :D

ola..pessoal...o codigo não posso postar.....mais o problema...em primeira mão seria....a diferença de espaços de uma linha pra outra...ou seja no IE fica certinho e no FF fica espaços longos na altura....na largura ta certinho é só na altura... por exemplo no IE fica sem barra de rolagem no FF fica com barra de rolagem, pois como tem mtos espaços na altura vai jogando pra baixo. Teria como corrigir isto??? Grato

Ola... Pessoal...fiz uma página...e no Internet Explorer fica legalzinho....mas no FireFox fica meio que bagunçado...ou seja...a pagina fica com espaços..na altura ...na largura fica certinho..e tem alguns codigos JavaScript que simplismente não funcionam....não rodam..fica horrivel..a pagina. Tem alguma configuração específica pra rodar legal no FF ?? Grato

opa...mudei o esqueminha..valeu

Ola..Flavio..beleza? Como sou novato neste ramo....eu tou meio perdido. coloquei este codigo que voce me mencionou na pagina: <script> function abrejanela(url,l,a) { var x = parseInt((screen.width-l)/2); var y = parseInt((screen.height-a)/2); var win = window.open(url,'','width='+l+',height='+a); win.moveTo(x,y); } </script> ei inseri uma imagem na pagina e linckei o arquivo da imagem e no linck coloquei assim: java script:abrejanela('arquivo.jpg') ai funcionou abriu a janela com a imagem maior e no centro do monitor...mas logo após a abertura deu erro na linha 18 que seria esta linha: var win = window.open(url,'','width='+l+',height='+a); poderias me dizer por favor o que ta errado? Grato

R.: humm...não tem no d4...mas beleza..vou continuar usando o PrtGrid mesmo. Precisava de algo simples como exporta dados de um dbgrid pra xls, porem o meu D4 não tem mtas opções. Valeu Grato.. t+

amigão..achei esta dica, mas não to achando uma maneira de adptar a minha dica...... porque esta dica abaixo..é pra colocar numa pagina já pronta....no meu caso eu click no linck e chama uma url e apresenta a imagem. Grato

amigão...desculpe mas nestes linck não encontrei o que eu estaria perguntando. Poderias me dar uma dica? Grato

Ola..pessoal eu uso este codigo abaixo pra quando o usuario clickar numa mini imagem abrir uma janela com a imagem em tamanho 800x600 <script language="JavaScript"> <!-- function nph_open_window(url, name, feature) { window.open(url, name, feature); } // --> </script> no linck pra chamar: java script:nph_open_window('arquivo.jpg', 'nph_window', 'width=800,height=600,toolbar=no,menubar=no,status=no,scrollbars=yes,resizable=yes') O problema que a janela abre no canto do visor.... teria como ela abrir no centro do visor ou seja centralizar a janela do Navegador?? Ou alguém teria alguma ideia melhor pro meu caso, tipo um efeito legal na abertura muito Grato

pessoal..grato a todos... eu achei legal este exemplo linck que o Jonas já havia postado no inicio do tópico e que o amigo Welson menciona.... http://www.activedelphi.com.br/modules.php...r=0&thold=0 mas ai testando apareceu esta etapa da dica: ExcelApplication: Name: Excel é um componente??? No delphi 4 não achei.... Grato

carinha consegui...achei o motivo do erro..... após a consulta o dbgrid as vezes congelava. nas era só com periodo long...tipo um travamento..cheguei a usar outro componente dbgrid....mas mesmo assim congelava...acho que é um buguezinho do componente PRTGRID....sei lá.. ai pra solicionar o problema apenas coloquei ao final do codigo este comando: Query1.first; assim força a query a rodar até o última registro, destravando o DbGrid...ai resolveu..o erro não apareceu mais..independente do período. Mas valeu...muito grato pela força :D

R.: beleza.. JOnas....deu erro nesta linha também: With mxNativeExcel1 Do que componente é este?? :( Grato

Oba..Jonas... Estou tentando fazer o ser exemplo e deu erro nesta linha: If SaveXls.Execute then erro:[Error] Unit1.pas(44): Undeclared identifier: 'SaveXls' tem que declarar algo na uses?? Grato

movido deste tópico: Probleminha Com Dbgrid X Componente Prtgrid _________________________________________________________________ haaaa..Jonas você conhece uma outra maneira de exportar conteudo de um dbgrid pra xls?? Grato

Jonas...infelizmente o erro acontece. :( Não sei mais o que pensar. mesmo assim valeu a força..se tiveres mais alguma ideia muito grato