diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
index c3e9aa71..dfa18a0d 100644
--- a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
+++ b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
@@ -71,20 +71,32 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                     End If
 
 
-                    If line.Length = "79" And line.Contains("ATC") Then
+                    If line.Length = "79" AndAlso (line.Contains("ATC") Or line.Substring(30, 2).Trim.Contains("DE")) Then
                         Dim zollamt As String = line.Substring(0, 28).Trim
-                        Dim atc As String = line.Substring(28, 25).Trim
+                        Dim atc As String = ""
+                        Dim mrn As String = ""
+                        Dim sqlStringWhere = ""
+                        If line.Contains("ATC") Then
+                            atc = line.Substring(28, 25).Trim
+                            sqlStringWhere = "[Status]<>0 and DruckDatumZeit is not null  and (left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' or [RechnungsausgangPositionen].[Weitere_Reg_Nr] ='" & atc & "' ) AND [AufschubkontoNr]='" & AKTO & "'"
+                        ElseIf line.Substring(30, 2).Trim.Contains("DE") Then
+                            mrn = line.Substring(28, 25).Trim
+                            sqlStringWhere = "[Status]<>0 and DruckDatumZeit is not null  and left([RechnungsausgangPositionen].Belegdaten,21)='" & mrn & "' AND [AufschubkontoNr]='" & AKTO & "'"
+                        End If
+
                         Dim datum As Date = CDate(line.Substring(53, 10).Trim)
                         Dim betrag As Double = CDbl(line.Substring(63, 16).Trim)
 
-                        '  Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0"))
-                        Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", " [Status]<>0 and DruckDatumZeit is not null  and (left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' or [RechnungsausgangPositionen].[Weitere_Reg_Nr] ='" & atc & "' )AND [AufschubkontoNr]='" & AKTO & "'", "FMZOLL", "0"))
+
+
+                        Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", sqlStringWhere, "FMZOLL", "0"))
 
                         Dim differenz = fakturiert - betrag
 
                         If Not cbx.Checked OrElse differenz <> 0 Then
-                            erg &= zollamt & " -  " & atc & ":     " & betrag & " | " & differenz & vbNewLine
-                            dt.Rows.Add({AKTO, Faelligkeit, atc, datum, zollamt, betrag, fakturiert, differenz})
+
+                            erg &= zollamt & " -  " & IIf(atc <> "", atc, mrn) & ":     " & betrag & " | " & differenz & vbNewLine
+                            dt.Rows.Add({AKTO, Faelligkeit, IIf(atc <> "", atc, mrn), datum, zollamt, betrag, fakturiert, differenz})
                         End If
 
                     End If
diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb
index 2fd79690..f769b24b 100644
--- a/SDL/zoll/usrCntlZOLLAuswertungen.vb
+++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb
@@ -1032,13 +1032,6 @@ Public Class usrCntlZOLLAuswertungen
         End Select
     End Sub
 
-    Private Sub UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Load
-
-    End Sub
-
-    Private Sub UsrCntlAuswertungenEV_Veranlagungen1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenEV_Veranlagungen1.Load
-
-    End Sub
 
     Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles excelCbam.Click