Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb

@@ -69,6 +69,7 @@
                                                          txtAdresse1.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
                                                      End If
                                                  End If
+
                                                  RaiseEvent KDNR_CHANGED(KdNR)
                                              End Sub
         initControlsHandler()
@@ -93,6 +94,17 @@
         cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Avisierer", "4"))
 
 
+        If Not cboTEXT._value = "DE_FISKAL" Then
+            If txtFirma.KdNr_value > 0 AndAlso txtFirma.KdData_ADRESSEN IsNot Nothing Then
+                If txtFirma.KdData_ADRESSEN.LandKz = "DE" Or txtFirma.KdData_ADRESSEN.LandKz = "AT" Then
+                    cboSprache.changeItem("DE")
+                Else
+                    cboSprache.changeItem("EN")
+                End If
+            End If
+        End If
+
+
         loaded = True
     End Sub
 
@@ -108,6 +120,7 @@
             cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
             'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Französisch", "FR")) ??
             cboSprache.changeItem("DE")
+
         End If
 
     End Sub