111 lines
3.5 KiB
ObjectPascal
111 lines
3.5 KiB
ObjectPascal
{ *************************************************************************** }
|
|
{ }
|
|
{ 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.
|