Codigos de programacion

...

ITBIS - DESCUENTO

TexNETO.Text = CStr(NETO)

ElseIf CATEGORIA = 4 Then

DESCUENTO = SUBTOTAL * 0.05

TexDESCUENTO.Text = CStr(DESCUENTO)

NETO = SUBTOTAL + ITBIS - DESCUENTO

TexNETO.Text = CStr(NETO)

ElseIf CATEGORIA = 5 Then

DESCUENTO = SUBTOTAL * 0.0

TexDESCUENTO.Text = CStr(DESCUENTO)

NETO = SUBTOTAL + ITBIS - DESCUENTO

TexNETO.Text = CStr(NETO)

End If

End Sub

Private Sub BCALCULAR_Click(sender As Object, e As EventArgs) Handles BCALCULAR.Click

CALCULO()

End Sub

Private Sub BLIMPIAR_Click(sender As Object, e As EventArgs) Handles BLIMPIAR.Click

TexCANTIDAD.Clear()

TexCATEGORIA.Clear()

TexPRECIO.Clear()

TexDESCUENTO.Clear()

TexNETO.Clear()

TexITIBIS.Clear()

TexSUBTOTAL.Clear()

TexCANTIDAD.Focus()

End Sub

Private Sub ACUMULAR()

End Sub

Private Sub BNUEVO_Click(sender As Object, e As EventArgs) Handles BNUEVO.Click

TNETO = TNETO + NETO

TexTNETO.Text = CStr(TNETO)

TVENTA = TVENTA + CANTIDAD

TexTOTALVENTA.Text = CStr(TVENTA)

TITBIS = TITBIS + ITBIS

TexTOTALITBIS.Text = CStr(TITBIS)

End Sub

Private Sub BSALIR_Click(sender As Object, e As EventArgs) Handles BSALIR.Click

End

End Sub

End