RETO 4 - LOGISTICA – ASIGNACION DE PRODUCTOS

Public Class Form1

    Dim prod As Integer = 0

    Dim adm As Integer = 0

    Dim cont As Integer = 0

    Dim venta As Integer = 0

    Dim acum, restante2 As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        lblreloj.Text = Date.Now().ToLongTimeString

    End Sub

    Private Sub btnseleccionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnseleccionar.Click

        Dim cero As Object = chkldepartamentos.GetItemChecked(0)

        Dim uno As Object = chkldepartamentos.GetItemChecked(1)

        Dim dos As Object = chkldepartamentos.GetItemChecked(2)

        Dim tres As Object = chkldepartamentos.GetItemChecked(3)

        cbodepartamento.Items.Clear()

        If chkldepartamentos.CheckedItems.Count < 2 Then

            MessageBox.Show("Seleccione al menos 2 departamentos", "Mensaje al usuario")

        Else

            If cero = True Then

                cbodepartamento.Items.Add(chkldepartamentos.Items(0))

            End If

            If uno = True Then

                cbodepartamento.Items.Add(chkldepartamentos.Items(1))

            End If

            If dos = True Then

                cbodepartamento.Items.Add(chkldepartamentos.Items(2))

            End If

            If tres = True Then

                cbodepartamento.Items.Add(chkldepartamentos.Items(3))

            End If

        End If

    End Sub

    Private Sub btnasignar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnasignar.Click

        If txtcantidad.Text = "" Then

            MessageBox.Show("Intruduzca cantidad", "Mensaje")

        End If

        lstmostrar.Items.Clear()

        Select Case cbodepartamento.SelectedItem

            Case "Administracion"

                adm = Val(txtcantasignada.Text)

            Case "Contabilidad"

                cont = Val(txtcantasignada.Text)

            Case "Produccion"

                prod = Val(txtcantasignada.Text)

            Case "Ventas"

                venta = Val(txtcantasignada.Text)

        End Select

        acum = adm + cont + prod + venta

        restante2 = txtcantidad.Text - acum

       

        lblrestante.Text = "Restantes: " & restante2

        If restante2 < 0 Then

            MessageBox.Show("Seleccione mas productos", "Mensaje")

            lblrestante.Text = "Restantes: "

            Select Case cbodepartamento.SelectedItem

                Case "Administracion"

                    adm = 0

                Case "Contabilidad"

                    cont = 0

                Case "Produccion"

                    prod = 0

                Case "Ventas"

                    venta = 0

            End Select

            restante2 = restante2 + Val(txtcantasignada.Text)

        End If

    End Sub

    Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click

        Dim n As Integer

        lstmostrar.Items.Clear()

       

        lstmostrar.Items.Add("Administracion " & adm)

        lstmostrar.Items.Add("Contabilidad " & cont)

        lstmostrar.Items.Add("Produccion " & prod)

        lstmostrar.Items.Add("Ventas " & venta)

        lblnoasignadas.Text = "No fueron Asignados: " & restante2 & " Productos"

    End Sub

End Class