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

Rundungsdifferenzausgleich implementiert.

Browse Source
This commit is contained in:
d.breimaier
2023-01-20 13:45:49 +01:00
parent f4f8ab91a4
commit 139c1b93ae
3 changed files with 635 additions and 530 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -57,7 +57,7 @@ Public Class frmGesamtsicherheitenMenuNEU
Public Function LoadDGV()
Dim sqladdon As String = ""
If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €' AND gs_SicherheitsSaldo != '0,01 €' AND gs_SicherheitsSaldo != '-0,01 €'"
If chkOffen.Checked Then sqladdon &= " AND gs_SicherheitsSaldo != '0,00 €'"
If cbxStandort._value <> "" Then sqladdon &= " AND gs_filialenNr = '" & cbxStandort._value.ToString & "'"
If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
@@ -126,7 +126,7 @@ Public Class frmGesamtsicherheitenMenuNEU
For Each row As DataGridViewRow In dgvListe.Rows
If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then
If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True)
row.DefaultCellStyle.BackColor = Color.IndianRed
@@ -367,7 +367,7 @@ Public Class frmGesamtsicherheitenMenuNEU
) as Sicherheitssaldo
From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2
Where gs_standort = '" & Standort & "' AND Sicherheitssaldo > '0.01' AND gs_datum < '" & Date.Now().AddDays(-85) & "'"
Where gs_standort = '" & Standort & "' AND gs_datum < '" & Date.Now().AddDays(-85) & "'"
dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)