Zacatek uprav Ramcovy plan

datMod.dfm

@@ -117,6 +117,9 @@ object dm: Tdm
       FieldName = 'fSarze'
       Size = 50
     end
+    object vtStrojefIDPaleta: TIntegerField
+      FieldName = 'fIDPaleta'
+    end
   end
   object vtPlanZitra: TFDMemTable
     FetchOptions.AssignedValues = [evMode]
@@ -129,7 +132,7 @@ object dm: Tdm
     Left = 143
     Top = 89
     object vtPlanZitrafIDPlan2: TIntegerField
-      FieldName = 'fIDPlan'
+      FieldName = 'fIDDavka'
     end
     object vtPlanZitrafVyrobek: TStringField
       FieldName = 'fVyrobek'
@@ -142,6 +145,19 @@ object dm: Tdm
     object vtPlanZitrafZakazka: TStringField
       FieldName = 'fZakazka'
     end
+    object vtPlanZitrafIDPrikaz: TIntegerField
+      FieldName = 'fIDPrikaz'
+      Visible = False
+    end
+    object vtPlanZitrafHodOd: TSmallintField
+      FieldName = 'fHodOd'
+    end
+    object vtPlanZitrafHodDo: TSmallintField
+      FieldName = 'fHodDo'
+    end
+    object vtPlanZitrafMnozstvi: TFloatField
+      FieldName = 'fMnozstvi'
+    end
   end
   object dsPlanZitra: TDataSource
     DataSet = vtPlanZitra
@@ -149,6 +165,8 @@ object dm: Tdm
     Top = 35
   end
   object vtRozpracPL: TFDMemTable
+    FieldDefs = <>
+    IndexDefs = <>
     FetchOptions.AssignedValues = [evMode]
     FetchOptions.Mode = fmAll
     ResourceOptions.AssignedValues = [rvSilentMode]
@@ -156,6 +174,7 @@ object dm: Tdm
     UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
     UpdateOptions.CheckRequired = False
     UpdateOptions.AutoCommitUpdates = True
+    StoreDefs = True
     Left = 238
     Top = 90
     object vtRozpracPLfIDEvidRozp: TIntegerField
@@ -163,6 +182,7 @@ object dm: Tdm
     end
     object vtRozpracPLfIDStroj: TIntegerField
       FieldName = 'fIDStroj'
+      Visible = False
     end
     object vtRozpracPLfStroj: TStringField
       FieldName = 'fStroj'