gesamtsicherheiten, Ref, Mail, etc.

Aviso/frmGesamtsicherheitenNEU.vb

@@ -100,9 +100,17 @@ Public Class frmGesamtsicherheitenNEU
         initPrevNextButtons()
         changeLabel()
 
+        Select Case Standort
+            Case "Verag GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
+            Case "AMBAR GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
+            Case "Atilla GmbH" : btnDAKOSY_AUTO.Enabled = False
+            Case "VERAG AG" : btnDAKOSY_AUTO.Enabled = False
+            Case "IMEX" : btnDAKOSY_AUTO.Enabled = False
+            Case "Verag CS" : btnDAKOSY_AUTO.Enabled = False
+            Case "Unisped GmbH" : btnDAKOSY_AUTO.Enabled = False
+            Case Else : btnDAKOSY_AUTO.Enabled = False
 
-        btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
-
+        End Select
 
         Me.Text = "Gesamtsicherheit " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
@@ -357,9 +365,9 @@ Public Class frmGesamtsicherheitenNEU
 
 
                             indexOflastEntry = dtSicherheiten.Rows.IndexOf(r)
-                                endSaldo = r.Item("Saldo")
+                            endSaldo = r.Item("Saldo")
 
-                            End If
+                        End If
 
 
                     End If
@@ -1368,7 +1376,7 @@ Public Class frmGesamtsicherheitenNEU
             '    Return False
             'End If
 
-            If (offenerSicherheitsbetrag <0 Or offenerSicherheitsbetrag <offenerSicherheitsbetragPos) Then
+            If (offenerSicherheitsbetrag < 0 Or offenerSicherheitsbetrag < offenerSicherheitsbetragPos) Then
                 If vbYes = MsgBox("Der Warenwert der Positionen übersteigt den Warenwert der Gestellung!" & vbCrLf & "Trotzdem speichen?", vbYesNo) Then
                     Return True
                 Else