MotlawaTech:Profile w FDBC i FC

Filtry

W module D_... w kreowaniu dodać (zakładamy ze istnieje filtr jako FC):

 FC.Stored_Type := 200;
 FC.Stored_IDStored := 'cdsNAZWAODPOWIEDNIA';
 FC.SaveProfileAfterDlg := True;

a na końcu kreowania:

if Assigned(Profile) then
 begin
   Profile.StoredRead_Last(FC);
 end;

Całokształt FDBC

definicja FDBC wymaga zadeklarowania:

 protected
   procedure ChldMayClose; override;
   procedure ChldMayOpen; override;
   procedure FinnalySection; override;

 public
   procedure ReadSetings; override;
   procedure WriteSetings; override;

zaś w kreatorze należy dopisać linie:

 constructor TFDBCRejestrDostaw.Create(AOwner: TComponent);
 ...
 Form_IdStored := 'FDBCNazwamodulu'; 

pozostałe procedury muszą posiadać inherited !

Jeśli profile sie nie zapisuja można wymusić zapis:

 Profile.ApplyUpdate;

Podpięcie cech

 FCYYY.Filters.OnCechaSettingsEvent := DoOnCechaSettingsEvent;
 FCYYY.Filters.Check_AddRemove_Cechy_Filters(`XXX`, `GUID`, `kkk`, ``);

 procedure TXXX.DoOnCechaSettingsEvent(Sender: TObject; aIdnCechyDef: Integer);
 begin
   Eerp_cechy_Filter_Execute(TFilterItem(Sender), `XXX`, aIdnCechyDef, `Filtracja cech ...`);
 end; 

XXX - nazwa tabeli
YYY - modul
kkk - alias ojca