Aplikační formulář Přehled materiálu
Přehled materiálu - odstranění materiálu
 Tisk

Přehled materiálu - odstranění materiálu

Především musíme otestovat, zda materiálu nejsou přiřazeny žádné palety .


Dále je třeba potvrdit zrušení, aby k odstranění nemohlo dojít omylem .


Vše provedeme kódem :

#Region "Editace zaznamu"


#Region "Ridici tlacitka"


    Private Sub btnOdstranit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOdstranit.Click

        Dim vys As MsgBoxResult

        Dim dvPalety As New DataView(Me.DsData.tblPalety)

        dvPalety.RowFilter = "Cislo_Mat = '" & Me.txtCislo_Mat.Text & "'"

        If dvPalety.Count > 0 Then

            'Material v nektere palete nalezen

            MsgBox("Nelze zrušit. Materiál je v některé paletě", MsgBoxStyle.Exclamation)

        Else

            'Material v zadne palete nenalezen

            vys = MsgBox("Opravdu chcete smazat tuto položku", MsgBoxStyle.Information + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "Smazat")

            If vys = MsgBoxResult.Yes Then

                'muzeme smazat material

                TblMaterialBindingSource.RemoveCurrent()

            End If

        End If

    End Sub

#End Region

#End Region