Cita:
Iniciado por sigitheblink 
Hola a todos, tengo un problemilla y me gustaria q me ayudaran Xfa
Tengo una duda, en el codigo para la impresión del ticket que esta arriba...
tengo una base de datos en acces y en el frame de ventas quiero q se genere una tabla temporal en la cual se registren los productos que se vallan acumulando en la compra...
como le hago para que imprima esos productos.
gracias y espero su ayuda..
yo tengo algo como eso, solo que no uso access, sino MySQL o SQL Server. Y lo resolvi de la siguiente manera:
Primero agregue todos los articulos que voy a vender a un listview, ya agregados lo unico que hice es al mandar imprimir el ticket recorro con un for todo el listview, y agrego solo las columnas que quiero, y despues las sumo, mira asi:
Código:
For Each sitem In lvListaRecargas.Items
a.AnadirElemento(sitem.subitems.item(0).text, sitem.subitems.item(3).text, Format(sitem.subitems.item(4).text, "currency"))
Next
y ya despues para sacas los totales, sumando la columna 4 en mi caso
este es mi metodo para sacar totales:
Código:
Private Sub getTotal(ByRef sumTotal As String)
Dim TotalSum As Double = 0
Dim TempNode As ListViewItem
Dim TempDbl As Double
For Each TempNode In lvListaRecargas.Items
If Double.TryParse(TempNode.SubItems.Item(4).Text, TempDbl) Then
TotalSum += TempDbl
End If
Next
sumTotal = TotalSum
End Sub
Código:
Public Sub calcularTotales()
getTotal(ctint)
ctint = CStr(Round(CDbl(ctint), 2, MidpointRounding.ToEven))
ctiva = (Val(ctint) / 100) * Val(ivaVal)
ctiva = CStr(Round(CDbl(ctiva), 2, MidpointRounding.ToEven))
cttotal = Val(ctint) + Val(ctiva)
cttotal = CStr(Round(CDbl(cttotal), 2, MidpointRounding.ToEven))
End Sub
Y ya con eso solo despues asigno los valores en el ticket
Código:
a.AnadirTotal("SUBTOTAL", Format(ctint, "Currency"))
a.AnadirTotal("IVA", Format(ctiva, "Currency"))
a.AnadirTotal("TOTAL", Format(cttotal, "Currency"))
si necesitas ayuda postea tu codigo, asi podremos guiarte