Gestione scrittura valore FeedHold letto da configurazione

Machine/CurrentMachine.vb

@@ -1370,6 +1370,8 @@ Public Class CurrentMachine
       CN.n_num_var_int_to_read = CShort(GetPrivateProfileInt(S_NCFANUC, K_NUMVARINT, CInt(CN.n_num_var_int_to_read), sMachIniFile))
       ' Leggo numero di varibili di tipo bit
       CN.n_num_var_byte_for_bits_to_read = CShort(GetPrivateProfileInt(S_NCFANUC, K_NUMVARBIT, CInt(CN.n_num_var_byte_for_bits_to_read), sMachIniFile))
+      ' Leggo variabile abilitata alla gestione di FeedHold
+      GetPrivateProfileString(S_NCFANUC, K_SETNCMODE, CN.s_addr_feedhold, CN.s_addr_feedhold, sMachIniFile)
    End Sub
 
    Public Sub LoadWJMaterial(Optional bIsStart As Boolean = False)

Machine/MachineCNPageUC.xaml

@@ -62,7 +62,7 @@
                   <ColumnDefinition Width="2*"/>
                </Grid.ColumnDefinitions>
 
-                    <Button Name="StartBtn" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
+               <Button Name="StartBtn" Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
                <Button Name="StopBtn" Grid.Column="1"
                   Style="{DynamicResource OmagCut_RightGrayGradientYellowTextButton}"/>
                <Button Name="ResetBtn" Grid.Column="2"

MainWindow.xaml.vb

@@ -328,8 +328,8 @@ Class MainWindow
       ' Verifico abilitazione nesting automatico
       m_bAutoNest = Not String.IsNullOrWhiteSpace(sNestKey)
       ' Recupero opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2504, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2504, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2503, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(9423, 2503, 1, m_nKeyOptions)
       ' Verifico abilitazione prodotto
       Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE)
       ' Inizializzazione generale di EgtInterface

My Project/AssemblyInfo.vb

@@ -62,5 +62,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.5.4.2")>
-<Assembly: AssemblyFileVersion("2.5.4.2")>
+<Assembly: AssemblyVersion("2.5.3.1")>
+<Assembly: AssemblyFileVersion("2.5.3.1")>

NcComm/CN_generico.vb

@@ -242,6 +242,7 @@ Public MustInherit Class CN_generico
    Public n_num_var_int_to_read As Short = 10
    Public n_num_var_byte_for_bits_to_read As Short = 30
    Public s_addr_set_nc_mode As String = "D59825"
+   Public s_addr_feedhold As String = "D59850.6"
    '
    ' Eventi
    '

NcComm/M_Fanuc_hi.vb

@@ -225,8 +225,11 @@ Namespace Fanuc
 
 			Dim nret As Int16 = -1
 
+			If NC_pulse_bit(s_addr_feedhold) Then
+				nret = 0
+			End If
 
-			'nret = StopNC(n_portNC)
+			Return nret
 
 
 		End Function
@@ -947,6 +950,8 @@ Namespace Fanuc
 				MyBase.OnNewPosDeltaData()
 			End If
 
+			Return 0
+
 		End Function
 
 #End Region
@@ -1275,6 +1280,9 @@ Namespace Fanuc
 				Case "D"
 					Return PMCAreaType.D_AREA
 
+				Case Else
+					Return -1
+
 			End Select
 
 		End Function