Pridana funkcnost zmeny planovaneho ukonceni prikazu podle tabulky (comObject akce 36) + prvni verze generovani KoopObj dle stare HDC funkcnosti ctecky

2026-05-26 08:39:00 +02:00
parent b1cd64bb32
commit 078d77028a
17 changed files with 3380 additions and 490 deletions
@@ -3,10 +3,92 @@
 interface

 uses
-  System.SysUtils, System.Classes;
+  System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
+  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, Data.DB,
+  FireDAC.Comp.DataSet, FireDAC.Comp.Client,
+  ddPlugin_TLB;
+
+const
+  tblKonfigZarizeni = 'dbo._HDCserver_zarizeni';
+  tblHDCKooperanti = 'dbo._HDCserver_kooperanti';
+
+  tblDavky = 'dbo._hdc_TabDavky';
+
+  tblHDCSDDokl = 'dbo._HDCserver_doklady';
+  tblHDCSDPol = 'dbo._HDCserver_dokladyPol';
+  tblHDCSDHeODokl = 'dbo._HDCserver_doklady_heoDokl';
+  tblHDCSDPolKoopObj = 'dbo._HDCserver_dokladyPol_KoopObjPol';
+
+  tblKoopH = 'dbo._hdc_TabKooperaceH';     // hlavicka objednavky ze ctecky
+  tblKoopR = 'dbo._hdc_TabKooperaceR';     // polozka
+  tblKoopD = 'dbo._hdc_TabKooperaceD';     // davka
+  tblKoopVPr = 'dbo._hdc_TabKooperaceVPr'; // prikazy
+

 type
+  TKooperant = class
+   strict private
+    FNazev: string;
+    FCisloOrg: integer;
+    FIDOrg: integer;
+    FHelios: IHelios;
+   public
+    constructor Create (const Nazev: string; const cisloOrg: integer; const Helios: IHelios);
+    property Nazev: string read FNazev write FNazev;
+    property CisloOrg: integer read FCisloOrg write FCisloOrg;
+    property IDOrg: integer read FIDOrg;
+  end;
+
  Tdm = class(TDataModule)
+    tblKoopObjH: TFDMemTable;
+    dsKoopObjH: TDataSource;
+    dsKoopObjR: TDataSource;
+    tblKoopObjR: TFDMemTable;
+    tblKoopObjHID: TAutoIncField;
+    tblKoopObjHIDKoopObjH: TIntegerField;
+    tblKoopObjRID: TAutoIncField;
+    tblKoopObjRIDPolKoopObj: TIntegerField;
+    tblKoopObjRIDVPr: TIntegerField;
+    tblKoopObjRIDPrPostup: TIntegerField;
+    tblKoopObjRDoklad: TIntegerField;
+    tblKoopObjRAlt: TStringField;
+    tblKoopObjRIDDavka: TIntegerField;
+    tblKoopObjRMnozstvi: TFloatField;
+    tblKoopObjRKsNaStr: TSmallintField;
+    tblKoopObjRIDKooperace: TIntegerField;
+    tblKoopObjRPocetPalet: TSmallintField;
+    tblKoopObjRPocetBeden: TSmallintField;
+    tblInsOperace: TFDMemTable;
+    tblRadekDavky: TFDMemTable;
+    tblInsOperaceID: TAutoIncField;
+    tblInsOperaceIdPrPostup: TIntegerField;
+    tblInsOperaceRegCis: TStringField;
+    tblInsOperaceRadaPrikaz: TStringField;
+    tblInsOperaceIDVPr: TIntegerField;
+    tblInsOperaceIdVPrVyssi: TIntegerField;
+    tblInsOperaceIDDavkaRodic: TIntegerField;
+    tblInsOperaceDoklad: TIntegerField;
+    tblInsOperaceAlt: TStringField;
+    tblInsOperaceKusy: TIntegerField;
+    tblInsOperaceKoef: TFloatField;
+    tblInsOperaceOperace: TStringField;
+    tblInsOperaceIDKooperace: TIntegerField;
+    tblInsOperaceKsNaStr: TSmallintField;
+    tblInsOperaceIDRadkuHDCPol: TIntegerField;
+    tblInsOperaceKodKoop: TStringField;
+    tblRadekDavkyID: TAutoIncField;
+    tblRadekDavkyIDDavka: TIntegerField;
+    tblRadekDavkyIDDavkaRodic: TIntegerField;
+    tblRadekDavkyIDVPr: TIntegerField;
+    tblRadekDavkyIdPostup: TIntegerField;
+    tblRadekDavkyMnozstvi: TFloatField;
+    tblKoopObjHOznaceni: TStringField;
+    tblKoopObjHPozadDodani: TDateField;
+    tblKoopObjHDatVytvoreni: TDateTimeField;
+    tblKoopObjHJePrijem: TBooleanField;
+    dsInsOperace: TDataSource;
+    dsRadekDavky: TDataSource;
+    tblInsOperaceIDDavka: TIntegerField;
   private
   public
  end;
@@ -15,9 +97,20 @@ var
  dm: Tdm;

 implementation
+uses helUtils;

 {%CLASSGROUP 'Vcl.Controls.TControl'}

 {$R *.dfm}

+
+ constructor TKooperant.Create (const Nazev: string; const cisloOrg: Integer; const Helios: IHelios);
+  begin
+   FHelios := Helios;
+   FNazev := Nazev;
+   FCisloOrg := cisloOrg;
+   FIDOrg := helUtils.getHeliosIntVal (FHelios, -1, 'SELECT ID FROM ' + tblCOrg + ' WHERE CisloOrg=' + FCisloOrg.ToString);
+  end;
+
+
 end.