-aggiunto nuovo tab final cut in machining

CadCuts/SplitAuto.vb

@@ -38,6 +38,8 @@ Public Module SplitAuto
       Public m_vtDir As Vector3d
       ' ver 2.6f4: tagli corti gestiti con LeadIn.OUT/LeadOut.OUT
       Public m_bMngLeadInOnIntCorner As Boolean
+      ' ver 2.7e1: tagli finali 
+      Public m_bFinalCut As Boolean
    End Class
 
    '-----------------------------------------------------------------------------------------------
@@ -51,146 +53,6 @@ Public Module SplitAuto
          If IsValidMachining(nOperId) And EgtGetOperationPhase(nOperId) = nCurrPhase Then
             Dim Mach As New SplitMach
             If CreateMach(Mach, nOperId) Then MachSplitList.Add(Mach)
-            '' se appartiene ad un grezzo attivo la inserisco in lista
-            'If IsMachiningInActiveRaw(nOperId) Then
-            '   Dim Mach As New SplitMach
-            '   Mach.m_nEntId = GDB_ID.NULL
-            '   ' identificativo
-            '   Mach.m_nId = nOperId
-            '   ' eventuali lavorazioni inglobate
-            '   Dim sInfo As String = String.Empty
-            '   If EgtGetInfo(nOperId, INFO_MCH_OTHMID, sInfo) Then
-            '      Dim sItems() As String = sInfo.Split(",".ToCharArray)
-            '      For Each sId As String In sItems
-            '         Dim nId As Integer = 0
-            '         StringToInt(sId, nId)
-            '         If nId > 0 Then Mach.m_vOthId.Add(nId)
-            '      Next
-            '   End If
-            '   ' tipo
-            '   Mach.m_nType = EgtGetOperationType(nOperId)
-            '   ' layer di origine
-            '   EgtGetInfo(nOperId, INFO_MCH_LAYER, Mach.m_sLay)
-            '   ' se taglio con lama
-            '   If Mach.m_nType = MCH_OY.SAWING Then
-            '      ' verifica interferenza
-            '      If Mach.m_sLay = NAME_OUTLOOP Then
-            '         EgtVerifyMachining(nOperId, Mach.m_nInterf)
-            '         For Each nId As Integer In Mach.m_vOthId
-            '            Dim nRes As Integer = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
-            '            EgtVerifyMachining(nId, nRes)
-            '            Mach.m_nInterf = Mach.m_nInterf Or nRes
-            '         Next
-            '      Else
-            '         Mach.m_nInterf = FMI_TYPE.NONE
-            '      End If
-            '      ' la imposto come lavorazione corrente
-            '      EgtSetCurrMachining(nOperId)
-            '      ' inversione
-            '      EgtGetMachiningParam(MCH_MP.INVERT, Mach.m_bInvert)
-            '      ' recupero l'angolo di fianco
-            '      EgtGetMachiningParam(MCH_MP.SIDEANGLE, Mach.m_dSideAng)
-            '      ' recupero allungamento iniziale e finale (negativi vicino ad angoli interni)
-            '      Dim dStartAddLen As Double = -10
-            '      EgtGetMachiningParam(MCH_MP.STARTADDLEN, dStartAddLen)
-            '      Dim dEndAddLen As Double = -10
-            '      EgtGetMachiningParam(MCH_MP.ENDADDLEN, dEndAddLen)
-            '      ' recupero tipo entità, angolo con entità precedente e successiva, lunghezze libere iniziale e finale
-            '      Mach.m_bIsLine = True
-            '      Mach.m_dPrevAng = 0
-            '      Mach.m_dNextAng = 0
-            '      Mach.m_dStartFreeLen = FREELEN_INF + 1
-            '      Mach.m_dEndFreeLen = FREELEN_INF + 1
-            '      Dim nEntId, nSub As Integer
-            '      If EgtGetMachiningGeometry(0, nEntId, nSub) Then
-            '         ' EgtGetType( nEntId) = GDB_TY.CRV_ARC OrElse
-            '         If EgtGetType(nEntId) = GDB_TY.CRV_COMPO Then Mach.m_bIsLine = False
-            '         EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_PREVANG, INFO_NEXTANG), Mach.m_dPrevAng)
-            '         EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_NEXTANG, INFO_PREVANG), Mach.m_dNextAng)
-            '         EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_START_FREELEN, INFO_END_FREELEN), Mach.m_dStartFreeLen)
-            '         EgtGetInfo(nEntId, If(Not Mach.m_bInvert, INFO_END_FREELEN, INFO_START_FREELEN), Mach.m_dEndFreeLen)
-            '         Mach.m_bEnableInvert = GetEnableInvert(nEntId)
-            '         EgtMidVector(nEntId, GDB_ID.ROOT, Mach.m_vtDir)
-            '         If Mach.m_bInvert Then Mach.m_vtDir = -Mach.m_vtDir
-            '         Mach.m_nEntId = nEntId
-            '         EgtGetInfo(nOperId, "ManageLeadInOnIntCorner", Mach.m_bMngLeadInOnIntCorner)
-            '      End If
-            '      ' verifico se trasformabile in un taglio di separazione (almeno da un lato)
-            '      If (dStartAddLen > -EPS_SMALL Or dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
-            '         Mach.m_sLay = NAME_OUTLOOP And ( Mach.m_nInterf And FMI_TYPE.RM) = 0 Then
-            '         Dim nRes As Integer = EgtVerifyCutAsSplitting(nOperId)
-            '         Dim bIn As Boolean = False
-            '         Dim bOut As Boolean = False
-            '         CanExtendSides(Mach, bIn, bOut)
-            '         Mach.m_bCanStartAll = ((dStartAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And (nRes And CAR_RES.LI_OK) <> 0) And
-            '                               Mach.m_dStartFreeLen > FREELEN_INF And Mach.m_bIsLine And bIn
-            '         Mach.m_bCanEndAll = ((dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And (nRes And CAR_RES.LO_OK) <> 0) And
-            '                             Mach.m_dEndFreeLen > FREELEN_INF And Mach.m_bIsLine And bOut
-            '         If nRes = 0 Then
-            '            EgtOutLog("Operation ID " & nOperId.ToString & " isn't split cut! verify depth machining.")
-            '         End If
-
-            '      ElseIf (dStartAddLen > -EPS_SMALL Or dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
-            '         Mach.m_sLay = NAME_OUTLOOP And
-            '         (Mach.m_nInterf = FMI_TYPE.LI Or Mach.m_nInterf = FMI_TYPE.LO Or Mach.m_nInterf = FMI_TYPE.RM) Then
-            '         Dim nRes As Integer = EgtVerifyCutAsSplitting(nOperId)
-            '         Dim bIn As Boolean = False
-            '         Dim bOut As Boolean = False
-            '         CanExtendSides(Mach, bIn, bOut)
-            '         ' And (nRes And CAR_RES.LI_OK) <> 0 : da aggiungere
-            '         Mach.m_bCanStartAll = (dStartAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
-            '                               Mach.m_dStartFreeLen > FREELEN_INF And Mach.m_bIsLine And bIn And
-            '                               Mach.m_nInterf <> FMI_TYPE.LI
-            '         ' And (nRes And CAR_RES.LO_OK) <> 0 : da aggiungere come sopra
-            '         Mach.m_bCanEndAll = (dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
-            '                             Mach.m_dEndFreeLen > FREELEN_INF And Mach.m_bIsLine And bOut And
-            '                             Mach.m_nInterf <> FMI_TYPE.LO
-            '         If nRes = 0 Then
-            '            EgtOutLog("Operation ID " & nOperId.ToString & " isn't split cut! verify depth machining.")
-            '         End If
-            '      End If
-            '      ' se trasformabile in taglio di separazione, verifico se lo è
-            '      If Mach.m_bCanStartAll Or Mach.m_bCanEndAll Then
-            '         EgtSetCurrMachining(nOperId)
-            '         Dim nLiType As Integer
-            '         EgtGetMachiningParam(MCH_MP.LEADINTYPE, nLiType)
-            '         Dim nLoType As Integer
-            '         EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nLoType)
-            '         Mach.m_bStartAll = (nLiType = MCH_SAW_LI.EXT_CENT Or nLiType = MCH_SAW_LI.EXT_OUT)
-            '         Mach.m_bEndAll = (nLoType = MCH_SAW_LO.EXT_CENT Or nLoType = MCH_SAW_LO.EXT_OUT)
-            '      Else
-            '         Mach.m_bStartAll = False
-            '         Mach.m_bEndAll = False
-            '      End If
-            '      ' Waterjet
-            '   ElseIf Mach.m_nType = MCH_OY.WATERJETTING Then
-            '      Mach.m_nInterf = FMI_TYPE.NONE
-            '      ' recupero l'angolo di fianco
-            '      EgtGetMachiningParam(MCH_MP.SIDEANGLE, Mach.m_dSideAng)
-            '      Mach.m_bCanStartAll = False
-            '      Mach.m_bCanEndAll = False
-            '      Mach.m_bStartAll = False
-            '      Mach.m_bEndAll = False
-            '      ' Forature e fresature
-            '   Else
-            '      Mach.m_nInterf = FMI_TYPE.NONE
-            '      Mach.m_dSideAng = 0
-            '      Mach.m_bCanStartAll = False
-            '      Mach.m_bCanEndAll = False
-            '      Mach.m_bStartAll = False
-            '      Mach.m_bEndAll = False
-            '   End If
-            '   ' abilitazione
-            '   Mach.m_bEnabled = Not EgtExistsInfo(nOperId, INFO_MCH_USER_OFF)
-            '   ' pausa
-            '   Mach.m_bPause = GetPause(nOperId)
-            '   ' inserisco in lista
-            '   MachSplitList.Add(Mach)
-            '   ' altrimenti la disattivo
-            'Else
-            '   EgtSetOperationMode(nOperId, False)
-            'End If
-
          End If
          nOperId = EgtGetNextOperation(nOperId)
       End While
@@ -262,6 +124,8 @@ Public Module SplitAuto
                Mach.m_nEntId = nEntId
                EgtGetInfo(nOperId, "ManageLeadInOnIntCorner", Mach.m_bMngLeadInOnIntCorner)
             End If
+            Mach.m_bFinalCut = False
+            EgtGetInfo(nOperId, "FinalCut", Mach.m_bFinalCut)
             ' verifico se trasformabile in un taglio di separazione (almeno da un lato)
             If (dStartAddLen > -EPS_SMALL Or dEndAddLen > -EPS_SMALL Or Mach.m_bMngLeadInOnIntCorner) And
                      Mach.m_sLay = NAME_OUTLOOP And (Mach.m_nInterf And FMI_TYPE.RM) = 0 Then

CadCuts/SplitPageUC.xaml.vb

@@ -201,8 +201,9 @@ Public Class SplitPageUC
             If Math.Abs(Mach.m_dSideAng) < EPS_ANG_SMALL Then
                sText = EgtMsg(90791) & " " & i.ToString()
                If Mach.m_sLay = NAME_ONPATH Then AddTopText(sText)
+               If Mach.m_bFinalCut Then AddFinalText(sText)
             Else
-               sText = EgtMsg(90791) & " " & i.ToString() & "  " & DoubleToString(Mach.m_dSideAng, 2) & "°"
+                  sText = EgtMsg(90791) & " " & i.ToString() & "  " & DoubleToString(Mach.m_dSideAng, 2) & "°"
             End If
             If Mach.m_bPause Then AddPauseText(sText)
             AddItemToList(i, Mach, sText, MCH_OY.SAWING)
@@ -863,6 +864,10 @@ Public Class SplitPageUC
       sName &= EgtMsg(91217)    '   Top
    End Sub
 
+   Private Sub AddFinalText(ByRef sName As String)
+      sName = "Final " & sName
+   End Sub
+
    Private Sub RemovePauseText(ByRef sName As String)
       sName = sName.Replace(EgtMsg(MSG_SPLITPAGEUC + 32), "")
       sName = sName.TrimEnd()

Constants/ConstIni.vb

@@ -284,6 +284,8 @@ Module ConstIni
    Public Const K_MACHINESDIR As String = "MachinesDir"
    Public Const K_TOOLMAKERSDIR As String = "ToolMakersDir"
    Public Const K_CURRMACH As String = "CurrMach"
+   Public Const K_ENABLEFINALSAWCUT As String = "EnableFinalSawCut"
+   Public Const K_FINALDEPTH As String = "FinalDepth"
 
    Public Const S_SIMUL As String = "Simul"
    Public Const K_SLIDERX As String = "SliderX"
@@ -354,6 +356,9 @@ Module ConstIni
    Public Const K_DC_OFFSET_SQUARING As String = "OffsetSquaring"
    Public Const K_DC_EXTRA_LEN_SQUARING As String = "ExtraLenSquaring"
    Public Const K_ENABLEINVERT As String = "EnableInvert"
+   Public Const K_ENABLECUSTOMGRID As String = "EnableCustomGrid"
+   Public Const K_GRIDNUMDIMXCUSTOM As String = "GridNumDimXCustom"
+   Public Const K_GRIDNUMDIMYCUSTOM As String = "GridNumDimYCustom"
 
    Public Const S_STATDATA As String = "StatData"
    Public Const K_SD_DAY As String = "Day"

DirectCuts/ControlsDirectCutUC.xaml.vb

@@ -78,6 +78,7 @@ Public Class ControlsDirectCutUC
       ' Costruisco la finestra per il nuovo tipo di taglio manuale
       m_SingleCutAuto = New SingleCutAuto
 
+
       'Posizionemento nella griglia delle Page UserControl DirectCutPageUC
       m_MachineButtons.SetValue(Grid.RowProperty, 2)
       m_MachineButtons.SetValue(Grid.ColumnSpanProperty, 7)

DirectCuts/CustomGridUC.xaml

@@ -0,0 +1,80 @@
+<UserControl x:Class="CustomGridUC"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             FontFamily="{DynamicResource OmagCut_Font}"
+             Background="#636974">
+
+   <Grid Name ="CustomGrid" Grid.Row="5" Grid.ColumnSpan="2">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="2.5*"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="1*"/>
+         <ColumnDefinition Width="1*"/>
+      </Grid.ColumnDefinitions>
+
+      <UniformGrid Grid.Row="0"
+                   Grid.ColumnSpan="2"
+                   Columns="4"
+                   Margin="2,2,0,2">
+         <Button Name="AddCutBtn" Content="+" 
+                 Style="{DynamicResource OmagCut_YellowTextButton}"
+                 Width="40" Height="40" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+         <Button Name="RemoveCutBtn" Content="-" 
+                 Style="{DynamicResource OmagCut_YellowTextButton}"
+                 Width="40" Height="40" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+         <ToggleButton Name="Cut_XTgBtn" Content="X"
+                       Style="{DynamicResource OmagCut_YellowToggleButton}"
+                       Width="40" Height="40" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+         <ToggleButton Name="Cut_YTgBtn" Content="Y"
+                       Style="{DynamicResource OmagCut_YellowToggleButton}"
+                       Width="40" Height="40" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+      </UniformGrid>
+
+      <TextBlock Name="NumPzXTxBl" Text="Number" Grid.Column="0" Grid.Row="1" HorizontalAlignment="Center"
+                 Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+      <TextBlock Name="DimPzXTxBl" Text="Dimension" Grid.Column="1" Grid.Row="1" HorizontalAlignment="Center"
+                 Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+
+      <ScrollViewer Background="Transparent" Grid.Row="2"  
+                    Grid.ColumnSpan="2"
+                    VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Hidden">
+         <ListBox Name="CustomGridLstBx" ScrollViewer.CanContentScroll="False">
+            <ItemsControl.ItemsPanel>
+               <ItemsPanelTemplate>
+                  <StackPanel Orientation="Vertical"/>
+               </ItemsPanelTemplate>
+            </ItemsControl.ItemsPanel>
+            <ItemsControl.ItemTemplate>
+               <DataTemplate>
+                  <Grid Width="210">
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="5*"/>
+                        <ColumnDefinition Width="1*"/>
+                        <ColumnDefinition Width="5*"/>
+                     </Grid.ColumnDefinitions>
+                     <EgtWPFLib:EgtTextBox Text="{Binding sNumber}" Grid.Column="0"
+                                           Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                     <EgtWPFLib:EgtTextBox Text="{Binding sInteraxis}" Grid.Column="2"
+                                           Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                  </Grid>
+               </DataTemplate>
+            </ItemsControl.ItemTemplate>
+         </ListBox>
+      </ScrollViewer>
+      <UniformGrid Grid.Row="3"
+                   Grid.ColumnSpan="2"
+                   Columns="2"
+                   Margin="0,2,0,2">
+         <Button Name="UpdateBtn" Content="Update" 
+                 Style="{DynamicResource OmagCut_YellowTextButton}"/>
+         <Button Name="ExitBtn" Grid.Row="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+            <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+         </Button>
+      </UniformGrid>
+   </Grid>
+</UserControl>

DirectCuts/CustomGridUC.xaml.vb

@@ -0,0 +1,78 @@
+Imports EgtUILib
+
+Public Class CustomGridUC
+
+#Region "FIELDS & PROPERTIES"
+
+   ' Riferimento a GridCut
+   Private m_refGridCut As GridCut
+
+#End Region    ' Fields & Properties
+
+#Region "CONSTRUCTOR"
+
+   Sub New(GC As GridCut)
+      InitializeComponent()
+      m_refGridCut = GC
+      CustomGridLstBx.ItemsSource = m_refGridCut.m_ListOfCut_X
+      Cut_XTgBtn.IsChecked = True
+   End Sub
+
+#End Region    ' Constructor
+
+#Region "EVENTS"
+
+   Private Sub CutX_Selected() Handles Cut_XTgBtn.Click
+      If Cut_XTgBtn.IsChecked Then
+         Cut_YTgBtn.IsChecked = False
+         CustomGridLstBx.ItemsSource = m_refGridCut.m_ListOfCut_X
+         CustomGridLstBx.UpdateLayout()
+      End If
+   End Sub
+
+   Private Sub CutY_Selected() Handles Cut_YTgBtn.Click
+      If Cut_YTgBtn.IsChecked Then
+         Cut_XTgBtn.IsChecked = False
+         CustomGridLstBx.ItemsSource = m_refGridCut.m_ListOfCut_Y
+         CustomGridLstBx.UpdateLayout()
+      End If
+   End Sub
+
+   Private Sub AddCut_Click(sender As Object, e As EventArgs) Handles AddCutBtn.Click
+      If Cut_XTgBtn.IsChecked Then
+         m_refGridCut.m_ListOfCut_X.Add(New Cut_Axis(0, 0))
+      ElseIf Cut_YTgBtn.IsChecked Then
+         m_refGridCut.m_ListOfCut_Y.Add(New Cut_Axis(0, 0))
+      End If
+      CustomGridLstBx.UpdateLayout()
+   End Sub
+
+   Private Sub RemoveCut_Click(sender As Object, e As EventArgs) Handles RemoveCutBtn.Click
+      Dim CurrIndexListSelected As Integer = -1
+      CurrIndexListSelected = CustomGridLstBx.SelectedIndex
+      If Cut_XTgBtn.IsChecked Then
+         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_refGridCut.m_ListOfCut_X.Count - 1 Then
+            CurrIndexListSelected = m_refGridCut.m_ListOfCut_X.Count - 1
+         End If
+         m_refGridCut.m_ListOfCut_X.RemoveAt(CurrIndexListSelected)
+      ElseIf Cut_YTgBtn.IsChecked Then
+         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_refGridCut.m_ListOfCut_Y.Count - 1 Then
+            CurrIndexListSelected = m_refGridCut.m_ListOfCut_Y.Count - 1
+         End If
+         m_refGridCut.m_ListOfCut_Y.RemoveAt(CurrIndexListSelected)
+      End If
+      CustomGridLstBx.UpdateLayout()
+   End Sub
+
+   Public Sub Update_Click() Handles UpdateBtn.Click
+      m_refGridCut.CreateGridCut()
+      EgtDraw()
+   End Sub
+
+   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
+      m_refGridCut.SingleCutGrid.Children.Remove(Me)
+   End Sub
+
+#End Region    ' Events
+
+End Class

DirectCuts/GridCut.xaml

@@ -1,208 +1,219 @@
 <UserControl x:Class="GridCut"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   mc:Ignorable="d" 
-   d:DesignHeight="597.3" d:DesignWidth="256">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             mc:Ignorable="d" 
+             d:DesignHeight="597.3" d:DesignWidth="256">
 
-    <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{StaticResource OmagCut_LightGray}">-->
-    <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
+   <!--<Border CornerRadius="{StaticResource Page_CornerRadius}" Background="{StaticResource OmagCut_LightGray}">-->
+   <Border Style="{DynamicResource OmagCut_DirectCutPageBorder}">
 
-        <!-- Definizione della Grid MultipleCut -->
-        <Grid Name="SingleCutGrid" >
+      <!-- Definizione della Grid MultipleCut -->
+      <Grid Name="SingleCutGrid" >
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="2*"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="2*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1*"/>
+         </Grid.RowDefinitions>
+
+         <Grid Grid.Row="0" Grid.ColumnSpan="2">
             <Grid.ColumnDefinitions>
-                <ColumnDefinition Width="2*"/>
-                <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+
+            <ToggleButton Name="Point1Btn" Grid.Column="0"
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P1Img}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+
+            <ToggleButton Name="Point2Btn" Grid.Column="1"
+                          Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource Acquisisci-P2Img}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+         </Grid>
+
+         <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}"
+                   Margin="6,0,6,0">
+            <ComboBox.ItemTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
+               </DataTemplate>
+            </ComboBox.ItemTemplate>
+         </ComboBox>
+
+         <TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
+                    Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
+                               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+
+         <TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="3"
+                    Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0" IsLength="False"
+                               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+
+         <TextBlock Name="SideAngleTxBl" Grid.Column="0" Grid.Row="4"
+                    Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0" IsLength="False"
+                               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+
+         <!-- STANDARD -->
+         <Grid Name ="StandardGrid" Grid.Row="5" Grid.ColumnSpan="2">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1.5*"/>
+               <ColumnDefinition Width="2"/>
+               <ColumnDefinition Width="1.5*"/>
             </Grid.ColumnDefinitions>
             <Grid.RowDefinitions>
-                <RowDefinition Height="1*"/>
-                <RowDefinition Height="0.5*"/>
-                <RowDefinition Height="0.5*"/>
-                <RowDefinition Height="0.5*"/>
-                <RowDefinition Height="0.5*"/>
-                <RowDefinition Height="2*"/>
-                <RowDefinition Height="0.5*"/>
-                <RowDefinition Height="0.5*"/>
-                <RowDefinition Height="1*"/>
+               <RowDefinition Height="0.5*"/>
+               <RowDefinition Height="0.5*"/>
+               <RowDefinition Height="0.5*"/>
+               <RowDefinition Height="0.5*"/>
             </Grid.RowDefinitions>
 
-            <Grid Grid.Row="0" Grid.ColumnSpan="2">
-                <Grid.ColumnDefinitions>
-                    <ColumnDefinition Width="1*"/>
-                    <ColumnDefinition Width="1*"/>
-                </Grid.ColumnDefinitions>
+            <Border Grid.Column="1" Grid.Row="0" Grid.RowSpan="4" Background="Black" />
 
-                <ToggleButton Name="Point1Btn" Grid.Column="0"
-               Style="{DynamicResource OmagCut_YellowIconToggleButton}">
-                    <Image Source="{DynamicResource Acquisisci-P1Img}" Style="{StaticResource OmagCut_ButtonIcon}"/>
-                </ToggleButton>
+            <TextBlock Name="NumPzXTxBl" Grid.Column="0" Grid.Row="0"
+                       Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+            <TextBlock Name="DimPzXTxBl" Grid.Column="2" Grid.Row="0"
+                       Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
 
-                <ToggleButton Name="Point2Btn" Grid.Column="1"
-               Style="{DynamicResource OmagCut_YellowIconToggleButton}">
-                    <Image Source="{DynamicResource Acquisisci-P2Img}" Style="{StaticResource OmagCut_ButtonIcon}"/>
-                </ToggleButton>
+            <EgtWPFLib:EgtTextBox Name="NumPzXTxBx" Grid.Column="0" Grid.Row="1" Width="75" IsLength="False"
+                                  Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            <EgtWPFLib:EgtTextBox Name="DimPzXTxBx" Grid.Column="2" Grid.Row="1" Width="75"
+                                  Style="{StaticResource OmagCut_CalculatorTextBox}" />
+   
+            <TextBlock Name="NumPzYTxBl" Grid.Column="0" Grid.Row="2"
+                       Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+            <TextBlock Name="DimPzYTxBl" Grid.Column="2" Grid.Row="2"
+                       Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+
+            <EgtWPFLib:EgtTextBox Name="NumPzYTxBx" Grid.Column="0" Grid.Row="3" Width="75" IsLength="False"
+                                  Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            <EgtWPFLib:EgtTextBox Name="DimPzYTxBx" Grid.Column="2" Grid.Row="3" Width="75"
+                                  Style="{StaticResource OmagCut_CalculatorTextBox}" />
+
+         </Grid>
+
+         <Button Name="CustomGridBtn" Grid.Row="5" Grid.ColumnSpan="2" Style="{DynamicResource OmagCut_YellowIconButton}" 
+                 Margin="10,30,10,30">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="80"/>
+                  <ColumnDefinition Width="140"/>
+               </Grid.ColumnDefinitions>
+               <Image Source="{DynamicResource Taglio-grigliaImg}" Style="{DynamicResource OmagCut_ButtonIcon}" Grid.Column="0" Height="90" Width="90" />
+               <TextBlock Name="GridCutTxt" Grid.Column="1"
+                          HorizontalAlignment="Left"
+                          Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
             </Grid>
+         </Button>
 
-            <ComboBox Name="PointModeCmBx" Grid.Row="1" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_ComboBox}"
-            Margin="6,0,6,0">
-                <ComboBox.ItemTemplate>
-                    <DataTemplate>
-                        <TextBlock Text="{Binding}" Style="{StaticResource OmagCut_LowerCaseCharacterTextBlock}"/>
-                    </DataTemplate>
-                </ComboBox.ItemTemplate>
-            </ComboBox>
+         <!-- SPECIALE -->
+         <!--<Grid Name ="CustomGrid" Grid.Row="5" Grid.ColumnSpan="2">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="1*"/>
+               <RowDefinition Height="2.5*"/>
+            </Grid.RowDefinitions>
 
-            <TextBlock Name="DepthTxBl" Grid.Column="0" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-            <EgtWPFLib:EgtTextBox Name="DepthTxBx" Grid.Column="1" Grid.Row="2" Margin="0,0,6,0"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            <StackPanel Orientation="Horizontal" Grid.Row="0">
+               <Button Name="AddCutBtn" Content="+" 
+                       Style="{DynamicResource OmagCut_YellowTextButton}"
+                       Width="35" Height="35" HorizontalAlignment="Left"/>
+               <Button Name="RemoveCutBtn" Content="-" 
+                       Style="{DynamicResource OmagCut_YellowTextButton}"
+                       Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+               <ToggleButton Name="Cut_XTgBtn" Content="X"
+                             Style="{DynamicResource OmagCut_YellowToggleButton}"
+                             Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+               <ToggleButton Name="Cut_YTgBtn" Content="Y"
+                             Style="{DynamicResource OmagCut_YellowToggleButton}"
+                             Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+               <Button Name="UpdateBtn" Content="Update" 
+                       Style="{DynamicResource OmagCut_YellowTextButton}"
+                       Width="85" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
+            </StackPanel>
 
-            <TextBlock Name="DirectionTxBl" Grid.Column="0" Grid.Row="3"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-            <EgtWPFLib:EgtTextBox Name="DirectionTxBx" Grid.Column="1" Grid.Row="3" Margin="0,0,6,0" IsLength="False"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            <ScrollViewer Background="Transparent" Grid.Row="1"
+                          Margin="0,5,0,0"
+                          VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Hidden">
+               <ListBox Name="CustomGridLstBx" ScrollViewer.CanContentScroll="False">
+                  <ItemsControl.ItemsPanel>
+                     <ItemsPanelTemplate>
+                        <StackPanel Orientation="Vertical"/>
+                     </ItemsPanelTemplate>
+                  </ItemsControl.ItemsPanel>
+                  <ItemsControl.ItemTemplate>
+                     <DataTemplate>
+                        <Grid Width="210">
+                           <Grid.ColumnDefinitions>
+                              <ColumnDefinition Width="5*"/>
+                              <ColumnDefinition Width="1*"/>
+                              <ColumnDefinition Width="5*"/>
+                           </Grid.ColumnDefinitions>
+                           <EgtWPFLib:EgtTextBox Text="{Binding sNumber}" Grid.Column="0"
+                                                 Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                           <EgtWPFLib:EgtTextBox Text="{Binding sInteraxis}" Grid.Column="2"
+                                                 Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+                        </Grid>
+                     </DataTemplate>
+                  </ItemsControl.ItemTemplate>
+               </ListBox>
+            </ScrollViewer>
+         </Grid>-->
 
-            <TextBlock Name="SideAngleTxBl" Grid.Column="0" Grid.Row="4"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-            <EgtWPFLib:EgtTextBox Name="SideAngleTxBx" Grid.Column="1" Grid.Row="4" Margin="0,0,6,0" IsLength="False"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+         <TextBlock Name="SideTxBl" Grid.Row="6" Grid.ColumnSpan="2"
+                    Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
+         <CheckBox Name="SideChBx" Grid.Row="6" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_CheckBox_Single}"
+                   HorizontalAlignment="Right" Margin="0,0,6,0"/>
 
-            <!-- STANDARD -->
-            <Grid Name ="StandardGrid" Grid.Row="5" Grid.ColumnSpan="2"> 
-                <Grid.ColumnDefinitions>
-                    <ColumnDefinition Width="1.5*"/>
-                    <ColumnDefinition Width="2"/>
-                    <ColumnDefinition Width="1.5*"/>
-                </Grid.ColumnDefinitions>
-                <Grid.RowDefinitions>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                    <RowDefinition Height="0.5*"/>
-                </Grid.RowDefinitions>
+         <Grid Grid.Row="7" Grid.ColumnSpan="2">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.5*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
+            <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
+                       Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+            <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
+                                  Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+            <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
+                       Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
+            <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
+                                  Style="{StaticResource OmagCut_CalculatorTextBox}"/>
+         </Grid>
 
-                <Border Grid.Column="1" Grid.Row="0" Grid.RowSpan="4" Background="Black" />
+         <Grid Grid.Row="11" Grid.ColumnSpan="2">
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="1*"/>
+            </Grid.ColumnDefinitions>
 
-                <TextBlock Name="NumPzXTxBl" Grid.Column="0" Grid.Row="0"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-                <TextBlock Name="DimPzXTxBl" Grid.Column="2" Grid.Row="0"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-
-                <EgtWPFLib:EgtTextBox Name="NumPzXTxBx" Grid.Column="0" Grid.Row="1" Width="75" IsLength="False"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                <EgtWPFLib:EgtTextBox Name="DimPzXTxBx" Grid.Column="2" Grid.Row="1" Width="75"
-            Style="{StaticResource OmagCut_CalculatorTextBox}" />
-
-                <TextBlock Name="NumPzYTxBl" Grid.Column="0" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-                <TextBlock Name="DimPzYTxBl" Grid.Column="2" Grid.Row="2"
-            Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-
-                <EgtWPFLib:EgtTextBox Name="NumPzYTxBx" Grid.Column="0" Grid.Row="3" Width="75" IsLength="False"
-            Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                <EgtWPFLib:EgtTextBox Name="DimPzYTxBx" Grid.Column="2" Grid.Row="3" Width="75"
-            Style="{StaticResource OmagCut_CalculatorTextBox}" />
-
-            </Grid>
-
-            <!-- SPECIALE -->
-            <Grid Name ="CustomGrid" Grid.Row="5" Grid.ColumnSpan="2">
-                <Grid.RowDefinitions>
-                    <RowDefinition Height="1*"/>
-                    <RowDefinition Height="2.5*"/>
-                </Grid.RowDefinitions>
-
-                <StackPanel Orientation="Horizontal" Grid.Row="0">
-                    <Button Name="AddCutBtn" Content="+" 
-                            Style="{DynamicResource OmagCut_YellowTextButton}"
-                            Width="35" Height="35" HorizontalAlignment="Left"/>
-                    <Button Name="RemoveCutBtn" Content="-" 
-                            Style="{DynamicResource OmagCut_YellowTextButton}"
-                            Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
-                    <ToggleButton Name="Cut_XTgBtn" Content="X"
-                                  Style="{DynamicResource OmagCut_YellowToggleButton}"
-                                  Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
-                    <ToggleButton Name="Cut_YTgBtn" Content="Y"
-                                  Style="{DynamicResource OmagCut_YellowToggleButton}"
-                                  Width="35" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
-                    <Button Name="UpdateBtn" Content="Update" 
-                            Style="{DynamicResource OmagCut_YellowTextButton}"
-                            Width="85" Height="35" HorizontalAlignment="Left" Margin="2,0,0,0"/>
-                </StackPanel>
-                
-                <ScrollViewer Background="Transparent" Grid.Row="1"
-                              Margin="0,5,0,0"
-                              VerticalScrollBarVisibility="Auto" HorizontalScrollBarVisibility="Hidden">
-                    <ListBox Name="CustomGridLstBx" ScrollViewer.CanContentScroll="False">
-                        <ItemsControl.ItemsPanel>
-                            <ItemsPanelTemplate>
-                                <StackPanel Orientation="Vertical"/>
-                            </ItemsPanelTemplate>
-                        </ItemsControl.ItemsPanel>
-                        <ItemsControl.ItemTemplate>
-                            <DataTemplate>
-                                <Grid Width="210">
-                                    <Grid.ColumnDefinitions>
-                                        <ColumnDefinition Width="5*"/>
-                                        <ColumnDefinition Width="1*"/>
-                                        <ColumnDefinition Width="5*"/>
-                                    </Grid.ColumnDefinitions>
-                                    <EgtWPFLib:EgtTextBox Text="{Binding sNumber}" Grid.Column="0"
-                                                          Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                                    <EgtWPFLib:EgtTextBox Text="{Binding sInteraxis}" Grid.Column="2"
-                                                          Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                                </Grid>
-                            </DataTemplate>
-                        </ItemsControl.ItemTemplate>
-                    </ListBox>
-                </ScrollViewer>
-            </Grid>
-
-
-            <TextBlock Name="SideTxBl" Grid.Row="6" Grid.ColumnSpan="2"
-             Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}"/>
-            <CheckBox Name="SideChBx" Grid.Row="6" Grid.ColumnSpan="2" Style="{StaticResource OmagCut_CheckBox_Single}"
-             HorizontalAlignment="Right" Margin="0,0,6,0"/>
-
-            <Grid Grid.Row="7" Grid.ColumnSpan="2">
-                <Grid.ColumnDefinitions>
-                    <ColumnDefinition Width="0.5*"/>
-                    <ColumnDefinition Width="1*"/>
-                    <ColumnDefinition Width="0.5*"/>
-                    <ColumnDefinition Width="1*"/>
-                </Grid.ColumnDefinitions>
-                <TextBlock Name="XcoordTxBl" Grid.Column="0" Text="X"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                <EgtWPFLib:EgtTextBox Name="XcoordTxBx" Grid.Column="1" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-                <TextBlock Name="YcoordTxBl" Grid.Column="2" Text="Y"
-               Style="{StaticResource OmagCut_CurrProjSummeryTextBlock}" HorizontalAlignment="Center"/>
-                <EgtWPFLib:EgtTextBox Name="YcoordTxBx" Grid.Column="3" Margin="0,0,6,0"
-               Style="{StaticResource OmagCut_CalculatorTextBox}"/>
-            </Grid>
-
-            <Grid Grid.Row="11" Grid.ColumnSpan="2">
-                <Grid.ColumnDefinitions>
-                    <ColumnDefinition Width="1*"/>
-                    <ColumnDefinition Width="1*"/>
-                    <ColumnDefinition Width="1*"/>
-                </Grid.ColumnDefinitions>
-
-                <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
-                    <Image Source="{DynamicResource SimulaImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
-                </Button>
-                <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
-                    <Image Source="{DynamicResource EseguiImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
-                </Button>
-                <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
-                    <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
-                </Button>
-            </Grid>
-
-        </Grid>
-
-    </Border>
+            <Button Name="SimulBtn" Grid.Column="0" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource SimulaImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="OkBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource EseguiImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            </Button>
+            <Button Name="ExitBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconButton}">
+               <Image Source="{DynamicResource XImg}" Style="{StaticResource OmagCut_ButtonIcon}"/>
+            </Button>
+         </Grid>
 
+      </Grid>
+   </Border>
 </UserControl>

DirectCuts/GridCut.xaml.vb

@@ -44,8 +44,9 @@ Public Class GridCut
 
    ' Gestione griglia Custom
    Dim m_bCustomGrid As Boolean = False
-   Dim m_ListOfCut_X As New ObservableCollection(Of Cut_Axis)
-   Dim m_ListOfCut_Y As New ObservableCollection(Of Cut_Axis)
+   Public m_ListOfCut_X As New ObservableCollection(Of Cut_Axis)
+   Public m_ListOfCut_Y As New ObservableCollection(Of Cut_Axis)
+   Friend m_CustomGrid As CustomGridUC
 
    ' Costanti
    Private Const MAX_TAB_DEPTH As Double = 10.0
@@ -83,6 +84,7 @@ Public Class GridCut
       SideTxBl.Text = EgtMsg(MSG_DIRECTCUTPAGEUC + 23)
       SimulBtn.ToolTip = EgtMsg(MSG_CADCUTPAGEUC + 1)
       OkBtn.ToolTip = EgtMsg(MSG_DIRECTCUTPAGEUC + 30)
+      GridCutTxt.Text = EgtMsg(90264)
       ' Carico i dati dell'ultimo taglio
       m_dDepth = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
       m_dAngO = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_ANGH, m_dAngO, m_MainWindow.GetIniFile())
@@ -99,10 +101,10 @@ Public Class GridCut
       m_dDimY = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_DIMY, m_dDimY, m_MainWindow.GetIniFile())
 
       ' Carico i dati per i tagli di griglia Custom
-      m_bCustomGrid = (GetPrivateProfileInt(S_DIRECTCUTS, "EnambleCustomGrid", 0, m_MainWindow.GetIniFile()) <> 0)
+      m_bCustomGrid = (GetPrivateProfileInt(S_DIRECTCUTS, K_ENABLECUSTOMGRID, 0, m_MainWindow.GetIniFile()) <> 0)
       If m_bCustomGrid Then
-         LoadCustomData("GridNumDimXCustom", m_ListOfCut_X)
-         LoadCustomData("GridNumDimYCustom", m_ListOfCut_Y)
+         LoadCustomData(K_GRIDNUMDIMXCUSTOM, m_ListOfCut_X)
+         LoadCustomData(K_GRIDNUMDIMYCUSTOM, m_ListOfCut_Y)
       End If
 
       ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
@@ -112,6 +114,7 @@ Public Class GridCut
       m_bHeadSide = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_GRID_HEADSIDE, 0, m_MainWindow.GetIniFile()) <> 0)
       m_ptTipP1.x = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
       m_ptTipP1.y = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_GRID_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
+
    End Sub
 
    ' Lettura dei dati della griglia Custom
@@ -212,12 +215,15 @@ Public Class GridCut
 
       If m_bCustomGrid Then
          StandardGrid.Visibility = Visibility.Hidden
-         CustomGrid.Visibility = Visibility.Visible
-         Cut_XTgBtn.IsChecked = True
-         CustomGridLstBx.ItemsSource = m_ListOfCut_X
+         CustomGridBtn.Visibility = Visibility.Visible
+         m_CustomGrid = New CustomGridUC(Me)
+         'CustomGrid.Visibility = Visibility.Visible
+         'Cut_XTgBtn.IsChecked = True
+         'CustomGridLstBx.ItemsSource = m_ListOfCut_X
       Else
          StandardGrid.Visibility = Visibility.Visible
-         CustomGrid.Visibility = Visibility.Hidden
+         CustomGridBtn.Visibility = Visibility.Hidden
+         'CustomGrid.Visibility = Visibility.Hidden
       End If
 
    End Sub
@@ -595,56 +601,63 @@ Public Class GridCut
       EgtDraw()
    End Sub
 
-#Region "CUSTOM LIST GRID"
-
-   Private Sub CutX_Selected() Handles Cut_XTgBtn.Click
-      If Cut_XTgBtn.IsChecked Then
-         Cut_YTgBtn.IsChecked = False
-         CustomGridLstBx.ItemsSource = m_ListOfCut_X
-         CustomGridLstBx.UpdateLayout()
-      End If
+   Private Sub CustomGridBtn_Click(sender As Object, e As RoutedEventArgs) Handles CustomGridBtn.Click
+      m_CustomGrid.SetValue(Grid.RowProperty, 1)
+      m_CustomGrid.SetValue(Grid.RowSpanProperty, 6)
+      m_CustomGrid.SetValue(Grid.ColumnSpanProperty, 2)
+      SingleCutGrid.Children.Add(m_CustomGrid)
    End Sub
 
-   Private Sub CutY_Selected() Handles Cut_YTgBtn.Click
-      If Cut_YTgBtn.IsChecked Then
-         Cut_XTgBtn.IsChecked = False
-         CustomGridLstBx.ItemsSource = m_ListOfCut_Y
-         CustomGridLstBx.UpdateLayout()
-      End If
-   End Sub
+   '#Region "CUSTOM LIST GRID"
 
-   Private Sub AddCut_Click(sender As Object, e As EventArgs) Handles AddCutBtn.Click
-      If Cut_XTgBtn.IsChecked Then
-         m_ListOfCut_X.Add(New Cut_Axis(0, 0))
-      ElseIf Cut_YTgBtn.IsChecked Then
-         m_ListOfCut_Y.Add(New Cut_Axis(0, 0))
-      End If
-      CustomGridLstBx.UpdateLayout()
-   End Sub
+   '   Private Sub CutX_Selected() Handles Cut_XTgBtn.Click
+   '      If Cut_XTgBtn.IsChecked Then
+   '         Cut_YTgBtn.IsChecked = False
+   '         CustomGridLstBx.ItemsSource = m_ListOfCut_X
+   '         CustomGridLstBx.UpdateLayout()
+   '      End If
+   '   End Sub
 
-   Private Sub RemoveCut_Click(sender As Object, e As EventArgs) Handles RemoveCutBtn.Click
-      Dim CurrIndexListSelected As Integer = -1
-      CurrIndexListSelected = CustomGridLstBx.SelectedIndex
-      If Cut_XTgBtn.IsChecked Then
-         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_ListOfCut_X.Count - 1 Then
-            CurrIndexListSelected = m_ListOfCut_X.Count - 1
-         End If
-         m_ListOfCut_X.RemoveAt(CurrIndexListSelected)
-      ElseIf Cut_YTgBtn.IsChecked Then
-         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_ListOfCut_Y.Count - 1 Then
-            CurrIndexListSelected = m_ListOfCut_Y.Count - 1
-         End If
-         m_ListOfCut_Y.RemoveAt(CurrIndexListSelected)
-      End If
-      CustomGridLstBx.UpdateLayout()
-   End Sub
+   '   Private Sub CutY_Selected() Handles Cut_YTgBtn.Click
+   '      If Cut_YTgBtn.IsChecked Then
+   '         Cut_XTgBtn.IsChecked = False
+   '         CustomGridLstBx.ItemsSource = m_ListOfCut_Y
+   '         CustomGridLstBx.UpdateLayout()
+   '      End If
+   '   End Sub
 
-   Public Sub Update_Click() Handles UpdateBtn.Click
-      CreateGridCut()
-      EgtDraw()
-   End Sub
+   '   Private Sub AddCut_Click(sender As Object, e As EventArgs) Handles AddCutBtn.Click
+   '      If Cut_XTgBtn.IsChecked Then
+   '         m_ListOfCut_X.Add(New Cut_Axis(0, 0))
+   '      ElseIf Cut_YTgBtn.IsChecked Then
+   '         m_ListOfCut_Y.Add(New Cut_Axis(0, 0))
+   '      End If
+   '      CustomGridLstBx.UpdateLayout()
+   '   End Sub
 
-#End Region    ' Custom Grid
+   '   Private Sub RemoveCut_Click(sender As Object, e As EventArgs) Handles RemoveCutBtn.Click
+   '      Dim CurrIndexListSelected As Integer = -1
+   '      CurrIndexListSelected = CustomGridLstBx.SelectedIndex
+   '      If Cut_XTgBtn.IsChecked Then
+   '         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_ListOfCut_X.Count - 1 Then
+   '            CurrIndexListSelected = m_ListOfCut_X.Count - 1
+   '         End If
+   '         m_ListOfCut_X.RemoveAt(CurrIndexListSelected)
+   '      ElseIf Cut_YTgBtn.IsChecked Then
+   '         If CurrIndexListSelected < 0 Or CurrIndexListSelected > m_ListOfCut_Y.Count - 1 Then
+   '            CurrIndexListSelected = m_ListOfCut_Y.Count - 1
+   '         End If
+   '         m_ListOfCut_Y.RemoveAt(CurrIndexListSelected)
+   '      End If
+   '      CustomGridLstBx.UpdateLayout()
+   '   End Sub
+
+   '   Public Sub Update_Click() Handles UpdateBtn.Click
+   '      CreateGridCut()
+   '      EgtDraw()
+   '   End Sub
+
+   '#End Region    ' Custom Grid
 
    Private Sub SimulBtn_Click(sender As Object, e As RoutedEventArgs) Handles SimulBtn.Click
       ' Verifico ci sia un taglio valido
@@ -703,7 +716,7 @@ Public Class GridCut
       m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
    End Sub
 
-   Private Function CreateGridCut() As Boolean
+   Friend Function CreateGridCut() As Boolean
       ' Verifico sia definito il punto iniziale e il grezzo
       If Not m_bPointP1Ok Or Not m_bRawOk Then
          m_bCutOk = False
@@ -789,7 +802,7 @@ Public Class GridCut
          Dim dLenX As Double = dThick + (dDimPzX + dThick) * nNumPzX
          Dim nCutParaId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, dLenX + 0.1)
          ' Inidico che è un taglio Diretto di tipo GridCut
-         EgtSetInfo(nCutParaId, INFO_DIRECTCUT, FlagDirectCuts.GridCut)
+         EgtSetInfo(nCutParaId, INFO_DIRECTCUT, MainWindow.FlagDirectCuts.GridCut)
          ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
          ' Recupero spessore lama corrente
          Dim sSawing As String = m_MainWindow.m_CurrentMachine.sCurrSawing
@@ -817,7 +830,7 @@ Public Class GridCut
          Dim vtDeltaPos As Vector3d = Vector3d.FromPolar(dThick + 0.1, m_dAngO - 90)
          Dim nCutPerpId = EgtCreateLinePDL(nLayerId, ptStart + vtDeltaPos, m_dAngO + 90, dLenY + 0.2)
          ' Inidico che è un taglio Diretto di tipo GridCut
-         EgtSetInfo(nCutPerpId, INFO_DIRECTCUT, FlagDirectCuts.GridCut)
+         EgtSetInfo(nCutPerpId, INFO_DIRECTCUT, MainWindow.FlagDirectCuts.GridCut)
          ' --- INIZIO GESTIONE SPECIALE --- per macchina sinistrorsa
          If m_bSawTh And Not String.IsNullOrEmpty(sSawing) Then
             EgtOffsetCurve(nCutPerpId, -dThick, OFF_TYPE.EXTEND)
@@ -857,11 +870,11 @@ Public Class GridCut
       Dim dRotAngOX As Double = If(SideChBx.IsChecked(), -90, 90)
 
       ' Recupero dati da interfaccia
-      Dim dDimPzX As Double = m_ListOfCut_X(0).dInteraxis
-      Dim nNumPzX As Integer = m_ListOfCut_X(0).nNumber
+      Dim dDimPzX As Double = If(m_ListOfCut_X.Count = 0, 0.0, m_ListOfCut_X(0).dInteraxis)
+      Dim nNumPzX As Integer = If(m_ListOfCut_X.Count = 0, 0, m_ListOfCut_X(0).nNumber)
 
-      Dim dDimPzY As Double = m_ListOfCut_Y(0).dInteraxis
-      Dim nNumPzY As Integer = m_ListOfCut_Y(0).nNumber
+      Dim dDimPzY As Double = If(m_ListOfCut_Y.Count = 0, 0.0, m_ListOfCut_Y(0).dInteraxis)
+      Dim nNumPzY As Integer = If(m_ListOfCut_Y.Count = 0, 0, m_ListOfCut_Y(0).nNumber)
 
       Dim TotLenX As Double = 0
       For Ind_X As Integer = 0 To m_ListOfCut_X.Count - 1
@@ -1054,12 +1067,12 @@ Public Class Cut_Axis
       End Get
    End Property
 
-   Public ReadOnly Property UpdateSub As Boolean
-      Get
-         m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_GridCut.Update_Click()
-         Return True
-      End Get
-   End Property
+   'Public ReadOnly Property UpdateSub As Boolean
+   '   Get
+   '      m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_CustomGrid.Update_Click()
+   '      Return True
+   '   End Get
+   'End Property
 
    Sub New(nNumb As Integer, dInter As Double)
       m_nNumber = nNumb

Machine/Alarms2PageUC.xaml

@@ -0,0 +1,58 @@
+<UserControl x:Class="Alarms2PageUC"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="768" d:DesignWidth="1280">
+   
+   <Border Style="{DynamicResource OmagCut_PageBorder}">
+      <Grid>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="4*"/>
+            <ColumnDefinition Width="3*"/>
+         </Grid.ColumnDefinitions>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="2*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1.5*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="0.5*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1*"/>
+         </Grid.RowDefinitions>
+
+         <GroupBox Name="FinalSawCutGpBx" Style="{DynamicResource OmagCut_GroupBox}">
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="2*"/>
+                  <ColumnDefinition Width="2*"/>
+               </Grid.ColumnDefinitions>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="0.5*"/>
+                  <RowDefinition Height="0.5*"/>
+               </Grid.RowDefinitions>
+
+               <TextBlock Name="EnableFinalSawCutTxBl" Grid.Column="0" Grid.Row="0"
+                          Style="{DynamicResource OmagCut_ToolsDBTextBlock}"/>
+               <CheckBox Name="EnableFinalSawCutChBx" Grid.Column="1" Grid.Row="0" Margin="10,0,10,0"
+                         Style="{StaticResource OmagCut_CheckBox_Single}" 
+                         HorizontalAlignment="Right"/>
+
+               <TextBlock Name="FinalDepthTxBl" Grid.Column="0" Grid.Row="1"
+                          Style="{DynamicResource OmagCut_ToolsDBTextBlock}"/>
+               <EgtWPFLib:EgtTextBox Name="FinalDepthTxBx" Grid.Column="1" Grid.Row="1" Margin="10,0,10,0"
+                                     Style="{DynamicResource OmagCut_CalculatorTextBox}" />
+
+
+
+            </Grid>
+         </GroupBox>
+      </Grid>
+   </Border>
+</UserControl>

Machine/Alarms2PageUC.xaml.vb

@@ -0,0 +1,30 @@
+Imports EgtUILib
+
+Public Class Alarms2PageUC
+
+   Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
+
+   Private Sub Alarms2Page_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+      FinalSawCutGpBx.Header = EgtMsg(91254)     ' Taglio Finale
+      EnableFinalSawCutTxBl.Text = EgtMsg(91255) ' Abilita
+      FinalDepthTxBl.Text = EgtMsg(91256)        ' Ultimo Spessore
+   End Sub
+
+   Private Sub Allarm2Page_Loaded() Handles Me.Loaded
+      EnableFinalSawCutChBx.IsChecked = m_MainWindow.m_CurrentMachine.bEnableFinalSawCut
+      FinalDepthTxBx.Text = m_MainWindow.m_CurrentMachine.dFinalDepth
+   End Sub
+
+   Private Sub EnableFinalSawCutChBx_IsChecked() Handles EnableFinalSawCutChBx.Click
+      m_MainWindow.m_CurrentMachine.bEnableFinalSawCut = EnableFinalSawCutChBx.IsChecked
+      WritePrivateProfileString(S_MACH, K_ENABLEFINALSAWCUT, If(m_MainWindow.m_CurrentMachine.bEnableFinalSawCut, "1", "0"), m_MainWindow.GetMachIniFile())
+   End Sub
+
+   Private Sub FinalDepthTxBx_EgtClosed() Handles FinalDepthTxBx.EgtClosed
+      Dim dVal As Double = 0
+      StringToLen(FinalDepthTxBx.Text, dVal)
+      m_MainWindow.m_CurrentMachine.dFinalDepth = dVal
+      WritePrivateProfileString(S_MACH, K_FINALDEPTH, DoubleToString(m_MainWindow.m_CurrentMachine.dFinalDepth, 3), m_MainWindow.GetMachIniFile())
+   End Sub
+
+End Class

Machine/AlarmsPageUC.xaml

@@ -1,11 +1,11 @@
 <UserControl x:Class="AlarmsPageUC"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
-   xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-   xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-   mc:Ignorable="d" 
-   d:DesignHeight="768" d:DesignWidth="1280">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtWPFLib="clr-namespace:EgtWPFLib;assembly=EgtWPFLib"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             mc:Ignorable="d" 
+             d:DesignHeight="768" d:DesignWidth="1280">
 
     <!-- Definizione della AlarmsPage -->
     <Border Style="{DynamicResource OmagCut_PageBorder}" >
@@ -279,7 +279,7 @@
                 </Grid.RowDefinitions>
 
                 <GroupBox Name="SetUpGpBx" Grid.ColumnSpan="3" Grid.RowSpan="9"
-               Style="{DynamicResource OmagCut_GroupBox}">
+                          Style="{DynamicResource OmagCut_GroupBox}">
 
                     <Grid Name="CurrToolsGrid" Grid.ColumnSpan="2">
                         <Grid.ColumnDefinitions>
@@ -298,7 +298,7 @@
                         </Grid.RowDefinitions>
 
                         <TextBlock Name="CurrSawTxBl" Grid.Column="0" Grid.Row="0" Grid.ColumnSpan="3"
-                                Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
+                                   Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"/>
                         <ComboBox x:Name="CurrSawCmBx" Grid.Column="1" Grid.Row="1" Style="{DynamicResource OmagCut_ComboBox}">
                             <ComboBox.ItemTemplate>
                                 <DataTemplate>
@@ -308,8 +308,8 @@
                         </ComboBox>
 
                         <TextBlock Name="AuxiliaryToolTxBl" Grid.Column="0" Grid.Row="2" Grid.ColumnSpan="3"
-                                Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-                                Visibility="Hidden"/>
+                                   Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                                   Visibility="Hidden"/>
                         <ComboBox Name="AuxiliaryToolCmBx" Grid.Column="1" Grid.Row="3" Style="{StaticResource OmagCut_ComboBox}" Visibility="Hidden">
                             <ComboBox.ItemTemplate>
                                 <DataTemplate>
@@ -319,8 +319,8 @@
                         </ComboBox>
 
                         <TextBlock Name="CurrDrillTxBl" Grid.Column="0" Grid.Row="4" Grid.ColumnSpan="3"
-                                Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
-                                Visibility="Hidden"/>
+                                   Style="{DynamicResource OmagCut_CenteredLowerCaseCharacterTextBlock}"
+                                   Visibility="Hidden"/>
                         <ComboBox Name="CurrDrillCmBx" Grid.Column="1" Grid.Row="5" Style="{StaticResource OmagCut_ComboBox}" Visibility="Hidden">
                             <ComboBox.ItemTemplate>
                                 <DataTemplate>

Machine/CurrentMachine.vb

@@ -212,6 +212,12 @@ Public Class CurrentMachine
    ' Massima altezza lavorabile con lama grande
    Private m_dHighPieceZ As Double = 200.0
 
+   ' 
+   Private m_dFinalDepth As Double = 0.0
+
+   ' Flag che abilita l'esecuzione del taglio finale
+   Private m_bEnableFinalSawCut As Boolean = False
+
 #Region "Proprietà che leggono e scrivono i valori anche da o su file ini"
    Friend ReadOnly Property MaxTabDepth As Double
       Get
@@ -1204,6 +1210,24 @@ Public Class CurrentMachine
       End Get
    End Property
 
+   Friend Property bEnableFinalSawCut As Boolean
+      Get
+         Return m_bEnableFinalSawCut
+      End Get
+      Set(value As Boolean)
+         m_bEnableFinalSawCut = value
+      End Set
+   End Property
+
+   Friend Property dFinalDepth As Double
+      Get
+         Return m_dFinalDepth
+      End Get
+      Set(value As Double)
+         m_dFinalDepth = value
+      End Set
+   End Property
+
 #End Region
 
    Sub New()
@@ -1488,6 +1512,12 @@ Public Class CurrentMachine
 
       ' Massimo spessore lavorabile con lama grande
       m_dHighPieceZ = GetPrivateProfileDouble(S_RAWMOVE, "MaxHeightPiece", 800.0, m_MainWindow.GetMachIniFile())
+
+      ' Flag per abilitare taglio finale
+      m_bEnableFinalSawCut = GetPrivateProfileInt(S_MACH, K_ENABLEFINALSAWCUT, 0, m_MainWindow.GetMachIniFile()) <> 0
+
+      ' Flag per abilitare taglio finale
+      m_dFinalDepth = GetPrivateProfileDouble(S_MACH, K_FINALDEPTH, 0.0, m_MainWindow.GetMachIniFile())
    End Sub
 
    ' Per il controllo FANUC al momento dell'inizializzazione del CN devono essere lette alcune variabili

Machine/MachinePageUC.xaml

@@ -5,16 +5,16 @@
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
    mc:Ignorable="d" 
    d:DesignHeight="853.3" d:DesignWidth="1280">
-      
+
    <!-- Definizione della MachinePage -->
    <Border  >
-      
+
       <Grid Name="MachinePageGrid" >
          <Grid.RowDefinitions>
-             <RowDefinition Height="1*"/>
-             <RowDefinition Height="9*"/>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="9*"/>
          </Grid.RowDefinitions>
-         
+
          <!-- Definizione della grid superiore -->
          <Grid Name="UpperButtonGrid" Grid.Row="0" >
             <Grid.ColumnDefinitions>
@@ -25,37 +25,40 @@
                <ColumnDefinition Width="2*"/>
                <ColumnDefinition Width="2*"/>
                <ColumnDefinition Width="2*"/>
+               <ColumnDefinition Width="2*"/>
                <ColumnDefinition Width="1*"/>
-               <ColumnDefinition Width="1*"/>
-               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="0.1*"/>
             </Grid.ColumnDefinitions>
 
-                <ToggleButton Name="AlarmsBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
-                    <Image Source="{DynamicResource DatiMacchinaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
-                </ToggleButton>
-                <ToggleButton Name="ToolsDBBtn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
-                    <Image Source="{DynamicResource DB-lavorazioniImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
-                </ToggleButton>
-                <ToggleButton Name="MachiningDBBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
-                    <Image Source="{DynamicResource DB-utensiliImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
-                </ToggleButton>
-                <ToggleButton Name="PolishingsBtn" Grid.Column="3" Style="{DynamicResource  OmagCut_BlueIconToggleButton}">
-                    <!--<Image Source="{DynamicResource LucidaturaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>-->
-                </ToggleButton>
-                <ToggleButton Name="WaterJetBtn" Grid.Column="4" Style="{DynamicResource  OmagCut_BlueIconToggleButton}">
-                    <!--<Image Source="{DynamicResource WaterJetImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>-->
-                </ToggleButton>
-                <ToggleButton Name="TestingPageBtn" Grid.Column="5" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
-                    <Image Source="{DynamicResource MacchinaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
-                </ToggleButton>
-                <ToggleButton Name="StatisticsBtn" Grid.Column="6" Style="{DynamicResource OmagCut_YellowToggleButton}">
-                    
-                </ToggleButton>
+            <ToggleButton Name="AlarmsBtn" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource DatiMacchinaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="Alarms2Btn" Grid.Column="1" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource DatiMacchinaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="ToolsDBBtn" Grid.Column="2" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource DB-lavorazioniImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="MachiningDBBtn" Grid.Column="3" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource DB-utensiliImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="PolishingsBtn" Grid.Column="4" Style="{DynamicResource  OmagCut_BlueIconToggleButton}">
+               <!--<Image Source="{DynamicResource LucidaturaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>-->
+            </ToggleButton>
+            <ToggleButton Name="WaterJetBtn" Grid.Column="5" Style="{DynamicResource  OmagCut_BlueIconToggleButton}">
+               <!--<Image Source="{DynamicResource WaterJetImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>-->
+            </ToggleButton>
+            <ToggleButton Name="TestingPageBtn" Grid.Column="6" Style="{DynamicResource OmagCut_YellowIconToggleButton}">
+               <Image Source="{DynamicResource MacchinaImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
+            </ToggleButton>
+            <ToggleButton Name="StatisticsBtn" Grid.Column="7" Style="{DynamicResource OmagCut_YellowToggleButton}">
 
-            </Grid>
+            </ToggleButton>
+
+         </Grid>
 
       </Grid>
-      
+
    </Border>
-   
+
 </UserControl>

Machine/MachinePageUC.xaml.vb

@@ -13,6 +13,7 @@ Public Class MachinePageUC
    Friend m_WaterJetPageUC As WaterJetPageUC
    Friend m_MachineCNPageUC As MachineCNPageUC
    Friend m_StatisticsPageUC As StatisticsPageUC
+   Friend m_Alarms2PageUC As Alarms2PageUC
 
    ' Riferimento alla pagina correntemente attiva
    Friend m_ActiveMachinePage As MachinePages
@@ -25,6 +26,7 @@ Public Class MachinePageUC
       WaterJet
       MachineCN
       Statistics
+      Alarms2
    End Enum
 
    Private Sub MachinePage_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
@@ -37,6 +39,7 @@ Public Class MachinePageUC
       m_WaterJetPageUC = New WaterJetPageUC
       m_MachineCNPageUC = New MachineCNPageUC
       m_StatisticsPageUC = New StatisticsPageUC
+      m_Alarms2PageUC = New Alarms2PageUC
 
       'Posizionemento nella griglia delle Page UserControl
       m_AlarmsPageUC.SetValue(Grid.RowProperty, 1)
@@ -46,8 +49,11 @@ Public Class MachinePageUC
       m_WaterJetPageUC.SetValue(Grid.RowProperty, 1)
       m_MachineCNPageUC.SetValue(Grid.RowProperty, 1)
       m_StatisticsPageUC.SetValue(Grid.RowProperty, 1)
+      m_Alarms2PageUC.SetValue(Grid.RowProperty, 1)
 
       AlarmsBtn.ToolTip = EgtMsg(MSG_MACHINEPAGEUC + 5)
+      Alarms2Btn.ToolTip = EgtMsg(MSG_MACHINEPAGEUC + 5)
+
       ToolsDBBtn.ToolTip = EgtMsg(MSG_MACHINEPAGEUC + 6)
       MachiningDBBtn.ToolTip = EgtMsg(MSG_MACHINEPAGEUC + 7)
       PolishingsBtn.Content = EgtMsg(91090)
@@ -171,6 +177,95 @@ Public Class MachinePageUC
             MachinePageGrid.Children.Remove(m_StatisticsPageUC)
             MachinePageGrid.Children.Add(m_AlarmsPageUC)
             m_ActiveMachinePage = MachinePages.Alarms
+         Case MachinePages.Alarms2
+            Alarms2Btn.IsChecked = False
+            MachinePageGrid.Children.Remove(m_Alarms2PageUC)
+            MachinePageGrid.Children.Add(m_AlarmsPageUC)
+            m_ActiveMachinePage = MachinePages.Alarms
+      End Select
+   End Sub
+
+   Private Sub Alarms2Btn_Click(sender As Object, e As RoutedEventArgs) Handles Alarms2Btn.Click
+      Select Case m_ActiveMachinePage
+         Case MachinePages.Alarms
+            AlarmsBtn.IsChecked = False
+            Alarms2Btn.IsChecked = True
+            MachinePageGrid.Children.Remove(m_AlarmsPageUC)
+            MachinePageGrid.Children.Add(m_Alarms2PageUC)
+            m_ActiveMachinePage = MachinePages.Alarms2
+         Case MachinePages.ToolsDb
+            ' Verifica ed eventuale salvataggio utensile corrente
+            If Not m_ToolsDbPageUC.SaveCurrTool() Then
+               Alarms2Btn.IsChecked = False
+               ToolsDBBtn.IsChecked = True
+               Return
+            End If
+            ' salvo il DB utensili
+            EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
+            EgtTdbSave()
+            ' passo alla pagina Dati macchina
+            Alarms2Btn.IsChecked = True
+            ToolsDBBtn.IsChecked = False
+            MachinePageGrid.Children.Remove(m_ToolsDbPageUC)
+            MachinePageGrid.Children.Add(m_Alarms2PageUC)
+            m_ActiveMachinePage = MachinePages.Alarms2
+         Case MachinePages.MachiningDb
+            ' Verifica ed eventuale salvataggio lavorazione corrente
+            If Not m_MachiningDbPageUC.SaveCurrMachining() Then
+               Alarms2Btn.IsChecked = False
+               MachiningDBBtn.IsChecked = True
+               Return
+            End If
+            ' salvo il DB lavorazioni
+            EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
+            EgtMdbSave()
+            ' passo alla pagina Dati macchina
+            Alarms2Btn.IsChecked = True
+            MachiningDBBtn.IsChecked = False
+            MachinePageGrid.Children.Remove(m_MachiningDbPageUC)
+            MachinePageGrid.Children.Add(m_Alarms2PageUC)
+            m_ActiveMachinePage = MachinePages.Alarms2
+         Case MachinePages.Polishings
+            ' Verifica ed eventuale salvataggio Lucidatura corrente
+            If Not m_PolishingsPageUC.SaveKit() Then
+               Alarms2Btn.IsChecked = False
+               PolishingsBtn.IsChecked = True
+               Return
+            End If
+            ' passo alla pagina Dati Macchina
+            Alarms2Btn.IsChecked = True
+            PolishingsBtn.IsChecked = False
+            MachinePageGrid.Children.Remove(m_PolishingsPageUC)
+            MachinePageGrid.Children.Add(m_Alarms2PageUC)
+            m_ActiveMachinePage = MachinePages.Alarms2
+         Case MachinePages.WaterJet
+            ' Verifica ed eventuale salvataggio Db Waterjet
+            Dim nPressedBtn As Integer = DirectCast(m_WaterJetPageUC.DataContext, WaterjetDbWindowVM_OmagCUT).CloseWaterjetDb_OmagCut(m_MainWindow)
+            If nPressedBtn = WaterjetDbWindowVM_OmagCUT.SaveWndBtnEnum.CANCEL Then
+               Alarms2Btn.IsChecked = False
+               WaterJetBtn.IsChecked = True
+               Return
+            ElseIf nPressedBtn = WaterjetDbWindowVM_OmagCUT.SaveWndBtnEnum.NO Then
+               m_WaterJetPageUC.WaterJetPage_Reinitialize()
+            End If
+            ' passo alla pagina Dati Macchina
+            Alarms2Btn.IsChecked = True
+            WaterJetBtn.IsChecked = False
+            MachinePageGrid.Children.Remove(m_WaterJetPageUC)
+            MachinePageGrid.Children.Add(m_Alarms2PageUC)
+            m_ActiveMachinePage = MachinePages.Alarms2
+         Case MachinePages.MachineCN
+            Alarms2Btn.IsChecked = True
+            TestingPageBtn.IsChecked = False
+            MachinePageGrid.Children.Remove(m_MachineCNPageUC)
+            MachinePageGrid.Children.Add(m_Alarms2PageUC)
+            m_ActiveMachinePage = MachinePages.Alarms2
+         Case MachinePages.Statistics
+            Alarms2Btn.IsChecked = True
+            StatisticsBtn.IsChecked = False
+            MachinePageGrid.Children.Remove(m_StatisticsPageUC)
+            MachinePageGrid.Children.Add(m_Alarms2PageUC)
+            m_ActiveMachinePage = MachinePages.Alarms2
       End Select
    End Sub
 
@@ -241,6 +336,12 @@ Public Class MachinePageUC
             MachinePageGrid.Children.Remove(m_StatisticsPageUC)
             MachinePageGrid.Children.Add(m_ToolsDbPageUC)
             m_ActiveMachinePage = MachinePages.ToolsDb
+         Case MachinePages.Alarms2
+            Alarms2Btn.IsChecked = False
+            ToolsDBBtn.IsChecked = True
+            MachinePageGrid.Children.Remove(m_Alarms2PageUC)
+            MachinePageGrid.Children.Add(m_ToolsDbPageUC)
+            m_ActiveMachinePage = MachinePages.ToolsDb
       End Select
    End Sub
 
@@ -313,6 +414,12 @@ Public Class MachinePageUC
             MachinePageGrid.Children.Remove(m_StatisticsPageUC)
             MachinePageGrid.Children.Add(m_MachiningDbPageUC)
             m_ActiveMachinePage = MachinePages.MachiningDb
+         Case MachinePages.Alarms2
+            Alarms2Btn.IsChecked = False
+            MachiningDBBtn.IsChecked = True
+            MachinePageGrid.Children.Remove(m_Alarms2PageUC)
+            MachinePageGrid.Children.Add(m_MachiningDbPageUC)
+            m_ActiveMachinePage = MachinePages.MachiningDb
       End Select
    End Sub
 
@@ -386,6 +493,12 @@ Public Class MachinePageUC
             MachinePageGrid.Children.Remove(m_StatisticsPageUC)
             MachinePageGrid.Children.Add(m_PolishingsPageUC)
             m_ActiveMachinePage = MachinePages.Polishings
+         Case MachinePages.Alarms2
+            Alarms2Btn.IsChecked = False
+            PolishingsBtn.IsChecked = True
+            MachinePageGrid.Children.Remove(m_Alarms2PageUC)
+            MachinePageGrid.Children.Add(m_PolishingsPageUC)
+            m_ActiveMachinePage = MachinePages.Polishings
       End Select
    End Sub
 
@@ -457,6 +570,12 @@ Public Class MachinePageUC
             MachinePageGrid.Children.Remove(m_StatisticsPageUC)
             MachinePageGrid.Children.Add(m_WaterJetPageUC)
             m_ActiveMachinePage = MachinePages.WaterJet
+         Case MachinePages.Alarms2
+            Alarms2Btn.IsChecked = False
+            WaterJetBtn.IsChecked = True
+            MachinePageGrid.Children.Remove(m_Alarms2PageUC)
+            MachinePageGrid.Children.Add(m_WaterJetPageUC)
+            m_ActiveMachinePage = MachinePages.WaterJet
       End Select
    End Sub
 
@@ -537,6 +656,12 @@ Public Class MachinePageUC
             MachinePageGrid.Children.Remove(m_StatisticsPageUC)
             MachinePageGrid.Children.Add(m_MachineCNPageUC)
             m_ActiveMachinePage = MachinePages.MachineCN
+         Case MachinePages.Alarms2
+            Alarms2Btn.IsChecked = False
+            TestingPageBtn.IsChecked = True
+            MachinePageGrid.Children.Remove(m_Alarms2PageUC)
+            MachinePageGrid.Children.Add(m_MachineCNPageUC)
+            m_ActiveMachinePage = MachinePages.MachineCN
       End Select
    End Sub
 
@@ -617,6 +742,12 @@ Public Class MachinePageUC
             m_ActiveMachinePage = MachinePages.Statistics
          Case MachinePages.Statistics
             StatisticsBtn.IsChecked = True
+         Case MachinePages.Alarms2
+            Alarms2Btn.IsChecked = False
+            StatisticsBtn.IsChecked = True
+            MachinePageGrid.Children.Remove(m_Alarms2PageUC)
+            MachinePageGrid.Children.Add(m_StatisticsPageUC)
+            m_ActiveMachinePage = MachinePages.Statistics
       End Select
    End Sub
 
@@ -670,6 +801,12 @@ Public Class MachinePageUC
             MachinePageGrid.Children.Remove(m_StatisticsPageUC)
             MachinePageGrid.Children.Add(m_AlarmsPageUC)
             m_ActiveMachinePage = MachinePages.Alarms
+         Case MachinePages.Alarms2
+            AlarmsBtn.IsChecked = True
+            Alarms2Btn.IsChecked = False
+            MachinePageGrid.Children.Remove(m_Alarms2PageUC)
+            MachinePageGrid.Children.Add(m_AlarmsPageUC)
+            m_ActiveMachinePage = MachinePages.Alarms
       End Select
    End Sub
 

OmagCUT.vbproj

@@ -196,6 +196,9 @@
     <Compile Include="DirectCuts\ControlsDirectCutUC1.xaml.vb">
       <DependentUpon>ControlsDirectCutUC1.xaml</DependentUpon>
     </Compile>
+    <Compile Include="DirectCuts\CustomGridUC.xaml.vb">
+      <DependentUpon>CustomGridUC.xaml</DependentUpon>
+    </Compile>
     <Compile Include="DirectCuts\Polishing.xaml.vb">
       <DependentUpon>Polishing.xaml</DependentUpon>
     </Compile>
@@ -227,6 +230,9 @@
     <Compile Include="LicenseWindow.xaml.vb">
       <DependentUpon>LicenseWindow.xaml</DependentUpon>
     </Compile>
+    <Compile Include="Machine\Alarms2PageUC.xaml.vb">
+      <DependentUpon>Alarms2PageUC.xaml</DependentUpon>
+    </Compile>
     <Compile Include="Machine\AlarmsPageUC.xaml.vb">
       <DependentUpon>AlarmsPageUC.xaml</DependentUpon>
     </Compile>
@@ -487,6 +493,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="DirectCuts\CustomGridUC.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="DirectCuts\Polishing.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
@@ -527,6 +537,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="Machine\Alarms2PageUC.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="Machine\AlarmsPageUC.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>