From 79db35220be0dd120b541efedd05c6cd2562e410 Mon Sep 17 00:00:00 2001 From: DarioS Date: Wed, 26 Jul 2023 10:11:25 +0200 Subject: [PATCH] EgtBEAMWALL : - corretto riconoscimento parametri macchina modificati. --- .../ConfigurationPage/ConfigurationPageVM.vb | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/EgtBEAMWALL.ViewerOptimizer/ConfigurationPage/ConfigurationPageVM.vb b/EgtBEAMWALL.ViewerOptimizer/ConfigurationPage/ConfigurationPageVM.vb index 7cd1983b..bbb12ab3 100644 --- a/EgtBEAMWALL.ViewerOptimizer/ConfigurationPage/ConfigurationPageVM.vb +++ b/EgtBEAMWALL.ViewerOptimizer/ConfigurationPage/ConfigurationPageVM.vb @@ -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