Sistema de Facturación en Visual Basic

Sistema de Facturación en Visual Basic

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Mercaderia"
Combo1.AddItem "Monitor"
Combo1.AddItem "Gabinete"
Combo1.AddItem "Multifuncion"
Text1 = 0
Text2 = ""
Text3 = 0
Combo2.Clear
Combo2.AddItem "18%"
Combo2.AddItem "21%"
Text4 = 0
Text5 = 0
Text6 = 0
Text7 = 0
End Sub

---

Private Sub limpiar_Click()
Combo1.Clear
Combo1.AddItem "Mercaderia"
Combo1.AddItem "Monitor"
Combo1.AddItem "Gabinete"
Combo1.AddItem "Multifuncion"
Text1 = 0
Text2 = ""
Text3 = 0
Combo2.Clear
Combo2.AddItem "18%"
Combo2.AddItem "21%"
Text4 = 0
Text5 = 0
Text6 = 0
Text7 = 0
End Sub

---

Private Sub calcular_Click()
If (Combo1.Text = "Mercaderia") And (Combo2.Text = "21%") Then
Text1 = 11500
Text3 = 11500 * Text2
Text4 = (11500 * Text2) * 0.21
Text5 = (11500 * Text2) + Text4
Else
Text1 = 11500
Text3 = 11500 * Text2
Text4 = (11500 * Text2) * 0.18
Text5 = (11500 * Text2) + Text4
End If
If (Combo1.Text = "Monitor") And (Combo2.Text = "21%") Then
Text1 = 5500
Text3 = 5500 * Text2
Text4 = (5500 * Text2) * 0.21
Text5 = (5500 * Text2) + Text4
Else
Text1 = 5500
Text3 = 5500 * Text2
Text4 = (5500 * Text2) * 0.18
Text5 = (5500 * Text2) + Text4
End If
If (Combo1.Text = "Gabinete") And (Combo2.Text = "21%") Then
Text1 = 6000
Text3 = 6000 * Text2
Text4 = (6000 * Text2) * 0.21
Text5 = (6000 * Text2) + Text4
Else
Text1 = 6000
Text3 = 6000 * Text2
Text4 = (6000 * Text2) * 0.18
Text5 = (6000 * Text2) + Text4
End If
If (Combo1.Text = "Multifuncion") And (Combo2.Text = "21%") Then
Text1 = 6500
Text3 = 6500 * Text2
Text4 = (6500 * Text2) * 0.21
Text5 = (6500 * Text2) + Text4
Else
Text1 = 6500
Text3 = 6500 * Text2
Text4 = (6500 * Text2) * 0.18
Text5 = (6500 * Text2) + Text4
End If
If (Val(Text2) > 10) Then
Text6 = Text5 * 0.15
End If
Text7 = Text5 - Text6
End Sub

---

Private Sub salir_Click()
Unload Me
End Sub