From a81a7f8d9e30842c9905b331d6ec9cab6b35c19e Mon Sep 17 00:00:00 2001 From: NicolaP Date: Mon, 12 Sep 2022 14:54:54 +0200 Subject: [PATCH] =?UTF-8?q?Correzione=20gestione=20importazione=20di=20pi?= =?UTF-8?q?=C3=B9=20pezzi=20DXF?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- DrawImport/ImportPageUC.xaml.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/DrawImport/ImportPageUC.xaml.vb b/DrawImport/ImportPageUC.xaml.vb index ab823b0..85b9294 100644 --- a/DrawImport/ImportPageUC.xaml.vb +++ b/DrawImport/ImportPageUC.xaml.vb @@ -809,7 +809,7 @@ Public Class ImportPageUC PartId = EgtGetNextPart(PartId) End While - ' identificativo univoico del gruppo di pezzi, se più di un pezzo + ' identificativo univoico del gruppo di pezzi, se più di un "Repeat" Dim sGUICode As New List(Of String) ' Scrivo testi per nesting @@ -851,6 +851,7 @@ Public Class ImportPageUC EgtInsertFile(sTmpFile) Dim FirstOfImport As Integer = EgtGetNextPart(nFirst2Id) + If FirstOfImport = GDB_ID.NULL Then FirstOfImport = EgtGetFirstPart() Dim Index As Integer = 1 While FirstOfImport <> GDB_ID.NULL And Index <= sGUICode.Count If Not String.IsNullOrEmpty(sGUICode(Index - 1)) Then @@ -887,6 +888,7 @@ Public Class ImportPageUC ' Passo al pezzo successivo nId = EgtGetNextPart(nId) End While + ' Ciclo sui pezzi inseriti nId = nFirstId While nId <> GDB_ID.NULL