Feature Gesamtsicherheiten: Refactorting und Einbau der neuen Funktionen

Aviso/frmGesamtsicherheitenMenu.vb

@@ -0,0 +1,295 @@
+Imports System.Reflection
+
+Public Class frmGesamtsicherheitenMenu
+    ' Public Zollsatz As Integer = 0
+    ' Public ZollsatzMulti As Double = 0
+    ' Public Referenzwert As Integer = 0
+    ' Public UstEnabled As Boolean = False
+    'Public Ust As Integer
+    ' Public Saldo As Integer = 0
+    Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    'Dim GesSichRef As New cGesamtSicherheitsReferenz
+    Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
+
+    'Public ATR As Boolean = False
+    Public Property Standort As String = ""
+    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.LOAD("standort", Standort)
+        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
+
+        txtVon._ShortDateOnly = True
+        txtbis._ShortDateOnly = True
+
+        txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
+        txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
+        ShowStandort()
+        LoadDGV()
+    End Sub
+
+    Public Function LoadDGV()
+        Dim sqladdon As String = ""
+        If chkOffen.Checked Then sqladdon &= " AND 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( 
+        'Case 
+        '	when Art = 'Open' then (Sicherheitsbetrag * -1)
+        '	when Art = 'Close' then Sicherheitsbetrag
+        'End) , 'C', 'de-DE') As SicherheitsSaldo
+        'From [tblGesamtsicherheit]
+        'Group by GesamtsichNr) as Temp  
+        ' Where Standort = '" & Standort & "'
+        '" & sqladdon & "
+        '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( 
+            Case 
+	            when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
+	            when gs_art = 'Close' then gs_sicherheitsbetrag
+            End) , 'C', 'de-DE')As 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_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) & "'"
+
+        dgvListe.SET_SQL(sqlstring, "AVISO")
+        dgvListe.LOAD()
+
+        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
+        End With
+
+        For Each row As DataGridViewRow In dgvListe.Rows
+            If row.Cells("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.referenzwert.ToString("N")
+        lblZollsatz.Text = "Zollsatz: " & GesSichRef.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 frmGesamtsicherheiten
+        With frm
+            .GesSichRef = GesSichRef
+            .gessicherheitID = dgvListe.CurrentRow.Cells("GesamtsichNr").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
+        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 frmGesamtsicherheiten
+        With frm
+            .GesSichRef = GesSichRef
+            .Standort = Me.Standort
+            .datum = Date.Now
+            '.ATR = GesSichRef.ATR
+            '.Ust = GesSichRef.Ust
+            '.UstEnabled = GesSichRef.UstEnabled
+            .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) Handles chkOffen.CheckedChanged, txtSuchbegriff.TextChanged
+        If Me.Visible Then LoadDGV()
+    End Sub
+    Private Sub Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSuchbegriff.KeyPress
+        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 FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        txtSuchbegriff.Text = "" : chkOffen.Checked = True
+        txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
+        txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
+    End Sub
+
+    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub btnSucheStarten_Click(sender As Object, e As EventArgs) Handles btnSucheStarten.Click
+        Try
+            Date.Parse(txtVon.Text)
+            Date.Parse(txtbis.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) Handles FlatButton2.Click
+        txtVon.Text = Date.Parse("01.01.1970")
+        txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
+    End Sub
+
+    Private Sub ExportCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportCSVToolStripMenuItem.Click
+        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
+End Class
+
+'Public Class cGesamtSicherheitsReferenz
+'    Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+'    Property Zollsatz As Integer = 0
+'    Property ZollsatzMulti As Double = 0
+'    Property Referenzwert As Double = 0
+'    Property UstEnabled As Boolean = False
+'    Property Ust As Integer
+'    Property Saldo As Double = 0
+'    Property ATR As Boolean = False
+'    Property Standort As String = ""
+
+'    Public Sub LoadStandort(_Standort As String)
+'        'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & _Standort & "'"
+'        Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where gsr_standort = " & "'" & _Standort & "'"
+'        Dim dt As New DataTable
+'        dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
+'        'Zollsatz = dt.Rows(0).Item("Zollsatz")
+'        Zollsatz = dt.Rows(0).Item("gsr_zollsatz")
+'        'Referenzwert = dt.Rows(0).Item("Referenzwert")
+'        Referenzwert = dt.Rows(0).Item("gsr_referenzwert")
+'        UstEnabled = dt.Rows(0).Item("gsr_ustEnabled")
+'        'UstEnabled = dt.Rows(0).Item("UstEnabled")
+'        Ust = dt.Rows(0).Item("gsr_ust")
+'        'Ust = dt.Rows(0).Item("Ust")
+'        ATR = dt.Rows(0).Item("gsr_ATR")
+'        'ATR = dt.Rows(0).Item("ATR")
+'        ZollsatzMulti = Zollsatz / 100
+'        Saldo = dt.Rows(0).Item("gsr_aktSaldo")
+'        'Saldo = dt.Rows(0).Item("aktSaldo")
+'        Standort = _Standort
+'    End Sub
+
+'    Public Function CalcSaldo() As String
+'        Dim SaldoString As String =
+'            "select SUM( 
+'                case 
+'	                when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
+'	                when gs_art = 'Close' then gs_sicherheitsbetrag
+'                end) as SicherheitsSaldo
+'        from [tblGesamtsicherheit] Where gs_standort = '" & Standort & "'"
+
+'        Dim dt As New DataTable
+'        Dim mrn As Double = 0
+'        dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
+'        If dt.Rows(0).Item(0).ToString.Length > 0 Then
+'            mrn = dt.Rows(0).Item(0)
+'        End If
+
+'        Saldo = Referenzwert + mrn
+
+'        updateSaldo()
+'        Return Saldo
+'    End Functio
+
+'    Public Function updateSaldo()
+'        SQL.doSQL("Update [tblGesamtsicherheitReferenz] Set gsr_aktSaldo = '" & Saldo & "' WHERE gsr_Standort = '" & Standort & "'", "AVISO")
+'    End Function
+
+'End Class