Página 1 de 1

inicializacion de TArrayBrowse

Publicado: Lun Sep 19, 2005 6:48 am
por swriter
Buenas noches srs
tengo un formulario (el principal TFormRol)
donde he definido un TArrayBrowse
en el siguiente evento de ese formulario intento inicializar el
oArraybrowse1
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := {'Empresa1','Empresa2','Empresa3'}
RETURN Nil
Pero no se dibuja nada
que estoy haciendo mal
Gracias x su tiempo
saludos
Wilson 'W' Gamboa A
SoftWare Writer
swriter@uio.satnet.net

inicializacion de TArrayBrowse

Publicado: Lun Sep 19, 2005 8:45 pm
por CapelSoft
Hola Wilson,
> tengo un formulario (el principal TFormRol)
> donde he definido un TArrayBrowse
> en el siguiente evento de ese formulario intento inicializar el
> oArraybrowse1
¿Cuantas columnas tienes definido en el ArrayBrowse?
>
> METHOD FormInitialize( oSender ) CLASS TFormRol
> ::oArrayBrowse1:aCols := {'Empresas'}
> ::oArrayBrowse1:aArrayData := {'Empresa1','Empresa2','Empresa3'}
>
> RETURN Nil
>
Añade :
::oArrayBrowse1:Refresh( .T. )
Y dime si te ha funcionado.
Saludos,
José Luis Capel
www.capelblog.com

inicializacion de TArrayBrowse

Publicado: Mar Sep 20, 2005 12:08 am
por swriter
Jose Luis
Gracias x Contestar
me da un error lo que tengo es
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := ::aEmpresas
::oArrayBrowse1:Refresh( .T. )
Y perdon por la ignorancia, pero como defino las columnas del ArrayBrowse??
Gracias x Todo
Wilson 'W' Gamboa A
SoftWare Writer
swriter@uio.satnet.net
"José Luis Capel" <capelsoft@terra.es> escribió en el mensaje
news:432f072c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola Wilson,
>
>> tengo un formulario (el principal TFormRol)
>> donde he definido un TArrayBrowse
>> en el siguiente evento de ese formulario intento inicializar el
>> oArraybrowse1
>
> ¿Cuantas columnas tienes definido en el ArrayBrowse?
>
>
>>
>> METHOD FormInitialize( oSender ) CLASS TFormRol
>> ::oArrayBrowse1:aCols := {'Empresas'}
>> ::oArrayBrowse1:aArrayData := {'Empresa1','Empresa2','Empresa3'}
>>
>> RETURN Nil
>>
>
> Añade :
>
> ::oArrayBrowse1:Refresh( .T. )
>
> Y dime si te ha funcionado.
>
> Saludos,
> José Luis Capel
> www.capelblog.com

inicializacion de TArrayBrowse

Publicado: Mar Sep 20, 2005 9:27 am
por joseluis
Wilson,
> me da un error lo que tengo es
> ::oArrayBrowse1:aCols := {'Empresas'}
aCols es una propiedad de todos los browses que recibe como parámetro un
a matriz de _objetos_ columna.
> ::oArrayBrowse1:aArrayData := ::aEmpresas
Eso está bien... Has de corresponder el número de columnas como mí­nimo
al de dimensiones de la matriz (si hay más, no pasa nada, si hay
menos.... mal muy mal)
> ::oArrayBrowse1:Refresh( .T. )
> Y perdon por la ignorancia, pero como defino las columnas del ArrayBrowse??
De dos maneras. La mas sencilla: desde el ide, con el ratón haces click
en le browse, luego botón derecho -> añadir columna. Y ya seleccionas
la columna y en el inspector de propiedades cambias el header y
cualquier otra propiedad que te intereses.
Desde programa. En el evento onCreate del Browse haces algo así­:
METHOD ArrayBrowse1Create( oSender ) CLASS TForm1
WITH OBJECT TBrwColumn():New( oSender )
:cHeader := "Pepe"
:nWidth := 57
:Create()
END
WITH OBJECT TBrwColumn():New( oSender )
:cHeader := "Juan"
:nWidth := 57
:Create()
END
..... así­ para todas las columnas
RETURN Nil
OSender es el objeto oArrayBrowse 1
Espero que te ayude con tu programa.
Saludos,
José Luis Capel

inicializacion de TArrayBrowse

Publicado: Mié Sep 21, 2005 6:33 pm
por swriter
Jose Luis, gracias
ahora tengo el problema que me hace display solo de la primera letra de cada
fila
(tengo una sola columna) que podria ser ??
Gracias, estoy intentando pasar uno de mis modulos a Xailer (aun trabajo en
caracteres con xharbour con o sin ADS)
Saludos
--
Wilson 'W' Gamboa A
SoftWare Writer
swriter@uio.satnet.net
"José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
news:432fba63$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Wilson,
>
>
>> me da un error lo que tengo es
>> ::oArrayBrowse1:aCols := {'Empresas'}
>
> aCols es una propiedad de todos los browses que recibe como parámetro un a
> matriz de _objetos_ columna.
>
>
>> ::oArrayBrowse1:aArrayData := ::aEmpresas
>
> Eso está bien... Has de corresponder el número de columnas como mínimo al
> de dimensiones de la matriz (si hay más, no pasa nada, si hay menos....
> mal muy mal)
>
>> ::oArrayBrowse1:Refresh( .T. )
>> Y perdon por la ignorancia, pero como defino las columnas del
>> ArrayBrowse??
>
> De dos maneras. La mas sencilla: desde el ide, con el ratón haces click
> en le browse, luego botón derecho -> añadir columna. Y ya seleccionas la
> columna y en el inspector de propiedades cambias el header y cualquier
> otra propiedad que te intereses.
>
> Desde programa. En el evento onCreate del Browse haces algo así:
>
> METHOD ArrayBrowse1Create( oSender ) CLASS TForm1
>
> WITH OBJECT TBrwColumn():New( oSender )
> :cHeader := "Pepe"
> :nWidth := 57
> :Create()
> END
>
>
> WITH OBJECT TBrwColumn():New( oSender )
> :cHeader := "Juan"
> :nWidth := 57
> :Create()
> END
>
> ..... así para todas las columnas
>
> RETURN Nil
>
>
> OSender es el objeto oArrayBrowse 1
>
> Espero que te ayude con tu programa.
> Saludos,
> José Luis Capel

inicializacion de TArrayBrowse

Publicado: Mié Sep 21, 2005 8:31 pm
por Xevi
Wilson,
El array se construye a partir de elementos, cada fila un elemento, y cada columna un elemento del mismo elemento de la Fila.
Así­ pues en tu caso...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := { {'Empresa1'}, {'Empresa2'}, {'Empresa3'} }
RETURN Nil
Si tuvieras dos columnas en el ArrayBrowse...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := { {'Empresa1', "Fila1Columna2"}, {'Empresa2', "Fila2Columna2"}, {'Empresa3', "Fila3Columna2"} }
RETURN Nil
Un Saludo,
Xevi.
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje news:[email=43318b53@ozsrvnegro.ozlan.local...]43318b53@ozsrvnegro.ozlan.local...[/email]
>
> Jose Luis, gracias
> ahora tengo el problema que me hace display solo de la primera letra de cada
> fila
> (tengo una sola columna) que podria ser ??
>
> Gracias, estoy intentando pasar uno de mis modulos a Xailer (aun trabajo en
> caracteres con xharbour con o sin ADS)
>
> Saludos
>
>
> --
> Wilson 'W' Gamboa A
> SoftWare Writer
> swriter@uio.satnet.net
>
> "José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
> news:432fba63$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Wilson,
>>
>>
>>> me da un error lo que tengo es
>>> ::oArrayBrowse1:aCols := {'Empresas'}
>>
>> aCols es una propiedad de todos los browses que recibe como parámetro un a
>> matriz de _objetos_ columna.
>>
>>
>>> ::oArrayBrowse1:aArrayData := ::aEmpresas
>>
>> Eso está bien... Has de corresponder el número de columnas como mí­nimo al
>> de dimensiones de la matriz (si hay más, no pasa nada, si hay menos....
>> mal muy mal)
>>
>>> ::oArrayBrowse1:Refresh( .T. )
>>> Y perdon por la ignorancia, pero como defino las columnas del
>>> ArrayBrowse??
>>
>> De dos maneras. La mas sencilla: desde el ide, con el ratón haces click
>> en le browse, luego botón derecho -> añadir columna. Y ya seleccionas la
>> columna y en el inspector de propiedades cambias el header y cualquier
>> otra propiedad que te intereses.
>>
>> Desde programa. En el evento onCreate del Browse haces algo así­:
>>
>> METHOD ArrayBrowse1Create( oSender ) CLASS TForm1
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader := "Pepe"
>> :nWidth := 57
>> :Create()
>> END
>>
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader := "Juan"
>> :nWidth := 57
>> :Create()
>> END
>>
>> ..... así­ para todas las columnas
>>
>> RETURN Nil
>>
>>
>> OSender es el objeto oArrayBrowse 1
>>
>> Espero que te ayude con tu programa.
>> Saludos,
>> José Luis Capel
>
>
>
--

inicializacion de TArrayBrowse

Publicado: Jue Sep 22, 2005 2:27 am
por swriter
This is a multi-part message in MIME format.
------=_NextPart_000_0236_01C5BEE2.7DF6F4B0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0237_01C5BEE2.7DF6F4B0"
------=_NextPart_001_0237_01C5BEE2.7DF6F4B0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi, gracias x aclararme, les envio mi proyecto
favor si me pueden decir porque me aparecen solamente el promer digito
de la empresa
saludos
y Gracias x todo
--=20
Wilson 'W' Gamboa A
SoftWare Writer
swriter@uio.satnet.net
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:[email=4331a703@ozsrvnegro.ozlan.local...]4331a703@ozsrvnegro.ozlan.local...[/email]
Wilson,
El array se construye a partir de elementos, cada fila un elemento, y =
cada columna un elemento del mismo elemento de la Fila.
As=ED pues en tu caso...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols :=3D {'Empresas'}
::oArrayBrowse1:aArrayData :=3D { {'Empresa1'}, {'Empresa2'}, =
{'Empresa3'} }
RETURN Nil
Si tuvieras dos columnas en el ArrayBrowse...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols :=3D {'Empresas'}
::oArrayBrowse1:aArrayData :=3D { {'Empresa1', "Fila1Columna2"}, =
{'Empresa2', "Fila2Columna2"}, {'Empresa3', "Fila3Columna2"} }
RETURN Nil
Un Saludo,
Xevi.
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribi=F3 en el =
mensaje news:[email=43318b53@ozsrvnegro.ozlan.local...]43318b53@ozsrvnegro.ozlan.local...[/email]
>=20
> Jose Luis, gracias
> ahora tengo el problema que me hace display solo de la primera letra =
de cada=20
> fila
> (tengo una sola columna) que podria ser ??
>=20
> Gracias, estoy intentando pasar uno de mis modulos a Xailer (aun =
trabajo en=20
> caracteres con xharbour con o sin ADS)
>=20
> Saludos
>=20
>=20
> --=20
> Wilson 'W' Gamboa A
> SoftWare Writer
> swriter@uio.satnet.net
>=20
> "Jos=E9 Luis Capel" <joseluis@iaicom.com> escribi=F3 en el mensaje=20
> news:432fba63$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Wilson,
>>
>>
>>> me da un error lo que tengo es
>>> ::oArrayBrowse1:aCols :=3D {'Empresas'}
>>
>> aCols es una propiedad de todos los browses que recibe como =
par=E1metro un a=20
>> matriz de _objetos_ columna.
>>
>>
>>> ::oArrayBrowse1:aArrayData :=3D ::aEmpresas
>>
>> Eso est=E1 bien... Has de corresponder el n=FAmero de columnas como =
m=EDnimo al=20
>> de dimensiones de la matriz (si hay m=E1s, no pasa nada, si hay =
menos....=20
>> mal muy mal)
>>
>>> ::oArrayBrowse1:Refresh( .T. )
>>> Y perdon por la ignorancia, pero como defino las columnas del=20
>>> ArrayBrowse??
>>
>> De dos maneras. La mas sencilla: desde el ide, con el rat=F3n =
haces click=20
>> en le browse, luego bot=F3n derecho -> a=F1adir columna. Y ya =
seleccionas la=20
>> columna y en el inspector de propiedades cambias el header y =
cualquier=20
>> otra propiedad que te intereses.
>>
>> Desde programa. En el evento onCreate del Browse haces algo as=ED:
>>
>> METHOD ArrayBrowse1Create( oSender ) CLASS TForm1
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader :=3D "Pepe"
>> :nWidth :=3D 57
>> :Create()
>> END
>>
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader :=3D "Juan"
>> :nWidth :=3D 57
>> :Create()
>> END
>>
>> ..... as=ED para todas las columnas
>>
>> RETURN Nil
>>
>>
>> OSender es el objeto oArrayBrowse 1
>>
>> Espero que te ayude con tu programa.
>> Saludos,
>> Jos=E9 Luis Capel=20
>=20
>=20
>
------=_NextPart_001_0237_01C5BEE2.7DF6F4B0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2722" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Xevi, gracias x aclararme, les envio mi =
proyecto</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>favor si me pueden decir porque me =
aparecen=20
solamente el promer digito</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>de la empresa</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>saludos</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>y Gracias x todo</FONT></DIV>
<DIV><BR>-- <BR>Wilson 'W' Gamboa A<BR>SoftWare Writer<BR><A=20
href=3D"mailto:swriter@uio.satnet.net">swriter@uio.satnet.net</A><BR></DI=
V>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:4331a703@ozsrvnegro.ozlan.local">news:4331a703@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Wilson,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>El array se construye a partir de =
elementos, cada=20
fila un elemento, y cada columna un elemento del mismo elemento de la=20
Fila.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>As=ED pues en tu caso...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>METHOD =
FormInitialize( oSender )=20
CLASS TFormRol<BR> ÂÂÂÂÂÂ Â=20
::oArrayBrowse1:aColsÂÂÂ&nbsp ;Â :=3D=20
{'Empresas'}<BR>ÂÂÂÂÂ =
::oArrayBrowse1:aArrayData :=3D {=20
<FONT color=3D#ff0000>{</FONT>'Empresa1'<FONT =
color=3D#ff0000>}</FONT>, <FONT=20
color=3D#ff0000>{</FONT>'Empresa2'<FONT color=3D#ff0000>}</FONT>, =
<FONT=20
color=3D#ff0000>{</FONT>'Empresa3'<FONT color=3D#ff0000>}</FONT> =
}<BR><BR>RETURN=20
Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT =
color=3D#000000>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT =
color=3D#000000>Si tuvieras dos=20
columnas en el ArrayBrowse...</FONT></FONT></DIV></FONT></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT=20
color=3D#000000></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT =
color=3D#000000>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>METHOD =
FormInitialize( oSender )=20
CLASS TFormRol<BR> ÂÂÂÂÂÂ Â=20
::oArrayBrowse1:aColsÂÂÂ&nbsp ;Â :=3D=20
{'Empresas'}<BR>ÂÂÂÂÂ =
::oArrayBrowse1:aArrayData :=3D {=20
<FONT color=3D#ff0000>{</FONT>'Empresa1', "Fila1Columna2"<FONT=20
color=3D#ff0000>}</FONT>, <FONT color=3D#ff0000>{</FONT>'Empresa2',=20
"Fila2Columna2"<FONT color=3D#ff0000>}</FONT>, <FONT=20
color=3D#ff0000>{</FONT>'Empresa3', "Fila3Columna2"<FONT =
color=3D#ff0000>}</FONT>=20
}<BR><BR>RETURN Nil<BR></FONT></DIV></FONT></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT=20
color=3D#000000></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT=20
color=3D#000000></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT =
color=3D#000000>Un=20
Saludo,</FONT></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT=20
color=3D#000000>Xevi.</FONT></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT=20
color=3D#000000></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><FONT=20
color=3D#000000></FONT>Â</DIV></FONT>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Wilson 'W' Gamboa A" <</FONT><A=20
href=3D"mailto:swriter@uio.satnet.net"><FONT face=3DArial=20
size=3D2>swriter@uio.satnet.net</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3=20
en el mensaje </FONT><A =
href=3D"news:43318b53@ozsrvnegro.ozlan.local"><FONT=20
face=3DArial =
size=3D2>news:43318b53@ozsrvnegro.ozlan.local</FONT></A><FONT=20
face=3DArial size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
<BR>> Jose=20
Luis, gracias<BR>> ahora tengo el problema que me hace display solo =
de la=20
primera letra de cada <BR>> fila<BR>> (tengo una sola columna) =
que=20
podria ser ??<BR>> <BR>> Gracias, estoy intentando pasar uno de =
mis=20
modulos a Xailer (aun trabajo en <BR>> caracteres con xharbour con =
o sin=20
ADS)<BR>> <BR>> Saludos<BR>> <BR>> <BR>> -- <BR>> =
Wilson 'W'=20
Gamboa A<BR>> SoftWare Writer<BR>> </FONT><A=20
href=3D"mailto:swriter@uio.satnet.net"><FONT face=3DArial=20
size=3D2>swriter@uio.satnet.net</FONT></A><BR><FONT face=3DArial =
size=3D2>>=20
<BR>> "Jos=E9 Luis Capel" <</FONT><A=20
href=3D"mailto:joseluis@iaicom.com"><FONT face=3DArial=20
size=3D2>joseluis@iaicom.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3 en=20
el mensaje <BR>> </FONT><A=20
href=3D"news:432fba63$1@ozsrvnegro.ozlan.local"><FONT face=3DArial=20
size=3D2>news:432fba63$1@ozsrvnegro.ozlan.local</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> =
Wilson,<BR>>><BR>>><BR>>>> me da=20
un error lo que tengo es<BR> >>>ÂÂÂ&n bsp;=20
::oArrayBrowse1:aColsÂÂÂ&nbsp ;Â :=3D=20
{'Empresas'}<BR>>><BR>>> aCols es una propiedad de todos =
los=20
browses que recibe como par=E1metro un a <BR>>> matriz de =
_objetos_=20
=
columna.<BR>>><BR>>><BR> >>>ÂÂÂ&n bsp;&=
nbsp;Â=20
::oArrayBrowse1:aArrayData :=3D ::aEmpresas<BR>>><BR>>> =
Eso est=E1=20
bien... Has de corresponder el n=FAmero de columnas como m=EDnimo al =
<BR>>>=20
de dimensiones de la matriz (si hay m=E1s, no pasa nada, si hay =
menos....=20
<BR>>> mal muy=20
mal)<BR>>><BR> >>>ÂÂÂ&n bsp;ÂÂ=20
::oArrayBrowse1:Refresh( .T. )<BR>>>> Y perdon por la =
ignorancia,=20
pero como defino las columnas del <BR>>>>=20
ArrayBrowse??<BR>>><BR>>> De dos maneras. La mas =
sencilla:=20
desde el ide, con el rat=F3n haces click <BR>>> en le browse, =
luego bot=F3n=20
derecho -> a=F1adir columna. Y ya seleccionas la <BR>>> =
columna y=20
en el inspector de propiedades cambias el header y cualquier =
<BR>>> otra=20
propiedad que te intereses.<BR>>><BR>>> Desde =
programa. En=20
el evento onCreate del Browse haces algo =
as=ED:<BR>>><BR>>> METHOD=20
ArrayBrowse1Create( oSender ) CLASS=20
TForm1<BR>>><BR>>>ÂÂÂÂ WITH OBJECT=20
TBrwColumn():New( oSender=20
)<BR> >>ÂÂÂÂ&amp ;nbsp;ÂÂÂÂ =
:cHeader=20
:=3D =
"Pepe"<BR> >>ÂÂÂÂ&amp ;nbsp;ÂÂÂÂ =
:nWidth :=3D=20
57<BR> >>ÂÂÂÂ&amp ;nbsp;ÂÂÂÂ=20
:Create()<BR>>>ÂÂÂÂ=20
END<BR>>><BR>>><BR>>>ÂÂÂÂ WITH =
OBJECT=20
TBrwColumn():New( oSender=20
)<BR> >>ÂÂÂÂ&amp ;nbsp;ÂÂÂÂ =
:cHeader=20
:=3D =
"Juan"<BR> >>ÂÂÂÂ&amp ;nbsp;ÂÂÂÂ =
:nWidth :=3D=20
57<BR> >>ÂÂÂÂ&amp ;nbsp;ÂÂÂÂ=20
:Create()<BR>>>ÂÂÂÂ=20
END<BR>>><BR>>>ÂÂÂÂ ..... as=ED para =
todas las=20
columnas<BR>>><BR>>> RETURN=20
Nil<BR>>><BR>>><BR>>> OSender es el objeto =
oArrayBrowse=20
1<BR>>><BR>>> Espero que te ayude con tu =
programa.<BR>>>=20
Saludos,<BR>>> Jos=E9 Luis Capel <BR>> <BR>> =
<BR>></FONT>=20
</BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0237_01C5BEE2.7DF6F4B0--
------=_NextPart_000_0236_01C5BEE2.7DF6F4B0
Content-Type: application/x-zip-compressed;
name="RolXailer.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="RolXailer.zip"
UEsDBBQAAgAAABObNTMAAAAAAAAAAAAAAAAKAAAAUm9sWGFpbGVyL1BLAwQU AAIACADXvigz4odo
fnwAAACPAAAAEQAAAFJvbFhhaWxlci9idHMueG1sRcq9CsIwFEDhPU9xzR6T 1gbT0B8QRzczuKYx
1AttAr1BfHwFBdfvnG58rQs840aYU8+rveIQU8h3THPPkbIwRrei4uPAup0Q cPO4xA1O7gpC/Ozs
S7SgjFStrJXS4HD9QH2wurHN8T9ePBXwIUQiCy7TAyf/rVMhOTD2BlBLAwQU AAIACACLtjQzGedN
4vsBAADbAwAAEwAAAFJvbFhhaWxlci9FcnJvci5sb2d9UsGO2jAQvSPxD3Nc WBGS0LSLb0kALWog
URLK9lSZZGCtOjGyk3b/e3+gTsLCUgl8sex5b+bNmxkO7xyI8cBUJQXkCCil kKjgHmHY7/V7cDkL
zF4pAXM6ts2x6VzF4FlIHbNt4tjEnrSxFRZCMgqc7SQSsJ6+TCz7xHIlUqBZ VVOuI02h0a0Dy3Iv
ZEEz9l5q6RwyURwZp7mQcJM06rT/QKka2gtlHCU53WAa06nhQCRxJJEjVQjn dvxzdgJvz1TuRC1h
VzOen2iWFlRxAx4SVhwDfBtA5AttaVtLlAS+9XuXJOCP/cdHAp6QnJY56Ac4 hmNYH/UiTivaNkhg
y8pc/FXwEmltYo+qSUi5JpiWYX81TUhQ/mEZQkSz32Df8e0/1yrKtRza+tfO /pZ1l5kn9U7pfcFG
mOcmc/3vv+fscNkfPTnzeg/mqtJNEzAWxul7hiqT7NjIIHojlKIHhFJUsBd1 mZ+54REl7UDpIoxX
cRiQX366TIP5B8aVh7rAshKKwKeaC5a9ohTt30lf12AS6l1t2on0JBrN2oFC e6BIwz5XcePY/enF
4TaZW34YbFZra+am7swL/GDpf4cHy7EHLcOLtx2AhOtriNkBPqUi21XgbdJU IxtUk2Y6mbaweLNu
al9YUaSzuOkyXBMd08inDrhyl/plO4OmiX9QSwMEFAACAAAAi5o1MwAAAAAA AAAAAAAAABIAAABS
b2xYYWlsZXIvSW5jbHVkZS9QSwMEFAACAAgAi5o1M/ZIKlrUAAAAGQEAABwA AABSb2xYYWlsZXIv
SW5jbHVkZS9Kb3NlUm9sLmNoPc/BSgNBDAbg+8C8Q6CHhYKdpeChe6u0FUVB rKDCggzZtBucnSyZ
1uIje+4LOLtKb/m/hJC4qTUwhSeVb8KDVPAs4c1zIB19w9iSZr6XRLk1w3b0 FSVU7pHPsRpheTyI
/pUbwtZXMC9duXDzsrwe1FljjXMN7TgyskRK0Hv1QAFUAjSU417SMDThiOGY pcCqPnFIEutEnW/q
SKc8XEdtJHj9j/mmwprJuJpge7d9WT8uocgX/8DV8E/udtR9eYXbh5uPV9HP C4R3v+56pQvQkJK3
5hdQSwMEFAACAAgAErc0M4wbYo7TAAAAFwEAACAAAABSb2xYYWlsZXIvSW5j bHVkZS9Kb3NlUm9s
LmNoLmJhaz2Pz0rDQBCH7wv7DgM9BAq6oeDB3Cq2RWlBrKBCoCyTsVm62Qmz rcVH9uwLOInS23zf
/OE3bmoNTOFJ+IvwyBU8c3zzIZKMfhmwJVH9yJm0dY3t6O8po4Qew0+qRjE/ HVn+yiVh6yuYla68
dbOyvBmss8Ya5xr6CClg4EQZei8eKIJwhIYU95ytmYSE8aRcYFWfQ8yc6kyd b+pEZx2tkzQcvfyj
Jip0aTxMsH3Yviw2cyg07zdcDd9ot6Pu0wus1ne7V5bDRcR3v+h6oYuggbK3 5hdQSwMEFAACAAAA
5po1MwAAAAAAAAAAAAAAAA4AAABSb2xYYWlsZXIvT2JqL1BLAwQUAAIACADm mjUzLc1aehANAAAm
HwAAGQAAAFJvbFhhaWxlci9PYmovRm9ybVJvbC5vYmqtmVtsG8cVQO+SFCXK elmWbUl+re2IkS0/
VpKfTdKaXK7EjSmSJle0HUhlluRKWmbJZZakI6WPpCis2m5auD9pECCBWxRo WgRofwr0oyiaph8p
UKD5a36KPiCSDYoURfqTBgXcO7NLityo6KYoBWrnztw5c+dx7wx3XtwFvjnd KCR07UwW7uwFgN1B
3dDkYo7lp6bY82fOn5mGO8MAf2lTbLx6fhbuuAHeh5cvQVdaEm5IHj4WEjAd CkgBD/nnDc0nYotx
TzqYTLrx602LUVFK95D/pBxe6YYffAMYF9CUNO7pMlMA3T00JXrB1wvwqhe8 D90PXfBSgRlMh4Pp
ucVo+kaAjwSSSdjTzEin+UgyHQ8kAguwuyNTjCYlGGhmxfnYYlSC4aaMjwCt lYT+Zp40F0ssdIjR
NoIUCQSFCIy05EAiEbgZTMSuJ4VtrhRMXOdjkcWFaGdeQuCTWHs7LykFpMVk MJDYJt4IpBeE6GJQ
mBej2z20ckVJWIDWOCwkUWcuBqM2raRAOiXFEtstWSVCNIQtrWXStwpxQ88q 5XJyo5DRtTJ2mOYK
60q2WlEA7u8HYIY6BiURi4ziGnnwLWAA8t1rc+P4CK1hFi4Q/Hz1V0Nv388D zVi74mnl9r19/34r
/6B35/yv+HbO/9G+nfOv7m/Lh9dE2HJLrq1eyfW9wdTw1gFMs5ieSO3ZmsX0 JUw/gemrmI5jehHT
WUyvYbqA6S9g+kVM307tgQceDy7La8jHNQmkx9hdeArlt2D78/n9Zn7zs2KT DZv+Czb5JZv8MsrY
LHBWez+05LAl/9KSn7bkv9rqf2iT/2mzxz3aKfeOduqP28onbOWcTb5gk6/Y 5HmbHLXxJVt5xiaX
bPILNvmeTX7FJn/H1t4btvKf2OS3bPK7tvq/t5U3bOUf2sphrFP22eQ9NvmQ TZ6wyTM2OTjW2f6C
rTxlk7M2/aKt/JZN/pJN/55Nftkmv26r/31b+U9t5T+3lf/aVv5bm/w7m/xn m/w3m/yRTYZx23zY
5GGbDK8tMluAYaFHYraGzHCyNZlitjgSTlKurStmKNl6Gr8l/K6jHoaQrTv4 vI/PV/D5AJ8/xu8v
8PtOyr31Lj7fS3m2/ojPv+P3o1RXDduoIb82mvLWsI0a8mvIriG7diPVXUN+ Dfk1ZNeQW0NmDZk1
ZNbeSfXUkFlDXg15dWTVe1K+OvLqyKpPpnrryKsjr468OrLqyKojq46sOrLq b6R21ZFXR14dWfX3
Un115NWR10BeoyfV30BeYzQ10EBmYzI12EBmA5mNcGqogdwGchtrqd0NZDeQ 3UB2A9kN5DaQ20Bu
A5kNZJrh1XPANtzHbfKUTb44bobidUvudz2s8PBlFwOrDOR6Dr3OcAxorlwf 5H2SdVYBzZ3Le6kE
fUzJlWDgdj9wHlrl+bQr31eMVgtCoWQoZRk8DPh8Ja+4yVga+V6riJ0mhajf K1s55W1tl6WN2x1q
+GReLqhFvU3BzXURhXyPHpEzijYNJUbc9FiZA3rAMOSNoKE/V1bMoq5O/Rma 6bUy+/RkRa5Uy0HZ
MLW7rYLhtoK4XGy24+O8tHgXbyhyRaFDoXUPpF2+kkfc7LVKB0m+WFQrqqyp zyug9TQ1+iwNtt1M
XteqheJ0SK7IoYzGa2r2GdB8VhWul1QogcjtMhPfHnNpfbmm1MfEGa0fp2lj 8OBeboBkphltEDNK
rmL3mCvNFLv7GViJM7fdwA0BtxvLS4SH8zKM6eU8s/wHWL7pXh50EQtd3B7M zU88qZcVNqpU2NMs
Tj07mVSLrFLO6quKwSrmrJ2gQ+LmRrACmqntJatlYCHJJuVimU0qhroCSz0b y/eZksecpH2o+bw5
KftJ29fc5mSMEuEDxpyAMRTWSbKHGyem2EfTnIde2g+RO0Aax6V6EBvHHPz7 Go7yMOSW38TGlx8y
S+xd7FY/diuXnxKwB3mZVTQWj2sbSraisyXZkNlnqwpbqio5ma0YckbOywbc xWYGuEOQ85HUIPYy
1+rkkKQWlDIOz3M4OAW5CEsjG8s/w/EjqkPcYcgteUlyN9bI3QXx3uYwd8Qy lG0zdC819D4sPb58
z4UzQSzdxx3F6oNYnWgfQ23uuDlnWGGUewS74Wu5DWlkjJuAHLy2F2h4bYZW GlYlxgwPPfmRsK7J
bFnfYKtFtlLRtYpaorXHOT8S3VeOUukA9yga9C+aPshNoiGHSfIQdwKV/uui JaqHW10+Quw/2Wn/
McJfGiWKx1uK/lbqUW5qh+k8SUZp6YvLbzLL33QtDZBBmmpVOcWdsqqcbqty llTZWP4NWWJLR0kN
ji6Aywt6rqrpbE4hqxqnEBNxeZVkaGxZLVeUgsyqxYqyasg5naVOcJq4Ae3b NHcGGYf/c03Uh+V3
4K5L3JxpWXie+qCbWYm7bk/AC27cpdHLzmJ407gcfvqoE7i16Vx+j18sruLM 6mVWZiU5o+EUn83l
1n34IaojfZses9KIe9NLaoz7p8+cxonJrqm3aLdwaWgK2l6GmyP0gKvN5PJd ZPYxVngt1FPezCx4
Ka+bUPb7ZzopiWrGcIzoIQjWP9uJqFDz6fCI+LvIIctHWI/4zyFLagMU0DnL 6Kwyi6s4oRQrskNe
L+Ed9p9HnlhcwUAiZ9XvFim0GQEcknYR0l7/haZlpI9BuZh1PEx9BHDQf7Ed EFIw/FTkAvbIMaef
cA74L7VzwrqBQ6WsY/TaEWOGgb4daAOENua/jDTzF6xsmOFROU22fGcmDRLI lD9AR5kuYGLUgn5L
Lai0a+yCXKzKxG1k4nhw1hl3iHCP+4PIDeoGdUnkGnRxWnNomumQt5vwJvw8 8nhVMQyF4BaLbFwx
PtARrhQ/LXGYEE/4Qx3ENhzZO0PKikq2r1u6U+oekyoQj8oYqkGIqm72HiP/ aQOpGzKbVeiYOKWO
EOpJ/xyxVUcXyqi4n6I//IP4A9kXSpbdZIydD8Fec/LnEZtQNPXZqprDNYQ4 GkTIIBg0YFrWlp1y
9xHuUX+4fZ1HPy4oZO7jcsXQi2RBOaXtJ7RDfrGdlpJxVMtNqFPSKCFN+p+k /S3pRkVhA/kqbgA7
himH0HHtXG4ENg8Qdrc/iScdA6vuxqoMfrnzkH5YAm/HTnBQu0CqHDLjUgS3 IDK67EbTqk9sHYc1
MwwMNXeQI/+XHYQllCN0B8EBMNDlDTQhq2aoj5r7rEPUUdM/Zy2UUrbWZlyT i6r2P2wnxwhwhG4n
xBNx2eeUYpn4jLP6x83dkWwfIbV8VangLMuaGfcdIh4hiH1032gul09JmDAd jGwcIRzXgs5KioHe
pJ9i+SpuH/i8VsVDi84mq4rmuG9+c/YvtRlGdhJcR7qhOjbuUUIZovvHYgUD Sk7OOZ7uSTPMBTot
iJghJKvqRbpfYOwrE1936konzDkjm8Yczre5CnEtKcYtx+54kjCO0Y2izTLz 4EdOEVUNY4jz4DNl
uuopQh30415YUYrW1mh30tOt890Z8+hCvDMpZ2XiVOWSrFkdwoO3Yw89S0ij 1EOxbSVvhoER6u2L
5SqNgg5RnGnULB0YFb1pvbWBWCHEKWnaPMYQ1wxUcyouug9k64z2p4qadXrA myGYU9RD55WiQnYY
g86VFQTbLGM/Ljpf17OmeRc6jx7bm6RDzDnTPOK7vGys4iy2H9UwWOdUfFSM M4SeU8vPOOSeN49t
xHn5NQV/vpKOlj9luL1gRoDL5oFgRV2tGmigGXnRSrg5ZL5CvwiZS2Dffi6a a/qS+eC5y/R9jfXL
dBpayZnt5Ox28hx4PPSXfIj7DP2B6CoB9xh9kFyBe7yZS18FhHPkNYZnJd51 uwzcE7Ssi7zG2Bg8
9CJsMtxnqdxewlz7HPmd9dgOBVdg080FIBOEfB/+ZHvfescBmSsQpi8q1q/N wmYXeRPStbOGF+0j
NHHMtelD26o87tPdzVsdiArXoXmp1n6XFgiFFhYjkkiv7FDgYwvxWFSISrRE kMKxEDQhaT4hBCSB
3p618siT3PmJgYj4lLCd33ZrNm1elE2TNkLBCB8R+atgsiDcZpIYhQc3XC4Y TUpg3ePxsWhSSizy
UizBByIRaLvOsxsDSUEKYqUQ0nhyZQnpGL3ZM+/30tFgLBESEknpZkRACa3A Xl4XQ1K4JYUFcT6M
qhEeBSEhhBARbetcOkbvBqfBuiNMR9AWVLUaQKX56AIZu3SsvfvQcYWIelE+ HEskoe0OsVM/zYeF
ANpKOhKL4ezEMRUXeWkxQeo3jRZCohQRovNEiEU7RrftKtIyegYTrbtINGn7 XhInml46pmPk/hA6
bifbLyWbd5GRmwFhIY6WfOIuko/Ekq1schGJU7IYh3hCJMMJabNeMoAzFKAd NlddKzchzGEiDFFa
GMA1yAdwccWSMB8Jpq/HElfB0iUjQzoPgXgcOxyQxFgUJukVNOmYyCdPQPM+ u2SskvfJD3rBg4+c
+eq/C7ZcEgNfJ9Hk31BLAwQUAAIACAATtzQzNqIijggCAAA3AwAAGwAAAFJv bFhhaWxlci9PYmov
Um9sWGFpbGVyLm9ial2Sz2sTURDHv2+z2fwmUSMoIuQiFIphixbszU2ybRc3 2XXzktTTa/MDY9ia
kFSpt4IYAnrISYpQyMGLN2+epf4pe9C/os5uSKM78H3vMzO785g37yyDlDN0 D45eub1xsYPZbQA3
SsOxe/S6Wyhvbha2i9vFLczywO//Ps3/ePwIswjwB5+fICq4fsDlslXRiSsa 12R/USp7jtWwZVGq
1yMkRRg1g4u4v/p5nMfw7SGYhIBOmBxdEhCLB2QoSCSBLwqUq8iVhE8mbor9 ktht1IQQ1abdKJlG
GblVjO9aTtWxTORFvy3eHtvjYac3mdTfHbeH7gSZZVQ/7XXenPSA+S2ApVc/ VzWjdocuYLEFBgxi
/Y6/pfoUou7J3v/KXc4HCAL97+to+hIXd+FFuOQlufQ124x494gLxA+aMhan fodZKkbtwT+BEHla
fmJt99kyvrKNUF4N+TshXwv51ZDvhPxm6DwRymfAPmThSl2X5dmU+RAhkHyQ CaKJ5zKmMTWKtoJB
8vptYMSMaVyNQY3DTXTTfnrERjCmCTUZOISpmH/Z2DNLomU5z/DPLPWq7eh1 DeYLLUCIMje4qUOz
bcpr3LBqqO9bLdT0Fq4H7jRqWL/P0fhl0MTFDjzQKOKcebnlSLyNJvNU2p+S bNIhaUQ6I81J503J
W3AJiyRkKtFdForCkzjDR5ok/gJQSwMEFAACAAgA+5kyM4Xy/SyLAAAAqAEA ABsAAABSb2xYYWls
ZXIvT2JqL1JvbFhhaWxlci5yZXNjYGBgUADi//8hGB1EMDIwGIDlmRicGHwZ AhjiGdwYPBmCGIIZ
QqBqDBi4OGDqNYBYBIoZGVjAYh+AWJgbglFBAxgxNDRAKBAECQGJAwcOgGwF I5DDwBQIgt0JomHg
wAHcbBcg/QWJ7YJgf0FiuyDYX5DYLgj2Fxfs4ijqkc1BMR/ZXrh7iHE/gg0A UEsDBBQAAgAAADRa
KTMAAAAAAAAAAAAAAAATAAAAUm9sWGFpbGVyL1Jlc291cmNlL1BLAwQUAAIA CAA0WikzuLdqfvMA
AACFAgAAHwAAAFJvbFhhaWxlci9SZXNvdXJjZS9Sb2xYYWlsZXIucmONkN1q gzAYhs8F7yH0AqoU
Bqs9SjFCoLVB3fBAkDZ+YMCaENPNXfduYNPaUo9MDkJ+eJ/3SXaIafkD3MgA JbLJz6IB7To7FAle
g349XWs+XITQcS0UF79tMOzxzUg9riLg9TlA/rvnb72N77+5juvsj6yMaJJm aBx7mh0xQ6uigqss
+hFcaOA33cmuqC9Ki9aURqr15apWruN5A4Al5JOePtJFgNLwNUvGJJ+aF5It 9GaWPODULvmQhraa
AA8EZozEoVX596ybhNSuGyoxtw7JgWTEIllB879+Ec5xef9qGmcksXzzOD8F JgTJ7/YL6v1T/Q9Q
SwMEFAACAAgAPb8oMz8vupLyAAAAhwIAACMAAABSb2xYYWlsZXIvUmVzb3Vy Y2UvUm9sWGFpbGVy
LnJjLmJha42Q3WqDMBiGzwXvIfQCqhQGqz1KMUKgtUHd8ECQNn5gwJoQ081d 925gq9VSj0wOQn54
n/dJdohp+QPcyAAlssnPogHtOjsUCV6Dfj1da36/CKHjWiguftvgvsc3I/Ww ioDX5wD5756/9Ta+
/+Y6ruN5+yMrI5qkGRrGnmZHzNCqqOAqi35AFxr4TXeyK+qL0qI1pZFqfbmq 1QRgCfmkp490EaA0
fM2SMcnH5oVkC72ZJQ84tUtO0tBWI2BCYMZIHFqVf8+6SUjtuqESc+uQHEhG LJIVNP/rF+Ecl4+v
pnFGEss3D/NTYESQ/GG/oN4/1f8AUEsDBBQAAgAIADe6NDOcz4E0cwAAAKAA AAAXAAAAUm9sWGFp
bGVyL1JvbFhhaWxlci54ZHSL9g8I8fT3C47l5fLJT852zs8rKcrPKbbVc9Pj 5Yp2cQ32DvEPAEoa
2rrlF+UG5efoFRSl6xiaGugYGcEpI3MdA14uI1ugdERiZk5qEViRAQLychkj SRYl65gBRc1gcia2
XvnFqSCzkzN0DE2AgmACLAcAUEsDBBQAAgAIAOa2NDMAOeT9AwIAADIDAAAX AAAAUm9sWGFpbGVy
L1JvbFhhaWxlci54cGpVUk1v2kAQvVvyf+CWm2VDErCjPQQMrSMcI5uWSKiH xQxmm/WutR9J+Ped
tZOWnt587eybN7PflMXTcrH95XvbSwcEPsD3UtC1Yp1hUpBS8hfKOCjfK6zp rPkXCfrihWw755GP
71QdpMXCnDKRy6PlQFZStfgg6FSDccsN6zhkQhsqatAk2Aa+97LJqWAn0Gbw sxr/9b0NVbQFA0qT
CD9f5iRYYfYnBhyxKAh9rwQOVANBc24ZPzrDEaLiQip5MjuqYLRTzDj+C9ld StacDdkxrqUY3exu
Rt9oe5B09IjzK3qEnKpXTfomLQjjzH2x2WbFc4USPVojW2pYnUP7RlUKNUeS vU49txQOtsnESQ5u
ZbtOgdZrJuDZtgdQLqfaqxdfJdVZKlNbY5hohgxSFwK9NbwBdwrkUkHRL8Wx ymm3QtmH2gXGJAfU
/DPgavHXV6x3E6RZiTsuymzppqhwSTWkTJHBQsVFze2xD32aTlr9t+7LxjUc frsAAradb127uZLv
GipDDe7hIUpms6R6GCfTKcIkiWOE22QaIdwl0zHCfRLfI0wHmCXxHUKcxO5B FCZR6BpEURIj+p67
oIWUeAVhNBuHYToJx/E8jNJU4OD4aSMVAydJT8EZP7Q7GrwgJRu8oXbw9qts 3c8fXZ1wf5fj/890
cpVXte/dkiepwaXrs+/9AVBLAwQUAAIAAADlmjUzAAAAAAAAAAAAAAAAEQAA AFJvbFhhaWxlci9T
b3VyY2UvUEsDBBQAAgAAAEO8KDMAAAAAAAAAAAAAAAAZAAAAUm9sWGFpbGVy L1NvdXJjZS9iYWNr
dXBzL1BLAwQUAAIACABTuigzIvEZ0eEAAADIAQAAJwAAAFJvbFhhaWxlci9T b3VyY2UvYmFja3Vw
cy9Gb3JtTWFudC5wcmd+MK3Qv07DMBAG8D1S3uFUFqjUOiAhQbY2f8TQJFWS gfXqHsRSGlfXiwTP
zQuAXVSJtiOe7N833H1W0zCAKazZfpIWG0Nt+1c0PbH33OiO+Idzy7sCB5nv +d0nKR00m702X0Ps
YTGK5eM1J91hDNGTip7VQxQ9OlVhEAY3ZtD9uCWYHIfMdTdxnqwWTXMaAnld FdC6pwsBIKmKdVVm
ZQu2EZTxsES+P09quqYr3FB/odnWyFKGC09RsCG5ynZkTb8LFVn7UqWQMKGQ W/T2ziVZmfoqf7ue
Pu/jbefrKjX71xMG31BLAwQUAAIACABYUCgzzWiDRMMEAAAbFQAAJgAAAFJv bFhhaWxlci9Tb3Vy
Y2UvYmFja3Vwcy9Gb3JtUm9sLnByZ34wzZjdjuI2FMfvkXgHi0oDbHdgZtvd 7SK1EiQwQ8tXIdPd
lSpVJhwG7zg2ayfz0afpts/Xq971qsdOQgPDtB2ZkZobgx37l3N8zt8naT4r l8gzMlHyDsJYtshU
8neUcVC2v8fCFSjs7kkV4VBjrS7tgA86VGwdsj9Ey3a0k1iq9GcPwhVtkZPX zZM3zRcnJy9Nb7Nc
Kpc+YyLkyQJIJWU0wlWlXIoguqaKnA06P72V6mrTwd/TbrRWYGZ6g/ZsRoLs MUhvOh6m/8wgIcQb
DyfjUXcUEDmKb30a05lMVAinu6P+fGlHIb4/1OkoeaPvzxnQOfBTQ8pow25w PvaJp4DGYJ6iVi/2
m56+YDGjnP0MNSJnIBagyNZNG5o/5x5n4dXmvudETKR+lzbvsenHEJnJ5VJ3 5FtPbDsz35zbZVQx
I83m8UGv1O6nWPXfHEa2933j/tEFabXkEERiO7K+ftAdkspRX1wq0FITSgI6 51RXijflv4tzqken
jWPSVuGKXUuCLsW440AXUlfJvavtBf3xCGfry75Yylr1XHJarZO3591RIWb3 UV5sU6bJXO1FuFG+
2KbE1gf4i5M+6G2cA+VLpASFpaN1AjqW6HROyRRETKsHoLxEipmjIhqyX4VF 5WK14zgHyqvcFuOv
DhXhQ7viRHldpPiwpiqmETpqD8yB8lWRci4V7g/cxtjct8iB8gYpuA8haBRq uydwjAm6z2sOlLbd
fZvNxpqhvGYRsx4jQyoSysEkueU6UDpI6UilMN8NRdmszCJtxyoHiocUj4FS YCAXgkxA/S4RCWKX
40DxtygFhDk1fVgyo7LXNnUcKF2jMHPFlCEwmfoN7z5WSLmjJATrTUdKz9gi UUjmDI8FamoNw0kE
WWd2md2ybnOgnCFlCpx9TNgCYxlXt7JsfIZrY4BlxminGDsvZuXozwhMiE1o rKQwUVzMGwdKv0j5
geLW6By2m5kOlG+tx9ZSxUDaHxKNzUPq/1hKs1k4x3Hvl+wyUVRVNisFaWet 3hrBTY3MgC9JvTVb
yZuhXFCe1WHpNetO2tN2MJ7uM6NyNMNiw6xcdEer5XGp4e9lsOAqFg2F6QOm YxMW5C53xv+rzsAt
UaiWCp8uZHMraEYEYAflWGcYCugsMyecCsb3FRuOdYYRL9z4BQidycrey7HO 8Jn+DmKMZsrTIuDg
ldmrQub8M8S1zvBx0yNJAsB3ICWfEy/BagPb7xOGxyeZJcCNIx3rjNwWU2lg OkjF9trjWGdcxKj/
C7rYDd3DUdrbtgzSwyBkUtgCAw85bXTa8TwzdUYPozjNRUwbUNf04DHmbdti U56YAjrheDJs+fBR
lIeVEEuxGERWmf1HDZzRkBpp0mvKM4fga/lBjykjgvho8MEq7YVO7Hn4JG9b U2AoTrf5K0qu8Ie0
xshgO1kwTLJPNHsl+iVm4b4ActTBMxBgKh5l4yc72wpmkd+EzXNHISyU3GlJ 90nu1XZHJfSousRQ
K74J4ZG9YNjEqmHoC6avnKXQW8HHxLpJb7LOOdKKObf5XS5Nu8HFdERGjD/x d5lHf6O6973GWJF/
2COtr0mb8xjLkpo1U1N9/I1HIyZk/fPqj9X09twJ5vZG0Eg7c3fla9Wf3gt/ AVBLAwQUAAIACABL
BSgzHewnvzoEAADIEQAAJgAAAFJvbFhhaWxlci9Tb3VyY2UvYmFja3Vwcy9G b3JtUm9sLnByZ34x
zZhbb9s2FMffDfg7HHhAbHdNnLRruxrYAFuyG6+27NnK2gIDBlo+TthSokdK uezj7PvtaW972iFl
efIlGwImwPQihxT50/mfC4/SelatwDOYKHmHUSrbMJXiI+MClR3v8+gKFQ33 pYpp6mSlLu2EjzpS
fBXxP5O2HehkqVT5zz5GV6wNp29ap29bL05PX5nRVrVSrXzFk0hkC4RazjiJ rmrVSozxNVPwbtj9
5YNUXzYD4hPrxSuFZqU37MxmEK5fA/rT8Sj/y0wCgDceTcZBLwhBBumtz1I2 k5mK8Gx31p8v7Sym
+1PdrpI3en/NkM1RnBnSmjbqhedjHzyFLEXzFo1medyMDBKecib4b9gAOcNk gQq2HtrQ/LnwBI++
bJ57DslE6o/57RPdBinGZnG10gt8q8S2mIVzbpdxzcy0WsePeuV2P8Wu/yUY bPt9I39wAe22HGGS
2YH12CDsjaB2NEguFWqpgUHI5oLpWvmh4nd5Tf3o7OQYOiq64tcSSFKKO4Fs IXUd9q6OFw7GAa3W
l4NkKRv1cylYvQkfzntBKWYPUV5sU6bZXB1EuFFeblNSqwH9EjBAvY1zoHxD lLC0dbzKUKeSRBcM
ppikrP4IlFdEMWtUzCL+e2JRRbHaEc6B8rqwxejVZUl0n1ecKG/KFB9XTKUs JqEOwBwo35Yp51KR
f/A2pdu+RQ6Ut0QhP0SoqVBbn+AxJegh1RwoHet9m83GmpG85jG3isGIJRkT aJLcch0oXaJ0pVKU
74aibFauI23HKgeKRxSPo1JoIBcJTFD9IQmJyS7HgeJvUUoIc2r6uOSmyl7b 1HGg9EyFmSuuDIHL
XDd6+lgR5Y5BhFZNR0rf2CKpkMw5HQvM9BqGkyWwWttlvGVlc6C8I8oUBf81 4wuKZdrdlmWjGe1N
AbY2RjvF2Hk5K4O/YjQhNmGpkomJ4nLeOFAGZcpPjFyjC9huZjpQfrCKraRK ETqfM023+6r/Qymt
VukcJ98v+WWmmKptdgrzwUazHeBNA2YoltBsz67kzUgumFj3Yfk160060044 nh4yo3Y0o2bD7FyW
o932hNT4zzbUcJWbhtLyIdepCQu4K8T4f/UZ5BJF1VLR20V8bguaKQK4g3Ls MwwF9TozJ4IlXBxq
Nhz7DFO8yPELTPS6rBy8HPsMn+v3mFI0M5E3AY/emb0uZc6/Q1z7DJ+cHksI kb6BlHwOXkbdBt1/
zDgdnzDLUBghHfuMwhbTaVA6SMUP2uPYZ1ykVP8XbLEbuo9H6WzbMswPg4jL xDYYdMhpU6cdzzPT
Z/QpivNcpLRBdc0ePca8bVtsyoNpoDNBJ8OWhg+i3F8JqRVLMVl3ZnkN3Dxc rUx74cU0gICLJ/6I
fPAH9d7HpbGr+C8EtL+DjhAp1dCG1UEzffy9x2KeyObX9Z/r+eOFSubxk/Ak Hyz0LPZqPr0KfwNQ
SwMEFAACAAgAE44wM0Y3tVjaBgAAnhgAAB0AAABSb2xYYWlsZXIvU291cmNl L0Zvcm1NYW50LnBy
Z9VYe4/bRBD/v1K/wxAklNI06fGQwOhATuL0TJM4sn2lVVWhrbNJltt4w2bd 60H7oRFfgNn1+pX4
HkCLRP64W8+sf/PcmVkPPr9/Dz6HhRRXNFHCgVDw54RxKg19wpINlUieCLmd kVT1d3JtOGO6TyTb
JezP1DEEN1NC5ssJTTbEgcffDB5/O/ji8eOvNXVw/979e5+yNOHZkkInF9JP Nh1NH03dKAJVSIFJ
GMwg1o+aCwCjYLYI5t48BhEporL9kMiTQ05I26hT8pryI6q3ZGqo0iP6mCgS UWXIR3SRyYQa1iIM
Fl4Yv4A0Jmvw534MJ/BT6McePkz9uQeOgzDI7MIzwjMKD6wlYzd2QcRCcFS2 p5V+TeSQpEtc4/YZ
TbN8hdrhYsK4ojJfo87DbP9rRpekgiK4da+xDWnmxWfB2ITLT5lihLPfaBed RtMllVqJatORfrX3
jdRug+Yul3N6iVgTuW3u1r5so48pp4o2Uax/gx1Na2rBMz+Mz91pfWdId0Kq bisvSNEj6IuEyBKl
12bIUF6ONiRd09o2PhTiYkbkRc5Z5qHx5mOThc00LfP+7WqLmToYPPqgv/v3 bgsY5EcjLhTRxk2D
kTvFLegenS7GXks7eLbJUT6nCGMzJfJinUAeMIUySVom0Pw8h4HBoIKzHMzv GXQ+w/SgnTq9WDe3
uX+QJZMdcEexH8zxRNgUetC+XacRqW83eXXN5qGQsrG5kWz5L/IWbujGQdgO 4W93km0bChY51/7C
QrIUjwUkIl2xdSaJYiIt37ZcfeyzXRdPF1/B39DGe8tUTZMRF/uaNZiddT/X 3puJN1TeHgxfAuGg
TdiiBSFds72SoiZQjIeXzhMsTLtrzLcIEVrOKFp6A8hYXKY3o7jaVUzcpMn5 LYqcc8W24gaAoVBK
bO/iwzPKd3fJ54TKhMCS9vv9DnxX21T+rA7RhnLuvhYZ1kV3t+MsMbninGGd 57TXoCUxU5rWitfy
64zE7kqy9UZB3kQBW+yXj/DPVx1oNbZcmyf0jznezmlRLgy5LCeaEetF94Ez kpTgoTLJ3IO+6pdt
zHFMbdGbtcPzqu48MS1lb31eYwRyif8mIsn23U6nAJkEoSlJGuUElACuu0IB Xdrykx+fQTD80RvF
uWa+ohhXJ29Hpd71bEGv0rdK43ZQNPpIF3N4WGC/zMW+qr8xInIt9Bt5kawY QTrCYF2A5v3+TrxD
ENP1tQPtW+8bQLnT6qEwy7n3PLaG1y1CL9lpwHjergvzkGsmhJPKPIdPMePz 5akOSsXQQ1iEDeSQ
caiSlmkmDBM/LMvDDM8K+r7T6UFnOFv8HAVh3On18Alj3zc+RNbv7wrrHz6E 970251fOOWmLH0ou
R5prhU/8aeyFlXj9Bp7wQn4xncD7Zsz5aEOTC2zo2vpV/9D/egtKi+iOYOkW suaOdiXCyLrgsGoW
itRrZl2ZVrxF6D3zg/MohzwugAeg53fB1Cll3XRclg8A86J8KySOGxbysMAe 4BXl9RDxrv51FwuM
jPVGPikUEoo54VZlvbFvlbXDQ4GQjw63vj/2pl7s5Qh2oigQinnin5j33P05 j7g/L/O4nDYKAeV8
e5OSFsl7XtgZ4bBWYdgpoYQwqd5WYcpbhqkx5dNNVUaMRIph57bE27rUXlLy IxZ68Xk4hznjH3FS
Lm4tpsq0jMdGH3+S87+HaWtHaZYo1N6flH1tUjD1/wqvambwySnM/WmtlrZ1 OavgkQALNbxsgTme
wCw1pCtJ95su9OP+tZi2oh/B5vSDjpgir9kQtbqvmtBFQDXchw5oPaZlQW+P Zn534bZvENme4mVb
KUyvXjCN8pOyP1T9smgYZkNdwE1nCQNSIVQychGtGB/Tj6UTbdHU1/DrHFk3 RO8rzahyw11LukZr
5hl9IzotOX54h3OijbiciSXhFY2twEkNLaT7jCs4PYWtDJ7Wm3WFeL5bkoOb 20HalyzK97QdZETS
hNZUwOszW5U6errUFRExbvjPwmI60b8MSt7cqk7cEpbmXbktKIMBRAydBGpD YYU6ANtDohvIEjZU
Uv3Itron6S9wakMUXIkMdpkCfsaWVI/BuFmP6ViFaqiXG6wmK5ay/Qahfslw Nl1SredVJeqSqQ1U
UfjwOTLKpMTx53+dKuXI0Z4o6LHZfv2C7ueiW4wrZU6Am6iM8B9qV0Dt4crq lu8jfmODJ1YNbtNp
0QXbdeHRSWPibnjupmNb7rOrj+pQDX+X74TXuLluNKUX9vtoD1LGobrXNs2s 7NGzz0dMkbt9z7ze
surjuUP0LXr/8uRVrdAU2eSY2cDlPMaZFa//SnYLq9On9GouUMaR2R/e6L8A UEsDBBQAAgAIAJKJ
KTNGN7VY2gYAAJ4YAAAhAAAAUm9sWGFpbGVyL1NvdXJjZS9Gb3JtTWFudC5w cmcuYmFr1Vh7j9tE
EP+/Ur/DECSU0jTp8ZDA6EBO4vRMkziyfaVVVaGts0mW23jDZt3rQfuhEV+A 2fX6lfgeQItE/rhb
z6x/89yZWQ8+v38PPoeFFFc0UcKBUPDnhHEqDX3Ckg2VSJ4IuZ2RVPV3cm04 Y7pPJNsl7M/UMQQ3
U0LmywlNNsSBx98MHn87+OLx4681dXD/3v17n7I04dmSQicX0k82HU0fTd0o AlVIgUkYzCDWj5oL
AKNgtgjm3jwGESmisv2QyJNDTkjbqFPymvIjqrdkaqjSI/qYKBJRZchHdJHJ hBrWIgwWXhi/gDQm
a/Dnfgwn8FPoxx4+TP25B46DMMjswjPCMwoPrCVjN3ZBxEJwVLanlX5N5JCk S1zj9hlNs3yF2uFi
wriiMl+jzsNs/2tGl6SCIrh1r7ENaebFZ8HYhMtPmWKEs99oF51G0yWVWolq 05F+tfeN1G6D5i6X
c3qJWBO5be7WvmyjjymnijZRrH+DHU1rasEzP4zP3Wl9Z0h3QqpuKy9I0SPo i4TIEqXXZshQXo42
JF3T2jY+FOJiRuRFzlnmofHmY5OFzTQt8/7taouZOhg8+qC/+/duCxjkRyMu FNHGTYORO8Ut6B6d
LsZeSzt4tslRPqcIYzMl8mKdQB4whTJJWibQ/DyHgcGggrMczO8ZdD7D9KCd Or1YN7e5f5Alkx1w
R7EfzPFE2BR60L5dpxGpbzd5dc3moZCysbmRbPkv8hZu6MZB2A7hb3eSbRsK FjnX/sJCshSPBSQi
XbF1JoliIi3ftlx97LNdF08XX8Hf0MZ7y1RNkxEX+5o1mJ11P9fem4k3VN4e DF8C4aBN2KIFIV2z
vZKiJlCMh5fOEyxMu2vMtwgRWs4oWnoDyFhcpjejuNpVTNykyfktipxzxbbi BoChUEps7+LDM8p3
d8nnhMqEwJL2+/0OfFfbVP6sDtGGcu6+FhnWRXe34ywxueKcYZ3ntNegJTFT mtaK1/LrjMTuSrL1
RkHeRAFb7JeP8M9XHWg1tlybJ/SPOd7OaVEuDLksJ5oR60X3gTOSlOChMsnc g77ql23McUxt0Zu1
w/Oq7jwxLWVvfV5jBHKJ/yYiyfbdTqcAmQShKUka5QSUAK67QgFd2vKTH59B MPzRG8W5Zr6iGFcn
b0el3vVsQa/St0rjdlA0+kgXc3hYYL/Mxb6qvzEici30G3mRrBhBOsJgXYDm /f5OvEMQ0/W1A+1b
7xtAudPqoTDLufc8tobXLUIv2WnAeN6uC/OQayaEk8o8h08x4/PlqQ5KxdBD WIQN5JBxqJKWaSYM
Ez8sy8MMzwr6vtPpQWc4W/wcBWHc6fXwCWPfNz5E1u/vCusfPoT3vTbnV845 aYsfSi5HmmuFT/xp
7IWVeP0GnvBCfjGdwPtmzPloQ5MLbOja+lX/0P96C0qL6I5g6Ray5o52JcLI uuCwahaK1GtmXZlW
vEXoPfOD8yiHPC6AB6Dnd8HUKWXddFyWDwDzonwrJI4bFvKwwB7gFeX1EPGu /nUXC4yM9UY+KRQS
ijnhVmW9sW+VtcNDgZCPDre+P/amXuzlCHaiKBCKeeKfmPfc/TmPuD8v87ic NgoB5Xx7k5IWyXte
2BnhsFZh2CmhhDCp3lZhyluGqTHl001VRoxEimHntsTbutReUvIjFnrxeTiH OeMfcVIubi2myrSM
x0Yff5Lzv4dpa0dplijU3p+UfW1SMPX/Cq9qZvDJKcz9aa2WtnU5q+CRAAs1 vGyBOZ7ALDWkK0n3
my704/61mLaiH8Hm9IOOmCKv2RC1uq+a0EVANdyHDmg9pmVBb49mfnfhtm8Q 2Z7iZVspTK9eMI3y
k7I/VP2yaBhmQ13ATWcJA1IhVDJyEa0YH9OPpRNt0dTX8OscWTdE7yvNqHLD XUu6RmvmGX0jOi05
fniHc6KNuJyJJeEVja3ASQ0tpPuMKzg9ha0MntabdYV4vluSg5vbQdqXLMr3 tB1kRNKE1lTA6zNb
lTp6utQVETFu+M/CYjrRvwxK3tyqTtwSluZduS0ogwFEDJ0EakNhhToA20Oi G8gSNlRS/ci2uifp
L3BqQxRciQx2mQJ+xpZUj8G4WY/pWIVqqJcbrCYrlrL9BqF+yXA2XVKt51Ul 6pKpDVRR+PA5Msqk
xPHnf50q5cjRnijosdl+/YLu56JbjCtlToCbqIzwH2pXQO3hyuqW7yN+Y4Mn Vg1u02nRBdt14dFJ
Y+JueO6mY1vus6uP6lANf5fvhNe4uW40pRf2+2gPUsahutc2zazs0bPPR0yR u33PvN6y6uO5Q/Qt
ev/y5FWt0BTZ5JjZwOU8xpkVr/9Kdgur06f0ai5QxpHZH97ovwBQSwMEFAAC AAgAFI4wMxNPMW1x
AQAAkwMAAB0AAABSb2xYYWlsZXIvU291cmNlL0Zvcm1NYW50LnhmbY2SyW7C MBCG70i8wyinIOWQ
BShE6qFZEFQkkXBazgYMWEqdKjgq6tPXcZwFpJb65Nl+fzOeKEyXSQB+QTAn i7z40Efgr18QAl5Z
EWZ8OBgOAACVn6Rw+4nS7bqIcC8v2eGig/NkGWBPbQMmpmPA2BpDk7VPyZWD +wxao6upSL7ImYyk
1UUfqTd00CIECLMLIFLQo2bAzABTqJpmq8r8jBLGt/TAz5XEeD65jSwJPZ2l ujMzVShhK0Y5xRn9
Ji1R52q4FMZI9S9AA8yx6FayBrujMnvEiGRHuC/Iy2Iv30ljfu08v5VtV+kS Eu819NNKAnHMy4uH
C0tKtKYoj8lXVwvy9D9DjMqZiJGJmYhPsXtJ3V906lob7foWVhgHXTsb0nLI 6z9bWOMdyeoyeX2M
blUbNBX8YonaHbolr0UfUt+hhAfKPc5qGGU8xpkrnLkYqW32cliEr2vCTvXy zVr/O87KerWaB/8G
3YTp2yaWBMPBD1BLAwQUAAIACACSiSkzE08xbXEBAACTAwAAIQAAAFJvbFhh aWxlci9Tb3VyY2Uv
Rm9ybU1hbnQueGZtLmJha42SyW7CMBCG70i8wyinIOWQBShE6qFZEFQkkXBa zgYMWEqdKjgq6tPX
cZwFpJb65Nl+fzOeKEyXSQB+QTAni7z40Efgr18QAl5ZEWZ8OBgOAACVn6Rw +4nS7bqIcC8v2eGi
g/NkGWBPbQMmpmPA2BpDk7VPyZWD+wxao6upSL7ImYyk1UUfqTd00CIECLML IFLQo2bAzABTqJpm
q8r8jBLGt/TAz5XEeD65jSwJPZ2lujMzVShhK0Y5xRn9Ji1R52q4FMZI9S9A A8yx6FayBrujMnvE
iGRHuC/Iy2Iv30ljfu08v5VtV+kSEu819NNKAnHMy4uHC0tKtKYoj8lXVwvy 9D9DjMqZiJGJmYhP
sXtJ3V906lob7foWVhgHXTsb0nLI6z9bWOMdyeoyeX2MblUbNBX8YonaHbol r0UfUt+hhAfKPc5q
GGU8xpkrnLkYqW32cliEr2vCTvXyzVr/O87KerWaB/8G3YTp2yaWBMPBD1BL AwQUAAIACADlmjUz
IMMmhmAGAAAUGgAAHAAAAFJvbFhhaWxlci9Tb3VyY2UvRm9ybVJvbC5wcmfF Wdtu2zYYvg+QdyA8
oJIbJ07S06phAxTZTrzZjufD2m4ZBlqmY7Y06VJUmqzty+zN9gC92l2v9pOS LNqxe5gcTDeSefg/
/kd+pKv3d3fQfdSV4oaESnioJ9hzTBmRpr1BwymR0NwQcgZdB3N5aTpqJAol nYf0H+6ZBj9WQiaf
DRJOsYcOn1QPn1aPDw8f6dbq7s7uzjeUhyweE1RKMA7CaclqdV6KCNAYNDt6 eNDy+300SLFRo3fe
Tn6BQHhqWGHEO/GsPptLEmFoopwqdGR147Qv0i1J91snG3/kvLeHBnhGuUhG pkOT/uC83T3v1DsD
JFp4RNjRaqsvJb45keJNRG71mRnHq619hVUcnWB5a3ze08XcYJkR7frg7LyG AkmwItoGbtlu1y1N
WDLFjP5JXBBD+JhIVF6ebi80ECye8SOte23EAkbDV4t5FcQbDF9G8O6K6Hny epFIq3dqxjHLDs0C
5HoyK+meanV/q4+WeTdSP2dBtByGxpwtEWKGQkWuFULe98hxrGYeiJir1Oyd IfI80SY8TkItaWsO
6m1UutfklxCIEHIYDfCI4ahkD8q+4alWF7Oce0cH++DIcEqvBALTQzQzgsci ctCtxw8GzfMOShbf
xly5Za9D3rioT9gElb3+VLxpizFmbhk9O6t3EHuRZIyFXQy5HV02+US4zplg 2PkilONllF48kmsh
iqE8WEZRxv7wxVCTRMtwBVAeAsrAEj2bxyRSAhzOMOoRrrCzBZRHgKLnyBkO 6V/cQGUlfcVwBVAe
Z7poe51gHm7ySiGUJzZKjcyxVHgGhloDVgDlWxvlTEjwD+QyvG5rVADlKaCA H0LYbCQyPiH7UELW
Wa0Aim+8byqJ1qYtruiMGoshSPkYM6ILjMEtgHICKCcC9o+xQZEmK9NIW9Gq AEoAKAElUhINMuSo
S+QHAZCEr+IUQKktoVgQmmbUyERv/lAXnGIodV1hRpJKjUBFYjcYvQ8UB91g FBJjzYIoDa2LgEIy
orBxYc3INE7M0TzVS3vLmK0Ayimg9Aijr2M6hlgG6aYsa5uBbAiwVJmoUIyd 2VnZ+TgjOsS6WEnB
dRTbefOfUWDXtVF+weCaKAMrbS8rfzQWmwupCPJfxhG8NlX/r0Wx2EDpHvh+ Qi9jiWVpIWmQNG7e
7C1h/XrX7/mD8956Y/WBDsnMLKl4zwsYMPVcDFBCm7BY01s0Ujos0E1mjI0c 53/hGeASCdVSwupC
OjIFTRcBsgJVkGc0zYEjzcwuw5yydWSjIM/QxQscPyY8SsvK2qcgz6jR6Cei IJqB6RoSsHVm9tjK
nE+DFOUZNXD6TKABkVC+RAUFMbANeP8cU9g+UT8mTBuyIM/IdNFMA9JBSLpW n4I8Y6ig/o/xeDV0
t4fiL+vSSjaDkApuCAZscpGu0wX3M80zGhDFSS5C2hB5hbceY8GyLiblkSbQ MYOdYcmGX4WyuRLq
0xfhKTP7whrYxyHWpSmaY5YaBI7rt+tgwSIISyMvTaUdRrHZD+/ktNUjFIrT 9YKipBV+m9roMujH
YwpJ9gGnR6K/FQ3XBVDBOnhKONGMR5r4Sfc2Sy30kZs8L1gILcqdU7rtaqMr YYDlJYSafRKCLXtM
4aXkgUYf0+hV4VIYTMnr2JgpWr/RFtfmacKHU06Ubr2g1qcOXV0J9Z5Ir0/U cO6WgWB9NrkX31ln
9f5p6+SPZ0K+MhdCFxGUejLD0YW+1OREXRAtytnrK/krbDau51lXl5UH5T3n Auxx4WTyhhFB7kLk
HspuLSMwA7A61J9iScbZaM/LbzoBPr24TDoW95pLHbXRqVBinpO42qh+Bdzw 7bt3qDlxM2n7P/gh
nIVwxfX9Ws3NxVV8xhRwJ2tk0qM1ccqV7yz35AZPZWRzKvnkjpiNJCmXKx3K yui9tSxDNn1JcL5W
fZ28XvHMTEdOJfs8zj8f5J8PHctGSze4Hja/zKUwiLQQNk3okQn0T110MDhI Lkl3d3r1wbDXQaDN
HV9cFr3TXXe/qY8YaepBvLqr+nLzy1flvaDXauiQdrWw65XfN+XUYc3JLZNl ItAP6DCPFDuFrMj9
bdPs3/OpJPsTYNllXzLVn8/BUlgBk/HCAVWMaCH9Zh8qio/2HOTspdLzOVlt 0CPB63mHPmyBFH0z
/FkhZmwWPNahLLd+ZpC0s87Hdx9Z/wJQSwMEFAACAAgA15o1MyDDJoZgBgAA FBoAACAAAABSb2xY
YWlsZXIvU291cmNlL0Zvcm1Sb2wucHJnLmJha8VZ227bNhi+D5B3IDygkhsn TtLTqmEDFNlOvNmO
58PabhkGWqZjtjTpUlSarO3L7M32AL3aXa/2k5Is2rF7mBxMN5J5+D/+R36k q/d3d9B91JXihoRK
eKgn2HNMGZGmvUHDKZHQ3BByBl0Hc3lpOmokCiWdh/Qf7pkGP1ZCJp8NEk6x hw6fVA+fVo8PDx/p
1uruzu7ON5SHLB4TVEowDsJpyWp1XooI0Bg0O3p40PL7fTRIsVGjd95OfoFA eGpYYcQ78aw+m0sS
YWiinCp0ZHXjtC/SLUn3Wycbf+S8t4cGeEa5SEamQ5P+4LzdPe/UOwMkWnhE 2NFqqy8lvjmR4k1E
bvWZGcerrX2FVRydYHlrfN7TxdxgmRHt+uDsvIYCSbAi2gZu2W7XLU1YMsWM /klcEEP4mEhUXp5u
LzQQLJ7xI617bcQCRsNXi3kVxBsMX0bw7oroefJ6kUird2rGMcsOzQLkejIr 6Z5qdX+rj5Z5N1I/
Z0G0HIbGnC0RYoZCRa4VQt73yHGsZh6ImKvU7J0h8jzRJjxOQi1paw7qbVS6 1+SXEIgQchgN8Ijh
qGQPyr7hqVYXs5x7Rwf74MhwSq8EAtNDNDOCxyJy0K3HDwbN8w5KFt/GXLll r0PeuKhP2ASVvf5U
vGmLMWZuGT07q3cQe5FkjIVdDLkdXTb5RLjOmWDY+SKU42WUXjySayGKoTxY RlHG/vDFUJNEy3AF
UB4CysASPZvHJFICHM4w6hGusLMFlEeAoufIGQ7pX9xAZSV9xXAFUB5numh7 nWAebvJKIZQnNkqN
zLFUeAaGWgNWAOVbG+VMSPAP5DK8bmtUAOUpoIAfQthsJDI+IftQQtZZrQCK b7xvKonWpi2u6Iwa
iyFI+RgzoguMwS2AcgIoJwL2j7FBkSYr00hb0aoASgAoASVSEg0y5KhL5AcB kISv4hRAqS2hWBCa
ZtTIRG/+UBecYih1XWFGkkqNQEViNxi9DxQH3WAUEmPNgigNrYuAQjKisHFh zcg0TszRPNVLe8uY
rQDKKaD0CKOvYzqGWAbppixrm4FsCLBUmahQjJ3ZWdn5OCM6xLpYScF1FNt5 859RYNe1UX7B4Joo
AyttLyt/NBabC6kI8l/GEbw2Vf+vRbHYQOke+H5CL2OJZWkhaZA0bt7sLWH9 etfv+YPz3npj9YEO
ycwsqXjPCxgw9VwMUEKbsFjTWzRSOizQTWaMjRznf+EZ4BIJ1VLC6kI6MgVN FwGyAlWQZzTNgSPN
zC7DnLJ1ZKMgz9DFCxw/JjxKy8rapyDPqNHoJ6IgmoHpGhKwdWb22MqcT4MU 5Rk1cPpMoAGRUL5E
BQUxsA14/xxT2D5RPyZMG7Igz8h00UwD0kFIulafgjxjqKD+j/F4NXS3h+Iv 69JKNoOQCm4IBmxy
ka7TBfczzTMaEMVJLkLaEHmFtx5jwbIuJuWRJtAxg51hyYZfhbK5EurTF+Ep M/vCGtjHIdalKZpj
lhoEjuu362DBIghLIy9NpR1GsdkP7+S01SMUitP1gqKkFX6b2ugy6MdjCkn2 AadHor8VDdcFUME6
eEo40YxHmvhJ9zZLLfSRmzwvWAgtyp1Tuu1qoythgOUlhJp9EoIte0zhpeSB Rh/T6FXhUhhMyevY
mClav9EW1+ZpwodTTpRuvaDWpw5dXQn1nkivT9Rw7paBYH02uRffWWf1/mnr 5I9nQr4yF0IXEZR6
MsPRhb7U5ERdEC3K2esr+StsNq7nWVeXlQflPecC7HHhZPKGEUHuQuQeym4t IzADsDrUn2JJxtlo
z8tvOgE+vbhMOhb3mksdtdGpUGKek7jaqH4F3PDtu3eoOXEzafs/+CGchXDF 9f1azc3FVXzGFHAn
a2TSozVxypXvLPfkBk9lZHMq+eSOmI0kKZcrHcrK6L21LEM2fUlwvlZ9nbxe 8cxMR04l+zzOPx/k
nw8dy0ZLN7geNr/MpTCItBA2TeiRCfRPXXQwOEguSXd3evXBsNdBoM0dX1wW vdNdd7+pjxhp6kG8
uqv6cvPLV+W9oNdq6JB2tbDrld835dRhzcktk2Ui0A/oMI8UO4WsyP1t0+zf 86kk+xNg2WVfMtWf
z8FSWAGT8cIBVYxoIf1mHyqKj/Yc5Oyl0vM5WW3QI8HreYc+bIEUfTP8WSFm bBY81qEst35mkLSz
zsd3H1n/AlBLAwQUAAIACADlmjUz5BSX5ZkCAABjBgAAHAAAAFJvbFhhaWxl ci9Tb3VyY2UvRm9y
bVJvbC54Zm2VVN9v2jAQfq/U/+GWJ5AoghCgRZo0fqSDigIimfpskit1a2zm OGLsr5/thJBM7cpe
Iue+852/u+/u0Q+nywmMJRKF90LuanUYz4dBAKH5Wwt2fXV9BQBBukc5KPtZ 82AQoBqJlMdJDTo9
twGu22nAbbffgK7bh5NXFOIvBYOv4DyIBGGBCm5AR4daQDlgEoktSsDdXmJC 6k5+S9wLbm+F5lCr
5/lr4DwGEBCeQICSPjs6YQNaDfBarSIjHwkZowzUkaEJsUmC2eL73D/BY0aR qycaqxcD33p3VWSK
dPtik3t3nRxiYw2gxNiYm2EzNy/5jFNFCaO/bSrHFOhsOrHJH1/PK/o0C6ew HD3449BQnZMNsrYl
a4+a7QIPNc2QPeekTJRSudt91xLvttsN6Lglp3O1fV3ZVwLIYCXFESMlYE8k gZ8pwj7FmICSZENe
iXSK22xFpOZ5qn3zvllAHzckpDtMdF8Puqs7wnVL3JbtSb/oiQnAh4xu+Q6z KIqM/UXorwv4XCL9
5y8m75dqKCU5jqQ4JJgVrGS4oGye14Ceflmvqz9as5Xn8ehFyMREJW/D+fyE lF8QjuRhLFi646dk
f7+pCGibMUWihZi1IxN44lQcQiGYonvrMRWMQCKOkHJQytqrzisaqVRmOvv2 pYLxQs1u160AfkzV
HPk2QzutMrjkE6LIZMO07qM3G7dMJmPaLvtUklZaVunaO2VbYxScpf3PspXI eBfnu1BAdsDc/5o1
V4vGc2+NavSp7ZXcLssZKKLSZERkJtni9/PcZrEZveoVpfXaeXfOH0WcMgEx mqWqB1EfVmRrDAwS
mijcEaB6d20liQXYHXxjtvB56odxPNNuepQ/jqDv2cFufcJ+7Yc/1gtL6frq D1BLAwQUAAIACADX
mjUzwFzokrUCAACNBgAAIAAAAFJvbFhhaWxlci9Tb3VyY2UvRm9ybVJvbC54 Zm0uYmFrlVTbbuIw
EH2v1H+Y5QkkiiCE0iKttFxCoaKASFZ9rAyZpm4dm3UcUfbr13EuJKt2y75E jmc8Z2bOmXlwvNlq
AmOJROFUyLDegPFi6LrgJX8bwS4vLi8AwI33KAdlP3M9GLioRiLmflSH7rXV BMvqNuGm129Cz+pD
7rXz8F3B4DvU7kWEsEQFV6CjQ92lHDDaiQAlYLiXGJFGLXslpoKbV15yqDcy /DrUHlxwCY/ARUmf
axqwCe0m2O12gchHQvooXXVkmITYRu58ebdw8tCjt4D7JqOpUOJpSkLKKHm6 I+FWkNbrPsiT4GNG
katH6quXxP/Gvq1aZkiDF5OmfdvNTGysDSjRILS8Vna94nNOFSWM/sYMW4an qxwyK7OR9f5x7s1g
Nbp3xl6S+YJskXVMW8xR92WJh7ruBXvOyk+ilIjp9C3Tol6n04SuVXI68eJo Dl4JIIO1FEfcKQF7
Ign8ihH2MfoElCRb8kpkrXjN1kTqOnOWWtNWYfqcOo+GGGkFHDT/IeGaPKtt 2OsX7CUB+JDRgIeY
RlFk7Cw9Z1OYTy3Sf85y8nGrhlKS40iKQ4Rpw0oXZ7TNtptwrTO77umPVncl Pb57ETJKopK34WKR
W8oZeCN5GAsWhzwH+zunIqAhY4ZESzalIx2FqFZx8IRgiu6Nx0wwApE4QsxB KXNfdV7TnYplqrMf
3yo2XqjZ6lkVg+NTtUAepNZuu2xc8QlRZLJlWve7NxO3XExaaafsUwGtUFZh 7YO2bXDnnqT9z7aV
irHPxjtTQGbArP+aNUuLxrZuEtXoU8cuuZ2H6Sqi4mhEZCrZ4vdr7GQFJnrV K0rrtfvhnD8IP2YC
fEzWrx5EfViTILlgENFIYUiA6t0VSOILMNv6KtnXp6kf+v5cu+lR/jyCfmcG u/1F9RvH+7lZmpIu
L/4AUEsDBBQAAgAIANa+JzPOM50+cQAAAIQAAAAcAAAAUm9sWGFpbGVyL1Nv dXJjZS9Nb2R1bGUx
LnByZ9PX4uVS0FIIKMqvTE0uybdSCMrPiUjMzEktAou7ZSZnpBYBhX3zU0pz Ug31CorSwRIuqcXJ
RZkFyZmf86zAAo6lJflFEKZbanJGopWCgbm+gaW+kYGBKUhUn5eLl0s5My85 pzQlVUEJYodecoYS
LxcAUEsDBBQAAgAIABK3NDOfS9AzBQEAAK0BAAAeAAAAUm9sWGFpbGVyL1Nv dXJjZS9Sb2xYYWls
ZXIucHJnZZDNSsQwFIX3hb7DpS6mnUVbBBEDLka0bpxhqAOjK4npxUbTpNwm DD73vIBp6kgHs8ji
O+ee+xNHxTKOYAlbMt8orGFQG/XCpUIKvJKiRZrjvKePIN3jIEj2Qh41g/Wx ccpAg4DaEm84cFD+
65UUfLSEkpWzhtgUjKLlDMrrorwpLsvyaqRFHMXRhdRCOZ+U/DYUbTKji08z +ImUx4vR7icX2DhC
WHOpU71x3UPXEw48G2Xwb+ve/Rjw+HT3tjf0dQZx8p4x9cpDxFg/CScC7Bby Kj/hVR/2s9JoJnbS
qmBI/m6VTLZdZajzMM3YBg/pvAwy9tyaQ5r9D6ydTsMKNVpH/oA/UEsDBBQA AgAIAPq2NDMG/pf0
FAEAAN0BAAAiAAAAUm9sWGFpbGVyL1NvdXJjZS9Sb2xYYWlsZXIucHJnLmJh a2WQwUrEMBCG74W+
w1AP2+6hLYKIAQ8rbr24y1IXVk8S08FG06RMGxefe1/ANGtrwRxy+P6Z/5+Z MMiWYQBL2JH5RtEb
BqVRz1wqJM8LKWqkOU5bevfSPXaCZCvkSTPYnCqrDFQIqHviFQcOyn2tkoIP Jb5lZXtD7GyMouYM
8ussv8ku8/xqoFkYhMGF1EJZ5xT9Boo6mtHFh+ncRMrhRRg02HxxAvXC101L OIGHx7vXg6HPCeAg
dzwM3KYCK0sIGy51rLe2WZ+1ZEgH93b2zY0985jByWfG/tJHh5EAu4W0SEe8 av09emk0E3vZK18Q
TbeNzmX7wlDjYJywLR7jeRsk7Kk2xzj5b1haHfsVSuwtuYP/AFBLAQIUABQA AgAAABObNTMAAAAA
AAAAAAAAAAAKAAAAAAAAAAAAMAAAAAAAAABSb2xYYWlsZXIvUEsBAhQAFAAC AAgA174oM+KHaH58
AAAAjwAAABEAAAAAAAAAAAAgAAAAKAAAAFJvbFhhaWxlci9idHMueG1sUEsB AhQAFAACAAgAi7Y0
MxnnTeL7AQAA2wMAABMAAAAAAAAAAAAgAAAA0wAAAFJvbFhhaWxlci9FcnJv ci5sb2dQSwECFAAU
AAIAAACLmjUzAAAAAAAAAAAAAAAAEgAAAAAAAAAAADAAAAD/AgAAUm9sWGFp bGVyL0luY2x1ZGUv
UEsBAhQAFAACAAgAi5o1M/ZIKlrUAAAAGQEAABwAAAAAAAAAAAAgAAAALwMA AFJvbFhhaWxlci9J
bmNsdWRlL0pvc2VSb2wuY2hQSwECFAAUAAIACAAStzQzjBtijtMAAAAXAQAA IAAAAAAAAAAAACAA
AAA9BAAAUm9sWGFpbGVyL0luY2x1ZGUvSm9zZVJvbC5jaC5iYWtQSwECFAAU AAIAAADmmjUzAAAA
AAAAAAAAAAAADgAAAAAAAAAAADAAAABOBQAAUm9sWGFpbGVyL09iai9QSwEC FAAUAAIACADmmjUz
Lc1aehANAAAmHwAAGQAAAAAAAAAAACAAAAB6BQAAUm9sWGFpbGVyL09iai9G b3JtUm9sLm9ialBL
AQIUABQAAgAIABO3NDM2oiKOCAIAADcDAAAbAAAAAAAAAAAAIAAAAMESAABS b2xYYWlsZXIvT2Jq
L1JvbFhhaWxlci5vYmpQSwECFAAUAAIACAD7mTIzhfL9LIsAAACoAQAAGwAA AAAAAAAAACAAAAAC
FQAAUm9sWGFpbGVyL09iai9Sb2xYYWlsZXIucmVzUEsBAhQAFAACAAAANFop MwAAAAAAAAAAAAAA
ABMAAAAAAAAAAAAwAAAAxhUAAFJvbFhhaWxlci9SZXNvdXJjZS9QSwECFAAU AAIACAA0WikzuLdq
fvMAAACFAgAAHwAAAAAAAAAAACAAAAD3FQAAUm9sWGFpbGVyL1Jlc291cmNl L1JvbFhhaWxlci5y
Y1BLAQIUABQAAgAIAD2/KDM/L7qS8gAAAIcCAAAjAAAAAAAAAAAAIAAAACcX AABSb2xYYWlsZXIv
UmVzb3VyY2UvUm9sWGFpbGVyLnJjLmJha1BLAQIUABQAAgAIADe6NDOcz4E0 cwAAAKAAAAAXAAAA
AAAAAAAAIAAAAFoYAABSb2xYYWlsZXIvUm9sWGFpbGVyLnhkdFBLAQIUABQA AgAIAOa2NDMAOeT9
AwIAADIDAAAXAAAAAAAAAAAAIAAAAAIZAABSb2xYYWlsZXIvUm9sWGFpbGVy LnhwalBLAQIUABQA
AgAAAOWaNTMAAAAAAAAAAAAAAAARAAAAAAAAAAAAMAAAADobAABSb2xYYWls ZXIvU291cmNlL1BL
AQIUABQAAgAAAEO8KDMAAAAAAAAAAAAAAAAZAAAAAAAAAAAAMAAAAGkbAABS b2xYYWlsZXIvU291
cmNlL2JhY2t1cHMvUEsBAhQAFAACAAgAU7ooMyLxGdHhAAAAyAEAACcAAAAA AAAAAAAgAAAAoBsA
AFJvbFhhaWxlci9Tb3VyY2UvYmFja3Vwcy9Gb3JtTWFudC5wcmd+MFBLAQIU ABQAAgAIAFhQKDPN
aINEwwQAABsVAAAmAAAAAAAAAAAAIAAAAMYcAABSb2xYYWlsZXIvU291cmNl L2JhY2t1cHMvRm9y
bVJvbC5wcmd+MFBLAQIUABQAAgAIAEsFKDMd7Ce/OgQAAMgRAAAmAAAAAAAA AAAAIAAAAM0hAABS
b2xYYWlsZXIvU291cmNlL2JhY2t1cHMvRm9ybVJvbC5wcmd+MVBLAQIUABQA AgAIABOOMDNGN7VY
2gYAAJ4YAAAdAAAAAAAAAAAAIAAAAEsmAABSb2xYYWlsZXIvU291cmNlL0Zv cm1NYW50LnByZ1BL
AQIUABQAAgAIAJKJKTNGN7VY2gYAAJ4YAAAhAAAAAAAAAAAAIAAAAGAtAABS b2xYYWlsZXIvU291
cmNlL0Zvcm1NYW50LnByZy5iYWtQSwECFAAUAAIACAAUjjAzE08xbXEBAACT AwAAHQAAAAAAAAAA
ACAAAAB5NAAAUm9sWGFpbGVyL1NvdXJjZS9Gb3JtTWFudC54Zm1QSwECFAAU AAIACACSiSkzE08x
bXEBAACTAwAAIQAAAAAAAAAAACAAAAAlNgAAUm9sWGFpbGVyL1NvdXJjZS9G b3JtTWFudC54Zm0u
YmFrUEsBAhQAFAACAAgA5Zo1MyDDJoZgBgAAFBoAABwAAAAAAAAAAAAgAAAA 1TcAAFJvbFhhaWxl
ci9Tb3VyY2UvRm9ybVJvbC5wcmdQSwECFAAUAAIACADXmjUzIMMmhmAGAAAU GgAAIAAAAAAAAAAA
ACAAAABvPgAAUm9sWGFpbGVyL1NvdXJjZS9Gb3JtUm9sLnByZy5iYWtQSwEC FAAUAAIACADlmjUz
5BSX5ZkCAABjBgAAHAAAAAAAAAAAACAAAAANRQAAUm9sWGFpbGVyL1NvdXJj ZS9Gb3JtUm9sLnhm
bVBLAQIUABQAAgAIANeaNTPAXOiStQIAAI0GAAAgAAAAAAAAAAAAIAAAAOBH AABSb2xYYWlsZXIv
U291cmNlL0Zvcm1Sb2wueGZtLmJha1BLAQIUABQAAgAIANa+JzPOM50+cQAA AIQAAAAcAAAAAAAA
AAAAIAAAANNKAABSb2xYYWlsZXIvU291cmNlL01vZHVsZTEucHJnUEsBAhQA FAACAAgAErc0M59L
0DMFAQAArQEAAB4AAAAAAAAAAAAgAAAAfksAAFJvbFhhaWxlci9Tb3VyY2Uv Um9sWGFpbGVyLnBy
Z1BLAQIUABQAAgAIAPq2NDMG/pf0FAEAAN0BAAAiAAAAAAAAAAAAIAAAAL9M AABSb2xYYWlsZXIv
U291cmNlL1JvbFhhaWxlci5wcmcuYmFrUEsFBgAAAAAfAB8A2wgAABNOAAAA AA==
------=_NextPart_000_0236_01C5BEE2.7DF6F4B0--

Attached files RolXailer.zip (21.8 KB)Â

inicializacion de TArrayBrowse

Publicado: Jue Sep 22, 2005 8:12 am
por Xevi
Wilson,
por lo visto me he explicado demasiado...
Cambia la lí­nea 105 del FormRol.prg, por...
::aEmpresas := {{'Empresa1'},{'Empresa2'},{'Empresa3'},{'Empresa4'}}
Y verás como te funciona!!!
SOLO ESO!!! que te lo expliqué en mi mensaje anterior, reléelo, por si no lo has entendido.
Un Saludo,
Xevi.
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje news:[email=4331fa6e@ozsrvnegro.ozlan.local...]4331fa6e@ozsrvnegro.ozlan.local...[/email]
Xevi, gracias x aclararme, les envio mi proyecto
favor si me pueden decir porque me aparecen solamente el promer digito
de la empresa
saludos
y Gracias x todo
--
Wilson 'W' Gamboa A
SoftWare Writer
swriter@uio.satnet.net
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=4331a703@ozsrvnegro.ozlan.local...]4331a703@ozsrvnegro.ozlan.local...[/email]
Wilson,
El array se construye a partir de elementos, cada fila un elemento, y cada columna un elemento del mismo elemento de la Fila.
Así­ pues en tu caso...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := { {'Empresa1'}, {'Empresa2'}, {'Empresa3'} }
RETURN Nil
Si tuvieras dos columnas en el ArrayBrowse...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := { {'Empresa1', "Fila1Columna2"}, {'Empresa2', "Fila2Columna2"}, {'Empresa3', "Fila3Columna2"} }
RETURN Nil
Un Saludo,
Xevi.
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje news:[email=43318b53@ozsrvnegro.ozlan.local...]43318b53@ozsrvnegro.ozlan.local...[/email]
>
> Jose Luis, gracias
> ahora tengo el problema que me hace display solo de la primera letra de cada
> fila
> (tengo una sola columna) que podria ser ??
>
> Gracias, estoy intentando pasar uno de mis modulos a Xailer (aun trabajo en
> caracteres con xharbour con o sin ADS)
>
> Saludos
>
>
> --
> Wilson 'W' Gamboa A
> SoftWare Writer
> swriter@uio.satnet.net
>
> "José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
> news:432fba63$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Wilson,
>>
>>
>>> me da un error lo que tengo es
>>> ::oArrayBrowse1:aCols := {'Empresas'}
>>
>> aCols es una propiedad de todos los browses que recibe como parámetro un a
>> matriz de _objetos_ columna.
>>
>>
>>> ::oArrayBrowse1:aArrayData := ::aEmpresas
>>
>> Eso está bien... Has de corresponder el número de columnas como mí­nimo al
>> de dimensiones de la matriz (si hay más, no pasa nada, si hay menos....
>> mal muy mal)
>>
>>> ::oArrayBrowse1:Refresh( .T. )
>>> Y perdon por la ignorancia, pero como defino las columnas del
>>> ArrayBrowse??
>>
>> De dos maneras. La mas sencilla: desde el ide, con el ratón haces click
>> en le browse, luego botón derecho -> añadir columna. Y ya seleccionas la
>> columna y en el inspector de propiedades cambias el header y cualquier
>> otra propiedad que te intereses.
>>
>> Desde programa. En el evento onCreate del Browse haces algo así­:
>>
>> METHOD ArrayBrowse1Create( oSender ) CLASS TForm1
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader := "Pepe"
>> :nWidth := 57
>> :Create()
>> END
>>
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader := "Juan"
>> :nWidth := 57
>> :Create()
>> END
>>
>> ..... así­ para todas las columnas
>>
>> RETURN Nil
>>
>>
>> OSender es el objeto oArrayBrowse 1
>>
>> Espero que te ayude con tu programa.
>> Saludos,
>> José Luis Capel
>
>
>
--

inicializacion de TArrayBrowse

Publicado: Jue Sep 22, 2005 8:13 am
por Xevi
Perdón la lí­nea es la 104
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=43324b26@ozsrvnegro.ozlan.local...]43324b26@ozsrvnegro.ozlan.local...[/email]
Wilson,
por lo visto me he explicado demasiado...
Cambia la lí­nea 105 del FormRol.prg, por...
::aEmpresas := {{'Empresa1'},{'Empresa2'},{'Empresa3'},{'Empresa4'}}
Y verás como te funciona!!!
SOLO ESO!!! que te lo expliqué en mi mensaje anterior, reléelo, por si no lo has entendido.
Un Saludo,
Xevi.
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje news:[email=4331fa6e@ozsrvnegro.ozlan.local...]4331fa6e@ozsrvnegro.ozlan.local...[/email]
Xevi, gracias x aclararme, les envio mi proyecto
favor si me pueden decir porque me aparecen solamente el promer digito
de la empresa
saludos
y Gracias x todo
--
Wilson 'W' Gamboa A
SoftWare Writer
swriter@uio.satnet.net
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=4331a703@ozsrvnegro.ozlan.local...]4331a703@ozsrvnegro.ozlan.local...[/email]
Wilson,
El array se construye a partir de elementos, cada fila un elemento, y cada columna un elemento del mismo elemento de la Fila.
Así­ pues en tu caso...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := { {'Empresa1'}, {'Empresa2'}, {'Empresa3'} }
RETURN Nil
Si tuvieras dos columnas en el ArrayBrowse...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := { {'Empresa1', "Fila1Columna2"}, {'Empresa2', "Fila2Columna2"}, {'Empresa3', "Fila3Columna2"} }
RETURN Nil
Un Saludo,
Xevi.
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje news:[email=43318b53@ozsrvnegro.ozlan.local...]43318b53@ozsrvnegro.ozlan.local...[/email]
>
> Jose Luis, gracias
> ahora tengo el problema que me hace display solo de la primera letra de cada
> fila
> (tengo una sola columna) que podria ser ??
>
> Gracias, estoy intentando pasar uno de mis modulos a Xailer (aun trabajo en
> caracteres con xharbour con o sin ADS)
>
> Saludos
>
>
> --
> Wilson 'W' Gamboa A
> SoftWare Writer
> swriter@uio.satnet.net
>
> "José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
> news:432fba63$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Wilson,
>>
>>
>>> me da un error lo que tengo es
>>> ::oArrayBrowse1:aCols := {'Empresas'}
>>
>> aCols es una propiedad de todos los browses que recibe como parámetro un a
>> matriz de _objetos_ columna.
>>
>>
>>> ::oArrayBrowse1:aArrayData := ::aEmpresas
>>
>> Eso está bien... Has de corresponder el número de columnas como mí­nimo al
>> de dimensiones de la matriz (si hay más, no pasa nada, si hay menos....
>> mal muy mal)
>>
>>> ::oArrayBrowse1:Refresh( .T. )
>>> Y perdon por la ignorancia, pero como defino las columnas del
>>> ArrayBrowse??
>>
>> De dos maneras. La mas sencilla: desde el ide, con el ratón haces click
>> en le browse, luego botón derecho -> añadir columna. Y ya seleccionas la
>> columna y en el inspector de propiedades cambias el header y cualquier
>> otra propiedad que te intereses.
>>
>> Desde programa. En el evento onCreate del Browse haces algo así­:
>>
>> METHOD ArrayBrowse1Create( oSender ) CLASS TForm1
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader := "Pepe"
>> :nWidth := 57
>> :Create()
>> END
>>
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader := "Juan"
>> :nWidth := 57
>> :Create()
>> END
>>
>> ..... así­ para todas las columnas
>>
>> RETURN Nil
>>
>>
>> OSender es el objeto oArrayBrowse 1
>>
>> Espero que te ayude con tu programa.
>> Saludos,
>> José Luis Capel
>
>
>
--

inicializacion de TArrayBrowse

Publicado: Jue Sep 22, 2005 5:52 pm
por swriter
Xevi, gracias funciona perfecto
Saludos
Ahora a los Browse
Wilson 'W' Gamboa A
SoftWare Writer
swriter@uio.satnet.net
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=43324b62@ozsrvnegro.ozlan.local...]43324b62@ozsrvnegro.ozlan.local...[/email]
Perdón la lí­nea es la 104
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=43324b26@ozsrvnegro.ozlan.local...]43324b26@ozsrvnegro.ozlan.local...[/email]
Wilson,
por lo visto me he explicado demasiado...
Cambia la lí­nea 105 del FormRol.prg, por...
::aEmpresas := {{'Empresa1'},{'Empresa2'},{'Empresa3'},{'Empresa4'}}
Y verás como te funciona!!!
SOLO ESO!!! que te lo expliqué en mi mensaje anterior, reléelo, por si no lo has entendido.
Un Saludo,
Xevi.
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje news:[email=4331fa6e@ozsrvnegro.ozlan.local...]4331fa6e@ozsrvnegro.ozlan.local...[/email]
Xevi, gracias x aclararme, les envio mi proyecto
favor si me pueden decir porque me aparecen solamente el promer digito
de la empresa
saludos
y Gracias x todo
--
Wilson 'W' Gamboa A
SoftWare Writer
swriter@uio.satnet.net
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=4331a703@ozsrvnegro.ozlan.local...]4331a703@ozsrvnegro.ozlan.local...[/email]
Wilson,
El array se construye a partir de elementos, cada fila un elemento, y cada columna un elemento del mismo elemento de la Fila.
Así­ pues en tu caso...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := { {'Empresa1'}, {'Empresa2'}, {'Empresa3'} }
RETURN Nil
Si tuvieras dos columnas en el ArrayBrowse...
METHOD FormInitialize( oSender ) CLASS TFormRol
::oArrayBrowse1:aCols := {'Empresas'}
::oArrayBrowse1:aArrayData := { {'Empresa1', "Fila1Columna2"}, {'Empresa2', "Fila2Columna2"}, {'Empresa3', "Fila3Columna2"} }
RETURN Nil
Un Saludo,
Xevi.
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje news:[email=43318b53@ozsrvnegro.ozlan.local...]43318b53@ozsrvnegro.ozlan.local...[/email]
>
> Jose Luis, gracias
> ahora tengo el problema que me hace display solo de la primera letra de cada
> fila
> (tengo una sola columna) que podria ser ??
>
> Gracias, estoy intentando pasar uno de mis modulos a Xailer (aun trabajo en
> caracteres con xharbour con o sin ADS)
>
> Saludos
>
>
> --
> Wilson 'W' Gamboa A
> SoftWare Writer
> swriter@uio.satnet.net
>
> "José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
> news:432fba63$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Wilson,
>>
>>
>>> me da un error lo que tengo es
>>> ::oArrayBrowse1:aCols := {'Empresas'}
>>
>> aCols es una propiedad de todos los browses que recibe como parámetro un a
>> matriz de _objetos_ columna.
>>
>>
>>> ::oArrayBrowse1:aArrayData := ::aEmpresas
>>
>> Eso está bien... Has de corresponder el número de columnas como mí­nimo al
>> de dimensiones de la matriz (si hay más, no pasa nada, si hay menos....
>> mal muy mal)
>>
>>> ::oArrayBrowse1:Refresh( .T. )
>>> Y perdon por la ignorancia, pero como defino las columnas del
>>> ArrayBrowse??
>>
>> De dos maneras. La mas sencilla: desde el ide, con el ratón haces click
>> en le browse, luego botón derecho -> añadir columna. Y ya seleccionas la
>> columna y en el inspector de propiedades cambias el header y cualquier
>> otra propiedad que te intereses.
>>
>> Desde programa. En el evento onCreate del Browse haces algo así­:
>>
>> METHOD ArrayBrowse1Create( oSender ) CLASS TForm1
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader := "Pepe"
>> :nWidth := 57
>> :Create()
>> END
>>
>>
>> WITH OBJECT TBrwColumn():New( oSender )
>> :cHeader := "Juan"
>> :nWidth := 57
>> :Create()
>> END
>>
>> ..... así­ para todas las columnas
>>
>> RETURN Nil
>>
>>
>> OSender es el objeto oArrayBrowse 1
>>
>> Espero que te ayude con tu programa.
>> Saludos,
>> José Luis Capel
>
>
>
--