From ae204b7ee2bb555abd62062abca4aa20dc86690d Mon Sep 17 00:00:00 2001
From: NicolaP <nicola.p@eglatech.com>
Date: Thu, 28 Oct 2021 18:19:31 +0200
Subject: [PATCH] Inizio nuova gestione pulsante Back per compo interni e
 alzatine

---
 AlzAndFront/AlzAndFront.vb                    |  20 ++
 AlzAndFront/AlzAndFront.xaml                  | 137 +++++++++++++
 AlzAndFront/AlzAndFront.xaml.vb               |  13 ++
 CompoWindow/CompoListPage/CompoListPageVM.vb  |  33 +++-
 .../CompoParamPage/CompoParamPageV.xaml       |   9 +-
 .../CompoParamPage/CompoParamPageVM.vb        | 187 +++++++++++++++++-
 CompoWindow/CompoWindowVM.vb                  |  12 ++
 OmagOFFICE.vbproj                             |   8 +
 OptionPanel/NestingTab/NestingTabVM.vb        |   1 +
 SideEntityControl/SideEntityControlVM.vb      | 161 ++++++++++++++-
 10 files changed, 572 insertions(+), 9 deletions(-)
 create mode 100644 AlzAndFront/AlzAndFront.vb
 create mode 100644 AlzAndFront/AlzAndFront.xaml
 create mode 100644 AlzAndFront/AlzAndFront.xaml.vb

diff --git a/AlzAndFront/AlzAndFront.vb b/AlzAndFront/AlzAndFront.vb
new file mode 100644
index 0000000..0e9e65c
--- /dev/null
+++ b/AlzAndFront/AlzAndFront.vb
@@ -0,0 +1,20 @@
+Imports System.Collections.ObjectModel
+Imports EgtUILib
+Imports EgtWPFLib5
+
+Public Class AlzAndFrontVM
+   Inherits VMBase
+
+#Region "CONSTRUCTOR"
+
+   Sub New()
+
+
+   End Sub
+
+#End Region    ' CONSTRUCTOR
+
+
+End Class
+
+
diff --git a/AlzAndFront/AlzAndFront.xaml b/AlzAndFront/AlzAndFront.xaml
new file mode 100644
index 0000000..e99b114
--- /dev/null
+++ b/AlzAndFront/AlzAndFront.xaml
@@ -0,0 +1,137 @@
+<UserControl x:Class="AlzAndFrontV"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+   
+   <Grid>
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+
+      <Grid Visibility="{Binding Legenda_Visibility}"
+            Grid.Row="0"
+            Margin="0,0,0,5">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1.8*"/>
+            <ColumnDefinition Width="0.6*"/>
+            <ColumnDefinition Width="0.6*"/>
+         </Grid.ColumnDefinitions>
+
+         <TextBlock Text="{Binding FirstColumnMsg}" Grid.Column="1" HorizontalAlignment="Center"/>
+         <TextBlock Text="{Binding SecondColumnMsg}" Grid.Column="2" HorizontalAlignment="Center"/>
+      </Grid>
+
+      <EgtWPFLib5:EgtScrollViewer VerticalScrollBarVisibility="Auto"
+                    Focusable="false"              
+                    Padding="3"
+                    Grid.Row="1">
+         <ItemsControl ItemsSource="{Binding SideEntityList}">
+            <ItemsControl.ItemTemplate>
+               <DataTemplate>
+                  <Grid Margin="0,0,0,2">
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="1*"/>
+                        <ColumnDefinition Width="2*"/>
+                     </Grid.ColumnDefinitions>
+                     <TextBlock Text="{Binding sEntityName}"
+                                VerticalAlignment="Center"/>
+                      <!--Drip e Engrave-->
+                     <UniformGrid Grid.Column="1" Columns="3" Rows="1">
+                         <CheckBox IsChecked="{Binding bIsChecked}"
+                                   Grid.Column="1"
+                                   Visibility="{Binding Check_Visibility}"
+                                   HorizontalAlignment="Center"
+                                   VerticalAlignment="Center"/>
+                         <EgtWPFLib5:EgtTextBox Text="{Binding GrphShortStart}"
+                                        Visibility="{Binding Value_Visibility_DE}"
+                                        VerticalAlignment="Center"
+                                        Margin="0,0,2.5,0"/>
+                         <EgtWPFLib5:EgtTextBox Text="{Binding GrphShortEnd}"
+                                        Visibility="{Binding Value_Visibility_DE}"
+                                        VerticalAlignment="Center"
+                                        Margin="2.5,0,0,0"/>
+                     </UniformGrid>
+                     <!--SideAngle-->
+                     <UniformGrid Grid.Column="1" Columns="2" Rows="1">
+                        <EgtWPFLib5:EgtTextBox Text="{Binding GrphSideAngle}"
+                                               Visibility="{Binding Value_Visibility}"
+                                               VerticalAlignment="Center"
+                                               Margin="0,0,2.5,0"/>
+                        <EgtWPFLib5:EgtTextBox Text="{Binding GrphSideHeel}"
+                                               Visibility="{Binding Value_Visibility}"
+                                               VerticalAlignment="Center"
+                                               Margin="2.5,0,0,0"/>
+                     </UniformGrid>
+                  </Grid>
+               </DataTemplate>
+            </ItemsControl.ItemTemplate>
+         </ItemsControl>
+      </EgtWPFLib5:EgtScrollViewer>
+      
+      <Grid Visibility="{Binding Parameter1_Visibility}"
+            Grid.Row="2"
+            Margin="0,0,0,5">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1.8*"/>
+            <ColumnDefinition Width="1.2*"/>
+         </Grid.ColumnDefinitions>
+
+         <TextBlock Text="{Binding Parameter1Msg}" Grid.Row="0"/>
+         <EgtWPFLib5:EgtTextBox Text="{Binding Parameter1}"
+                                Grid.Column="1"/>
+      </Grid>
+
+      <Grid Visibility="{Binding Parameter1_Visibility}"
+            Grid.Row="3"
+            Margin="0,0,0,5">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1.8*"/>
+            <ColumnDefinition Width="1.2*"/>
+         </Grid.ColumnDefinitions>
+
+         <TextBlock Text="{Binding Parameter2Msg}" Grid.Row="1"/>
+          
+         <EgtWPFLib5:EgtTextBox Visibility="{Binding Parameter2_Visibility}"
+                                Text="{Binding Parameter2}" 
+                                Grid.Column="1"/>
+         <UniformGrid Grid.Column="1" Columns="2" 
+                         Visibility="{Binding Parameter2ab_Visibility}">
+             <EgtWPFLib5:EgtTextBox Text="{Binding Parameter2a}"/>
+             <EgtWPFLib5:EgtTextBox Text="{Binding Parameter2b}"/>
+         </UniformGrid>
+        </Grid>
+
+      <Grid Visibility="{Binding Parameter23_Visibility}"
+            Grid.Row="4"
+            Margin="0,0,0,5">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1.8*"/>
+            <ColumnDefinition Width="1.2*"/>
+         </Grid.ColumnDefinitions>
+
+         <TextBlock Text="{Binding Parameter3Msg}" Grid.Row="2"/>
+         <EgtWPFLib5:EgtTextBox Text="{Binding Parameter3}"
+                                Grid.Column="1"/>
+      </Grid>
+
+      <Grid Visibility="{Binding Parameter4_Visibility}"
+            Grid.Row="5"
+            Margin="0,0,0,5">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1.8*"/>
+            <ColumnDefinition Width="1.2*"/>
+         </Grid.ColumnDefinitions>
+
+         <TextBlock Text="{Binding Parameter4Msg}" Grid.Row="2"/>
+         <EgtWPFLib5:EgtTextBox Text="{Binding Parameter4}"
+                                Grid.Column="1"/>
+      </Grid>
+
+   </Grid>
+   
+</UserControl>
diff --git a/AlzAndFront/AlzAndFront.xaml.vb b/AlzAndFront/AlzAndFront.xaml.vb
new file mode 100644
index 0000000..e4aff66
--- /dev/null
+++ b/AlzAndFront/AlzAndFront.xaml.vb
@@ -0,0 +1,13 @@
+Public Class AlzAndFrontV
+
+   Private WithEvents m_AlzAndFrontVM As AlzAndFrontVM
+
+   Sub New(AlzAndFrontVM As AlzAndFrontVM)
+      ' This call is required by the designer.
+      InitializeComponent()
+      Me.DataContext = AlzAndFrontVM
+      ' Assegno al riferimento locale al VM il VM preso dal DataContext
+      m_AlzAndFrontVM = AlzAndFrontVM
+   End Sub
+
+End Class
diff --git a/CompoWindow/CompoListPage/CompoListPageVM.vb b/CompoWindow/CompoListPage/CompoListPageVM.vb
index e11a3e2..873a2fc 100644
--- a/CompoWindow/CompoListPage/CompoListPageVM.vb
+++ b/CompoWindow/CompoListPage/CompoListPageVM.vb
@@ -300,9 +300,16 @@ Public Class CompoListPageVM
          m_BackVisibility = Visibility.Visible
          m_SideEntity_Visibility = Visibility.Collapsed
       Else
-         LoadInternalCompoList()
-         m_BackVisibility = Visibility.Visible
-         m_SideEntity_Visibility = Visibility.Visible
+         ' differenzio il caso di AlzAndFront
+         If CompoWindowMap.refCompoWindowVM.m_bSelAlzAndFront Then
+            ' carico la pagina per la definizione delle componenti Alette
+            m_BackVisibility = Visibility.Visible
+            m_SideEntity_Visibility = Visibility.Hidden
+         Else
+            LoadInternalCompoList()
+            m_BackVisibility = Visibility.Visible
+            m_SideEntity_Visibility = Visibility.Visible
+         End If
       End If
       NotifyPropertyChanged("BackVisibility")
       NotifyPropertyChanged("SideEntity_Visibility")
@@ -449,6 +456,26 @@ Public Class CompoListPageVM
       If IsNothing(CompoWindowMap.refCompoWindowVM.m_SelCompo) Then
          CompoWindowMap.refCompoWindowVM.m_SelCompoFamily = Nothing
          InitCompoListPage()
+      ElseIf CompoWindowMap.refCompoWindowVM.m_bSelInternalCompo Then
+         'CompoWindowMap.refCompoWindowVM.CompoPage = CompoWindowVM.CompoPageOpt.PARAM
+         CompoWindowMap.refCompoWindowVM.SetCompoPage(CompoWindowVM.CompoPageOpt.PARAM)
+         CompoWindowMap.refCompoParamPageVM.MyInitCompoParamPage()
+         Dim PartId As Integer = EgtGetFirstPart()
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, CompoParamPageVM.COMPO_LAYER_AUX), GDB_ST.ON_)
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, CompoParamPageVM.COMPO_LAYER_QUOTATURE), GDB_ST.ON_)
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, CompoParamPageVM.COMPO_LAYER_ETICHETTE), GDB_ST.ON_)
+         EgtDraw()
+         CompoWindowMap.refCompoWindowVM.m_bSelInternalCompo = False
+         ' disbilito la modifica del componente piano cucicna/bagno corrente
+         For Each Item In CompoWindowMap.refCompoParamPageVM.CompoParamOutLoopList
+            If TypeOf (Item) Is TextParamItem Then
+               Dim TxtParam As TextParamItem = DirectCast(Item, TextParamItem)
+               TxtParam.IsEnable = False
+            ElseIf TypeOf (Item) Is CheckParamItem Then
+               Dim ChkParam As CheckParamItem = DirectCast(Item, CheckParamItem)
+               ChkParam.IsEnable = False
+            End If
+         Next
       Else
          CompoWindowMap.refCompoWindowVM.m_SelCompo = Nothing
          InitCompoListPage()
diff --git a/CompoWindow/CompoParamPage/CompoParamPageV.xaml b/CompoWindow/CompoParamPage/CompoParamPageV.xaml
index 5b62a70..55d3d17 100644
--- a/CompoWindow/CompoParamPage/CompoParamPageV.xaml
+++ b/CompoWindow/CompoParamPage/CompoParamPageV.xaml
@@ -89,7 +89,7 @@
                         </Grid.ColumnDefinitions>
                         <TextBlock Text="{Binding Name}" VerticalAlignment="Center"/>
                         <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                               Text="{Binding Value}"/>
+                                               Text="{Binding Value}" IsEnabled="{Binding IsEnable}"/>
                      </Grid>
                   </DataTemplate>
                   <DataTemplate DataType="{x:Type OmagOFFICE:CheckParamItem}">
@@ -100,7 +100,7 @@
                         </Grid.ColumnDefinitions>
                         <TextBlock Text="{Binding Name}"/>
                         <CheckBox Grid.Column="1" 
-                                  IsChecked="{Binding Value}"
+                                  IsChecked="{Binding Value}" IsEnabled="{Binding IsEnable}"
                                   HorizontalAlignment="Center"/>
                      </Grid>
                   </DataTemplate>
@@ -123,6 +123,11 @@
                        Command="{Binding InternalCommand}"
                        Visibility="{Binding Internal_Visibility}"
                        Style="{StaticResource CompoWindow_Button}"/>
+             
+             <Button Content="{Binding AlzAndFrontMsg}"
+                       Command="{Binding AlzAndFrontCommand}"
+                       Visibility="{Binding AlzAndFront_Visibility}"
+                       Style="{StaticResource CompoWindow_Button}"/>
 
             <UniformGrid Columns="2"
                             Margin="0,0,0,5"
diff --git a/CompoWindow/CompoParamPage/CompoParamPageVM.vb b/CompoWindow/CompoParamPage/CompoParamPageVM.vb
index b220374..ce51a5a 100644
--- a/CompoWindow/CompoParamPage/CompoParamPageVM.vb
+++ b/CompoWindow/CompoParamPage/CompoParamPageVM.vb
@@ -30,6 +30,14 @@ Public Class CompoParamPageVM
       End Get
    End Property
 
+   ' lista dei parametri del piano cucina (da mostrare quando eseguo la funzione Back)
+   Private m_CompoParamOutLoopList As New ObservableCollection(Of CompoParamItem)
+   Public ReadOnly Property CompoParamOutLoopList As ObservableCollection(Of CompoParamItem)
+      Get
+         Return m_CompoParamOutLoopList
+      End Get
+   End Property
+
    Private m_Internal_Visibility As Visibility
    Public Property Internal_Visibility As Visibility
       Get
@@ -41,6 +49,17 @@ Public Class CompoParamPageVM
       End Set
    End Property
 
+   Private m_AlzAndFront_Visibility As Visibility
+   Public Property AlzAndFront_Visibility As Visibility
+      Get
+         Return m_AlzAndFront_Visibility
+      End Get
+      Set(value As Visibility)
+         m_AlzAndFront_Visibility = value
+         NotifyPropertyChanged("AlzAndFront_Visibility")
+      End Set
+   End Property
+
    Private m_AddRemove_Visibility As Visibility
    Public Property AddRemove_Visibility As Visibility
       Get
@@ -392,6 +411,12 @@ Public Class CompoParamPageVM
          Return EgtMsg(MSG_COMPONENTPAGEUC + 47)
       End Get
    End Property
+   Public ReadOnly Property AlzAndFrontMsg As String
+      Get
+         Return "Alzatine e frontalini"
+      End Get
+   End Property
+
    Private m_AddMsg As String
    Public Property AddMsg As String
       Get
@@ -432,6 +457,7 @@ Public Class CompoParamPageVM
 
    ' definizione comandi
    Private m_cmdInternal As ICommand
+   Private m_cmdAlzAndFront As ICommand
    Private m_cmdAdd As ICommand
    Private m_cmdCancel As ICommand
    Private m_cmdBack As ICommand
@@ -471,7 +497,7 @@ Public Class CompoParamPageVM
          CompoWindowMap.refCompoSceneHostV.CompoScene.ZoomAll()
          ' Imposto messaggio aggiungi
          AddMsg = EgtMsg(MSG_COMPONENTPAGEUC + 48)
-      ' altrimenti se è un compo interno
+         ' altrimenti se è un compo interno
       Else
          If Not bOk Then
             EgtOutLog("Error in Component " & CompoWindowMap.refCompoWindowVM.m_SelInternalCompo.LuaPath)
@@ -480,7 +506,7 @@ Public Class CompoParamPageVM
          ' Imposto messaggio conferma
          AddMsg = EgtMsg(MSG_COMPONENTPAGEUC + 50)
       End If
-      ' leggo variabili e aggiorno griglia
+      ' leggo variabili e aggiorno griglia     
       ReadAndShowVariables()
       ' visualizzo/nascondo bottoni
       If IsNothing(CompoWindowMap.refCompoWindowVM.m_SelInternalCompo) Then
@@ -491,8 +517,53 @@ Public Class CompoParamPageVM
          EgtLuaGetGlobBoolVar(LUA_CMP_WITHINT, bHasInternalCompo)
          Internal_Visibility = If(bHasInternalCompo, Visibility.Visible, Visibility.Collapsed)
          SideEntity_Visibility = Visibility.Visible
+         ' verifio se abilitare il bottone per inserire le Alz&Front
+         Dim sCMPName As String = String.Empty
+         If EgtLuaGetGlobStringVar("CMP.Nome", sCMPName) Then
+            If sCMPName.StartsWith("PCucina") Or sCMPName.StartsWith("PBagno") Then
+               AlzAndFront_Visibility = Visibility.Visible
+            Else
+               AlzAndFront_Visibility = Visibility.Collapsed
+            End If
+         End If
       Else
          Internal_Visibility = Visibility.Collapsed
+         AlzAndFront_Visibility = Visibility.Collapsed
+         AddRemove_Visibility = Visibility.Visible
+         Back_Visibility = Visibility.Collapsed
+         SideEntity_Visibility = Visibility.Collapsed
+      End If
+      ' porto in CompoParam il CompoManager
+      CompoWindowMap.refCompoListPageVM.CompoManagerControl = Nothing
+      CompoManagerControl = CompoWindowMap.refCompoWindowVM.CompoManagerV
+      ' lancio inizializzazione CompoManager
+      CompoWindowMap.refCompoManagerVM.InitCompoManager()
+   End Sub
+
+   Friend Sub MyInitCompoParamPage()
+      ' Pulisco l'ambiente lua
+      ResetLuaVariables()
+      ' leggo variabili e aggiorno griglia     
+      ReadAndShowVariables()
+      ' visualizzo/nascondo bottoni
+      If IsNothing(CompoWindowMap.refCompoWindowVM.m_SelInternalCompo) Then
+         AddRemove_Visibility = Visibility.Collapsed
+         Back_Visibility = Visibility.Visible
+         Internal_Visibility = Visibility.Visible
+         AlzAndFront_Visibility = Visibility.Visible
+         SideEntity_Visibility = Visibility.Visible
+         ' verifio se abilitare il bottone per inserire le Alz&Front
+         Dim sCMPName As String = String.Empty
+         If EgtLuaGetGlobStringVar("CMP.Nome", sCMPName) Then
+            If sCMPName.StartsWith("PCucina") Or sCMPName.StartsWith("PBagno") Then
+               AlzAndFront_Visibility = Visibility.Visible
+            Else
+               AlzAndFront_Visibility = Visibility.Collapsed
+            End If
+         End If
+      Else
+         Internal_Visibility = Visibility.Collapsed
+         AlzAndFront_Visibility = Visibility.Collapsed
          AddRemove_Visibility = Visibility.Visible
          Back_Visibility = Visibility.Collapsed
          SideEntity_Visibility = Visibility.Collapsed
@@ -620,7 +691,16 @@ Public Class CompoParamPageVM
 
    ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
    Public Sub Internal(ByVal param As Object)
+      ' creo una copia della lista dei parametri del piano cucina
+      If m_CompoParamOutLoopList.Count = 0 Then
+         For i As Integer = 0 To m_CompoParamList.Count - 1
+            m_CompoParamOutLoopList.Add(m_CompoParamList(i))
+         Next
+      End If
+
       CompoWindowMap.refCompoWindowVM.m_SelInternalCompo = Nothing
+      CompoWindowMap.refCompoWindowVM.m_bSelInternalCompo = True
+      CompoWindowMap.refCompoWindowVM.m_bSelAlzAndFront = False
       CompoWindowMap.refCompoWindowVM.CompoPage = CompoWindowVM.CompoPageOpt.LIST
       ' Nascondo layer etichette e quotature
       Dim Pz As Integer = EgtGetFirstGroupInGroup(GDB_ID.ROOT)
@@ -632,6 +712,60 @@ Public Class CompoParamPageVM
 
 #End Region    ' InternalCommand
 
+#Region "AlzAndFrontCommand"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property AlzAndFrontCommand() As ICommand
+      Get
+         If m_cmdAlzAndFront Is Nothing Then
+            m_cmdAlzAndFront = New Command(AddressOf AlzAndFront)
+         End If
+         Return m_cmdAlzAndFront
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub AlzAndFront(ByVal param As Object)
+      ' creo una copia della lista dei parametri del piano cucina
+      If IsNothing(m_CompoParamOutLoopList) Then
+         For i As Integer = 0 To m_CompoParamList.Count - 1
+            m_CompoParamOutLoopList.Add(m_CompoParamList(i))
+         Next
+      End If
+
+      CompoWindowMap.refCompoWindowVM.m_SelInternalCompo = Nothing
+      CompoWindowMap.refCompoWindowVM.m_bSelInternalCompo = False
+      CompoWindowMap.refCompoWindowVM.m_bSelAlzAndFront = True
+
+      m_SideAngle_IsEnabled = False
+      NotifyPropertyChanged("SideAngle_IsEnabled")
+      m_Drip_IsEnabled = False
+      NotifyPropertyChanged("Drip_IsEnabled")
+      m_Engrave_IsEnabled = False
+      NotifyPropertyChanged("Engrave_IsEnabled")
+      m_FiloTop_IsEnabled = False
+      NotifyPropertyChanged("FiloTop_IsEnabled")
+      Measure_Visibility = Visibility.Collapsed
+      CompoManagerControl_Visibility = Visibility.Collapsed
+      Back_Visibility = Visibility.Visible
+
+      ' Nascondo layer etichette e quotature
+      Dim Pz As Integer = EgtGetFirstGroupInGroup(GDB_ID.ROOT)
+      EgtSetStatus(EgtGetFirstNameInGroup(Pz, "LayAux"), GDB_ST.OFF)
+      EgtSetStatus(EgtGetFirstNameInGroup(Pz, "Etichette"), GDB_ST.OFF)
+      EgtSetStatus(EgtGetFirstNameInGroup(Pz, "Quotature"), GDB_ST.OFF)
+      ' Imposto il loop interno
+      CompoWindowMap.refCompoSceneHostV.SelectedLayer = EgtGetFirstNameInGroup(EgtGetFirstPart(), NAME_OUTLOOP)
+
+      m_SideEntityControlVM = New SideEntityControlVM(SideEntityControlVM.CallingWindowOpt.COMPO,
+                                                            CompoWindowMap.refCompoSceneHostV.CompoScene,
+                                                            SideEntityControlVM.ModeOpt.ALZANDFRONT)
+      SideEntityControl = New SideEntityControlV(m_SideEntityControlVM)
+      EgtDraw()
+   End Sub
+
+#End Region    ' InternalCommand
+
 #Region "AddCommand"
 
    ' Returns a command that manage the MainWindow_Unloaded command
@@ -726,6 +860,42 @@ Public Class CompoParamPageVM
 
    ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
    Public Sub Back(ByVal param As Object)
+      ' se sto uscendo dalla pagina delle alzatine
+      If CompoWindowMap.refCompoWindowVM.m_bSelAlzAndFront Then
+         SideAngle_IsEnabled = True
+         Engrave_IsEnabled = True
+         Drip_IsEnabled = OmagOFFICEMap.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.UNDER_CUT) And
+                          Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrDripSaw)
+         If Not IsNothing(m_SideEntityControlVM) Then
+            m_SideEntityControlVM.Close()
+            m_SideEntityControlVM = Nothing
+            SideEntityControl = Nothing
+         End If
+         Measure_Visibility = Visibility.Visible
+         CompoManagerControl_Visibility = Visibility.Visible
+         Back_Visibility = Visibility.Visible
+         ' Deseleziono tutto
+         CompoWindowMap.refCompoSceneHostV.SelectedLayer = GDB_ID.NULL
+         ' Attivo layer delle misure
+         Dim PartId As Integer = EgtGetFirstPart()
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, COMPO_LAYER_AUX), GDB_ST.ON_)
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, COMPO_LAYER_QUOTATURE), GDB_ST.ON_)
+         EgtSetStatus(EgtGetFirstNameInGroup(PartId, COMPO_LAYER_ETICHETTE), GDB_ST.ON_)
+         EgtDraw()
+         CompoWindowMap.refCompoWindowVM.m_bSelAlzAndFront = False
+         ' disbilito la modifica del componente piano cucicna/bagno corrente
+         For Each Item In CompoParamOutLoopList
+            If TypeOf (Item) Is TextParamItem Then
+               Dim TxtParam As TextParamItem = DirectCast(Item, TextParamItem)
+               TxtParam.IsEnable = False
+            ElseIf TypeOf (Item) Is CheckParamItem Then
+               Dim ChkParam As CheckParamItem = DirectCast(Item, CheckParamItem)
+               ChkParam.IsEnable = False
+            End If
+         Next
+         Return
+      End If
+
       If CompoWindowMap.refCompoWindowVM.m_SelCompoFamily Is CompoWindowMap.refCompoWindowVM.m_SelCompo Then
          CompoWindowMap.refCompoWindowVM.m_SelCompoFamily = Nothing
       End If
@@ -742,6 +912,7 @@ Public Class CompoParamPageVM
 End Class
 
 Public Class CompoParamItem
+   Inherits VMBase
 
    Public Enum ParamType As Integer
       BOOL = 1
@@ -774,6 +945,18 @@ Public Class CompoParamItem
       End Get
    End Property
 
+   Public m_IsEnable As Boolean = True
+   Public Property IsEnable As Boolean
+      Get
+         Return m_IsEnable
+      End Get
+      Set(value As Boolean)
+         m_IsEnable = value
+         NotifyPropertyChanged("IsEnable")
+      End Set
+   End Property
+
+
    Sub New(nInd As Integer, sName As String, nType As ParamType)
       m_nInd = nInd
       m_sName = sName
diff --git a/CompoWindow/CompoWindowVM.vb b/CompoWindow/CompoWindowVM.vb
index 4139eb5..aca4902 100644
--- a/CompoWindow/CompoWindowVM.vb
+++ b/CompoWindow/CompoWindowVM.vb
@@ -28,6 +28,9 @@ Public Class CompoWindowVM
    Friend m_SelCompo As CompoItem = Nothing
    Friend m_SelInternalCompo As CompoItem = Nothing
 
+   Friend m_bSelAlzAndFront As Boolean = False
+   Friend m_bSelInternalCompo As Boolean = False
+
    Private m_sCompoDir As String = String.Empty
    Friend m_bDrawOk As Boolean = False
 
@@ -62,6 +65,15 @@ Public Class CompoWindowVM
          NotifyPropertyChanged("CompoPageControl")
       End Set
    End Property
+   ' utilizzato per forzare il cambio pagina senza passare dall'inizializzazione della componente
+   Public Sub SetCompoPage(PageOpt As CompoPageOpt)
+      If PageOpt = CompoPageOpt.LIST Then
+         m_CompoPage = CompoPageOpt.LIST
+      Else
+         m_CompoPage = CompoPageOpt.PARAM
+      End If
+      NotifyPropertyChanged("CompoPageControl")
+   End Sub
 
    Private m_CompoListPageV As CompoListPageV
    Private m_CompoParamPageV As CompoParamPageV
diff --git a/OmagOFFICE.vbproj b/OmagOFFICE.vbproj
index 48bb520..99e73a3 100644
--- a/OmagOFFICE.vbproj
+++ b/OmagOFFICE.vbproj
@@ -151,6 +151,10 @@
     <Compile Include="AboutBoxWindow\AboutBoxV.xaml.vb">
       <DependentUpon>AboutBoxV.xaml</DependentUpon>
     </Compile>
+    <Compile Include="AlzAndFront\AlzAndFront.xaml.vb">
+      <DependentUpon>AlzAndFront.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="AlzAndFront\AlzAndFront.vb" />
     <Compile Include="CompoCsvTrfDataWindow\CompoCsvDataWindowV.xaml.vb">
       <DependentUpon>CompoCsvDataWindowV.xaml</DependentUpon>
     </Compile>
@@ -333,6 +337,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="AlzAndFront\AlzAndFront.xaml">
+      <Generator>MSBuild:Compile</Generator>
+      <SubType>Designer</SubType>
+    </Page>
     <Page Include="CompoCsvTrfDataWindow\CompoCsvDataWindowV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
diff --git a/OptionPanel/NestingTab/NestingTabVM.vb b/OptionPanel/NestingTab/NestingTabVM.vb
index 858b7fa..37b9513 100644
--- a/OptionPanel/NestingTab/NestingTabVM.vb
+++ b/OptionPanel/NestingTab/NestingTabVM.vb
@@ -523,6 +523,7 @@ Public Class NestingTabVM
 
    Public Sub Draw(ByVal param As Object)
       Dim CompoWindow As New CompoWindowV(Application.Current.MainWindow, New CompoWindowVM)
+      CompoWindow.Height = 700
       CompoWindow.ShowDialog()
       EgtSetCurrentContext(OmagOFFICEMap.refSceneHostVM.MainScene.GetCtx())
    End Sub
diff --git a/SideEntityControl/SideEntityControlVM.vb b/SideEntityControl/SideEntityControlVM.vb
index 0cf63f1..7cc2f8b 100644
--- a/SideEntityControl/SideEntityControlVM.vb
+++ b/SideEntityControl/SideEntityControlVM.vb
@@ -10,6 +10,7 @@ Public Class SideEntityControlVM
       DRIP = 1        ' incidi da sotto
       ENGRAVE = 2     ' incidi da sopra
       FILOTOP = 3     ' filo top
+      ALZANDFRONT = 4 ' alzatine e frontalini
    End Enum
 
    Public Enum CallingWindowOpt As Integer
@@ -410,7 +411,7 @@ Public Class SideEntityControlVM
          m_dDepthFiloTop = GetMainPrivateProfileDouble(S_SIDES, K_FILOTOPDEPTH, 5)
          SetParameter1(m_dOffsetFiloTop)
          SetParameter2(m_dDepthFiloTop)
-      Else
+      ElseIf m_Mode <> ModeOpt.ALZANDFRONT Then
          Parameter1Msg = EgtMsg(MSG_IMPORTPAGEUC + 10)      ' Offset
          Parameter2Msg = EgtMsg(MSG_IMPORTPAGEUC + 16)      ' Offset 2
          m_dDripOffset = GetMainPrivateProfileDouble(S_SIDES, K_DRIPOFFSET, 20)
@@ -426,6 +427,17 @@ Public Class SideEntityControlVM
          SetParameter4(m_dDripShort)
       End If
 
+      ' imposto la pagina per la gestione delle Alzatine e dei frontalini
+      If m_Mode = ModeOpt.ALZANDFRONT Then
+         Parameter23_Visibility = Windows.Visibility.Hidden
+         Parameter2_Visibility = Visibility.Visible
+         Parameter2ab_Visibility = Visibility.Hidden
+         Parameter1Msg = EgtMsg(MSG_IMPORTPAGEUC + 9)       ' Angolo
+         Parameter2Msg = EgtMsg(91002)                      ' Tallone
+         m_dSideAngle = GetMainPrivateProfileDouble(S_SIDES, K_SIDEANGLE, 45)
+         SetParameter1(m_dSideAngle)
+      End If
+
       ' Aggiorno visualizzazione
       If CallingWindow = CallingWindowOpt.COMPO Then
          EgtZoom(ZM.ALL)
@@ -837,6 +849,7 @@ Public Class SideEntityControlVM
    End Sub
 
    Friend Sub CreateDripGeom(nPartId As Integer)
+      If nPartId = GDB_ID.NULL Then Return
       ' Recupero Id layer di contorno esterno
       Dim nOutLoopId = EgtGetFirstNameInGroup(nPartId, NAME_OUTLOOP)
       ' Preparo layer con geometria gocciolatoi (svuotandolo o creandolo)
@@ -1906,4 +1919,148 @@ Friend Class ColorEngrave
       Return False
    End Function
 
-End Class
\ No newline at end of file
+End Class
+
+Friend Class AlzAndFrontEntity
+   Inherits SideEntity
+
+   Public Const STD_MAXSIDEANG As Double = 50.0
+   Public Const MAX_MAXSIDEANG As Double = 75.0
+   Private Shared m_dMaxSideAng As Double = STD_MAXSIDEANG
+   Friend Shared WriteOnly Property dMaxSideAng As Double
+      Set(value As Double)
+         m_dMaxSideAng = Math.Max(Math.Min(value, MAX_MAXSIDEANG), 0)
+      End Set
+   End Property
+
+   Friend Shared m_Parameter1 As Double
+   Friend Shared m_Parameter2 As Double
+   Friend Shared m_Parameter2a As Integer
+   Friend Shared m_Parameter2b As Double
+   Friend Shared m_ModifySideAngle As Action(Of String, Double)
+   Friend Shared m_ModifySideHeel As Action(Of String, Double)
+   Friend Shared m_RefreshSideAngleText As Action
+
+   Private m_dSideAngle As Double
+   Public Property GrphSideAngle As String
+      Get
+         Return DoubleToString(m_dSideAngle, 2)
+      End Get
+      Set(value As String)
+         Dim dVal As Double = 0
+         If Not String.IsNullOrWhiteSpace(value) Then StringToDouble(value, dVal)
+         If dVal <> m_dSideAngle Then
+            ' Assegno controllando i limiti
+            If dVal < -m_dMaxSideAng Then
+               m_dSideAngle = -m_dMaxSideAng
+               NotifyPropertyChanged("GrphSideAngle")
+            ElseIf dVal > m_dMaxSideAng Then
+               m_dSideAngle = m_dMaxSideAng
+               NotifyPropertyChanged("GrphSideAngle")
+            Else
+               m_dSideAngle = dVal
+            End If
+            ' Lo modifico nella geometria e nella lista inclinazioni
+            m_ModifySideAngle(sEntityName, dSideAngle)
+            ' Aggiorno tutti i testi
+            m_RefreshSideAngleText()
+         End If
+      End Set
+   End Property
+   Public Property dSideAngle As Double
+      Get
+         Return m_dSideAngle
+      End Get
+      Set(value As Double)
+         ' Assegno controllando i limiti
+         If value < -m_dMaxSideAng Then
+            m_dSideAngle = -m_dMaxSideAng
+         ElseIf value > m_dMaxSideAng Then
+            m_dSideAngle = m_dMaxSideAng
+         Else
+            m_dSideAngle = value
+         End If
+      End Set
+   End Property
+
+   Private m_dSideHeel As Double
+   Public Property GrphSideHeel As String
+      Get
+         Return LenToString(m_dSideHeel, 2)
+      End Get
+      Set(value As String)
+         Dim dVal As Double = 0
+         If Not String.IsNullOrWhiteSpace(value) Then StringToLen(value, dVal)
+         If Math.Abs(dVal - m_dSideHeel) > EPS_SMALL Then
+            ' Verifico stia nei limiti
+            If dVal < 0 Then
+               m_dSideHeel = 0
+               NotifyPropertyChanged("GrphSideHeel")
+            Else
+               m_dSideHeel = dVal
+            End If
+            ' Lo modifico nella geometria e nella lista inclinazioni
+            m_ModifySideHeel(sEntityName, dSideHeel)
+            ' Aggiorno tutti i testi
+            m_RefreshSideAngleText()
+         End If
+      End Set
+   End Property
+   Public Property dSideHeel As Double
+      Get
+         Return m_dSideHeel
+      End Get
+      Set(value As Double)
+         ' Verifico stia nei limiti
+         If value < 0 Then
+            m_dSideHeel = 0
+         Else
+            m_dSideHeel = value
+         End If
+      End Set
+   End Property
+
+   Public Overrides Property bIsChecked As Boolean
+      Get
+         Return Not m_dSideAngle = 0
+      End Get
+      Set(value As Boolean)
+         If value Then
+            m_dSideAngle = m_Parameter1
+            m_dSideHeel = m_Parameter2
+         Else
+            m_dSideAngle = 0
+            m_dSideHeel = 0
+         End If
+         ' '' Converto nome checkbox in nome elemento tenendo conto dello slittamento verso il basso
+         ''Dim nCurrSide As Integer = m_SideAngleEntityList.Count() - (10 - CInt(CurrCheckBox.Name.Substring(1)))
+         ''Dim sCurrSide As String = "A" & nCurrSide.ToString()
+         ' Lo modifico nella geometria e nella lista inclinazioni
+         m_ModifySideAngle(sEntityName, m_dSideAngle)
+         m_ModifySideHeel(sEntityName, m_dSideHeel)
+         ' Aggiorno tutti i testi
+         m_RefreshSideAngleText()
+         NotifyPropertyChanged("bIsChecked")
+      End Set
+   End Property
+
+
+   Sub New(nId As Integer, sEntityName As String, nTextId As Integer, dSideAngle As Double, dSideHeel As Double, Mode As SideEntityControlVM.ModeOpt)
+      MyBase.New(nId, sEntityName, nTextId, Mode)
+      m_dSideAngle = dSideAngle
+      m_dSideHeel = dSideHeel
+   End Sub
+
+   Friend Shared Function FindEntity(sEntityName As String, EntityList As ObservableCollection(Of SideEntity)) As SideAngleEntity
+      If IsNothing(EntityList) Then
+         Return Nothing
+      End If
+      For Each Entity In EntityList
+         If Entity.sEntityName = sEntityName Then
+            Return DirectCast(Entity, SideAngleEntity)
+         End If
+      Next
+      Return Nothing
+   End Function
+
+End Class