diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index 871d4d0..f92d67d 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/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 diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index fea5a47..dfe8bfa 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/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