edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix gesamtsicherheitensaldo, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-09-22 16:44:32 +02:00
parent d561ec8f27
commit 9164f9d08b
2 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -557,7 +557,14 @@ Public Class frmGesamtsicherheitenMenuNEU
Exit Sub Exit Sub
End If 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 End Sub

15
Aviso/frmGesamtsicherheitenNEU.vb
View File

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