10 respuestas en este tema

[TiammatMX]

Buen día/tarde/noche según aplique, jóvenes.

A ver si ustedes ven el problema donde yo no lo encuentro. Tengo el siguiente código:

delphi

procedure TformReporteadorV2.ImprimeExportaSIS;
var
   ElReporte : TqckrprtPadre;
   wsNombreArchivo : WideString;
   iIndiceI: Integer;
   aReportes: array of TqckrprtPadre;
begin
   SetLength(aReportes,6);
   aReportes[00] := TqrpSIS_SS_PSQ_001;
   aReportes[01] := TqrpSIS_SS_PSQ_012;
   aReportes[02] := TqrpSIS_SS_PSQ_128;
   aReportes[03] := TqrpSIS_SS_PSQ_129;
   aReportes[04] := TqrpSIS_SS_PSQ_130;
   aReportes[05] := TqrpSIS_SS_PSQ_131;
   for iIndiceI := 0 to Length(aReportes) do
   try
      ElReporte := (aReportes[iIndiceI] as TqckrprtPadre).Create(Self);
      MessageDlg('Reporte '+ElReporte.Name+' creado y funcionando.', mtInformation, [mbOK], 0);
   finally
      ElReporte := nil;
   end;
end;

en el cual intento tomar el reporte que corresponda de acuerdo a un índice que apunta a un elemento de un arreglo, pero aparentemente estoy haciendo algo que no debo por que me manda éste error:

[Error] uformReporteadorV2.pas(5364): Incompatible types: 'TqckrprtPadre' and 'Class reference'

Agradeciendo de antemano. ¿Alguna idea que puedan darme para solucionar ésto?

[poliburro]

¿Dónde declaras el bloque?

TqrpSIS_SS_PSQ_001;
TqrpSIS_SS_PSQ_012;
          ..
TqrpSIS_SS_PSQ_131

[egostar]

Y esto sucede cuando asignas el arreglo o cuando creas el reporte ?

saludos

[TiammatMX]

¿Dónde declaras el bloque?

TqrpSIS_SS_PSQ_001;
TqrpSIS_SS_PSQ_012;
          ..
TqrpSIS_SS_PSQ_131

Esteeeeeee, ¿a qué te refieres exactamente? Digo, en éste caso es solamente en calidad de prueba, pero la idea es que a partir del elemento del arreglo se dispare la funcionalidad del reporte...

[Rolphy Reyes]

Saludos.

No se si esta solución en particular aplica para tu caso, pero es una alternativa.

Pudieras declarar un Class References de TqckrprtPadre, asumo que es un componente de QuickReport , registras tus clases hijos y puedes realizar la creación de los objetos por el nombre.

Con un ejemplo puedes entender mejor:

Declaramos la meta clase;

delphi

Unit TuUnidadReport
   TqckrprtPadre = class(TQuickReport)
   end;
 
   TqckrprtPadreClass = class of TqckrprtPadre;

Declaramos el método para registrar tus clases:

delphi

procedure TformReporteadorV2.RegisterReports;
begin
  RegisterClass('TqrpSIS_SS_PSQ_001');
  RegisterClass('TqrpSIS_SS_PSQ_012');
  RegisterClass('TqrpSIS_SS_PSQ_128');
  RegisterClass('TqrpSIS_SS_PSQ_129');
  RegisterClass('TqrpSIS_SS_PSQ_130');
  RegisterClass('TqrpSIS_SS_PSQ_131');
end;

Declaramos el método para eliminar el registro tus clases:

delphi

procedure TformReporteadorV2.UnRegisterReports;
begin
  UnRegisterClass('TqrpSIS_SS_PSQ_001');
  UnRegisterClass('TqrpSIS_SS_PSQ_012');
  UnRegisterClass('TqrpSIS_SS_PSQ_128');
  UnRegisterClass('TqrpSIS_SS_PSQ_129');
  UnRegisterClass('TqrpSIS_SS_PSQ_130');
  UnRegisterClass('TqrpSIS_SS_PSQ_131');
end;

Registramos/eliminamos las clases.

delphi

procedure TformReporteadorV2.Create(Sender: TObject)
begin
  RegisterReports;  
end;
 
procedure TformReporteadorV2.FormDestroy(Sender: TObject);
begin
  UnRegisterReports;
end;

Hacemos la creación de los componentes.

delphi

procedure TformReporteadorV2.ImprimeExportaSIS;
var
   ElReporte : TqckrprtPadre;
   iIndiceI: Integer;
   aReportes: array of string;
begin
   SetLength(aReportes,6);
   aReportes[00] := 'TqrpSIS_SS_PSQ_001';
   aReportes[01] := 'TqrpSIS_SS_PSQ_012';
   aReportes[02] := 'TqrpSIS_SS_PSQ_128';
   aReportes[03] := 'TqrpSIS_SS_PSQ_129';
   aReportes[04] := 'TqrpSIS_SS_PSQ_130';
   aReportes[05] := 'TqrpSIS_SS_PSQ_131';
   for iIndiceI := 0 to Length(aReportes) do
   try
      ElReporte :=   TqckrprtPadreClass(GetClass(aReportes[iIndiceI])).Create(Self);
      MessageDlg('Reporte '+ElReporte.Name+' creado y funcionando.', mtInformation, [mbOK], 0);
   finally
      ElReporte := nil;
   end;
end;

Prueba y nos avisa.

Happy Coding!!

[cadetill]

Rolphi, entiendo que en algún lado tienes que tener algo como

delphi

var
  TqrpSIS_SS_PSQ_001: TqckrprtPadreClass;

Cierto??

[Rolphy Reyes]

Rolphi, entiendo que en algún lado tienes que tener algo como

delphi

var
  TqrpSIS_SS_PSQ_001: TqckrprtPadreClass;

Cierto??

Saludos.

Cadetill realmente no, la meta clase (Class Reference) es solo para la clase padre, por lo que se puede apreciar en el código las clases TqrpSIS_SS_PSQ_xxx son descendiente de TqckrprtPadre.

Por lo que en código sería algo así:

delphi

type
  TqrpSIS_SS_PSQ_001 = class(TqckrprtPadre)
 end;

[cadetill]

Ah, ok, ahora lo entiendo. Es que no veía claro de dónde salían los TqrpSIS_SS_PSQ_XXX, que pensaba eran variables. No caí en que fueran clases jejejeje

[TiammatMX]

Gracias a todos por sus aportaciones, pero se decidió hacer otro tipo de procesamiento para imprimir los reportes.

[egostar]

Gracias a todos por sus aportaciones, pero se decidió hacer otro tipo de procesamiento para imprimir los reportes.

¿ Y puedes decirnos como ?

Saludos

[TiammatMX]

Mi patrón decidió que el procesamiento sería secuencial, uno por uno y llamado por nombre.

Cosas de la vida.