¿Donde encontrar un ejemplo de un ArrayBrowse?

[joseluis]

Hola,
No se donde encontrar un ejemplo donde se utilice un arrayBrowse...
¿Alguien sabe donde encontrarlo?
Gracias,
José Luis Capel

[Xevi]

José,
Yo lo utilizo de esta manera, siempre desde código, por lo del multilenguaje...
Si te puede servir de ayuda...
Insertas un oArrayBrowse en el Form y en el evento OnCreate
METHOD Browse1Create( oSender ) CLASS TFrmEQS
local oCol, n, aSizes := { 50, 70, 70, 199, 70, 70, 17 }
xTBrowse( oSender )
For n:=1 TO Len( aSizes )
with object oCol := TBrwColumn():New( oSender )
:cHeader := ::aIdioma[2,oXevi:nIdioma,n] //Tí­tulo del la columna, que lo tengo en un Array
:nWidth := aSizes[n]
end with
oSender:AddCol( oCol )
Next
RETURN Nil
Luego en el evento OnInitialize o en el evento que quieras cargar los Items...
METHOD xItems() CLASS TFrmEQS
....
While ORALBARANS->( !Eof() ) Aadd( ::oBrowse1:aArrayData, { ORALBARANS->NUMERO,;
ORALBARANS->MATRICULA,;
DtoC( ORALBARANS->DATACARREC ),;
If( Empty( ORALBARANS->CODI ), ORALBARANS->NOM, CLIENTS->NOM ),;
If( Empty( ORALBARANS->CODI ), cTel, CLIENTS->TELEFON ),;
If( Empty( ORALBARANS->CODI ), Space(9), CLIENTS->TELEFON2 ),;
If( lCli, "P", "E" ) } )
ORALBARANS->( DbSkip() )
EndDo
....
RETURN Nil
Un Saludo,
Xevi.
"José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje news:431c0cd7$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> No se donde encontrar un ejemplo donde se utilice un arrayBrowse...
>
> ¿Alguien sabe donde encontrarlo?
>
> Gracias,
> José Luis Capel
>
--

[Xevi]

Uuuuuppppppssss!!!
Se me a colado la función xTBrowse...
Es una función que me coloca/saca las barras Scroll...
Tu, ni caso,... Como si no estuviera.
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=431c0f75@ozsrvnegro.ozlan.local...]431c0f75@ozsrvnegro.ozlan.local...[/email]
José,
Yo lo utilizo de esta manera, siempre desde código, por lo del multilenguaje...
Si te puede servir de ayuda...
Insertas un oArrayBrowse en el Form y en el evento OnCreate
METHOD Browse1Create( oSender ) CLASS TFrmEQS
local oCol, n, aSizes := { 50, 70, 70, 199, 70, 70, 17 }
xTBrowse( oSender )
For n:=1 TO Len( aSizes )
with object oCol := TBrwColumn():New( oSender )
:cHeader := ::aIdioma[2,oXevi:nIdioma,n] //Tí­tulo del la columna, que lo tengo en un Array
:nWidth := aSizes[n]
end with
oSender:AddCol( oCol )
Next
RETURN Nil
Luego en el evento OnInitialize o en el evento que quieras cargar los Items...
METHOD xItems() CLASS TFrmEQS
...
While ORALBARANS->( !Eof() ) Aadd( ::oBrowse1:aArrayData, { ORALBARANS->NUMERO,;
ORALBARANS->MATRICULA,;
DtoC( ORALBARANS->DATACARREC ),;
If( Empty( ORALBARANS->CODI ), ORALBARANS->NOM, CLIENTS->NOM ),;
If( Empty( ORALBARANS->CODI ), cTel, CLIENTS->TELEFON ),;
If( Empty( ORALBARANS->CODI ), Space(9), CLIENTS->TELEFON2 ),;
If( lCli, "P", "E" ) } )
ORALBARANS->( DbSkip() )
EndDo
...
RETURN Nil
Un Saludo,
Xevi.
"José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje news:431c0cd7$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> No se donde encontrar un ejemplo donde se utilice un arrayBrowse...
>
> ¿Alguien sabe donde encontrarlo?
>
> Gracias,
> José Luis Capel
>
--

[jfgimenez]

Xevi,
Yo lo utilizo de esta manera, siempre desde código, por lo del multilenguaje...
Seguramente no siempre serí­a tan sencillo, pero en este caso podrí­as diseñarlo todo desde el IDE usando el idioma que prefieras, y después hacer lo siguiente en el OnInitialize:
AEval( ::oBrowse1:aCols, {| oCol, n | oCol:cHeader := ::aIdioma[ 2, oXevi:nIdioma, n ] } )
--
Un saludo,
José F. Giménez
--

[ignacio]

José Luis,
samplesbrowsesdbfbuilder
En la nueva PR5 incluimos un Bug Tracking System realizado con ArrayBrowse
igualmente.
Un saludo,
"José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
news:431c0cd7$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> No se donde encontrar un ejemplo donde se utilice un arrayBrowse...
>
> ¿Alguien sabe donde encontrarlo?
>
> Gracias,
> José Luis Capel

[joseluis]

Gracias a todos!!!
Ya lo tengo funcionando!!
Saludos,
José Luis Capel
José Luis Capel escribió:
> Hola,
>
> No se donde encontrar un ejemplo donde se utilice un arrayBrowse...
>
> ¿Alguien sabe donde encontrarlo?
>
> Gracias,
> José Luis Capel