[cloayza]

Estimado Oscarac, si me lo permite, le presento esta otra opción que utilizo frecuentemente...

Opción 1:

Código Delphi [-]
{
_Cuadrar( Alias.DataSet );
}
Procedure _Cuadrar (Data:TDataset);
Var tn_hb, tn_db, tu_hb, tu_db : Double;
z_recno : TBookmark;
  {Data : TDataSet;}
Begin
    {Data := Alias.DataSet;}
....
End;

Opción 2

Código Delphi [-]
Procedure _Cuadrar (Data:TClientDataset);
Var tn_hb, tn_db, tu_hb, tu_db : Double;
z_recno : TBookmark;
 {Data : TDataSet;}
Begin
    {Data := Alias.DataSet;}
....
End;

Saludos cordiales