bugfix

SDL/Fakturierung/frmFaktEmail.vb

@@ -357,7 +357,7 @@ Public Class frmFaktEmail
             Else
 
                 Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-                Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(1, "", Firma_ID)
+                Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(IIf(cbxVZ.Checked, 7, 1), "", Firma_ID)
 
                 Dim mailText As String = ""
                 Dim spracheRechnung As String = "EN" 'Defaultsprache
@@ -1370,6 +1370,21 @@ Public Class frmFaktEmail
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
         setMailText(KdNr, "RO")
     End Sub
+
+    Private Sub cbxVZ_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVZ.CheckedChanged
+        If KdNr > 0 Then
+            If SR Then
+
+                Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+                setMailText(KdNr, AD.LandKz)
+
+            Else
+                If RECHNUNG IsNot Nothing Then setMailText(KdNr, RECHNUNG.RechnungsLandKz)
+
+            End If
+        End If
+
+    End Sub
 End Class