Xailer & OZ Software

Aqui Tienes un Ejemplo usando la Tdbf este ejemplo genera tantos TABS como
TAGS tengas en tu BAG. (es parte de una clase)
IF !Empty(::Odbf:Indexbagname())
::GetRect()
::Otab:= TTABS():New()
::Otab:Move(::arect2[3]+::Otab:nHeight-3,0)
::Otab:setSize(::arect[4],::Otab:nHeight)
::Otab:Aprompts:={}
AADD(::Otab:aPrompts,"Ninguno")
For a = 1 to nlastorder(::Odbf:Indexbagname())
AADD(::Otab:aPrompts,Ordname(a))
Next
::Otab:baction:= { ||
::Odbf:SetOrder(::Otab:nOption-1),::Olbx:SetFocus(),::Olbx:R efresh() }
::Otab:nOption:= ::Odbf:IndexOrder()+1
::Otab:Refresh()
EndIF
"Armando Estrada Bucio" <soisa2002@prodigy.net.mx> escribió en el mensaje
news:[email=414da3f8@ozsrv2.ozlan.local...]414da3f8@ozsrv2.ozlan.local...[/email]
> Francisco:
>
> Tal vez lo que tú quieres saber es cuantos TAGs hay en un BAG.
>
> BAG solo debe haber uno por cada DBF pues como bien te dice
> Manuel, no hay límite en el número de TAG (INDEX) en un archivo
> BAG (CONTENEDOR) por lo que se hace innecesario tener mas de
> un BAG por cada DBF.
>
> Ahora si mi razonamiento es cierto y te interesa saber cuantos TAGs
> hay, lamento decirte que no conozco alguna función o forma de
> saberlo, perooooooo, deduzco que te interesa saberlo para efecto
> de reconstruir los índices. Si es así dale una mirada a la función
> ORDLISTREBUILD(), espero que esto sea lo que buscas.
>
> Saludos, Armando
>
>