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!