neu

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -11,6 +11,7 @@ Public Class usrcntlKundeBearbeitenFull
     Dim EMAIL_FREIGABE As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
     Dim sql As New SQL
     Dim WunschKdNr As Integer = -1
+    Public Filiale As Integer = -1
     '  Dim kdnr = -1
 
     Public Event KD_SAVED(kdnr)
@@ -84,7 +85,6 @@ Public Class usrcntlKundeBearbeitenFull
                         ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  900000-999999: Sonstige", "900000-999999"))
                         cboKundenkreis.changeItem("100000-199999")
 
-
                     Case Else
                         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Then
                             cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  100000-199999: ATILLA", "100000-199999"))
@@ -95,11 +95,15 @@ Public Class usrcntlKundeBearbeitenFull
                         '  ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  800000-899999: XXXXXX", "800000-899999"))
                         cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  800000-899999: BREXIT", "800000-899999"))
                         cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  900000-999999: Sonstige", "900000-999999"))
+
                         ' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1000000-1099999: IMEX", "1000000-1099990"))
                         cboKundenkreis.changeItem("728000-799999")
                 End Select
             End If
 
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AWOR", "SDL") Then
+                cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4000000-4099999: AWOR", "4001000-4099999"))
+            End If
             If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_AMBAR", "SDL") Then
                 cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
 
@@ -350,7 +354,7 @@ Public Class usrcntlKundeBearbeitenFull
         ' -------- EMAIL --------
 
 
-        UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
+        ' UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW) ' es wird beim Speichern KUNDE_ERW gespeichert, wenn zwischendurch UsrCntlKundenAvisoMailBenachrichtigung Änderugnen gemacht hat, sind diese verworfen.
 
         cbxBesonderheitenNEU.Checked = KUNDE_ERW.kde_BesonderheitenNeu
 
@@ -619,6 +623,7 @@ Public Class usrcntlKundeBearbeitenFull
 
 
 
+
         UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
 
         Return True
@@ -704,20 +709,24 @@ Public Class usrcntlKundeBearbeitenFull
         cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez]  FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True)
         cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma ORDER BY tblFirma.Firma_ID",  , "FMZOLL", True)
 
-
         cboFiliale.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL")
+
+
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX"
-                cboFiliale.changeItem("5501")
-            Case "UNISPED"
-                cboFiliale.changeItem("5601")
-            Case "AMBAR"
-                cboFiliale.changeItem("5701")
-            Case "ATILLA"
-                cboFiliale.changeItem("4801")
-            Case Else
-                cboFiliale.changeItem("4803")
-        End Select
+                Case "IMEX"
+                    cboFiliale.changeItem("5501")
+                Case "UNISPED"
+                    cboFiliale.changeItem("5601")
+                Case "AMBAR"
+                    cboFiliale.changeItem("5701")
+                    cboFiliale.changeItem("5701")
+                Case "ATILLA"
+                    cboFiliale.changeItem("4801")
+                Case Else
+                    cboFiliale.changeItem("4803")
+            End Select
+
+
         cboAuswahl.Items.Clear()
         cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AKTIV", "A"))
         cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("INAKTIV", "I"))
@@ -1025,8 +1034,11 @@ Public Class usrcntlKundeBearbeitenFull
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
             btnFirmendatenFormularSpeichern.Enabled = False
         End If
+        tbcntrAbf.TabPages.Remove(TabPage4)
 
-
+        If Filiale > 0 Then
+            cboFiliale.changeItem(Filiale)
+        End If
     End Sub
 
 
@@ -1290,4 +1302,13 @@ Public Class usrcntlKundeBearbeitenFull
         End If
 
     End Sub
+
+    Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
+        If cboFiliale._value = 7002 Then
+            cboKundenkreis.changeItem("4001000-4099999")
+        End If
+        If cboFiliale._value = 7003 Then
+            cboKundenkreis.changeItem("2000000-2099999")
+        End If
+    End Sub
 End Class