SDL/SDL/kunden/frmKundenSicherheiten.vb

Imports VERAG_PROG_ALLGEMEIN

Public Class frmKundenSicherheiten

    Public KundenNr As Integer = -1

    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year)
    Dim srcTAG As Date = CDate(Now.ToShortDateString)
    Dim JAHR As Date = CDate("01.01." & Now.Year)

    Sub New()
        InitializeComponent()
    End Sub

    Dim FilialenNr = Nothing
    Dim AbfertigungsNr = Nothing
    Dim DatumVon = Nothing

    Sub New(FilialenNr, AbfertigungsNr, DatumVon)
        InitializeComponent()
        Me.FilialenNr = FilialenNr
        Me.AbfertigungsNr = AbfertigungsNr
        Me.DatumVon = DatumVon
    End Sub

    Private Sub frmKundenSicherheiten_Load(sender As Object, e As EventArgs) Handles Me.Load

        txtAbfertDat.Text = Now.AddYears(-2).ToShortDateString
        txtAbfertDatBis.Text = Now.ToShortDateString
        pnlBH.Visible = True
        btnSuche.PerformClick()


        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kunden_Sicherheiten", Me) Then
            btnDel.Visible = True
            Button1.Visible = True
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then
            Button3.Visible = True
        End If

        If Me.DatumVon IsNot Nothing Then
            DateTimePicker1.Value = CDate(DatumVon)
        End If
        txtFirma.initKdBox(Me)

        If KundenNr > 0 Then
            txtFirma.KdNr = KundenNr
            txtFirma.Enabled = False
            DateTimePicker1.Value = Now.AddYears(-1)
            DateTimePicker2.Value = Now
            btnSuche.PerformClick()
        End If

    End Sub

    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
        txtAbfertDat._value = CDate(sender.value).ToShortDateString
    End Sub

    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
        txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
    End Sub



    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click

        Me.Cursor = Cursors.WaitCursor

        Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
        Dim sqlstr As String = ""

        sqlstr =
            "SELECT " & TopMax & " " &
            "sc_id, sc_kundenNr, sc_datum, sc_gueltigVon, sc_gueltigBis, " &
            "sc_Art, sc_Sicherheitsgeber, sc_SicherheitsgeberLand, " &
            "sc_Betrag, sc_Waehrung " &
            "FROM tblKundenSicherheiten WHERE  1=1 "

        With MyDatagridview1
            .SET_SQL(sqlstr & getKundenSicherheitenWhere() & " ORDER BY sc_datum DESC",
                     "FMZOLL",
                     getKundenSicherheitenList())
            .LOAD()
            setDGVOptions()
        End With

        Me.Cursor = Cursors.Default

    End Sub

    Function getKundenSicherheitenWhere() As String
        Dim sqlstr = ""

        If txtAbfertDat.Text <> "" Then
            sqlstr &= " AND (sc_datum BETWEEN @DatumVon AND @DatumBis) "
        End If

        If txtFirma.KdNr_value > 0 Then
            If IsNumeric(txtFirma.KdNr_value) Then
                sqlstr &= " AND sc_kundenNr = @Firma "
            End If
        End If

        sqlstr &= " AND  sc_storno = @Storno "


        Return sqlstr
    End Function

    Function getKundenSicherheitenList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)

        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumVon", txtAbfertDat.Text & " 00:00:00"))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumBis", txtAbfertDatBis.Text & " 23:59:59"))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", txtFirma.KdNr_value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Storno", cbxStorno.Checked))

        Return list

    End Function

    Sub setDGVOptions()

        With MyDatagridview1

            If .RowCount = 0 Then Exit Sub

            .RowHeadersVisible = False
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False

            .Columns("sc_id").Visible = False

            .Columns("sc_kundenNr").HeaderText = "KdNr"
            .Columns("sc_kundenNr").Width = 60

            .Columns("sc_datum").HeaderText = "Datum"
            .Columns("sc_datum").Width = 90

            .Columns("sc_gueltigVon").HeaderText = "Gültig von"
            .Columns("sc_gueltigBis").HeaderText = "Gültig bis"

            .Columns("sc_Art").HeaderText = "Art"
            .Columns("sc_Art").Width = 120

            .Columns("sc_Sicherheitsgeber").HeaderText = "Sicherheitsgeber"
            .Columns("sc_Sicherheitsgeber").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

            .Columns("sc_Betrag").HeaderText = "Betrag"
            .Columns("sc_Betrag").DefaultCellStyle.Format = "N2"
            .Columns("sc_Betrag").Width = 90

            .Columns("sc_Waehrung").HeaderText = "Währung"
            .Columns("sc_Waehrung").Width = 60

        End With
    End Sub

    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
        Me.Cursor = Cursors.WaitCursor
        cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click

        If MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub

        If vbYes <> MsgBox("Möchten Sie die Sicherheit wirklich löschen?", vbYesNoCancel) Then Exit Sub

        Dim sc_id = MyDatagridview1.SelectedRows(0).Cells("sc_id").Value
        Dim S As New cKundenSicherheiten(sc_id)
        '  S.DELETE()
        S.STORNO()

        MyDatagridview1.RELOAD()
        setDGVOptions()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As New frmKundenSicherheiten_Details()
        f.kdnr = txtFirma.KdNr_value
        f.ShowDialog(Me)
        btnSuche.PerformClick()
    End Sub

    Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles MyDatagridview1.DoubleClick
        If MyDatagridview1.SelectedRows.Count = 0 And MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub

        Dim atr_id = MyDatagridview1.SelectedRows(0).Cells("sc_id").Value
        Dim f As New frmKundenSicherheiten_Details(atr_id)
        f.ShowDialog(Me)
        btnSuche.PerformClick()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub

        If vbYes <> MsgBox("Möchten Sie die Sicherheit wirklich löschen?", vbYesNoCancel) Then Exit Sub

        Dim sc_id = MyDatagridview1.SelectedRows(0).Cells("sc_id").Value
        Dim S As New cKundenSicherheiten(sc_id)
        S.DELETE()

        MyDatagridview1.RELOAD()
        setDGVOptions()
    End Sub
End Class