Nicola Pievani
d950fc1060
-> nuova definizione dei pezzi (classe Part) -> nuova gestione dei magazzini -> aggiunta pagina per la selezione dei pezzi manuali -> nuova configurazione delle variabili.
45 lines
1.5 KiB
VB.net
45 lines
1.5 KiB
VB.net
Imports EgtUILib
|
|
|
|
Module EstProject
|
|
|
|
Public Function FilterNge() As Boolean
|
|
' Rimuovo eventuali gruppi con livello System
|
|
Dim nId As Integer = EgtGetFirstGroupInGroup(GDB_ID.ROOT)
|
|
While nId <> GDB_ID.NULL
|
|
' Recupero il prossimo gruppo
|
|
Dim nNextId = EgtGetNextGroup(nId)
|
|
' Verifico il livello e se necessario cancello
|
|
Dim nLevel As Integer = GDB_LV.USER
|
|
EgtGetLevel(nId, nLevel)
|
|
If nLevel = GDB_LV.SYSTEM Then
|
|
EgtErase(nId)
|
|
End If
|
|
' Passo al prossimo gruppo
|
|
nId = nNextId
|
|
End While
|
|
' Processo i sottogruppi, se di livello System li rimuovo altrimenti ne cancello il nome
|
|
Dim nGrpId As Integer = EgtGetFirstGroupInGroup(GDB_ID.ROOT)
|
|
While nGrpId <> GDB_ID.NULL
|
|
' Ciclo sui sottogruppi
|
|
Dim nSubId As Integer = EgtGetFirstGroupInGroup(nGrpId)
|
|
While nSubId <> GDB_ID.NULL
|
|
' Recupero il prossimo sottogruppo
|
|
Dim nNextSubId = EgtGetNextGroup(nSubId)
|
|
' Verifico il livello, eventuale cancellazione o rimozione nome
|
|
Dim nLevel As Integer = GDB_LV.USER
|
|
EgtGetLevel(nSubId, nLevel)
|
|
If nLevel = GDB_LV.SYSTEM Then
|
|
EgtErase(nSubId)
|
|
Else
|
|
EgtRemoveName(nSubId)
|
|
End If
|
|
nSubId = nNextSubId
|
|
End While
|
|
' Passo al prossimo gruppo
|
|
nGrpId = EgtGetNextGroup(nGrpId)
|
|
End While
|
|
Return True
|
|
End Function
|
|
|
|
End Module
|