and also the code that must always be inserted in macropump which both writes the label only once and changes the text of the label when the tool number changes when changing from the panel
' CODICE PRECEDENTE
' Definisci una variabile per memorizzare l'ultimo numero utensile (usa DRO 2005 come variabile persistente)
Dim lastToolNumber As Integer
lastToolNumber = GetoemDRO(1225) ' Leggi il valore persistente da DRO 1225
' Definisci una variabile per memorizzare il numero utensile corrente
Dim currentToolNumber As Integer
' Controllo del numero utensile all'inizio (solo se GetUserLabel(123) è vuoto)
If GetUserLabel(123) = "" Then
' Leggi il numero utensile corrente
currentToolNumber = GetDRO(24)
' Esegui il comando
SetUserLabel(123, GetToolDesc(currentToolNumber))
' Aggiorna la variabile persistente con il nuovo numero utensile
SetDRO(1225, currentToolNumber)
lastToolNumber = currentToolNumber
End If
' Controllo se il numero utensile è cambiato (solo se necessario)
currentToolNumber = GetDRO(24) ' Leggi il valore corrente
If currentToolNumber <> lastToolNumber Then
' Esegui il comando solo se il numero utensile è cambiato
SetUserLabel(123, GetToolDesc(currentToolNumber))
' Aggiorna la variabile persistente con il nuovo numero utensile
lastToolNumber = currentToolNumber
End If
' RESTO DEL CODICE