Emmanuele Sassi
130e41ba9a
- Aggiunta gestione pannello macchina. - Aggiunti Db utensili e lavorazioni. - Aggiunte opzioni macchina. - Aggiunto menù recenti su apri progetto. - Aggiunte verifiche compatibilità tra Db utensili, Db lavorazioni, attrezzaggio, lavorazioni correnti, materiale e spessore. - Migliorie varie.
44 lines
1.4 KiB
VB.net
44 lines
1.4 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class MySetUpWindowVM
|
|
Inherits SetUpWindowVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(sMachineDir As String, sMachineName As String)
|
|
MyBase.New(sMachineDir, sMachineName)
|
|
End Sub
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
' Funzione che crea la lista di utensili utilizzati dal gruppo di lavorazione corrente
|
|
Public Overrides Sub CreateUsedToolList(UsedToolList As List(Of String))
|
|
' Lama
|
|
Dim sTuuid As String = String.Empty
|
|
If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrSawing) Then
|
|
EgtMdbSetCurrMachining(CurrentMachine.sCurrSawing)
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
UsedToolList.Add(sTuuid)
|
|
End If
|
|
' Fresa
|
|
If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrMilling) Then
|
|
EgtMdbSetCurrMachining(CurrentMachine.sCurrMilling)
|
|
sTuuid = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
UsedToolList.Add(sTuuid)
|
|
End If
|
|
' Foretto
|
|
If Not String.IsNullOrWhiteSpace(CurrentMachine.sCurrDrilling) Then
|
|
EgtMdbSetCurrMachining(CurrentMachine.sCurrDrilling)
|
|
sTuuid = String.Empty
|
|
EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
UsedToolList.Add(sTuuid)
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|