Imports System.IO

Module Program
    Sub Main(args As String())
        Dim r As New Rechnung With {
            .Nummer = "RE-2026-0042",
            .Datum = New Date(2026, 11, 11),
            .Leistungsdatum = New Date(2026, 11, 10),
            .Faellig = New Date(2026, 11, 25),
            .Kaeuferreferenz = "04011000-12345-67",
            .Iban = "DE02 1203 0000 0000 2020 51",
            .Zahlungsbedingung = "Zahlbar innerhalb 14 Tagen ohne Abzug."
        }
        With r.Verkaeufer
            .Name = "Musterfirma GmbH" : .Strasse = "Beispielweg 1" : .Plz = "36251" : .Ort = "Bad Hersfeld"
            .Email = "rechnung@musterfirma.example" : .UStId = "DE123456789"
            .Kontaktname = "Buchhaltung" : .Telefon = "+49 6621 000000"
        End With
        With r.Kaeufer
            .Name = "Beispielkunde AG" : .Strasse = "Kundenstraße 5" : .Plz = "10115" : .Ort = "Berlin"
            .Email = "eingang@kunde.example"
        End With
        r.Positionen.Add(New Position With {.Bezeichnung = "Wartung Anlage", .Menge = 3.5D, .Einheit = "HUR", .Einzelpreis = 85D})
        r.Positionen.Add(New Position With {.Bezeichnung = "Ersatzteil Filter", .Menge = 2D, .Einzelpreis = 19.9D})
        r.Positionen.Add(New Position With {.Bezeichnung = "Fachbuch", .Menge = 1D, .Einzelpreis = 29.9D, .UStSatz = 7D})

        Dim ziel As String = If(args.Length > 0, args(0), "beispiel-xrechnung.xml")
        File.WriteAllText(ziel, XRechnungCII.Erzeuge(r))
        Console.WriteLine("geschrieben: " & ziel)
    End Sub
End Module