Visual Basic para Aplicaciones - Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Life is soft - evento anual de software empresarial

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 05/06/2020 11:06:08

Hola, buenas. Ahí sigo, poco a poco con mi proyecto.

Recurro una vez mas a sus conocimientos a ver si me pueden ayudar.

Dejo el proyecto a ver si me pueden ayudar.

En el "frm_compras" necesito seleccionar varios items del mismo proveedor (por ejemplo, todas las compras realizadas el mismo mes o cada quince dias al mismo proveedor) y que al dar click en el boton "cmb_compras_factura" (icono de unas monedas) me haga el recuento del precio, iva y total y lo coloque en la hoja entradas columnas "Z,AA y AB".

Hay un ejemplo hecho a mano y deberia de quedar asi (filas 8 y 10).

CONTROL-DE-ALMACEN-by-fjpg.rar(870,3 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 06/06/2020 13:06:49

No acabo de entender que es lo que quieres hace.

Por lo que creo entender te cuento un truco.
En las propiedades del ListBox cambia esto

Ahora

ListStyle         0 - fmListStylePlain

SpecialEffect     0 - fmSpecialEffectFlat

Nuevo

ListStyle         1 - fmListStyleOption

SpecialEffect     1 - fmSpecialEffectRaised

Esto hace que salga a la izquierda de las líneas una opcion tipo [ ] para seleccionar varias líneas.

Y con este código ver cuales están seleccionadas:

Private Sub Boton_Click()

    Dim a As Integer

    For a = 0 To ListBox1.ListCount - 1

        If ListBox1.Selected(a) Then

            MsgBox ListBox1.List(a, 0) & " Entrada" & vbCrLf & _

                   ListBox1.List(a, 2) & " Compra"

        End If

    Next

End Sub

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 06/06/2020 13:40:19

La idea del frm_compras, es:
Que pueda seleccionar las compras realizadas a un mismo proveedor en el mismo mes, ya sean 2,5 o 9. Y una vez seleccionadas todas, dar click al boton para generar la factura y me haga el calculo automaticamente del precio total con el iva del 21% incluido.

Si por ejemplo, hay 2 facturas de un mismo proveedor , la idea es seleccionar estas 2 compras (posiblemente en la hoja no esten una detras de otra, habrán compras de otros proveedores entre ellas, pero solo quiero seleccionar las del mismo proveedor).

y al dar clcik en boton de generar factura, que haga el recuento automatico (no se si se podra hacer) y coloque los resultados
total 'hoja entradas, columna Z
iva 'hoja entradas, columna AA
total factura 'hoja entradas, columna AB

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 06/06/2020 13:56:00

dejo dos imagenes, esta hecho manualmente, pero deberia de quedar asi (si se puede hacer lo que quiero, claro)

Sin-titulo1.rar(243,1 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 06/06/2020 16:40:32

En el formulario de compras debes cambiar el Textbox (txt_buscar) por un ListBox (Ejem: Lst_Prove) y cargarlo con la lista de Proveedores.
Procura que el ancho deje ver el nombre completo.
Cuando entra en el formulario el usuario debe elegir un proveedor de la lista y el programa debe mostrar las compras, en el ListBox1, de este proveedor, si cambia de proveedor limpia el ListBox1 y vuelve a buscar las compras del siguiente.

Esta es la parte de tu consulta. Y ahora los filtros adicionales:

¿Como se sabe que una compra no tiene que elegirla? Quiero decir, ahora procesamos las de mayo. En junio entraran nuevas compras ¿Como diferencia las que quieres ver?
¿Quieres ver toda la historia de compras o solo las ultimas?
¿Filtra las que el campo de la columna Z, AA y AB estén vacías?

Opcion: Se puede poner que muestra las facturas a partir de una fecha determinada que indicada el usuario.

En el ListBox1 no se ve bien las columna de Fecha.

Esta es la parte teórica de la solución del problema. ¿Necesitas que te haga la parte practica?

Creo que voy entendiendo tu problema.

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 07/06/2020 12:14:57

Vamos por partes.

El listbox muestra las compras si en la hoja "ENTRADAS/COLUMNA I" pone "Para Recibir/Recibido". (esto lo coloca al añadir una compra desde su form correspondiente.

El txt_buscar ya filtra por proveedor. Colocando un proveedor mostrará las compras de ese proveedor y a su vez que en la columna I ponga "Para Recibir/Recibido".

Cuando seleccionas una compra y le das al boton de crear factura (boton con el icono de unas monedas), en la columna I cambia "Para Recibir/Recibido" por "Facturada" y automaticamente el listbox ya no la muestra. pero no consigo que calcule el precio con el iva.

Pero si selecciono dos o mas compras del mismo proveedor es donde me atasco.

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 07/06/2020 12:31:41

Dejo unas capturas. espero hacerme entender con lo que necesito.

MUCHAS GRACAIS!!!

Imagenes.rar(759,1 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 08/06/2020 12:27:48

Te había contestado ayer y por lo visto se perdió el mensaje.

Te adjunto unos cambios el formulario frm_compra

- De entrada no muestra datos.
- Seleccionando un proveedor muestra sus compras pendientes-
- Si no hay compras el botón de calculo se des habilita.

La segunda parte viene después de responder a la pregunta:

Si un proveedor tiene varias entradas ¿las quieres calcular todas o solo una selección de ellas?
Cuando veas lo que te envío me contestas.

Saludos.
\\//_

CONTROL-DE-ALMACEN-Ver.2.rar(535,2 KB)

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 08/06/2020 17:13:52

Gracias por la ayuda!!! Se agradece.

1. Comentarte que ese filtro con el combobox es de utilidad si tienes pocas proveedores, pero si tienes muchos es un poco engorroso tener que ir buscando. Por eso coloque la busqueda en el textbox, es mas facil.

2. Si. la idea sería seleccionar "x" facturas del mismo proveedor y que haga el calculo.

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 08/06/2020 22:36:38

Lo del proveedor se puede arreglar poniendo un filtro para que no salgan todos seleccionar.

Por ejemplo escribes *segur* o solo segur y busca los que contengan este trozo de texto

Limpiezas Segurola S.L
Seguridad Violera S.A.

O solo los que empiezan por el teto escrito sin asterisco.

Tambien se puede hacer que:

A - Si no tiene un asterisco al final Empieza por -Ejemplo: limpie* - Resultado: Limpiezas Segurola S.L
B - Si no tiene un asterisco al inicio Termina por - Ejemplo: *Roja - Resultado: Plásticos Ribarroja
C - Si tiene los dos asterisco Contiene el texto - Ejemplo: *MIRE* - Resultado: Diezmire S.A.
D - Sin asteriscos Coincidencia exacta - Ejemplo: mi almacén - Resultado: MI ALMACÉN

No distingue entre mayúsculas y minúsculas.

También se puede hacer sin asteriscos y busque como la opción C por contenido indistinto si esta al principio o al final.
Esta es la opción mas simple.
Se puede filtrar mientras escribes.

El segundo tema mañana lo miro.

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 08/06/2020 23:24:03

Esa forma de búsqueda, ya la tengo con el textbox...

Escribiendo cualquier texto en el textbox, el listbox filtra esa búsqueda...

No entiendo, para que cambiar el textbox por el combobox...

Vale, a ver mañana.... Gracias!!!

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 09/06/2020 12:39:29

Le he echado un vistazo a tu forma de seleccionar proveedor y me convence a excepción de un detalle, al entrar en el programa muestra todas las entradas pendientes de todos los proveedores y si se selecciona dos o mas entradas de proveedores diferentes tienes un gran problema a la hora de facturar.

Unas soluciones alternativa:

- Al entrar en el programa no mostrar las entradas y tener que seleccionar un proveedor.
- Al cargar el ListBox no permitir facturar si hay entradas de más de un proveedor.
- Que se active el botón de Facturar cuando selecciones las entradas y se desactive si no son del mismo proveedor.

La primera opción excluye las otras dos.
La segunda y tercera son complementarias.

Ahora un cuestión que no me ha quedado claro.

Del proveedor Limpieza Segurola S.L. hay 6 entradas, en el caso de que quisieras facturar las 6 a la vez las tendrías que seleccionar una a una ¿Es así? o ¿Tenias pensado otra cosa?

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 09/06/2020 15:43:13

La idea es solo seleccionar las del mismo proveedor.
Si, sería seleccionarlas de una en una

Se podrían mostrar todas las compras, y si se seleccionan compras de distintos proveedores al darle clic al boton que saliera un msbox error que las compras deben de ser del mismo proveedor??
Esa forma me gusta!!

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 09/06/2020 18:08:44

Bien ya he realizado los cambios.

Hay un par de cosas que no me gustan, una es la falta de comentarios, y que deshabilites el botón X del formulario.
Yo también pongo botones de salida pero no elimino el el botón X.

Te cuento que cambios he realizado:

- El botón de Facturar nace deshabilitado.
- Solo se habilita cuando seleccionas una entrada.
- Se deshabilita si otra entrada seleccionada es de diferente proveedor.

Dale un vistazo, has pruebas y me cuentas, el mensaje cuando va actualizando cada entrada es para las pruebas, se debe quitar.

Las rutinas que he modificado o añadido tiene una cabecera particular.

NOTA: se podría hacer que facture varios proveedores a la vez y cada con su número de factura.

Saldos.
\\//_

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 09/06/2020 18:45:24

Antoni, no me has dejado ningun archivo para descargar.

El boton x lo deshabilito porque asi cuadran los numeros correlativos.

Cuando me dejes el archivo le pegare un vistazo. GRACIAS!!!!

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 09/06/2020 18:47:01

Sorry.

Saludos.
\\//_

CONTROL-DE-ALMACEN-Ver.2.rar(540,5 KB)

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 09/06/2020 19:13:35

Funciona prefecto pero creo que se te olvido hacer el calculo de las columnas Z, AA y AB.

Dejo una captura de como deberia de quedar (esta hecho manualmente).

Sin-titulo.rar(304,6 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 09/06/2020 21:01:28

Arreglado.

Saludos.
\\//_

CONTROL-DE-ALMACEN-Ver.3.rar(536,6 KB)

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 10/06/2020 00:14:04

GRANDE ANTONI!!!!! GRACIAS!!!

Porque no puedo votar con un 5, que si no....XD XD

Seguimos en contacto para futuras dudas, que las habran seguro. Ni de coña hubiese sacado yo solo el codigo para lo que necesitaba.
De nuevo MUCHAS GRACIAS!!!

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 11/06/2020 11:54:55

Hola de nuevo comunidad. Acudo a vuestros conocimientos para una nueva mejora en mi form.

Antoni, su codigo me funcionó a la perfeccion, pero me gustaría poder mejorar mi form.
He creado otro form para mostrar las facturas generadas con su codigo (frm_compras_facturas).Dando doble click a la factura se abre el form para mostrar toda la info. FUNCIONA PERFECTO.

Pero, ¿Se podria mostrar entre los articulos el numero de compra o albaran de cada uno?
Deberia quedar algo asi en el listbox del frm_compras_datos

179401
Bobina papel industrial - 2 unid.
Papel higiénico industrial ecopasta laminado - 18 rollos
179403
Pasta lavamanos con particulas - 1 kg
179404
Gafas de protección 3M 2890S
Mascarilla Higiénica Plus reutilizable y lavable
179406
Mascarilla Higiénica Plus reutilizable y lavable

CONTROL-DE-ALMACEN.rar(583,7 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 11/06/2020 16:20:05

Si he entendido bien lo que quieres solo tienes que cambiar esta funcion:

Public Sub DetalleCompraFactura(NumCompraFactura As String)

    Dim ultfila As Long, Ant_Factura As Long

    Dim x As Integer

    ultfila = Sheets("ENTRADAS").Range("A" & Rows.Count).End(xlUp).Row

    x = 0

    For i = 1 To ultfila

        If Sheets("ENTRADAS").Range("H" & i) = NumCompraFactura Then

            If Ant_Factura <> Sheets("ENTRADAS").Range("H" & i).Text Then

                Ant_Factura = Sheets("ENTRADAS").Range("H" & i).Text

                frm_compras_datos.ListBox1.AddItem

                frm_compras_datos.ListBox1.List(x, 0) = "Factura: " & Ant_Factura

                x = x + 1

            End If

            frm_compras_datos.ListBox1.AddItem

            frm_compras_datos.ListBox1.List(x, 0) = Sheets("ENTRADAS").Range("Q" & i).Text

            frm_compras_datos.ListBox1.List(x, 1) = Sheets("ENTRADAS").Range("R" & i).Text

            frm_compras_datos.ListBox1.List(x, 2) = Sheets("ENTRADAS").Range("S" & i).Text

            frm_compras_datos.ListBox1.List(x, 3) = Sheets("ENTRADAS").Range("U" & i).Text

            frm_compras_datos.ListBox1.List(x, 4) = Sheets("ENTRADAS").Range("V" & i).Text

            frm_compras_datos.ListBox1.List(x, 5) = Sheets("ENTRADAS").Range("W" & i).Text

            frm_compras_datos.ListBox1.List(x, 6) = Sheets("ENTRADAS").Range("X" & i).Text

            x = x + 1

        End If

    Next i

End Sub

Saludos.
\\//

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 11/06/2020 18:03:32

Es parecido pero no es exacto.

En esa factura hay material de 4 albaranes. Necesitaria que dentro del listbox colocara el primer nº de albaran "COLUMNA E", despues el material de ese primer albaran, despues el segundo nº de albaran y despues el material de ese nº de albaran. Y asi con los restantes.

Dejo un archivo y una imagen y un txt de como deberia de quedar el listbox (espero hacerme entender).

Y otra vez, MUCHAS GRACIAS!!!!

control-de-almacen.rar(915,6 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 11/06/2020 20:28:51

Antes me he liado con las columnas:

Public Sub DetalleCompraFactura(NumCompraFactura As String)

    Dim ultfila As Long, Ant_Albaran As String

    Dim x As Integer

    ultfila = Sheets("ENTRADAS").Range("A" & Rows.Count).End(xlUp).Row

    x = 0

    For i = 1 To ultfila

        If Sheets("ENTRADAS").Range("H" & i) = NumCompraFactura Then

            If Ant_Albaran <> Sheets("ENTRADAS").Range("E" & i).Text Then

                Ant_Albaran = Sheets("ENTRADAS").Range("E" & i).Text

                frm_compras_datos.ListBox1.AddItem

                frm_compras_datos.ListBox1.List(x, 0) = "==============="

                frm_compras_datos.ListBox1.List(x, 1) = "==========  ALBARAN: " & Ant_Albaran & "  ==========="

                frm_compras_datos.ListBox1.List(x, 2) = "==============="

                frm_compras_datos.ListBox1.List(x, 3) = "==============="

                frm_compras_datos.ListBox1.List(x, 4) = "==============="

                frm_compras_datos.ListBox1.List(x, 5) = "==============="

                frm_compras_datos.ListBox1.List(x, 6) = "==============="

                x = x + 1

            End If

            frm_compras_datos.ListBox1.AddItem

            frm_compras_datos.ListBox1.List(x, 0) = Sheets("ENTRADAS").Range("Q" & i).Text

            frm_compras_datos.ListBox1.List(x, 1) = Sheets("ENTRADAS").Range("R" & i).Text

            frm_compras_datos.ListBox1.List(x, 2) = Sheets("ENTRADAS").Range("S" & i).Text

            frm_compras_datos.ListBox1.List(x, 3) = Sheets("ENTRADAS").Range("U" & i).Text

            frm_compras_datos.ListBox1.List(x, 4) = Sheets("ENTRADAS").Range("V" & i).Text

            frm_compras_datos.ListBox1.List(x, 5) = Sheets("ENTRADAS").Range("W" & i).Text

            frm_compras_datos.ListBox1.List(x, 6) = Sheets("ENTRADAS").Range("X" & i).Text

            x = x + 1

        End If

    Next i

End Sub

Otra Opcion:

Public Sub DetalleCompraFactura(NumCompraFactura As String)

    Dim ultfila As Long, Ant_Albaran As String

    Dim x As Integer

    ultfila = Sheets("ENTRADAS").Range("A" & Rows.Count).End(xlUp).Row

    x = 0

    For i = 1 To ultfila

        If Sheets("ENTRADAS").Range("H" & i) = NumCompraFactura Then

            If Ant_Albaran <> Sheets("ENTRADAS").Range("E" & i).Text Then

                Ant_Albaran = Sheets("ENTRADAS").Range("E" & i).Text

                frm_compras_datos.ListBox1.AddItem

                x = x + 1

                frm_compras_datos.ListBox1.AddItem

                frm_compras_datos.ListBox1.List(x, 1) = "ALBARAN: " & Ant_Albaran

                x = x + 1

                frm_compras_datos.ListBox1.AddItem

                x = x + 1

            End If

            frm_compras_datos.ListBox1.AddItem

            frm_compras_datos.ListBox1.List(x, 0) = Sheets("ENTRADAS").Range("Q" & i).Text

            frm_compras_datos.ListBox1.List(x, 1) = Sheets("ENTRADAS").Range("R" & i).Text

            frm_compras_datos.ListBox1.List(x, 2) = Sheets("ENTRADAS").Range("S" & i).Text

            frm_compras_datos.ListBox1.List(x, 3) = Sheets("ENTRADAS").Range("U" & i).Text

            frm_compras_datos.ListBox1.List(x, 4) = Sheets("ENTRADAS").Range("V" & i).Text

            frm_compras_datos.ListBox1.List(x, 5) = Sheets("ENTRADAS").Range("W" & i).Text

            frm_compras_datos.ListBox1.List(x, 6) = Sheets("ENTRADAS").Range("X" & i).Text

            x = x + 1

        End If

    Next i

End Sub

Saludo.
\\//_

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 11/06/2020 22:51:00

Antoni, mi admiracion y agradecimiento. JUSTO LO QUE NECESITABA !!!!!! MIL GRACIAS!!!!! ( si en mayusculas gritando!!! XD XD XD)

Se podria colocar esta linea:
frm_compras_datos.ListBox1.List(x, 1) = " ALBARAN: " & Ant_Albaran & " "

en negrita o de alguna forma para diferenciarla del material de cada albaran???

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por Antoni Masana (498 intervenciones) el 12/06/2020 08:36:49

Lamentablemente el formato del texto en el ListBox es el mismo para todo el contenido.
Hay otras formas de hacerlo simulando un ListBox pero son un poco más complejas.
Entre otras cosas por la limitación del propio VBA.

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 3

Val: 286

Seleccionar varios items en listbox y haga el calculo de precio,iva y total

Publicado por fjpg (135 intervenciones) el 12/06/2020 13:29:01

Oks pues asi se queda.

De todas formas, quede perfecto...
GRACIAS ANTONI!!!

Valora esta respuesta

Comentar

error 91

Actualizar hoja oculta