Aggiunta tasto volantino

- aggiunta implementazione cambio tavola su macchine a due tavole che abilitano l'operazione.

CadCuts/NestPageUC.xaml.vb

@@ -132,9 +132,6 @@ Public Class NestPageUC
          Not m_CurrProjPage.m_bSelectCurv Then
          Return
       End If
-
-      '------------------- NUOVA DEFINIZIONE -------------------------
-
       ' provo a riconoscere il valore medio del segmento 
       ' Verifico se selezionato indicativo di pezzo
       EgtSetObjFilterForSelWin(False, True, False, False, False)
@@ -176,13 +173,9 @@ Public Class NestPageUC
          End If
          nIdMy = EgtGetNextObjInSelWin()
       End While
-
       Return
-
-      '------------------- NUOVA DEFINIZIONE -------------------------
    End Sub
 
-
    Private Sub OnMyMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_CurrProjPage.OnMouseDownScene
       ' Verifico di essere il gestore attivo e non in modalità registrazione
       If Not m_bActive Or m_bRegister Then Return
@@ -219,16 +212,37 @@ Public Class NestPageUC
             m_bDrag = True
             Exit While
          Else
-            ' verifico che tra gli elemnti selezionati ci sia un testo
+            ' verifico se l'elemento selezionato è il nome della tavola
             If EgtGetType(nId) = GDB_TY.EXT_TEXT AndAlso (sNamePartId = MAIN_TAB Or sNamePartId = SECOND_TAB) Then
                Dim nTab As Integer = m_MainWindow.m_CadCutPageUC.m_ProjectMgr.ChangeTable()
-               ' se non è stata eseguita nessuna selezione esco dal ciclo 
+               ' se non è stata eseguita nessuna scelta esco dal ciclo 
                If nTab = 0 Then Exit While
-               '' Creo nuovo progetto
-               'm_CurrProjPage.NewProject(nTabInd, bRetainParkedParts)
-               '' Gestione stato FastGrid
-               'm_MainWindow.m_CadCutPageUC.m_FastGridSlabManager.OnPostNewProject()
-               'EgtZoom(ZM.ALL)
+               ' imposto l'altra tavola
+               Dim sOtherTab = If( sNamePartId = MAIN_TAB, SECOND_TAB, MAIN_TAB)
+               EgtChangeTable( sOtherTab, True)
+               m_CurrProjPage.AdjustAdditionalTable( True)
+               EgtSetMachineLook(MCH_LOOK.TAB)
+               ' aggiorno le lavorazioni
+               UpdateAllMachiningsToolpaths()
+               ' aggiorno i movimenti pezzi tra disposizioni
+               For nI As Integer = 1  To EgtGetPhaseCount()
+                  EgtSetCurrPhase( nI)
+                  Dim nDispId As Integer = EgtGetPhaseDisposition(nI)
+                  SpecialApplyDisposition(nDispId, True)
+               Next
+               ' aggiorno posizionamento ventose per lavorazioni da sotto
+               UpdateVacuumsForDrip()
+               ' dichiaro tutto aggiornato
+               m_CurrProjPage.SetOrderMachiningFlag()
+               EgtSetCurrPhase(1)
+               ' aggiorno posizione pezzi in parcheggio
+               Dim nPPId As Integer = EgtGetFirstPart()
+               While nPPId <> GDB_ID.NULL
+                  PackPartInStore(nPPId)
+                  nPPId = EgtGetNextPart( nPPId)
+               End While
+               ' visualizzazione
+               EgtZoom(ZM.ALL)
                Exit While
             End If
          End If

Constants/ConstMachIni.vb

@@ -107,6 +107,7 @@
    Public Const K_ZBJOG As String = "ZBJog"
    Public Const K_POWERON As String = "PowerON"
    Public Const K_POWEROFF As String = "PowerOFF"
+   Public Const K_REMOTE As String = "Remote"
 
    Public Const S_PRODUCTIONLINE As String = "ProductionLine"
    Public Const K_ACTIVE As String = "Active"

DirectCuts/DirectCutPageUC.xaml

@@ -97,7 +97,8 @@
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="5*"/>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="4*"/>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
@@ -124,13 +125,18 @@
               <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
           </ToggleButton>
 
-          <!--Comando asse Z-B-->
-          <ToggleButton Name="ZBBtn" Grid.Column="4"
+         <!--Comando asse Z-B-->
+         <ToggleButton Name="ZBBtn" Grid.Column="4"
                Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
-              <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
-          </ToggleButton>
+            <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
+         </ToggleButton>
 
-            <Button Name="ManualModeBtn" Grid.Column="7"
+         <!--Comando Remote-->
+         <ToggleButton Name="RemoteBtn" Grid.Column="5"
+               Style="{DynamicResource OmagCut_GradientYellowIconToggleButton}">
+            <!--<Image Source="{DynamicResource VacuumImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>-->
+         </ToggleButton>
+         <Button Name="ManualModeBtn" Grid.Column="8"
                Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
             <Image Source="{DynamicResource ManualImg}" Style="{StaticResource OmagCut_ScaleButtonIcon}"/>
          </Button>

DirectCuts/DirectCutPageUC.xaml.vb

@@ -119,11 +119,16 @@ Public Class DirectCutPageUC
       Dim x As Integer = GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile())
       If GetPrivateProfileInt(S_NCDATA, K_NEWCONSOLE, 0, m_MainWindow.GetMachIniFile()) = 1 And Not bCollapsedNewBottonsConsole Then
          XYBtn.Content = "X - Y"
+         XYBtn.Foreground = Brushes.White
          ZCBtn.Content = "Z - C"
+         ZCBtn.Foreground = Brushes.White
          If AxesNumber < 5 Then
             ZBBtn.Visibility = Windows.Visibility.Collapsed
          End If
          ZBBtn.Content = "Z - B"
+         ZBBtn.Foreground = Brushes.White
+         RemoteBtn.Content = "Remote"
+         RemoteBtn.Foreground = Brushes.White
       Else
          XYBtn.Visibility = Windows.Visibility.Collapsed
          ZCBtn.Visibility = Windows.Visibility.Collapsed
@@ -383,6 +388,35 @@ Public Class DirectCutPageUC
          ZBBtn.IsChecked = bBCAxes
       End If
    End Sub
+
+   Private Sub RemoteBtn_Click(sender As Object, e As RoutedEventArgs) Handles RemoteBtn.Click
+      Dim RemoteButton As MachineButton = m_ButtonJogList(3)
+      ' eseguo lo script lua associato
+      Dim CurrentBtn As Primitives.ToggleButton = e.Source
+      Dim sLuaFileName As String = String.Empty
+      If CurrentBtn.IsChecked() Then
+         sLuaFileName = RemoteButton.TLuaScriptName
+      Else
+         sLuaFileName = RemoteButton.FLuaScriptName
+      End If
+      RemoteButton.ExecuteMDICommand(sLuaFileName)
+   End Sub
+
+   Friend Sub RemoteChanged(bRemote As Boolean)
+      ' devo decodificare il tipo di pulsante, quindi eseguire la conversione...
+      Dim RemoteButton As TwoStateButton = Nothing
+      For Each MachineButton As MachineButton In m_ButtonJogList
+         If MachineButton.StateFlag.Trim = K_REMOTE Then
+            RemoteButton = MachineButton
+            Exit For
+         End If
+      Next
+      If Not IsNothing(RemoteButton) Then
+         RemoteButton.SetIsChecked(bRemote)
+         RemoteBtn.IsChecked = bRemote
+      End If
+   End Sub
+
    '------------------NUOVI BOTTONI PER GESTIONE JOYSTICK-------------------------------------------------
    Private Sub MachViewModeBtn_Click(sender As Object, e As RoutedEventArgs) Handles MachViewModeBtn.Click
       If m_bShowMachine Then

DirectCuts/MachineButtonsUC.xaml.vb

@@ -121,6 +121,8 @@ Public Class MachineButtonsUC
                      CurrToggleBtn.Content = "Z - C"
                   ElseIf StateFlagArray(nIndex) = K_ZBJOG Then
                      CurrToggleBtn.Content = "Z - B"
+                  ElseIf StateFlagArray(nIndex) = K_REMOTE Then
+                     CurrToggleBtn.Content = "Remote"
                   End If
                Catch ex As Exception
                   EgtOutLog("Error loading content " & StateFlagArray(nIndex))
@@ -602,6 +604,15 @@ Public Class MachineButtonsUC
       ' selezoiono lo stato del bottone
       GetToggleButton(nIndex + 1).IsChecked = bBCAxes
    End Sub
+
+   Friend Sub RemoteChanged(ByVal bRemote As Boolean)
+      ' recupero le asscociazioni con i bottoni
+      Dim nIndex As Integer = Array.IndexOf(StateFlagArray, K_REMOTE)
+      If nIndex = -1 Then Return
+      ' selezoiono lo stato del bottone
+      GetToggleButton(nIndex + 1).IsChecked = bRemote
+   End Sub
+
    '-----------------------------------------------------------------------------------------------------------------
 
    Private Function GetToggleButton(ByVal nIndex As Integer) As Primitives.ToggleButton

DirectCuts/ManualAxesMoveUC.xaml.vb

@@ -201,11 +201,12 @@ Public Class ManualAxesMoveUC
       EgtOutLog("CmdString=" & CmdString)
       ' Eseguo in MDI
       m_CN.DGeneralFunctions_WriteCncMode(2)     ' Modalità MDI
-      System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
+      System.Threading.Thread.Sleep(150)
       m_CN.sz_ManualDataInput = CmdString
       m_CN.MDI_command()
-      System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
+      System.Threading.Thread.Sleep(150)
       m_CN.DGeneralFunctions_CycleStart()
+      System.Threading.Thread.Sleep(m_MainWindow.m_CurrentMachine.nThreadSleep)
       m_CN.DGeneralFunctions_WriteCncMode(7)     ' Modalità manuale
       m_MoveClicked = False
    End Sub

Machine/MachiningDbPageUC.xaml

@@ -392,7 +392,7 @@
 
             </Border>
 
-            <Border Name="CurveBrd" Grid.Column="0" Grid.Row="18" Grid.ColumnSpan="4" Grid.RowSpan="3"
+            <Border Name="CurveBrd" Grid.Column="0" Grid.Row="15" Grid.ColumnSpan="4" Grid.RowSpan="3"
                Style="{DynamicResource OmagCut_NoNameGroupBorder}">
 
                <Grid>

Machine/MachiningDbPageUC.xaml.vb

@@ -705,8 +705,9 @@ Public Class MachiningDbPageUC
       LonOffsetTxBx.Visibility = Windows.Visibility.Visible
       Select Case nMachiningType
          Case MCH_MY.SAWING   'Parametri Taglio
-            SideAngleTxBl.Visibility = Windows.Visibility.Visible
-            SideAngleTxBx.Visibility = Windows.Visibility.Visible
+            ' nascondo il parametro di sbandamento 
+            SideAngleTxBl.Visibility = Windows.Visibility.Hidden
+            SideAngleTxBx.Visibility = Windows.Visibility.Hidden
             InvertTxBl.Visibility = Windows.Visibility.Visible
             InvertChBx.Visibility = Windows.Visibility.Visible
             AcrossTxBl.Visibility = Windows.Visibility.Hidden
@@ -723,40 +724,58 @@ Public Class MachiningDbPageUC
             TypeBrd.Visibility = Windows.Visibility.Visible
             ' Definizione della grid TypeGrd con la giusta altezza e numero di righe
             Dim RowNum As Integer = TypeGrd.RowDefinitions.Count
-            If RowNum > 2 Then
-               For Index As Integer = RowNum - 1 To 2 Step -1
+            If RowNum > 1 Then
+               For Index As Integer = RowNum - 1 To 1 Step -1
                   TypeGrd.RowDefinitions.RemoveAt(Index)
                Next
-               LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 2)
-               LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 3)
-               LeadOutTypeTxBl.SetValue(Grid.RowProperty, 1)
+               LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 0)
+               LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 1)
+
+               LeadOutTypeTxBl.SetValue(Grid.RowProperty, 0)
                LeadOutTypeTxBl.SetValue(Grid.ColumnProperty, 2)
-               LeadOutTypeCmBx.SetValue(Grid.RowProperty, 1)
+               LeadOutTypeCmBx.SetValue(Grid.RowProperty, 0)
                LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
                TypeBrd.SetValue(Grid.RowProperty, 12)
-               TypeBrd.SetValue(Grid.RowSpanProperty, 6)
+               TypeBrd.SetValue(Grid.RowSpanProperty, 3)
             End If
+
             LeadInTypeTxBl.Visibility = Windows.Visibility.Visible
             LeadInTypeCmBx.Visibility = Windows.Visibility.Visible
-            ExtLinkTypeTxBl.Visibility = Windows.Visibility.Visible
-            ExtLinkTypeCmBx.Visibility = Windows.Visibility.Visible
+
             LeadOutTypeTxBl.Visibility = Windows.Visibility.Visible
             LeadOutTypeCmBx.Visibility = Windows.Visibility.Visible
+
+            ExtLinkTypeTxBl.Visibility = Windows.Visibility.Hidden
+            ExtLinkTypeCmBx.Visibility = Windows.Visibility.Hidden
             LeadLinkTypeTxBl.Visibility = Windows.Visibility.Hidden
             LeadLinkTypeCmBx.Visibility = Windows.Visibility.Hidden
-            CurveBrd.Visibility = Windows.Visibility.Hidden
-            If MachParamGrd.Children.Contains(StartPosTxBl) Then
-               MachParamGrd.Children.Remove(StartPosTxBl)
-               MachParamGrd.Children.Remove(StartPosTxBx)
-               TypeGrd.Children.Add(StartPosTxBl)
-               TypeGrd.Children.Add(StartPosTxBx)
-               StartPosTxBl.SetValue(Grid.ColumnProperty, 0)
-               StartPosTxBl.SetValue(Grid.RowProperty, 0)
-               StartPosTxBx.SetValue(Grid.ColumnProperty, 1)
-               StartPosTxBx.SetValue(Grid.RowProperty, 0)
-               StartPosTxBl.SetValue(Grid.RowSpanProperty, 1)
-               StartPosTxBx.SetValue(Grid.RowSpanProperty, 1)
+
+            CurveBrd.Visibility = Windows.Visibility.Visible
+
+            'If Not MachParamGrd.Children.Contains(StartPosTxBl) Then
+            If TypeGrd.Children.Contains(StartPosTxBl) Then
+               'MachParamGrd.Children.Remove(StartPosTxBl)
+               'MachParamGrd.Children.Remove(StartPosTxBx)
+               'TypeGrd.Children.Add(StartPosTxBl)
+               'TypeGrd.Children.Add(StartPosTxBx
+               TypeGrd.Children.Remove(StartPosTxBl)
+               TypeGrd.Children.Remove(StartPosTxBx)
+               MachParamGrd.Children.Add(StartPosTxBl)
+               MachParamGrd.Children.Add(StartPosTxBx)
+               StartPosTxBl.SetValue(Grid.ColumnProperty, 2)
+               StartPosTxBl.SetValue(Grid.RowProperty, 3)
+               StartPosTxBx.SetValue(Grid.ColumnProperty, 3)
+               StartPosTxBx.SetValue(Grid.RowProperty, 3)
+               StartPosTxBl.SetValue(Grid.RowSpanProperty, 3)
+               StartPosTxBx.SetValue(Grid.RowSpanProperty, 3)
                StartPosTxBx.Style = Application.Current.FindResource("OmagCut_MachLeftCalculatorTextBoxInBorder")
+            ElseIf MachParamGrd.Children.Contains(StartPosTxBl) Then
+               StartPosTxBl.SetValue(Grid.ColumnProperty, 2)
+               StartPosTxBl.SetValue(Grid.RowProperty, 3)
+               StartPosTxBx.SetValue(Grid.ColumnProperty, 3)
+               StartPosTxBx.SetValue(Grid.RowProperty, 3)
+               StartPosTxBl.SetValue(Grid.RowSpanProperty, 3)
+               StartPosTxBx.SetValue(Grid.RowSpanProperty, 3)
             End If
             StartPosTxBl.Visibility = Windows.Visibility.Visible
             StartPosTxBx.Visibility = Windows.Visibility.Visible
@@ -914,6 +933,18 @@ Public Class MachiningDbPageUC
                LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
                TypeBrd.SetValue(Grid.RowProperty, 12)
                TypeBrd.SetValue(Grid.RowSpanProperty, 6)
+            ElseIf RowNum < 2 Then
+               ' costruiso una riga in più da inserire
+               Dim Row As New RowDefinition
+               TypeGrd.RowDefinitions.Add(Row)
+               LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+               LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+               LeadOutTypeTxBl.SetValue(Grid.RowProperty, 1)
+               LeadOutTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+               LeadOutTypeCmBx.SetValue(Grid.RowProperty, 1)
+               LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+               TypeBrd.SetValue(Grid.RowProperty, 12)
+               TypeBrd.SetValue(Grid.RowSpanProperty, 6)
             End If
             LeadInTypeTxBl.Visibility = Windows.Visibility.Visible
             LeadInTypeCmBx.Visibility = Windows.Visibility.Visible
@@ -1079,6 +1110,14 @@ Public Class MachiningDbPageUC
                StartPosTxBl.SetValue(Grid.RowSpanProperty, 3)
                StartPosTxBx.SetValue(Grid.RowSpanProperty, 3)
                StartPosTxBx.Style = Application.Current.FindResource("OmagCut_LeftCalculatorTextBoxNoBorder")
+            ElseIf MachParamGrd.Children.Contains(StartPosTxBl) Then
+               StartPosTxBl.SetValue(Grid.ColumnProperty, 0)
+               StartPosTxBl.SetValue(Grid.RowProperty, 6)
+               StartPosTxBx.SetValue(Grid.ColumnProperty, 1)
+               StartPosTxBx.SetValue(Grid.RowProperty, 6)
+               StartPosTxBl.SetValue(Grid.RowSpanProperty, 3)
+               StartPosTxBx.SetValue(Grid.RowSpanProperty, 3)
+               StartPosTxBx.Style = Application.Current.FindResource("OmagCut_LeftCalculatorTextBoxNoBorder")
             End If
             StartPosTxBl.Visibility = Windows.Visibility.Visible
             StartPosTxBx.Visibility = Windows.Visibility.Visible

My Project/AssemblyInfo.vb

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

NcComm/CNCommunication.vb

@@ -336,6 +336,8 @@ Public Class CNCommunication
             m_CN.SetCnDataVar(CN_generico.CnData.ZBJog, sVal)
             GetPrivateProfileString(S_NCDATA, K_POWERON, "", sVal, m_MainWindow.GetMachIniFile())
             m_CN.SetCnDataVar(CN_generico.CnData.PowerON, sVal)
+            GetPrivateProfileString(S_NCDATA, K_REMOTE, "", sVal, m_MainWindow.GetMachIniFile())
+            m_CN.SetCnDataVar(CN_generico.CnData.Remote, sVal)
          End If
 
          ' Inizializzo la comunicazione
@@ -558,6 +560,7 @@ Public Class CNCommunication
                m_MainWindow.m_DirectCutPageUC.XYJogChanged(m_CN.bXYJog)
                m_MainWindow.m_DirectCutPageUC.ZCJogChanged(m_CN.bZCJog)
                m_MainWindow.m_DirectCutPageUC.ZBJogChanged(m_CN.bZBCJog)
+               m_MainWindow.m_DirectCutPageUC.RemoteChanged(m_CN.bRemote)
             End If
          Else
             m_MainWindow.m_DirectCutPageUC.m_MachineButtons.SpindleStateChanged(m_CN.bSpindleState)
@@ -578,6 +581,7 @@ Public Class CNCommunication
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.XYJogChanged(m_CN.bXYJog)
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.ZJogChanged(m_CN.bZCJog)
                m_MainWindow.m_DirectCutPageUC.m_MachineButtons.BCJogChanged(m_CN.bZBCJog)
+               m_MainWindow.m_DirectCutPageUC.m_MachineButtons.RemoteChanged(m_CN.bRemote)
             End If
 
          End If

NcComm/CN_generico.vb

@@ -8,7 +8,7 @@ Public MustInherit Class CN_generico
    Public Const MAX_VAR As Short = 100
    Public Const MAX_VALUES As Short = 9           ' Max. index to read the data from the FXServer array
    Public Const MAX_TOOLS As Short = 100
-   Public Const NUM_DATA = 51                     ' Numero di dati del CN (Speed,Feed,...)
+   Public Const NUM_DATA = 52                     ' Numero di dati del CN (Speed,Feed,...)
 
    Public m_NewVariable As Boolean = False        ' per scrittura delle vairbaili Apllication del PLC
 
@@ -65,6 +65,7 @@ Public MustInherit Class CN_generico
       ZCJog = 48
       ZBJog = 49
       PowerON = 50
+      Remote = 51
    End Enum
 
 #End Region
@@ -205,6 +206,7 @@ Public MustInherit Class CN_generico
    Public bZBCJog As Boolean
 
    Public bPowerON As Boolean
+   Public bRemote As Boolean
    ' Nuovi di bottoni -------------------------------------------
 
    Public nMachineMode As Integer

NcComm/M_Num.vb

@@ -236,7 +236,7 @@ Namespace Num
          ' Detect and identify the Flexium CNC type
          sz_CncFxIdentifier = objDMainCncData.GetCncIdentifier()
          '           _txtGetCncIdentification.Invoke(DirectCast(Sub() _txtGetCncIdentification.Text = CncFxIdentifier, MethodInvoker))
-
+         EgtOutLog("Modello Flexium: " & sz_CncFxIdentifier)
          If sz_CncFxIdentifier = "Flexium 6" OrElse sz_CncFxIdentifier = "Flexium 8" OrElse sz_CncFxIdentifier = "Flexium 68" Then
             IsFlexiumPlus = False
          Else
@@ -1085,6 +1085,8 @@ Namespace Num
                   bZBCJog = CBool(values(n))
                Case CnData.PowerON     ' (49)
                   bPowerON = CBool(values(n))
+               Case CnData.Remote     ' (50)
+                  bRemote = CBool(values(n))
 
             End Select
          Next

Project/CurrentProjectPageUC.xaml.vb

@@ -390,7 +390,7 @@ Public Class CurrentProjectPageUC
       Return True
    End Function
 
-   Friend Function AdjustAdditionalTable() As Boolean
+   Friend Function AdjustAdditionalTable( Optional bForced As Boolean = False) As Boolean
       ' Recupero altezza sottotavola corrente
       Dim nFixtId As Integer = EgtGetFirstNameInGroup(EgtGetFirstMachGroup(), MACH_FIXT_GROUP)
       Dim nAddTabId As Integer = EgtGetFirstNameInGroup(nFixtId, MACH_ADD_TABLE)
@@ -402,7 +402,7 @@ Public Class CurrentProjectPageUC
       End If
       ' Se valore cambiato, aggiorno...
       Dim dDeltaZ As Double = m_MainWindow.m_CurrentMachine.dAdditionalTable - dCurrAddTab
-      If Math.Abs(dDeltaZ) > EPS_SMALL Then
+      If Math.Abs(dDeltaZ) > EPS_SMALL Or bForced Then
          AddAdditionalTable()
          UpdateAllRawsZ(dDeltaZ)
          If GetPhoto() <> GDB_ID.NULL Then

RawPhoto/RawPartPageUC.xaml.vb

@@ -1542,7 +1542,7 @@ Public Class RawPartPageUC
             StringToLen(WidthTxBx.Text, m_RawWidth)
             StringToLen(OffsetXTxBx.Text, m_RawOffsX)
             StringToLen(OffsetYTxBx.Text, m_RawOffsY)
-            UpdateRawPart()
+            ' UpdateRawPart()
             UpdateRawPartKerf()
             ' Recupero id contorno kerf
             Dim nKerfId As Integer = EgtGetFirstNameInGroup(m_CurrProjPage.m_nRawId, NAME_KERF)
@@ -1567,7 +1567,7 @@ Public Class RawPartPageUC
             m_RawOffsX = m_RawOffsX - m_RawKerf
             StringToLen(OffsetYTxBx.Text, m_RawOffsY)
             m_RawOffsY = m_RawOffsY - m_RawKerf
-            UpdateRawPart()
+            ' UpdateRawPart()
             m_RawKerf = -m_RawKerf
             UpdateRawPartKerf()
             ' Recupero id contorno kerf