Comunicación entre unidad y formulario

[GerTorresM]

Hola a todos:


La situación del día de hoy es la siguiente:


Tengo en una unidad un procedimientos que maneja una seríe de procedimientos, algo así :

Código Delphi [-]
procedure TDMLiquidacion.liquidarPeriodo(pCodigoSuscriptor: Integer);
begin
  if not verificarCritica then
    begin
      borraLiquidacion(pCodigoSuscriptor);
      divideLecturas(pCodigoSuscriptor);
      liquidaInteresDiario(pCodigoSuscriptor);
      // liquida Interes de mora mensual
      // liquida reconexiones
      liquidaTarifa(pCodigoSuscriptor);
      // Liquida conceptos basados en lectura
      liquidaTarifa(pCodigoSuscriptor,1,GetCampo('Lecturas','Basico','CodigoSuscriptor = ' + IntToStr(pCodigoSuscriptor)));
      liquidaTarifa(pCodigoSuscriptor,2,GetCampo('Lecturas','Complementario','CodigoSuscriptor = ' + IntToStr(pCodigoSuscriptor)));
      liquidaTarifa(pCodigoSuscriptor,3,GetCampo('Lecturas','Suntuario','CodigoSuscriptor = ' + IntToStr(pCodigoSuscriptor)));
      liquidaTarifa(pCodigoSuscriptor,5,GetCampo('Lecturas','Multado','CodigoSuscriptor = ' + IntToStr(pCodigoSuscriptor)));
      liquidaPorcentaje(pCodigoSuscriptor);
      liquidaNovedadesPeriodo(pCodigoSuscriptor);
      liquidaNovedadesFinanciadas(pCodigoSuscriptor);
      liquidaSaldoPrepago(pCodigoSuscriptor);
      asignaNumeroFactura(pCodigoSuscriptor);
      asignaNumeroFacturaOrigen(pCodigoSuscriptor);
      // cambia el estado del periodo a liquidado
    end;
end;

Ahora en el evento click de un boton del formulario ejecuto el procedimiento

Código Delphi [-]
procedure TFLiquidaPeriodo.SBLiquidarPeriodoClick(Sender: TObject);
begin
  DMLiquidacion.liquidarPeriodo(Self.CodigoSuscriptor);
end;

ahora para este caso lo que sucede es lo siguiente el formulario de vista al cliente tiene dos barras de progreso, en la primera deseo indicar un progreso general (en el caso de ejecutar varias veces el procedimiento con un párametro diferente) y la segunda para indicar el progreso en el desarrollo de procedimiento, es decir poder mostrar en que paso iria.

La pregunta es como puedo comunicar la unidad con la barra de progreso del formulario.


Gracías de Antemano


gertorresm
Colombia

[roman]

No sé si estoy entendiendo bien. La solución rápida pero no muy buena es incluir la unidad del formulario en la unidad del datamodule.

Algo no tan rápido pero más limpio sería implementar una especie de evento en el datamodule:

Código Delphi [-]
type
  TDMLiquidacion = class(TDataModule)
   ...
  private
    FOnProgress: TNotifyEvent;

  public
    OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
  end;

En el código del datamodule, cada vez que des un paso más, haces algo como esto:

Código Delphi [-]
if Assigned(FOnProgress) then
  FOnProgress(Self);

Entonces, en tu formulario, tendrías que crear un método para el evento:

Código Delphi [-]
type
  TFliquidaPeriodo = class(TForm)
    ..
  private
    procedure DMOnProgress(Sender: TObject);
  end;

Asignas el método en el OnCreate:

Código Delphi [-]
DMLiquidacion.OnProgress := DMOnProgress;

Y en la implementación de DMOnProgress actualizas tu barra de progreso o cualquier cosa que necesites.

Para que quede completo, podrías añadir un evento OnProgressBegin en donde pasas al formulario la información de cuántos pasos en total hay para que inicialices tu barra de progreso.

// Saludos

[*Caro*]

Hola GerTorresM, también puedes pasar tu barra de progreso como parámetro:

Código Delphi [-]
 
procedure TDMLiquidacion.liquidarPeriodo(pCodigoSuscriptor: Integer; aProgessBar : TProgressBar);
begin
  aProgessBar.Position := 0;
  if not verificarCritica then
    begin
      borraLiquidacion(pCodigoSuscriptor);
      divideLecturas(pCodigoSuscriptor);
      liquidaInteresDiario(pCodigoSuscriptor);
      // liquida Interes de mora mensual
      // liquida reconexiones
      liquidaTarifa(pCodigoSuscriptor);
   .........................................................
   .........................................................
end;
 
procedure TFLiquidaPeriodo.SBLiquidarPeriodoClick(Sender: TObject);
begin
  DMLiquidacion.liquidarPeriodo(Self.CodigoSuscriptor, ProgressBar1);
end;

Saluditos