Prvni verze

libSys/plgBrowse.pas

@@ -0,0 +1,25 @@
+unit plgBrowse;
+
+interface
+
+uses
+  plgType;
+
+var
+  Cplg_SeznamVychozichNastaveniBrowse : array[TplgBrowse] of TplgVychoziNastaveniBrowse =
+    (
+     (SelfIdent : bZadny;
+     )
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgExtAkce.pas

@@ -0,0 +1,29 @@
+unit plgExtAkce;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GDefiniceExtAkci : array[0..0] of TplgExtAkceDef =
+    (
+     // aby bylo mozno nemit zadnou externi akci,
+     // musi zustat prvni akce nedefinovana !!
+     (BrowseID   : 0)
+
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgExtAttr.pas

@@ -0,0 +1,29 @@
+unit plgExtAttr;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GDefiniceExtAttr : array[0..0] of TplgExterniAtribut =
+    (
+     // aby bylo mozno nemit zadny externi atribut,
+     // musi zustat prvni akce nedefinovana !!
+     (JmenoTabulky    : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.
+

libSys/plgExtTrigger.pas

@@ -0,0 +1,27 @@
+unit plgExtTrigger;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GDefiniceExtTrigger : array[0..0] of TplgExterniTrigger =
+    (
+     // aby bylo mozno nemit zadny externi trigger,
+     // musi zustat prvni trigger nedefinovan !!
+     (JmenoTabulky       : '')
+
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgFunkce.pas

@@ -0,0 +1,33 @@
+unit plgFunkce;
+
+interface
+
+uses
+  plgType;
+
+// !!! POZOR !!! ##############################################################
+// Funkce musi byt zadana tak, aby CREATE FUNCTION <Nazev> bylo na jednom radku:
+// napr. 'CREATE FUNCTION dbo.pf_MujPrefix_MujNazev'#13+
+// ############################################################################
+
+{ =========================================================================== }
+
+const
+  SeznamUzivatelskychFunkci : array[0..0] of TplgUzivatelskaFunkce =
+    (
+     // aby bylo mozno nemit zadnou uzivatelskou funkci :-)
+     // musi zustat prvni funkce definovana !!
+     (Text     : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgHlasky.pas

@@ -0,0 +1,28 @@
+unit plgHlasky;
+
+interface
+
+// [RK 10.10.2011] zapnuto vzdy vkuli prekladovemu portalu
+{$DEFINE EdHlasky}
+
+uses
+  plgType;
+
+// rozsah hlasek je W=5000000-5999999
+
+const
+  GplgHlasky : array[TplgTxt] of TplgHlaska =
+ (
+  {$I ..\lib\plgHlaskyJadro.INC}     // definice hlasek jadra
+  {$I ..\lib\plgHlaskyEx.INC}        // definice ostatnich hlasek
+ );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgQuery.pas

@@ -0,0 +1,34 @@
+{ *************************************************************************** }
+{                                                                             }
+{   Jadro pluginu 2                                      Asseco Solutions     }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgQuery;
+
+interface
+
+uses
+  dxmdaset, DB;
+
+type
+  TplgQuery = class(TdxMemData)
+  public
+    // zmena viditelnosti - abych mohl shodit DataSet.Modified
+    procedure SetModified(Value: Boolean);
+  end;
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+procedure TplgQuery.SetModified(Value: Boolean);
+begin
+  inherited;
+end;
+
+{ ########################################################################### }
+
+end.

libSys/plgSoudky.pas

@@ -0,0 +1,24 @@
+unit plgSoudky;
+
+interface
+
+uses
+  plgType;
+
+const
+  Cplg_SeznamSoudku : array [TplgSoudek] of TplgSoudekDef =
+    ((SelfIdent: sdNeniVidet;
+      Jmeno    : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgSpravce.pas

@@ -0,0 +1,189 @@
+{ *************************************************************************** }
+{                                                                             }
+{   Jadro pluginu 2                                      Asseco Solutions     }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgSpravce;
+
+interface
+
+uses
+ plgAkce, ddPlugin_TLB, Contnrs, Classes;
+                    
+type
+  TJedenHelios = class
+  private
+    FHelios: IHelios;
+    FAkce: TplgAkcePrehledu;
+  public
+    property Helios: IHelios read FHelios;
+    property Akce: TplgAkcePrehledu read FAkce;
+  end;
+
+  TSpravceHeliosu = class
+  private
+    FSeznam: TObjectList;
+    function NajdiHelios(Helios: IHelios): Integer;
+    function NajdiIdent(Helios: IHelios): Integer;
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    // === pouze interni pouziti !!! =============================
+    procedure PridejHelios(Helios: IHelios);
+    procedure OdeberHelios(Helios: IHelios);
+    procedure NastavAkce(Helios: IHelios; Akce: TplgAkcePrehledu);
+    // ===========================================================
+
+    function VratVlastnika(Helios: IHelios): IHelios;
+    function VratAkcePrehledu(Helios: IHelios): TplgAkcePrehledu;
+  end;
+
+var
+  SpravceHeliosu: TSpravceHeliosu = nil;
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+constructor TSpravceHeliosu.Create;
+begin
+  inherited Create;
+  FSeznam := TObjectList.Create;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+destructor TSpravceHeliosu.Destroy;
+begin
+  FSeznam.Free;
+  inherited;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TSpravceHeliosu.NajdiHelios(Helios: IHelios): Integer;
+  var
+    II: Integer;
+begin
+  // jedeme odzadu - bude to rychlejsi
+  if Assigned(Helios) then
+    for II := FSeznam.Count-1 downto 0 do
+    begin
+      if TJedenHelios(FSeznam.Items[II]).FHelios = Helios then
+      begin
+        Result := II;
+        Exit;
+      end;
+    end;
+
+  Result := -1; // nenalezeno
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TSpravceHeliosu.NajdiIdent(Helios: IHelios): Integer;
+  var
+    II: Integer;
+begin
+  // jedeme odzadu - bude to rychlejsi
+  if Assigned(Helios) then
+    for II := FSeznam.Count-1 downto 0 do
+    begin
+      if TJedenHelios(FSeznam.Items[II]).FHelios.Ident = Helios.Ident then
+      begin
+        Result := II;
+        Exit;
+      end;
+    end;
+
+  Result := -1; // nenalezeno
+end;
+
+{ --------------------------------------------------------------------------- }
+
+procedure TSpravceHeliosu.PridejHelios(Helios: IHelios);
+  var
+    JH: TJedenHelios;
+begin
+  if not Assigned(Helios) then Exit;
+
+  JH := TJedenHelios.Create;
+  JH.FHelios := Helios;
+  FSeznam.Add(JH);
+end;
+
+{ --------------------------------------------------------------------------- }
+
+procedure TSpravceHeliosu.OdeberHelios(Helios: IHelios);
+  var
+    II: Integer;
+begin
+  II := NajdiHelios(Helios);
+  if II <> -1 then FSeznam.Delete(II);
+end;
+
+{ --------------------------------------------------------------------------- }
+
+procedure TSpravceHeliosu.NastavAkce(Helios: IHelios; Akce: TplgAkcePrehledu);
+  var
+    II: Integer;
+begin
+  II := NajdiHelios(Helios);
+  if II <> -1 then
+    TJedenHelios(FSeznam.Items[II]).FAkce := Akce;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TSpravceHeliosu.VratVlastnika(Helios: IHelios): IHelios;
+  var
+    II: Integer;
+    Vlastnik: IHelios;
+begin
+  if not Assigned(Helios) then
+    Result := nil
+  else
+    begin
+      Vlastnik := Helios.HeliosVlastnik;
+      II := NajdiIdent(Vlastnik);
+      if II <> -1 then
+        Result := TJedenHelios(FSeznam.Items[II]).FHelios
+      else
+        Result := Vlastnik;
+    end;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TSpravceHeliosu.VratAkcePrehledu(Helios: IHelios): TplgAkcePrehledu;
+  var
+    II: Integer;
+begin
+  II := NajdiIdent(Helios);
+  if II <> -1 then
+    Result := TJedenHelios(FSeznam.Items[II]).FAkce
+  else
+    Result := nil;
+end;
+
+{ ########################################################################### }
+
+initialization
+  SpravceHeliosu := TSpravceHeliosu.Create;
+
+{ ########################################################################### }
+
+end.
+//  LIB  | USER: rk | DT: 08.03.2005 13:29:04 | VER: ?? LB ?? | TXT:  | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\
+// LOCAL | USER: rk | DT: 08.03.2005 13:54:41 | VER:          | TXT:  | PC: RK | FROM: P:\ | TO: D:\!\IQ1\Eurest
+//  LIB  | USER: rk | DT: 08.03.2005 14:13:52 | VER: ?? LB ?? | TXT:  | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\
+// LOCAL | USER: rk | DT: 15.03.2005 09:35:54 | VER:          | TXT:  | PC: RK | FROM: P:\PlugLib | TO: D:\!\IQ1\Eurest
+//  LIB  | USER: rk | DT: 15.03.2005 10:05:23 | VER: ?? LB ?? | TXT:  | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\PlugLib
+// LOCAL | USER: RK | DT: 17.02.2006 09:58:05 | VER:          | TXT:  | PC: RK-2K | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginEurest
+//  LIB  | USER: RK | DT: 17.02.2006 09:58:09 | VER: ?? LB ?? | TXT:  | PC: RK-2K | FROM: D:\!\IQ1\PluginEurest | TO: L:\H\IQ10\PlugLib
+// LOCAL | USER: RK | DT: 01.08.2007 08:37:19 | VER:          | TXT:  | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
+//  LIB  | USER: RK | DT: 01.08.2007 08:52:07 | VER: ?? LB ?? | TXT:  | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib

libSys/plgTable.pas

@@ -0,0 +1,23 @@
+unit plgTable;
+
+interface
+
+uses
+  plgType;
+
+var
+  Cplg_SeznamTabulek : array[TplgTabulka] of PplgTabulkaDef =
+    (nil                                   		// tZadna
+
+//last     
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgType.pas

@@ -0,0 +1,29 @@
+unit plgType;
+
+interface
+
+uses
+  System.Classes, Vcl.Forms;
+
+const
+  CVerzePluginu = Int64({$I ..\lib\plgVerze.INC});
+
+{$I ..\lib\plgTypeTabulka.INC}    // definice typu TplgTabulka
+{$I ..\lib\plgTypeSoudky.INC}     // definice typu TplgSoudek
+{$I ..\lib\plgTypeBrowse.INC}     // definice typu TplgBrowse
+{$I ..\lib\plgTypeTxtJadro.INC}   // definice "typu" TplgTxt - hlasky jadra
+{$I ..\lib\plgTypeTxtEx.INC}      // definice "typu" TplgTxt - ostatni hlasky
+{$I ..\lib\plgTypeJadro.INC}      // zakladni typy a konstanty jadra 1
+{$I ..\lib\plgTypeZbytek.INC}     // vsechny ostatni typy a konstanty
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.
+
+//  LIB  | USER: rk | DT: 09.02.2005 09:09:48 | VER: ?? LB ?? | TXT:  | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\

libSys/plgUProc.pas

@@ -0,0 +1,33 @@
+unit plgUProc;
+
+interface
+
+uses                                   
+  plgType;
+
+// !!! POZOR !!! ##############################################################
+// Ulozenka musi byt zadana tak, aby CREATE PROC <Nazev> bylo na jednom radku:
+// napr. 'CREATE PROCEDURE dbo.pp_MujPrefix_MujNazev'#13+
+// ############################################################################
+
+{ =========================================================================== }
+
+const
+  SeznamUlozenychProcedur : array[0..0] of TplgUlozenaProcedura =
+    (
+     // aby bylo mozno nemit zadnou ulozenou proceduru :-)
+     // musi zustat prvni procedura definovana !!
+     (Text     : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgUta.pas

@@ -0,0 +1,181 @@
+{ *************************************************************************** }
+{                                                                             }
+{   Jadro pluginu 2                                      Asseco Solutions     }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgUta;
+
+interface
+
+uses
+  plgType;
+
+const
+  plg_uta_SystemoveCislo   = plg_SystemoveCislo;
+  plg_uta_Autor            = 'Autor';
+  plg_uta_DatPorizeni      = 'DatPorizeni';
+  plg_uta_Zmenil           = plg_Zmenil;
+  plg_uta_DatZmeny         = plg_DatZmeny;
+  plg_uta_BlokovaniEditoru = plg_BlokovaniEditoru;
+  plg_uta_GUID             = 'GUID';
+  plg_uta_Mena             = 'Mena';
+  plg_uta_TextChyby        = 'TextChyby';
+  plg_uta_ImpSoubor        = 'ImpSoubor';
+  plg_uta_SkupZbo          = 'SkupZbo';
+  plg_uta_RegCis           = 'RegCis';
+
+  Cplg_DisplaySirkaDatum = 20; // [RK 02.07.2012] 12 -> 20
+
+  { +++++++++++++++++++++++++++ }
+
+  Cplg_UzivatelskeAtributy : array [TplgUzivatelskyTypAtributu] of TplgUzivatelskeAtributyDef =
+    ((SelfIdent: plg_utaZadny)
+
+    ,(SelfIdent: plg_utaSystemoveCislo;
+      A:(JmenoSys        : plg_uta_SystemoveCislo;
+         JmenoVerejneTxt : plxJadroSystemoveCislo;
+         JmenoVerejneZkrTxt : plxJadroSysCisZkr;
+         Typ             : taIdentity;
+         PK_UQ           : puPrimaryKey;
+         Vyzadovany      : vTrue;
+         Verejny         : vFalse)
+     )
+
+    ,(SelfIdent: plg_utaSystemoveCislo64;
+      A:(JmenoSys        : plg_uta_SystemoveCislo;
+         JmenoVerejneTxt : plxJadroSystemoveCislo;
+         JmenoVerejneZkrTxt : plxJadroSysCisZkr;
+         Typ             : taIdentity64;
+         PK_UQ           : puPrimaryKey;
+         Vyzadovany      : vTrue;
+         Verejny         : vFalse)
+     )
+
+    ,(SelfIdent: plg_utaAutor;
+      A:(JmenoSys        : plg_uta_Autor;
+         JmenoVerejneTxt : plxJadroAutor;
+         Typ             : taNVarChar;
+         Delka           : 128;
+         ServerDefault   : Cplg_LoginName;
+         Verejny         : vTrue;
+         SirkaSloupce    : 15)
+     )
+
+    ,(SelfIdent: plg_utaDatPorizeni;
+      A:(JmenoSys        : plg_uta_DatPorizeni;
+         JmenoVerejneTxt : plxJadroDatumPorizeni;
+         Typ             : taDateTime;
+         ServerDefault   : Cplg_GetDate;
+         Verejny         : vTrue;
+         SirkaSloupce    : Cplg_DisplaySirkaDatum)
+     )
+
+    ,(SelfIdent: plg_utaZmenil;
+      A:(JmenoSys        : plg_uta_Zmenil;
+         JmenoVerejneTxt : plxJadroZmenil;
+         Typ             : taNVarChar;
+         Delka           : 128;
+         NULL            : nNULL;
+         Verejny         : vTrue;
+         SirkaSloupce    : 20)
+     )
+
+    ,(SelfIdent: plg_utaDatZmeny;
+      A:(JmenoSys        : plg_uta_DatZmeny;
+         JmenoVerejneTxt : plxJadroDatumZmeny;
+         Typ             : taDateTime;
+         NULL            : nNULL;
+         Verejny         : vTrue;
+         SirkaSloupce    : Cplg_DisplaySirkaDatum)
+     )
+
+    ,(SelfIdent: plg_utaBlokovaniEditoru;
+      A:(JmenoSys        : plg_uta_BlokovaniEditoru;
+         JmenoVerejneTxt : plxJadroBlokovaniEditoru;
+         Typ             : taSmallInt;
+         NULL            : nNULL;
+         Vyzadovany      : vTrue;
+         Verejny         : vFalse)
+     )
+
+    ,(SelfIdent: plg_utaGUID;
+      A:(JmenoSys        : plg_uta_GUID;
+         JmenoVerejne    : 'GUID';
+         Typ             : taBinary;
+         Delka           : 16;
+         Verejny         : vFalse)
+     )
+
+    ,(SelfIdent: plg_utaSazbaDPH;
+      A:(Typ             : taNumeric_5_2;
+         NULL            : nNULL;
+         ForeignKey      : 'TabDPH(Sazba)';
+         Verejny         : vTrue)
+     )
+
+    ,(SelfIdent: plg_utaCena;
+      A:(Typ             : taNumeric_19_6;
+         ServerDefault   : '0.0';
+         Verejny         : vTrue;
+         MaskaDisplay    : DisplayMaskPenize;
+         Sumovat         : True)
+     )
+
+    ,(SelfIdent: plg_utaMena;
+      A:(JmenoSys        : plg_uta_Mena;
+         JmenoVerejne    : 'M<>na';
+         Typ             : taNVarChar;
+         Delka           : 3;
+         ForeignKey      : 'TabKodMen(Kod)';
+         Verejny         : vTrue)
+     )
+
+    ,(SelfIdent: plg_utaTextChyby;
+      A:(JmenoSys        : plg_uta_TextChyby;
+         JmenoVerejne    : 'Text chyby';
+         Typ             : taNVarChar;
+         Delka           : 255;
+         ServerDefault   : '''''';
+         Verejny         : vTrue;
+         SirkaSloupce    : 30)
+     )
+
+    ,(SelfIdent: plg_utaImpSoubor;
+      A:(JmenoSys        : plg_uta_ImpSoubor;
+         JmenoVerejne    : 'Importn<74> soubor';
+         Typ             : taNVarChar;
+         Delka           : 255;
+         ServerDefault   : '''''';
+         Verejny         : vTrue;
+         SirkaSloupce    : 30)
+     )
+
+    ,(SelfIdent: plg_utaSkupZbo;
+      A:(JmenoSys        : plg_uta_SkupZbo;
+         Typ             : taNVarChar;
+         Delka           : 3;
+         Verejny         : vTrue;
+         HeliosAttr      : 'TabKmenZbozi.SkupZbo')
+     )
+
+    ,(SelfIdent: plg_utaRegCis;                                                
+      A:(JmenoSys        : plg_uta_RegCis;
+         Typ             : taNVarChar;
+         Delka           : 30;
+         Verejny         : vTrue;
+         HeliosAttr      : 'TabKmenZbozi.RegCis')
+     )
+
+     {$I ..\lib\plgUtaDef.inc}
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgVazby.pas

@@ -0,0 +1,28 @@
+unit plgVazby;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GDefiniceVztahu : array[0..0] of TplgVztahDef =
+    (
+     // aby bylo mozno nemit zadnou vazbu,
+     // musi zustat prvni vazba nedefinovana !!
+     (GUIDVazby   : '')
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.

libSys/plgZmeny.pas

@@ -0,0 +1,60 @@
+{ *************************************************************************** }
+{                                                                             }
+{! SKRIPTY BY M<>LY B<>T PS<50>NY TAK, ABY BYLY SPUSTITELN<4C> V<>CEKR<4B>T - TZN. M<>LY  !}
+{! BY OBSAHOVAT R<>ZN<5A> TESTY EXISTENCE - NAP<41>.:                               !}
+{                                                                             }
+{ -existuje tabulka TabXXX ?                                                  }
+{   IF OBJECT_ID('TabXXX','U')IS NOT NULL ...                                 }
+{                                                                             }
+{ -existuje sloupec ABC v tabulce TabXXX ?                                    }
+{   IF COLUMNPROPERTY(OBJECT_ID('TabXXX','U'),'ABC','AllowsNull')IS NOT NULL ... }
+{                                                                             }
+{ -existuje default DF__TabXXX__ABC na sloupci ABC v tabulce TabXXX ?         }
+{   IF OBJECT_ID('DF__TabXXX__ABC','D')IS NOT NULL ...                        }
+{                                                                             }
+{ kde vezmu 2. parametr syst<73>mov<6F> funkce OBJECT_ID() - je to sysobjects.xtype }
+{ - viz BOL                                                                   }
+{                                                                             }
+{!!! POZOR - POU<4F>IT<49> RETURN VE ZM<5A>NOV<4F>CH SKRIPTECH V plgZmeny.pas NEN<45> BEZTRESTN<54> !!!}
+{    -proto<74>e zm<7A>nov<6F> skripty jsou obaleny knihovanmi BEGIN TRAN..COMMIT, tak }
+{     by p<><70>padn<64> RETURN ponechal transakci neuzav<61>enou ! Proto bych m<>l      }
+{     pou<6F><75>t tuto konstrukci:                                                 }
+{         IF @@TRANCOUNT>0 ROLLBACK  /* nebo COMMIT dle situace */            }
+{         RETURN                                                              }
+{    -pokud je k<>d spou<6F>t<EFBFBD>n p<>es EXEC() nebo sp_executesql, tak tam naopak    }
+{     ROLLBACK (COMMIT) b<>t NESM<53>, proto<74>e RETURN ukon<6F>uje jen dan<61> EXEC()    }
+{    -<2D>pln<6C> nejlep<65><70> je se RETURNu ve zm<7A>nov<6F>ch skriptech <20>pln<6C> vyhnout       }
+{                                                                             }
+{ *************************************************************************** }
+
+unit plgZmeny;
+
+interface
+
+uses
+  plgType;
+
+{ =========================================================================== }
+
+const
+  GZmenoveSkripty : array[0..0] of TplgZmenovySkript =
+    (
+     // aby bylo mozno nemit zadny zmenovy skript,
+     // musi zustat prvni skript nedefinovan !!
+     (PlatiOd : $010020050210;
+      Skript  : '';
+     )
+
+//last
+    );
+
+{ =========================================================================== }
+
+implementation
+
+{ ########################################################################### }
+
+{ ########################################################################### }
+
+end.
+