[delphi-br] RDPrint3.0

Wed, 28 May 2008 13:49:01 -0700 

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]

Responder a