div. Änderungen, etc.

SDL/kunden/frmKundenUebersichtZollRgDetails.vb

@@ -110,4 +110,45 @@ Public Class frmKundenUebersichtZollRgDetails
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 3,,,,, sammelrechnungskopie)
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Dim Path_temp As String = ""
+
+        cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 3, Path_temp,,,, sammelrechnungskopie)
+
+        If Path_temp <> "" Then
+
+            Try
+
+                Dim psi As New ProcessStartInfo()
+
+                psi.FileName = "C:\Program Files\Eclipse Adoptium\jre-11.0.28.6-hotspot\bin\java.exe"
+                psi.Arguments = "-jar ""C:\Users\d.breimaier\Downloads\Mustang-CLI-2.21.0.jar""  --no-notices --action validate --source " & Path_temp & ""
+
+                psi.RedirectStandardOutput = True
+                psi.RedirectStandardError = True
+                psi.UseShellExecute = False
+                psi.CreateNoWindow = True
+
+                Using p As Process = Process.Start(psi)
+                    Dim output = p.StandardOutput.ReadToEnd()
+                    Dim err = p.StandardError.ReadToEnd()
+                    p.WaitForExit()
+
+                    Console.WriteLine("ExitCode: " & p.ExitCode)
+                    Console.WriteLine(output)
+                    Console.WriteLine(err)
+
+                    If err <> "" Then MsgBox(err)
+
+                End Using
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+
+        End If
+
+    End Sub
 End Class