Jhonas

Da uma lida neste artigo http://www.activedelphi.com.br/print.php?sid=213

Supondo que os campos são do tipo date SELECT CODBASE, CODSIMILAR, ISNULL(SUM(QTDE),0) AS VENDAS, ORIGEM = 'P' FROM CORPOPED JOIN CABPED ON CABPED.NUMPEDIDO = CORPOPED.NUMPEDIDO WHERE CABPED.EMISSAO >= '10/30/2007' AND CABPED.EMISSAO <= '10/30/2007' GROUP BY CODBASE, CODSIMILAR UNION ALL SELECT * FROM OPENQUERY(REMOTO, 'SELECT CODBASE, CODSIMILAR, ISNULL(SUM(QTDE),0) AS VENDAS, ORIGEM = 'R' FROM CORPOPED JOIN CABPED ON CABPED.NUMPEDIDO = CORPOPED.NUMPEDIDO WHERE CABPED.EMISSAO >= '10/30/2007' AND CABPED.EMISSAO <= '10/30/2007' GROUP BY CODBASE, CODSIMILAR

Endereço de alguns exemplos http://www.forumweb.com.br/foruns/index.ph...try&eid=200 http://www.activedelphi.com.br/modules.php...r=0&sid=187 http://www.devmedia.com.br/articles/viewcomp.asp?comp=958 http://www.indyproject.org/Sockets/Demos/index.EN.aspx http://www.imasters.com.br/artigo/1201/del...mponentes_indy/

Se entendi direito deve ser algo parecido com isto SELECT COD_FUNC FROM FUNCIONARIOS HAVING MAX( COD_FUNC ) = COD_FUNC ORDER BY COD_FUNC Esta select vai retornar o maior codigo de funcionario na tabela e a partir dai voce pode adicionar + 1 a esse numero e jogar em um edit... é isto ?

pode ser sim ... mas voce pode fazer um teste ... em um QR que esteja legal voce da um save as.. com outro nome e veja se ficou certo ou caso contrario voce da um select all no report e depois da um ctrl + c para copiar, depois deleta tudo .... crie um novo quickreport e depois da um ctrl + v para colar, vai ficar do jeito que estava mas num QR novo ... entendeu ?

faltou fechar o parenteses Value:='Saldo do Período: '+format(%n,[LitrosBomba - LitrosAbaste])+' Litros';

O erro não é do QRTextFilter e sim do QuickReport, se trocar o QuickReport e adicionar o QRTextFilter este problema some, sei que acontece isso (pois já aconteceu comigo) , só que ainda não descobri o motivo.. rs

Oi Eder ... o problema se resolve assim: Value:='Saldo do Período: '+format(%n,[LitrosBomba - LitrosAbaste]+' Litros'; abraço

Sugestão: sbstitua os dbedits por edits ou mude a SQL para: Select * from fornec order by NOME

va na pasta LIB do delphi retire as .dcus (Versão antiga ) e coloque as .dcus do componente atual

Para saber se um arquivo existe no FTP do servidor, voce teria que baixar todos os arquivos e lista-los em um listbox, para saber se o arquivo que voce quer esta lá. entretanto no eventoWorkBegin do idFTP, que é disparado no momento em que o Download do arquivo é iniciado, faça: procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); begin if AWorkCountMax = 0 then // se for 0 não existe o arquivo no FTP ou ele esta vazio begin showmessage('arquivo não encontrado'); exit; end; end;

Se em uma nova aplicação compila sem erros, então no seu projeto antigo voce tera que tirar o componente e todas as referencias a ele e compilar novamente (sem o componente), uma vez feito isso, insira o novo componente e compile novamente o programa. Isso deve resolver.

Componente calendario para pintar as celulas http://www.tmssoftware.com/download/plannercal.zip Caso queira mudar o visual de sua aplicação, neste endereço vai encontrar componentes visuais bem legais http://www.tmssoftware.com/

Voce só vai conseguir fazer isso, quando ao carregar as figuras no TImage, guardar o nome de cada uma delas ( talvez usando uma matriz ) para os respectivos TImages.. desta maneira ao clicar na carta voce pode comparar os nomes das figuras.

Colega se voce usar o componente TMonthCalendar, no máximo , vai conseguir deixar em negrito os dias que voce quiser, mas se quiser colorir a celula do dia vai ter que usar outro componente .... qual a versão do delphi que voce usa ? OBS: o codigo abaixo é para deixar em negrito os dias 1, 9, e 18 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) MonthCalendar1: TMonthCalendar; procedure MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal); begin MonthCalendar1.BoldDays([1,9,18], MonthBoldInfo); // deixar os dias em negrito end; end.

voce pode utilizar o Dspack que já vem com alguns exemplos muito bons http://scriptbrasil.com.br/forum/index.php...st&p=440417

Adicionar uma barra de rolagem horizontal a uma ListBox procedure TForm1.FormCreate(Sender: TObject); var i, intWidth, intMaxWidth: Integer; begin intMaxWidth := 0; for i := 0 to ListBox1.Items.Count-1 do begin intWidth := ListBox1.Canvas.TextWidth (ListBox1.Items.Strings[i] + 'x'); if intMaxWidth < intWidth then intMaxWidth := intWidth; end; SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, intMaxWidth, 0); end; Dica de Osmar J. Silva

Tem razão Micheus ... não me atentei para este fato, o codigo da calculadora so vai funcionar no Console Application program Project2; {$APPTYPE CONSOLE} uses SysUtils; var n1,n2,resultado:real; operador:char; begin writeln('Digite o primeiro número:'); readln(n1); writeln('Digite o segundo número:'); readln(n2); writeln('Digite o operador:'); readln(operador); if operador='+' then resultado:=(n1+n2) else if operador='-' then resultado:=(n1-n2) else if operador='/' then resultado:=(n1/n2) else if operador='*' then resultado:=(n1*n2); writeln('O resultado é:',resultado:0:0); end.

Erro de Servidor de banco de dados: Erro de I/O para c:\windows\temp\fb_sort de arquivo "... Erro enquanto tentando abrir arquivo Banco de dados não pode ser aberto e a seguinte mensagem de erro aparece: Banco de dados desconhecido erro de I/O para arquivo " * .gdb ". Erro enquanto tentando abrir / ler o arquivo. Erro: Parada de emergencia.. provável desarranjo no servidor das últimas páginas do arquivo escritas no banco de dados ao disco e depois o servidor não pode criar a imagem de banco de dados interna para poder abrir o arquivo. Solução: recuperação de referências perdidas das páginas para os tipos e numeros através de páginas não-corrompidas. Geração de novas páginas em vez das perdidas. Cheque de banco de dados por gfix e backup/restore de controle.

Porque acontece isso ? Mistérios ... Rs Abraço

Compilador Pascal http://images.google.com.br/imgres?imgurl=...10%26hl%3Dpt-BR se for em delphi fica assim ... Não testei o codigo so coloquei ele na estrutura do delphi unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var n1,n2,resultado:real; operador:char; begin writeln('Digite o primeiro número:'); readln(n1); writeln('Digite o segundo número:'); readln(n2); writeln('Digite o operador:'); readln(operador); if operador='+' then resultado:=(n1+n2) else if operador='-' then resultado:=(n1-n2) else if operador='/' then resultado:=(n1/n2) else if operador='*' then resultado:=(n1*n2); writeln('O resultado é:',resultado:0:0); end; end.

Como Instalar Componentes no Delphi

Use um compilador Pascal ou use o delphi para executa-lo; Voce pode mudar o visual de um programa feito em delphi usando skins ... procure no forum já tem algo sobre este assunto para colocar uma imagem em um BitBtn va nas propriedades do botao e clique em Glyph e procure pela firgura que deve ser 16X16 ( icones ) OBS: Se voce não tem nem a noção basica para usar o delphi, pesquise no forum tem alguns endereços de apostilas basicas para usá-lo, ou procure na internet ( http://www.apostilando.com/sessao.php?cod=13 )

use uma instrução SQL dentro de uma query, funciona direitinho Exemplo : Select * from Tabela order by data

A ultima linha antes do begin deve ser um ponto e virgula .... acho que este DB esta sobrando ai ... [Error] USplash.pas(17): virgula ou ponto e virgula esperado mas achou 'IN' [Fatal Error] Sistema.dpr(8): Não pode compilar unidade usada ' USplash.pas' OBS: Na opção Project do delphi clique em View Source e reveja o codigo. possivelmente o 'USplash.pas' não foi anexado ao projeto.