Prvotni verze pro Giteu

datModPrij.dfm

@@ -0,0 +1,217 @@
+object dmPrij: TdmPrij
+  Height = 240
+  Width = 640
+  PixelsPerInch = 96
+  object vTabPrij: TMemTableEh
+    Params = <>
+    Options = [mtoPersistentStructEh]
+    OnFilterRecord = vTabFilterRecord
+    Left = 27
+    Top = 17
+    object vTabPoradiSort: TSingleField
+      FieldName = 'PoradiSort'
+      Visible = False
+    end
+    object vTabPoradi: TSmallintField
+      DisplayLabel = 'Po'#345'ad'#237
+      FieldName = 'Poradi'
+      DisplayFormat = '#0'
+    end
+    object vTabRegCis: TStringField
+      DisplayLabel = #268#237'slo'
+      FieldName = 'RegCis'
+      Required = True
+      Size = 30
+    end
+    object vTabNazev1: TStringField
+      DisplayLabel = 'N'#225'zev'
+      FieldName = 'Nazev1'
+      Size = 100
+    end
+    object vTabMnozstvi: TFloatField
+      DisplayLabel = 'Mno'#382'stv'#237
+      FieldName = 'Mnozstvi'
+      OnValidate = vTabMnozstviValidate
+      DisplayFormat = '##0.##'
+    end
+    object vTabSkupZbo: TStringField
+      FieldName = 'SkupZbo'
+      Visible = False
+      Size = 3
+    end
+    object vTabIDZboSklad: TIntegerField
+      FieldName = 'IDZboSklad'
+      Required = True
+      Visible = False
+    end
+    object vTabIDPohybZboziObj: TIntegerField
+      FieldName = 'IDPohybZboziObj'
+      Required = True
+      Visible = False
+    end
+    object vTabSortiment: TStringField
+      FieldName = 'Sortiment'
+      Size = 100
+    end
+    object vTabK2: TStringField
+      FieldName = 'K2'
+      Size = 10
+    end
+    object vTabK1: TStringField
+      FieldName = 'K1'
+      Size = 10
+    end
+    object vTabTypZavozu: TStringField
+      FieldName = 'TypZavozu'
+      Visible = False
+      Size = 1
+    end
+    object vTabPoradiExt: TSingleField
+      FieldName = 'PoradiExt'
+      Visible = False
+    end
+    object vTabK1K2: TStringField
+      FieldName = 'K1K2'
+      Visible = False
+      Size = 15
+    end
+    object vTabPoradiSortNazev: TStringField
+      FieldName = 'PoradiSortNazev'
+      Size = 100
+    end
+    object vTabJCbezDaniKc: TSingleField
+      FieldName = 'JCbezDaniKc'
+    end
+    object MemTableData: TMemTableDataEh
+      object DataStruct: TMTDataStructEh
+        object JCbezDaniKc: TMTNumericDataFieldEh
+          FieldName = 'JCbezDaniKc'
+          NumericDataType = fdtSingleEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          currency = False
+          Precision = 15
+        end
+        object PoradiSortNazev: TMTStringDataFieldEh
+          FieldName = 'PoradiSortNazev'
+          StringDataType = fdtStringEh
+          DisplayWidth = 100
+          Size = 100
+        end
+        object PoradiExt: TMTNumericDataFieldEh
+          FieldName = 'PoradiExt'
+          NumericDataType = fdtSingleEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          currency = False
+          Precision = 15
+        end
+        object PoradiSort: TMTNumericDataFieldEh
+          FieldName = 'PoradiSort'
+          NumericDataType = fdtSingleEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          currency = False
+          Precision = 15
+        end
+        object Poradi: TMTNumericDataFieldEh
+          FieldName = 'Poradi'
+          NumericDataType = fdtSmallintEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          currency = False
+          Precision = 15
+        end
+        object TypZavozu: TMTStringDataFieldEh
+          FieldName = 'TypZavozu'
+          StringDataType = fdtStringEh
+          DisplayWidth = 1
+          Size = 1
+        end
+        object Sortiment: TMTStringDataFieldEh
+          FieldName = 'Sortiment'
+          StringDataType = fdtStringEh
+          DisplayWidth = 100
+          Size = 100
+        end
+        object K2: TMTStringDataFieldEh
+          FieldName = 'K2'
+          StringDataType = fdtStringEh
+          DisplayWidth = 10
+          Visible = False
+          Size = 10
+        end
+        object K1: TMTStringDataFieldEh
+          FieldName = 'K1'
+          StringDataType = fdtStringEh
+          DisplayWidth = 10
+          Visible = False
+          Size = 10
+        end
+        object Nazev1: TMTStringDataFieldEh
+          FieldName = 'Nazev1'
+          StringDataType = fdtStringEh
+          DisplayWidth = 100
+          Size = 100
+        end
+        object RegCis: TMTStringDataFieldEh
+          FieldName = 'RegCis'
+          StringDataType = fdtStringEh
+          DisplayWidth = 30
+          Required = True
+          Size = 30
+        end
+        object SkupZbo: TMTStringDataFieldEh
+          FieldName = 'SkupZbo'
+          StringDataType = fdtStringEh
+          DisplayWidth = 3
+          Visible = False
+          Size = 3
+        end
+        object IDZboSklad: TMTNumericDataFieldEh
+          FieldName = 'IDZboSklad'
+          NumericDataType = fdtIntegerEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          Required = True
+          Visible = False
+          currency = False
+          Precision = 15
+        end
+        object Mnozstvi: TMTNumericDataFieldEh
+          FieldName = 'Mnozstvi'
+          NumericDataType = fdtFloatEh
+          AutoIncrement = False
+          DisplayLabel = '0'
+          DisplayWidth = 20
+          DisplayFormat = '##0.##'
+          currency = False
+          Precision = 15
+        end
+        object K1K2: TMTStringDataFieldEh
+          FieldName = 'K1K2'
+          StringDataType = fdtStringEh
+          DisplayWidth = 20
+          Visible = False
+        end
+        object IDPohybZboziObj: TMTNumericDataFieldEh
+          FieldName = 'IDPohybZboziObj'
+          NumericDataType = fdtIntegerEh
+          AutoIncrement = False
+          DisplayWidth = 20
+          Required = True
+          Visible = False
+          currency = False
+          Precision = 15
+        end
+      end
+      object RecordsList: TRecordsListEh
+      end
+    end
+  end
+  object dsPrij: TDataSource
+    DataSet = vTabPrij
+    Left = 100
+    Top = 18
+  end
+end