Aplicar descuento a precios
Publicado por fjpg (135 intervenciones) el 16/08/2019 12:16:15
Hola, buenas.
Siguiendo con mi proyecto, me sale otra duda (que supongo que no será la ultima XD)
Tengo un form, para pasar articulos a mis compras y mis pedidos (dependiendo desde que form lo llame, los labels apareceran visibles o invisibles)
Los precios con el nº1 son los de compras, y los del nº dos los de pedido.
Como podeis ver, funciona todo bien, exceptuando lo de "IMPORTE". que me coloca el signo negativo despues de aplicar el dto que le coloco.
Dejo el codigo que tengo para aplicar el dto.
Será una minudez, pero no consigo sacarlo.
Una ayudita??
MUCHAS GRACIAS!!!
Siguiendo con mi proyecto, me sale otra duda (que supongo que no será la ultima XD)
Tengo un form, para pasar articulos a mis compras y mis pedidos (dependiendo desde que form lo llame, los labels apareceran visibles o invisibles)
Los precios con el nº1 son los de compras, y los del nº dos los de pedido.
Como podeis ver, funciona todo bien, exceptuando lo de "IMPORTE". que me coloca el signo negativo despues de aplicar el dto que le coloco.
Dejo el codigo que tengo para aplicar el dto.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub txt_descuento_Change()
Dim importe_compra As Double
Dim importe_venta As Double
If txt_descuento = "" Then
txt_importe_compra = ""
txt_importe_venta = ""
Else
importe_compra = (txt_total_compra * txt_descuento / 100) - txt_total_compra
txt_importe_compra = importe_compraimporte_venta = (txt_total_venta * txt_descuento / 100) - txt_total_venta
txt_importe_venta = importe_ventaEnd If
End Sub
Será una minudez, pero no consigo sacarlo.
Una ayudita??
MUCHAS GRACIAS!!!
Valora esta pregunta
0
