feature_gesamtsicherheiten

2022-10-21 17:01:56 +02:00
parent ed4e9bc99b
commit 3d5f7302dd
9 changed files with 1617 additions and 704 deletions
--- a/Aviso/frmGesamtsicherheitenMenuNEU.vb
+++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb
@@ -0,0 +1,336 @@
+Imports System.Reflection
+
+Public Class frmGesamtsicherheitenMenuNEU
+
+    Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
+    Dim dt As DataTable
+    Public Property Standort As String = ""
+    Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+        cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
+        Me.Text = "Gesamtsicherheiten " & Standort
+        frmHauptfenster.EnableDoubleBuffered(dgvListe)
+        GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
+        'GesSichRef.LOAD("standort", Standort)
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+
+        'txtDatVon._ShortDateOnly = True
+        'txtDatBis._ShortDateOnly = True
+
+        txtDatVon.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
+        txtDatBis.Text = Now.ToShortDateString
+
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+
+
+        'txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
+        'txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
+        ShowStandort()
+        LoadDGV()
+    End Sub
+
+    Public Function LoadDGV()
+        Dim sqladdon As String = ""
+        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 & "'"
+
+        Dim sqlstring As String =
+            " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr,
+                max(gs_LKWKZ) as gs_LKWKZ, 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 gs_SicherheitsSaldo
+
+            From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where 
+                gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
+                gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
+                gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR
+                gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR
+                gs_warenort like '%" & txtSuchbegriff.Text & "%'
+            ) 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(txtDatVon.Text) & "'
+            AND gs_datum < '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'"
+
+        dgvListe.SET_SQL(sqlstring, "AVISO")
+        dgvListe.LOAD()
+
+        With dgvListe
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .RowHeadersWidth = 6
+            .Columns("gs_standort").Visible = False
+            .Columns("gs_gsnr").HeaderText = "#"
+            .Columns("gs_gsnr").Width = 36
+            .Columns("gs_filialenNr").HeaderText = "Filiale"
+            .Columns("gs_filialenNr").Width = 43
+            .Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr."
+            .Columns("gs_abfertigungsNr").Width = 107
+            .Columns("gs_datum").Width = 112
+            .Columns("gs_SicherheitsSaldo").Width = 106
+            .Columns("gs_Warenort").Width = 96
+            .Columns("gs_Warenort").HeaderText = "Warenort"
+
+        End With
+
+        For Each row As DataGridViewRow In dgvListe.Rows
+            If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
+                row.DefaultCellStyle.BackColor = Color.Red
+            Else
+                row.DefaultCellStyle.BackColor = Color.Green
+            End If
+        Next
+
+    End Function
+
+    Public Sub ShowStandort()
+        '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
+
+
+
+
+    Private Sub OpenFRM(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListe.CellDoubleClick
+        Dim frm As New frmGesamtsicherheitenNEU
+        With frm
+            .currentGesSichRef = GesSichRef
+            .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
+            .Standort = Me.Standort
+            .datum = dgvListe.CurrentRow.Cells("gs_datum").Value
+            .LKWKZ = dgvListe.CurrentRow.Cells("gs_LKWKZ").Value
+            .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
+            .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
+            .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
+        End With
+
+        AddHandler frm.FormClosing, Function()
+                                        GesSichRef.CalcSaldo()
+                                        ShowStandort()
+                                        LoadDGV()
+                                        Me.BringToFront()
+                                    End Function
+        frm.Show()
+    End Sub
+
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+        Dim frm As New frmGesamtsicherheitenNEU
+        With frm
+            .currentGesSichRef = GesSichRef
+            .Standort = Me.Standort
+            .datum = Date.Now
+            .Neu = True
+        End With
+        AddHandler frm.FormClosing, Function()
+                                        GesSichRef.CalcSaldo()
+                                        ShowStandort()
+                                        LoadDGV()
+                                        Me.BringToFront()
+                                    End Function
+        frm.Show()
+    End Sub
+
+    Private Sub lblSaldo_Click(sender As Object, e As EventArgs) Handles lblSaldo.Click
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+        LoadDGV()
+    End Sub
+
+    Private Sub chkOffen_CheckedChanged(sender As Object, e As EventArgs)
+        If Me.Visible Then LoadDGV()
+    End Sub
+    Private Sub Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
+        Select Case Asc(e.KeyChar)
+            Case 48 To 57, 8, 46, 58, 32, 44, 65 To 90, 97 To 122
+                ' Zahlen, Backspace, . und : zulassen
+
+            Case Else
+                ' alle anderen Eingaben unterdrücken
+                e.Handled = True
+        End Select
+    End Sub
+
+    Private Sub resetSearchfields_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        txtSuchbegriff.Text = "" : chkOffen.Checked = True
+        txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
+        txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
+        cbxStandort._value = ""
+        cbxWarenort._value = ""
+        btnSucheStarten_Click(sender, e)
+    End Sub
+
+    Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click
+        Try
+            Date.Parse(txtDatVon.Text)
+            Date.Parse(txtDatBis.Text)
+            If Me.Visible Then LoadDGV()
+        Catch ex As Exception
+            MsgBox("Datum VON und/oder BIS konnte nicht konvertiert werden.")
+        End Try
+    End Sub
+
+    'Private Sub FlatButton2_Click(sender As Object, e As EventArgs)
+    '    txtDatVon.Text = Date.Parse("01.01.1970")
+    '    txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
+    'End Sub
+
+    Private Sub ExportCSVToolStripMenuItem_Click(sender As Object, e As EventArgs)
+        csvexport(dgvListe)
+    End Sub
+
+    Public Shared Function csvexport(quelldgv As DataGridView)
+        Dim savefiledialog As New SaveFileDialog
+        Dim firstin As String
+        Dim out As String
+        Dim in2 As String
+        Dim header As String
+
+        savefiledialog.Filter = "CSV files (*.csv)|*.CSV"
+        savefiledialog.InitialDirectory = "C:\Verag"
+        savefiledialog.ShowDialog()
+
+
+        Try
+            For r As Integer = 0 To quelldgv.Rows.Count - 1
+                For c As Integer = 0 To quelldgv.Columns.Count
+                    'test &= r & c & vbCrLf
+                    Try
+                        'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                        firstin = quelldgv.Rows(r).Cells(c).Value.ToString
+                        'in2 = """" & firstin & """" & ";"
+                        in2 = firstin & ";"
+                        out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                    Catch ex As Exception
+                        out &= ""
+                    End Try
+
+                Next
+
+                out &= "nZ"
+            Next
+            For c As Integer = 0 To quelldgv.Columns.Count - 1
+                header &= quelldgv.Columns(c).Name & ";"
+            Next
+            out = Replace(out, "nZ", vbCrLf)
+            'MsgBox(out)
+            Using sw As New IO.StreamWriter(savefiledialog.FileName)
+                sw.WriteLine(header)
+                sw.WriteLine(out)
+            End Using
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+
+    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
+    Dim TAG As Date = CDate(Now.ToShortDateString)
+    Dim JAHR As Date = CDate("01.01." & Now.Year)
+
+
+    Sub initBtns(MonatJahr)
+        btnMonat.Text = MONAT.ToString("MMMM")
+        btnJahr.Text = JAHR.Year
+        Select Case MonatJahr
+            Case "Monat"
+                DateTimePicker1.Value = MONAT
+                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
+            Case "Jahr"
+
+                DateTimePicker1.Value = JAHR
+                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
+                'End If
+            Case "Tag"
+
+                DateTimePicker1.Value = TAG
+                DateTimePicker2.Value = TAG
+                If TAG = Now.ToShortDateString Then
+                    btnTag.Text = "Heute"
+                ElseIf TAG = Now.AddDays(-1).ToShortDateString Then
+                    btnTag.Text = "Gestern"
+                ElseIf TAG = Now.AddDays(-2).ToShortDateString Then
+                    btnTag.Text = "Vorgestern"
+                ElseIf TAG = Now.AddDays(1).ToShortDateString Then
+                    btnTag.Text = "Morgen"
+                Else
+                    btnTag.Text = TAG.ToString("dd.MM")
+                End If
+
+                'End If
+            Case ""
+                DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
+                DateTimePicker2.Value = Now
+        End Select
+
+    End Sub
+
+
+    Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnPlusJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
+        JAHR = JAHR.AddYears(1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnMinusJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
+        JAHR = JAHR.AddYears(-1)
+        initBtns("Jahr")
+    End Sub
+
+    Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnPlusMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
+        MONAT = MONAT.AddMonths(1)
+        initBtns("Monat")
+    End Sub
+
+    Private Sub btnMinusMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
+        MONAT = MONAT.AddMonths(-1)
+        initBtns("Monat")
+    End Sub
+
+
+    Private Sub btnTag_Click(sender As Object, e As EventArgs) Handles btnTag.Click
+        initBtns("Tag")
+    End Sub
+
+    Private Sub btnMinusTag_Click(sender As Object, e As EventArgs) Handles btnVonTag.Click
+        TAG = TAG.AddDays(-1)
+        initBtns("Tag")
+    End Sub
+
+    Private Sub btnPlusTag_Click(sender As Object, e As EventArgs) Handles btnBisTag.Click
+        TAG = TAG.AddDays(1)
+        initBtns("Tag")
+    End Sub
+
+    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
+        txtDatVon._value = CDate(sender.value).ToShortDateString
+        btnSucheStarten_Click(sender, e)
+    End Sub
+
+    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
+        txtDatBis._value = CDate(sender.value).ToShortDateString
+        btnSucheStarten_Click(sender, e)
+    End Sub
+
+    Function setNullToZero(s As String, Optional type As String = "")
+
+        If s = "" Then
+            Dim zero As Double = 0
+
+            Return zero
+        Else
+            Return s
+        End If
+    End Function
+
+
+End Class