From abf66653e251d920826d8b9dbd11fa483df4fa4d Mon Sep 17 00:00:00 2001
From: "Samuele E. Locatelli" <samuele@steamware.net>
Date: Thu, 2 Nov 2017 17:03:15 +0100
Subject: [PATCH] update x test recupero program name MAIN

---
 CncLib/CNC/CNC.FANUC/CNC.FANUC.vb | 28 ++++++++++++++++++++++++++++
 IOB-WIN/IobFanuc.cs               | 14 ++++++++++++++
 IOB-WIN/Readme/ToDo.txt           | 16 +++++++++++++++-
 IOB-WIN/utils.cs                  |  2 +-
 4 files changed, 58 insertions(+), 2 deletions(-)

diff --git a/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb b/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb
index a5b1c7de..94bf5707 100644
--- a/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb
+++ b/CncLib/CNC/CNC.FANUC/CNC.FANUC.vb
@@ -1524,6 +1524,33 @@ Namespace CNC
 
     End Function
 
+    Public Function getPrgNameMain() As Char()
+      ' RIFERIMENTO: 
+      '...
+
+      Dim nPathIdx As Integer
+      Dim nReturn As Integer
+
+      Dim prgName As Char()
+      prgName = ""
+
+      'leggo il numero del processo attivo
+      nPathIdx = GetActivePath()
+
+      If Is30Series Then
+
+        ' leggo tutto!!!
+        nReturn = Focas1.cnc_pdf_rdmain(nLibHandle(nPathIdx), prgName)
+
+        If F_CheckRetError_Cnc(nReturn, "cnc_pdf_rdmain CNC.FANUC.CncLib") Then
+          Throw New NcException("ERR cnc_pdf_rdmain CNC.FANUC.CncLib")
+        End If
+      End If
+
+      Return prgName
+
+    End Function
+
     Public Function getPrgName() As Focas1.ODBEXEPRG
       ' RIFERIMENTO: 
       '...
@@ -1543,6 +1570,7 @@ Namespace CNC
         ' leggo tutto!!!
         nReturn = Focas1.cnc_exeprgname(nLibHandle(nPathIdx), prgName)
 
+
         If F_CheckRetError_Cnc(nReturn, "cnc_exeprgname CNC.FANUC.CncLib") Then
           Throw New NcException("ERR cnc_exeprgname CNC.FANUC.CncLib")
         End If
diff --git a/IOB-WIN/IobFanuc.cs b/IOB-WIN/IobFanuc.cs
index 018f1511..f08891bf 100644
--- a/IOB-WIN/IobFanuc.cs
+++ b/IOB-WIN/IobFanuc.cs
@@ -290,6 +290,20 @@ namespace IOB_WIN
       {
         lg.Error(exc, "Errore in getPrgName");
       }
+      // se in test butto fuori nUOVA versione prgName...
+      if(utils.CRB("enableTest"))
+      {
+        // recupero NUOVO prgName...
+        try
+        {
+          string nomeMain = utils.purgedChar2String(FANUC_ref.getPrgNameMain());
+          lg.Info("PROG_MAIN: {0}", nomeMain);
+        }
+        catch(Exception exc)
+        {
+          lg.Error(exc, "Eccezione in recupero PRG NAME MAIN");
+        }
+      }
       return prgName;
     }
 
diff --git a/IOB-WIN/Readme/ToDo.txt b/IOB-WIN/Readme/ToDo.txt
index e6c6efb7..99ba9583 100644
--- a/IOB-WIN/Readme/ToDo.txt
+++ b/IOB-WIN/Readme/ToDo.txt
@@ -19,4 +19,18 @@ OK  - gestione dei segnali ballerini (BITMASK!)
      - F001.0: ALARM_PRESENT
      - F001.7: CN_READY / POWER_ON
      - STL000.5: AUTO (vers 1)
-     - STL000.7: AUTO (vers 2)
\ No newline at end of file
+     - STL000.7: AUTO (vers 2)
+
+
+FINIRE SISTEMAZIONE JETCO:
+ - install servers
+ - install DB
+ - conf acquisitore togliendo parti abbozzate x contapezzi/fineciclo
+ - part program name
+
+CREARE NUOVO SW (o configurazione? o ramo alternativo a develop?) x mapping INIZIALE della macchina... ad esempio
+ - si colelga a ns server
+ - chiede cosa deve fare (es mappa memorie D da 0 a 9999)
+ - effettua testing e poi fa upload risultati
+ - il ns sw fa i check/controlli modifica
+in questo modo ad esmepio possiamo cercare i contapezzi, i segnali ceh cambiano con il fineciclo nelle aree Y, i contatori STANDARD nelle memorie D, ...
diff --git a/IOB-WIN/utils.cs b/IOB-WIN/utils.cs
index 3e9c0d6c..e043cc48 100644
--- a/IOB-WIN/utils.cs
+++ b/IOB-WIN/utils.cs
@@ -106,7 +106,7 @@ namespace IOB_WIN
       }
     }
     /// <summary>
-    /// COnverte un array di caratteri in una stringa valida (ovvero SOLO numeri/lettere)
+    /// Converte un array di caratteri in una stringa valida (ovvero SOLO numeri/lettere)
     /// </summary>
     /// <param name="input"></param>
     /// <returns></returns>