Xailer & OZ Software

If ( Len(::oP:oDBBrowse1:aSelected) > 1 )
aSeleccion := aClone(::oParent:oDBBrowse1:aSelected)
End
With Object ::oDBFArticulos
For Each nReg In aSeleccion
oMeter:nValue++
:Goto(nReg)
If ( :Integrado )
Loop
End
::Actualizar( HB_QWith() )
Next
End With
Espero te sirva.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com

Ramón Zea wrote:
> If ( Len(::oP:oDBBrowse1:aSelected) > 1 )
> aSeleccion := aClone(::oParent:oDBBrowse1:aSelected)
> End
>
> With Object ::oDBFArticulos
> For Each nReg In aSeleccion
> oMeter:nValue++
> :Goto(nReg)
> If ( :Integrado )
> Loop
> End
> ::Actualizar( HB_QWith() )
> Next
> End With
>
> Espero te sirva.
Gracias Ramón:
Lo Probáre
Un Saludo...