Prvni verze

2025-05-21 21:14:32 +02:00
commit 03ff9ebc84
147 changed files with 40100 additions and 0 deletions
--- a/_custom/EMPolar/uHeOObj_Custom.pas
+++ b/_custom/EMPolar/uHeOObj_Custom.pas
@ -0,0 +1,112 @@
+unit uHeOObj_Custom;
+{$RTTI EXPLICIT METHODS([vcPublic, vcPublished]) FIELDS([vcPrivate, vcProtected, vcPublic, vcPublished]) PROPERTIES([vcPublic, vcPublished])}
+
+
+interface
+{$I 'GlobalDefs.inc'}
+
+uses
+  System.Generics.Collections,
+  MVCFramework.Serializer.Commons,
+  MVCFramework.ActiveRecord,
+  MVCFramework.Nullables,
+{$IFDEF SWAGGER}
+  MVCFramework.Swagger.Commons,
+{$ENDIF}
+  helTabsBIDs,
+  uHeoObj_Base;
+
+
+
+type
+
+  [MVCNameCase(ncLowerCase)]
+  TEMPAtestDokument = class(TDokument)
+   private
+    FDokument: TDokument;
+   public
+    property Dokument: TDokument read FDokument write FDokument;
+  end;
+
+
+
+
+  [MVCNameCase(ncLowerCase)]
+  TEMPNadoba = class(THeliosObjekty)
+   private
+    FCisloZakazky: string;
+    FVyrobniCislo: string;
+    FNazev: string;
+    FDruhyNazev: string;
+    FTypZakazky: string;
+    FVykres: NullableString;
+    FIDZakazky: integer;
+    FPotvrzTermDod: NullableTDateTime;
+    FCisloOrg: NullableInt32; // TabZakazka.Prijemce
+    FNazevOrg: NullableString;
+   public
+    [MVCColumn('CisloZakazky', false)]
+    [MVCSwagJsonSchemaField(stString, 'CisloZakazky', '<27><>slo zak<61>zky', true, false)] // required, nullable, minLength, maxLength, FieldSerializationType
+    property CisloZakazky: string read FCisloZakazky write FCisloZakazky;
+
+    [MVCColumn('VyrobniCislo', false)]
+    [MVCSwagJsonSchemaField(stString, 'VyrobniCislo', 'V<>robn<62> <20><>slo', false, false, 0, 100)] // required, nullable, minLength, maxLength, FieldSerializationType
+    property VyrobniCislo: string read FVyrobniCislo write FVyrobniCislo;
+
+    [MVCColumn('IDZakazky', false)]
+    [MVCSwagJsonSchemaField(stInteger, 'IDZakazky', 'ID zak<61>zky n<>doby', true, false)]
+    property IDZakazky: integer read FIDZakazky write FIDZakazky;
+
+    [MVCColumn('TypZakazky', false)]
+    [MVCSwagJsonSchemaField(stString, 'TypZakazky', 'Typ zak<61>zky (100-Objedn<64>vka, 101-n<>doba, 200-nev<65>robn<62>)', false, false)]
+    property TypZakazky: string read FTypZakazky write FTypZakazky;
+
+    [MVCColumn('Vykres', false)]
+    [MVCSwagJsonSchemaField(stString, 'Vykres', '<27><>slo v<>kresu', false, true, 0, 35)]
+    property Vykres: NullableString read FVykres write FVykres;
+
+    [MVCColumn('Nazev', false)]
+    [MVCSwagJsonSchemaField(stString, 'Nazev', 'N<>zev zak<61>zky', false, false, 0, 100)]
+    property Nazev: string read FNazev write FNazev;
+
+    [MVCColumn('DruhyNazev', false)]
+    [MVCSwagJsonSchemaField(stString, 'DruhyNazev', 'Druh<75> n<>zev zak<61>zky', false, false, 0, 100)]
+    property DruhyNazev: string read FDruhyNazev write FDruhyNazev;
+
+    [MVCColumn('PotvrzTermDod', false)]
+    [MVCSwagJsonSchemaField(stDateTime, 'PotvrzTermDod', 'Potvrzen<65> term<72>n dod<6F>vky', false, false, 0, 100)]
+    property PotvrzTermDod: NullableTDateTime read FPotvrzTermDod write FPotvrzTermDod;
+
+    [MVCColumn('CisloOrg', false)]
+    [MVCSwagJsonSchemaField(stInteger, 'CisloOrg', '<27><>slo organizace p<><70>jemce (ze zak<61>zky)', false, true)]
+    property CisloOrg: NullableInt32 read FCisloOrg write FCisloOrg;
+
+    [MVCColumn('NazevOrg', false)]
+    [MVCSwagJsonSchemaField(stString, 'NazevOrg', 'N<>zev organizace p<><70>jemce (ze zak<61>zky)', false, true, 0, 100)]
+    property NazevOrg: NullableString read FNazevOrg write FNazevOrg;
+
+    {
+    [MVCColumn('GUIDDokladu', false)]
+    [MVCSwagJsonSchemaField(stGuid, 'GUIDDokladu', 'GUID dokladu', false, true)]
+    property GUIDDokladu: NullableTGUID read FGUIDDokladu write FGUIDDokladu;
+
+    [MapperListOf(TGatemaSDScanData)]
+    property ScanData: TObjectList<TGatemaSDScanData> read FScanData write SetSDScanData;
+}
+  end;
+
+
+
+implementation
+
+uses
+  System.SysUtils,
+  System.StrUtils,
+  System.RegularExpressions,
+  uSvc_Obecne,
+  uCtrlBase
+  ;
+
+
+
+end.