EgtCAM5 :

- Aggiunto bottoni per mandare mail all'assistenza in TopCommandBar.
- Corretta visualizzazione tooltip in setup quando caricato da archivio.

SetUpWindow/SetUpViewModel.vb

@@ -332,6 +332,7 @@ Namespace EgtCAM5
                                        ' vi metto l'utensile e segno l'uscita come occupata
                                        CurrExitToolAss.Tool = TempTool
                                        CurrExitToolAss.IsOccupied = True
+                                       CurrExitToolAss.NotifyPropertyChanged("ToolTipMsg")
                                        ' lo metto anche come utensile originale
                                        If bOriginal Then CurrExitToolAss.OrigTool = TempTool
                                        Exit For
@@ -344,17 +345,17 @@ Namespace EgtCAM5
                         Else
                            Dim sSearchedTool As String = String.Empty
                            EgtTdbGetToolFromUUID(sToolList(ToolIndex), sSearchedTool)
-                           MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 3) & " " & sSearchedTool & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
+                           If Not String.IsNullOrWhiteSpace(sSearchedTool) Then
+                              MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 3) & " " & sSearchedTool & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
+                           Else
+                              MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 3) & " " & EgtMsg(MSG_SETUPERRORS + 4), EgtMsg(MSG_SETUPERRORS + 2), MessageBoxButton.OK, MessageBoxImage.Error)
+                           End If
                         End If
                      End If
                   Next
                End If
-               ' non è presente la H, quindi la recupero dal modello delle posizioni nel file MachIni 
-            Else
-               ''CreateStdPosFromPosIndex(nIndex)
             End If
          End If
-
       End Sub
 
       '' Funzione che dati l'indice della posizione e la sua stringa di attrezzaggio, carica l'attrezzaggio descritto
@@ -1106,9 +1107,62 @@ Public Class Position
          End If
          ' altrimenti le disattivo tutte
       Else
-         For ExitIndex = 0 To ExitToolAssociationList.Count - 1
-            ExitToolAssociationList(ExitIndex).IsEnabledPos = False
-         Next
+         EgtLuaSetGlobStringVar("STU.HEAD1", sHead)
+         EgtLuaSetGlobStringVar("STU.HEAD2", Head)
+         Dim x = EgtLuaCallFunction("STU.IsCompatibleHeads")
+         ' Leggo variabili
+         Dim bIsValid As Boolean = False
+         EgtLuaGetGlobBoolVar("STU.ISVALID", bIsValid)
+         nErr = 999
+         EgtLuaGetGlobIntVar("STU.ERR", nErr)
+         If nErr <> 0 Then
+            ' disattivo tutte le uscite tranne quelle attrezzate
+            For ExitIndex = 0 To ExitToolAssociationList.Count - 1
+               If ExitToolAssociationList(ExitIndex).IsOccupied Then
+                  ExitToolAssociationList(ExitIndex).IsEnabledPos = True
+                  ExitToolAssociationList(ExitIndex).IsValidPos = False
+               Else
+                  ExitToolAssociationList(ExitIndex).IsEnabledPos = False
+               End If
+            Next
+            Dim sToolName As String = String.Empty
+            EgtTdbGetToolFromUUID(TUuid, sToolName)
+            EgtOutLog("Error in setup! Tool:" & sToolName & " TcPos: " & m_TcPos)
+            Return
+         End If
+         If bIsValid Then
+            ' se l'uscita restituita è libera la attivo e disattivo tutte le altre non occupate
+            If Not ExitToolAssociationList(nExit - 1).IsOccupied Then
+               For ExitIndex = 0 To ExitToolAssociationList.Count - 1
+                  If ExitIndex = nExit - 1 Then
+                     ExitToolAssociationList(ExitIndex).IsEnabledPos = True
+                     ExitToolAssociationList(ExitIndex).IsValidPos = True
+                  ElseIf ExitToolAssociationList(ExitIndex).IsOccupied Then
+                     ExitToolAssociationList(ExitIndex).IsValidPos = False
+                  Else
+                     ExitToolAssociationList(ExitIndex).IsEnabledPos = False
+                  End If
+               Next
+               ' altrimenti le disattivo tutte tranne quelle occupate
+            Else
+               For ExitIndex = 0 To ExitToolAssociationList.Count - 1
+                  If ExitToolAssociationList(ExitIndex).IsOccupied Then
+                     ExitToolAssociationList(ExitIndex).IsEnabledPos = True
+                     If ExitIndex = nExit - 1 Then
+                        ExitToolAssociationList(ExitIndex).IsValidPos = True
+                     Else
+                        ExitToolAssociationList(ExitIndex).IsValidPos = False
+                     End If
+                  Else
+                     ExitToolAssociationList(ExitIndex).IsEnabledPos = False
+                  End If
+               Next
+            End If
+         Else
+            For ExitIndex = 0 To ExitToolAssociationList.Count - 1
+               ExitToolAssociationList(ExitIndex).IsEnabledPos = False
+            Next
+         End If
       End If
 
    End Sub
@@ -1201,9 +1255,13 @@ Public Class ExitToolAssociation
          If IsNothing(m_IsValidPos) Then
             Return New SolidColorBrush(Color.FromArgb(255, 221, 221, 221))
          ElseIf m_IsValidPos Then
-            Return EgaltechGreen
+            If m_IsOccupied Then
+               Return EgaltechYellow
+            Else
+               Return EgaltechGreen
+            End If
          Else
-            Return EgaltechYellow
+            Return New SolidColorBrush(Color.FromArgb(255, 221, 221, 221))
          End If
       End Get
    End Property