214 lines
5.7 KiB
ObjectPascal
214 lines
5.7 KiB
ObjectPascal
object dm: Tdm
|
|
Height = 480
|
|
Width = 640
|
|
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
|