FIX Job-save missing criteria (hack).

CSE/IO/cCriteria.vb

@@ -395,6 +395,10 @@ Public Class cCriteria
         Me.t_amb_min = g("t_amb_min")
     End Sub
 
+    Public Sub OnBeforeContentStored_hack()
+        Me.OnBeforeContentStored()
+    End Sub
+
     ''' <summary>Override it to set custome fields</summary>
     Protected Overrides Sub OnBeforeContentStored()
         Dim g, b As Object

CSE/IO/cJob.vb

@@ -267,6 +267,9 @@ Public Class cJob
         b.valid_t_tire = valid_t_tire
         b.valid_t_amb = valid_t_amb
         b.valid_RRC = valid_RRC
+
+        Crt.OnBeforeContentStored_hack()
+        Me.Criteria = Crt
     End Sub
 
     Public Property vehicle_fpath As String