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"

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