INGRESO DETALLE FACTURA
QUE UTILIZAR PARA REALIZAR UN ALTA DE FACTURA DONDE TENGO COMO MAXIMO 15 LINEAS.
LOS CAMPOS DE CADA UNA LAS LINEAS SON CODIGO DE ARTICULO,
DESCRIPCION, IVA, CANTIDAD, PRECIO UNITARIO, BONIFICACION Y TOTAL POR LINEA.
AL FINAL DEBO OBTENER EL SUBTOTAL DE LOS TOTALES POR LINEA
PUEDE QUE INGRESE LAS 1 O LAS 15 LINEAS
ESPERO PRONTA AYUDA Y GRACIAS
LOS CAMPOS DE CADA UNA LAS LINEAS SON CODIGO DE ARTICULO,
DESCRIPCION, IVA, CANTIDAD, PRECIO UNITARIO, BONIFICACION Y TOTAL POR LINEA.
AL FINAL DEBO OBTENER EL SUBTOTAL DE LOS TOTALES POR LINEA
PUEDE QUE INGRESE LAS 1 O LAS 15 LINEAS
ESPERO PRONTA AYUDA Y GRACIAS
Susana
Prueba usar un DataGrid con un recordset desconectado en donde ir agregando los items, eso te libera de la cantidad de lÃneas, ya que puedes agregar las que sea.
Si no sabes como hacerlo envìame un mail
Saludos
Prueba usar un DataGrid con un recordset desconectado en donde ir agregando los items, eso te libera de la cantidad de lÃneas, ya que puedes agregar las que sea.
Si no sabes como hacerlo envìame un mail
Saludos
como se trabaja con un recordset desconectado y como guardo los datos de cada linea de factura en la tabla facturas ventas
Con esto puedes Sumar la Columna, haces un recorrido por el GRID y lo vas acumulando. Recuerda que puedes crear una Consulta SQL que te sume, reste o asta cuente algunos registros de tu tabla.
On Error Resume Next 'Si hay texto en el registro
Dim SubToral As Double
Text1.Text = 0
For i = 1 To CLng(MSHFlexGrid1.Rows) - 1
SubToral = MSHFlexGrid1.TextMatrix(i, 1)
Text1.Text = CDbl(Text1.Text) + SubToral
Next
On Error Resume Next 'Si hay texto en el registro
Dim SubToral As Double
Text1.Text = 0
For i = 1 To CLng(MSHFlexGrid1.Rows) - 1
SubToral = MSHFlexGrid1.TextMatrix(i, 1)
Text1.Text = CDbl(Text1.Text) + SubToral
Next