Saiu de fininho hein,,, coisa feia
----- Original Message -----
From: Eduardo Silva dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 29, 2008 7:52 PM
Subject: Re: [delphi-br] RDPrint3.0
Obrigado nada, fala qual era o problema.
compartilhe a solução com todos.. heheh
2008/5/29 Ioney Hotmail <[EMAIL PROTECTED]>:
> Valeu pessoal pela atencao!!!! ja consegui...
>
> From: BandaLemuel
> Sent: Thursday, May 29, 2008 10:36 AM
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Subject: Re: [delphi-br] RDPrint3.0
>
> O Erro sugere q vc esta tentando acessar algo que ainda não foi criado....
> quando faço os meus relatorio faço assim...
>
> { Selecion os dadaos }
>
> { Defino Linha Inicial }
> Linha := 1 ;
>
> { Abro o relatrorio }^
> RDP.abrir ;
>
> While x :=0 to recordCount - 1 do
> begin
> Impf ( linha , colunha, campo , ´[] );
> end;
>
> { Seup do RDprint }
> Aki eu arrumo as configurações. dele;;;
>
> RDP.Setup ;
> RDP.Fechar;
>
> Tente nesta ordem...
>
> Wesley
>
> From: Ioney Hotmail
> Sent: Thursday, May 29, 2008 8:29 AM
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Subject: Re: [delphi-br] RDPrint3.0
>
> Rubem,
>
> Project Contabil.exe raised exception class EAccessViolation with message
> 'Access violation at address 00000000. read of
> address 00000000'. Process stopped. Use Step or Run to Continue.
>
> O que eu faco?
> desculpa nao ter postado essa msg antes mas eh que eu achei q com o codigo
> seria mas facil de resolver...
> Abraco
>
> From: Rubem Nascimento da Rocha
> Sent: Wednesday, May 28, 2008 5:56 PM
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Subject: RE: [delphi-br] RDPrint3.0
>
> Sim, meu caro! Posta o código e espera que a gente ache o erro pra ti? N"ao
> quer mais nada, né?
> Qual é o erro que tá dando? Só o código num ajuda! Qual é esse erro/exceção
> que tu tá tendo?
>
> Sds.
>
> ________________________________
>
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> From: [EMAIL PROTECTED] <ioneyspg%40hotmail.com>
> Date: Wed, 28 May 2008 16:55:53 -0300
> Subject: [delphi-br] RDPrint3.0
>
> Ola Pessoal, estou desesperado precisando de uma ajudinha de vcs... Estou
> finalizando uma programa de contabilidade desenvolvido em Delphi com Banco
> de Dados Interbase, pois bem ja estou na parte de relatorios e eh justamente
> ai que o bicho ta pegando, estou usando o componente RDPrint e nao to
> conseguindo fazer com que meu relatorio seja impresso...o codigo eh esse
> deem uma olhadinha e vejam se encontram algum erro ok? aguardo retorno
> desesperado!!
>
> procedure TfrmRelPlanoContas.btnImprimirClick(Sender: TObject);
> var vTexto, vApagaCaracter : String;
> begin
> DtaModulo.RDprint1.OpcoesPreview.CaptionPreview := pnCabecalho.Caption;
> DtaModulo.RDprint1.CaptionSetup := pnCabecalho.Caption;
> DtaModulo.RDprint1.Abrir;
> vPagina := 1;
> vrow := 80;
>
> if not DtaModulo.RDprint1.SETUP then
> exit;
>
> DtaModulo.qryPadrao.Close;
> vSelect := 'Select * from PlanoContas where Cliente = ' +
> IntToStr(yCodCliente);
> vOrder := 'order by '+zIIF2(cmbOrder.ItemIndex = 0,'Conta','descricao');
> DtaModulo.qryPadrao.SQL.Text := vSelect + vOrder;
> DtaModulo.qryPadrao.Open;
> DtaModulo.qryPadrao.Last;
> vQteReg := DtaModulo.qryPadrao.RecordCount;
> DtaModulo.qryPadrao.First;
>
> while not DtaModulo.qryPadrao.Eof do
> begin
> zProgresso01(vQteReg,'AGUARDE...');
> zFANTASIA:= DtaModulo.tbEmpresa.FieldByName('Nome').asstring;
> zAnoLetivo:= DtaModulo.tbEmpresa.FieldByName('Ano').asstring;
> if zCabRel('PLANO DE CONTAS', '',1) then
> begin
> DtaModulo.RDprint1.ImpF(zRow(1),1,'CONTA DESCRIÇÃO COD. REDUZIDO
> DV',[normal]);
> DtaModulo.RDprint1.ImpF(zRow(1),1,'-------------------
> ------------------------------------------ ------------- --',[normal]);
> end;
>
DtaModulo.RDprint1.impF(zRow(1),1,DtaModulo.qryPadrao.FieldByName('CONTA').asstring,
> [normal]);
> DtaModulo.RDprint1.impF(zRow(1 - 1),21,zReplicate('
> ',zNivelReal(DtaModulo.qryPadrao.FieldByName('CONTA').asstring))+
> DtaModulo.qryPadrao.FieldByName('DESCRICAO').asstring, [normal]);
> vApagaCaracter:=
> '00000'+DtaModulo.qryPadrao.FieldByName('CODRED').asstring;
> if Length(vApagaCaracter)> 6 then
> vApagaCaracter:= copy(vApagaCaracter,2,length(vApagaCaracter));
> DtaModulo.RDprint1.impD(zRow(1 - 1),77,vApagaCaracter, [normal]);
> DtaModulo.RDprint1.impF(zRow(1 - 1),79,
> Modulo11(DtaModulo.qryPadrao.FieldByName('CODRED').asstring), [normal]);
> DtaModulo.qryPadrao.Next;
> end;
> vTexto := '-- Registros: '+VarToStr(vQteReg)+' ';
> vTexto := vTexto + zReplicate('-',75-length(vTexto));
> DtaModulo.RDprint1.ImpF(zRow(1),5,vTexto, [normal]);
> DtaModulo.RDprint1.OpcoesPreview.PaginaZebrada :=true;
> DtaModulo.RDprint1.OpcoesPreview.Preview := True;
> DtaModulo.RDprint1.Fechar;
> zProgresso02;
> DtaModulo.qryPadrao.Close;
>
> end;
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________________________________________________________
> Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
> offline. Conheça o MSN Mobile!
> http://mobile.live.com/signup/signup2.aspx?lc=pt-br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________ Information from ESET NOD32 Antivirus, version of virus
> signature database 3143 (20080529) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG.
Version: 8.0.100 / Virus Database: 269.24.3/1472 - Release Date: 29-05-2008
07:27
[As partes desta mensagem que não continham texto foram removidas]
