diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 5f55b30..6a30126 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -1513,7 +1513,7 @@ ELSE_ATILLA:
                     sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) "
                 Else
                     sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
-                    '   MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+                 '   MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
                     'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
                     '    '+AMBAR
                     '    sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR (tblSendungen.FilialenNr  IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66))  ) "
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index ffa3676..158e06b 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -1915,10 +1915,6 @@ Public Class frmSendungsdetailsNEU
 
     Sub initSendungs_Status()
 
-        Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
-        'cbxSpedBuch.Checked = (vorhanden > 0)
-        SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
-
 
 
         btnStatusAbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Inaktiv
@@ -2025,6 +2021,10 @@ Public Class frmSendungsdetailsNEU
         End Select
 
 
+        Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "' AND AbfertigungsNr='" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
+        'cbxSpedBuch.Checked = (vorhanden > 0)
+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
+
 
     End Sub