EgtBEAMWALL :

- corretto riconoscimento parametri macchina modificati.
2023-07-26 10:11:25 +02:00
parent d7ba34527f
commit 79db35220b
1 changed files with 3 additions and 7 deletions
@@ -680,21 +680,17 @@ Public Class MachParam
         Dim dNewValue As Double
         ' verifico se valore immesso è diverso dall'originale
         If nParentTable > 0 Then
-            Dim sOrigValue As String = String.Empty
-            Dim dOrigValue As Double
-            MachParamIniFile.GetMachPrivateProfileParamValue(nParentTable, nParamIndex, sOrigValue)
            ' trasformo valori
            Select Case nType
               Case MachParamType.DOUBLE_
                  StringToDoubleAdv(value, dNewValue, True)
-                  StringToDoubleAdv(sOrigValue, dOrigValue, True)
+                  m_IsModifiedValue = Math.Abs( dNewValue - m_dValue) > EPS_SMALL
               Case MachParamType.LENGTH
                  StringToLenAdv(value, dNewValue, True)
-                  StringToLenAdv(sOrigValue, dOrigValue, True)
+                  m_IsModifiedValue =  Math.Abs( dNewValue - m_dValue) > EPS_SMALL
               Case Else
-                  ' per string non faccio nulla
+                  m_IsModifiedValue = String.Compare( value, m_sValue) <> 0
            End Select
-            m_IsModifiedValue = dNewValue <> dOrigValue
         End If
         ' se valore immesso è diverso e password non inserita
         If m_IsModifiedValue AndAlso Not Map.refConfigurationPageVM.bModifyMachParam Then