TomBuzin/Kdynium-plgKdynium
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
TomBuz
2026-05-26 08:39:00 +02:00
parent b1cd64bb32
commit 078d77028a
17 changed files with 3380 additions and 490 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dataMod.dfm
+209 -1
View File
@@ -1,5 +1,213 @@
object dm: Tdm
Height = 480
Width = 640
PixelsPerInch = 96
object tblKoopObjH: TFDMemTable
FieldDefs = <>
IndexDefs = <>
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
StoreDefs = True
Left = 48
Top = 60
object tblKoopObjHID: TAutoIncField
FieldName = 'ID'
Visible = False
end
object tblKoopObjHIDKoopObjH: TIntegerField
FieldName = 'IDKoopObjH'
Visible = False
end
object tblKoopObjHOznaceni: TStringField
FieldName = 'Oznaceni'
Size = 30
end
object tblKoopObjHPozadDodani: TDateField
FieldName = 'PozadDodani'
end
object tblKoopObjHDatVytvoreni: TDateTimeField
FieldName = 'DatVytvoreni'
end
object tblKoopObjHJePrijem: TBooleanField
FieldName = 'JePrijem'
end
end
object dsKoopObjH: TDataSource
DataSet = tblKoopObjH
Left = 46
Top = 126
end
object dsKoopObjR: TDataSource
DataSet = tblKoopObjR
Left = 154
Top = 128
end
object tblKoopObjR: TFDMemTable
FieldDefs = <>
IndexDefs = <>
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
StoreDefs = True
Left = 148
Top = 60
object tblKoopObjRID: TAutoIncField
FieldName = 'ID'
end
object tblKoopObjRIDPolKoopObj: TIntegerField
FieldName = 'IDPolKoopObj'
end
object tblKoopObjRIDVPr: TIntegerField
FieldName = 'IDVPr'
end
object tblKoopObjRIDPrPostup: TIntegerField
FieldName = 'IDPrPostup'
end
object tblKoopObjRDoklad: TIntegerField
FieldName = 'Doklad'
end
object tblKoopObjRAlt: TStringField
FieldName = 'Alt'
Size = 1
end
object tblKoopObjRIDDavka: TIntegerField
FieldName = 'IDDavka'
end
object tblKoopObjRMnozstvi: TFloatField
DefaultExpression = '0'
FieldName = 'Mnozstvi'
end
object tblKoopObjRKsNaStr: TSmallintField
FieldName = 'KsNaStr'
end
object tblKoopObjRIDKooperace: TIntegerField
FieldName = 'IDKooperace'
end
object tblKoopObjRPocetPalet: TSmallintField
FieldName = 'PocetPalet'
end
object tblKoopObjRPocetBeden: TSmallintField
DefaultExpression = '0'
FieldName = 'PocetBeden'
end
end
object tblInsOperace: TFDMemTable
FieldDefs = <>
IndexDefs = <>
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
StoreDefs = True
Left = 258
Top = 62
object tblInsOperaceID: TAutoIncField
FieldName = 'ID'
end
object tblInsOperaceIdPrPostup: TIntegerField
FieldName = 'IdPrPostup'
end
object tblInsOperaceRegCis: TStringField
FieldName = 'RegCis'
Size = 30
end
object tblInsOperaceRadaPrikaz: TStringField
FieldName = 'RadaPrikaz'
Size = 30
end
object tblInsOperaceIDVPr: TIntegerField
FieldName = 'IDVPr'
end
object tblInsOperaceIdVPrVyssi: TIntegerField
FieldName = 'IdVPrVyssi'
end
object tblInsOperaceIDDavka: TIntegerField
FieldName = 'IDDavka'
end
object tblInsOperaceIDDavkaRodic: TIntegerField
FieldName = 'IDDavkaRodic'
end
object tblInsOperaceDoklad: TIntegerField
FieldName = 'Doklad'
end
object tblInsOperaceAlt: TStringField
FieldName = 'Alt'
Size = 1
end
object tblInsOperaceKusy: TIntegerField
FieldName = 'Kusy'
end
object tblInsOperaceKoef: TFloatField
FieldName = 'Koef'
end
object tblInsOperaceOperace: TStringField
FieldName = 'Operace'
Size = 100
end
object tblInsOperaceIDKooperace: TIntegerField
FieldName = 'IDKooperace'
end
object tblInsOperaceKsNaStr: TSmallintField
FieldName = 'KsNaStr'
end
object tblInsOperaceIDRadkuHDCPol: TIntegerField
FieldName = 'IDRadkuHDCPol'
end
object tblInsOperaceKodKoop: TStringField
FieldName = 'KodKoop'
end
end
object tblRadekDavky: TFDMemTable
FieldDefs = <>
IndexDefs = <>
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
StoreDefs = True
Left = 356
Top = 62
object tblRadekDavkyID: TAutoIncField
FieldName = 'ID'
end
object tblRadekDavkyIDDavka: TIntegerField
FieldName = 'IDDavka'
end
object tblRadekDavkyIDDavkaRodic: TIntegerField
FieldName = 'IDDavkaRodic'
end
object tblRadekDavkyIDVPr: TIntegerField
FieldName = 'IDVPr'
end
object tblRadekDavkyIdPostup: TIntegerField
FieldName = 'IdPostup'
end
object tblRadekDavkyMnozstvi: TFloatField
FieldName = 'Mnozstvi'
end
end
object dsInsOperace: TDataSource
DataSet = tblInsOperace
Left = 252
Top = 138
end
object dsRadekDavky: TDataSource
DataSet = tblRadekDavky
Left = 346
Top = 134
end
end