diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb
index 6b5dcc1..1b99e59 100644
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -596,6 +596,10 @@ Anzeige:
                 Select Case filiale
                     Case "4803", "4809"
                         Standort = "VERAG AG"
+                    Case "5601"
+                        Standort = "Unisped GmbH"
+                    Case "5701"
+                        Standort = "AMBAR GmbH"
                     Case "4810", "5103", "5901"
                         Standort = "VERAG GmbH"
                     Case "5501"
@@ -604,7 +608,6 @@ Anzeige:
                         Return False
                 End Select
 
-
                 Dim dy_SendungsId = VWI.Transaktion.IOReferenz
 
                 If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then
@@ -655,7 +658,7 @@ Anzeige:
                                 Return False
                             End If
 
-                            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(DUMMYSicherheit.gs_standort)
+                            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(DUMMYSicherheit.gs_standort)
                             Dim saldo = GesSichRef.CalcSaldo()
 
                             If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
@@ -811,7 +814,7 @@ Anzeige:
 
                             If sendInfoMail Then
                                 Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit)
-                                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
+                                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
                             End If
 
                             Return True
@@ -870,7 +873,7 @@ Anzeige:
                                 Else
 
                                 End If
-                                sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId  where ([gs_MRNNr] = '" & MRN_SUMA & "'" & StringSub & ") and [gs_dakoyimport] = 1  order by gsp_gspPosId, gsp_MRNNr"
+                                sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId  where ([gs_MRNNr] = '" & MRN_SUMA & "' or [gs_VeralteteWeitereRegistriernummer] = '" & MRN_SUMA & "'" & StringSub & ") and [gs_dakoyimport] = 1  order by gsp_gspPosId, gsp_MRNNr"
 
                             End If
 
@@ -888,7 +891,7 @@ Anzeige:
 
                                 Dim gsrightRow As DataRow = gs_row(0) 'es gibt dann immer nur 1 Eintrag!
 
-                                Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gsrightRow("gs_standort"))
+                                Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(gsrightRow("gs_standort").ToString)
                                 Dim saldo As Double = GesSichRef.CalcSaldo()
 
 
@@ -929,7 +932,7 @@ Anzeige:
                                             WarenwertEUR = Warenwert_temp
 
                                         End If
-                                        Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.gsr_zollsatz / 100), 2)
+                                        Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100), 2)
                                     End If
                                     End If
 
@@ -973,7 +976,7 @@ Anzeige:
 
                                         Dim InfoText As String = createInfoMail(MRN_SUMA, dt, "")
 
-                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
+                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
                                     End If
 
                                 End If
@@ -1074,8 +1077,8 @@ Anzeige:
 
                                 If sendInfoMail Then
                                         Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr)
-                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
-                                    End If
+                                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
+                                End If
 
                             End If