Chat, divers

2022-10-10 10:35:11 +02:00
parent d24e659cd5
commit 71678a4b50
36 changed files with 4307 additions and 740 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
@@ -228,6 +228,13 @@ Public Class cAdressen



+    Public Function getAdressFromatted()
+        getAdressFromatted = Name_1 & " " & If(Name_2, "") & vbNewLine
+        If If(Straße, "") <> "" Then getAdressFromatted &= Straße & vbNewLine
+        getAdressFromatted &= If(LandKz, "") & " " & If(PLZ, "") & " " & If(Ort, "") & vbNewLine
+
+    End Function
+


    Public Function doesOrdnungsbegriffExist() As Boolean