CredtisafeAPI erweitert

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -585,6 +585,8 @@ Public Class usrcntlKundeBearbeitenFull
 
         KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked
         KUNDE_ERW.kde_Fakturierung_Sprache = isLeerNothing(cboRechnungSprache._value)
+        KUNDE_ERW.kde_CreditSaveId = isLeerNothing(txtCreditsafe.Text)
+
 
 
         ' ----- Fremdsped -----
@@ -1477,23 +1479,32 @@ Public Class usrcntlKundeBearbeitenFull
                 If tmpForm.ShowDialog() = DialogResult.OK Then
                     txtKurzname.Text = UserControl1.comp.name & ";" & UserControl1.comp.city
                     txtFirmenname1.Text = UserControl1.comp.name
-                    cboUSt_UstIdNrLand.changeItem(UserControl1.comp.country)
-                    If UserControl1.comp.country IsNot Nothing Then
-                        txtUSt_UstIdNr.Text = UserControl1.comp.vatNo.Replace(UserControl1.comp.country, "")
-                    Else
-                        txtUSt_UstIdNr.Text = UserControl1.comp.vatNo
-                    End If
-
-
                     txtCreditsafe.Text = UserControl1.comp.credissafeId
                     txtStrasse.Text = UserControl1.comp.street
-                        txtOrt.Text = UserControl1.comp.city
-                        txtPlz.Text = UserControl1.comp.postCode
-                        txtTel.Text = UserControl1.comp.phoneNo
+                    txtOrt.Text = UserControl1.comp.city
+                    txtPlz.Text = UserControl1.comp.postCode
+                    txtTel.Text = UserControl1.comp.phoneNo
 
+                    If UserControl1.comp.country IsNot Nothing Then
+                        cbxLandKz.changeItem(UserControl1.comp.country.Substring(0, 1))
                     End If
 
 
+                    If UserControl1.comp.vatNo IsNot Nothing Then
+                        cboUSt_UstIdNrLand.changeItem(UserControl1.comp.vatNo.Substring(0, 2))
+
+                        If UserControl1.comp.country IsNot Nothing Then
+                            txtUSt_UstIdNr.Text = UserControl1.comp.vatNo.Replace(UserControl1.comp.country, "")
+                        Else
+                            txtUSt_UstIdNr.Text = UserControl1.comp.vatNo
+                        End If
+                    End If
+
+
+
+                End If
+
+
             End Using
         End Using