Enterprise Core Objects

[fredo]

Me alegro mucho (vecino) que este interiorizandote con ECO. Cualquier inquietud no dudes en consultarme por este foro o por un mensaje privado. Sea de ECO, UML, RUP o cualquier cosa en la que te peuda ser útil de ingeniería de software.
Yo he estado acumulando conocimientos de ECO (por el momento estan sólo en mi cabeza y algunas aplicaciones) y espero escribir un documento con los tips que surgen al empezar a crear una aplicación real.
Espero que al igual que vos, mas gente se interese por ECO y descubra un nuevo mundo de desarrollo RAD.

Saludos,
Eduardo

Gracias por tu apoyo, ya he comenzado, pronto sabran de mi por estos lados....

[axesys]

Para usar ECO con firebird

http://www.firebirdsql.org/index.php...id=netprovider
http://cc.codegear.com/Item.aspx?id=23677

[pablito373]

Estoy trabajando hace algun tiempo con ECO haciendo algunas pequeñas aplicaciones con winforms y asp.net. El punto que ahora me tiene estancado es que tengo que meter unos reportes con Crystal XI. El delphi 2006 no trae el crystal. ¿Alguien sabe que assemblies necesito? No encontre en la instalacion del Crystal ningun assemblie para instalar y en internet no hay informacion sobre esto.
¿Alguna idea?

Saludos.

[axesys]

Código Delphi [-]
unit uReportes;
interface
uses
  SysUtils, StrUtils, Reportman.Drawing.Forms, Reportman.Reporting, FirebirdSql.Data.Firebird;
type
  TParametrosRep = record
    sParametro: String;
    sValor: String;
  end;
  TDatosReportes = record
    FBDataBase: FbConnection;
    sArchivo: String;
    sTitulo: String;
    iCopias: integer;
    bPreliminar: boolean;
    bDialogo: boolean;
    sArchivoConexion: String;
    sMensaje: string;
  end;
  TReportes = class
  private
    arrParametros: array of TParametrosRep;
    Datos: TDatosReportes;
  public
    rptReporte: Report;
    rptPreview: PrintOutWinForms;
    constructor Create;
    destructor Destroy; override;
    procedure AgregarParametro(sParametro, sValor: String);
    function Ejecutar: boolean;
    property DataBase: FbConnection write Datos.FBDatabase;
    property Archivo: String write DAtos.sArchivo;
    property Titulo: String write Datos.sTitulo;
    property Copias: integer write Datos.iCopias;
    property VistaPreliminar: boolean write Datos.bPreliminar;
    property ElegirImpresora: boolean write Datos.bDialogo;
    property ArchivoConexion: String write Datos.sArchivoConexion;
    property Mensaje: String read Datos.sMensaje;
  end;
implementation
procedure TReportes.AgregarParametro(sParametro, sValor: String);
begin
  SetLength(arrParametros, Length(arrParametros) + 1);
  arrParametros[Length(arrParametros) - 1].sParametro:= sParametro;
  arrParametros[Length(arrParametros) - 1].sValor:= sValor;
end;
constructor TReportes.Create;
begin
  inherited;
  rptReporte:= Report.Create;
  rptPreview:= PrintOutWinForms.Create;
end;
destructor TReportes.Destroy;
begin
  FreeAndNil(rptPreview);
  FreeAndNil(rptReporte);
  inherited;
end;
function TReportes.Ejecutar: boolean;
var
  i: integer;
begin
  Result:= true;
  try
    rptReporte.Language:= 1;
    rptReporte.LoadFromFile(Datos.sArchivo);
    if(Datos.sArchivoConexion = EmptyStr) then
      rptReporte.DatabaseInfo[0].Connection := Datos.FBDataBase
    else
      rptReporte.DataInfo.Item[0].MyBaseFilename:= Datos.sArchivoConexion;
    if(Datos.iCopias = 0) then
      rptReporte.Copies:= 1
    else
      rptReporte.Copies:= Datos.iCopias;
    //rptPreview.Title:= Datos.sTitulo;
    rptPreview.ShowPrintDialog:= Datos.bDialogo;
    rptPreview.Preview:= Datos.bPreliminar;
    for i:= 0 to Length(arrParametros) -1 do
      rptReporte.Params.Item[rptReporte.Params.IndexOf(arrParametros[i].sParametro)].Value:= arrParametros[i].sValor;
    rptPreview.Print(rptReporte.MetaFile);
  except
    on e: exception do
    begin
      if(AnsiContainsStr(e.Message, 'filename')) then
        Datos.sMensaje:= 'El nombre del archivo de reporte es incorrecto'
      else if(AnsiContainsStr(e.Message, 'No data')) then
        Datos.sMensaje:= 'No hay datos disponibles para imprimir'
      else
        Datos.sMensaje:= 'Ocurrió un error al intentar imprimir';
      Result:= false;
    end;
  end;
  SetLength(arrParametros, 0);
end;
end.

[pablito373]

Ok gracias, igualemente aca tienen el Crystal legal asi que de ultima enviare un correo a la gente de crystal pero tengo que poder instalar los componentes para desarrollar los reportes de manera visual y directa desde el delphi.

saludos.

[edalmasso]

Información y ejemplos completos de ECO:
http://www.clubdelphi.com/foros/showthread.php?t=42787



Vean, aprendan y aporten!