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