Visual Basic para Aplicaciones - Aplicar descuento a precios

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 327
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Aplicar descuento a precios

Publicado por fjpg (102 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)

Sin-nombre

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_compra
 
        importe_venta = (txt_total_venta * txt_descuento / 100) - txt_total_venta
        txt_importe_venta = importe_venta
    End If
End Sub

Será una minudez, pero no consigo sacarlo.
Una ayudita??

MUCHAS GRACIAS!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alfredo
Val: 123
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Aplicar descuento a precios

Publicado por Alfredo (38 intervenciones) el 16/08/2019 15:56:57
Hola fjpg

Solo cambia las posiciones de tu operación

importe_compra = txt_total_compra - (txt_total_compra * ( txt_descuento / 100) )

importe_venta = txt_total_venta - (txt_total_venta * (txt_descuento / 100) )

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 327
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Aplicar descuento a precios

Publicado por fjpg (102 intervenciones) el 16/08/2019 16:59:20
Como siempre, perfecto!!!!
Vaya menudez!!! y yo sin verlo!! JEJJEEJ

GRACiAS!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar