Saltar al contenido

Como hacer la opreracion de iva descuento y retencion automaticamente


Recommended Posts

En este formulario hay una sumatoria de los totales de los productos y ya esta perfecto

pero cuando el vendedor necesitara ingresar:

-iva (se le suma al total generado de la suma de los precios de los productos)

-descuento (se le resta al total generado de la suma de los precios de los productos)

-retencion (se le resta al total generado de la suma de los precios de los productos)

el textbox de "VALOR TOTAL A PAGAR" seria:

txtsumaart+txtiva-txtdescuento-txtretencion

lo que pasa es que:

hay veces que no se ingresa descuento ni retencion

hay veces que no se ingresa descuento ni retencion ni iva

puede ser variable dependiendo la situacion de todas maneras si no hay iva o descuento o retencion quedaria en 0

en el codigo no he podido dolucionar esto

el textbox de "VALOR TOTAL A PAGAR" no genera la suma y resta de estos aunque esten los valores o no

no genera el valor total a pagar

el adjunto muestra mas o menos como es la factura

Enlace a comentario
Compartir con otras webs

Muchas gracias

tengo una preguntica loq ue pasa es que no entendi que hace este codigo me gustaria que me explicaran que es lo que esta realizando.

muchas gracias

Private Sub FAC_Click()
Saltar = True
fila = FAC.ListIndex + 2
txtfactura = Facturas.Range("A" & fila)
txtfecha = Facturas.Range("B" & fila)
txtcedula = Facturas.Range("C" & fila)
txtcliente = Facturas.Range("D" & fila)
txtdireccion = Facturas.Range("E" & fila)
txttelefono = Facturas.Range("F" & fila)
txttotalsuma = Format(Facturas.Range("G" & fila), "##,###,##")
txtiva.Text = Format(Facturas.Range("I" & fila), "##,###,##")
txtdescuento = Facturas.Range("J" & fila)
txtparadescuento.Text = Format(Facturas.Range("K" & fila) * -1, "##,###,##")
txtretención = Facturas.Range("L" & fila)
txtpararete.Text = Format(Facturas.Range("M" & fila) * -1, "##,###,##")
txtI = txtiva.Text
txtD = txtparadescuento.Text
txtR = txtpararete.Text
txtgrantotal.Text = Format(Facturas.Range("N" & fila), "##,###,##")
txtproductos = Facturas.Range("O" & fila)
For x = 2 To Líneas.Range("A" & Rows.Count).End(xlUp).Row
If Facturas.Range("A" & fila) = Líneas.Range("A" & x) Then
n = n + 1
Controls("txtcodigo" & n) = Líneas.Range("B" & x)
Controls("cbb" & n) = Líneas.Range("C" & x)
Controls("txtcantidad" & n) = Líneas.Range("D" & x)
Controls("txtprecio" & n) = Líneas.Range("E" & x)
Controls("txtvalortotal" & n) = Líneas.Range("F" & x)
End If
Next
Cartel.Height = 322
Frame3.Enabled = False
Frame4.Enabled = False
Frame5.Enabled = False
End Sub

[/CODE]

[color=blue]- - - - - Mensaje combinado - - - - -[/color]

Buenas he intentado y he intentado pero no he podido ya que en la factura tengo que agregar 5 combos mas osea e total 10 articulos pq los pedidos pueden ser mas de cinco y pues he hecho de todo modificanto los paras de 5 los cambie a 10 tienen los mismos nombres consecutivos y bueno hasta ahora me sale un error 70 PERMISO DENEGADO en este codigo

[CODE]Private Sub UserForm_Initialize()
'Llenamos los combos de los PRODUCTOS
Set Productos = Sheets("PRODUCTOS")
limpiar_Click
cbb1.List = Productos.Range("B2:B" & Productos.Range("A" & Rows.Count).End(xlUp).Row).Value
For N = 2 To 10: Controls("cbb" & N).List = cbb1.List: Next
[/CODE]

End Sub

y lso demas combos no me suman automaticamente el total factura gracias por su ejemplo

Enlace a comentario
Compartir con otras webs

Gracias por el ejemplo.

no he podido lograr que acepte hasta 10 combos, hago que salgan los productos hasta los diez y que salgan los codigos y el precio pero al momento de colocar la cantidad para que haga la operacion se queda en blanco, ya lo probe y no pude agregando a los paras que tenian 5 les coloque 10 agregue los combos al codigo y nada.

aca adjunto el form q estaba haciendo mientras esperaba la respuesta y adelante acerca de la numeracion ingreso de los clientes pero solo hago la operacion de iva, tambien guardo la factura y la mando a imprimir.

en este link pq es muy pesado y no me dejaba agregarlo:

https://rapidshare.com/files/1140207012/ADJUNTOFACT.rar

https://rapidshare.com/#!download|848p11|1140207012|ADJUNTO%20FACT.rar|422|0|0

si ustedes me pueden decir que modifico para que puedan ingresar hasta 10 prod les agradezco

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • No va a ser necesario distinguir el tipo de proceso entre 1 y 2. Revisa el adjunto a ver si es eso lo que quieres. Function MediaAttention(mImp As Range, _ q25 As Range, q50 As Range, _ Optional q75 As Range, _ Optional q100 As Range) As Double '-- Opción 1 If q75 Is Nothing And q100 Is Nothing Then MediaAttention = q25 / q50 Exit Function End If '-- Opción 2 MediaAttention = ((0.25 * (q25 - q50)) / mImp) + _ ((0.5 * (q50 - q75)) / mImp) + _ ((0.75 * (q75 - q100)) / mImp) + _ (q100 / mImp) End Function   Media Attention Formula 1.2.xlsb
    • Gracias tomarse el tiempo de leer por responder Maestro @Antoni Adjunto el archivo con la idea a la que deseo llegar, sigo atento. Mil gracias por el tiempo y la ayuda brindada   Media Attention Formula 1.2.xlsb
    • He analizado la UDF y entiendo perfectamente lo que hace, lo que no entiendo es lo que pretendes hacer. Mejor sube un ejemplo resuelto de  como debería funcionar la UDF con los nuevos parámetros solicitados. 
    • Gracias, ya lo conseguí solucionar
    • Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.- Colocar 2 al principio de la función y después seleccionar las 5 celdas correspondientes (Rango continuo o discontinuo) Espero me puedan ayudar y/o orientar al respecto, quedo atento para cualquier duda, de antemano les agradezco cualquier ayuda brindada. Mil Gracias!! Media Attention Formula 1.1.xlsb  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.