From d7b55ef3365eab3df28f70b2a017a6d55be25523 Mon Sep 17 00:00:00 2001
From: "Samuele E. Locatelli" <samuele@steamware.net>
Date: Thu, 29 Jun 2017 14:46:25 +0200
Subject: [PATCH] ok completata lettura dei codifi G del PRIMO path (ora da
 implementare multi path...)

---
 MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
index 77621a2..8055de0 100644
--- a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
+++ b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
@@ -1069,12 +1069,8 @@ Namespace CNC
             ' RIFERIMENTO: 
             ' txt Giuseppe
 
-            ReDim itemRead(1)
-            itemRead(0) = New Item("/Channel/SelectedFunctions/ncFktAct[u1,1]")  ' leggo primo proc...
-            itemRead(1) = New Item("/Channel/SelectedFunctions/ncFktAct[u1,2]")  ' leggo primo proc...
-            'itemRead(3) = New Item("DB253.DBW100:[" & numVal & "]")     'tabFamUt
-            'itemRead(4) = New Item("DB253.DBB1900:[" & numVal & "]")    'tabTipoVitaRes
-            'itemRead(5) = New Item("DB253.DBD4300:[" & numVal & "]")    'tabVitaRes
+            ReDim itemRead(0)
+            itemRead(0) = New Item("/Channel/SelectedFunctions/ncFktAct[u1,1,#64]")  ' leggo TUTTI i 64 gruppi...
 
             Do
                 Try
@@ -1088,8 +1084,8 @@ Namespace CNC
             Loop
 
             ' faccio copia valori!
-            For i As Integer = 0 To itemRead.Length - 1
-                GCodeCurr(i) = itemRead(i).Value
+            For i As Integer = 0 To 63
+                GCodeCurr(i) = itemRead(0).Value(i)
             Next i
 
             ' chiudo!