fix gesamtsicherheitensaldo, etc.

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -557,7 +557,14 @@ Public Class frmGesamtsicherheitenMenuNEU
             Exit Sub
         End If
 
-        If Not zollliste_bereinigt Then SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten, {"K1:K" & (frm.dtSicherheiten.Rows.Count + 1)})
+        If Not zollliste_bereinigt Then
+            If detailINfo Then
+                SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten, {"N1:N" & (frm.dtSicherheiten.Rows.Count + 1)})
+            Else
+                SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten, {"K1:K" & (frm.dtSicherheiten.Rows.Count + 1)})
+            End If
+
+        End If
 
     End Sub
 

Aviso/frmGesamtsicherheitenNEU.vb

@@ -253,6 +253,7 @@ Public Class frmGesamtsicherheitenNEU
             Case Sicherheiten_Standort.IMEX : firmaId = 20
             Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
             Case Sicherheiten_Standort.UNISPED : firmaId = 21
+            Case Sicherheiten_Standort.ZOLLERN : firmaId = 90
             Case Else
 
         End Select
@@ -355,7 +356,7 @@ SELECT
     rh.brgarefb_refbetrag
         - rh.VorherigerReferenzbetrag AS Sicherheitbetrag_Calc,
     rh.Standort,
-    0 AS Sortierung
+    0 AS Sortierung  " & IIf(detailinfo, ", CAST(NULL AS datetime) AS Erstellungsdatum, CAST(NULL AS datetime) AS GeändertAm, CAST(NULL AS varchar(100)) AS Benutzer ", "") & "
 FROM ReferenzHistorie AS rh
 WHERE rh.brgarefb_gueltig_ab > @DatumVon
   AND rh.brgarefb_gueltig_ab < DATEADD(day, 1, @DatumBis)
@@ -375,7 +376,7 @@ WHERE rh.brgarefb_gueltig_ab > @DatumVon
         gs.gs_sicherheitsbetrag AS Sicherheitbetrag,
         gs.gs_sicherheitsbetrag * -1 AS Sicherheitbetrag_Calc,
         gs.gs_standort AS Standort,
-        1 AS Sortierung
+        1 AS Sortierung " & IIf(detailinfo, ",[gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeändertAm, [gs_systemuser] as Benutzer ", "") & "
     FROM dbo.tblGesamtsicherheit AS gs
     WHERE gs.gs_standort = @Standort
       AND gs.gs_datum >= @DatumVon
@@ -397,7 +398,7 @@ SELECT
     gsp.gsp_sicherheitsbetrag AS Sicherheitbetrag,
     gsp.gsp_sicherheitsbetrag AS Sicherheitbetrag_Calc,
     @Standort AS Standort,
-    2 AS Sortierung
+    2 AS Sortierung " & IIf(detailinfo, ",[gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeändertAm, [gsp_systemuser] as Benutzer", "") & "
 FROM dbo.tblGesamtsicherheitsPositionen AS gsp
 WHERE gsp.gsp_datum >= @DatumVon
   AND gsp.gsp_datum < DATEADD(day, 1, @DatumBis)
@@ -423,7 +424,7 @@ SELECT
     Warenwert,
     Sicherheitbetrag,
     Sicherheitbetrag_Calc,
-    Standort
+    Standort " & IIf(detailinfo, ",Erstellungsdatum,GeändertAm,  Benutzer", "") & "
 FROM Saldenliste
 ORDER BY
     Datum ASC,
@@ -542,8 +543,12 @@ ORDER BY
             sicherheiten_cleared.Rows.InsertAt(drLast_new, sicherheiten_cleared.Rows.Count)
 
             If sicherheiten_cleared.Rows.Count > 2 Then
+                If detailinfo Then
+                    SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared, {"N1:N" & (sicherheiten_cleared.Rows.Count + 1)})
+                Else
+                    SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared, {"K1:K" & (sicherheiten_cleared.Rows.Count + 1)})
+                End If
 
-                SDL.cProgramFunctions.genExcelFromDT_NEW(sicherheiten_cleared, {"K1:K" & (sicherheiten_cleared.Rows.Count + 1)})
 
             End If