Xailer & OZ Software

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

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
>
--

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
>
--

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
--

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

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