Imports System.Windows.Forms
Imports clsXRechnung

Public Class Form1

    Private Sub btnXRechnung_Click(sender As Object, e As EventArgs) Handles btnXRechnung.Click

        Try
            Dim cls As New clsXRechnung()

            ' Beispielwerte – anpassen!
            Dim SerielNumber As String = "12345"
            Dim DBConnect As String = "YourConnectionString"
            Dim SQL As String = "SELECT * FROM ..."
            Dim ImportFileName As String = ""
            Dim TableName As String = "MyTable"
            Dim bolFrage As Boolean = False
            Dim Lizenz As String = "XYZ"
            Dim Parameter As Boolean = True

            ' Ordner auswählen
            Dim selectedFolder As String = ""
            Using fbd As New FolderBrowserDialog()
                fbd.Description = "Bitte Ordner auswählen"

                If fbd.ShowDialog() = DialogResult.OK Then
                    selectedFolder = fbd.SelectedPath
                Else
                    Exit Sub
                End If
            End Using

            Dim exportPath As String = selectedFolder & "\"
            Dim strParameter As String = ""
            Dim filePath As String = ""
            Dim bolConnect As Boolean

            If Parameter Then
                strParameter = InputBox("Please insert Parameter", "Parameter", "252068")

                If String.IsNullOrWhiteSpace(strParameter) Then
                    MessageBox.Show("Parameter is empty")
                    Exit Sub
                End If

                filePath = exportPath & strParameter.Trim() & ".xml"

                bolConnect = cls.DLL_Init_DB(
                    SerielNumber,
                    filePath,
                    DBConnect,
                    SQL,
                    strParameter,
                    True,
                    ImportFileName,
                    TableName,
                    bolFrage,
                    Lizenz)

            Else
                strParameter = InputBox("Filename", "Please insert filename")

                If String.IsNullOrWhiteSpace(strParameter) Then Exit Sub

                filePath = exportPath & strParameter & ".xml"

                bolConnect = cls.DLL_Init_DB(
                    SerielNumber,
                    filePath,
                    DBConnect,
                    SQL,
                    "",
                    False,
                    ImportFileName,
                    TableName,
                    bolFrage,
                    Lizenz)
            End If

            If Not bolConnect Then
                MessageBox.Show("DB Verbindung fehlgeschlagen")
                Exit Sub
            End If

            MessageBox.Show("DB verbunden")

            If cls.CreateXRechnung() Then
                MessageBox.Show("XRechnung erstellt")

                If Parameter Then
                    If MessageBox.Show("Ecosio Validierung ausführen?",
                                       "Frage",
                                       MessageBoxButtons.YesNo) = DialogResult.Yes Then

                        cls.Ecosio()
                        MessageBox.Show("Validierung abgeschlossen")
                    End If
                End If
            Else
                MessageBox.Show("Erstellung fehlgeschlagen")
            End If

        Catch ex As Exception
            MessageBox.Show("Fehler: " & ex.Message)
        End Try

    End Sub

End Class