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

Feature_Refactoring Gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2022-10-17 17:43:30 +02:00
parent 8f213f0789
commit 1b0c272c32
6 changed files with 296 additions and 206 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
Aviso/frmGesamtsicherheitenMenu.vb
View File

@@ -16,7 +16,7 @@ Public Class frmGesamtsicherheitenMenu
Private Sub frmGesamtsicherheiten_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "Gesamtsicherheiten " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvListe)
Dim GesSichRef As New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
'GesSichRef.LOAD("standort", Standort)
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
@@ -25,13 +25,13 @@ Public Class frmGesamtsicherheitenMenu
txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
ShowStandort()
'ShowStandort()
LoadDGV()
End Sub
Public Function LoadDGV()
Dim sqladdon As String = ""
If chkOffen.Checked Then sqladdon &= " AND Sicherheitssaldo != '0,00 €'"
If chkOffen.Checked Then sqladdon &= " AND gs_Sicherheitssaldo != '0,00 €'"
' Dim sqlstring As String = "select * from (Select GesamtsichNr, MIN(Standort) as Standort, MIN(FilialNummer) as FilialNummer, min(Abfertigungsnummer) as Abfertigungsnummer,
'max(LKWID) as LKWID, min (MakeDate) as Datum, FORMAT(SUM(
@@ -46,22 +46,22 @@ Public Class frmGesamtsicherheitenMenu
'order by GesamtsichNr"
Dim sqlstring As String =
" select * from (Select gs_gesamtsichnr, MIN(gs_standort) as Standort, MIN(gs_filialNr) as FilialNummer, min(gs_abfertigungsNr) as Abfertigungsnummer,
max(gs_LKWID) as LKWID, min (gs_datum) as Datum, FORMAT(SUM(
" select * from (Select gs_gsNr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_filialNr) as gs_filialNr, min(gs_abfertigungsNr) as gs_abfertigungsNr,
max(gs_LKWID) as gs_LKWID, min (gs_datum) as gs_datum, FORMAT(SUM(
Case
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
when gs_art = 'Close' then gs_sicherheitsbetrag
End) , 'C', 'de-DE')As SicherheitsSaldo
End) , 'C', 'de-DE')As gs_SicherheitsSaldo
From (select * from (select gs_gsNr as ding from [tblGesamtsicherheit] where
gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
gs_abfertigungsnummer like '%" & txtSuchbegriff.Text & "%' OR
gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
gs_kennNr like '%" & txtSuchbegriff.Text & "%' OR
gs_LKWID like '%" & txtSuchbegriff.Text & "%'
) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.GesamtsichNr) as meh group by GesamtsichNr) as meh2
Where Standort = '" & Standort & "' " & sqladdon & "
AND Datum > '" & Date.Parse(txtVon.Text) & "'
AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'"
) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsNr) as meh group by gs_gsNr) as meh2
Where gs_standort = '" & Standort & "' " & sqladdon & "
AND gs_datum > '" & Date.Parse(txtVon.Text) & "'
AND gs_datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'"
dgvListe.SET_SQL(sqlstring, "AVISO")
dgvListe.LOAD()
@@ -69,19 +69,19 @@ Public Class frmGesamtsicherheitenMenu
With dgvListe
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.RowHeadersWidth = 6
.Columns("Standort").Visible = False
.Columns("GesamtsichNr").HeaderText = "#"
.Columns("GesamtsichNr").Width = 36
.Columns("Filialnummer").HeaderText = "Filiale"
.Columns("Filialnummer").Width = 43
.Columns("Abfertigungsnummer").HeaderText = "Abfert.Nr."
.Columns("Abfertigungsnummer").Width = 107
.Columns("Datum").Width = 112
.Columns("SicherheitsSaldo").Width = 96
.Columns("gs_standort").Visible = False
.Columns("gs_gsnr").HeaderText = "#"
.Columns("gs_gsnr").Width = 36
.Columns("gs_filialNr").HeaderText = "Filiale"
.Columns("gs_filialNr").Width = 43
.Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr."
.Columns("gs_abfertigungsNr").Width = 107
.Columns("gs_datum").Width = 112
.Columns("gs_SicherheitsSaldo").Width = 96
End With
For Each row As DataGridViewRow In dgvListe.Rows
If row.Cells("SicherheitsSaldo").Value <> 0 Then
If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
row.DefaultCellStyle.BackColor = Color.Red
Else
row.DefaultCellStyle.BackColor = Color.Green
@@ -91,8 +91,9 @@ Public Class frmGesamtsicherheitenMenu
End Function
Public Sub ShowStandort()
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.referenzwert.ToString("N")
lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%"
'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
End Sub
@@ -103,12 +104,12 @@ Public Class frmGesamtsicherheitenMenu
Dim frm As New frmGesamtsicherheiten
With frm
.GesSichRef = GesSichRef
.gessicherheitID = dgvListe.CurrentRow.Cells("GesamtsichNr").Value
.gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
.Standort = Me.Standort
.datum = dgvListe.CurrentRow.Cells("Datum").Value
.LKWID = dgvListe.CurrentRow.Cells("LKWID").Value
.FilialNummer = dgvListe.CurrentRow.Cells("FilialNummer").Value
.Abfertigungsnummer = dgvListe.CurrentRow.Cells("Abfertigungsnummer").Value
.datum = dgvListe.CurrentRow.Cells("gs_datum").Value
.LKWID = dgvListe.CurrentRow.Cells("gs_LKWID").Value
.FilialNummer = dgvListe.CurrentRow.Cells("gs_filialNr").Value
.Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
End With
AddHandler frm.FormClosing, Function()