TomBuzin/HDCApi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Dalsi zmeny

Browse Source
This commit is contained in:
TomBuz
2026-03-03 16:18:27 +01:00
parent 03ff9ebc84
commit a62b608cfd
97 changed files with 4635 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
uHeoObj_Vyroba.pas
View File

@ -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<72> ID evidence rozpracovan<61>ch operac<61>', 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<72> ID evidence rozpracovan<61>ch operac<61>', true, false)] // typ, sysName, nazev, required, nullable, minLength, maxLength
property IDEvidRozpracOper: integer read FIDEvidRozpracOper write FIDEvidRozpracOper;
[MVCColumn('IDPrikaz')]
[MVCSwagJsonSchemaField(stInteger, 'IDPrikaz', 'Intern<72> ID v<>robn<62>ho p<><70>kazu', true, false)]
@ -1448,6 +1455,20 @@ type
[MVCColumn('RegCisDilce')]
[MVCSwagJsonSchemaField(stString, 'RegCisDilce', 'Registracni cislo vyr<79>b<EFBFBD>n<EFBFBD>ho d<>lce', false, true, 0, 30)]
property RegCisDilce: NullableString read FRegCisDilce write FRegCisDilce;
[MVColumn('Odvadeci')]
[MVCSwagJsonSchemaField(stBoolean, 'Odvadeci', 'Odv<64>d<EFBFBD>c<EFBFBD> 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<75> neuzav<61>en<65> rozpracovan<61> evidence operace dan<61>ho p<><70>kazu s ni<6E><69><EFBFBD>m <20><>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;