Aggiunto bozza lettura sysinfo

CncLib/CNC/CNC.FANUC/CNC.FANUC.vb

@@ -1496,9 +1496,37 @@ Namespace CNC
 #Region "Funzioni specifiche IOT"
 
 
+    Public Function getSysInfo() As Focas1.ODBSYS
+      ' RIFERIMENTO: 
+      '...
+
+      Dim nPathIdx As Integer
+      Dim nReturn As Integer
+
+      Dim sysInfo As Focas1.ODBSYS
+
+      sysInfo = New Focas1.ODBSYS
+
+      'leggo il numero del processo attivo
+      nPathIdx = GetActivePath()
+
+      If Is30Series Then
+
+        ' leggo tutto!!!
+        nReturn = Focas1.cnc_sysinfo(nLibHandle(nPathIdx), sysInfo)
+
+        If F_CheckRetError_Cnc(nReturn, "cnc_sysinfo CNC.FANUC.CncLib") Then
+          Throw New NcException("ERR cnc_sysinfo CNC.FANUC.CncLib")
+        End If
+      End If
+
+      Return sysInfo
+
+    End Function
+
     Public Function getPrgName() As Focas1.ODBEXEPRG
       ' RIFERIMENTO: 
-      ' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdposition.htm
+      '...
 
       Dim nPathIdx As Integer
       Dim nReturn As Integer