MotlawaTech:Profile w FDBC i FC: Różnice pomiędzy wersjami

Z Motława
Linia 45: Linia 45:
 
</code>
 
</code>
  
 +
 +
== 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
  
 
[[Kategoria: MotlawaTech|Profile w FDBC i FC]]
 
[[Kategoria: MotlawaTech|Profile w FDBC i FC]]

Wersja z 12:57, 14 sie 2013

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

Źródło „https://wiki.int.com.pl/index.php?title=MotlawaTech:Profile_w_FDBC_i_FC&oldid=10913”