Gestione StartPoint per tagli WJ InLoop

CadCuts/NestPageUC.xaml.vb

@@ -352,7 +352,7 @@ Public Class NestPageUC
          ' recupero il nome del Layer
          EgtGetName(nIdParent, sLayer)
          ' solo se il nome del layer è quello associato ad un lato esterno allora procedo con l'evidenziazione
-         If sLayer = NAME_OUTLOOP Then
+         If sLayer = NAME_OUTLOOP Or sLayer = NAME_INLOOP Then
             If EgtGetType(nIdMy) = GDB_TY.CRV_ARC OrElse EgtGetType(nIdMy) = GDB_TY.CRV_COMPO OrElse EgtGetType(nIdMy) = GDB_TY.CRV_LINE Then
                ' verifico che il contorno sia chiuso, altrimenti esco
                If Not VerifyOutLoopIsClosed(nIdParent) Then
@@ -364,8 +364,10 @@ Public Class NestPageUC
                Dim nIdPV As Integer = EgtGetFirstNameInGroup(nIdParentPart, "PV")
                ' VERIFICA: recupero l'elenco delle Preview di Tipo WaterJet_n_S associate a questo Part
                Dim ListGroup As List(Of Integer) = ResearchGropuWJ(nIdParent, nIdPV)
+               ' VERIFICA: se esistono delle lavorazioni associate al percorso OutLoop di tipo Saw allora non procedo
+               Dim ListGroupSaw As List(Of Integer) = ResearchGropuSaw(nIdParent, nIdPV)
                ' se non esiste almeno 1 Preview di tipo WaterJet
-               If ListGroup.Count <> EgtGetGroupObjs(nIdParent) Then
+               If ListGroup.Count = 1 And ListGroupSaw.Count = 0 Then
                   EgtSetInfo(nIdParent, "Start", ptStartCurv)
                   ' Ricalcolo tutte le lavorazioni
                   Dim nWarn As Integer = 0