neu

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -184,6 +184,8 @@ Public Class usrcntlKundeBearbeitenFull
         txtAbf_ErsteAbfertigung._value = loadValue(KUNDE.Erste_Abfertigung, "")
 
         txtAbf_Vorlageprovision._value = loadValue(KUNDE.Vorlageprovision, "")
+        txtDebKdNr.Text = loadValue(KUNDE.KundenNrZentrale, KUNDE.KundenNr)
+
         txtAbf_Kreditaufwendungen._value = loadValue(KUNDE.Kreditaufwendungen, "")
         txtAbf_Bankspesen._value = loadValue(KUNDE.Bankspesen, "")
         txtAbf_BankspesenMindestbetrag._value = loadValue(KUNDE.Bankspesen_Mindestbetrag, "")
@@ -335,6 +337,13 @@ Public Class usrcntlKundeBearbeitenFull
 
         UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
 
+        cbxBesonderheitenNEU.Checked = KUNDE_ERW.kde_BesonderheitenNeu
+
+        cbxVerzolltBei.Checked = KUNDE_ERW.kde_KundeFremdspedition
+        cboFremdspedition.Text = If(KUNDE_ERW.kde_verzolltBei, "")
+
+        initBesonderheitenNEU()
+
         initKdKontakSpeziell()
 
         Me.Cursor = Cursors.Default
@@ -356,7 +365,17 @@ Public Class usrcntlKundeBearbeitenFull
             If cboFiliale.Text = "" Then MsgBox("Bitte geben Sie die zuständige Filiale an!") : Return False
             If Not cboKundenkreis._value.Contains("-") Then MsgBox("Bitte geben Sie den Kundenkreis an!") : Return False
 
-            Dim s_KdNr = cboKundenkreis._value.Split("-")
+            Dim kundenkreis = cboKundenkreis._value
+            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                Case "UNISPED"
+                    If cbxLandKz._value = "A" Then
+                        kundenkreis = "2200250-2209999" 'AT-Kundenkreis
+                    Else
+                        kundenkreis = "2256000 -2259990" 'ausl.Kundenkreis
+                    End If
+            End Select
+
+            Dim s_KdNr = kundenkreis.Split("-")
             Dim kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
 
             If kdnr > 0 Then
@@ -434,6 +453,7 @@ Public Class usrcntlKundeBearbeitenFull
         KUNDE.Erste_Abfertigung = isLeerNothing(txtAbf_ErsteAbfertigung.Text)
 
         KUNDE.Vorlageprovision = isLeerNothingDbl(txtAbf_Vorlageprovision._value, 0)
+        KUNDE.KundenNrZentrale = If(txtDebKdNr.Text = "", KUNDE.KundenNr, txtDebKdNr.Text)
         KUNDE.Kreditaufwendungen = isLeerNothingDbl(txtAbf_Kreditaufwendungen._value, 0)
         KUNDE.Bankspesen = isLeerNothingDbl(txtAbf_Bankspesen._value, 0)
 
@@ -514,6 +534,16 @@ Public Class usrcntlKundeBearbeitenFull
         KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
         KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
         KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
+        KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
+
+
+        ' ----- Fremdsped -----
+        KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked
+        If KUNDE_ERW.kde_KundeFremdspedition Then
+            KUNDE_ERW.kde_verzolltBei = cboFremdspedition.Text
+        Else
+            KUNDE_ERW.kde_verzolltBei = Nothing
+        End If
 
 
         ' ----- Abfertigungsverbot -----
@@ -565,6 +595,7 @@ Public Class usrcntlKundeBearbeitenFull
 
 
 
+
         UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
 
         Return True
@@ -1082,7 +1113,7 @@ Public Class usrcntlKundeBearbeitenFull
 
             Select Case cboKundenkreis._value
                 Case "1000000-1099990" : cbxFiBu.Checked = True : cboFirma.changeItem("20") : cboFiliale.changeItem("5501")
-                Case "2000000-2099990" : cbxFiBu.Checked = False : cboFirma.changeItem("21") : cboFiliale.changeItem("5601")
+                Case "2000000-2099990" : cbxFiBu.Checked = True : cboFirma.changeItem("21") : cboFiliale.changeItem("5601")
                 Case "728000-799999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
                 Case "30000-49999" : cbxFiBu.Checked = True : cboFirma.changeItem("11") : cboFiliale.changeItem("4803")
                 Case "500000-599999" : cbxFiBu.Checked = True : cboFirma.changeItem("1") : cboFiliale.changeItem("4803")
@@ -1163,5 +1194,24 @@ Public Class usrcntlKundeBearbeitenFull
         End If
     End Sub
 
+    Private Sub cbxBesonderheitenNEU_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBesonderheitenNEU.Click
+        initBesonderheitenNEU()
+    End Sub
 
+    Sub initBesonderheitenNEU()
+
+        If cbxBesonderheitenNEU.Checked Then
+            UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
+            UsrCntlKundenBesonderheiten1.init(KUNDE.KundenNr)
+            UsrCntlKundenBesonderheiten1.Visible = True
+        Else
+            UsrCntlKundenBesonderheiten1.Visible = False
+        End If
+        rtbAbf_Besonderheiten.Visible = Not UsrCntlKundenBesonderheiten1.Visible
+
+    End Sub
+
+    Private Sub cbxVerzolltBei_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVerzolltBei.CheckedChanged
+        cboFremdspedition.Enabled = cbxVerzolltBei.Checked
+    End Sub
 End Class