Varias facturas abiertas y disponibles para más datos
Hace más de un año me ayudaste con este inconveniente para mi proyecto de grado pero esa vez lo hicismos dentro de hojas de excel, en este momento la consulta es para realizar la misma operación con formularios. Se trata de una factura o recibo que incluye los pedidos por MESAS, di tu 10 mesas. El formulario que me capta dicha información funciona perfectamente, tanto para captar como para incluir los datos en la hoja de ventas. Los datos de la venta (cantidad, codigo producto, nombre producto, precio unitario, descuento e importe) se captan con un listbox; otros datos como fecha, hora, subtotal, iva y gran total se captan con textbox. Mi consulta es la siguiente: cómo hacer para generar un pedido y que quede reposo antes de cerrarlo, pues se puede generar otro pedido y abrir el formulario cuantas veces sea necesario e ingresar el nuevo pedido, esta acción se puede presentar al mismo tiempo en las 10 mesas; como hacer para que el label en donde genero el número de pedido, aunque este en reposo se genere sin problemas. La verdad no tengo ni la menor idea de cómo hacerlo, pero dado que me ayudaste con el trabajo anterior haciendo lo mismo pero en hojas, espero puedas colaborarme. Si necesitas el archivo con gusto lo envío a tu correo.
1 Respuesta
Envíame tu archivo y me explicas paso a paso qué tengo debo realizar y qué esperas de resultado.
En las hojas, utilizando los datos como ejemplo, me explicas con comentarios y con colores qué necesitas, entre más claro sea le ejemplo, más práctico podré encontrar una solución.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Diana Villamizar” y el título de esta pregunta.
Dante, buen día, te envío el archivo con lo que me pediste, espero ser clara, cualquier duda estaré pendiente. Muchas gracias de antemano.
Te anexo el código para ir almacenando la información en una hoja
Public Sub AgregarItems()
'Agrega los items al listbox
With frm_PedidoInSitu
.ListBox1.AddItem Val(frm_ProductoAFacturar.txt_Cantidad.Text)
i = ListBox1.ListCount - 1
.ListBox1.List(i, 1) = frm_ProductoAFacturar.txt_Codigo.Text 'Codigo del producto
.ListBox1.List(i, 2) = frm_ProductoAFacturar.ComboBox1.Text 'Nombre del producto
.ListBox1.List(i, 3) = frm_ProductoAFacturar.txt_PrecioV.Text 'Precio Venta
.ListBox1.List(i, 4) = frm_ProductoAFacturar.txt_Descuento.Text 'desc
.ListBox1.List(i, 5) = frm_ProductoAFacturar.txt_Importe.Text 'importe
i = i + 1
End With
'
'Agrega en la hoja Registro
u3 = h3.Range("A" & Rows.Count).End(xlUp).Row + 1
h3.Cells(u3, "A") = Val(ComboBox2) 'mesa
h3.Cells(u3, "B") = frm_ProductoAFacturar.txt_Cantidad.Text 'cantidad
h3.Cells(u3, "C") = frm_ProductoAFacturar.txt_Codigo.Text 'Codigo del producto
h3.Cells(u3, "D") = frm_ProductoAFacturar.ComboBox1.Text 'Nombre del producto
h3.Cells(u3, "E") = frm_ProductoAFacturar.txt_PrecioV.Text 'Precio Venta
h3.Cells(u3, "F") = frm_ProductoAFacturar.txt_Descuento.Text 'desc
h3.Cells(u3, "G") = frm_ProductoAFacturar.txt_Importe.Text 'importe
'
'Cambiar el estado de la mesa
fila = ComboBox2.ListIndex + 2
h2.Cells(fila, "B").Value = "Ocupada"
h2.Cells(fila, "C").Value = ComboBox1.Value
' sumarDescuento2
' sumarImporte
End SubNo olvides valorar la respuesta
