[delphi-br] Re: DBISam Database System Version 2.11
Obrigado pela informação mas infelizmente não obtive respostas por lá, cadastrei-me no site, mandei email para suport, developers, info e não responderam nada, ouvi dizer que essa versão foi descontinuada tem mais de 5 anos, acredito que nem vendam mais. Meu prazo está encerrando é ate essa sexta se não conseguir esse projeto vai parar porque tem outra equipe querendo desenvolver um novo. De qualquer forma agradeço. Se alguem tiver alguma informação por favor mande-me deixo aqui meu email pessoal. carlos@terra.com.br Grato --- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso ricardo_engs...@... escreveu Boa tarde! Dá uma olhada nesses links: - Product information: [ http://www.elevatesoft.com/prodinfo? action=viewproduct=dbisamno=1 ] Para baixar um Trial é necessário se registrar no próprio site e se logar com a ID fornecida após o cadastro. O link para esse processo é [ http://www.elevatesoft.com/download?action=login ] Sds, Ricardo. _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em seg, 15/12/08, Carlos Fernando (Wiz Sistemas) wizsis2...@... escreveu: Bom dia a todos como descrevi em mensagens anteriores assumi a manutenção de um sistema e o programador antigo não deixou os componentes na máquina o programa foi desenvolvido em Delphi 5 por acaso alguem tem esse componente: DBISam Database System Version 2.11 é um componente bem antigo, para trabalhar com DBISAM Não estou encontrando se alguem tiver um link onde posso baixá-lo agradeço Carlos Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DBISam Database System Version 2.11
Bom dia a todos como descrevi em mensagens anteriores assumi a manutenção de um sistema e o programador antigo não deixou os componentes na máquina o programa foi desenvolvido em Delphi 5 por acaso alguem tem esse componente: DBISam Database System Version 2.11 é um componente bem antigo, para trabalhar com DBISAM Não estou encontrando se alguem tiver um link onde posso baixá-lo agradeço Carlos
[delphi-br] Componente desconhecido!! TSLGROUPBOX
Olá boa tarde a todos, recentemente assumi a continuidade do desenvolvimento de um software onde o programador usou 2 componentes que desconheço e tenho que tentar achar para facilitar meu trabalho são eles: - TSLGroupBox - TMemDataSet Alguem conhece esses compontentes? tem uma dica de download. Grato car...@wizsistemas.com.br
[delphi-br] Retroceder Papel
Olá a todos estou com uma duvida relativamente simples, pequisei muito na web e achei algumas coisas, mas sem sucesso. Bem e o seguinte utilizo um Epson Lx300 e gostaria que antes de enviar uma Nota Fiscal para a impressão retrocedesse o papel atual para que a impressão sempre comece do Inicio do papel. Obs. Achei como saltar pagina, avançar linha mas retroceder não. var F : TextFile; i : integer; begin AssignFile(F,'LPT1'); Rewrite(F); i := 0; Writeln(F,#12); // Ejeta a página //Para avance de líneas comando: ESC d n Write(Impresora, #27);// ESC Write(Impresora, 'd');// d Write(Impresora, #10);// n= número de líneas CloseFile(F); end; Se alquem ja fez e puder ajudar agradeço. Carlos Fernando
[delphi-br] Impressora online - Windows XP e 2.000
Ola a todos estou precisando de uma rotina que teste se a impressora conectada em LPT1 esta on line antes de imprimir, eu tinha uma rotina que misturava assembler e delphi mas no Windows XP ela nào funciona, achei outro no site activeDelphi mas também não funciona, algume me ajuda? Obrigado -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Re: Impressora online - Windows XP e 2.000
Ola Roger eu testei essa rotina no XP mas para mim não deu Certo não
retorna nada ou seja sempre esse LNIFileH é que 0, eu tinha uma
função semelhante a essa que acontecia o mesmo.
O que eu preciso e que quando a impressora esteja Desligada
localmente na porta LPT1 avise o usuário Tipo por favor ligue a
impressora
Não sei o que pode ser.
Segue abaixo a rotina que testei tambem e deu o mesmo problema
uses printers, Winspool;
function GetCurrentPrinterHandle: THandle;
var
Device, Driver, Port : array[0..255] of char;
hDeviceMode: THandle;
begin
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
if not OpenPrinter(@Device, Result, nil) then
RaiseLastWin32Error;
end;
function VerImpressoraONLINE: Cardinal;
var
hPrinter : THandle;
pInfo: PPrinterInfo2;
bytesNeeded: DWORD;
begin
hprinter := GetCurrentPrinterHandle;
try
Winspool.GetPrinter( hPrinter, 2, Nil, 0, @bytesNeeded );
pInfo := AllocMem( bytesNeeded );
try
Winspool.GetPrinter( hPrinter, 2, pInfo, bytesNeeded,
@bytesNeeded );
Result := pInfo^.Status;
finally
FreeMem( pInfo );
end;
finally
ClosePrinter( hPrinter );
End;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
If VerImpressoraONLINE 0 then
ShowMessage('A Impressora está OFFLINE, impressão ficará no
aguardo' + #13 + 'Chame o Suporte Técnico para verificar a
Impressora' );
end;
--- Em delphi-br@yahoogrupos.com.br, Roger [EMAIL PROTECTED]
escreveu
Exemplo:
LNIFileH := FileOpen( 'LPT1', fmOpenWrite );
if LNIFileH = 0 then begin
MessageDlg('Impressora não configurada!',mtError,[mbOK],mrOk);
FileClose( LNIFileH );
Result := False;
end;
Abraço,
Rogério Ricardo Fernandes
Desenvolvimento
http://www.strategies.inf.br
- Original Message -
From: Carlos Fernando (Wiz Sistemas) [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 16, 2006 2:05 PM
Subject: [delphi-br] Impressora online - Windows XP e 2.000
Ola a todos estou precisando de uma rotina que teste se a
impressora
conectada em LPT1 esta on line antes de imprimir, eu tinha uma
rotina
que misturava assembler e delphi mas no Windows XP ela nào
funciona,
achei outro no site activeDelphi mas também não funciona, algume me
ajuda?
Obrigado
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Re: Index Out of Date
Dbisavechanges? 19/10/2005 13:41 Você ja ouviu falar neste comando? DbiSaveChanges(nomedatabela.handle) No Evento after post vc deve colocar esse comando para forçar o windows a gravar dados de buffer isso ajuda muito. Deve declarar a unit BDE no uses. Um site muito bom com todas as dicas do BDE é http://www.bdesupport.com/ Existe uma serie de macetes que minimizam erros de arquivos mas resolver de vez é dificil tenho feito de e ate que esta virando bem. Possiveis melhorias: 1) Não usar nomes do tipo \\servidor e sim unidades mapeadas 2) Aumentar o parametro MaxBufferSize = 16384 3) Aumentar MaxFileHandles = 150 4) Usar o Mesmo LangDriver 5) Reduzir numero de Indices e Relacionamentos possiveis 6) O mais importante de todos usar o DBISAVECHANGES 7) Para Windows95 fazer download de um pack que corrompe dados 8) Para Windows NT desabilitar cache do Windows Mais Links http://www.adug.org.au/PastMeetings/Presentations/IRadulescuMay99/BDE Networking.htm http://delphi.about.com/gi/dynamic/offsite.htm? zi=1/XJsdn=delphizu=http%3A%2F%2Fwww.thedelphimagazine.com% 2Fsamples%2FParadox%2Fparadox.htm --- Em delphi-br@yahoogrupos.com.br, Denny [EMAIL PROTECTED] escreveu Boa Tarde. Possuo um sistema antigo que ainda opera com o Paradox, está rodando numa máquina com o WinXP, e recentemente, tem ocorrido o erro Index Out of Date, me obrigando o recriar os arquivos de indice. O mesmo sistema roda em outra máquina, mas sem problema. Suponho que seja algo no WinXP. Alguém já vivencou o problema? Poderia me dar uma luz de como solucionar? Grato [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Delphi 7 e Oracle - Conexão Socket
Olá Josir Eu li alguns e-mails seus sobre esses componentes, eu na verdade estou usando o DOA http://www.allroundautomations.com/doa.html Estou satisfeito com ele mas é novo para mim, você chegou a testar esse DOA? --- Em delphi-br@yahoogrupos.com.br, Josir Gomes [EMAIL PROTECTED] escreveu Olá Carlos, para se trabalhar com Oracle via Socket vc pode utilizar a biblioteca ODAC (www.crlabs.com) - com ele vc não precisa de Oracle Client. Eu já trabalho com ele a uns 3 anos e só tenho a elogiar. É *MUITO* melhor que o BDE ou DbExpress. Boa Sorte, Josir. Olá a todos estou precisando muito de ajuda em relação a Oracle e Delphi e apareceu agora uma outra novidade em um sistema que estou fazendo nessa integração será necessária a conexão com o Oracle via Socket, para ser sincero nunca usei isso, se algume tiver algum material ou link ou qualquer dica a respeito serei grato. Meu email é: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Delphi 7 e Oracle - Conexão Socket
Ola Josir baixei hoje o componente e estou testando ele, aparentemente possui mais recursos que o DOA, eu estou com grandes duvidas tudo é novo no Oracle para mim, mas vou seguir sua dica, se você puder me ajudar em como posso fazer essa conexão socket qual dos componentes dele devo estudar? vc tem um exemplo? Na verdade a historia e que estou integrando um sistema ja existente onde eles usam conexão via Socket nunca usei isso e tenho duvidas se o meu sistema precisa disso, na verdade acessarei tabelas desse sistema que usa a base oracle. Estarei fazendo uns testes semana que vem. Vc tem uma explicação do porque usar esse tipo de conexão eu ja ouvi falar nas 3 camadas, servidor de aplicação. mas não sei porque usar isso para ser sincero se puder me ajusar agradeço. Grato Carlos e-mail:[EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Josir Gomes [EMAIL PROTECTED] escreveu Olá Carlos, na época em que eu testei o doa, ele não tinha acesso via Sockets e tinha menos recursos que o ODAC. Eu utilizo atualmente ODAC em sistemas com mais de 100 usuários e ele é *MUITO* estável e rápido. O SQL Monitor dele também é muito bom. Como eu já tenho um framework bem complexo utilizando ODAC, eu não quis perder tempo experimentando o DOA. O ODAC também é um pouco + caro que o DOA mas nessa época em que o dólar está baixo, não faz muita diferença. Boa Sorte! Josir. Olá Josir Eu li alguns e-mails seus sobre esses componentes, eu na verdade estou usando o DOA http://www.allroundautomations.com/doa.html Estou satisfeito com ele mas é novo para mim, você chegou a testar esse DOA? --- Em delphi-br@yahoogrupos.com.br, Josir Gomes [EMAIL PROTECTED] escreveu Olá Carlos, para se trabalhar com Oracle via Socket vc pode utilizar a biblioteca ODAC (www.crlabs.com) - com ele vc não precisa de Oracle Client. Eu já trabalho com ele a uns 3 anos e só tenho a elogiar. É *MUITO* melhor que o BDE ou DbExpress. Boa Sorte, Josir. Olá a todos estou precisando muito de ajuda em relação a Oracle e Delphi e apareceu agora uma outra novidade em um sistema que estou fazendo nessa integração será necessária a conexão com o Oracle via Socket, para ser sincero nunca usei isso, se algume tiver algum material ou link ou qualquer dica a respeito serei grato. Meu email é: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi 7 e Oracle - Conexão Socket
Olá a todos estou precisando muito de ajuda em relação a Oracle e Delphi e apareceu agora uma outra novidade em um sistema que estou fazendo nessa integração será necessária a conexão com o Oracle via Socket, para ser sincero nunca usei isso, se algume tiver algum material ou link ou qualquer dica a respeito serei grato. Meu email é: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Limite Máximo de Registros em Tabelas Paradox?
Veja esse link ';e muito importante para quem usa paradox e lá vc conhecerá os limites http://www.bdesupport.com/faq.htm --- Em delphi-br@yahoogrupos.com.br, sa_souza [EMAIL PROTECTED] escreveu Olá amigos... Alguém sabe dizer COM CERTEZA qual o limite máximo de Registros em uma Tabela Paradox? Ou O que pode significar Table is full (Tabela está cheia)? Estou com um cliente (5 anos de informação) que tá com este problema em tabelas paradox. O que fazer? Obrigado qq resposta... Sérgio A Souza [EMAIL PROTECTED] msn: [EMAIL PROTECTED] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Duvida na Criação de Objetos
Ola a todos, se alguem me ajudar agradeço muito.
Não sou dos melhores em criar objetos, mas peguei uma dica que me
resolveria um problema, é o seguinte ppreciso abrir um Form MDI e
passar parametros como por exemplo um filtro para a abertura do form
tipo, se esse parametro não for passado abre o Sql com todos os
registros, caso contrario passo a clausula where, acabei encontrando o
codigo abaixo e ele ate que funciona legal mas tive um pequeno problema.
Ele coloca no form o metodo create, cria o form quando chamado o
construtor, até ai perfeito, mas quando este form está na tela eu tenho
outros forms que podem fazer referência e para minha surpresa usando
esse metodo de criação da o Access violation Adress como se ele não
estivesse na memoria.
Vejam o codigo
Chamada - Tfrm_Turma.Create(self, 'WHERE ID_TURMA = ' + edit1.text)
...
private
{ Private declarations }
Filtro : String;
public
{ Public declarations }
constructor Create(AOwner : TComponent; P_Filtro: String);
// eu acho que preciso dar um create de forma
// que o objeto fique disponivel para aplicação
end;
...
...
...
Constructor Tfrm_Contrato.Create(AOwner : TComponent; P_Filtro: String);
begin
inherited Create(AOwner);
Filtro := P_Filtro;
qry_Principal.Close;
qry_Principal.SelectSQL.Clear;
qry_Principal.SelectSQL.Add(vSqlConBas + vSqlConWhe + Filtro);
qry_Principal.Open;
end;
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Imprimir arquivo do Word
Ola Edmilson as rotinas abaixo teem me ajudado muito elas abrem o word,
procuram uma string e troca por outra como se fosse uma mala direta e
fecha o Word, isso sem mostrar que o word está em uso atraves do
visible = false e veja o link abaixo ele que e muito bom sobre esse
assunto:
http://www.swissdelphicenter.ch/torry/objekte.php
Rotinas Funcionam em delphi 6 3 7
uses ComObj
function Word_StringReplace(SearchString, ReplaceString: string; Flags:
TWordReplaceFlags): Boolean;
begin
Result := False;
try
{ Initialize parameters}
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := SearchString;
WordApp.Selection.Find.Replacement.Text := ReplaceString;
WordApp.Selection.Find.Forward := True;
WordApp.Selection.Find.Wrap := wdFindContinue;
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
{ Perform the search}
if wrfReplaceAll in Flags then
WordApp.Selection.Find.Execute(Replace := wdReplaceAll)
else
WordApp.Selection.Find.Execute(Replace := wdReplaceOne);
Result := True;
finally
end;
end;
procedure TfrmNFs.AbreWord(ADocument: TFileName);
begin
{ Check if file exists }
if not FileExists(ADocument) then
begin
ShowMessage('Documento não encontrado.');
Exit;
end;
{ Create the OLE Object }
try
WordApp := CreateOLEObject('Word.Application');
except
on E: Exception do
begin
E.Message := 'Word não está disponível.';
raise;
end;
end;
try
{ Hide Word }
WordApp.Visible := False;
{ Open the document }
WordApp.Documents.Open(ADocument);
finally
end;
end;
procedure TfrmNFs.FechaWord(ASaveName: TFileName);
begin
try
{ Save word }
WordApp.ActiveDocument.SaveAs(ASaveName);
{ Assume that successful }
{ Close the document }
WordApp.ActiveDocument.Close(wdDoNotSaveChanges);
finally
{ Quit Word }
WordApp.Quit;
WordApp := Unassigned;
end;
end;
--- Em delphi-br@yahoogrupos.com.br, Edmilson Pontes
[EMAIL PROTECTED] escreveu
Colegas,
Fiz uma rotina para alterar o texto de um arquivo do
word e salvar como. Até aí tudo bem.
Agora preciso imprimir o arquivo mas sem abri-lo.
Apena mandar para a impressora.
Alguem sabe como faço? Gostaria de deixar o usuário
escolher a impressora. É possível?
Desde já agradeço qualquer ajuda,
Edmilson Pontes
__
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Tamanho de página no WinXP
Oi Ivan disso eu sofri muito e recentemente postamos algumas coisas aqui na lista se você der uma pesquisada. Bem Resumidamente é assim: 1) Entre no painel de controle no intem impressoras 2) clique em arquivos propriedades do sevidor 3) Na caixa de dialogo tem um check box em criar um novo formulário, marque essa opção 4) Na caixa nome do formulário coloque o nome do formulário a ser salvo 5) Especifique as dimensões: AQUI MUITA ATENÇÃO O FORMULÁRIO NÃO PODE SER MAIOR DO QUE SE CABE NA IMPRESSORA EU ERREI MUITO AQUI SE DEFINIR MAIOR NÃO APARECE DISPONIVEL PARA A IMPRESSORA. 6) Salve o formulário Para usá-lo por exemplo no quick report 1) Defina na impressora esse papel como padrão: Cuidado exsiste em varios lugares - Propriedades - Gerenciador de Dispositivos Propriedades - Geral - Preferencias de Impressão - Avançado 2) No quickReport Monte seu relatorio Com as Medidas desejadas na opção de Custom Size, depois de pronto o relatorio, volte para Default size para que ele use o Default da impressora que é do mesmo do tamanho do custom que fez Ai é so usar, neste exemplo o ideal e ter uma impressora istalada para este papel TIPO impressora BOLETO com o papel default de Boleto, mas você tambem pode dependendo do gerador de relatorio localizar papel ou setar papel desejado veja o link abaixo para recursos do quickReport: http://www.swissdelphicenter.ch/torry/printing.php --- Em delphi-br@yahoogrupos.com.br, Ivan Gonçalves [EMAIL PROTECTED] escreveu Alguem sabe como especificar uma página personalizada no WinXP? Utilizo Delphi5. Grato, Ivan [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Res: [delphi-br] Re: Mudar cor da fonte no quickReport
Oi Cati
Se não deu certo pode ser porque a propriedade Parent font dos
componentes da sua banda de detail esta como false,
Selecione todos os itens do detalhe e mude a propriedade parent font
para true, só para teste, clique na banda de detalhe e mude a fonte
em tempo de projeto e veja se os itens mudam a fonte.
--- Em delphi-br@yahoogrupos.com.br, Catiúscia A. Barrilli da Cruz
[EMAIL PROTECTED] escreveu
Não deu certo... :-(
Cati
...Não pense de si mesmo além do que convém... Rm 12.3
Nada está fora do alcance da oração, exceto o que está fora da
vontade de
Deus.
---Mensagem original---
De: Roberto Dill
Data: 07/07/05 09:00:10
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Mudar cor da fonte no quickReport
Olá,
Assim deve funcionar:
Coloque no evento BeforePrint da banda:
if Table1(Query1).FieldByName('SALDO').AsFloat 0 then
QRDetailBand1.Font.Color:=clRed
else
QRDetailBand1.Font.Color:=clBlack;
HTH, Roberto,
ps. Sete todas os componentes da band (QRDBText etc..) como parent
font = True.
--- Em delphi-br@yahoogrupos.com.br, Catiúscia A. Barrilli da
Cruz [EMAIL PROTECTED] escreveu
Boa Tarde !
Gostaria de saber como faço para no relatório em QuickReport,
mudar a cor da
fonte da linha toda de todos os registros q mostrar valor
negativo.
Desde já agradeço.
Cati
...Não pense de si mesmo além do que convém... Rm 12.3
Nada está fora do alcance da oração, exceto o que está fora da
vontade de Deus.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
__ NOD32 1.1162 (20050706) Information __
This message was checked by NOD32 antivirus system.
http://www.nod32.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Driver Epson Lx 300 Windows XP - Papel Personalizado
Alosi gostaria de agradece-lo pela dica realmente não estava atendo a esse detalhe que a principio não ocorria no windows 98, ou seja, meu papel era maior que o que a impressora suportava. Valeu pela Dica Carlos Wiz Sistemas --- Em delphi-br@yahoogrupos.com.br, Alosi yarru [EMAIL PROTECTED] escreveu Qual a largura do teu papel personalizado. Lembre-se que a impressora LX300 tem o máximo de 21,60 cm e no XP tu deve colocar 21,50 para o papel aparecer na lista de opção de papel da impressora LX300. t+ - Original Message - From: Carlos Fernando (Wiz Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 22, 2005 9:48 PM Subject: [delphi-br] Driver Epson Lx 300 Windows XP - Papel Personalizado Pessoal ola a todos, Há tempos atrás postei uma questão sobre papel personalizado no Windows XP, bem em e-mail extra-grupo com ajuda de um amigo da lista, consegui chegar a um grande paradigma, que é o Seguinte: Preciso usar um papel personalizado na Impressora Epson LX-300 no Windows XP Professional e acreditem que essa impressora não tem como configurar o papel personalizado. Eu vou em propriedades do Servidor, defino o Papel que desejo e quando vou definir nas propriedades do dispositivo não mostra meus papeis personalizado, agora pasmem um amigo da lista mostrou que no Windows 2003 isso funciona e em uma versão do Window XP dele também funciona, agora eu to perdido já testeis em pelo menos 4 maquinas diferentes com Windows XP e não aparece o bendito papel, para quem duvida mando as telas que capturei, realmente isso é Incrível, entrei no site da Epson e ela não tem drive disponível para download. Gostaria de salientar que para a Epson LX 300 + Mais o papel personalizado aparece. Será que só eu sofro desse mal? Tem alguém na lista que já teve esse problema? Por favor se alguém puder me ajude. Grato -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Driver Epson Lx 300 Windows XP - Papel Personalizado
Pessoal ola a todos, Há tempos atrás postei uma questão sobre papel personalizado no Windows XP, bem em e-mail extra-grupo com ajuda de um amigo da lista, consegui chegar a um grande paradigma, que é o Seguinte: Preciso usar um papel personalizado na Impressora Epson LX-300 no Windows XP Professional e acreditem que essa impressora não tem como configurar o papel personalizado. Eu vou em propriedades do Servidor, defino o Papel que desejo e quando vou definir nas propriedades do dispositivo não mostra meus papeis personalizado, agora pasmem um amigo da lista mostrou que no Windows 2003 isso funciona e em uma versão do Window XP dele também funciona, agora eu to perdido já testeis em pelo menos 4 maquinas diferentes com Windows XP e não aparece o bendito papel, para quem duvida mando as telas que capturei, realmente isso é Incrível, entrei no site da Epson e ela não tem drive disponível para download. Gostaria de salientar que para a Epson LX 300 + Mais o papel personalizado aparece. Será que só eu sofro desse mal? Tem alguém na lista que já teve esse problema? Por favor se alguém puder me ajude. Grato -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Relatório
Oi veja o link http://www.qusoft.com/getfile.asp?level=0Filename=REPEATS.ZIP do site da quick um exemplo simples de relario de grupo, se quiser mando outro. Carlos Wiz Sistemas [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED] escreveu Oi gente... Tenho uma tabela de clientes e uma das suas compras. Eu queria fazer um relatrio (QReport) que ficasse mais ou menos assim: CLIENTE: FULANO Roupas -R$100,00 CaladosR$200,00 Total---R$300,00 CLIENTE: CLICLANO Alimentos --R$300,00 Roupas--R$150,00 Total --R$450,00 Algum poderia me dar uma ajuda? Obrigado... -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Memoria
Ol no sei se voc conhece o ASpack ma ele redduz em 60% o tamanho do exe e ele continua funcionando perfeitamente veja no site: http://www.aspack.com/ Carlos Wiz Sistemas.com.br [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, McGyver [EMAIL PROTECTED] escreveu Estou com um executavel gerado em delphi 6 que est com 14 MB de memoria. Acontece q ele nao roda mais em 98. Apenas em 2000 e XP. No 98 d um erro de memoria insuficiente. Se eu retirar algumas units do executavel a roda normal. Existe alguma limitacao quanto a isso que voces conheam ? [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: E-Mail no OutLook Express
Olá Francisco talvez te ajude...
Isso abre o Outlook:
Uses
shellApi
...
...
...
..
if Trim(edtmai.Text)'' then
Begin
ShellExecute(ValidParentForm(Self).Handle, 'Open',
PChar('mailto: ' + edtmai.Text),nil, nil, SW_SHOWNORMAL);
end;
--- Em delphi-br@yahoogrupos.com.br, Francisco Thiago
[EMAIL PROTECTED] escreveu
Caros amigos,
Um colega meu me perguntou se existe uma forma de abrir o outlook
express
com um email contendo um texto padrão que deverá ser alterado e
logo em
seguida enviado.
Existe alguma forma?
Francisco Thiago de Almeida
EnterPlug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Hash e criptografia
Olha essa é uma rotina simples de criptografia utilizo em algumas aplicações talvez de dê umas ideias: http://vvv.truls.org/pascal/Units.Delphi/UI/bkstrgrd/Encryp.pas --- Em delphi-br@yahoogrupos.com.br, Shally [EMAIL PROTECTED] escreveu Alguém conhece o algoritmo Hash? Algue´m tem? E algoritmo de criptografia? Alguém ja implementou em algum programa de troca de msg? Estou precisando desta ajuda. Grata. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Alguém sugere outra ferramenta para relatório?
Antes de mais acho importante compartilhar as experiências e se você tiver paciência de ler siga adiante e se souber algo me avise. Estou com um problema sério, acredito que muitos já passaram por isso, nadaram, nadaram e o tal ditado morreu na praia, sempre usei o quick e o objeto printer e o report printer via código, mas precisei montar um projeto onde dei credito ao rave visual e talvez fosse minha única alternativa o que fiz foi o seguinte: vamos ver se consigo explicar: Em uma mesma folha tamanho A3 coloquei 10 Region e dentro delas 10 detailband e evitente 10 querys diferentes para puxar os dados ate 24.000 registros em uma base access, ou seja, esses 24.000 registros distribuidos nos 10 datasets e conseguentemente nas 10 region/detailbanda. o deseho e + - esse: -- -- -- -- -- | r1 | | r2 | | r3 | | r4 | | r5 | | query1 | | query2 | | query3 | | query4 | | query5 | | | | | | | | | | | -- -- -- -- -- -- -- -- -- -- | r6 | | r7 | | r8 | | r9 | | r10 | | query6 | | query7 | | query8 | | query9 | | query10 | | | | | | | | | | | -- -- -- -- -- Bem ate ai ok o relatorio funcionou perfeito como eu queria e deu tudo certo. Problemas: 1) Ao visualizar para vocês terem uma ideia tem um modelo de relatório que gerava até no máximo 1.000 pags beleza isso ia ser impresso em 10 impressoras Lase Xerox sem problemas, mas olha a bucha o preview gera beleza quando peço para imprimir somente a página 10 por exemplo ele manda as 1.000 pgs ou seja ele não consegue a página individual ou seja, quebrou minhas pernas, o que fiz xomo saida foi gerar um PDF grande cerca de 90 MB para que eles pudessem imprimir páginas individuais do arquivo isso gerou outro problema espaco em disco e velocidade no processo. 1) Pergunta: Alguem ja viu isso ou resolveu isso? 2) Problema e mais serio - Esta semana os caras inventaram de que as bandas deveriam ter uma grade Linhas Horinzontais e verticais entre os campos' cerca de 15 objetos de linha a cada banda ou seja total de 150 objetos novos tipo linha, ai baleou o negocio, ele gera o preview certo, e gera um spool de impressão de 130 mb +- e quando vai enviar para a impressão demora mais muito mesmo o que levava 1 hora para imprimir passou a ser 5 horas ficou extremamente lento e olha que é micro é P4 - 2 gb de ram e hd de 120 gb, ollha ja tentamos de tudo para melhorar a velocidade de impressão e nada. Final da História se alguém tiver uma dica agradeço. Alguem sabe me dizer se existe outra ferramenta visual de relatório que tem condição de em uma mesma página usar datasets independentes como eu preciso? Já ouvi falar no report builder e outros mas não conheço e gostaria de uma coisa que não moresse na praia depois de tudo pronto vira abobora. Se você chegou até aqui na leitura obrigado Carlos Fernando Wiz Sistemas -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: RES: [delphi-br] Sobrenome+nome
Olá..
Uma vez usei essa rotina para isso se não servir te dará uma boa
ideia.
Carlos Fernando
Wiz Sistemas
// Swaps first and second names in the passed name string
// Raises an exception if the name is invalid
function TForm1.SwapNames(name: string): string;
var
blankPos : Integer;
i: Integer;
nameLen : Integer;
begin
// Clear the result string to indicate no success yet
Result := '';
// Find the position of the last name
blankPos := Pos(' ', name);
// If found, and position is short of the name end
// then we are OK so far
nameLen := Length(name);
if (blankPos 0) and (blankPos nameLen)
then
begin
// Find the start of the second name
i := blankPos + 1;
repeat
// If last name start found, swap first and last names
if name[i] ' '
then Result := Copy(name, i, nameLen-i+1) + ' ' +
Copy(name, 1, blankPos-1)
else Inc(i);
until (i nameLen) or (Length(Result) 0);
end;
// Couldn't swap first and second names ?
if Length(Result) = 0
then Raise Exception.CreateFmt('Invalid name : ''%s''', [name]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
vNome : string;
begin
// Set up some sample names
vNome := 'Carlos Fernando Oliveira';
// Try to swap these names
try
ShowMessage(vNome+' swapped = '+SwapNames(vNome));
except
On E : Exception do
ShowMessage(E.Message);
end;
end;
--- Em delphi-br@yahoogrupos.com.br, Otavio Gasparovic do
Nascimento [EMAIL PROTECTED] escreveu
Gente,
posso estar dizendo besteira, mas
se vc pegar o tamanho do nome
faça um loop pegando o ultimo - 1 até encontrar um branco
aí vc tem a partir da onde até o fim é o sobrenome
e o 1o. até apartir de onde -1 é o nome.
eu faria assim.
Otavio
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED]
nome de Macfly
Enviada em: segunda-feira, 13 de junho de 2005 10:56
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Sobrenome+nome
Hum...
Ai fica difícil, como vc vai saber qual parde do nome é o sobrenome?
Pegar pela primeira palavra não é confiável, pois no nome Jose
Maria da
Silva, por exemplo, já daria errado: Maria da Silva, José.
[]'s
Macfly
Eduardo Silva ® [EMAIL PROTECTED] wrote:
Como eu faço isso usando paradox.
Lembrando que na minha tabela o campo foi criado como abaixo:
NOME, String, 50
ou seja, eu gravo tudo (nome + sobrenome) dentro de um único campo
na
tabela.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED]
nome de Macfly
Enviada em: segunda-feira, 13 de junho de 2005 10:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Sobrenome+nome
Olá...
Defina o nome do modo como vc quer já na consulta no DB:
SELECT ... CONCAT(SOBRENOME,', ',NOME) AS NOME ... FROM ...
OU
SELECT ... (SOBRENOME ', ' NOME) AS NOME ... FROM ...
A consulta exata vai depender de qual Banco vc utiliza..
[]'s
Macfly
Info Desenvolvimento [EMAIL PROTECTED] wrote:
Alguém sabe como eu faço para mostrar em um relatório do
Quickreport o
seguinte relatório;
Na tabela tem o campo sobrenome.
Paulo Cesar Fernandes (Nome + Sobrenome)
Fernandes, Paulo César (Sobrenome + Nome)
Obrigado
PC
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
-
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço
do Yahoo!.
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do
Serviço do Yahoo!.
__ NOD32 1.1136 (20050611
[delphi-br] Re: Alguém sugere outra ferramenta para relatório?
Realmente ja fiz, como lhe falei o meu maior problema agora passou a ser o tamanho do arquivo e o tempo que esta demorando para enviar para a impressão. Mas como o que me surpreendeu e essa essa historia de visualizar tudo perfeito e na hora de mandar manda tudo na impressão, ou seja, me deixou na mão. E outra esses dias tentei usar aquele envento do rave designer semelhante ao before print do quickreport nossa a experiência foi frustrante, para poucos registro meu código funcionava quando colocava as 7 bandas em uso ele se perdia totalmente, ou seja, fiquei em dúvida em relação ao rave designer. Gostaria de salientar que o report system via código e excelente mas dá trabalho, gostaria que o rave visual fosse tão eficiente quanto é via código. --- Em delphi-br@yahoogrupos.com.br, Macfly [EMAIL PROTECTED] escreveu Olá... Vc já deve ter feito isso, mas só uma pergunta: Se eles precisam imprimir uma determina pagina, ou faixa de páginas não teria como limitar a consulta e gerar somente as páginas com os dados que interessam através de critérios de seleção?? []'s Macfly Carlos Fernando (Wiz Sistemas) [EMAIL PROTECTED] wrote: Antes de mais acho importante compartilhar as experiências e se você tiver paciência de ler siga adiante e se souber algo me avise. Estou com um problema sério, acredito que muitos já passaram por isso, nadaram, nadaram e o tal ditado morreu na praia, sempre usei o quick e o objeto printer e o report printer via código, mas precisei montar um projeto onde dei credito ao rave visual e talvez fosse minha única alternativa o que fiz foi o seguinte: vamos ver se consigo explicar: Em uma mesma folha tamanho A3 coloquei 10 Region e dentro delas 10 detailband e evitente 10 querys diferentes para puxar os dados ate 24.000 registros em uma base access, ou seja, esses 24.000 registros distribuidos nos 10 datasets e conseguentemente nas 10 region/detailbanda. o deseho e + - esse: -- -- -- -- -- | r1 | | r2 | | r3 | | r4 | | r5 | | query1 | | query2 | | query3 | | query4 | | query5 | | | | | | | | | | | -- -- -- -- -- -- -- -- -- -- | r6 | | r7 | | r8 | | r9 | | r10 | | query6 | | query7 | | query8 | | query9 | | query10 | | | | | | | | | | | -- -- -- -- -- Bem ate ai ok o relatorio funcionou perfeito como eu queria e deu tudo certo. Problemas: 1) Ao visualizar para vocês terem uma ideia tem um modelo de relatório que gerava até no máximo 1.000 pags beleza isso ia ser impresso em 10 impressoras Lase Xerox sem problemas, mas olha a bucha o preview gera beleza quando peço para imprimir somente a página 10 por exemplo ele manda as 1.000 pgs ou seja ele não consegue a página individual ou seja, quebrou minhas pernas, o que fiz xomo saida foi gerar um PDF grande cerca de 90 MB para que eles pudessem imprimir páginas individuais do arquivo isso gerou outro problema espaco em disco e velocidade no processo. 1) Pergunta: Alguem ja viu isso ou resolveu isso? 2) Problema e mais serio - Esta semana os caras inventaram de que as bandas deveriam ter uma grade Linhas Horinzontais e verticais entre os campos' cerca de 15 objetos de linha a cada banda ou seja total de 150 objetos novos tipo linha, ai baleou o negocio, ele gera o preview certo, e gera um spool de impressão de 130 mb +- e quando vai enviar para a impressão demora mais muito mesmo o que levava 1 hora para imprimir passou a ser 5 horas ficou extremamente lento e olha que é micro é P4 - 2 gb de ram e hd de 120 gb, ollha ja tentamos de tudo para melhorar a velocidade de impressão e nada. Final da História se alguém tiver uma dica agradeço. Alguem sabe me dizer se existe outra ferramenta visual de relatório que tem condição de em uma mesma página usar datasets independentes como eu preciso? Já ouvi falar no report builder e outros mas não conheço e gostaria de uma coisa que não moresse na praia depois de tudo pronto vira abobora. Se você chegou até aqui na leitura obrigado Carlos Fernando Wiz Sistemas -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está
[delphi-br] Re: Quick Report - Como continuar imprimir na proxima linha...
Oi Fernanda!! Olha sempre utilizo dessa forma que você descreveu e nunca tive problema: Utilizo o componente QRDBText com as propriedades: - Autosize = False - AutoStrech = True Tanto para campos memorandos do Paradox como para campos tipo texto e funciona bem. Outra coisa se quiser testar e colocar aquele QRDBRichText1, com as mesmas propriedades setadas acima e ele pode imprimir memo formatado. Carlos Fernando [EMAIL PROTECTED] Wiz Sistemas --- Em delphi-br@yahoogrupos.com.br, Fernanda Forbici [EMAIL PROTECTED] escreveu Olá pessoal, Já quebrei a cabeça mas não estou conseguindo resolver isso: Como faço para que ao imprimir um campo do Quick Report ele ontinue na linha abaixo?? Coloquei um QRDBText, porém as vezes o texto é muito longo e queria que ele tivesse quebra de linha Já setei as propriedades AutoSize = False AutoStrech = True WordWrap = True mas não funcionou. Tenho campos MEMO no Paradox, e tb ele só imprime na primeira linha, não faz a quebra... Qual propriedade devo configurar?? Fernanda Forbici -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.6.6 - Release Date: 08/06/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Stored Procedure e Exportar para o excell
Ola Vanderlei, sobre a exportação para Excel tenho utilizado um componente free para uso não comercial que vem inclusive com o fonte do mesmo ele é interessante se não tiver o que precisa com certeza poderá adaptá-lo. O autor é Stefan Cruysberghs inclusive o site dele tem muita coisa interessante e diferente! o Link do componente é esse: http://www.scip.be/index.php?Page=ComponentsExcelExportLang=EN --- Em delphi-br@yahoogrupos.com.br, Vanderlei Cordeiro Frazão [EMAIL PROTECTED] escreveu Pessoal preciso de ajuda: Tenho uma stored procedure que retorna uma lista de dados, os quais mostro em um relatório. Quanto a isso funciona tudo direitinho. Porém, uma das opções que disponibilizei foi a de exportar esses dados para o excell. Mas quando tempo usar a query que recebe os dados da procedure dá erro. Dúvida: no caso da exportação imagino que terei que criar uma tabela temporária com o resultado da procedure para depois tentar exportar. - Se sim, como poderia fazer isso? - Se não, o que vocês acham que pode ser feito? Obs.: Testei a exportação selecionando direto da tabela, e funcionou! Mas isso limita a passagem de parâmetros, e eu gostaria de exportar todos os resultados que consigo com a procedure. Desde já agradeço Vanderlei. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Enviar mensagens na rede local
Veja esse link talvez te ajude: http://www.activedelphi.com.br/modules.php? op=modloadname=XForumfile=viewthreadtid=7186 --- Em delphi-br@yahoogrupos.com.br, Fernanda Forbici [EMAIL PROTECTED] escreveu Olá pessoal, quero desenvolver um programinha para enviar mensagens em rede local (tipo o winpopup). Mas nem sei por onde começar... Alguem tem uma dica sobre quais componentes devo usar para comunicar?? São duas máquinas apenas, eu utilizo delphi 6 Fernanda Forbici -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.6.6 - Release Date: 08/06/2005 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Papel Pesonalizado - Windows XP
Saudações a todos!
Tenho um serio problema em usar papel com tamanho personalizado no
Windows XP
O problema é o seguinte, no Windows 95 e 98 utilizando a Classe
Printer, Quick Report ou Report System do Rave elaborei diversos
relatórios tais como Recibo, Boletos, Notas fiscais de meio
formulário, bobinas adaptadas etc.. todas elas com o tamanho
personalizado do papel. Para minha surpresa nenhum desses relatórios
funcionam quando executados no Windows XP, ou seja, ele sempre pega o
papel configurado da impressora, percebi tamb'me que o Windows XP não
tem mais na impressora o papel customizado, acredito ser isso.
Outro dia um amigo sugeriu que entrasse na lista de impressoras e
clica-se com o botão da direita e escolhesse propriedades do servidor
e que eu criasse um papel do tamanho desejado, fiz isso, mas não deu
certo, pois como vou chamá-lo nas ferramentas de relatório? E não
tenho certeza se é isso mesmo.
Se alguém puder me ajudar ficarei grato
Dessa foram que utilizo:
1) Caso
### Em Report System Rave
procedure TfrmNFs.rptNFBeforePrint(Sender: TObject);
begin
With Sender as TBaseReport do begin
SelectPrinter(dtmFat.tblParamNF_Nome_Imp.Value);
SetPaperSize(DMPAPER_USER, dtmCrp.tblForm_CabLargForm.Value,
dtmCrp.tblForm_CabCompForm.Value); // largura, altura
Home;
AdjustLine;
end;
2) Caso usando Objeto Printer funciona perfeito em Windows 98 e 95
Var
Papel:TtbPrnPaper;
Papel.Size := 256; // 256 é o tam. personalizado
Papel.Width :=1300; // 23,5 cm
Papel.Height := vTotLan + vTotCab + vTotRod*vTotLin; // Calculo da
altura do relatorio com base no número de linhas
Papel := tbPrnSetPaperSize(Papel);
==
function tbPrnSetPaperSize(const Paper: TtbPrnPaper): TtbPrnPaper;
var
S: string;
HDevMode: THandle;
DevMode: PDeviceMode;
Device, Driver, Port: PChar;
begin
{ Bug VCL - A Impressora selecionada às vezes falha. Com
esta instrução funciona adequadamente. }
S := Printer.Printers[Printer.PrinterIndex];
{ Aloca memória para as variáveis PChar }
GetMem(Device, 255);
GetMem(Driver, 255);
GetMem(Port, 255);
try
{ Obtém dados da impressora atual }
Printer.GetPrinter(Device, Driver, Port, HDevMode);
{ Aloca ponteiro }
DevMode := GlobalLock(HDevMode);
try
if DevMode nil then
begin
with DevMode^ do
begin
{ Salva tamanho atual }
Result.Size := dmPaperSize;
Result.Width := dmPaperWidth;
Result.Height := dmPaperLength;
{ Define o novo tamanho }
dmPaperSize := Paper.Size;
dmFields := dmFields or DM_PAPERSIZE;
{ Se for tamanho personalizado... }
if Paper.Size = DMPAPER_USER then
begin
{ Define altura }
dmPaperLength := Paper.Height;
dmFields := dmFields or DM_PAPERLENGTH;
{ Define largura }
dmPaperWidth := Paper.Width;
dmFields := dmFields or DM_PAPERWIDTH;
end;
end;
{ Aplica as modificações }
Printer.SetPrinter(Device, Driver, Port, HDevMode);
end
else
raise Exception.Create('Erro ao definir tamanho de papel.');
finally
{ Desaloca ponteiro }
GlobalUnlock(HDevMode)
end;
finally
{ Desaloca a memória das variáveis PChar }
FreeMem(Device, 255);
FreeMem(Driver, 255);
FreeMem(Port, 255);
end;
end;
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Junção de Tabelas em QuickReport
Ola, Wilson, se esta certo o que eu imaginei eu usaria o seguinte: 1) Objetos tipo table interligados com a propriedade MasterSource e MasterField onde o Cliente e a table master. Outra opção seria objetos tipo query interligados com a propriedade Datasource e passagem de parametros. 2) No Relatorio colocaria a banda detalhe usando o cliente 3) Adicionar bandas do tipo subdetail e vincular esses subdetails atraves da propriedade dataset vincular a table ou query Espero ter ajudado Carlos Fernando [EMAIL PROTECTED] Wiz Sistemas --- Em delphi-br@yahoogrupos.com.br, Wilson Valdevite [EMAIL PROTECTED] escreveu Galera, boa tarde... Estou tentando juntar 3 tabelas paradox em um relatório de orçamentos da seguinte forma: 1 - Tabela com os dados do cliente; 2 - Tabela com os materiais; 3 - Tabela com o plano de pagamento; Consegui juntar as tabelas de materiais e os dados do cliente, mas não estou conseguindo adicionar o plano de pagamento, ou melhor, adiciono mas não consiguo fazer imprimir. Existe alguma configuração para fazer com que um segundo detail seja impresso após terminar o primeiro ou alguma outra forma de se fazer isso? Uso o D7 Obrigado... [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
