Nacherfassung, etc.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -918,7 +918,13 @@ Public Class usrCntlFaktAbrechnung
 
                 If KUNDE_ERW.kde_BesonderheitenNeu Then
                     rtbAbf_Besonderheiten.Size = txtBesonderheiten.Size
+
+                    Select Case cboFiliale._value
+                        Case "4801", "4802", "4813"
+                            rtbAbf_Besonderheiten.init(kdFirmaRechnungAn.KdNr_value, "EXPORT/ATILLA", True, "EXPORT/ATILLA")
+                        Case Else
                             rtbAbf_Besonderheiten.init(kdFirmaRechnungAn.KdNr_value,, True, "VRR", "'ZOLL','ALLG','DISPO'")
+                    End Select
                     rtbAbf_Besonderheiten.Visible = True
                 Else
                     rtbAbf_Besonderheiten.Visible = False

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -112,6 +112,14 @@ Public Class frmNacherfassungNEU
             txtEndEmpf._displayWoelflKd = enableWoelfl
             txtFraechter._displayWoelflKd = enableWoelfl
 
+            Dim disableMDM As Boolean = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 7, True, False)
+
+            txtEmpfaenger._hideMDMKd = disableMDM
+            txtAuftraggeber._hideMDMKd = disableMDM
+            txtAvisierer._hideMDMKd = disableMDM
+            txtEmpfaenger._hideMDMKd = disableMDM
+            txtEndEmpf._hideMDMKd = disableMDM
+            txtFraechter._hideMDMKd = disableMDM
 
             If SQL.getValueTxtBySql("SELECT count(*) FROM tblAbfertigungsartenFiliale WHERE Filialennr='" & cboFiliale._value & "'", "FMZOLL") > 0 Then
                 '  cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart  where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True)

SDL/kunden/usrCntlKundenBesonderheiten.vb

@@ -1,7 +1,4 @@
-Imports DocumentFormat.OpenXml.Drawing
-Imports DocumentFormat.OpenXml.Drawing.Charts
-
-Public Class usrCntlKundenBesonderheiten
+Public Class usrCntlKundenBesonderheiten
 
     Dim kdNr As Integer = -1
     Dim loaded = False

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb

@@ -23,6 +23,7 @@ Public Class KdSearchBox
     Public Property _loadKdData As Boolean = False
     Public Property _hideIfListEmpty As Boolean = True
     Public Property _displayWoelflKd As Boolean = False
+    Public Property _hideMDMKd As Boolean = False
     Public Property _displayAVISO_Email As Boolean = False
     Public Property nurAktive As Boolean = True
     Public Property kdNrField As Control = Nothing
@@ -522,6 +523,7 @@ Public Class KdSearchBox
 
 
                 If Not _displayWoelflKd Then SQLstr &= "  AND AdressenNr NOT LIKE '15%'"
+                If _hideMDMKd Then SQLstr &= "  AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'"
                 SQLstr &= " order by Ordnungsbegriff "
 
                 setDS(True, usrcntl.dgvKundenAktiv, SQL.loadDgvBySql(SQLstr, "FMZOLL"), topAnz)
@@ -595,6 +597,7 @@ Public Class KdSearchBox
                 End If
 
                 If Not _displayWoelflKd Then SQLstr &= "  AND AdressenNr NOT LIKE '15%'"
+                If _hideMDMKd Then SQLstr &= "  AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'"
                 SQLstr &= " order by Ordnungsbegriff "
 
                 setDS(False, usrcntl.dgvKundenInAktiv, SQL.loadDgvBySql(SQLstr, "FMZOLL"), 6)
@@ -677,6 +680,7 @@ Public Class KdSearchBox
                 End If
 
                 If Not _displayWoelflKd Then SQLstrEnd &= "  AND AdressenNr NOT LIKE '15%'"
+                If _hideMDMKd Then SQLstr &= "  AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'"
 
                 Dim searchstring = SQLstr & SQLstrEnd & " order by Ordnungsbegriff "
 
@@ -743,6 +747,7 @@ Public Class KdSearchBox
 
 
                 If Not _displayWoelflKd Then SQLstr &= "  AND AdressenNr NOT LIKE '15%'"
+                If _hideMDMKd Then SQLstr &= "  AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'"
                 SQLstr &= " order by Ordnungsbegriff "
 
                 setDS(False, usrcntl.dgvKundenInAktiv, SQL.loadDgvBySql(SQLstr, "FMZOLL"), 4)
@@ -882,6 +887,12 @@ Public Class KdSearchBox
             sqlEnd.AppendLine(" AND AdressenNr NOT LIKE '15%'")
         End If
 
+        If _hideMDMKd Then
+            sqlEnd.AppendLine(" AND AdressenNr NOT LIKE '15%' AND AdressenNr NOT LIKE '14%'")
+        End If
+
+
+
         sqlEnd.AppendLine(" ORDER BY Ordnungsbegriff")
 
         Return (selectPart & sqlEnd.ToString(), sqlEnd.ToString())