SDL/SDL/kunden/frmKundenLinkedGruppe.vb

Imports System.Web.UI.WebControls.Expressions
Imports VERAG_PROG_ALLGEMEIN

Public Class frmKundenLinkedGruppe
    Dim STAMM_KDNR As Integer


    Sub New(STAMM_KDNR)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Me.STAMM_KDNR = STAMM_KDNR
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub frmKundenLinkedGruppe_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Text &= " " & STAMM_KDNR
        kdKundeAdd.initKdBox(Me)


        initDGV()

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_GruppeBearbeiten", "SDL") Then
            pnlEditGruppe.Visible = True
        End If


    End Sub

    Sub initDGV()
        With dgvKundenGruppe
            .SET_SQL("SELECT [grp_KdNr],Ordnungsbegriff,[grp_Firma],grp_isStamm FROM [tblGruppeKundenNr] inner join Adressen on AdressenNr=[grp_KdNr] where [grp_StammKdNr] = '" & STAMM_KDNR & "' and [grp_Gruppe]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMEN_GRUPPE & "'", "FMZOLL")
            .LOAD()

            .Columns("grp_isStamm").Visible = False
            .Columns("grp_KdNr").HeaderText = "KdNr"
            .Columns("grp_KdNr").Width = 80
            .Columns("Ordnungsbegriff").HeaderText = "Kunde"
            .Columns("Ordnungsbegriff").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("grp_Firma").HeaderText = "Firma"
            .Columns("grp_Firma").Width = 80
        End With

    End Sub

    Private Sub MyDatagridview1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles dgvKundenGruppe.MouseDoubleClick
        Try

            If dgvKundenGruppe.SelectedRows.Count > 0 Then
                If dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value IsNot Nothing AndAlso dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value > 0 Then
                    Dim frmKd = DirectCast(Me.Owner, frmKundenUebersichtZOLL)
                    frmKd.setKD(dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value)
                    Me.Close()
                End If
            End If

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        If kdKundeAdd.KdNr_value > 0 Then
            If vbYes = MsgBox("Möchten Sie die Firma wirklich zur Gruppe hinzufügen? " & vbNewLine & vbNewLine & "Haben Sie geprüft, dass es sich um dieselbe Firma handelt?", vbYesNoCancel) Then
                Dim GRP As New cGruppeKundenNr(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMEN_GRUPPE, kdKundeAdd.KdNr_value)
                GRP.grp_StammKdNr = STAMM_KDNR
                GRP.grp_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(kdKundeAdd.KdNr_value)

                If STAMM_KDNR = kdKundeAdd.KdNr_value Then GRP.grp_isStamm = True
                GRP.SAVE()

                If Not GRP.grp_isStamm Then
                    If Not cGruppeKundenNr.checkStamm(STAMM_KDNR) Then 'Es gibt noch keinen Stammeintrag
                        'Stammeintrag erzeugen:
                        Dim GRP_STAMM As New cGruppeKundenNr(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMEN_GRUPPE, STAMM_KDNR)
                        GRP_STAMM.grp_StammKdNr = STAMM_KDNR
                        GRP_STAMM.grp_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(STAMM_KDNR)
                        GRP_STAMM.grp_isStamm = True
                        GRP_STAMM.SAVE()
                    End If
                End If

                dgvKundenGruppe.RELOAD()
            End If
        End If
    End Sub



    Private Sub dgvKundenGruppe_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvKundenGruppe.KeyDown
        If e.KeyCode = Keys.Delete Then
            If dgvKundenGruppe.SelectedRows.Count > 0 Then
                If dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value IsNot Nothing AndAlso dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value > 0 Then

                    'Wenn selektierte = Stamm
                    If dgvKundenGruppe.SelectedRows(0).Cells("grp_isStamm").Value Then
                        If STAMM_KDNR = dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value AndAlso cGruppeKundenNr.cntGroupStamm(STAMM_KDNR) > 1 Then
                            'Löschen nur möglich, wenn Stamm letzter Eintrag
                            MsgBox("Stammkunde kann nicht gelöscht werden, wenn andere Einträge vorhanden sind!")
                            Exit Sub
                        Else
                            If vbYes = MsgBox("Möchten Sie die KdNr '" & dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value & "' als Stammkunde entfernen?", vbYesNoCancel) Then
                                Dim GRP_STAMM As New cGruppeKundenNr(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMEN_GRUPPE, dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value)
                                GRP_STAMM.DELETE()
                                dgvKundenGruppe.RELOAD()
                            End If
                        End If
                    End If

                    If vbYes = MsgBox("Möchten Sie die Verlinkung zu KdNr '" & dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value & "' wirklich löschen?", vbYesNoCancel) Then
                        Dim GRP_STAMM As New cGruppeKundenNr(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMEN_GRUPPE, dgvKundenGruppe.SelectedRows(0).Cells("grp_KdNr").Value)
                        GRP_STAMM.DELETE()
                        dgvKundenGruppe.RELOAD()
                    End If
                End If
            End If
        End If
    End Sub
End Class