AVISO/Aviso/frmGesamtsicherheitenMenuNEU.vb

Imports SDL
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON

Public Class frmGesamtsicherheitenMenuNEU

    Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten
    Public dataTable As DataTable
    Public Property Standort As String = ""
    Public firmaId As Integer


    Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        Select Case Standort
            Case "Verag GmbH" : firmaId = 2
            Case "VERAG AG" : firmaId = 1
            Case "IMEX" : firmaId = 20
            Case "Verag CS" : firmaId = 11
        End Select


        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)
        cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge]  ", True, "AVISO", True)
        cbxWarenort.DropDownWidth = 150
        Me.Text = "Gesamtsicherheiten " & Standort
        frmHauptfenster.EnableDoubleBuffered(dgvListe)

        GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
        If GesSichRef.hasEntry = False Then
            MsgBox("Für den Standort " & Standort & " wurde keine Referenz hingerlegt!")
            Exit Sub

        End If
        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")

        txtDatVon.Text = Date.Parse("01.01.2001")
        txtDatBis.Text = Now.ToShortDateString
        chkOffen.Checked = True

        btnMonat.Text = MONAT.ToString("MMMM")
        btnJahr.Text = JAHR.Year

        If GesSichRef.brgakto_gs_ATR = True Then
            Dim anzahlOffenerGSUeber85Tage As Integer = checkOpenATBs()
            If anzahlOffenerGSUeber85Tage > 0 Then
                btnOpenOver85Days.Visible = True
            End If
        End If

        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, MIN(gs_avisoId) as gs_avisoId,
                max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(
                  (Select SUM( Case 
			when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
			when gs_art = 'Close' then gs_sicherheitsbetrag
		        End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr
		        )
		        +
		        (Select SUM( Case 
			when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
			when gsp_art = 'Close' then gsp_sicherheitsbetrag
		        End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr
			        ) , '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_avisoId 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) & "' ORDER BY gs_gsnr"

        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 = 70
            .Columns("gs_datum").Width = 112
            .Columns("gs_datum").HeaderText = "Datum"
            .Columns("gs_SicherheitsSaldo").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("gs_SicherheitsSaldo").HeaderText = "offener S-Betrag"
            .Columns("gs_Warenort").Width = 96
            .Columns("gs_Warenort").HeaderText = "Warenort"
            .Columns("gs_avisoId").Width = 96
            .Columns("gs_avisoId").HeaderText = "LKW-ID"
            .Columns("gs_LKWKZ").HeaderText = "LKW-KZ"

        End With



        If dgvListe.Rows.Count = 0 Then Exit Function

        dataTable = New DataTable()
        dataTable.Columns.Add("gs_gsnr", GetType(Integer))
        dataTable.Columns.Add("gs_isOpen", GetType(Boolean))




        For Each row As DataGridViewRow In dgvListe.Rows
            If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then
                If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then

                    dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True)
                    row.DefaultCellStyle.BackColor = Color.IndianRed
                Else
                    dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
                    row.DefaultCellStyle.BackColor = Color.Green
                End If
            End If
        Next

    End Function

    Public Sub ShowStandort()
        lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.brgakto_betrag).ToString("N")
        lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_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
            .avisoID = dgvListe.CurrentRow.Cells("gs_avisoId").Value
            .dataTable = Me.dataTable
            .firmaId = Me.firmaId
        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
            .dataTable = Me.dataTable
            .firmaId = Me.firmaId
        End With
        AddHandler frm.FormClosing, Function()
                                        GesSichRef.CalcSaldo()
                                        ShowStandort()
                                        LoadDGV()
                                        Me.BringToFront()
                                    End Function
        frm.Show(Me)
        '        frm.Parent = Me
    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 btnResetFilter.Click
        txtSuchbegriff.Text = "" : chkOffen.Checked = True
        txtDatVon.Text = Date.Today.AddDays(-90).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

    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

    Private Sub btnOpenOver85Days_Click(sender As Object, e As EventArgs) Handles btnOpenOver85Days.Click
        resetSearchfields_Click(sender, e)
        chkOffen.Checked = True
        DateTimePicker1.Value = Now.AddYears(-20)
        DateTimePicker2.Value = Now.AddDays(-85)

        btnSucheStarten_Click(sender, e)

    End Sub

    Private Function checkOpenATBs() As Integer

        Dim anzahlOffenerGSUeber85Tage As Integer

        Dim dtNew As New DataTable

        Dim sqlstring As String = "select count(*) as anzahlOffeneATBs from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort,min (gs_datum) as gs_datum, 
                  (Select SUM( Case 
			when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
			when gs_art = 'Close' then gs_sicherheitsbetrag
		        End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheit] where gs_gsnr = meh.gs_gsnr
		        )
		        +
		        (Select SUM( Case 
			when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
			when gsp_art = 'Close' then gsp_sicherheitsbetrag
		        End) As gs_SicherheitsSaldo FROM [tblGesamtsicherheitsPositionen] where gsp_gsnr = meh.gs_gsnr
			        ) as Sicherheitssaldo

            From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2
            Where gs_standort = '" & Standort & "'AND Sicherheitssaldo <> 0  AND gs_datum < '" & Date.Now().AddDays(-85) & "'"

        dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)

        If (dtNew.Rows(0).Item(0) IsNot DBNull.Value) Then

            anzahlOffenerGSUeber85Tage = dtNew.Rows(0).Item(0)
            If anzahlOffenerGSUeber85Tage > 0 Then
                MsgBox("Es sind " & anzahlOffenerGSUeber85Tage & " ATBs offen, die älter als 85 Tage sind!")
            End If
            Return anzahlOffenerGSUeber85Tage
        End If



    End Function

    Private Sub ExportCSVToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ExportCSVToolStripMenuItem.Click

        SDL.cProgramFunctions.genExcelFromDGV_NEW(dgvListe)

    End Sub

    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportCSV2ToolStripMenuItem.Click

        If dgvListe.Rows.Count > 0 Then
            Dim list As New List(Of Integer)

            For Each row As DataGridViewRow In dgvListe.Rows
                list.Add(CInt(row.Cells("gs_gsnr").Value))


            Next
            Dim frm As New frmGesamtsicherheitenNEU

            Dim datumVon As String = DateTimePicker1.Value.AddDays(-1)

            frm.LoadDataTableSicherheitenForExport(list, datumVon, txtDatBis.Text)

            SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)

        End If
    End Sub

    Private Sub chkOffen_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkOffen.CheckedChanged
        If txtDatVon._value <> "" AndAlso txtDatBis._value <> "" Then btnSucheStarten.PerformClick()
    End Sub

    Private Sub SaldenNeuBerechnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaldenNeuBerechnenToolStripMenuItem.Click

        lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
        MsgBox("Salden wurden neu berechnet")

    End Sub

    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles btnExcel.Click

        Select Case Standort

            Case "Verag GmbH"
                Process.Start("https://file.verag.ag:5001/d/s/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO/i4_Ss9mG9jR7hB4wStoIbzhvYzlJJJPv-BbegLJoGuQk")

            Case "VERAG AG"
                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_AG")
                DS.OPEN_SINGLE_ORIG()

            Case "Verag CS"
                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_CS")
                DS.OPEN_SINGLE_ORIG()

            Case "IMEX"
                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "IMEX", "", "Gesamtsicherheit_IMEX")
                DS.OPEN_SINGLE_ORIG()

        End Select

    End Sub
End Class