none
Como agrego el descuento al calculo RRS feed

  • Pregunta

  • Saludos amigos del foro, disculpen la molestia, necesitar aplicar en este calculo el descuento, a mi me ayudaron para totalizar con un truco pero no se como aplicar el descuento, la ayuda que me dieron esta en negrilla, no se si me podran ayudar por favor:

                Dim impuestos, total, subtotal, absTotal, absSubtotal, absImpuestos As Double

                'Moneda Nacional
                'Calculamos los totales
                txtSubTotmn1.Text = nue_fac.Calcula_Suma_MN().ToString
                txtDesctomn.Text = (CDbl(txtSubTotmn1.Text) * (If(txtPordescto2.Text <> "0" And txtPordescto2.Text <> "", CDbl(txtPordescto2.Text), 0) / 100)).ToString
                txtSubTotmn2.Text = (CDbl(txtSubTotmn1.Text) - CDbl(txtDesctomn.Text)).ToString
                txtImpuestomn.Text = Round(CDbl(txtSubTotmn2.Text) * (CDbl(Sys_Impuesto1) / 100), 2).ToString
                txtTotmn.Text = Round(CDbl(txtSubTotmn2.Text) * (CDbl(Sys_Impuesto1) / 100 + 1), 2).ToString

                impuestos = CDbl(txtImpuestomn.Text)
                total = CDbl(txtTotmn.Text)
                subtotal = CDbl(txtSubTotmn2.Text)
                absSubtotal = Abs(subtotal)
                absTotal = Abs(total)
                absImpuestos = Abs(impuestos)

                If ((absTotal - absSubtotal) <> (absImpuestos)) Then
                    '/*Aqui va la suma del precio de venta de las lineas */
                    total = nue_fac.Calcula_Suma_PVTAIMPUESTO()
                    If (total > 0) Then
                        impuestos = total - subtotal '/*Si el neto es positivo los impuestos son el neto menos el subtotal*/
                    Else
                        impuestos = total + subtotal '/*Si el neto es negativo los impuestos son el neto mas el subtotal*/
                    End If
                End If

                '/*Asignas los valores correctos a tus textbox....*/
                txtTotmn.Text = Round(total, 2).ToString
                txtImpuestomn.Text = Round(impuestos, 2).ToString

                txtMontomn.Text = txtTotmn.Text





    miércoles, 25 de julio de 2018 14:02

Respuestas

  • Hola Rudolf Heiner:

    Si tienes descuentos, ya no estas aplicando el precio de venta con impuestos de la línea. En ese caso, solo tienes que aplicar tu código normal.

    Con un simple if obviando la trampa, para cuando tengas descuentos es suficiente.

    Ya que tus textBox, ya contienen el subtotal2, el iva y el neto.

    Un saludo

    • Marcado como respuesta Pablo Rubio lunes, 30 de julio de 2018 15:51
    sábado, 28 de julio de 2018 7:38

Todas las respuestas