unit dataMod;

interface

uses
  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;

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.