show_mail_templates unterscheidet jetzt zwischen Aufruf aus dem Menü autonom) oder Aufruf auf _belegversand.applescript. Probelm danach: In _belegversand wird show_mail_templates entweder als *.scpt (kompiliert) oder *.applescript (Textdatei) aufgerufen. Dateiendungen müssen demnach angepasst werden. Daher Einführung der neuen Funktione on compileAllScripts(basePath) in der Datei _belegversand_setup.applescript.

2026-08-15 20:14:34 +02:00
parent 49291fc2d3
commit 7acdfe8927
4 changed files with 186 additions and 81 deletions
@@ -22,10 +22,16 @@ property defaultWriteDebugLog : false
 property defaultMailBodyFolderName : "mail_vorlagen"
 property defaultMailBodyRecordName : "belegversand"
 property defaultDryRunPreviewPath : "/tmp/DT-Belegversand-preview.txt"
+
+property appVersion : "1.4"
+property basePath : "/Library/Application Scripts/com.devon-technologies.think/Menu/Belegversand"
+
 property configGroupName : "_config"
 property configRecordName : "belegversand.conf"
 property debugLogPath : "/tmp/DT-Belegversand-debug.log"

+property windowTitle : "Belegversand, Vers. " & appVersion
+
 property cfgConfigRecordUUID : missing value
 property cfgMailToDefault : missing value
 property cfgMailCcToDefault : missing value
@@ -505,19 +511,24 @@ on loadConfig()
 end loadConfig

 on runTemplateSelector()
-	set basePath to (do shell script "echo ~") & "/Library/Application Scripts/com.devon-technologies.think/Menu/Belegversand_1-4"
+	set basePath to (do shell script "echo ~") & basePath
 	set scriptPath to basePath & "/Helpers/show_mail_templates.scpt"
 	
-	my writeDebug("Versuche Template-Script zu laden: " & scriptPath)
-	
 	try
 		set loadedScript to load script (POSIX file scriptPath as alias)
-		my writeDebug("Template-Script geladen, starte jetzt...")
-		set templateResult to run loadedScript
-		my writeDebug("Template-Script fertig. Rueckgabe: '" & templateResult & "'")
+		set standaloneMode of loadedScript to false
+		
+		-- DEBUG
+		-- display dialog "standaloneMode gesetzt auf: false" buttons {"OK"}
+		
+		set templateResult to selectTemplate() of loadedScript
+		
+		-- DEBUG
+		-- display dialog "templateResult: " & templateResult buttons {"OK"}
+		
 		return templateResult
 	on error errMsg
-		my writeDebug("FEHLER in runTemplateSelector: " & errMsg)
+		display dialog "FEHLER: " & errMsg buttons {"OK"}
 		return ""
 	end try
 end runTemplateSelector
@@ -838,7 +849,7 @@ on run
 			
 			if (count of toSend) is 0 then error "Alle ausgewählten Belege sind bereits als versendet markiert und werden übersprungen."
 			
-			set drChoice to button returned of (display dialog "Modus waehlen:" buttons {"Dry Run", "Senden (Entwurf erstellen)", "Abbrechen"} default button "Dry Run")
+			set drChoice to button returned of (display dialog windowTitle & return & return & "Modus waehlen:" buttons {"Dry Run", "Senden (Entwurf erstellen)", "Abbrechen"} default button "Dry Run")
 			
 			if drChoice is "Abbrechen" then
 				my writeDebug("User hat Abbrechen geklickt")
@@ -867,7 +878,7 @@ on run
 				set previewPath to my writeDryRunPreviewFile(toSend, theTo)
 				set dryRunText to my dryRunSummaryText(toSend, previewPath)
 				
-				set dryRunChoice to button returned of (display dialog dryRunText buttons {"OK", "Liste im Finder zeigen"} default button "OK")
+				set dryRunChoice to button returned of (display dialog windowTitle & return & return & dryRunText buttons {"OK", "Liste im Finder zeigen"} default button "OK")
 				if dryRunChoice is "Liste im Finder zeigen" then
 					my showDryRunPreviewInFinder(previewPath)
 				end if
@@ -53,6 +53,7 @@ property requiredConfigKey : "BELEGE_ROOT_UUID="
 property mainScriptName : "_belegversand.scpt"
 -- Versionsinformation für README und Hinweise.
 property appVersion : "1.4"
+property basePath : "/Library/Application Scripts/com.devon-technologies.think/Menu/Belegversand"
 -- Default-Werte für die Erstkonfiguration.
 property defaultMailTo : "steuer@name.de"
 property defaultSubjectPrefix : "Unterlagen"
@@ -62,6 +63,69 @@ property defaultSentTagForDocs : "gesendet"
 property defaultWriteDebugLog : "false"
 property defaultShowReadme : "true"
 property defaultDryRunPreviewPath : "/tmp/DT-Belegversand-preview.txt"
+
+(*
+compileAllScripts(basePath)
+--------------------------
+Kompiliert alle AppleScript-Quellen (.applescript) zu ausführbaren Scripts (.scpt).
+
+WARUM:
+- Im Git-Repo liegen nur .applescript-Dateien (Plaintext für Versionskontrolle)
+- AppleScript kann aber nur .scpt-Dateien (kompiliert) laden via "load script"
+- Nach git clone sind nur .applescript vorhanden → kein Versand möglich
+
+WAS:
+- Iteriert über alle 6 Scripts im Projekt
+- Ruft osacompile auf (macOS Tool)
+- Liest .applescript-Quelle
+- Schreibt .scpt-Binary
+- Löscht die .applescript danach (sauberer: nur .scpt bleibt)
+
+PFAD-PROBLEM:
+- basePath MUSS absolut sein (ab Home, mit do shell script "echo ~")
+- Relative Pfade funktionieren nicht zuverlässig in AppleScript
+- Deshalb wird basePath als Parameter übergeben, nicht lokal definiert
+
+WICHTIG:
+- Diese Funktion wird nur beim Setup aufgerufen (nach git clone)
+- Sie ist kein Fehler, wenn .applescript nicht existiert (z.B. bei AirDrop-Kopie)
+*)
+on compileAllScripts(basePath)
+	tell application id "DNtp"
+		my writeDebug("compileAllScripts: Start")
+	end tell
+	
+	set filesToCompile to {"START.applescript", ¬
+		"Helpers/show_mail_templates.applescript", ¬
+		"Helpers/create-year-cycle.applescript", ¬
+		"Helpers/uuid_anzeigen.applescript", ¬
+		"Helpers/scripts/_belegversand_setup.applescript", ¬
+		"Helpers/scripts/_belegversand.applescript"}
+	
+	repeat with fileName in filesToCompile
+		set sourceFile to basePath & "/" & fileName
+		set outputFile to basePath & "/" & (text 1 thru -13 of fileName) & ".scpt"
+		
+		try
+			do shell script "osacompile -o " & quoted form of outputFile & " " & quoted form of sourceFile
+			-- Nach Kompilierung: .applescript löschen
+			do shell script "rm " & quoted form of sourceFile
+			tell application id "DNtp"
+				my writeDebug("Compiled & removed: " & filename)
+			end tell
+		on error errMsg
+			tell application id "DNtp"
+				my writeDebug("Compile ERROR: " & filename & " - " & errMsg)
+			end tell
+		end try
+	end repeat
+	
+	tell application id "DNtp"
+		my writeDebug("compileAllScripts: Done")
+	end tell
+end compileAllScripts
+
+
 (*
 runSiblingScript(scriptFileName)
 --------------------------------
@@ -73,7 +137,7 @@ Verwendung:
 *)
 on runSiblingScript(scriptFileName)
 	-- Absolute Basis-Path (Home + fest Installation)
-	set basePath to (do shell script "echo ~") & "/Library/Application Scripts/com.devon-technologies.think/Menu/Belegversand_1-4"
+	set basePath to (do shell script "echo ~") & basePath
 	set targetPath to basePath & "/Helpers/scripts/" & scriptFileName
 	
 	try
@@ -230,6 +294,7 @@ Freie Kommentar- oder Trennerzeilen sind daher unproblematisch.
 on buildConfigText(mailToDefault, mailCcToDefault, subjectPrefix, zipPasswordDefault, logSentGroupName, belegeRootUUID, writeDebugLogValue, showReadmeValue, readmeUUID, mailBodyFolderName, mailBodyRecordName, sentTagForDocs, dryRunPreviewPath)
 	return "## Benutzer-Einstellungen - bitte individuell anpassen." & return & ¬
 		"## Eine Kurz-Doku findest du in der Datei README-Belegversand.md" & return & return & ¬
+		"APP_VERSION=" & appVersion & return & ¬
 		"MAIL_TO_DEFAULT=" & mailToDefault & return & ¬
 		"MAIL_CC_TO_DEFAULT=" & mailCcToDefault & return & ¬
 		"MAIL_SUBJECT_PREFIX=" & subjectPrefix & return & ¬
@@ -612,6 +677,18 @@ on run
 			set debugInfoText to ""
 		end if
 		
+		if writeDebugLogValue is "true" then
+			set debugInfoText to return & return & "Debug-Log: /tmp/DT-Belegversand-debug.log"
+		else
+			set debugInfoText to ""
+		end if
+		
+		-- Absolute Basis-Path für Script-Kompilierung
+		set basePath to (do shell script "echo ~") & basePath
+		
+		compileAllScripts(basePath)
+		set compileHint to return & return & "✓ Scripts kompiliert"
+		
 		display dialog "Belegversand wurde eingerichtet." & return & return & ¬
 			"Datenbank-Wurzel: " & dbRootName & return & ¬
 			"Belege-Gruppe: " & belegeRootName & return & ¬