From 889ebde5d5e2310761d8b42234aaf31413d16a29 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Tue, 6 Oct 2026 14:14:43 +0200
Subject: [PATCH] fix

---
 initATLASAufschubkonten/frmStartOptions.vb | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 60ba586..2542eec 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -8297,9 +8297,23 @@ repeatRequest:
                             psi.CreateNoWindow = True
 
                             Using p As Process = Process.Start(psi)
-                                Dim output = p.StandardOutput.ReadToEnd()
-                                Dim err = p.StandardError.ReadToEnd()
-                                p.WaitForExit()
+
+                                Dim outputTask = p.StandardOutput.ReadToEndAsync()
+                                Dim errorTask = p.StandardError.ReadToEndAsync()
+
+                                If Not p.WaitForExit(60000) Then
+                                    Try
+                                        p.Kill()
+                                    Catch
+                                    End Try
+
+                                    Throw New TimeoutException("Der Prozess wurde nach 60 Sekunden beendet." & vbNewLine & "Filename: " & psi.FileName & vbNewLine & "Arguments: " & psi.Arguments)
+
+                                End If
+
+                                Dim output = outputTask.Result
+                                Dim err = errorTask.Result
+
 
                                 If output <> "" Then
                                     Dim tmpPath_Report = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MUSTANG-REPORT_" & rkObj & ".pdf", ".pdf", , False)