OpenOffice - Macro no funciona para el primer registro de subformulario

   
Vista:

Macro no funciona para el primer registro de subformulario

Publicado por YESSICA (2 intervenciones) el 30/01/2013 10:06:43
Hola,
Tengo una macro en un botón de un formulario de Ventas que tiene un subformulario de Detalle de Ventas, y que sirve para calcular el total de las ventas del subformulario de Detalle. Mi problema es que la macro funciona muy excepto para los siguientes casos: cuando el subformulario tiene 1 solo registro y cuando se hace una modificación del primer registro del subformulario.
Mi macro es la siguiente:
Sub CalcularTotalVentas( Evento )
Dim oFormulario As Object
Dim oSubFormulario As Object
Dim oGridComposicion As Object
Dim oTotal As Object
Dim oCantidad As Object
Dim oPrecio As Object
Dim fParcial As Double
Dim fTotal As Double
Dim co1 As Byte
Dim co2 As Byte

'El formulario principal
oFormulario = Evento.Source.getModel.getParent()
'El total
oTotal = oFormulario.getByName("fmttotal")
'El subformulario
oSubFormulario = oFormulario.getByName("SubForm")
'El control grid
oGridComposicion = oSubFormulario.getByName("SubForm_Grid")
'La columna cantidad
oCantidad = oGridComposicion.getByName("cantidad")
'La columna precio
oPrecio = oGridComposicion.getByName("precio")
'No movemos al primero componente de la formula
oSubFormulario.first()
Do

fParcial = oCantidad.getCurrentValue()*oPrecio.getCurrentValue()
'Sumamos los importes
fTotal = fTotal + fParcial

'Nos movemos al siguiente componente
oSubFormulario.next()

Loop Until oSubFormulario.isAfterLast()


oTotal=oFormulario.getByName("fmttotal")
oTotal.BoundField.UpdateFloat(fTotal)
oSubFormulario.Reload
End Sub
Agradeceré mucho una respuesta. Saludos,
Yessica
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de OpenOffice
- Cursos de OpenOffice
- Temas de OpenOffice
información
Cursos y Temas de OpenOffice
- Curso de OpenOffice Base 3
- Números de página con OpenOffice
- OpenOffice.org User Guide 1.1