Dalsi zmeny

uHeoObj_Vyroba.pas

@@ -1364,7 +1364,7 @@ type
   [MVCTable('TabEvidRozpracOperR')]
   TEvidRozpracOperaceOperace = class(THeliosObjekty)
    private
-    FIDEvidRozpraceOper: integer;
+    FIDEvidRozpracOper: integer;
     FIDPrikaz: integer;
     FNazevDilce: NullableString;
     FSkupZboDilce: NullableString;
@@ -1372,6 +1372,7 @@ type
     FDokladPrPostup: integer;
     FAltPrPostup: char;
     FNazevOperace: NullableString;
+    FOperace: string;
     FIDSdruzVyrOperaceR: NullableInt32;
     FIDVyrCis: NullableInt32;
     FTypEvidMnoz: NullableInt16;
@@ -1382,12 +1383,18 @@ type
     FSk_cas_Obsluhy_T: byte;
     FPoznamka: NullableString;
     FJeSdruzenaOper: boolean;
+    FOdvadeci: boolean;
+{$IFDEF CUSTOM_CTRL_INCOSystems}
+    FMamNeuzavrenePredchozi: boolean;
+{$ENDIF}
    protected
     procedure OnAfterLoad; override;
    public
-    [MVCColumn('IDEvidRozpraceOper')]
-    [MVCSwagJsonSchemaField(stInteger, 'IDEvidRozpraceOper', 'Interní ID evidence rozpracovaných operací', true, false)]  // typ, sysName, nazev, required, nullable, minLength, maxLength
-    property IDEvidRozpraceOper: integer read FIDEvidRozpraceOper write FIDEvidRozpraceOper;
+    constructor Create; virtual;
+
+    [MVCColumn('IDEvidRozpracOper')]
+    [MVCSwagJsonSchemaField(stInteger, 'IDEvidRozpracOper', 'Interní ID evidence rozpracovaných operací', true, false)]  // typ, sysName, nazev, required, nullable, minLength, maxLength
+    property IDEvidRozpracOper: integer read FIDEvidRozpracOper write FIDEvidRozpracOper;
 
     [MVCColumn('IDPrikaz')]
     [MVCSwagJsonSchemaField(stInteger, 'IDPrikaz', 'Interní ID výrobního pøíkazu', true, false)]
@@ -1448,6 +1455,20 @@ type
     [MVCColumn('RegCisDilce')]
     [MVCSwagJsonSchemaField(stString, 'RegCisDilce', 'Registracni cislo vyrábìného dílce', false, true, 0, 30)]
     property RegCisDilce: NullableString read FRegCisDilce write FRegCisDilce;
+
+    [MVColumn('Odvadeci')]
+    [MVCSwagJsonSchemaField(stBoolean, 'Odvadeci', 'Odvádìcí operace', true, false)]
+    property Odvadeci: boolean read FOdvadeci write FOdvadeci;
+
+    [MVColumn('Operace')]
+    [MVCSwagJsonSchemaField(stString, 'Operace', 'Operace', false, true, 0, 4)]
+    property Operace: string read FOperace write FOperace;
+
+{$IFDEF CUSTOM_CTRL_INCOSystems}
+    [MVCColumn('MamNeuzavrenePredchozi')]
+    [MVCSwagJsonSchemaField(stBoolean, 'MamNeuzavrenePredchozi', 'Existují neuzavøené rozpracované evidence operace daného pøíkazu s nižším èíslem operace', true, false)]
+    property MamNeuzavrenePredchozi: boolean read FMamNeuzavrenePredchozi write FMamNeuzavrenePredchozi;
+{$ENDIF}
   end;
 
 
@@ -2325,6 +2346,17 @@ uses
 
 { TEvidRozpracOperaceOperace }
 
+ constructor TEvidRozpracOperaceOperace.Create;
+  begin
+   inherited;
+   FOdvadeci:= false;
+   FOperace:= '';
+{$IFDEF CUSTOM_CTRL_INCOSystems}
+   FMamNeuzavrenePredchozi:= false;
+{$ENDIF}
+  end;
+
+
  procedure TEvidRozpracOperaceOperace.OnAfterLoad;
   begin
    FJeSdruzenaOper:= FIDSdruzVyrOperaceR.IsNull;