-inizio nuova grafica

EgtBEAMWALL.Core/MachGroupModel/MyMachGroupPanelM.vb

@@ -192,7 +192,13 @@ Public Class MyMachGroupPanelM
          While nOutlineId <> GDB_ID.NULL
             ' verifico che sia feature
             If EgtExistsInfo(nOutlineId, MGR_FTR_PRC) Then
-               If EgtExistsInfo(nOutlineId, MGR_FTR_PRID) Then
+               Dim nCurrPrId As Integer = GDB_ID.NULL
+               If EgtGetInfo(nOutlineId, MGR_FTR_PRID, nCurrPrId) AndAlso nCurrPrId <> GDB_ID.NULL Then
+                  If nCurrPrId < nPRId Then
+                     EgtSetInfo(nOutlineId, MGR_FTR_PRID, nPRId)
+                     nPRId += 1
+                  End If
+                  nPRId = Math.Max(nPRId - 1, nCurrPrId) + 1
                   nOutlineId = EgtGetNext(nOutlineId)
                   Continue While
                Else
@@ -231,7 +237,14 @@ Public Class MyMachGroupPanelM
                   Dim nPRC As Integer
                   If EgtGetInfo(nOutlineId, MGR_FTR_PRC, nPRC) Then
                      nPRId = 0
-                     If Not EgtGetInfo(nOutlineId, MGR_FTR_PRID, nPRId) Then
+                     If EgtGetInfo(nOutlineId, MGR_FTR_PRID, nPRId) Then
+                        If nPRId < nGlobPRId Then
+                           EgtSetInfo(nOutlineId, MGR_FTR_PRID, nGlobPRId)
+                           nPRId = nGlobPRId
+                           nGlobPRId += 1
+                        End If
+                        nGlobPRId = Math.Max(nGlobPRId - 1, nPRId) + 1
+                     Else
                         EgtSetInfo(nOutlineId, MGR_FTR_PRID, nGlobPRId)
                         nPRId = nGlobPRId
                         nGlobPRId += 1

EgtBEAMWALL.ViewerOptimizer/MainMenu/OnlyProdMainMenuV.xaml

@@ -1,28 +1,44 @@
 <StackPanel x:Class="OnlyProdMainMenuV"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+            xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.ViewerOptimizer"
             Orientation="Horizontal"
             IsEnabled="{Binding MainMenu_IsEnabled}"
             DataContext="{StaticResource MainMenuVM}">
    
    <!--Barra superiore dei comandi-->
-   <UniformGrid Rows="1">
-      <RadioButton Content="{Binding OnlyProdPage_Msg}"
+   <Grid>
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="1*"/>
+         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="Auto"/>
+      </Grid.ColumnDefinitions>
+      <EgtBEAMWALL:OnlyProdManagerV DataContext="{StaticResource OnlyProdManagerVM}"
+                                    Visibility="{Binding DataContext.OnlyProdManager_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdMainMenuV}}}"/>
+
+      <!--<RadioButton Content="{Binding OnlyProdPage_Msg}"
                    IsChecked="{Binding OnlyProdPage_IsChecked}"
                    Visibility="{Binding OnlyProdPage_Visibility}"
                    Style="{StaticResource OnlyProdMainMenu_ToggleButton}"
-                   Width="120"/>
-      <Button Content="{Binding Supervisor_Msg}"
+                   Width="120"/>-->
+      <Button Grid.Column="3"
+              Content="{Binding Supervisor_Msg}"
               Command="{Binding Supervisor_Command}"
               Visibility="{Binding Supervisor_Visibility}"
-              Style="{StaticResource OnlyProdMainMenu_Button}"
-              Margin="-42.5,0,0,0"/>
-      <RadioButton Content="{Binding Configuration_Msg}"
+              Style="{StaticResource OnlyProdMainMenu_Button}"/>
+
+      <EgtBEAMWALL:OnlyProdStatisticsTimePanelV Grid.Column="2"
+                                                DataContext="{StaticResource StatisticsTimePanelVM}"
+                                                Tag="{Binding DataContext, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdMainMenuV}}}"/>
+
+      <RadioButton Grid.Column="1"
+                   Content="{Binding Configuration_Msg}"
                    IsChecked="{Binding Config_IsChecked}"
-                   Style="{StaticResource OnlyProdMainMenu_ToggleButton}"
-                   Margin="-89.5,0,0,0"
+                   Style="{StaticResource OnlyProdMainMenu_ToggleButton}"  
                    Width="120"/>
-      <Button Command="{Binding SendFeedbackCommand}"
+
+      <!--<Button Command="{Binding SendFeedbackCommand}"
               ToolTip="{Binding SendFeedbackToolTip}"
               Style="{StaticResource OnlyProdMainMenu_Button}"
               IsEnabled="{Binding SendFeedbackIsEnabled}"
@@ -30,13 +46,13 @@
               Width="40"
               Margin="-46.5,0,0,0">
          <Image Source="/Resources/MainMenu/Send.png" Stretch="Uniform"/>
-      </Button>
-      <StackPanel Orientation="Horizontal" Margin="-130,0,0,0">
+      </Button>-->
+      <!--<StackPanel Orientation="Horizontal" Margin="-130,0,0,0">
          <TextBlock Text="{Binding NVersion_Msg}"
                     Style="{StaticResource OptionTextBlockVersion_OnlyProd}"/>
          <TextBlock Text="{Binding NumVersion}"
                     Style="{StaticResource OptionTextBlockVersion_OnlyProd}"
                     Margin="5,0,0,0"/>
-      </StackPanel>
-   </UniformGrid>
+      </StackPanel>-->
+   </Grid>
 </StackPanel>

EgtBEAMWALL.ViewerOptimizer/OnlyProdManager/OnlyProdManagerV.xaml

@@ -36,7 +36,7 @@
            Style="{StaticResource ToolBarOnlyProdManager_Button}">
       <Image Source="/Resources/ProjectManager/Save.png" Stretch="Uniform"/>
    </Button>
-   <Button Command="{Binding AddProj_Command}"
+   <!--<Button Command="{Binding AddProj_Command}"
            ToolTip="{Binding AddProj_ToolTip}"
            Visibility="{Binding AddProj_Visibility}"
            Style="{StaticResource ToolBarOnlyProdManager_Button}">
@@ -68,5 +68,5 @@
            Visibility="{Binding GoToSupervisor_Visibility}"
            Style="{StaticResource ToolBarOnlyProdManagerGoToSupervisor_Button}">
       <Image Source="/Resources/ProjectManager/GoToProd.png" Stretch="Uniform"/>
-   </Button>
+   </Button>-->
 </EgtFloating:EgtFloatingPanel>

EgtBEAMWALL.ViewerOptimizer/OnlyProdProject/OnlyProdProjectV.xaml

@@ -12,17 +12,17 @@
             <ColumnDefinition Width="Auto"/>
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
-         <EgtBEAMWALL:OnlyProdManagerV DataContext="{StaticResource OnlyProdManagerVM}" HorizontalAlignment="Center"
+         <!--<EgtBEAMWALL:OnlyProdManagerV DataContext="{StaticResource OnlyProdManagerVM}" HorizontalAlignment="Center"
                                        Visibility="{Binding DataContext.OnlyProdManager_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"
-                                       Margin="0,10,0,10" />
+                                       Margin="0,10,0,10" />-->
          <EgtBEAMWALL:OnlyProdOptimizePanelV Grid.Column="1"
                                              DataContext="{StaticResource OptimizePanelVM}"
                                              Visibility="{Binding DataContext.OnlyProdOptimizePanel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"
                                              Margin="40,10,0,10"/>
-         <EgtBEAMWALL:OnlyProdStatisticsTimePanelV Grid.Column="2"
+         <!--<EgtBEAMWALL:OnlyProdStatisticsTimePanelV Grid.Column="2"
                                                    DataContext="{StaticResource StatisticsTimePanelVM}"
                                                    Tag="{Binding DataContext, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"
-                                                   Margin="150,10,0,10"/>
+                                                   Margin="150,10,0,10"/>-->
       </Grid>
    </EgtFloating:EgtFloatingTray>
 
@@ -32,21 +32,42 @@
          <RowDefinition Height="Auto"/>
          <RowDefinition Height="{Binding GridDims[1].GridLen, Mode=TwoWay}"/>
       </Grid.RowDefinitions>
-      <Grid>
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="{Binding GridDims[2].GridLen, Mode=TwoWay}"/>
+         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="{Binding GridDims[3].GridLen, Mode=TwoWay}"/>
+      </Grid.ColumnDefinitions>
+      <!--<Grid>
          <Grid.ColumnDefinitions>
             <ColumnDefinition Width="{Binding GridDims[2].GridLen, Mode=TwoWay}"/>
             <ColumnDefinition Width="Auto"/>
             <ColumnDefinition Width="{Binding GridDims[3].GridLen, Mode=TwoWay}"/>
-         </Grid.ColumnDefinitions>
-         <EgtBEAMWALL:OnlyProdLeftPanelV DataContext="{StaticResource LeftPanelVM}"
+         </Grid.ColumnDefinitions>-->
+      <EgtBEAMWALL:OnlyProdLeftPanelV DataContext="{StaticResource LeftPanelVM}"
                                          Tag="{Binding DataContext.BTLStructureVM, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"
                                          Visibility="{Binding DataContext.OnlyProdLeftPanel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
-         
-         <GridSplitter Grid.Column="1"
-                       Style="{StaticResource Width_GridSplitter}"
-                       Background="Transparent"/>
-         
-         <Grid Grid.Column="2">
+
+      <GridSplitter Grid.Column="1"
+                    Grid.RowSpan="4"
+                    Style="{StaticResource Width_GridSplitter}"/>
+
+      <WrapPanel Grid.Column="2"
+                 Width="{Binding ActualWidth, ElementName=TOPTRAY}"
+                 Style="{StaticResource OnlyProdProject_WrapPanel}">
+         <EgtBEAMWALL:OnlyProdInstrumentPanelV TitleBarOrientation="Vertical" 
+                                               DataContext="{StaticResource InstrumentPanelVM}"/>
+         <EgtBEAMWALL:OnlyProdCalcPanelV TitleBarOrientation="Vertical" 
+                                         DataContext="{StaticResource CALCPanelVM}"/>
+         <EgtBEAMWALL:OnlyProdSpecialPanelV TitleBarOrientation="Vertical" 
+                                            DataContext="{StaticResource SpecialPanelVM}"
+                                                  Visibility="{Binding DataContext.SpecialPanel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
+         <EgtBEAMWALL:OnlyProdFreeContourManagerV TitleBarOrientation="Vertical" 
+                                                  DataContext="{StaticResource FreeContourManagerVM}"
+                                                  Visibility="{Binding DataContext.FreeContourManager_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
+      </WrapPanel>
+
+      <!--<Grid Grid.Column="2">
             <Grid.RowDefinitions>
                <RowDefinition Height="Auto"/>
                <RowDefinition Height="1*"/>
@@ -71,25 +92,68 @@
             
             <EgtBEAMWALL:SceneHostV Grid.Row="1"/>
 
-         </Grid>
-      </Grid>
+         </Grid>-->
+      <!--</Grid>-->
 
       <GridSplitter Grid.Row="1" 
+                    Grid.ColumnSpan="3"
                     Style="{StaticResource Height_GridSplitter}"/>
 
+      <EgtBEAMWALL:ProdProjManagerV Grid.Row="2" Visibility="Collapsed" Tag="{Binding DataContext, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
+
       <Grid Grid.Row="2">
+         <Grid.RowDefinitions>
+            <RowDefinition Height="1*"/>
+         </Grid.RowDefinitions>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="Auto"/>
+         </Grid.ColumnDefinitions>
+         <WrapPanel Grid.Column="1"
+                    Width="{Binding ActualWidth, ElementName=TOPTRAY}"
+                    Style="{StaticResource OnlyProdProject_WrapPanel}">
+            <EgtBEAMWALL:OnlyProdShowPanelV TitleBarOrientation="Vertical" DataContext="{StaticResource ShowPanelVM}"/>
+            <EgtBEAMWALL:OnlyProdShowBeamPanelV TitleBarOrientation="Vertical" DataContext="{StaticResource ShowBeamPanelVM}"
+                                                Visibility="{Binding DataContext.ShowBeamPanel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
+            <EgtBEAMWALL:OnlyProdViewPanelV TitleBarOrientation="Vertical" DataContext="{StaticResource ViewPanelVM}"/>
+         </WrapPanel>
+
+         <EgtBEAMWALL:SceneHostV/>
+
+      </Grid>
+
+      <Grid Grid.Row="2" Grid.Column="2" Grid.ColumnSpan="2">
+         <Grid.RowDefinitions>
+            <RowDefinition Height="{Binding GridDims[4].GridLen, Mode=TwoWay}"/>
+            <RowDefinition Height="Auto"/>
+            <RowDefinition Height="{Binding GridDims[5].GridLen, Mode=TwoWay}"/>
+         </Grid.RowDefinitions>
+
+         <EgtBEAMWALL:RawPartManagerWndV Tag="{Binding DataContext, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
+
+         <GridSplitter Grid.Row="1"
+                       Grid.ColumnSpan="2"
+                       Style="{StaticResource Height_GridSplitter}"/>
+
+         <EgtBEAMWALL:PartInRawPartManagerWndV Grid.Row="2" 
+                                               Tag="{Binding DataContext, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
+
+      </Grid>
+
+      <!--<Grid Grid.Row="2">
          <Grid.ColumnDefinitions>
             <ColumnDefinition Width="{Binding GridDims[4].GridLen, Mode=TwoWay}"/>
             <ColumnDefinition Width="Auto"/>
             <ColumnDefinition Width="{Binding GridDims[5].GridLen, Mode=TwoWay}"/>
          </Grid.ColumnDefinitions>
 
-         <EgtBEAMWALL:ProdProjManagerV Tag="{Binding DataContext, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
+         -->
+      <!--<EgtBEAMWALL:ProdProjManagerV Tag="{Binding DataContext, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>-->
 
-         <GridSplitter Grid.Column="1"
-                       Style="{StaticResource Width_GridSplitter}"/>
+      <!--<GridSplitter Grid.Column="1" Background="Red"
+                       Style="{StaticResource Width_GridSplitter}"/>-->
 
-         <Grid Grid.Column="2">
+      <!--<Grid Grid.Column="2">
             <Grid.RowDefinitions>
                <RowDefinition Height="{Binding GridDims[6].GridLen, Mode=TwoWay}"/>
                <RowDefinition Height="Auto"/>
@@ -105,8 +169,9 @@
             <EgtBEAMWALL:PartInRawPartManagerWndV Grid.Row="2" 
                                                   Tag="{Binding DataContext, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdProjectV}}}"/>
 
-         </Grid>
-      </Grid>
+         </Grid>-->
+      <!--
+      </Grid>-->
    </Grid>
 
 </EgtFloating:EgtFloatingManager>

EgtBEAMWALL.ViewerOptimizer/Project/ProjectVM.vb

@@ -99,7 +99,7 @@ Public Class ProjectVM
    Private m_PartManager_Visibility As Boolean = True
    Public ReadOnly Property PartManager_Visibility As Visibility
       Get
-         Return If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Map.refProjectVM.BTLStructureVM.SelectionType = BTLStructureVM.SelectionTypes.SELECT_ AndAlso Not Map.refFreeContourManagerVM.bIsActive, Visibility.Visible, Visibility.Collapsed)
+         Return If(Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Map.refProjectVM.BTLStructureVM.SelectionType = BTLStructureVM.SelectionTypes.SELECT_ AndAlso Not Map.refFreeContourManagerVM.bIsActive, Visibility.Visible, Visibility.Collapsed)
       End Get
    End Property
 

EgtBEAMWALL.ViewerOptimizer/RawPartManager/RawPartManagerVM.vb

@@ -1,4 +1,5 @@
 Imports System.Data.Entity.ModelConfiguration.Configuration.Properties
+Imports System.IO
 Imports EgtBEAMWALL.Core
 Imports EgtUILib
 Imports EgtWPFLib5
@@ -143,8 +144,32 @@ Public Class RawPartManagerVM
          Map.refCALCPanelVM.Verify()
          Return
       End If
-      If Not Produce(Map.refMachGroupPanelVM.SelectedMachGroup, ErrorMsg) AndAlso Not String.IsNullOrWhiteSpace(ErrorMsg) Then
-         MessageBox.Show(ErrorMsg)
+      ' verifico se modalita' supervisore attiva
+      If GetPrivateProfileInt(S_GENERAL, K_SUPERVISOR, 1, CurrentMachine.sMachIniFile) = 1 Then
+         If Not Produce(Map.refMachGroupPanelVM.SelectedMachGroup, ErrorMsg) AndAlso Not String.IsNullOrWhiteSpace(ErrorMsg) Then
+            MessageBox.Show(ErrorMsg)
+         End If
+      Else
+         ' altrimenti lo copio se path disponibile
+         If Map.refMachGroupPanelVM.SelectedMachGroup.nGlobalState = CalcStates.OK Or Map.refMachGroupPanelVM.SelectedMachGroup.nGlobalState = CalcStates.INFO Then
+            Dim sSaveCncPath As String = ""
+            GetPrivateProfileString(S_GENERAL, K_SAVECNCPATH, "", sSaveCncPath, CurrentMachine.sMachIniFile)
+            Dim sSaveExt As String = ""
+            GetPrivateProfileString(S_GENERAL, K_SAVEEXT, "", sSaveExt, CurrentMachine.sMachIniFile)
+            If String.IsNullOrWhiteSpace(sSaveExt) Then
+               sSaveExt = ".cnc"
+            ElseIf sSaveExt(0) <> "." Then
+               sSaveExt = "." & sSaveExt
+            End If
+            Try
+               Dim sMachGroupFilePath As String = Map.refProdManagerVM.CurrProd.sProdDirPath & "\" & Map.refMachGroupPanelVM.SelectedMachGroup.Name.ToString() & ".cnc"
+               Dim sNewPath As String = sSaveCncPath & "\" & Map.refProdManagerVM.CurrProd.sProdId & "-" & Map.refMachGroupPanelVM.SelectedMachGroup.Name.ToString() & sSaveExt
+               File.Copy(sMachGroupFilePath, sNewPath, True)
+               MessageBox.Show(String.Format("File copied! You can find it at {0}", {sNewPath}), "Info", MessageBoxButton.OK, MessageBoxImage.Information)
+            Catch ex As Exception
+               MessageBox.Show(String.Format("Copy to {0} folder failed!", {sSaveCncPath}), "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+            End Try
+         End If
       End If
    End Sub
 
@@ -210,12 +235,43 @@ Public Class RawPartManagerVM
       End If
       If Map.refMachGroupPanelVM.MachGroupVMList.Count > 0 Then
          Dim MachgroupErrorList As New List(Of MachGroupVM)
+         Dim sErrorMessage As String = ""
+         Dim bErrorMessage As Boolean = False
          For Each Machgroup In Map.refMachGroupPanelVM.MachGroupVMList
-            Dim ErrorMsg As String = ""
-            If Not Produce(Machgroup, ErrorMsg) AndAlso Not String.IsNullOrWhiteSpace(ErrorMsg) Then
-               MachgroupErrorList.Add(Machgroup)
+            ' verifico se modalita' supervisore attiva
+            If GetPrivateProfileInt(S_GENERAL, K_SUPERVISOR, 1, CurrentMachine.sMachIniFile) = 1 Then
+               Dim ErrorMsg As String = ""
+               If Not Produce(Machgroup, ErrorMsg) AndAlso Not String.IsNullOrWhiteSpace(ErrorMsg) Then
+                  MachgroupErrorList.Add(Machgroup)
+               End If
+            Else
+               ' altrimenti lo copio se path disponibile
+               If Map.refMachGroupPanelVM.SelectedMachGroup.nGlobalState = CalcStates.OK Or Map.refMachGroupPanelVM.SelectedMachGroup.nGlobalState = CalcStates.INFO Then
+                  Dim sSaveCncPath As String = ""
+                  GetPrivateProfileString(S_GENERAL, K_SAVECNCPATH, "", sSaveCncPath, CurrentMachine.sMachIniFile)
+                  Dim sSaveExt As String = ""
+                  GetPrivateProfileString(S_GENERAL, K_SAVEEXT, "", sSaveExt, CurrentMachine.sMachIniFile)
+                  If String.IsNullOrWhiteSpace(sSaveExt) Then
+                     sSaveExt = ".cnc"
+                  ElseIf sSaveExt(0) <> "." Then
+                     sSaveExt = "." & sSaveExt
+                  End If
+                  If String.IsNullOrWhiteSpace(sSaveCncPath) OrElse Not Directory.Exists(sSaveCncPath) Then Return
+                  Try
+                     Dim sMachGroupFilePath As String = Map.refProdManagerVM.CurrProd.sProdDirPath & "\" & Machgroup.Name.ToString() & ".cnc"
+                     Dim sNewPath As String = sSaveCncPath & "\" & Map.refProdManagerVM.CurrProd.sProdId & "-" & Machgroup.Name.ToString() & sSaveExt
+                     File.Copy(sMachGroupFilePath, sNewPath, True)
+                     sErrorMessage &= String.Format("File copied! You can find it at {0}", {sNewPath}) & Environment.NewLine
+                  Catch ex As Exception
+                     sErrorMessage &= String.Format("Copy to {0} folder failed!", {sSaveCncPath}) & Environment.NewLine
+                  End Try
+               End If
             End If
          Next
+         If Not String.IsNullOrWhiteSpace(sErrorMessage) Then
+            sErrorMessage = "Results for all the parts generated:" & Environment.NewLine & sErrorMessage
+            MessageBox.Show(sErrorMessage, If(bErrorMessage, "Error", "Info"), MessageBoxButton.OK, MessageBoxImage.Information)
+         End If
          If MachgroupErrorList.Count > 0 Then
             Dim sMachGroups As String = ""
             For Each MachGroup In MachgroupErrorList

EgtBEAMWALL.ViewerOptimizer/ShowBeamPanel/OnlyProdShowBeamPanelV.xaml

@@ -3,7 +3,7 @@
                               xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
                               xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
                               IsTopDockable="True" IsBottomDockable="False" IsLeftDockable="False"
-                              IsRightDockable="False" 
+                              IsRightDockable="False"
                               Style="{StaticResource ToolBar_EgtFloatingPanel_OnlyProd}">
 
    <Button Command="{Binding ShowAll_Command}"

EgtBEAMWALL.ViewerOptimizer/Utility/Dictionary.xaml

@@ -2148,6 +2148,17 @@
       <Setter Property="Width" Value="70"/>
    </Style>
 
+   <Style x:Key="Radio_ToggleButton" TargetType="{x:Type ToggleButton}" BasedOn="{StaticResource OldStyle_ToggleButton}">
+      <Setter Property="Height" Value="30"/>
+      <Setter Property="Width" Value="30"/>
+      <Setter Property="Background" Value="#E0E0E0"/>
+      <Style.Resources>
+         <Style TargetType="Border">
+            <Setter Property="CornerRadius" Value="0"/>
+         </Style>
+      </Style.Resources>
+   </Style>
+
    <!--#endregion ToggleButton Style--> 
    
    <!--#region TextBox-->
@@ -2510,7 +2521,7 @@
    <Style x:Key="ToolBarOnlyProdManagerNew_Button" TargetType="{x:Type Button}" BasedOn="{StaticResource OnlyProd_Button}">
       <Setter Property="Height" Value="30"/>
       <Setter Property="Width" Value="30"/>
-      <Setter Property="Margin" Value="120,2.5,2.5,2.5"/>
+      <Setter Property="Margin" Value="2,2.5,2.5,2.5"/>
    </Style>
 
    <Style x:Key="ToolBarOnlyProdManagerGoToSupervisor_Button" TargetType="{x:Type Button}" BasedOn="{StaticResource OnlyProd_Button}">
@@ -2675,18 +2686,6 @@
 
    <!--#region ToggleButton Style-->
 
-   <Style x:Key="Radio_ToggleButton" TargetType="{x:Type ToggleButton}" BasedOn="{StaticResource {x:Type ToggleButton}}">
-      <Setter Property="Height" Value="30"/>
-      <Setter Property="Width" Value="30"/>
-      <Setter Property="Background" Value="#E0E0E0"/>
-      <Setter Property="BorderThickness" Value="0"/>
-      <Style.Resources>
-         <Style TargetType="Border">
-            <Setter Property="CornerRadius" Value="0"/>
-         </Style>
-      </Style.Resources>
-   </Style>
-
    <Style x:Key="ToolBarOnlyProdPage_ToggleButton" TargetType="{x:Type ToggleButton}" BasedOn="{StaticResource {x:Type ToggleButton}}">
       <Setter Property="Height" Value="30"/>
       <Setter Property="Width" Value="30"/>
@@ -2862,7 +2861,7 @@
    <!--#region EgtCustomWindow-->
 
    <Style x:Key="OnlyProd_EgtCustomWindow" TargetType="{x:Type EgtWPFLib5:EgtCustomWindow}" BasedOn="{StaticResource {x:Type EgtWPFLib5:EgtCustomWindow}}">
-      <Setter Property="TitleBarHeight" Value="32"/>
+      <Setter Property="TitleBarHeight" Value="40"/>
       <Setter Property="TitleBarBrush" Value="{StaticResource BeamWall_Glacier}"/>
       <Setter Property="BorderBrush" Value="{StaticResource BeamWall_Kashmir}"/>
       <Setter Property="TitleBarForeground" Value="{StaticResource BeamWall_White}"/>
@@ -3258,10 +3257,7 @@
    <!--#region WrapPanel-->
 
    <Style x:Key="OnlyProdProject_WrapPanel" TargetType="{x:Type WrapPanel}">
-      <Setter Property="Orientation" Value="Horizontal"/>
-      <Setter Property="HorizontalAlignment" Value="Center"/>
-      <Setter Property="Margin" Value="5"/>
-      <Setter Property="Grid.ColumnSpan" Value="2"/>
+      <Setter Property="Orientation" Value="Vertical"/>
    </Style>
 
    <Style x:Key="MacroCustom_WrapPanel" TargetType="{x:Type WrapPanel}">