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
}
}
///
- /// 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)
///
///
///