Nacherfassung, etc.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -918,7 +918,13 @@ Public Class usrCntlFaktAbrechnung
 
                 If KUNDE_ERW.kde_BesonderheitenNeu Then
                     rtbAbf_Besonderheiten.Size = txtBesonderheiten.Size
-                    rtbAbf_Besonderheiten.init(kdFirmaRechnungAn.KdNr_value, , True, "VRR", "'ZOLL','ALLG','DISPO'")
+
+                    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