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