Ver Mensaje Individual
  #3  
Antiguo 12-10-2006
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Reputación: 20
Héctor Randolph Va por buen camino
Tomando en cuenta que el Form si puede acceder al DataModule, puedes crea el procedimiento dentro de TFormContabilidad.

Código Delphi [-]
procedure TFormContabilidad.dsContableDataChange(Sender: TObject; Field: TField);
begin
     TCta.Filter := 'Codigo = ' + DataModule.dsContable.TContabilidad.FieldByName('campo1).AsString; 
end;

Después cuando creas la forma asignas ese procedimiento al evento OnDataChange del DataSet.

Código Delphi [-]
procedure TFormContabilidad.Create(Sender: TObject);
begin
  DataModule.dsContable.OnDataChange:=dsContableDataChange; 
end;

Espero que sea útil, saludos.

Última edición por Héctor Randolph fecha: 12-10-2006 a las 22:30:50.
Responder Con Cita