neu

initATLASAufschubkonten/cBuergschaften.vb

@@ -154,6 +154,7 @@ Public Class cBuergschaften
         Dim dr As SqlDataReader
         Dim sql As String = "SELECT  * FROM  ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme"
         If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE()) AND CRN is not null " 'letzten 10 Tage
+        If history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(MONTH, - 6, GETDATE()) AND CRN is not null " 'letzten 6 Monate
 
         Dim sqlConn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionEZOLL
         '    setLabel(frmAtlasAufschub.lbBrgAtlasSuben, "einlesen ...")