(*
uuid_anzeigen.scpt

Zeigt Name, Typ und UUID des aktuell ausgewählten DEVONthink-Objekts an.
Die UUID wird zusätzlich in die Zwischenablage kopiert.

Zweck:
- Diagnose
- manuelles Nachschlagen einer DEVONthink-UUID
- Vorbereitung für das manuelle Aktualisieren von BELEGE_ROOT_UUID
*)

tell application id "DNtp"
	set sel to selection
	if sel is {} then error "Bitte zuerst ein Objekt in DEVONthink auswählen."
	
	set r to item 1 of sel
	
	set recName to name of r as text
	
	try
		set recType to type of r as text
	on error
		set recType to "unbekannt"
	end try
	
	set recUUID to uuid of r as text
end tell

set the clipboard to recUUID

display dialog "Ausgewähltes Objekt:" & return & return & ¬
	"Name: " & recName & return & ¬
	"Typ: " & recType & return & ¬
	"UUID: " & recUUID & return & return & ¬
	"Die UUID wurde in die Zwischenablage kopiert." buttons {"OK"} default button "OK"