Crystal reports

[Aztaroth]

Si funciona muy bien, lo unico que necesitaras son los vcl para que puedas enlazar el reporte, yo lo utilizo con delphi 7.

[jrp]

tienes codigo de ejemplo? a otra cosa has usado subreportes si es asi podrias poner un codigo de ejemplo el VB lo hago con un for que recorre los objetos del reporte si es subreporte le asigna el contenido del recordset el delphi como es? y por ultimo que version de crystal tienes yo utilizo la 8.5 Developer

[RicardoLT]

YO UTILIZO DELPHI 7 Y CRYSTAL 10, PARA LO CUAL NECESITAS EL VCL QUE PROPORCIONA CRYSTAL PARA DELPHI

UN EJEMPLO DE CODIGO:

function TFRPRUEBAS.ImprimeCR10( fcReporte: string; fsNameFormula,fsFormulas: array of string; fcRepTit: string = ''; fcRepSubTit: string = ''; fcFormula: string = '' ): Boolean;
VAR
liI, liMax,liMax2: Integer;
lcFile: string;
BEGIN
lcFile := 'D:\PRUEBAS\REPORTES\' + fcReporte + '.rpt';
//REPORTE, SERVIDOR Y BASE DE DATOS
CR_IMPRIME.ReportName:= lcFile;
CR_IMPRIME.Connect.ServerName:= TRIM(EDIT1.Text);
CR_IMPRIME.Connect.DatabaseName:= TRIM(EDIT2.Text);
//PARAMETROS
CR_IMPRIME.ParamFields.Items[0].CurrentValue := 'DE PRUEBA';
CR_IMPRIME.ParamFields.Items[1].CurrentValue := UpperCase(fcReporte);
CR_IMPRIME.ParamFields.Items[2].CurrentValue := 'LA CASA DE LOS DEPORTES';
CR_IMPRIME.ParamFields.Items[3].CurrentValue := fcRepTit;
CR_IMPRIME.ParamFields.Items[4].CurrentValue := fcRepSubTit;
//FORMULA DE SELECCION
CR_IMPRIME.Selection.Formula.Clear;
CR_IMPRIME.Selection.Formula.Text:= fcFormula;
IF NOT CR_IMPRIME.Selection.Check THEN BEGIN
ShowMessage('ERROR DE SELECCION');
EXIT;
END;
//FORMULAS POR REPORTE
CR_IMPRIME.Formulas.Clear;
liMax := High(fsFormulas);
IF liMax >= 0 THEN BEGIN
LIMAX2:= LIMAX;
FOR liI := 0 TO liMax DO
IF fsNameFormula[liI]= '' THEN
LIMAX2:=LIMAX2-1;
IF liMax2 >= 0 THEN
FOR liI := 0 TO liMax2 DO
CR_IMPRIME.FormulaByName(fsNameFormula[liI]).Formula.Text:=fsFormulas[liI];
END;
CR_IMPRIME.WindowStyle.Title:= fcRepTit;
CR_IMPRIME.Execute;
CR_IMPRIME.SetFocus;
END;

Espero te sirva, mis correos para comunicacion son:
[email protected] (messenger)
[email protected]
[email protected]

[nuk3zito]

Aquí va un ejemplo más sencillo utilizando los componentes TCrpe (para el reporte) y TCrpeDS (para ligar a un dataset desde delphi sin tener que ejecutar de nuevo todo dentro del Crystal Reports).

Código Delphi [-]
  try
    crpeDS1.DataSet:= mdDatos;
    Crpe1.ReportName:= FMenuPrinc.sFilesLocation+'walkaround.rpt';
    Crpe1.DiscardSavedData;
    Crpe1.Tables[0].DataPointer := CrpeDS1.DataPointer;

    for i:= 1 to DBGrid1.Columns.Count - 1 do
      Crpe1.FormulabyName('Mes' + IntToStr(i)).Formula.Text :=
        '''' + DBGrid1.Columns[i].Title.Caption + '''';
    Crpe1.WindowStyle.Title:= 'Reporte de Walkaround';
    Crpe1.Execute;
  except
    On E: Exception do
    begin
      Application.MessageBox('Ocurrió un error al generar el reporte!',
        pchar(Caption), mb_ok + mb_iconerror);
      Application.MessageBox(pchar(E.Message),
        pchar(Caption), mb_ok + mb_iconerror);
    end;
  end;

Espero que les sirva...
Saludos

[enterleo]

si alguien me pudiera enviar el crpds se los agradecere mucho
mi correo es [email protected]

************************************
Nuestro Objetivo en la vida no es superar a los demas,
sino mas bien superarnos nosotros mismos
(B. Johnson)

[Wbarrantes]

de donde me saco estos componentes los instalo solo los llamos de otra unit?

donde los encuentro si tengo que bajarlos... ya he buscado pero no encuentro algo especifico,sime pueden ayudar les agradesco mucho

[olpo]

Tienes que instalar cualquier version de crystal report, yo trabajo la version 8.5 y me funciona bien con delphi. Tienes que instalar el componente de activeX Cristal Report Control, asi podras utilizar las funciones que te han publicado