117 lines
3.5 KiB
ObjectPascal
117 lines
3.5 KiB
ObjectPascal
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.
|