{ *************************************************************************** } { } { PluginExample Asseco Solutions } { } { *************************************************************************** } unit plgKonfig; interface uses plgKonfigBase, ddPlugin_TLB; // ============================================================================ // !!! Konfigurace zavisla na danem pluginu, je treba ji nastavit !!! // ============================================================================ type TPluginKonfig = class(TPluginKonfigBase) protected procedure NastaveniKonfigu; override; function GetPluginVerejneJmeno: String; override; function GetPluginTechnickyPopis: String; override; function GetPluginHistorieVerzi: String; override; public function PartnerIdentification: string; override; function PluginJazykoveDLL (AJazyk: Integer): string; override; procedure VlastniInicializacePluginu (Helios: IHelios); override; end; { =========================================================================== } implementation uses SysUtils, ComObj, plgType, plgMain; { ########################################################################### } procedure TPluginKonfig.NastaveniKonfigu; begin // !! POZOR !! Tento GUID je pouze pro plgHDCRTN !! FPluginClass_ID := StringToGUID('{66874F1A-0165-4366-89F7-247948CFE933}'); FPluginSystemoveJmeno := 'PluginHDCRTN'; FPluginClassName := 'run'; FPluginMinimalniPozadovanaVerzeHeliosu := Cplg_PrvniUnicodeVerzeHeliosu; FPluginCopyrightVyrobce := Format('© 2024-%d HD Consulting s.r.o. Strakonice', [Cplg_AktualniRok]); FPluginIdentifikator := 'RTN'; FPluginMinimalniPozadovanaVerzeSQLServeru:= Cplg_SQLVersion_2019_CU24; end; { --------------------------------------------------------------------------- } function TPluginKonfig.PartnerIdentification: string; begin // zde zadejte partnerskou identifikaci Result := ''; end; { --------------------------------------------------------------------------- } function TPluginKonfig.GetPluginVerejneJmeno: String; begin Result := plgCtiOznam('Plugin Externí řešení Rootvin'); end; { --------------------------------------------------------------------------- } function TPluginKonfig.GetPluginTechnickyPopis: String; begin Result := 'Plugin pro řešení plánování a provozu pekárny (míchání/pečení/máčení/balení)'; end; { --------------------------------------------------------------------------- } function TPluginKonfig.GetPluginHistorieVerzi: String; begin Result:= 'Historie verzí'; end; { --------------------------------------------------------------------------- } function TPluginKonfig.PluginJazykoveDLL (AJazyk: Integer): string; begin case AJazyk of Cplg_jAnglictina, Cplg_jExtAnglictina: Result := 'PluginHDCRTNLng1033.DLL'; else Result := ''; end; end; { --------------------------------------------------------------------------- } procedure TPluginKonfig.VlastniInicializacePluginu (Helios: IHelios); begin // - tato procedura se vola vzdy pri spusteni externi akce !! // - pokud je treba udelat nejakou inicializaci pouze jednou, je treba // pouzit promennou, ktera bude signalizovat prvni a dalsi volani end; { ########################################################################### } end.