In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Columnas en tArrayBrowse

Foro público de Xailer en español
Responder
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:
Contactar Israel Solis

Columnas en tArrayBrowse

Mensaje por Israel Solis »

This is a multi-part message in MIME format.
------=_NextPart_000_000E_01C74533.D8EFC7B0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000F_01C74533.D8EFC7B0"
------=_NextPart_001_000F_01C74533.D8EFC7B0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hola Foro:
Tengo una duda (quiz=E1 demasiado tonta pero no logro darle al clavo):
He creado un Form en el cual muestro un tArrayBrowse para mostrar y =
permitir al usuario seleccionar informaci=F3n.
En este tArrayBrowse quiero mostrar solo 2 columnas de un array de <n> =
columnas
Como esta forma puede ser llamada desde cualquier funci=F3n, el Array =
puede varia en dimensiones, entonces, la idea es especificar que datos =
del array quiero mostrar en esas 2 columnas
Entonces...
=BFC=F3mo puedo definir las columnas que deseo mostrar en un =
tArrayBrowse con un Array de <n> columnas?
Gracias!!
------=_NextPart_001_000F_01C74533.D8EFC7B0
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.3020" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hola Foro:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tengo una duda (quiz=E1 demasiado tonta =
pero no logro=20
darle al clavo):</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He creado un Form en el cual muestro un =
tArrayBrowse para mostrar y permitir al usuario seleccionar=20
informaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>En este tArrayBrowse quiero <U>mostrar =
solo 2=20
columnas</U> de un array de <n> columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Como esta forma puede ser llamada desde =
cualquier=20
funci=F3n, el Array puede varia en dimensiones, entonces, la idea es =
especificar=20
que datos del array quiero mostrar en esas 2 columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Entonces...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=BFC=F3mo puedo definir las columnas =
que deseo mostrar=20
en un tArrayBrowse con un Array de <n> columnas?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:000901c74566$23857cc0$[email=4001a8c0@isolis]4001a8c0@isolis[/email]"=20
align=3Dbaseline border=3D0></DIV></BODY></HTML>
------=_NextPart_001_000F_01C74533.D8EFC7B0--
------=_NextPart_000_000E_01C74533.D8EFC7B0
Content-Type: image/png;
name="ArrayBrowse.PNG"
Content-Transfer-Encoding: base64
Content-ID: <000901c74566$23857cc0$[email=4001a8c0@isolis]4001a8c0@isolis[/email]>
iVBORw0KGgoAAAANSUhEUgAAAV4AAAF8CAIAAAAILURwAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAMDpJREFU
eF7tXWusnlWVLhp/mHgPP2DKGB0ErTiMiECLojCDjBGUjDgUUopFSqVFaIEC LQpFa3GGuWDbgQbr
6HhLyDhBMynRlksT8JI4RDOUAs4ph9KWtofS9vR+A5nVs2Gzz76ud7/3vZ+d ryfvt9+11l7r2Xs9
e73f+c7uEWPGjFm3bh39pPbud7/7uOOOE9doQAAIZIXAQw89NCpe4gXRiBTO PvvsOXPmzJ8/fwEa
EAAC2SBAKU+JT+lPJCAJ4XDJQO3EE0+86aabCAqSuO6662aiAQEgkA0ClPKU +JT+RAJEBYITDlMD
UQV1UfsKGhAAAhkjIHhA1A6HqYEKCSKMGWhAAAhkjwBRARHCYWoghqBaYvbs 2dljAgCAABCYQVRA
hHD41xH0jz6EIEiuQAMCQKC3CFAKX3jhhX9TvJGWmv50TYTwKjVQCTFt2rTe YgLHgQAQuIIyfOLE
id+bPmXvP8/e88837P6Xm3aOvIbvnKO+RCfdJRmSJHnSIl2JIFEBEcLr1HC5 t13xpS/5BXAXCACB
dhGgcuH707+4Y+6lz9867bl505+57aqBb1z9x/kz6bX6m9eKl3hL/XSXZEiS 5EmLdFXnR1HDFHe7
bMqUqZMnewRwCwgAgdYRoPTe8Y/Xrf/q5fR69mvTBm658ul505+69arV8655 4hvXrPr61fSTrqmH
+ukuyQhh0iJd1f9R1HCpu31l6rTJkyd7BHALCACB1hGg9B7+h2vXzZmy7sbJ 6+Z88dmbpgzOvXzg
5qkDX73i6ZunPX3zl+knXVMP9dNdkhmRnEJapKv6z6WGJXPmTJo48S1vecvb 3va2t771rccff/wl
l1zy9re/nd6+853vbB0ROAAEgAAhQOm97faZz86etGH2xfTa9dsHX3nlFXGt vaif7opOkictHzVM
crc/3DZX3HzjG99IBCGuzz333A9+8IMerV7fIux67T+czxCBw1XDN7/y7KyJ G679e3rRGhZNvJUv
rZ/kSYt0VcRGVQ30EaWrDX35InHrggsuoL++OOecc+j6TW96k0teju2xKWQ8 AsxbVdlRhxOOHXvU
kX4f5NB1+MAMH2JAQCJwuGqYP/2Zqz+/Ycb54vU6C7h7SJ60SFdFchQ1fMHR 6Ncag+eeKW9+6EMf
InY48sgjXfLCG8orcREUcwnw+2ksevHlOZIcgzJSMliHDxw/IQMEJAKHqeHW aYNXfm7DlZ+Wr9fZ
4cpPq9dSgORJi3RVJEdRwxmO9tNb5j5+2kfUm294wxve9a53ueRlwpCASBi6 kD7RhVBUxcy7VhWP
HdWmsGb2yE6XcVVFk3HpqiTo8iEYi4akRMNE2AVjXMgea55YXPOO/tYRGD9+ /LZpn37ylD9be9rR
6kudaLrW7pI8aZGu6j+LGnYtvOmxk06UaqeffvpRRx1FhcPJJ5/sZwd5V7KA LCVUavDftarUYcf0
lumYdEa94Lst2VMFU1X3OMb0UEXbBZ1gcGpBgdYTAA64EKCUHJ72qT+ecvTg KUdpL8kO5i2SJy0t
nUdRw8ds7Z7p01+cMfGxU06SN4kU6Proo48WF64mXBF3NdJSd1q5EFUZNceE BZE/MhOsnepdee3p
1EaUgXB0yRkZl5UaTA+tAUqIVBj5jvmBNT30gKxGZEVACKB1GQH6Y+qdV5y9 5tSj1owf9dLWiXaX
5EmLdNXQRlEDVRRamzB+wvAtUzd/cjxRg7hFv7k89dRTxTVRA/3+0tSSPcIh eqtubiLJXTuteVe1
L+1YO9W75uJW3bD6o7mtemjVtXb6PZTR0YVUFxD5R9fuCm7VihQrdCYOqg+a t6awNRzPjONWuwic
cMIJe6aeRXXBwITXX5IXqFNcv7RzWBUgedIiXdX5UdRAOa+1Z2dMeuGS84bO O2vVR//qlA9/+M1v
fjPRwTHHHENi73nPe4444gh6+453vEPTEsNTp7nUZCf/rlWFaUdNnuCIMgqP 20GDUjfothhOldd6
PLdEemvqJuzBkLUhPNRgrg30dBCBD3zgAwdmnLPxk3++8cxjxEvygqeH5EmL dNWIfNTw6L/d8T+f
/duZnzjrjAmnf+LjZxQCQjqkLWJ1uzaTx3o32Glmo6pi3lWTSjPuSU7XKGID 9/sgIzUdE+rCJY2b
TGrQ7KjexoXsYh8rORZaABBuBQH6g6iD156/6dz3bzr3OHrJNBRv5cvofz9p ka6TGj6qtG98edpH
Tz78/pNnnnnXj+497eNnnHnOp2fcMHfh0v+Yef0NEyZMkLI/X/GwqiivZeFq 9tAtrZPeqoUuR0XI
C0nz2n9X1VIlXV75RxFu+H2wBmhC5A/czH9XIHHgWK1Z8bHOODpbR4DS+9BX Jw1NmjA0eTy99jz8
M1oz4lp7UT/dfbVz0gTSIl3V/1FVw0cc7eRTTtHunPaxj18wecrNt99x6fSr PnLyyS5F9FeOgOR7
WW5UPgQM9heB973vfYe+deWWq8/fcs1nt8w6b8usc7fM+gy9Ns08b/3Mz627 9vP0k65F58jd8w5L
Xn0+aZGuGvgoavgwWh8QUMurPvgLH5tD4Nhjjz24eO62eVO3ff3yrfMuO/y6 bcqL8y574euXb543
ddO8K+gnXVMP9QsBkiR50iJd1dFR1EC/vUADAkCgvwhQev9o+qUH/mnW8Ldv 3P7t2cN33vDi4deN
Ww6/5my+82b6SdfUQ/1097DMt28kedIiXTXwUdTwl2hAAAj0HAH65tIPZ3zx wH1LD933Hfq5b+S1
92ff3fvzf9/9s+/TT7oWnVKG5ElLi3sUNdAvNtGAABDoLwK07dOfOP2F0agi oEbd8kITIS3SVQMf
RQ3j0IAAEAACIwiAGrAQgAAQsCDwKjWMHTuWrug+XaABASCQOQKiaiAQxkhq oC75P2HiAggAgQwR
IDYANWQ47wgZCAQQADVgiQABIGBBANSAZQEEgACoAWsACAABHgKoGng4QQoI ZIYAqCGzCUe4QICH
AKiBhxOkgEBmCIAaMptwhAsEeAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOk gEBmCIAaMptwhAsE
eAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOkgEBmCIAaMptwhAsEeAjEUwP9 P5fqENpb3ugBKZdN
sz9idKESoVhraIWMk/MyCnEtewrZ8Qh7pqAt6OoLre8RVYWMsJM7NVSLZsPW 5FJuZU23MmiFCFey
wVToT9dMgRq6NiMF/AE1FADLEAU1+NGrhRrMytYsdz3Vb1DYKiDi5JiVkuoD BV9RAury0+WJWu2r
WW32a88FLt+C1KBZ9syLGZSKkhVYLbVMNEwtqz/aAlWd9OPgt6YFa5oKzqMa oGus+jwsw3qV6Jai
BnU1WMtL0alBbC4FtccU5vd4BnIZCXoYYdMaspbGrnGtNKEuYitWrrS0kqDm nl/Gg49JDS4/5Yie
RWLqeohP84qzwFze8leXGUWtHlaS3mWMlKIGT0pr3G+deI3XtW3Kup48GaXu URqXB5PBumRd/lgT
wFysZroWWoVq+NbMV4Ny+e/KGXVNu2YqSCscatA81/zxLwAz8VzWXIwTXIQu EufMnRX/qjwsk9JV
6VZPDXEJwMm3IFkwM9xc9EzFYDJ4thGNaPwc50pLbdaDw7nogzN6eWrwrAQX Z7nyzZXDJn3zNxiO
pHXzs3JWtR5Wld5l7CRLDcw0diWJh6o4LBbMCk5y8n1zbZv+9OaTuDWTmQhb faiPGoLAlne7JDUE
PSyTzxXqVk8Ngj7VWo7Zo6acS12uM1NAu2ViZFVRp1kIBBX9fpp3tR6zfFDH dSWh1TfTeU1Ms6wh
4J8Xv5/aJmk1ZXZq0Zn+eKoGpjXX7Jj5zF9vcmgTExdK1vy3zo7sdDGOCXWF +e8xFU8Ncf5Zcy/O
VOtarcdSyIFCwhxsNYOV2+f4AJn6EGiCGswior54mrTcejK4yhwrCNV6aw5d rf0m5xFjWRFoghoA
PRAAAr1DANTQuymDw0CgCQRADU2gjDGAQO8QADX0bsrgMBBoAgFQQxMoYwwg 0DsEQA29mzI4DASa
QADU0ATKGAMI9A4BUEPvpgwOA4EmEAA1NIEyxgACvUMA1NC7KYPDQKAJBEAN TaCMMYBA7xAANfRu
yuAwEGgCgXhqWIYGBIBAfxB45ZVXCjFKKWqgwdCAABDoPgLEYE1TwwAaEAAC zSIwPDw8ODh49913
P/DAAyu8bfny5YsXLyZhUEOzU4TRgEAbCBA1LF26dM2aNZxqhcRIuK/UsHbt +vIIV2KkvBuwAASK
IlB06Qpq4PCCkOkxNTzyyCNF0TTlKzFS3g1YAAJFESi6dCU1vMxooIaBovgW nb9k5OmktmRiSSOQ
oktXUsNeRgM1gBpYaQJeYMHUrFA0NRBHqG3S1Ou1HnqbPjWoZ89aJ64ovs3O fu9H0zgFFFPhjBZa
uoS8rBqGlEa8IF5qJ10nTg2cdVkI3wrntV+molM6WrFf+LTibdGlK6lh7WtN 8oK4kP10kRc1oGqI
XsHRGR6tGO1qPorR1PD0SJO8oF2Lu6AGfNbASiUzw0WPeF4zTbie46x2gkZY LuYnFE0Nq1atkrxA
16JpPblQg1yp+OVlXAa5UlpY8zy4+Z/p1Lt8I3EhpKcVTQ2PjzTiAnEhm9qT CzVYV7DoLIpveiuM
E5GraqiQGjQ31LoDTyWVPAvLzxo0RrC+BTWAGjjMoNcFWqXA3/A5Hwx7eJzl azZCRXc1UMPrS0Or
V62bT1F8s1l4owJtoGrg80ueU1D+WRjUoK9p+SkXqCE6qQpRg6gprJ/v4GPI 6CkANRSArpINvxIj
BZyGKBCoCIGiS1dUDevXr1e/v+C6JjH8eVUFf6NV0VzDDBAogEAENRA7LFq0 6MeMtnDhwi1btvT1
j7KLQlPJx7wFpg6iQKBOBIquf0r1HTt27Bxpu3bt2r179549e/bt27d///4D Bw4cHGmHDh166bUG
akDVUOf6he3aEAA1OKEtCg2qhtpWKQy3gEDR9Z9R1VD0lBvr7FVipIV1gSGz R6Do0s2IGrJfGwAA
CBRAANRQACyIAoF8EOgHNdBjEhoQAAJNItAPaij0/+FYhSN+41p+UFgAAv1F ANTQ37mD50CgRgRA
DTWCC9NAoL8I5EsN9Kc7x/zdbcFXf6cWngOBMgjkSw1ECuvWPSNe69c/+/zz z23atP6FFza++OLQ
9u0v7tixfdeuHSMyaEAgRwRADU5e2LNnV5AatMOFOrKCyCu/J0GBMoFoxplj CTEVz2gfpCmrBaY/
0aMno5g7NVjrhff+4L3EC/v27eVQQx1LoeTyDaoHBaoKijmQFFPl/bqeu35q EARUVYAJ28maGly8
QNRAvHDgwH5QQzNL30oN/hwGNdQ9NVlTg/h8gYhAfr5A1+JFvHDw4IE4apBV sZg88VatltVOVUbN
EO1a206tiWFW45oncjFZjUs/rYW99a5q0ExvEwczcBm+dmG+daGqASsJxQ9g 3XmVgP2sqUF87ii4
gD531HjhpZcOcajBmgDqyrbmjDUTrMtay2fOBmtW1BqVBF0yC3vruNpA6lur haDzQT9NiNQkNB0w
3cADBZO2sqYG8fsIyQhqvUC8QP91OIcaNKA5SeXZYK3J5t9arRustvMHU05z yR+FtTxxUZg1mYP+
mCFrg2oeqgStEYTfW2aeZCiWNTW4niMEL/zpT39qhho4bKLtdVpqWe+aMtYH CivvMF0yd2wPEVg3
cOYDhSdel6tm6WSGn2HC80POmhrk9xfo9xHy8wXJCwRiB6khWJPH7dKFqgb/ M46Zk64eD1V5qDBY
WPmfa/BAwWSHrKlBfK9J/J5SfO6o8kIcNaiVvGtLDD5QqMtXLZWlQWtFYK2c RafrqcfqifYwYn1g
0cyqb1Wb1n4zOU0Vq8/moCog8q7JHS5FZpLkKZY1Nfh5gUMNqS4az8NIHSGn PVwdiDVgM2tqCP4B
RfCBooEZamWIhnO1ySK/+dBamcHyg+ZLDeWxgwUgkDACoIaEJxehAYF4BEAN 8dhBEwgkjEBe1PAK
GhAAAjwEQA08nCAFBDJDANSQ2YQjXCDAQyBfaqBfYnF+ecmDEVJAIDUE8qUG 5gFwqU044hmNAO0Q
gMSKAKghcACcf92o303uziILehIUKJMtmnHmWELMFGaqV+hwGVMp6eZODcED 4ILUUMdqKJkPQfWg
QFVBMQeSYtVSQ9HRq4o6DTtZUwPnADhQQwMLXaUGNZ9FURbtAFOXKRbtRk8V s6YGzgFwEdQgnzKE
rlzfar+26F0qUp2TMOrTjTq0Zyt2ueQy5TKrhqPluVYRWLOdSQ0aSkFwNOQ9 zvc0e2t1O2tq4BwA
F6QGM6uliljxZrUcrJ+tAi5rcsW7xjWf4YMuaUxkjUJ2msmvjSg9dwXusWDd 0jUo/J74nTfRqzXf
emQ8a2rgHAAXpAZNgJNU1szUNnBXwpt57qEGc/PXhF0c4Y/CWlMEicm0qalo GW7Nf7PMCVJzkBqs
7NOjHK7J1aypgXMAXAPUwGET6z6s+uYxYoZQVdVgdSC4pUdUMa4yxDo7wehc /FhTjvXUbNbU4D8A
jmaUvvvQNWoI1uRmdR2RioXYiv9AYZYJzComSA3Wpy0PR7hKiZ6mcR1uZ00N ngPgBNYR1CDWnGiF
1r1HS7Um7VtrAdOIpst0KfjI4HFJDdyKA4eqrCRi9coPjuepxMVTdaRZH21m TQ2uA+DkRAapoY9T
zvG54cfvhodTEWhxaM5EtCiTNTXgbyhcK6/5hGl+xBazrhdD50sNvZgeOAkE 2kIA1NAW8hgXCHQa
AVBDp6cHzgGBthDIixoSPskPoQGBahEANVSLJ6wBgUQQADUkMpEIAwhUi0C+ 1EC/LeP88rJauGEN
CPQFgXypgXkAXF8mEn4CgWoRADUEDoDzw02lhyog32r9HiN8SdMIR1d+ubiq dWMOynRDc0BoxVkr
EwvH2zL2k9HNnRqCB8AFqUFdahHLLkJFuhTULekbc5UH3TApwMOhHGsux5i6 TDFm+KmKZU0NnAPg
kqGG+lYwJ9M85ZXGXxxroIb6ZlNazpoaOAfABalB3RK1zdC6aWsVvqoibqlF gTVPpAWPrjDiSjPz
KUOzaXoufTMHDYagxaUh5gnZ46cVJdVJv1cNpFbfh8iaGjgHwFVLDdaU03JY yGgsY32I0CRdj+4m
42jWXF6p/MJhvaBZMwo1BDOcoEGXV1b0XJD2PYdr8j9rauAcAMehBpmT5uIz 89y6P6ud/hXs2s/N
DVbz3Lrbu8jFQxYePrKGZq1frClttazGFUTJhb/mgxpdTXmVgNmsqYFzAByT GgQ7cKjBmrGuxWr2
+3d4j7cexvHbNNnNX+aYRGmWM54c9mz4QZRADRVSUtbU4D8AjlAe+e6Dr2lJ 5VnW5uapplxwl457
oDDNFs1qyXfWfd76xNEMNfgJyz8RqBo4DJI1NXgOgBPYFaIGNeusOSkTyVVf qP1aGaLOpVpXW21a
hf2dLptmnqtZJ7U0NzwyGkUGyyLXECpXBqseE1hObmQukzU1uA6Ak2siSA3p rZ5mdtRmRnHNTruj
92XNZE0N+BsK127fwPJtKz/bGrcBSKsdIl9qqBZHWAMCiSEAakhsQhEOEKgG AVBDNTjCChBIDIG8
qKGtY/YwLhDoHQKght5NGRwGAk0gAGpoAmWMAQR6h8Dw8PDLL7+8ZMmSh0a3 FStWaD30lsRIftmy
ZRRmoQersWPHjhs3bsGCBXQxhv7RFb2nFrQSMZjVprCjNvolFueXl72bUTgM BCpBgFJ96dKla9as
4VgjMRKOyNYuUgPzADgOLpABAukhIKiB4tq/fz9dU9s20oaGhp4baQMDA6tX r161atUTTzxBYglS
g/VAF/FFyeB/h0ulh1aJiLdav2fd8CVNIxxd+UXjqtauOSjTDbNqE0CV91A4 4HKD415V4KRkx6SG
rSNt8+bNWVBD8AA4/2SLZS1lIlZhhAp/uJK+MRc6JwQOh/rteO76qaEQUzND zkFMowYzZKoannzy
yTSrBs4BcMlQQ32ruSpq8OcwqKG+GbRaNquGe4yW7AMF5wC4IDWoC1ouX3Mf U2+ptYarXxbb1ucI
rQh31eSeGtusd1QjZrkh5U2HgyFoY1kRMx/ErDFKMRNDvxsN51UCw2VdNXAO gKuWGqwpp+2WGq24
SnGp5X9qMFnD5YOanB4ZD+tpTzoexzQONR+R/E5aB/LTcQK52nAInKoh2QcK zgFwHGows9RVPshE
1TZhs99VXbv2c1fhYM06dTg/MblCs6Z90KyfArRqwm/NrHEkNWiK/ueUhvOt R8NxqoZkHyg4B8Ax
qUGr/z3UoBk09zpVQCsZgmns8da1UQdtWquYuNKjEDVYgfJ460HShLFHKdqW q1lXDf4D4GhKCv3y
UhYC1uWrlutm6R4s4M2kMvdzc3t07e2aNf/ojVGD6wHE6oALw2DIbWVa78bN umrwHAAnJrIQNWj1
sDWZZXFh7uHmE4HKNVopoQl7niast1xjaeym5qTHYfWWyzFt3/aoqLhpCLi0 TO5wKfYuP1t0mFM1
JPtA4ToATs5HkBpanLmahm6m9m5mFBc71wRdYmZdX3lSvw2Z7MeQ+BsKWZZ7 6o6aVnxj7NDYQDUB
1ZbZfL8N2RbiGBcI9AIBT9Ug/oIx2b+h6MX0wEkg0BYCghrWr1//FKORWDp/ XtUW4hgXCPQCAaKG
nTt3Llq06Meh9pOf/OSuu+7q93kND6MBASDAQyCvU554mEAKCACBh0ENWARA AAhYEMiXGuh3Wpxf
XmLVAIE8EUiBGijJmWdMqnPMPAAuz2WBqIFAItQQZAdxoKWVGvwHwAWXiPpp c1BYFdD8KaTbgHB0
XA34hiEaQCAdavCzg4saggfA+edAS++OZzt/PUXHlQwCfKxSlUyKGjzsYKUG zgFwoIZCSx/UUAiu
LgsnRQ2eTxys1MA5AC6OGqzVuOwUNmUWWftFpxxdkxHqZh4yx3UNrQ5nDdx0 1dqjRievVYfNcLqc
JHn6lg41+D+JtFID5wC4aGrQ0kzLczVhTEk1dV1ppvGL+dZKHJo1FxcEN38h 4ArKf0uFNDhQnmnZ
hagToYa431BwDoCrgxrUNPZkl7bfuooOV6aZpYE1n60buCtjtaokmhqs1U0X 8gE+SARSoIYgL5CA
tWrgHADXEWpwlfdaP5NogiWGlRpKGtdKIWvVg8zsDgJZU4P/ADiaJPruQx3U oO7ehfLNfAzRcriQ
NVPY/3wRZ1x+xABq6E7aczzJmho8B8AJ7ILUIHLVrMn9ndqG6XlSMB8K1Ow1 93aOM1qGWx8omHG5
hpMBekjQNS5n1UKmAQSypgbXAXASdw41MEv9BuZS1hTNjNX8cI3FhYEIgayp ob6/oXB9jFf3mmt4
3IaHqxs92FcRyJcasA6AABDwIABqwPIAAkDAggCoAcsCCACB7KlB/UQd10AA CHgQyKtqwFIAAkCA
iQCogQkUxIBAXgjkSw3MA+DyWg6IFgi8hkC+1MA8AA5LBQjkiQCo4Rn/AXD+ ZSH/q0jX/2qtquM/
X8wzx3oade7UEDwALkgNzOQHL/Q0Q7J1O2tq4BwAVxU1ZLvCEHhPEciaGjgH wMVRg/l/0qtVg/b0
YRVGldHTjErG7aypgXMAXJAa1I8bTGGZ4a4LjTLIgimZzGpDID1CIGtq4BwA F6QGq4DJFyYFCEXr
B5koGXqUQqm6mjU1cA6Ai6AGKwto2R4sDcAOqaZcX+LKmhr8B8DRFNJ3Hyqn Bo0U8EDRl1TJzc+s
qcFzAJxYB3HUoD0myAcHubbwMWRuadbHeLOmBtcBcHIig9TQxymHz0CAg0DW 1MA5AI4DImSAQHoI
5EsN6c0lIgICFSIAaqgQTJgCAukgAGpIZy4RCRCoEIG8qIHzX+BBBggAAUIA 1IBlAASAgAUBUAOW
BRAAAqAGBQHmAXBYNUAgTwTyrRqYB8DluSwQNRAANQQOgAsuEfmnk0HJBgTI Gesorn4h7L/bgNsY
ooMI5E4NwQPg/HOmJlUXEiyOGiLYpINLGS5Vi0DW1MA5AI5PDdVOTJw1UEMc btAyEciaGjgHwEVQ
g7WUMJ87XD1yxKCAKSmH1nRNyhAC2gOF1umxJiVVFfFsovUg63qKQNbUwDkA Ljiv1gRWk1Z7mBf5
ZtKHlqhBAW0INck9uiYXSGdcDnA8sVJPEDoIdBmBrKmBcwAcf/LMTdjMOus+ 71G0ZrLmkjV1JWGZ
TKTZVHnKNKUWAmql4HJMG5ePHiS7hkDW1MA5AI4/YUWpwWqZTxPMqsEkAlPR xQguXeuTiLUU4qMH
ya4hkDU1+A+Ao6ka+e6DrwWTKvj4EKznXQJMarBWDdZnh/IPFFY0urbi4Q8T gaypwXMAnIAvSA1q
va0ibq29tc/nrB9SaNllVTGn1izjNePWzwKsm7//mcLzHCFvmXEx1yLEOoVA 1tTgOgBOzhCHGjo1
nXAGCFSFQNbUwDkAriqgYQcI9AuBfKmhX/MEb4FAwwiAGhoGHMMBgX4gAGro xzzBSyDQMAJ5UUOF
J+fBFBBIGwFQQ9rzi+iAQCQCoIZI4KAGBNJGIF9qoG/mcH55mfb0Izog4EIg X2pgHgCHpQME8kQA
1BA4AM6/LKj0UAW0t3FLqhIjcUNDCwhIBHKnhuABcM1TA1YnEOgCAllTA+cA OFBDF5YpfGgegayp
gXMAXDQ1iD9AFOrqM4LaqcmIWy4BcQuPG80nSZ4jZk0NnAPg4qhBIwUrNUjL JiNY2cRKNHmuWkTd
AAJZUwPnALg4anBVCtaigEkNms0GFgeGyBmBrKmBcwBcNDVoLOCqEaQYs9DA A0XO6dpk7FlTg/8A
OJoG+u5DHDW48lx+WGA+YgSpAQ8UTSYGxsqaGjwHwImVEaQG+dGg+QGh1mOS guix9ovR1btqD1Yt
EGgAgaypwXUAnMSdQw0NTBKGAALNI5A1NeBvKJpfcBixLwjkSw19mSH4CQRa QQDU0ArsGBQIdB0B
UEPXZwj+AYFWEMiLGho+XQ/DAYH+IgBq6O/cwXMgUCMCoIYawYVpINBfBPKl BvpCEeeXl/2dWngO
BMogkC81MA+AKwMudIFAfxEANQQOgAtOrfp956CwKkCK9Fb8rLxpZmsapajb Hjdct/yedySuojj0
Qj53aggeAOefxegMbHJNNzlWIbhMojTVI5yPUOlFrjbsZNbUwDkALnqt16TY 8PqodrjKqware6CG
SmYta2rgHAAXl+HyKUOoy2cHuWqFgPpAoT2YqOvbpa7JSJtWsy5PtK3b9Nw0 q/aIsTQZLUz1rYan
FrXVmlVFDUdqyU6PAyryHgArya5eG8maGjgHwEVQQzCrtdRV36o8IofWSERL Zo86xxNtFI1BTB+0
PLcOYYJmDcGv61dR77pc8tj3s1WvU7oq57OmBs4BcFVRgyvPzQRg9qh7tZoD wdy2coGLX7Rd3cU1
Lmc86hEjapWCybDWUsLqm0kNZv1SVY711E7W1MA5AK6D1MDZqJn8YhYgLmZx paWLlYKlEEdAkzFJ
zYTCxRcma/g5tKf5XKHbWVOD/wA4Qnnkuw++piUGPyH5Zbn6bMzJT2ulLRPG mktFzTILkyCFdeeB
wgNLhcnWL1NZU4PnADgxi0FqECmnlqwybWRK+7dHlSM0OxopaMvXKuypk135 rxUOTLPa5uwJ1vWs
oQFl4mA6rKqYVYCrgrD6hgeKIE9lTQ2uA+AkahxqCEJcVMAs0YtaKC/fBR/K RwELZRDImhq68zcU
1tKjzLxG6HbBhwi3oVITAvlSQ02AwiwQSAMBUEMa84gogEDFCIAaKgYU5oBA GgjkRQ2tnLGHQYFA
HxEANfRx1uAzEKgdAVBD7RBjACDQRwTypQb6XR3nl5d9nFT4DATKI5AvNTAP gCsPMSwAgT4iAGoI
HADnn1T1a0LB6SdhkhE/zcbsd4m5Ri8qH4yiDgGPk0VBayveWset1bhrQoeH hwcHB+++++4HHnhg
hbctX7588eLFJLxs2TKyVugXNGPHjh03btyCBQvoYgz9oyt6Ty1oJWIwq01h R22iaggeABekBing
n79KZjfCSIRKHcnPh1GVjHA+QqWSeNsatxLnrUaIGpYuXbpmzRrOECRGwhHZ 2lFq4BwAV2hNB3c/
DsrVyvRiyTIrJg4ybcXb1rgcTOJkBDXwdZOiBs4BcNHUIJ81hAXxVlyoP+WS Ui+ksJSUFjR5VVLb
b60OWFewJmkdS/XfdFU167JmIiklPbEXBc1lSp0CP1Cu8DX/TXhd9Y7mklwP Up4ZvukYP28jJCU1
vMxoZD8pauAcABdHDVqqaBmuLVNz9aurR72r9Zu04lp2pj/mulSd1O5a+UuT 9/hpehWnazJmcFCN
i80YPTNl6npA0ziXswCs1sypt7phpfiI/PeoSGrYy2ipUQPnALhoatC2RHO3 t6afOeX81e9fuOYW
bc1Y2anuimWowco4LmooD5oLrkJuuJhR7Xe56mJna8iacNHwq+UCzZqkBroI ttSogXMAXDQ1aIqt
U4MrEBcZebYvzz7mKk8KjWJynJ8fOTu/iwc5un7nrZaDOBQa18N39bGDpIah kTZp6vXiQja1JzVq
8B8AR9HSbzH41OBfDRHUoC4IzkryVw3Wu67d27VtMqPw04prX40owvkllVn4 RLjBRFhFVRQCWo9f
wGTedqlh7dq1xALiRdeiaT2pUYPnADixCDjUoBbeKo9o/fyk8ijKdWZNaevo 6riqusdVYVx1w8wr
uVjN8F09Jslqo6jjankbpICgKWlcc8NU9LjBmV+VPkxS0OjPKuBiE9Mx/75V 8q6sGp4eaZILtGtx
NzVqcB0AJzENUkNJ9Puuri70nsaSQAg1IS+pYdVrTbKDuJD9dJEaNeBvKEqu qgTyKoEQSk6iS11S
w+NKk+ygdtJ1UtRQE6AwCwTSQMBKDcQCxA4aL4Aa0phxRAEEWAi4qMHkBVAD C1AIAYE0EAA1pDGP
iAIIVIwAqKFiQGEOCKSBgKCG9evXy+8yeC5ILJ2/oUhj/hAFEKgJAfHl6EWL Fv2Y0RYuXEhHv7Tw
R9nBr3CbAtvROoYALR20thCIyKDgWSqmQAvUwDxtho6ikQfODAwM3H///Q+h dQCB++67j74VswOt
PQQiMqgf1MA/bYaKK3HgDLVDhw7VVGvBbCEEaCJoOnaitYdARAb1hhoKrUVB DaSyH60DCIivyrWX
Fxh5Z6HzmsR89YkazMNm6ItZZqcITGAR8YgFlcoREDOyC609BEQ6aMliTR+S 6R81aIfNyK9za/0J
UIMgNfNn5UnbjEExI7vR2kNAUIOaKa70IZn+UYO6jmVg5uJWqWHbtm1bRxpd eJqQaauZjlEI99xz
j/kzwsMuBC5mZA9aewhYi2hXEvWPGtTjZURU2rEz4i2oQWWQ7lDDPrT2EBDU YOaLZAf1Vv+owXq8
jPkNLZUaKODNI81KIrJTyNTU/EO72M1aNUR42G7gAnkxIx34PDRfFwQ1WL/O aJ7g1D9qEOfJWA+Z
kbfkgTMCi+deaxEft1alIn3gX7geKPgWuhM4wSiW2gG09hAQ6aCmiSeV+kcN 6qkykurUTnGtVg3d
yZBCWZ0kNRxEaw8BQQ1asriSqH/UoP2huP/AGYEFfSeyp40eKMhz82cfwxFL rb28wMgHRTpwzmuS
hy9EVM0tfFHaDEwE6TlwRqisHmlPPvmkuIhuZMHT/Gb9uiV967JxGZqgBvpO JFpbCFgzyJo+iVCD
58AZawVlPn2gpwEEBDW8hNYeAq7N1ZNB/a4agtTwBFoHEAA1tMcJr46cMjUw j5SgX8+IUyWo0fXv
0TqAAE3Evffe23p65OwApUPRDOpH1cA/UoJOnRCnSpDKypUrGYdQQKR2BB55 5BGajraOKsC4Ih2Y
h7LIDOoBNdDHnmhAAAj0AgF6eCzEKWPHjh03btyCBQvoYgz9oyt6Ty1ohUZC AwJAoEcIBJNaFYin
hkLDQBgIAIF+IQBq6Nd8wVsg0BACoIaGgMYwQKBfCIAa+jVf8BYINIQAqKEh oDEMEOgXAqCGfs0X
vAUCDSEAamgIaAwDBPqFAKihX/MFb4FAQwiUooYxrzWPsyQSHYqmG2HKVLEa UTuZKtFBQREI9AKB
eGrwp5MMPiKfrcAVtWPSlofIhPFCKr2YXTgJBKIRqIYaaqoaoqPyEBOqhvKo wkIOCFRPDdreK1OR
syczddVNXkySq6bgPB0EH1uKFiw5rBvEmDwC8dTgqsC1HVumsbVfTWzzCcWj qzJOoZolSBZBgeTX
BAIEAoRAKWow63a57YsLuZ+7+tU5cOWkizL89YLrbkSNgKoBqZIhAtVTgwai ufMzk1allWDF4Zq5
YAkQFPA8rWS4XBByPgjEU4O5mWtZpFUNwfQu9EBhFizWOfNnvrUc4JBFPusD kWaLQDw1WD9rMDvV
DwXkU4YsHPw9Ll3/IwbnIcXzMAJqyDYZELiKQClqAJRAAAikigCoIdWZRVxA oBQCoIZS8EEZCKSK
AKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCoIdWZ RVxAoBQCoIZS8EEZ
CKSKAKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCo IdWZRVxAoBQCKVDD
li1bhvNopaa6UmVgXimcXTSWAjUQLSxfvvyGG2646KKLLky0UWjXXHMNhdmR RQTMOzIR9bmRCDXM
mjVryZIlezb/IOEXBUhh1rcUClkmahCYP/fcc2sTbRRapzAvNEHlhROhhosv vliQwvY/3J7kS0RH
YZaf8kosEDWQMy+88MKhQ4deSrRRaBRgdzCvZOL4RhKhhokTJ4rkeTnRJqKj MPlTW6skUQM5s2HD
BsL7QKKNQqMAu4N5rRNqGk+HGnZv+G7a1EABdmeZCmqgkpsqhkTZ+GUKjQLs DuaghsIIiGW6a/Du
3Ru/l2ht+xKFRgF2Z5kKzAcHB9N+oKAAu4N54cQop5BO1bDjqX/dvX7pwUQb hUYBdmeZCmoYGBig
h4lEIT9IoVGA3cG8XKYX1k6HGujTx13PLtlXotEx8yW061Wl0CjA7ixTQQ1P PfXU/v37IyJX/zez
CHWPSoWTSKFRgN3BvHByl1NIhxq2/vaWnQOL95RotKpKaL+qWokR0w0Kbetv v9adZSqoYfXq1ZSl
RUHTIKoWsQqtUWgUYHcwL5fphbXToYYtD1+/46k7d8Y2WlKkKn6WaeUtWEen 0LasvL47y1RQw+OP
P753796icNUEkXCjQuMUGgXYHcwLJ3c5BVDDqwvbSg2y7pWrX+tRC2O5NOXq tAoXTSQhnwM1mHCJ
VFeznTMj6kRoc1EIfFDDuHHjFixYQBwxhv7RFb2nVo5xGtUWO9jQ/VcOr7pj e1SjBST15LXZWbRH
s6mqF3WTQtt8//Tu7GAC88cee4ySrWgsQRyEgGABYVz2eCA1ZVy6TIcpNAqw O5g3mlTr1qVTNWz6
6aXbf/9N+rOfiEarSmrJa7VT3FVrBHHXVNR6pIomXNRJCm3Tf13anWUqqOE3 v/nN1q1bi8ZiAmvC
G8Q2OCPqZMWBT6FRgN3BHNRQGAGxTEtSg7aSrIvJShYap1iZxeSRoumUPDUE SbbQjPitMcEHNSTy
QPH8D7+w7XffeqZ4o2WkKYketT+ix69e1M1tv7t9w4++0J0dTNDxo48+Sn9l UDQWDfAIbOXsuECu
BHwKjQLsDuaF98xyCuk8UKz7zme2/nou/SK6aKNlpKnIHllKSAGtR601VBlx rd01B+K7uvXXN1OA
3VmmghpWrlw5NDTEj8KEUcXEA1ehGakKfAqNAuwO5uUyvbB2OtSwduFZW1Ze /b/NNlqyzQxIoa1d
9NfdWaaCGh588MGNGzc2g0Dzo1BoFGB3MC+c3OUU0qGGwTsmDK34En2k3GQj amhmuKEVlw3eMb47
y1RQAx0tQ3+b2AwCzY9CoVGA3cG8XKYX1k6HGp6Zf9Lm+yf+KtG26f6Ja+af 1J1lKqjhF7/4Ba24
RCH/FYVGAXYH88LJXU4hHWoYuPWETf/9WXo4TLJRaAO3nNCdZSqoYdmyZfRn y0kCTkFRaBRgdzAv
l+mFtROhBjqK5//mHr/xPz+145dTdvzy0pGfSb0oNAqwOycOiVOeKHOefvrp FYk2Co0C7A7mhZO7
nEIi1DBjxoz58+dT8iT8ogCvuuqqctNdmTZRg8D8vqRbpzCvbPJ4hhKhBvq4 aPbs2UTwVP4l2ehE
6ZkzZ/LmtAkpcaI0MG8C65bGSIEaWoIOwwKBlBEANaQ8u4gNCEQjAGqIhg6K QCBlBEANKc8uYgMC
0QiAGqKhgyIQSBkBUEPKs4vYgEA0AqCGaOigCARSRgDUkPLsIjYgEI0AqCEa OigCgZQRADWkPLuI
DQhEIwBqiIYOikAgZQRADSnPLmIDAtEIgBqioYMiEEgZATs1UC8aEAACmSNg P2xe/B9WaEAACOSM
wKj/2I7eoAEBIAAEBAKv/p+XmVdQCB8IAAETgf8HCq1DC05PkXYAAAAASUVO RK5CYII=
------=_NextPart_000_000E_01C74533.D8EFC7B0--

Attached files
Saludos :D

Israel
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9252
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Columnas en tArrayBrowse

Mensaje por ignacio »

This is a multi-part message in MIME format.
------=_NextPart_000_0020_01C745EB.98CF6BF0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0021_01C745EB.98CF6BF0"
------=_NextPart_001_0021_01C745EB.98CF6BF0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Israel,=20
No tiene m=E1s que crear las columnas en el browse antes de hacer la =
llamada a TArrayBrowse:SetArray()
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribi=F3 en el mensaje =
news:[email=45c0e0aa@news.xailer.com...]45c0e0aa@news.xailer.com...[/email]
Hola Foro:
Tengo una duda (quiz=E1 demasiado tonta pero no logro darle al clavo):
He creado un Form en el cual muestro un tArrayBrowse para mostrar y =
permitir al usuario seleccionar informaci=F3n.
En este tArrayBrowse quiero mostrar solo 2 columnas de un array de <n> =
columnas
Como esta forma puede ser llamada desde cualquier funci=F3n, el Array =
puede varia en dimensiones, entonces, la idea es especificar que datos =
del array quiero mostrar en esas 2 columnas
Entonces...
=BFC=F3mo puedo definir las columnas que deseo mostrar en un =
tArrayBrowse con un Array de <n> columnas?
Gracias!!
------=_NextPart_001_0021_01C745EB.98CF6BF0
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.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Israel, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No tiene m=E1s que crear las columnas =
en el browse=20
antes de hacer la llamada a TArrayBrowse:SetArray()</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
=
href=3D"mailto:isolis_antispam_@sanroms.com">isolis_antispam_@sanroms.com=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:45c0e0aa@news.xailer.com">news:45c0e0aa@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Hola Foro:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tengo una duda (quiz=E1 demasiado =
tonta pero no=20
logro darle al clavo):</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He creado un Form en el cual muestro =
un=20
tArrayBrowse para mostrar y permitir al usuario seleccionar=20
informaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>En este tArrayBrowse quiero =
<U>mostrar solo 2=20
columnas</U> de un array de <n> columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Como esta forma puede ser llamada =
desde cualquier=20
funci=F3n, el Array puede varia en dimensiones, entonces, la idea es =
especificar=20
que datos del array quiero mostrar en esas 2 columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Entonces...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=BFC=F3mo puedo definir las columnas =
que deseo=20
mostrar en un tArrayBrowse con un Array de <n> =
columnas?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:001b01c745e3$370892f0$1700000a@ozlan.local"=20
align=3Dbaseline border=3D0></DIV></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0021_01C745EB.98CF6BF0--
------=_NextPart_000_0020_01C745EB.98CF6BF0
Content-Type: image/png;
name="ArrayBrowse.PNG"
Content-Transfer-Encoding: base64
Content-ID: <001b01c745e3$370892f0$1700000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAV4AAAF8CAIAAAAILURwAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAMDpJREFU
eF7tXWusnlWVLhp/mHgPP2DKGB0ErTiMiECLojCDjBGUjDgUUopFSqVFaIEC LQpFa3GGuWDbgQbr
6HhLyDhBMynRlksT8JI4RDOUAs4ph9KWtofS9vR+A5nVs2Gzz76ud7/3vZ+d ryfvt9+11l7r2Xs9
e73f+c7uEWPGjFm3bh39pPbud7/7uOOOE9doQAAIZIXAQw89NCpe4gXRiBTO PvvsOXPmzJ8/fwEa
EAAC2SBAKU+JT+lPJCAJ4XDJQO3EE0+86aabCAqSuO6662aiAQEgkA0ClPKU +JT+RAJEBYITDlMD
UQV1UfsKGhAAAhkjIHhA1A6HqYEKCSKMGWhAAAhkjwBRARHCYWoghqBaYvbs 2dljAgCAABCYQVRA
hHD41xH0jz6EIEiuQAMCQKC3CFAKX3jhhX9TvJGWmv50TYTwKjVQCTFt2rTe YgLHgQAQuIIyfOLE
id+bPmXvP8/e88837P6Xm3aOvIbvnKO+RCfdJRmSJHnSIl2JIFEBEcLr1HC5 t13xpS/5BXAXCACB
dhGgcuH707+4Y+6lz9867bl505+57aqBb1z9x/kz6bX6m9eKl3hL/XSXZEiS 5EmLdFXnR1HDFHe7
bMqUqZMnewRwCwgAgdYRoPTe8Y/Xrf/q5fR69mvTBm658ul505+69arV8655 4hvXrPr61fSTrqmH
+ukuyQhh0iJd1f9R1HCpu31l6rTJkyd7BHALCACB1hGg9B7+h2vXzZmy7sbJ 6+Z88dmbpgzOvXzg
5qkDX73i6ZunPX3zl+knXVMP9dNdkhmRnEJapKv6z6WGJXPmTJo48S1vecvb 3va2t771rccff/wl
l1zy9re/nd6+853vbB0ROAAEgAAhQOm97faZz86etGH2xfTa9dsHX3nlFXGt vaif7opOkictHzVM
crc/3DZX3HzjG99IBCGuzz333A9+8IMerV7fIux67T+czxCBw1XDN7/y7KyJ G679e3rRGhZNvJUv
rZ/kSYt0VcRGVQ30EaWrDX35InHrggsuoL++OOecc+j6TW96k0teju2xKWQ8 AsxbVdlRhxOOHXvU
kX4f5NB1+MAMH2JAQCJwuGqYP/2Zqz+/Ycb54vU6C7h7SJ60SFdFchQ1fMHR 6Ncag+eeKW9+6EMf
InY48sgjXfLCG8orcREUcwnw+2ksevHlOZIcgzJSMliHDxw/IQMEJAKHqeHW aYNXfm7DlZ+Wr9fZ
4cpPq9dSgORJi3RVJEdRwxmO9tNb5j5+2kfUm294wxve9a53ueRlwpCASBi6 kD7RhVBUxcy7VhWP
HdWmsGb2yE6XcVVFk3HpqiTo8iEYi4akRMNE2AVjXMgea55YXPOO/tYRGD9+ /LZpn37ylD9be9rR
6kudaLrW7pI8aZGu6j+LGnYtvOmxk06UaqeffvpRRx1FhcPJJ5/sZwd5V7KA LCVUavDftarUYcf0
lumYdEa94Lst2VMFU1X3OMb0UEXbBZ1gcGpBgdYTAA64EKCUHJ72qT+ecvTg KUdpL8kO5i2SJy0t
nUdRw8ds7Z7p01+cMfGxU06SN4kU6Proo48WF64mXBF3NdJSd1q5EFUZNceE BZE/MhOsnepdee3p
1EaUgXB0yRkZl5UaTA+tAUqIVBj5jvmBNT30gKxGZEVACKB1GQH6Y+qdV5y9 5tSj1owf9dLWiXaX
5EmLdNXQRlEDVRRamzB+wvAtUzd/cjxRg7hFv7k89dRTxTVRA/3+0tSSPcIh eqtubiLJXTuteVe1
L+1YO9W75uJW3bD6o7mtemjVtXb6PZTR0YVUFxD5R9fuCm7VihQrdCYOqg+a t6awNRzPjONWuwic
cMIJe6aeRXXBwITXX5IXqFNcv7RzWBUgedIiXdX5UdRAOa+1Z2dMeuGS84bO O2vVR//qlA9/+M1v
fjPRwTHHHENi73nPe4444gh6+453vEPTEsNTp7nUZCf/rlWFaUdNnuCIMgqP 20GDUjfothhOldd6
PLdEemvqJuzBkLUhPNRgrg30dBCBD3zgAwdmnLPxk3++8cxjxEvygqeH5EmL dNWIfNTw6L/d8T+f
/duZnzjrjAmnf+LjZxQCQjqkLWJ1uzaTx3o32Glmo6pi3lWTSjPuSU7XKGID 9/sgIzUdE+rCJY2b
TGrQ7KjexoXsYh8rORZaABBuBQH6g6iD156/6dz3bzr3OHrJNBRv5cvofz9p ka6TGj6qtG98edpH
Tz78/pNnnnnXj+497eNnnHnOp2fcMHfh0v+Yef0NEyZMkLI/X/GwqiivZeFq 9tAtrZPeqoUuR0XI
C0nz2n9X1VIlXV75RxFu+H2wBmhC5A/czH9XIHHgWK1Z8bHOODpbR4DS+9BX Jw1NmjA0eTy99jz8
M1oz4lp7UT/dfbVz0gTSIl3V/1FVw0cc7eRTTtHunPaxj18wecrNt99x6fSr PnLyyS5F9FeOgOR7
WW5UPgQM9heB973vfYe+deWWq8/fcs1nt8w6b8usc7fM+gy9Ns08b/3Mz627 9vP0k65F58jd8w5L
Xn0+aZGuGvgoavgwWh8QUMurPvgLH5tD4Nhjjz24eO62eVO3ff3yrfMuO/y6 bcqL8y574euXb543
ddO8K+gnXVMP9QsBkiR50iJd1dFR1EC/vUADAkCgvwhQev9o+qUH/mnW8Ldv 3P7t2cN33vDi4deN
Ww6/5my+82b6SdfUQ/1097DMt28kedIiXTXwUdTwl2hAAAj0HAH65tIPZ3zx wH1LD933Hfq5b+S1
92ff3fvzf9/9s+/TT7oWnVKG5ElLi3sUNdAvNtGAABDoLwK07dOfOP2F0agi oEbd8kITIS3SVQMf
RQ3j0IAAEAACIwiAGrAQgAAQsCDwKjWMHTuWrug+XaABASCQOQKiaiAQxkhq oC75P2HiAggAgQwR
IDYANWQ47wgZCAQQADVgiQABIGBBANSAZQEEgACoAWsACAABHgKoGng4QQoI ZIYAqCGzCUe4QICH
AKiBhxOkgEBmCIAaMptwhAsEeAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOk gEBmCIAaMptwhAsE
eAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOkgEBmCIAaMptwhAsEeAjEUwP9 P5fqENpb3ugBKZdN
sz9idKESoVhraIWMk/MyCnEtewrZ8Qh7pqAt6OoLre8RVYWMsJM7NVSLZsPW 5FJuZU23MmiFCFey
wVToT9dMgRq6NiMF/AE1FADLEAU1+NGrhRrMytYsdz3Vb1DYKiDi5JiVkuoD BV9RAury0+WJWu2r
WW32a88FLt+C1KBZ9syLGZSKkhVYLbVMNEwtqz/aAlWd9OPgt6YFa5oKzqMa oGus+jwsw3qV6Jai
BnU1WMtL0alBbC4FtccU5vd4BnIZCXoYYdMaspbGrnGtNKEuYitWrrS0kqDm nl/Gg49JDS4/5Yie
RWLqeohP84qzwFze8leXGUWtHlaS3mWMlKIGT0pr3G+deI3XtW3Kup48GaXu URqXB5PBumRd/lgT
wFysZroWWoVq+NbMV4Ny+e/KGXVNu2YqSCscatA81/zxLwAz8VzWXIwTXIQu EufMnRX/qjwsk9JV
6VZPDXEJwMm3IFkwM9xc9EzFYDJ4thGNaPwc50pLbdaDw7nogzN6eWrwrAQX Z7nyzZXDJn3zNxiO
pHXzs3JWtR5Wld5l7CRLDcw0diWJh6o4LBbMCk5y8n1zbZv+9OaTuDWTmQhb faiPGoLAlne7JDUE
PSyTzxXqVk8Ngj7VWo7Zo6acS12uM1NAu2ViZFVRp1kIBBX9fpp3tR6zfFDH dSWh1TfTeU1Ms6wh
4J8Xv5/aJmk1ZXZq0Zn+eKoGpjXX7Jj5zF9vcmgTExdK1vy3zo7sdDGOCXWF +e8xFU8Ncf5Zcy/O
VOtarcdSyIFCwhxsNYOV2+f4AJn6EGiCGswior54mrTcejK4yhwrCNV6aw5d rf0m5xFjWRFoghoA
PRAAAr1DANTQuymDw0CgCQRADU2gjDGAQO8QADX0bsrgMBBoAgFQQxMoYwwg 0DsEQA29mzI4DASa
QADU0ATKGAMI9A4BUEPvpgwOA4EmEAA1NIEyxgACvUMA1NC7KYPDQKAJBEAN TaCMMYBA7xAANfRu
yuAwEGgCgXhqWIYGBIBAfxB45ZVXCjFKKWqgwdCAABDoPgLEYE1TwwAaEAAC zSIwPDw8ODh49913
P/DAAyu8bfny5YsXLyZhUEOzU4TRgEAbCBA1LF26dM2aNZxqhcRIuK/UsHbt +vIIV2KkvBuwAASK
IlB06Qpq4PCCkOkxNTzyyCNF0TTlKzFS3g1YAAJFESi6dCU1vMxooIaBovgW nb9k5OmktmRiSSOQ
oktXUsNeRgM1gBpYaQJeYMHUrFA0NRBHqG3S1Ou1HnqbPjWoZ89aJ64ovs3O fu9H0zgFFFPhjBZa
uoS8rBqGlEa8IF5qJ10nTg2cdVkI3wrntV+molM6WrFf+LTibdGlK6lh7WtN 8oK4kP10kRc1oGqI
XsHRGR6tGO1qPorR1PD0SJO8oF2Lu6AGfNbASiUzw0WPeF4zTbie46x2gkZY LuYnFE0Nq1atkrxA
16JpPblQg1yp+OVlXAa5UlpY8zy4+Z/p1Lt8I3EhpKcVTQ2PjzTiAnEhm9qT CzVYV7DoLIpveiuM
E5GraqiQGjQ31LoDTyWVPAvLzxo0RrC+BTWAGjjMoNcFWqXA3/A5Hwx7eJzl azZCRXc1UMPrS0Or
V62bT1F8s1l4owJtoGrg80ueU1D+WRjUoK9p+SkXqCE6qQpRg6gprJ/v4GPI 6CkANRSArpINvxIj
BZyGKBCoCIGiS1dUDevXr1e/v+C6JjH8eVUFf6NV0VzDDBAogEAENRA7LFq0 6MeMtnDhwi1btvT1
j7KLQlPJx7wFpg6iQKBOBIquf0r1HTt27Bxpu3bt2r179549e/bt27d///4D Bw4cHGmHDh166bUG
akDVUOf6he3aEAA1OKEtCg2qhtpWKQy3gEDR9Z9R1VD0lBvr7FVipIV1gSGz R6Do0s2IGrJfGwAA
CBRAANRQACyIAoF8EOgHNdBjEhoQAAJNItAPaij0/+FYhSN+41p+UFgAAv1F ANTQ37mD50CgRgRA
DTWCC9NAoL8I5EsN9Kc7x/zdbcFXf6cWngOBMgjkSw1ECuvWPSNe69c/+/zz z23atP6FFza++OLQ
9u0v7tixfdeuHSMyaEAgRwRADU5e2LNnV5AatMOFOrKCyCu/J0GBMoFoxplj CTEVz2gfpCmrBaY/
0aMno5g7NVjrhff+4L3EC/v27eVQQx1LoeTyDaoHBaoKijmQFFPl/bqeu35q EARUVYAJ28maGly8
QNRAvHDgwH5QQzNL30oN/hwGNdQ9NVlTg/h8gYhAfr5A1+JFvHDw4IE4apBV sZg88VatltVOVUbN
EO1a206tiWFW45oncjFZjUs/rYW99a5q0ExvEwczcBm+dmG+daGqASsJxQ9g 3XmVgP2sqUF87ii4
gD531HjhpZcOcajBmgDqyrbmjDUTrMtay2fOBmtW1BqVBF0yC3vruNpA6lur haDzQT9NiNQkNB0w
3cADBZO2sqYG8fsIyQhqvUC8QP91OIcaNKA5SeXZYK3J5t9arRustvMHU05z yR+FtTxxUZg1mYP+
mCFrg2oeqgStEYTfW2aeZCiWNTW4niMEL/zpT39qhho4bKLtdVpqWe+aMtYH CivvMF0yd2wPEVg3
cOYDhSdel6tm6WSGn2HC80POmhrk9xfo9xHy8wXJCwRiB6khWJPH7dKFqgb/ M46Zk64eD1V5qDBY
WPmfa/BAwWSHrKlBfK9J/J5SfO6o8kIcNaiVvGtLDD5QqMtXLZWlQWtFYK2c RafrqcfqifYwYn1g
0cyqb1Wb1n4zOU0Vq8/moCog8q7JHS5FZpLkKZY1Nfh5gUMNqS4az8NIHSGn PVwdiDVgM2tqCP4B
RfCBooEZamWIhnO1ySK/+dBamcHyg+ZLDeWxgwUgkDACoIaEJxehAYF4BEAN 8dhBEwgkjEBe1PAK
GhAAAjwEQA08nCAFBDJDANSQ2YQjXCDAQyBfaqBfYnF+ecmDEVJAIDUE8qUG 5gFwqU044hmNAO0Q
gMSKAKghcACcf92o303uziILehIUKJMtmnHmWELMFGaqV+hwGVMp6eZODcED 4ILUUMdqKJkPQfWg
QFVBMQeSYtVSQ9HRq4o6DTtZUwPnADhQQwMLXaUGNZ9FURbtAFOXKRbtRk8V s6YGzgFwEdQgnzKE
rlzfar+26F0qUp2TMOrTjTq0Zyt2ueQy5TKrhqPluVYRWLOdSQ0aSkFwNOQ9 zvc0e2t1O2tq4BwA
F6QGM6uliljxZrUcrJ+tAi5rcsW7xjWf4YMuaUxkjUJ2msmvjSg9dwXusWDd 0jUo/J74nTfRqzXf
emQ8a2rgHAAXpAZNgJNU1szUNnBXwpt57qEGc/PXhF0c4Y/CWlMEicm0qalo GW7Nf7PMCVJzkBqs
7NOjHK7J1aypgXMAXAPUwGET6z6s+uYxYoZQVdVgdSC4pUdUMa4yxDo7wehc /FhTjvXUbNbU4D8A
jmaUvvvQNWoI1uRmdR2RioXYiv9AYZYJzComSA3Wpy0PR7hKiZ6mcR1uZ00N ngPgBNYR1CDWnGiF
1r1HS7Um7VtrAdOIpst0KfjI4HFJDdyKA4eqrCRi9coPjuepxMVTdaRZH21m TQ2uA+DkRAapoY9T
zvG54cfvhodTEWhxaM5EtCiTNTXgbyhcK6/5hGl+xBazrhdD50sNvZgeOAkE 2kIA1NAW8hgXCHQa
AVBDp6cHzgGBthDIixoSPskPoQGBahEANVSLJ6wBgUQQADUkMpEIAwhUi0C+ 1EC/LeP88rJauGEN
CPQFgXypgXkAXF8mEn4CgWoRADUEDoDzw02lhyog32r9HiN8SdMIR1d+ubiq dWMOynRDc0BoxVkr
EwvH2zL2k9HNnRqCB8AFqUFdahHLLkJFuhTULekbc5UH3TApwMOhHGsux5i6 TDFm+KmKZU0NnAPg
kqGG+lYwJ9M85ZXGXxxroIb6ZlNazpoaOAfABalB3RK1zdC6aWsVvqoibqlF gTVPpAWPrjDiSjPz
KUOzaXoufTMHDYagxaUh5gnZ46cVJdVJv1cNpFbfh8iaGjgHwFVLDdaU03JY yGgsY32I0CRdj+4m
42jWXF6p/MJhvaBZMwo1BDOcoEGXV1b0XJD2PYdr8j9rauAcAMehBpmT5uIz 89y6P6ud/hXs2s/N
DVbz3Lrbu8jFQxYePrKGZq1frClttazGFUTJhb/mgxpdTXmVgNmsqYFzAByT GgQ7cKjBmrGuxWr2
+3d4j7cexvHbNNnNX+aYRGmWM54c9mz4QZRADRVSUtbU4D8AjlAe+e6Dr2lJ 5VnW5uapplxwl457
oDDNFs1qyXfWfd76xNEMNfgJyz8RqBo4DJI1NXgOgBPYFaIGNeusOSkTyVVf qP1aGaLOpVpXW21a
hf2dLptmnqtZJ7U0NzwyGkUGyyLXECpXBqseE1hObmQukzU1uA6Ak2siSA3p rZ5mdtRmRnHNTruj
92XNZE0N+BsK127fwPJtKz/bGrcBSKsdIl9qqBZHWAMCiSEAakhsQhEOEKgG AVBDNTjCChBIDIG8
qKGtY/YwLhDoHQKght5NGRwGAk0gAGpoAmWMAQR6h8Dw8PDLL7+8ZMmSh0a3 FStWaD30lsRIftmy
ZRRmoQersWPHjhs3bsGCBXQxhv7RFb2nFrQSMZjVprCjNvolFueXl72bUTgM BCpBgFJ96dKla9as
4VgjMRKOyNYuUgPzADgOLpABAukhIKiB4tq/fz9dU9s20oaGhp4baQMDA6tX r161atUTTzxBYglS
g/VAF/FFyeB/h0ulh1aJiLdav2fd8CVNIxxd+UXjqtauOSjTDbNqE0CV91A4 4HKD415V4KRkx6SG
rSNt8+bNWVBD8AA4/2SLZS1lIlZhhAp/uJK+MRc6JwQOh/rteO76qaEQUzND zkFMowYzZKoannzy
yTSrBs4BcMlQQ32ruSpq8OcwqKG+GbRaNquGe4yW7AMF5wC4IDWoC1ouX3Mf U2+ptYarXxbb1ucI
rQh31eSeGtusd1QjZrkh5U2HgyFoY1kRMx/ErDFKMRNDvxsN51UCw2VdNXAO gKuWGqwpp+2WGq24
SnGp5X9qMFnD5YOanB4ZD+tpTzoexzQONR+R/E5aB/LTcQK52nAInKoh2QcK zgFwHGows9RVPshE
1TZhs99VXbv2c1fhYM06dTg/MblCs6Z90KyfArRqwm/NrHEkNWiK/ueUhvOt R8NxqoZkHyg4B8Ax
qUGr/z3UoBk09zpVQCsZgmns8da1UQdtWquYuNKjEDVYgfJ460HShLFHKdqW q1lXDf4D4GhKCv3y
UhYC1uWrlutm6R4s4M2kMvdzc3t07e2aNf/ojVGD6wHE6oALw2DIbWVa78bN umrwHAAnJrIQNWj1
sDWZZXFh7uHmE4HKNVopoQl7niast1xjaeym5qTHYfWWyzFt3/aoqLhpCLi0 TO5wKfYuP1t0mFM1
JPtA4ToATs5HkBpanLmahm6m9m5mFBc71wRdYmZdX3lSvw2Z7MeQ+BsKWZZ7 6o6aVnxj7NDYQDUB
1ZbZfL8N2RbiGBcI9AIBT9Ug/oIx2b+h6MX0wEkg0BYCghrWr1//FKORWDp/ XtUW4hgXCPQCAaKG
nTt3Llq06Meh9pOf/OSuu+7q93kND6MBASDAQyCvU554mEAKCACBh0ENWARA AAhYEMiXGuh3Wpxf
XmLVAIE8EUiBGijJmWdMqnPMPAAuz2WBqIFAItQQZAdxoKWVGvwHwAWXiPpp c1BYFdD8KaTbgHB0
XA34hiEaQCAdavCzg4saggfA+edAS++OZzt/PUXHlQwCfKxSlUyKGjzsYKUG zgFwoIZCSx/UUAiu
LgsnRQ2eTxys1MA5AC6OGqzVuOwUNmUWWftFpxxdkxHqZh4yx3UNrQ5nDdx0 1dqjRievVYfNcLqc
JHn6lg41+D+JtFID5wC4aGrQ0kzLczVhTEk1dV1ppvGL+dZKHJo1FxcEN38h 4ArKf0uFNDhQnmnZ
hagToYa431BwDoCrgxrUNPZkl7bfuooOV6aZpYE1n60buCtjtaokmhqs1U0X 8gE+SARSoIYgL5CA
tWrgHADXEWpwlfdaP5NogiWGlRpKGtdKIWvVg8zsDgJZU4P/ADiaJPruQx3U oO7ehfLNfAzRcriQ
NVPY/3wRZ1x+xABq6E7aczzJmho8B8AJ7ILUIHLVrMn9ndqG6XlSMB8K1Ow1 93aOM1qGWx8omHG5
hpMBekjQNS5n1UKmAQSypgbXAXASdw41MEv9BuZS1hTNjNX8cI3FhYEIgayp ob6/oXB9jFf3mmt4
3IaHqxs92FcRyJcasA6AABDwIABqwPIAAkDAggCoAcsCCACB7KlB/UQd10AA CHgQyKtqwFIAAkCA
iQCogQkUxIBAXgjkSw3MA+DyWg6IFgi8hkC+1MA8AA5LBQjkiQCo4Rn/AXD+ ZSH/q0jX/2qtquM/
X8wzx3oade7UEDwALkgNzOQHL/Q0Q7J1O2tq4BwAVxU1ZLvCEHhPEciaGjgH wMVRg/l/0qtVg/b0
YRVGldHTjErG7aypgXMAXJAa1I8bTGGZ4a4LjTLIgimZzGpDID1CIGtq4BwA F6QGq4DJFyYFCEXr
B5koGXqUQqm6mjU1cA6Ai6AGKwto2R4sDcAOqaZcX+LKmhr8B8DRFNJ3Hyqn Bo0U8EDRl1TJzc+s
qcFzAJxYB3HUoD0myAcHubbwMWRuadbHeLOmBtcBcHIig9TQxymHz0CAg0DW 1MA5AI4DImSAQHoI
5EsN6c0lIgICFSIAaqgQTJgCAukgAGpIZy4RCRCoEIG8qIHzX+BBBggAAUIA 1IBlAASAgAUBUAOW
BRAAAqAGBQHmAXBYNUAgTwTyrRqYB8DluSwQNRAANQQOgAsuEfmnk0HJBgTI Gesorn4h7L/bgNsY
ooMI5E4NwQPg/HOmJlUXEiyOGiLYpINLGS5Vi0DW1MA5AI5PDdVOTJw1UEMc btAyEciaGjgHwEVQ
g7WUMJ87XD1yxKCAKSmH1nRNyhAC2gOF1umxJiVVFfFsovUg63qKQNbUwDkA Ljiv1gRWk1Z7mBf5
ZtKHlqhBAW0INck9uiYXSGdcDnA8sVJPEDoIdBmBrKmBcwAcf/LMTdjMOus+ 71G0ZrLmkjV1JWGZ
TKTZVHnKNKUWAmql4HJMG5ePHiS7hkDW1MA5AI4/YUWpwWqZTxPMqsEkAlPR xQguXeuTiLUU4qMH
ya4hkDU1+A+Ao6ka+e6DrwWTKvj4EKznXQJMarBWDdZnh/IPFFY0urbi4Q8T gaypwXMAnIAvSA1q
va0ibq29tc/nrB9SaNllVTGn1izjNePWzwKsm7//mcLzHCFvmXEx1yLEOoVA 1tTgOgBOzhCHGjo1
nXAGCFSFQNbUwDkAriqgYQcI9AuBfKmhX/MEb4FAwwiAGhoGHMMBgX4gAGro xzzBSyDQMAJ5UUOF
J+fBFBBIGwFQQ9rzi+iAQCQCoIZI4KAGBNJGIF9qoG/mcH55mfb0Izog4EIg X2pgHgCHpQME8kQA
1BA4AM6/LKj0UAW0t3FLqhIjcUNDCwhIBHKnhuABcM1TA1YnEOgCAllTA+cA OFBDF5YpfGgegayp
gXMAXDQ1iD9AFOrqM4LaqcmIWy4BcQuPG80nSZ4jZk0NnAPg4qhBIwUrNUjL JiNY2cRKNHmuWkTd
AAJZUwPnALg4anBVCtaigEkNms0GFgeGyBmBrKmBcwBcNDVoLOCqEaQYs9DA A0XO6dpk7FlTg/8A
OJoG+u5DHDW48lx+WGA+YgSpAQ8UTSYGxsqaGjwHwImVEaQG+dGg+QGh1mOS guix9ovR1btqD1Yt
EGgAgaypwXUAnMSdQw0NTBKGAALNI5A1NeBvKJpfcBixLwjkSw19mSH4CQRa QQDU0ArsGBQIdB0B
UEPXZwj+AYFWEMiLGho+XQ/DAYH+IgBq6O/cwXMgUCMCoIYawYVpINBfBPKl BvpCEeeXl/2dWngO
BMogkC81MA+AKwMudIFAfxEANQQOgAtOrfp956CwKkCK9Fb8rLxpZmsapajb Hjdct/yedySuojj0
Qj53aggeAOefxegMbHJNNzlWIbhMojTVI5yPUOlFrjbsZNbUwDkALnqt16TY 8PqodrjKqware6CG
SmYta2rgHAAXl+HyKUOoy2cHuWqFgPpAoT2YqOvbpa7JSJtWsy5PtK3b9Nw0 q/aIsTQZLUz1rYan
FrXVmlVFDUdqyU6PAyryHgArya5eG8maGjgHwEVQQzCrtdRV36o8IofWSERL Zo86xxNtFI1BTB+0
PLcOYYJmDcGv61dR77pc8tj3s1WvU7oq57OmBs4BcFVRgyvPzQRg9qh7tZoD wdy2coGLX7Rd3cU1
Lmc86hEjapWCybDWUsLqm0kNZv1SVY711E7W1MA5AK6D1MDZqJn8YhYgLmZx paWLlYKlEEdAkzFJ
zYTCxRcma/g5tKf5XKHbWVOD/wA4Qnnkuw++piUGPyH5Zbn6bMzJT2ulLRPG mktFzTILkyCFdeeB
wgNLhcnWL1NZU4PnADgxi0FqECmnlqwybWRK+7dHlSM0OxopaMvXKuypk135 rxUOTLPa5uwJ1vWs
oQFl4mA6rKqYVYCrgrD6hgeKIE9lTQ2uA+AkahxqCEJcVMAs0YtaKC/fBR/K RwELZRDImhq68zcU
1tKjzLxG6HbBhwi3oVITAvlSQ02AwiwQSAMBUEMa84gogEDFCIAaKgYU5oBA GgjkRQ2tnLGHQYFA
HxEANfRx1uAzEKgdAVBD7RBjACDQRwTypQb6XR3nl5d9nFT4DATKI5AvNTAP gCsPMSwAgT4iAGoI
HADnn1T1a0LB6SdhkhE/zcbsd4m5Ri8qH4yiDgGPk0VBayveWset1bhrQoeH hwcHB+++++4HHnhg
hbctX7588eLFJLxs2TKyVugXNGPHjh03btyCBQvoYgz9oyt6Ty1oJWIwq01h R22iaggeABekBing
n79KZjfCSIRKHcnPh1GVjHA+QqWSeNsatxLnrUaIGpYuXbpmzRrOECRGwhHZ 2lFq4BwAV2hNB3c/
DsrVyvRiyTIrJg4ybcXb1rgcTOJkBDXwdZOiBs4BcNHUIJ81hAXxVlyoP+WS Ui+ksJSUFjR5VVLb
b60OWFewJmkdS/XfdFU167JmIiklPbEXBc1lSp0CP1Cu8DX/TXhd9Y7mklwP Up4ZvukYP28jJCU1
vMxoZD8pauAcABdHDVqqaBmuLVNz9aurR72r9Zu04lp2pj/mulSd1O5a+UuT 9/hpehWnazJmcFCN
i80YPTNl6npA0ziXswCs1sypt7phpfiI/PeoSGrYy2ipUQPnALhoatC2RHO3 t6afOeX81e9fuOYW
bc1Y2anuimWowco4LmooD5oLrkJuuJhR7Xe56mJna8iacNHwq+UCzZqkBroI ttSogXMAXDQ1aIqt
U4MrEBcZebYvzz7mKk8KjWJynJ8fOTu/iwc5un7nrZaDOBQa18N39bGDpIah kTZp6vXiQja1JzVq
8B8AR9HSbzH41OBfDRHUoC4IzkryVw3Wu67d27VtMqPw04prX40owvkllVn4 RLjBRFhFVRQCWo9f
wGTedqlh7dq1xALiRdeiaT2pUYPnADixCDjUoBbeKo9o/fyk8ijKdWZNaevo 6riqusdVYVx1w8wr
uVjN8F09Jslqo6jjankbpICgKWlcc8NU9LjBmV+VPkxS0OjPKuBiE9Mx/75V 8q6sGp4eaZILtGtx
NzVqcB0AJzENUkNJ9Puuri70nsaSQAg1IS+pYdVrTbKDuJD9dJEaNeBvKEqu qgTyKoEQSk6iS11S
w+NKk+ygdtJ1UtRQE6AwCwTSQMBKDcQCxA4aL4Aa0phxRAEEWAi4qMHkBVAD C1AIAYE0EAA1pDGP
iAIIVIwAqKFiQGEOCKSBgKCG9evXy+8yeC5ILJ2/oUhj/hAFEKgJAfHl6EWL Fv2Y0RYuXEhHv7Tw
R9nBr3CbAtvROoYALR20thCIyKDgWSqmQAvUwDxtho6ikQfODAwM3H///Q+h dQCB++67j74VswOt
PQQiMqgf1MA/bYaKK3HgDLVDhw7VVGvBbCEEaCJoOnaitYdARAb1hhoKrUVB DaSyH60DCIivyrWX
Fxh5Z6HzmsR89YkazMNm6ItZZqcITGAR8YgFlcoREDOyC609BEQ6aMliTR+S 6R81aIfNyK9za/0J
UIMgNfNn5UnbjEExI7vR2kNAUIOaKa70IZn+UYO6jmVg5uJWqWHbtm1bRxpd eJqQaauZjlEI99xz
j/kzwsMuBC5mZA9aewhYi2hXEvWPGtTjZURU2rEz4i2oQWWQ7lDDPrT2EBDU YOaLZAf1Vv+owXq8
jPkNLZUaKODNI81KIrJTyNTU/EO72M1aNUR42G7gAnkxIx34PDRfFwQ1WL/O aJ7g1D9qEOfJWA+Z
kbfkgTMCi+deaxEft1alIn3gX7geKPgWuhM4wSiW2gG09hAQ6aCmiSeV+kcN 6qkykurUTnGtVg3d
yZBCWZ0kNRxEaw8BQQ1asriSqH/UoP2huP/AGYEFfSeyp40eKMhz82cfwxFL rb28wMgHRTpwzmuS
hy9EVM0tfFHaDEwE6TlwRqisHmlPPvmkuIhuZMHT/Gb9uiV967JxGZqgBvpO JFpbCFgzyJo+iVCD
58AZawVlPn2gpwEEBDW8hNYeAq7N1ZNB/a4agtTwBFoHEAA1tMcJr46cMjUw j5SgX8+IUyWo0fXv
0TqAAE3Evffe23p65OwApUPRDOpH1cA/UoJOnRCnSpDKypUrGYdQQKR2BB55 5BGajraOKsC4Ih2Y
h7LIDOoBNdDHnmhAAAj0AgF6eCzEKWPHjh03btyCBQvoYgz9oyt6Ty1ohUZC AwJAoEcIBJNaFYin
hkLDQBgIAIF+IQBq6Nd8wVsg0BACoIaGgMYwQKBfCIAa+jVf8BYINIQAqKEh oDEMEOgXAqCGfs0X
vAUCDSEAamgIaAwDBPqFAKihX/MFb4FAQwiUooYxrzWPsyQSHYqmG2HKVLEa UTuZKtFBQREI9AKB
eGrwp5MMPiKfrcAVtWPSlofIhPFCKr2YXTgJBKIRqIYaaqoaoqPyEBOqhvKo wkIOCFRPDdreK1OR
syczddVNXkySq6bgPB0EH1uKFiw5rBvEmDwC8dTgqsC1HVumsbVfTWzzCcWj qzJOoZolSBZBgeTX
BAIEAoRAKWow63a57YsLuZ+7+tU5cOWkizL89YLrbkSNgKoBqZIhAtVTgwai ufMzk1allWDF4Zq5
YAkQFPA8rWS4XBByPgjEU4O5mWtZpFUNwfQu9EBhFizWOfNnvrUc4JBFPusD kWaLQDw1WD9rMDvV
DwXkU4YsHPw9Ll3/IwbnIcXzMAJqyDYZELiKQClqAJRAAAikigCoIdWZRVxA oBQCoIZS8EEZCKSK
AKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCoIdWZ RVxAoBQCoIZS8EEZ
CKSKAKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCo IdWZRVxAoBQCKVDD
li1bhvNopaa6UmVgXimcXTSWAjUQLSxfvvyGG2646KKLLky0UWjXXHMNhdmR RQTMOzIR9bmRCDXM
mjVryZIlezb/IOEXBUhh1rcUClkmahCYP/fcc2sTbRRapzAvNEHlhROhhosv vliQwvY/3J7kS0RH
YZaf8kosEDWQMy+88MKhQ4deSrRRaBRgdzCvZOL4RhKhhokTJ4rkeTnRJqKj MPlTW6skUQM5s2HD
BsL7QKKNQqMAu4N5rRNqGk+HGnZv+G7a1EABdmeZCmqgkpsqhkTZ+GUKjQLs DuaghsIIiGW6a/Du
3Ru/l2ht+xKFRgF2Z5kKzAcHB9N+oKAAu4N54cQop5BO1bDjqX/dvX7pwUQb hUYBdmeZCmoYGBig
h4lEIT9IoVGA3cG8XKYX1k6HGujTx13PLtlXotEx8yW061Wl0CjA7ixTQQ1P PfXU/v37IyJX/zez
CHWPSoWTSKFRgN3BvHByl1NIhxq2/vaWnQOL95RotKpKaL+qWokR0w0Kbetv v9adZSqoYfXq1ZSl
RUHTIKoWsQqtUWgUYHcwL5fphbXToYYtD1+/46k7d8Y2WlKkKn6WaeUtWEen 0LasvL47y1RQw+OP
P753796icNUEkXCjQuMUGgXYHcwLJ3c5BVDDqwvbSg2y7pWrX+tRC2O5NOXq tAoXTSQhnwM1mHCJ
VFeznTMj6kRoc1EIfFDDuHHjFixYQBwxhv7RFb2nVo5xGtUWO9jQ/VcOr7pj e1SjBST15LXZWbRH
s6mqF3WTQtt8//Tu7GAC88cee4ySrWgsQRyEgGABYVz2eCA1ZVy6TIcpNAqw O5g3mlTr1qVTNWz6
6aXbf/9N+rOfiEarSmrJa7VT3FVrBHHXVNR6pIomXNRJCm3Tf13anWUqqOE3 v/nN1q1bi8ZiAmvC
G8Q2OCPqZMWBT6FRgN3BHNRQGAGxTEtSg7aSrIvJShYap1iZxeSRoumUPDUE SbbQjPitMcEHNSTy
QPH8D7+w7XffeqZ4o2WkKYketT+ix69e1M1tv7t9w4++0J0dTNDxo48+Sn9l UDQWDfAIbOXsuECu
BHwKjQLsDuaF98xyCuk8UKz7zme2/nou/SK6aKNlpKnIHllKSAGtR601VBlx rd01B+K7uvXXN1OA
3VmmghpWrlw5NDTEj8KEUcXEA1ehGakKfAqNAuwO5uUyvbB2OtSwduFZW1Ze /b/NNlqyzQxIoa1d
9NfdWaaCGh588MGNGzc2g0Dzo1BoFGB3MC+c3OUU0qGGwTsmDK34En2k3GQj amhmuKEVlw3eMb47
y1RQAx0tQ3+b2AwCzY9CoVGA3cG8XKYX1k6HGp6Zf9Lm+yf+KtG26f6Ja+af 1J1lKqjhF7/4Ba24
RCH/FYVGAXYH88LJXU4hHWoYuPWETf/9WXo4TLJRaAO3nNCdZSqoYdmyZfRn y0kCTkFRaBRgdzAv
l+mFtROhBjqK5//mHr/xPz+145dTdvzy0pGfSb0oNAqwOycOiVOeKHOefvrp FYk2Co0C7A7mhZO7
nEIi1DBjxoz58+dT8iT8ogCvuuqqctNdmTZRg8D8vqRbpzCvbPJ4hhKhBvq4 aPbs2UTwVP4l2ehE
6ZkzZ/LmtAkpcaI0MG8C65bGSIEaWoIOwwKBlBEANaQ8u4gNCEQjAGqIhg6K QCBlBEANKc8uYgMC
0QiAGqKhgyIQSBkBUEPKs4vYgEA0AqCGaOigCARSRgDUkPLsIjYgEI0AqCEa OigCgZQRADWkPLuI
DQhEIwBqiIYOikAgZQRADSnPLmIDAtEIgBqioYMiEEgZATs1UC8aEAACmSNg P2xe/B9WaEAACOSM
wKj/2I7eoAEBIAAEBAKv/p+XmVdQCB8IAAETgf8HCq1DC05PkXYAAAAASUVO RK5CYII=
------=_NextPart_000_0020_01C745EB.98CF6BF0--

Attached files
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:
Contactar Israel Solis

Columnas en tArrayBrowse

Mensaje por Israel Solis »

This is a multi-part message in MIME format.
------=_NextPart_000_000E_01C745ED.68034940
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000F_01C745ED.68034940"
------=_NextPart_001_000F_01C745ED.68034940
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Gracias Ignacio por contestar.
El problema que planteo es el siguiente, tengo la siguiente funci=F3n:
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * * * * * *
* FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>, <cTitulo>, [, =
<cDescrip>], oForm) -> <aArray>
* DESCRIPCION: Muestra Forma con Browse para seleccionar datos a =
imprimir.
* PARAMETROS: <aArray> =3D Arreglo donde se encuentran las opciones a =
marcar/desmarcar.
* <nSelec>* =3D Posici=F3n dentro del arreglo <aArray> =
donde se almacena si la opci=F3n est=E1 marcada (.T.) =F3 desmarcada =
(.F.)
* <nDescrip>*=3D Posici=F3n dentro del arreglo <aArray> =
donde se almacena la descripci=F3n de la opci=F3n a marcar/desmarcar.
* <cTitulo> =3D T=EDtulo a presentar en la forma.
* <oForm> =3D Objeto FORM al cual se le colgar=E1 el =
di=E1logo a construir.
* Unicas 2 posiciones que ser=E1n mostradas en tArrayBrowse.
* REGRESA: <aArray> Arreglo original si se ha Cancelado la selecci=F3n o =
<aNewArray> si ha aceptado las selecciones establecidas.
*
FUNCTION SelDat2(aArray, nSelec, nDescrip, cTitulo, oForm)
LOCAL aArrOrig :=3D ACLONE(aArray) // Se conserva una copia del =
arreglo original (por si se presiona CANCELAR)
WITH OBJECT tFrmSelDat2():New(oForm) // Forma que muestra el =
tArrayBrowse (imagen)
:cText :=3D cTitulo
:nSelec :=3D nSelec
:nDescrip :=3D nDescrip
:oArrBrw:SetArray(aArray)
IF :ShowModal() =3D mrOk
RETURN(aArray)
ELSE
RETURN(aArrOrig)
ENDIF
END WITH
RETURN(aArray)
*
* FIN SelDat2()
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * * * * * *
CASO #1
La funci=F3n anterior puede ser llamada con un arreglo <aArray> como =
este:
aDBFs :=3D ARRAY(11, 4)
aDBFs[DBF_AUDITOR ] :=3D {.T., 0, {|oProgress| ChkAuditor(oProgress) }, =
"Sucesos del sistema"}
aDBFs[DBF_COMBOS ] :=3D {.T., 0, {|oProgress| ChkCombos(oProgress) }, =
"Opciones de captura"}
aDBFs[DBF_FORM2 ] :=3D {.T., 0, {|oProgress| ChkFormat2(oProgress) }, =
"Formatos de impresi=F3n (detalle)"}
aDBFs[DBF_FORMATOS] :=3D {.T., 0, {|oProgress| ChkFormatos(oProgress) }, =
"Formatos de impresi=F3n (maestro)"}
aDBFs[DBF_NIVEL2 ] :=3D {.T., 0, {|oProgress| ChkNivel2(oProgress) }, =
"Niveles de seguridad (detalle)"}
aDBFs[DBF_NIVELES ] :=3D {.T., 0, {|oProgress| ChkNiveles(oProgress) }, =
"Niveles de seguridad (maestro)"}
aDBFs[DBF_PAISES ] :=3D {.T., 0, {|oProgress| ChkPaises(oProgress) }, =
"Pa=EDses"}
aDBFs[DBF_SETINI ] :=3D {.T., 0, {|oProgress| ChkSetIni(oProgress) }, =
"Configuraci=F3n general del sistema"}
aDBFs[DBF_USUARIOS] :=3D {.T., 0, {|oProgress| ChkUsuarios(oProgress) }, =
"Cuentas de Usuario"}
aDBFs[DBF_USRCAMPO] :=3D {.T., 0, {|oProgress| ChkUsrCampo(oProgress) }, =
"Definici=F3n de campos definidos por el usuario"}
aDBFs[DBF_USRFIELD] :=3D {.T., 0, {|oProgress| ChkUsrField(oProgress) }, =
"Valores en campos definidos por el usuario"}
En este caso quiero mosrar las posiciones 1 y 4 del arreglo en el =
tArrayBrowse:
aDBFs :=3D SelDat2(aDBFs, 1, 4, "Verificaci=F3n de informaci=F3n")
CASO #2
Ahora imaginemos este arreglo:
aColumnas :=3D ARRAY(8)
aColumnas[ 1] :=3D {.F., "No. Consecutivo",{"99,999", NIL}, 6, taRIGHT, =
..F., {2, 1}, .F., 1, 1}
aColumnas[ 2] :=3D {.T., "Fecha", {NIL, NIL}, 14, taLEFT, =
..F., {2, 1}, .F., 2, 2}
aColumnas[ 3] :=3D {.T., "Hora", {NIL, NIL}, 8, taLEFT, =
..F., {2, 1}, .F., 3, 3}
aColumnas[ 4] :=3D {.F., "Usuario (clave)", {NIL, NIL}, 7, taLEFT, =
..F., {2, 1}, .F., 4, 4}
aColumnas[ 5] :=3D {.T., "Usuario (nombre)" {NIL, NIL}, 13, taLEFT, =
..F., {2, 1}, .F., 5, 5}
aColumnas[ 6] :=3D {.T., "Proceso", {NIL, NIL}, 13, taLEFT, =
..F., {2, 1}, .F., 6, 6}
aColumnas[ 7] :=3D {.T., "Evento", {NIL, NIL}, 6, taLEFT, =
..F., {2, 1}, .F., 7, 7}
aColumnas[ 8] :=3D {.T., "Detalles", {NIL, NIL}, 15, taLEFT, =
..F., {2, 1}, .F., 8, 8}
En este caso quiero mostrar las posiciones 1 y 2 del arreglo en el =
tArrayBrowse:
aColumnas :=3D SelDat2(aColumnas, 1, 2, "Verificaci=F3n de =
informaci=F3n")
Entonces, tomando estas variantes =BFcomo puedo indicar a la =
tArrayBrowse que columnas del arreglo recibido va a mostrar?, de =
antemano el tArrayBrowse ya fue dise=F1ado en el IDE con solo 2 =
columnas, pero necesito indicar que posiciones (columnas) va a mostrar =
del arreglo pasado en tArrayBrowse:SetArray(aArray)
Espero a ver sido claro, de antemano MIL GRACIAS!!
Israel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45c1b28b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Israel,=20
No tiene m=E1s que crear las columnas en el browse antes de hacer la =
llamada a TArrayBrowse:SetArray()
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribi=F3 en el =
mensaje news:[email=45c0e0aa@news.xailer.com...]45c0e0aa@news.xailer.com...[/email]
Hola Foro:
Tengo una duda (quiz=E1 demasiado tonta pero no logro darle al =
clavo):
He creado un Form en el cual muestro un tArrayBrowse para mostrar y =
permitir al usuario seleccionar informaci=F3n.
En este tArrayBrowse quiero mostrar solo 2 columnas de un array de =
<n> columnas
Como esta forma puede ser llamada desde cualquier funci=F3n, el =
Array puede varia en dimensiones, entonces, la idea es especificar que =
datos del array quiero mostrar en esas 2 columnas
Entonces...
=BFC=F3mo puedo definir las columnas que deseo mostrar en un =
tArrayBrowse con un Array de <n> columnas?
Gracias!!
------=_NextPart_001_000F_01C745ED.68034940
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.3020" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Gracias Ignacio por =
contestar.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>El problema que planteo es el =
siguiente, tengo la=20
siguiente funci=F3n:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys><FONT size=3D2><FONT color=3D#808080>* * * * =
* * * * * * *=20
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *<BR>* =
FUNCION:=20
SelDat2(<aArray>, <nSelec>, <nDescrip>, =
<cTitulo>, [,=20
<cDescrip>], oForm) -> <aArray><BR>* DESCRIPCION: Muestra =
Forma=20
con Browse para seleccionar datos a imprimir.<BR>* PARAMETROS:=20
<aArray>Â =3D Arreglo donde se encuentran las opciones a=20
marcar/desmarcar.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂ&nb=
sp;ÂÂÂ=20
<FONT color=3D#ff0000><STRONG><nSelec>*</STRONG></FONT >Â =3D =
Posici=F3n=20
dentro del arreglo <aArray> donde se almacena si la opci=F3n =
est=E1 marcada=20
(.T.) =F3 desmarcada=20
(.F.)<BR> *ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nb=
sp;Â=20
<FONT color=3D#ff0000><STRONG><nDescrip>*</STRONG ></FONT>=3D =
Posici=F3n dentro=20
del arreglo <aArray> donde se almacena la descripci=F3n de la =
opci=F3n a=20
marcar/desmarcar.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂ&nb=
sp;ÂÂÂ=20
<cTitulo> =3D T=EDtulo a presentar en la=20
forma.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&n=
bsp;Â=20
<oForm>ÂÂÂ =3D Objeto FORM al cual se le colgar=E1 =
el di=E1logo a=20
construir.</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys><FONT size=3D2><FONT color=3D#808080><FONT=20
color=3D#ff0000><STRONG>* Unicas 2 posiciones que ser=E1n mostradas en=20
tArrayBrowse.<BR></STRONG></FONT>* REGRESA: <aArray> Arreglo =
original si=20
se ha Cancelado la selecci=F3n o <aNewArray> si ha aceptado las =
selecciones=20
establecidas.<BR>*<BR></FONT><FONT color=3D#000080>FUNCTION</FONT> <FONT =
color=3D#0000ff>SelDat2</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray, nSelec, nDescrip, cTitulo, oForm</FONT><FONT=20
color=3D#ff0000>)</FONT><BR>Â <FONT color=3D#000080>LOCAL</FONT> =
<FONT=20
color=3D#008080>aArrOrig</FONT> <FONT color=3D#ff0000>:=3D</FONT> <FONT=20
color=3D#0000ff>ACLONE</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT color=3D#ff0000>)</FONT><FONT =
color=3D#808080> //=20
Se conserva una copia del arreglo original (por si se presiona=20
CANCELAR)<BR></DIV></FONT></FONT><FONT size=3D2></FONT></FONT>
<DIV><FONT face=3DFixedsys size=3D2>Â <FONT color=3D#000080>WITH =
OBJECT</FONT>=20
<FONT color=3D#0000ff>tFrmSelDat2</FONT><FONT =
color=3D#ff0000>()</FONT><FONT=20
color=3D#008000>:New</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>oForm</FONT><FONT color=3D#ff0000>) // Forma que muestra =
el=20
tArrayBrowse (imagen)</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:cText</FONT> <FONT color=3D#ff0000>:=3D</FONT> <FONT=20
color=3D#008080>cTitulo<BR></FONT>ÂÂÂ <FONT=20
color=3D#008000>:nSelec</FONT> <FONT color=3D#ff0000>:=3D</FONT> <FONT=20
color=3D#008080>nSelec</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:nDescrip</FONT> <FONT color=3D#ff0000>:=3D</FONT> <FONT =
color=3D#008080>nDescrip</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:oArrBrw:SetArray</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT =
color=3D#ff0000>)</FONT><BR>ÂÂÂ=20
<FONT color=3D#000080>IF</FONT> <FONT =
color=3D#008000>:ShowModal</FONT><FONT=20
color=3D#ff0000>()</FONT> <FONT color=3D#ff0000>=3D</FONT> <FONT=20
color=3D#008080>mrOk</FONT><BR> ÂÂÂÂÂÂ =
<FONT=20
color=3D#0000ff>RETURN</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT =
color=3D#ff0000>)</FONT><BR>ÂÂÂ=20
<FONT =
color=3D#000080>ELSE</FONT><BR> ÂÂÂÂÂÂ =
<FONT=20
color=3D#0000ff>RETURN</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArrOrig</FONT><FONT color=3D#ff0000>)</FONT><BR><FONT=20
color=3D#000080>ÂÂÂ ENDIF<BR>Â END =
WITH</FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys color=3D#000080 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT =
color=3D#0000ff>RETURN</FONT><FONT=20
color=3D#ff0000>(</FONT><FONT color=3D#008080>aArray</FONT><FONT=20
color=3D#ff0000>)</FONT><BR><FONT color=3D#808080>*<BR>* FIN =
SelDat2()<BR>* * * * *=20
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* *=20
*<BR></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys color=3D#ff00ff size=3D2>CASO #1</FONT></DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000>La funci=F3n anterior puede ser llamada con un arreglo=20
<aArray> como este:</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT face=3DFixedsys =
color=3D#000000>aDBFs :=3D=20
ARRAY(11, 4)<BR>aDBFs[DBF_AUDITOR ] :=3D {.T., 0, {|oProgress|=20
ChkAuditor(oProgress) }, "Sucesos del =
sistema"}<BR>aDBFs[DBF_COMBOSÂ=20
]Â:=3D {.T., 0, {|oProgress| ChkCombos(oProgress) }, =
Â"Opciones de=20
captura"}<BR>aDBFs[DBF_FORM2ÂÂ ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkFormat2(oProgress) }, "Formatos de impresi=F3n=20
(detalle)"}<BR>aDBFs[DBF_FORMATOS]Â:=3D {.T., 0, {|oProgress|=20
ChkFormatos(oProgress) }, "Formatos de impresi=F3n=20
(maestro)"}<BR>aDBFs[DBF_NIVEL2Â ]Â:=3D {.T., 0, {|oProgress|=20
ChkNivel2(oProgress) }, Â "Niveles de seguridad=20
(detalle)"}<BR>aDBFs[DBF_NIVELES ]Â:=3D {.T., 0, {|oProgress|=20
ChkNiveles(oProgress) }, "Niveles de seguridad=20
(maestro)"}<BR>aDBFs[DBF_PAISESÂ ]Â:=3D {.T., 0, {|oProgress|=20
ChkPaises(oProgress) }, Â "Pa=EDses"}<BR>aDBFs[DBF_SETINIÂ =
]Â:=3D=20
{.T., 0, {|oProgress| ChkSetIni(oProgress) }, Â "Configuraci=F3n =
general del=20
sistema"}<BR>aDBFs[DBF_USUARIOS]Â:=3D {.T., 0, {|oProgress|=20
ChkUsuarios(oProgress) }, "Cuentas de =
Usuario"}<BR>aDBFs[DBF_USRCAMPO]Â:=3D=20
{.T., 0, {|oProgress| ChkUsrCampo(oProgress) }, "Definici=F3n de campos =
definidos=20
por el usuario"}<BR>aDBFs[DBF_USRFIELD]Â:=3D {.T., 0, {|oProgress|=20
ChkUsrField(oProgress) }, "Valores en campos definidos por el=20
usuario"}<BR></FONT></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT face=3DArial =
color=3D#000080><STRONG>En este=20
caso quiero mosrar las posiciones <FONT color=3D#ff0000>1</FONT> y <FONT =
color=3D#ff0000>4</FONT> del arreglo en el=20
tArrayBrowse:</STRONG></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT color=3D#000000><FONT=20
face=3DFixedsys><FONT color=3D#008000>aDBFs</FONT> <FONT =
color=3D#ff0000>:=3D</FONT>=20
<FONT color=3D#0000ff>SelDat2</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008000>aDBFs</FONT><FONT color=3D#ff0000>,</FONT> <FONT=20
color=3D#ff0000><STRONG>1</STRONG>,</FONT> <FONT=20
color=3D#ff0000><STRONG>4</STRONG>,</FONT> <FONT =
color=3D#ff0000>"Verificaci=F3n de=20
informaci=F3n")</FONT></FONT></DIV></FONT></FONT></FONT >
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff00ff size=3D2><STRONG>CASO =
#2</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ahora imaginemos este =
arreglo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2>aColumnas :=3D =
ARRAY(8)<BR>aColumnas[ 1] :=3D {.F.,=20
"No. Consecutivo",{"99,999", NIL}, 6, taRIGHT, .F., {2, 1}, .F., =
1,=20
1}<BR>aColumnas[ 2] :=3D {.T.,=20
"Fecha" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nbsp=
;ÂÂÂÂ{NIL,=20
NIL}, 14, taLEFT, .F., {2, 1}, .F., 2, 2}<BR>aColumnas[ 3] :=3D =
{.T.,=20
"Hora" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂÂ=
ÂÂÂÂ=20
{NIL, NIL}, 8, taLEFT, .F., {2, 1}, .F., 3, 3}<BR>aColumnas[ =
4] :=3D=20
{.F., "Usuario (clave)", {NIL, NIL}, =
7,Â=20
taLEFT, .F., {2, 1}, .F., 4, 4}<BR>aColumnas[ 5] :=3D {.T., "Usuario=20
(nombre)"ÂÂÂÂÂ{NIL, NIL}, 13, taLEFT, =
..F., {2,=20
1}, .F., 5, 5}<BR>aColumnas[ 6] :=3D {.T.,=20
"Proceso" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nb=
sp;Â=20
{NIL, NIL}, 13, taLEFT, .F., {2, 1}, .F., 6, 6}<BR>aColumnas[ 7] =
:=3D {.T.,=20
"Evento" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nbs=
p;ÂÂ=20
{NIL, NIL}, 6, taLEFT, .F., {2, 1}, .F., 7, 7}<BR>aColumnas[ =
8] :=3D=20
{.T.,=20
"Detalles" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&n=
bsp;=20
{NIL, NIL}, 15, taLEFT, .F., {2, 1}, .F., 8, 8}<BR></FONT></DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT face=3DFixedsys =
color=3D#000000>
<DIV><FONT face=3DFixedsys size=3D2><FONT face=3DArial =
color=3D#000080><STRONG>En este=20
caso quiero mostrar las posiciones <FONT color=3D#ff0000>1</FONT> y =
<FONT=20
color=3D#ff0000>2</FONT> del arreglo en el=20
tArrayBrowse:</STRONG></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT color=3D#000000><FONT=20
face=3DFixedsys><FONT color=3D#008000>aColumnas</FONT> <FONT =
color=3D#ff0000>:=3D</FONT>=20
<FONT color=3D#0000ff>SelDat2</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008000>aColumnas</FONT><FONT color=3D#ff0000>,</FONT> <FONT=20
color=3D#ff0000><STRONG>1</STRONG>,</FONT> <FONT=20
color=3D#ff0000><STRONG>2</STRONG>,</FONT> <FONT =
color=3D#ff0000>"Verificaci=F3n de=20
informaci=F3n")</FONT></FONT></DIV></FONT></FONT></FONT >
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Entonces, tomando estas variantes <FONT=20
color=3D#ff0000><STRONG>=BFcomo puedo indicar a la tArrayBrowse que =
columnas del=20
arreglo recibido va a mostrar?</STRONG>, de antemano el tArrayBrowse ya =
fue=20
dise=F1ado en el IDE con solo 2 columnas, pero necesito indicar que =
posiciones=20
(columnas)Âva a mostrar del arreglo pasado en=20
tArrayBrowse:SetArray(aArray)</FONT></FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Espero a ver sido claro, de antemano MIL=20
GRACIAS!!</FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Israel</FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV></FONT></DIV></FONT ></FONT>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> escribi=F3 =
en el=20
mensaje <A=20
=
href=3D"news:45c1b28b$1@news.xailer.com">news:45c1b28b$1@news.xailer.com<=
/A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Israel, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No tiene m=E1s que crear las columnas =
en el browse=20
antes de hacer la llamada a TArrayBrowse:SetArray()</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
=
href=3D"mailto:isolis_antispam_@sanroms.com">isolis_antispam_@sanroms.com=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:45c0e0aa@news.xailer.com">news:45c0e0aa@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Hola Foro:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tengo una duda (quiz=E1 demasiado =
tonta pero no=20
logro darle al clavo):</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He creado un Form en el cual =
muestro un=20
tArrayBrowse para mostrar y permitir al usuario seleccionar=20
informaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>En este tArrayBrowse quiero =
<U>mostrar solo 2=20
columnas</U> de un array de <n> columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Como esta forma puede ser llamada =
desde=20
cualquier funci=F3n, el Array puede varia en dimensiones, entonces, =
la idea es=20
especificar que datos del array quiero mostrar en esas 2=20
columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Entonces...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=BFC=F3mo puedo definir las =
columnas que deseo=20
mostrar en un tArrayBrowse con un Array de <n> =
columnas?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:000901c7461f$af5b5f80$[email=4001a8c0@isolis]4001a8c0@isolis[/email]"=20
align=3Dbaseline =
border=3D0></DIV></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML >
------=_NextPart_001_000F_01C745ED.68034940--
------=_NextPart_000_000E_01C745ED.68034940
Content-Type: image/png;
name="ArrayBrowse.PNG"
Content-Transfer-Encoding: base64
Content-ID: <000901c7461f$af5b5f80$[email=4001a8c0@isolis]4001a8c0@isolis[/email]>
iVBORw0KGgoAAAANSUhEUgAAAV4AAAF8CAIAAAAILURwAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAMDpJREFU
eF7tXWusnlWVLhp/mHgPP2DKGB0ErTiMiECLojCDjBGUjDgUUopFSqVFaIEC LQpFa3GGuWDbgQbr
6HhLyDhBMynRlksT8JI4RDOUAs4ph9KWtofS9vR+A5nVs2Gzz76ud7/3vZ+d ryfvt9+11l7r2Xs9
e73f+c7uEWPGjFm3bh39pPbud7/7uOOOE9doQAAIZIXAQw89NCpe4gXRiBTO PvvsOXPmzJ8/fwEa
EAAC2SBAKU+JT+lPJCAJ4XDJQO3EE0+86aabCAqSuO6662aiAQEgkA0ClPKU +JT+RAJEBYITDlMD
UQV1UfsKGhAAAhkjIHhA1A6HqYEKCSKMGWhAAAhkjwBRARHCYWoghqBaYvbs 2dljAgCAABCYQVRA
hHD41xH0jz6EIEiuQAMCQKC3CFAKX3jhhX9TvJGWmv50TYTwKjVQCTFt2rTe YgLHgQAQuIIyfOLE
id+bPmXvP8/e88837P6Xm3aOvIbvnKO+RCfdJRmSJHnSIl2JIFEBEcLr1HC5 t13xpS/5BXAXCACB
dhGgcuH707+4Y+6lz9867bl505+57aqBb1z9x/kz6bX6m9eKl3hL/XSXZEiS 5EmLdFXnR1HDFHe7
bMqUqZMnewRwCwgAgdYRoPTe8Y/Xrf/q5fR69mvTBm658ul505+69arV8655 4hvXrPr61fSTrqmH
+ukuyQhh0iJd1f9R1HCpu31l6rTJkyd7BHALCACB1hGg9B7+h2vXzZmy7sbJ 6+Z88dmbpgzOvXzg
5qkDX73i6ZunPX3zl+knXVMP9dNdkhmRnEJapKv6z6WGJXPmTJo48S1vecvb 3va2t771rccff/wl
l1zy9re/nd6+853vbB0ROAAEgAAhQOm97faZz86etGH2xfTa9dsHX3nlFXGt vaif7opOkictHzVM
crc/3DZX3HzjG99IBCGuzz333A9+8IMerV7fIux67T+czxCBw1XDN7/y7KyJ G679e3rRGhZNvJUv
rZ/kSYt0VcRGVQ30EaWrDX35InHrggsuoL++OOecc+j6TW96k0teju2xKWQ8 AsxbVdlRhxOOHXvU
kX4f5NB1+MAMH2JAQCJwuGqYP/2Zqz+/Ycb54vU6C7h7SJ60SFdFchQ1fMHR 6Ncag+eeKW9+6EMf
InY48sgjXfLCG8orcREUcwnw+2ksevHlOZIcgzJSMliHDxw/IQMEJAKHqeHW aYNXfm7DlZ+Wr9fZ
4cpPq9dSgORJi3RVJEdRwxmO9tNb5j5+2kfUm294wxve9a53ueRlwpCASBi6 kD7RhVBUxcy7VhWP
HdWmsGb2yE6XcVVFk3HpqiTo8iEYi4akRMNE2AVjXMgea55YXPOO/tYRGD9+ /LZpn37ylD9be9rR
6kudaLrW7pI8aZGu6j+LGnYtvOmxk06UaqeffvpRRx1FhcPJJ5/sZwd5V7KA LCVUavDftarUYcf0
lumYdEa94Lst2VMFU1X3OMb0UEXbBZ1gcGpBgdYTAA64EKCUHJ72qT+ecvTg KUdpL8kO5i2SJy0t
nUdRw8ds7Z7p01+cMfGxU06SN4kU6Proo48WF64mXBF3NdJSd1q5EFUZNceE BZE/MhOsnepdee3p
1EaUgXB0yRkZl5UaTA+tAUqIVBj5jvmBNT30gKxGZEVACKB1GQH6Y+qdV5y9 5tSj1owf9dLWiXaX
5EmLdNXQRlEDVRRamzB+wvAtUzd/cjxRg7hFv7k89dRTxTVRA/3+0tSSPcIh eqtubiLJXTuteVe1
L+1YO9W75uJW3bD6o7mtemjVtXb6PZTR0YVUFxD5R9fuCm7VihQrdCYOqg+a t6awNRzPjONWuwic
cMIJe6aeRXXBwITXX5IXqFNcv7RzWBUgedIiXdX5UdRAOa+1Z2dMeuGS84bO O2vVR//qlA9/+M1v
fjPRwTHHHENi73nPe4444gh6+453vEPTEsNTp7nUZCf/rlWFaUdNnuCIMgqP 20GDUjfothhOldd6
PLdEemvqJuzBkLUhPNRgrg30dBCBD3zgAwdmnLPxk3++8cxjxEvygqeH5EmL dNWIfNTw6L/d8T+f
/duZnzjrjAmnf+LjZxQCQjqkLWJ1uzaTx3o32Glmo6pi3lWTSjPuSU7XKGID 9/sgIzUdE+rCJY2b
TGrQ7KjexoXsYh8rORZaABBuBQH6g6iD156/6dz3bzr3OHrJNBRv5cvofz9p ka6TGj6qtG98edpH
Tz78/pNnnnnXj+497eNnnHnOp2fcMHfh0v+Yef0NEyZMkLI/X/GwqiivZeFq 9tAtrZPeqoUuR0XI
C0nz2n9X1VIlXV75RxFu+H2wBmhC5A/czH9XIHHgWK1Z8bHOODpbR4DS+9BX Jw1NmjA0eTy99jz8
M1oz4lp7UT/dfbVz0gTSIl3V/1FVw0cc7eRTTtHunPaxj18wecrNt99x6fSr PnLyyS5F9FeOgOR7
WW5UPgQM9heB973vfYe+deWWq8/fcs1nt8w6b8usc7fM+gy9Ns08b/3Mz627 9vP0k65F58jd8w5L
Xn0+aZGuGvgoavgwWh8QUMurPvgLH5tD4Nhjjz24eO62eVO3ff3yrfMuO/y6 bcqL8y574euXb543
ddO8K+gnXVMP9QsBkiR50iJd1dFR1EC/vUADAkCgvwhQev9o+qUH/mnW8Ldv 3P7t2cN33vDi4deN
Ww6/5my+82b6SdfUQ/1097DMt28kedIiXTXwUdTwl2hAAAj0HAH65tIPZ3zx wH1LD933Hfq5b+S1
92ff3fvzf9/9s+/TT7oWnVKG5ElLi3sUNdAvNtGAABDoLwK07dOfOP2F0agi oEbd8kITIS3SVQMf
RQ3j0IAAEAACIwiAGrAQgAAQsCDwKjWMHTuWrug+XaABASCQOQKiaiAQxkhq oC75P2HiAggAgQwR
IDYANWQ47wgZCAQQADVgiQABIGBBANSAZQEEgACoAWsACAABHgKoGng4QQoI ZIYAqCGzCUe4QICH
AKiBhxOkgEBmCIAaMptwhAsEeAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOk gEBmCIAaMptwhAsE
eAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOkgEBmCIAaMptwhAsEeAjEUwP9 P5fqENpb3ugBKZdN
sz9idKESoVhraIWMk/MyCnEtewrZ8Qh7pqAt6OoLre8RVYWMsJM7NVSLZsPW 5FJuZU23MmiFCFey
wVToT9dMgRq6NiMF/AE1FADLEAU1+NGrhRrMytYsdz3Vb1DYKiDi5JiVkuoD BV9RAury0+WJWu2r
WW32a88FLt+C1KBZ9syLGZSKkhVYLbVMNEwtqz/aAlWd9OPgt6YFa5oKzqMa oGus+jwsw3qV6Jai
BnU1WMtL0alBbC4FtccU5vd4BnIZCXoYYdMaspbGrnGtNKEuYitWrrS0kqDm nl/Gg49JDS4/5Yie
RWLqeohP84qzwFze8leXGUWtHlaS3mWMlKIGT0pr3G+deI3XtW3Kup48GaXu URqXB5PBumRd/lgT
wFysZroWWoVq+NbMV4Ny+e/KGXVNu2YqSCscatA81/zxLwAz8VzWXIwTXIQu EufMnRX/qjwsk9JV
6VZPDXEJwMm3IFkwM9xc9EzFYDJ4thGNaPwc50pLbdaDw7nogzN6eWrwrAQX Z7nyzZXDJn3zNxiO
pHXzs3JWtR5Wld5l7CRLDcw0diWJh6o4LBbMCk5y8n1zbZv+9OaTuDWTmQhb faiPGoLAlne7JDUE
PSyTzxXqVk8Ngj7VWo7Zo6acS12uM1NAu2ViZFVRp1kIBBX9fpp3tR6zfFDH dSWh1TfTeU1Ms6wh
4J8Xv5/aJmk1ZXZq0Zn+eKoGpjXX7Jj5zF9vcmgTExdK1vy3zo7sdDGOCXWF +e8xFU8Ncf5Zcy/O
VOtarcdSyIFCwhxsNYOV2+f4AJn6EGiCGswior54mrTcejK4yhwrCNV6aw5d rf0m5xFjWRFoghoA
PRAAAr1DANTQuymDw0CgCQRADU2gjDGAQO8QADX0bsrgMBBoAgFQQxMoYwwg 0DsEQA29mzI4DASa
QADU0ATKGAMI9A4BUEPvpgwOA4EmEAA1NIEyxgACvUMA1NC7KYPDQKAJBEAN TaCMMYBA7xAANfRu
yuAwEGgCgXhqWIYGBIBAfxB45ZVXCjFKKWqgwdCAABDoPgLEYE1TwwAaEAAC zSIwPDw8ODh49913
P/DAAyu8bfny5YsXLyZhUEOzU4TRgEAbCBA1LF26dM2aNZxqhcRIuK/UsHbt +vIIV2KkvBuwAASK
IlB06Qpq4PCCkOkxNTzyyCNF0TTlKzFS3g1YAAJFESi6dCU1vMxooIaBovgW nb9k5OmktmRiSSOQ
oktXUsNeRgM1gBpYaQJeYMHUrFA0NRBHqG3S1Ou1HnqbPjWoZ89aJ64ovs3O fu9H0zgFFFPhjBZa
uoS8rBqGlEa8IF5qJ10nTg2cdVkI3wrntV+molM6WrFf+LTibdGlK6lh7WtN 8oK4kP10kRc1oGqI
XsHRGR6tGO1qPorR1PD0SJO8oF2Lu6AGfNbASiUzw0WPeF4zTbie46x2gkZY LuYnFE0Nq1atkrxA
16JpPblQg1yp+OVlXAa5UlpY8zy4+Z/p1Lt8I3EhpKcVTQ2PjzTiAnEhm9qT CzVYV7DoLIpveiuM
E5GraqiQGjQ31LoDTyWVPAvLzxo0RrC+BTWAGjjMoNcFWqXA3/A5Hwx7eJzl azZCRXc1UMPrS0Or
V62bT1F8s1l4owJtoGrg80ueU1D+WRjUoK9p+SkXqCE6qQpRg6gprJ/v4GPI 6CkANRSArpINvxIj
BZyGKBCoCIGiS1dUDevXr1e/v+C6JjH8eVUFf6NV0VzDDBAogEAENRA7LFq0 6MeMtnDhwi1btvT1
j7KLQlPJx7wFpg6iQKBOBIquf0r1HTt27Bxpu3bt2r179549e/bt27d///4D Bw4cHGmHDh166bUG
akDVUOf6he3aEAA1OKEtCg2qhtpWKQy3gEDR9Z9R1VD0lBvr7FVipIV1gSGz R6Do0s2IGrJfGwAA
CBRAANRQACyIAoF8EOgHNdBjEhoQAAJNItAPaij0/+FYhSN+41p+UFgAAv1F ANTQ37mD50CgRgRA
DTWCC9NAoL8I5EsN9Kc7x/zdbcFXf6cWngOBMgjkSw1ECuvWPSNe69c/+/zz z23atP6FFza++OLQ
9u0v7tixfdeuHSMyaEAgRwRADU5e2LNnV5AatMOFOrKCyCu/J0GBMoFoxplj CTEVz2gfpCmrBaY/
0aMno5g7NVjrhff+4L3EC/v27eVQQx1LoeTyDaoHBaoKijmQFFPl/bqeu35q EARUVYAJ28maGly8
QNRAvHDgwH5QQzNL30oN/hwGNdQ9NVlTg/h8gYhAfr5A1+JFvHDw4IE4apBV sZg88VatltVOVUbN
EO1a206tiWFW45oncjFZjUs/rYW99a5q0ExvEwczcBm+dmG+daGqASsJxQ9g 3XmVgP2sqUF87ii4
gD531HjhpZcOcajBmgDqyrbmjDUTrMtay2fOBmtW1BqVBF0yC3vruNpA6lur haDzQT9NiNQkNB0w
3cADBZO2sqYG8fsIyQhqvUC8QP91OIcaNKA5SeXZYK3J5t9arRustvMHU05z yR+FtTxxUZg1mYP+
mCFrg2oeqgStEYTfW2aeZCiWNTW4niMEL/zpT39qhho4bKLtdVpqWe+aMtYH CivvMF0yd2wPEVg3
cOYDhSdel6tm6WSGn2HC80POmhrk9xfo9xHy8wXJCwRiB6khWJPH7dKFqgb/ M46Zk64eD1V5qDBY
WPmfa/BAwWSHrKlBfK9J/J5SfO6o8kIcNaiVvGtLDD5QqMtXLZWlQWtFYK2c RafrqcfqifYwYn1g
0cyqb1Wb1n4zOU0Vq8/moCog8q7JHS5FZpLkKZY1Nfh5gUMNqS4az8NIHSGn PVwdiDVgM2tqCP4B
RfCBooEZamWIhnO1ySK/+dBamcHyg+ZLDeWxgwUgkDACoIaEJxehAYF4BEAN 8dhBEwgkjEBe1PAK
GhAAAjwEQA08nCAFBDJDANSQ2YQjXCDAQyBfaqBfYnF+ecmDEVJAIDUE8qUG 5gFwqU044hmNAO0Q
gMSKAKghcACcf92o303uziILehIUKJMtmnHmWELMFGaqV+hwGVMp6eZODcED 4ILUUMdqKJkPQfWg
QFVBMQeSYtVSQ9HRq4o6DTtZUwPnADhQQwMLXaUGNZ9FURbtAFOXKRbtRk8V s6YGzgFwEdQgnzKE
rlzfar+26F0qUp2TMOrTjTq0Zyt2ueQy5TKrhqPluVYRWLOdSQ0aSkFwNOQ9 zvc0e2t1O2tq4BwA
F6QGM6uliljxZrUcrJ+tAi5rcsW7xjWf4YMuaUxkjUJ2msmvjSg9dwXusWDd 0jUo/J74nTfRqzXf
emQ8a2rgHAAXpAZNgJNU1szUNnBXwpt57qEGc/PXhF0c4Y/CWlMEicm0qalo GW7Nf7PMCVJzkBqs
7NOjHK7J1aypgXMAXAPUwGET6z6s+uYxYoZQVdVgdSC4pUdUMa4yxDo7wehc /FhTjvXUbNbU4D8A
jmaUvvvQNWoI1uRmdR2RioXYiv9AYZYJzComSA3Wpy0PR7hKiZ6mcR1uZ00N ngPgBNYR1CDWnGiF
1r1HS7Um7VtrAdOIpst0KfjI4HFJDdyKA4eqrCRi9coPjuepxMVTdaRZH21m TQ2uA+DkRAapoY9T
zvG54cfvhodTEWhxaM5EtCiTNTXgbyhcK6/5hGl+xBazrhdD50sNvZgeOAkE 2kIA1NAW8hgXCHQa
AVBDp6cHzgGBthDIixoSPskPoQGBahEANVSLJ6wBgUQQADUkMpEIAwhUi0C+ 1EC/LeP88rJauGEN
CPQFgXypgXkAXF8mEn4CgWoRADUEDoDzw02lhyog32r9HiN8SdMIR1d+ubiq dWMOynRDc0BoxVkr
EwvH2zL2k9HNnRqCB8AFqUFdahHLLkJFuhTULekbc5UH3TApwMOhHGsux5i6 TDFm+KmKZU0NnAPg
kqGG+lYwJ9M85ZXGXxxroIb6ZlNazpoaOAfABalB3RK1zdC6aWsVvqoibqlF gTVPpAWPrjDiSjPz
KUOzaXoufTMHDYagxaUh5gnZ46cVJdVJv1cNpFbfh8iaGjgHwFVLDdaU03JY yGgsY32I0CRdj+4m
42jWXF6p/MJhvaBZMwo1BDOcoEGXV1b0XJD2PYdr8j9rauAcAMehBpmT5uIz 89y6P6ud/hXs2s/N
DVbz3Lrbu8jFQxYePrKGZq1frClttazGFUTJhb/mgxpdTXmVgNmsqYFzAByT GgQ7cKjBmrGuxWr2
+3d4j7cexvHbNNnNX+aYRGmWM54c9mz4QZRADRVSUtbU4D8AjlAe+e6Dr2lJ 5VnW5uapplxwl457
oDDNFs1qyXfWfd76xNEMNfgJyz8RqBo4DJI1NXgOgBPYFaIGNeusOSkTyVVf qP1aGaLOpVpXW21a
hf2dLptmnqtZJ7U0NzwyGkUGyyLXECpXBqseE1hObmQukzU1uA6Ak2siSA3p rZ5mdtRmRnHNTruj
92XNZE0N+BsK127fwPJtKz/bGrcBSKsdIl9qqBZHWAMCiSEAakhsQhEOEKgG AVBDNTjCChBIDIG8
qKGtY/YwLhDoHQKght5NGRwGAk0gAGpoAmWMAQR6h8Dw8PDLL7+8ZMmSh0a3 FStWaD30lsRIftmy
ZRRmoQersWPHjhs3bsGCBXQxhv7RFb2nFrQSMZjVprCjNvolFueXl72bUTgM BCpBgFJ96dKla9as
4VgjMRKOyNYuUgPzADgOLpABAukhIKiB4tq/fz9dU9s20oaGhp4baQMDA6tX r161atUTTzxBYglS
g/VAF/FFyeB/h0ulh1aJiLdav2fd8CVNIxxd+UXjqtauOSjTDbNqE0CV91A4 4HKD415V4KRkx6SG
rSNt8+bNWVBD8AA4/2SLZS1lIlZhhAp/uJK+MRc6JwQOh/rteO76qaEQUzND zkFMowYzZKoannzy
yTSrBs4BcMlQQ32ruSpq8OcwqKG+GbRaNquGe4yW7AMF5wC4IDWoC1ouX3Mf U2+ptYarXxbb1ucI
rQh31eSeGtusd1QjZrkh5U2HgyFoY1kRMx/ErDFKMRNDvxsN51UCw2VdNXAO gKuWGqwpp+2WGq24
SnGp5X9qMFnD5YOanB4ZD+tpTzoexzQONR+R/E5aB/LTcQK52nAInKoh2QcK zgFwHGows9RVPshE
1TZhs99VXbv2c1fhYM06dTg/MblCs6Z90KyfArRqwm/NrHEkNWiK/ueUhvOt R8NxqoZkHyg4B8Ax
qUGr/z3UoBk09zpVQCsZgmns8da1UQdtWquYuNKjEDVYgfJ460HShLFHKdqW q1lXDf4D4GhKCv3y
UhYC1uWrlutm6R4s4M2kMvdzc3t07e2aNf/ojVGD6wHE6oALw2DIbWVa78bN umrwHAAnJrIQNWj1
sDWZZXFh7uHmE4HKNVopoQl7niast1xjaeym5qTHYfWWyzFt3/aoqLhpCLi0 TO5wKfYuP1t0mFM1
JPtA4ToATs5HkBpanLmahm6m9m5mFBc71wRdYmZdX3lSvw2Z7MeQ+BsKWZZ7 6o6aVnxj7NDYQDUB
1ZbZfL8N2RbiGBcI9AIBT9Ug/oIx2b+h6MX0wEkg0BYCghrWr1//FKORWDp/ XtUW4hgXCPQCAaKG
nTt3Llq06Meh9pOf/OSuu+7q93kND6MBASDAQyCvU554mEAKCACBh0ENWARA AAhYEMiXGuh3Wpxf
XmLVAIE8EUiBGijJmWdMqnPMPAAuz2WBqIFAItQQZAdxoKWVGvwHwAWXiPpp c1BYFdD8KaTbgHB0
XA34hiEaQCAdavCzg4saggfA+edAS++OZzt/PUXHlQwCfKxSlUyKGjzsYKUG zgFwoIZCSx/UUAiu
LgsnRQ2eTxys1MA5AC6OGqzVuOwUNmUWWftFpxxdkxHqZh4yx3UNrQ5nDdx0 1dqjRievVYfNcLqc
JHn6lg41+D+JtFID5wC4aGrQ0kzLczVhTEk1dV1ppvGL+dZKHJo1FxcEN38h 4ArKf0uFNDhQnmnZ
hagToYa431BwDoCrgxrUNPZkl7bfuooOV6aZpYE1n60buCtjtaokmhqs1U0X 8gE+SARSoIYgL5CA
tWrgHADXEWpwlfdaP5NogiWGlRpKGtdKIWvVg8zsDgJZU4P/ADiaJPruQx3U oO7ehfLNfAzRcriQ
NVPY/3wRZ1x+xABq6E7aczzJmho8B8AJ7ILUIHLVrMn9ndqG6XlSMB8K1Ow1 93aOM1qGWx8omHG5
hpMBekjQNS5n1UKmAQSypgbXAXASdw41MEv9BuZS1hTNjNX8cI3FhYEIgayp ob6/oXB9jFf3mmt4
3IaHqxs92FcRyJcasA6AABDwIABqwPIAAkDAggCoAcsCCACB7KlB/UQd10AA CHgQyKtqwFIAAkCA
iQCogQkUxIBAXgjkSw3MA+DyWg6IFgi8hkC+1MA8AA5LBQjkiQCo4Rn/AXD+ ZSH/q0jX/2qtquM/
X8wzx3oade7UEDwALkgNzOQHL/Q0Q7J1O2tq4BwAVxU1ZLvCEHhPEciaGjgH wMVRg/l/0qtVg/b0
YRVGldHTjErG7aypgXMAXJAa1I8bTGGZ4a4LjTLIgimZzGpDID1CIGtq4BwA F6QGq4DJFyYFCEXr
B5koGXqUQqm6mjU1cA6Ai6AGKwto2R4sDcAOqaZcX+LKmhr8B8DRFNJ3Hyqn Bo0U8EDRl1TJzc+s
qcFzAJxYB3HUoD0myAcHubbwMWRuadbHeLOmBtcBcHIig9TQxymHz0CAg0DW 1MA5AI4DImSAQHoI
5EsN6c0lIgICFSIAaqgQTJgCAukgAGpIZy4RCRCoEIG8qIHzX+BBBggAAUIA 1IBlAASAgAUBUAOW
BRAAAqAGBQHmAXBYNUAgTwTyrRqYB8DluSwQNRAANQQOgAsuEfmnk0HJBgTI Gesorn4h7L/bgNsY
ooMI5E4NwQPg/HOmJlUXEiyOGiLYpINLGS5Vi0DW1MA5AI5PDdVOTJw1UEMc btAyEciaGjgHwEVQ
g7WUMJ87XD1yxKCAKSmH1nRNyhAC2gOF1umxJiVVFfFsovUg63qKQNbUwDkA Ljiv1gRWk1Z7mBf5
ZtKHlqhBAW0INck9uiYXSGdcDnA8sVJPEDoIdBmBrKmBcwAcf/LMTdjMOus+ 71G0ZrLmkjV1JWGZ
TKTZVHnKNKUWAmql4HJMG5ePHiS7hkDW1MA5AI4/YUWpwWqZTxPMqsEkAlPR xQguXeuTiLUU4qMH
ya4hkDU1+A+Ao6ka+e6DrwWTKvj4EKznXQJMarBWDdZnh/IPFFY0urbi4Q8T gaypwXMAnIAvSA1q
va0ibq29tc/nrB9SaNllVTGn1izjNePWzwKsm7//mcLzHCFvmXEx1yLEOoVA 1tTgOgBOzhCHGjo1
nXAGCFSFQNbUwDkAriqgYQcI9AuBfKmhX/MEb4FAwwiAGhoGHMMBgX4gAGro xzzBSyDQMAJ5UUOF
J+fBFBBIGwFQQ9rzi+iAQCQCoIZI4KAGBNJGIF9qoG/mcH55mfb0Izog4EIg X2pgHgCHpQME8kQA
1BA4AM6/LKj0UAW0t3FLqhIjcUNDCwhIBHKnhuABcM1TA1YnEOgCAllTA+cA OFBDF5YpfGgegayp
gXMAXDQ1iD9AFOrqM4LaqcmIWy4BcQuPG80nSZ4jZk0NnAPg4qhBIwUrNUjL JiNY2cRKNHmuWkTd
AAJZUwPnALg4anBVCtaigEkNms0GFgeGyBmBrKmBcwBcNDVoLOCqEaQYs9DA A0XO6dpk7FlTg/8A
OJoG+u5DHDW48lx+WGA+YgSpAQ8UTSYGxsqaGjwHwImVEaQG+dGg+QGh1mOS guix9ovR1btqD1Yt
EGgAgaypwXUAnMSdQw0NTBKGAALNI5A1NeBvKJpfcBixLwjkSw19mSH4CQRa QQDU0ArsGBQIdB0B
UEPXZwj+AYFWEMiLGho+XQ/DAYH+IgBq6O/cwXMgUCMCoIYawYVpINBfBPKl BvpCEeeXl/2dWngO
BMogkC81MA+AKwMudIFAfxEANQQOgAtOrfp956CwKkCK9Fb8rLxpZmsapajb Hjdct/yedySuojj0
Qj53aggeAOefxegMbHJNNzlWIbhMojTVI5yPUOlFrjbsZNbUwDkALnqt16TY 8PqodrjKqware6CG
SmYta2rgHAAXl+HyKUOoy2cHuWqFgPpAoT2YqOvbpa7JSJtWsy5PtK3b9Nw0 q/aIsTQZLUz1rYan
FrXVmlVFDUdqyU6PAyryHgArya5eG8maGjgHwEVQQzCrtdRV36o8IofWSERL Zo86xxNtFI1BTB+0
PLcOYYJmDcGv61dR77pc8tj3s1WvU7oq57OmBs4BcFVRgyvPzQRg9qh7tZoD wdy2coGLX7Rd3cU1
Lmc86hEjapWCybDWUsLqm0kNZv1SVY711E7W1MA5AK6D1MDZqJn8YhYgLmZx paWLlYKlEEdAkzFJ
zYTCxRcma/g5tKf5XKHbWVOD/wA4Qnnkuw++piUGPyH5Zbn6bMzJT2ulLRPG mktFzTILkyCFdeeB
wgNLhcnWL1NZU4PnADgxi0FqECmnlqwybWRK+7dHlSM0OxopaMvXKuypk135 rxUOTLPa5uwJ1vWs
oQFl4mA6rKqYVYCrgrD6hgeKIE9lTQ2uA+AkahxqCEJcVMAs0YtaKC/fBR/K RwELZRDImhq68zcU
1tKjzLxG6HbBhwi3oVITAvlSQ02AwiwQSAMBUEMa84gogEDFCIAaKgYU5oBA GgjkRQ2tnLGHQYFA
HxEANfRx1uAzEKgdAVBD7RBjACDQRwTypQb6XR3nl5d9nFT4DATKI5AvNTAP gCsPMSwAgT4iAGoI
HADnn1T1a0LB6SdhkhE/zcbsd4m5Ri8qH4yiDgGPk0VBayveWset1bhrQoeH hwcHB+++++4HHnhg
hbctX7588eLFJLxs2TKyVugXNGPHjh03btyCBQvoYgz9oyt6Ty1oJWIwq01h R22iaggeABekBing
n79KZjfCSIRKHcnPh1GVjHA+QqWSeNsatxLnrUaIGpYuXbpmzRrOECRGwhHZ 2lFq4BwAV2hNB3c/
DsrVyvRiyTIrJg4ybcXb1rgcTOJkBDXwdZOiBs4BcNHUIJ81hAXxVlyoP+WS Ui+ksJSUFjR5VVLb
b60OWFewJmkdS/XfdFU167JmIiklPbEXBc1lSp0CP1Cu8DX/TXhd9Y7mklwP Up4ZvukYP28jJCU1
vMxoZD8pauAcABdHDVqqaBmuLVNz9aurR72r9Zu04lp2pj/mulSd1O5a+UuT 9/hpehWnazJmcFCN
i80YPTNl6npA0ziXswCs1sypt7phpfiI/PeoSGrYy2ipUQPnALhoatC2RHO3 t6afOeX81e9fuOYW
bc1Y2anuimWowco4LmooD5oLrkJuuJhR7Xe56mJna8iacNHwq+UCzZqkBroI ttSogXMAXDQ1aIqt
U4MrEBcZebYvzz7mKk8KjWJynJ8fOTu/iwc5un7nrZaDOBQa18N39bGDpIah kTZp6vXiQja1JzVq
8B8AR9HSbzH41OBfDRHUoC4IzkryVw3Wu67d27VtMqPw04prX40owvkllVn4 RLjBRFhFVRQCWo9f
wGTedqlh7dq1xALiRdeiaT2pUYPnADixCDjUoBbeKo9o/fyk8ijKdWZNaevo 6riqusdVYVx1w8wr
uVjN8F09Jslqo6jjankbpICgKWlcc8NU9LjBmV+VPkxS0OjPKuBiE9Mx/75V 8q6sGp4eaZILtGtx
NzVqcB0AJzENUkNJ9Puuri70nsaSQAg1IS+pYdVrTbKDuJD9dJEaNeBvKEqu qgTyKoEQSk6iS11S
w+NKk+ygdtJ1UtRQE6AwCwTSQMBKDcQCxA4aL4Aa0phxRAEEWAi4qMHkBVAD C1AIAYE0EAA1pDGP
iAIIVIwAqKFiQGEOCKSBgKCG9evXy+8yeC5ILJ2/oUhj/hAFEKgJAfHl6EWL Fv2Y0RYuXEhHv7Tw
R9nBr3CbAtvROoYALR20thCIyKDgWSqmQAvUwDxtho6ikQfODAwM3H///Q+h dQCB++67j74VswOt
PQQiMqgf1MA/bYaKK3HgDLVDhw7VVGvBbCEEaCJoOnaitYdARAb1hhoKrUVB DaSyH60DCIivyrWX
Fxh5Z6HzmsR89YkazMNm6ItZZqcITGAR8YgFlcoREDOyC609BEQ6aMliTR+S 6R81aIfNyK9za/0J
UIMgNfNn5UnbjEExI7vR2kNAUIOaKa70IZn+UYO6jmVg5uJWqWHbtm1bRxpd eJqQaauZjlEI99xz
j/kzwsMuBC5mZA9aewhYi2hXEvWPGtTjZURU2rEz4i2oQWWQ7lDDPrT2EBDU YOaLZAf1Vv+owXq8
jPkNLZUaKODNI81KIrJTyNTU/EO72M1aNUR42G7gAnkxIx34PDRfFwQ1WL/O aJ7g1D9qEOfJWA+Z
kbfkgTMCi+deaxEft1alIn3gX7geKPgWuhM4wSiW2gG09hAQ6aCmiSeV+kcN 6qkykurUTnGtVg3d
yZBCWZ0kNRxEaw8BQQ1asriSqH/UoP2huP/AGYEFfSeyp40eKMhz82cfwxFL rb28wMgHRTpwzmuS
hy9EVM0tfFHaDEwE6TlwRqisHmlPPvmkuIhuZMHT/Gb9uiV967JxGZqgBvpO JFpbCFgzyJo+iVCD
58AZawVlPn2gpwEEBDW8hNYeAq7N1ZNB/a4agtTwBFoHEAA1tMcJr46cMjUw j5SgX8+IUyWo0fXv
0TqAAE3Evffe23p65OwApUPRDOpH1cA/UoJOnRCnSpDKypUrGYdQQKR2BB55 5BGajraOKsC4Ih2Y
h7LIDOoBNdDHnmhAAAj0AgF6eCzEKWPHjh03btyCBQvoYgz9oyt6Ty1ohUZC AwJAoEcIBJNaFYin
hkLDQBgIAIF+IQBq6Nd8wVsg0BACoIaGgMYwQKBfCIAa+jVf8BYINIQAqKEh oDEMEOgXAqCGfs0X
vAUCDSEAamgIaAwDBPqFAKihX/MFb4FAQwiUooYxrzWPsyQSHYqmG2HKVLEa UTuZKtFBQREI9AKB
eGrwp5MMPiKfrcAVtWPSlofIhPFCKr2YXTgJBKIRqIYaaqoaoqPyEBOqhvKo wkIOCFRPDdreK1OR
syczddVNXkySq6bgPB0EH1uKFiw5rBvEmDwC8dTgqsC1HVumsbVfTWzzCcWj qzJOoZolSBZBgeTX
BAIEAoRAKWow63a57YsLuZ+7+tU5cOWkizL89YLrbkSNgKoBqZIhAtVTgwai ufMzk1allWDF4Zq5
YAkQFPA8rWS4XBByPgjEU4O5mWtZpFUNwfQu9EBhFizWOfNnvrUc4JBFPusD kWaLQDw1WD9rMDvV
DwXkU4YsHPw9Ll3/IwbnIcXzMAJqyDYZELiKQClqAJRAAAikigCoIdWZRVxA oBQCoIZS8EEZCKSK
AKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCoIdWZ RVxAoBQCoIZS8EEZ
CKSKAKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCo IdWZRVxAoBQCKVDD
li1bhvNopaa6UmVgXimcXTSWAjUQLSxfvvyGG2646KKLLky0UWjXXHMNhdmR RQTMOzIR9bmRCDXM
mjVryZIlezb/IOEXBUhh1rcUClkmahCYP/fcc2sTbRRapzAvNEHlhROhhosv vliQwvY/3J7kS0RH
YZaf8kosEDWQMy+88MKhQ4deSrRRaBRgdzCvZOL4RhKhhokTJ4rkeTnRJqKj MPlTW6skUQM5s2HD
BsL7QKKNQqMAu4N5rRNqGk+HGnZv+G7a1EABdmeZCmqgkpsqhkTZ+GUKjQLs DuaghsIIiGW6a/Du
3Ru/l2ht+xKFRgF2Z5kKzAcHB9N+oKAAu4N54cQop5BO1bDjqX/dvX7pwUQb hUYBdmeZCmoYGBig
h4lEIT9IoVGA3cG8XKYX1k6HGujTx13PLtlXotEx8yW061Wl0CjA7ixTQQ1P PfXU/v37IyJX/zez
CHWPSoWTSKFRgN3BvHByl1NIhxq2/vaWnQOL95RotKpKaL+qWokR0w0Kbetv v9adZSqoYfXq1ZSl
RUHTIKoWsQqtUWgUYHcwL5fphbXToYYtD1+/46k7d8Y2WlKkKn6WaeUtWEen 0LasvL47y1RQw+OP
P753796icNUEkXCjQuMUGgXYHcwLJ3c5BVDDqwvbSg2y7pWrX+tRC2O5NOXq tAoXTSQhnwM1mHCJ
VFeznTMj6kRoc1EIfFDDuHHjFixYQBwxhv7RFb2nVo5xGtUWO9jQ/VcOr7pj e1SjBST15LXZWbRH
s6mqF3WTQtt8//Tu7GAC88cee4ySrWgsQRyEgGABYVz2eCA1ZVy6TIcpNAqw O5g3mlTr1qVTNWz6
6aXbf/9N+rOfiEarSmrJa7VT3FVrBHHXVNR6pIomXNRJCm3Tf13anWUqqOE3 v/nN1q1bi8ZiAmvC
G8Q2OCPqZMWBT6FRgN3BHNRQGAGxTEtSg7aSrIvJShYap1iZxeSRoumUPDUE SbbQjPitMcEHNSTy
QPH8D7+w7XffeqZ4o2WkKYketT+ix69e1M1tv7t9w4++0J0dTNDxo48+Sn9l UDQWDfAIbOXsuECu
BHwKjQLsDuaF98xyCuk8UKz7zme2/nou/SK6aKNlpKnIHllKSAGtR601VBlx rd01B+K7uvXXN1OA
3VmmghpWrlw5NDTEj8KEUcXEA1ehGakKfAqNAuwO5uUyvbB2OtSwduFZW1Ze /b/NNlqyzQxIoa1d
9NfdWaaCGh588MGNGzc2g0Dzo1BoFGB3MC+c3OUU0qGGwTsmDK34En2k3GQj amhmuKEVlw3eMb47
y1RQAx0tQ3+b2AwCzY9CoVGA3cG8XKYX1k6HGp6Zf9Lm+yf+KtG26f6Ja+af 1J1lKqjhF7/4Ba24
RCH/FYVGAXYH88LJXU4hHWoYuPWETf/9WXo4TLJRaAO3nNCdZSqoYdmyZfRn y0kCTkFRaBRgdzAv
l+mFtROhBjqK5//mHr/xPz+145dTdvzy0pGfSb0oNAqwOycOiVOeKHOefvrp FYk2Co0C7A7mhZO7
nEIi1DBjxoz58+dT8iT8ogCvuuqqctNdmTZRg8D8vqRbpzCvbPJ4hhKhBvq4 aPbs2UTwVP4l2ehE
6ZkzZ/LmtAkpcaI0MG8C65bGSIEaWoIOwwKBlBEANaQ8u4gNCEQjAGqIhg6K QCBlBEANKc8uYgMC
0QiAGqKhgyIQSBkBUEPKs4vYgEA0AqCGaOigCARSRgDUkPLsIjYgEI0AqCEa OigCgZQRADWkPLuI
DQhEIwBqiIYOikAgZQRADSnPLmIDAtEIgBqioYMiEEgZATs1UC8aEAACmSNg P2xe/B9WaEAACOSM
wKj/2I7eoAEBIAAEBAKv/p+XmVdQCB8IAAETgf8HCq1DC05PkXYAAAAASUVO RK5CYII=
------=_NextPart_000_000E_01C745ED.68034940--

Attached files
Saludos :D

Israel
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9252
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Columnas en tArrayBrowse

Mensaje por ignacio »

This is a multi-part message in MIME format.
------=_NextPart_000_002F_01C7462A.FA3E34E0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0030_01C7462A.FA3E34E0"
------=_NextPart_001_0030_01C7462A.FA3E34E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Israel,=20
Le aconsejo que no cree ninguna columna en el TArrayBrowse y las cree =
antes de ejecutar el m=E9todo SetArray. Le recomiendo igualmente que =
evite el uso de macro funciones que hacen todo, ya que de esa forma =
pierda mucha de la potencia que ofrece la programaci=F3n OOP.=20
Eche un vistazo al formulario frmSelFromTabla del ejemplo =
DatacontrolsDbfData6, y la funci=F3n SelArticulo() que se encuentra en =
FrmFraEdi.prg
Un saludo
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribi=F3 en el mensaje =
news:[email=45c217fb@news.xailer.com...]45c217fb@news.xailer.com...[/email]
Gracias Ignacio por contestar.
El problema que planteo es el siguiente, tengo la siguiente funci=F3n:
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * * * * * * *
* FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>, <cTitulo>, [, =
<cDescrip>], oForm) -> <aArray>
* DESCRIPCION: Muestra Forma con Browse para seleccionar datos a =
imprimir.
* PARAMETROS: <aArray> =3D Arreglo donde se encuentran las opciones a =
marcar/desmarcar.
* <nSelec>* =3D Posici=F3n dentro del arreglo <aArray> =
donde se almacena si la opci=F3n est=E1 marcada (.T.) =F3 desmarcada =
(.F.)
* <nDescrip>*=3D Posici=F3n dentro del arreglo <aArray> =
donde se almacena la descripci=F3n de la opci=F3n a marcar/desmarcar.
* <cTitulo> =3D T=EDtulo a presentar en la forma.
* <oForm> =3D Objeto FORM al cual se le colgar=E1 el =
di=E1logo a construir.
* Unicas 2 posiciones que ser=E1n mostradas en tArrayBrowse.
* REGRESA: <aArray> Arreglo original si se ha Cancelado la selecci=F3n =
o <aNewArray> si ha aceptado las selecciones establecidas.
*
FUNCTION SelDat2(aArray, nSelec, nDescrip, cTitulo, oForm)
LOCAL aArrOrig :=3D ACLONE(aArray) // Se conserva una copia del =
arreglo original (por si se presiona CANCELAR)
WITH OBJECT tFrmSelDat2():New(oForm) // Forma que muestra el =
tArrayBrowse (imagen)
:cText :=3D cTitulo
:nSelec :=3D nSelec
:nDescrip :=3D nDescrip
:oArrBrw:SetArray(aArray)
IF :ShowModal() =3D mrOk
RETURN(aArray)
ELSE
RETURN(aArrOrig)
ENDIF
END WITH
RETURN(aArray)
*
* FIN SelDat2()
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * * * * * * *
CASO #1
La funci=F3n anterior puede ser llamada con un arreglo <aArray> como =
este:
aDBFs :=3D ARRAY(11, 4)
aDBFs[DBF_AUDITOR ] :=3D {.T., 0, {|oProgress| ChkAuditor(oProgress) =
}, "Sucesos del sistema"}
aDBFs[DBF_COMBOS ] :=3D {.T., 0, {|oProgress| ChkCombos(oProgress) }, =
"Opciones de captura"}
aDBFs[DBF_FORM2 ] :=3D {.T., 0, {|oProgress| ChkFormat2(oProgress) =
}, "Formatos de impresi=F3n (detalle)"}
aDBFs[DBF_FORMATOS] :=3D {.T., 0, {|oProgress| ChkFormatos(oProgress) =
}, "Formatos de impresi=F3n (maestro)"}
aDBFs[DBF_NIVEL2 ] :=3D {.T., 0, {|oProgress| ChkNivel2(oProgress) }, =
"Niveles de seguridad (detalle)"}
aDBFs[DBF_NIVELES ] :=3D {.T., 0, {|oProgress| ChkNiveles(oProgress) =
}, "Niveles de seguridad (maestro)"}
aDBFs[DBF_PAISES ] :=3D {.T., 0, {|oProgress| ChkPaises(oProgress) }, =
"Pa=EDses"}
aDBFs[DBF_SETINI ] :=3D {.T., 0, {|oProgress| ChkSetIni(oProgress) }, =
"Configuraci=F3n general del sistema"}
aDBFs[DBF_USUARIOS] :=3D {.T., 0, {|oProgress| ChkUsuarios(oProgress) =
}, "Cuentas de Usuario"}
aDBFs[DBF_USRCAMPO] :=3D {.T., 0, {|oProgress| ChkUsrCampo(oProgress) =
}, "Definici=F3n de campos definidos por el usuario"}
aDBFs[DBF_USRFIELD] :=3D {.T., 0, {|oProgress| ChkUsrField(oProgress) =
}, "Valores en campos definidos por el usuario"}
En este caso quiero mosrar las posiciones 1 y 4 del arreglo en el =
tArrayBrowse:
aDBFs :=3D SelDat2(aDBFs, 1, 4, "Verificaci=F3n de informaci=F3n")
CASO #2
Ahora imaginemos este arreglo:
aColumnas :=3D ARRAY(8)
aColumnas[ 1] :=3D {.F., "No. Consecutivo",{"99,999", NIL}, 6, =
taRIGHT, .F., {2, 1}, .F., 1, 1}
aColumnas[ 2] :=3D {.T., "Fecha", {NIL, NIL}, 14, =
taLEFT, .F., {2, 1}, .F., 2, 2}
aColumnas[ 3] :=3D {.T., "Hora", {NIL, NIL}, 8, =
taLEFT, .F., {2, 1}, .F., 3, 3}
aColumnas[ 4] :=3D {.F., "Usuario (clave)", {NIL, NIL}, 7, =
taLEFT, .F., {2, 1}, .F., 4, 4}
aColumnas[ 5] :=3D {.T., "Usuario (nombre)" {NIL, NIL}, 13, =
taLEFT, .F., {2, 1}, .F., 5, 5}
aColumnas[ 6] :=3D {.T., "Proceso", {NIL, NIL}, 13, =
taLEFT, .F., {2, 1}, .F., 6, 6}
aColumnas[ 7] :=3D {.T., "Evento", {NIL, NIL}, 6, =
taLEFT, .F., {2, 1}, .F., 7, 7}
aColumnas[ 8] :=3D {.T., "Detalles", {NIL, NIL}, 15, =
taLEFT, .F., {2, 1}, .F., 8, 8}
En este caso quiero mostrar las posiciones 1 y 2 del arreglo en el =
tArrayBrowse:
aColumnas :=3D SelDat2(aColumnas, 1, 2, "Verificaci=F3n de =
informaci=F3n")
Entonces, tomando estas variantes =BFcomo puedo indicar a la =
tArrayBrowse que columnas del arreglo recibido va a mostrar?, de =
antemano el tArrayBrowse ya fue dise=F1ado en el IDE con solo 2 =
columnas, pero necesito indicar que posiciones (columnas) va a mostrar =
del arreglo pasado en tArrayBrowse:SetArray(aArray)
Espero a ver sido claro, de antemano MIL GRACIAS!!
Israel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45c1b28b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Israel,=20
No tiene m=E1s que crear las columnas en el browse antes de hacer la =
llamada a TArrayBrowse:SetArray()
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribi=F3 en el =
mensaje news:[email=45c0e0aa@news.xailer.com...]45c0e0aa@news.xailer.com...[/email]
Hola Foro:
Tengo una duda (quiz=E1 demasiado tonta pero no logro darle al =
clavo):
He creado un Form en el cual muestro un tArrayBrowse para mostrar =
y permitir al usuario seleccionar informaci=F3n.
En este tArrayBrowse quiero mostrar solo 2 columnas de un array de =
<n> columnas
Como esta forma puede ser llamada desde cualquier funci=F3n, el =
Array puede varia en dimensiones, entonces, la idea es especificar que =
datos del array quiero mostrar en esas 2 columnas
Entonces...
=BFC=F3mo puedo definir las columnas que deseo mostrar en un =
tArrayBrowse con un Array de <n> columnas?
Gracias!!
------=_NextPart_001_0030_01C7462A.FA3E34E0
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.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Israel, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Le aconsejo que no cree ninguna columna =
en el=20
TArrayBrowse y las cree antes de ejecutar el m=E9todo SetArray. Le =
recomiendo=20
igualmente que evite el uso de macro funciones que hacen todo, ya que de =
esa=20
forma pierda mucha de la potencia que ofrece la programaci=F3n OOP. =
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Eche un vistazo al formulario =
frmSelFromTabla del=20
ejemplo DatacontrolsDbfData6, y la funci=F3n SelArticulo() que se =
encuentra en=20
FrmFraEdi.prg</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo</FONT></DIV>
<DIV>Â</DIV>
<DIV>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
=
href=3D"mailto:isolis_antispam_@sanroms.com">isolis_antispam_@sanroms.com=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:45c217fb@news.xailer.com">news:45c217fb@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias Ignacio por =
contestar.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>El problema que planteo es el =
siguiente, tengo la=20
siguiente funci=F3n:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys><FONT size=3D2><FONT color=3D#808080>* * * =
* * * * * * *=20
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
*<BR>*=20
FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>,=20
<cTitulo>, [, <cDescrip>], oForm) -> =
<aArray><BR>*=20
DESCRIPCION: Muestra Forma con Browse para seleccionar datos a =
imprimir.<BR>*=20
PARAMETROS: <aArray>Â =3D Arreglo donde se encuentran las =
opciones a=20
=
marcar/desmarcar.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂ&nb=
sp;ÂÂÂ=20
<FONT color=3D#ff0000><STRONG><nSelec>*</STRONG></FONT >Â =
=3D Posici=F3n=20
dentro del arreglo <aArray> donde se almacena si la opci=F3n =
est=E1 marcada=20
(.T.) =F3 desmarcada=20
=
(.F.)<BR> *ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nb=
sp;Â=20
<FONT color=3D#ff0000><STRONG><nDescrip>*</STRONG ></FONT>=3D =
Posici=F3n dentro=20
del arreglo <aArray> donde se almacena la descripci=F3n de la =
opci=F3n a=20
=
marcar/desmarcar.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂ&nb=
sp;ÂÂÂ=20
<cTitulo> =3D T=EDtulo a presentar en la=20
=
forma.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&n=
bsp;Â=20
<oForm>ÂÂÂ =3D Objeto FORM al cual se le =
colgar=E1 el di=E1logo=20
a construir.</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys><FONT size=3D2><FONT color=3D#808080><FONT=20
color=3D#ff0000><STRONG>* Unicas 2 posiciones que ser=E1n mostradas en =
tArrayBrowse.<BR></STRONG></FONT>* REGRESA: <aArray> Arreglo =
original si=20
se ha Cancelado la selecci=F3n o <aNewArray> si ha aceptado las=20
selecciones establecidas.<BR>*<BR></FONT><FONT =
color=3D#000080>FUNCTION</FONT>=20
<FONT color=3D#0000ff>SelDat2</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray, nSelec, nDescrip, cTitulo, oForm</FONT><FONT=20
color=3D#ff0000>)</FONT><BR>Â <FONT color=3D#000080>LOCAL</FONT> =
<FONT=20
color=3D#008080>aArrOrig</FONT> <FONT color=3D#ff0000>:=3D</FONT> =
<FONT=20
color=3D#0000ff>ACLONE</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT color=3D#ff0000>)</FONT><FONT =
color=3D#808080> //=20
Se conserva una copia del arreglo original (por si se presiona=20
CANCELAR)<BR></DIV></FONT></FONT><FONT size=3D2></FONT></FONT>
<DIV><FONT face=3DFixedsys size=3D2>Â <FONT color=3D#000080>WITH =
OBJECT</FONT>=20
<FONT color=3D#0000ff>tFrmSelDat2</FONT><FONT =
color=3D#ff0000>()</FONT><FONT=20
color=3D#008000>:New</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>oForm</FONT><FONT color=3D#ff0000>) // Forma que =
muestra el=20
tArrayBrowse (imagen)</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:cText</FONT> <FONT color=3D#ff0000>:=3D</FONT> <FONT=20
color=3D#008080>cTitulo<BR></FONT>ÂÂÂ <FONT=20
color=3D#008000>:nSelec</FONT> <FONT color=3D#ff0000>:=3D</FONT> <FONT =
color=3D#008080>nSelec</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:nDescrip</FONT> <FONT color=3D#ff0000>:=3D</FONT> =
<FONT=20
color=3D#008080>nDescrip</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:oArrBrw:SetArray</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT =
color=3D#ff0000>)</FONT><BR>ÂÂÂ=20
<FONT color=3D#000080>IF</FONT> <FONT =
color=3D#008000>:ShowModal</FONT><FONT=20
color=3D#ff0000>()</FONT> <FONT color=3D#ff0000>=3D</FONT> <FONT=20
color=3D#008080>mrOk</FONT><BR> ÂÂÂÂÂÂ =
<FONT=20
color=3D#0000ff>RETURN</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT =
color=3D#ff0000>)</FONT><BR>ÂÂÂ=20
<FONT =
color=3D#000080>ELSE</FONT><BR> ÂÂÂÂÂÂ =
<FONT=20
color=3D#0000ff>RETURN</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArrOrig</FONT><FONT color=3D#ff0000>)</FONT><BR><FONT =
color=3D#000080>ÂÂÂ ENDIF<BR>Â END =
WITH</FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys color=3D#000080 =
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT =
color=3D#0000ff>RETURN</FONT><FONT=20
color=3D#ff0000>(</FONT><FONT color=3D#008080>aArray</FONT><FONT=20
color=3D#ff0000>)</FONT><BR><FONT color=3D#808080>*<BR>* FIN =
SelDat2()<BR>* * * *=20
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * *=20
*<BR></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys color=3D#ff00ff size=3D2>CASO =
#1</FONT></DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000>La funci=F3n anterior puede ser llamada con un arreglo =
<aArray> como este:</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT face=3DFixedsys =
color=3D#000000>aDBFs=20
:=3D ARRAY(11, 4)<BR>aDBFs[DBF_AUDITOR ] :=3D {.T., 0, {|oProgress|=20
ChkAuditor(oProgress) }, "Sucesos del=20
sistema"}<BR>aDBFs[DBF_COMBOSÂ ]Â:=3D {.T., 0, {|oProgress|=20
ChkCombos(oProgress) }, Â"Opciones de=20
captura"}<BR>aDBFs[DBF_FORM2ÂÂ ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkFormat2(oProgress) }, "Formatos de impresi=F3n=20
(detalle)"}<BR>aDBFs[DBF_FORMATOS]Â:=3D {.T., 0, {|oProgress|=20
ChkFormatos(oProgress) }, "Formatos de impresi=F3n=20
(maestro)"}<BR>aDBFs[DBF_NIVEL2Â ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkNivel2(oProgress) }, Â "Niveles de seguridad=20
(detalle)"}<BR>aDBFs[DBF_NIVELES ]Â:=3D {.T., 0, {|oProgress|=20
ChkNiveles(oProgress) }, "Niveles de seguridad=20
(maestro)"}<BR>aDBFs[DBF_PAISESÂ ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkPaises(oProgress) }, Â "Pa=EDses"}<BR>aDBFs[DBF_SETINIÂ =
]Â:=3D=20
{.T., 0, {|oProgress| ChkSetIni(oProgress) }, Â "Configuraci=F3n =
general=20
del sistema"}<BR>aDBFs[DBF_USUARIOS]Â:=3D {.T., 0, {|oProgress|=20
ChkUsuarios(oProgress) }, "Cuentas de =
Usuario"}<BR>aDBFs[DBF_USRCAMPO]Â:=3D=20
{.T., 0, {|oProgress| ChkUsrCampo(oProgress) }, "Definici=F3n de =
campos=20
definidos por el usuario"}<BR>aDBFs[DBF_USRFIELD]Â:=3D {.T., 0,=20
{|oProgress| ChkUsrField(oProgress) }, "Valores en campos definidos =
por el=20
usuario"}<BR></FONT></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT face=3DArial =
color=3D#000080><STRONG>En este=20
caso quiero mosrar las posiciones <FONT color=3D#ff0000>1</FONT> y =
<FONT=20
color=3D#ff0000>4</FONT> del arreglo en el=20
tArrayBrowse:</STRONG></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT color=3D#000000><FONT=20
face=3DFixedsys><FONT color=3D#008000>aDBFs</FONT> <FONT =
color=3D#ff0000>:=3D</FONT>=20
<FONT color=3D#0000ff>SelDat2</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008000>aDBFs</FONT><FONT color=3D#ff0000>,</FONT> <FONT=20
color=3D#ff0000><STRONG>1</STRONG>,</FONT> <FONT=20
color=3D#ff0000><STRONG>4</STRONG>,</FONT> <FONT =
color=3D#ff0000>"Verificaci=F3n de=20
informaci=F3n")</FONT></FONT></DIV></FONT></FONT></FONT >
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff00ff size=3D2><STRONG>CASO=20
#2</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ahora imaginemos este =
arreglo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2>aColumnas :=3D =
ARRAY(8)<BR>aColumnas[ 1] :=3D=20
{.F., "No. Consecutivo",{"99,999", NIL}, 6, taRIGHT, .F., {2, =
1}, .F.,=20
1, 1}<BR>aColumnas[ 2] :=3D {.T.,=20
=
"Fecha" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nbsp=
;ÂÂÂÂ{NIL,=20
NIL}, 14, taLEFT, .F., {2, 1}, .F., 2, 2}<BR>aColumnas[ 3] :=3D =
{.T.,=20
=
"Hora" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂÂ=
ÂÂÂÂ=20
{NIL, NIL}, 8, taLEFT, .F., {2, 1}, .F., 3, =
3}<BR>aColumnas[ 4] :=3D=20
{.F., "Usuario (clave)", {NIL, NIL}, =
7,Â=20
taLEFT, .F., {2, 1}, .F., 4, 4}<BR>aColumnas[ 5] :=3D {.T., "Usuario=20
(nombre)"ÂÂÂÂÂ{NIL, NIL}, 13, taLEFT, =
..F., {2,=20
1}, .F., 5, 5}<BR>aColumnas[ 6] :=3D {.T.,=20
=
"Proceso" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nb=
sp;Â=20
{NIL, NIL}, 13, taLEFT, .F., {2, 1}, .F., 6, 6}<BR>aColumnas[ 7] =
:=3D=20
{.T.,=20
=
"Evento" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nbs=
p;ÂÂ=20
{NIL, NIL}, 6, taLEFT, .F., {2, 1}, .F., 7, =
7}<BR>aColumnas[ 8] :=3D=20
{.T.,=20
=
"Detalles" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&n=
bsp;=20
{NIL, NIL}, 15, taLEFT, .F., {2, 1}, .F., 8, 8}<BR></FONT></DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT face=3DFixedsys =
color=3D#000000>
<DIV><FONT face=3DFixedsys size=3D2><FONT face=3DArial =
color=3D#000080><STRONG>En este=20
caso quiero mostrar las posiciones <FONT color=3D#ff0000>1</FONT> y =
<FONT=20
color=3D#ff0000>2</FONT> del arreglo en el=20
tArrayBrowse:</STRONG></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT color=3D#000000><FONT=20
face=3DFixedsys><FONT color=3D#008000>aColumnas</FONT> <FONT=20
color=3D#ff0000>:=3D</FONT> <FONT color=3D#0000ff>SelDat2</FONT><FONT=20
color=3D#ff0000>(</FONT><FONT color=3D#008000>aColumnas</FONT><FONT=20
color=3D#ff0000>,</FONT> <FONT =
color=3D#ff0000><STRONG>1</STRONG>,</FONT> <FONT=20
color=3D#ff0000><STRONG>2</STRONG>,</FONT> <FONT =
color=3D#ff0000>"Verificaci=F3n de=20
informaci=F3n")</FONT></FONT></DIV></FONT></FONT></FONT >
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Entonces, tomando estas variantes <FONT=20
color=3D#ff0000><STRONG>=BFcomo puedo indicar a la tArrayBrowse que =
columnas del=20
arreglo recibido va a mostrar?</STRONG>, de antemano el tArrayBrowse =
ya fue=20
dise=F1ado en el IDE con solo 2 columnas, pero necesito indicar que =
posiciones=20
(columnas)Âva a mostrar del arreglo pasado en=20
tArrayBrowse:SetArray(aArray)</FONT></FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Espero a ver sido claro, de antemano MIL=20
GRACIAS!!</FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Israel</FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV></FONT></DIV></FONT ></FONT>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:45c1b28b$1@news.xailer.com">news:45c1b28b$1@news.xailer.com<=
/A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Israel, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No tiene m=E1s que crear las =
columnas en el=20
browse antes de hacer la llamada a =
TArrayBrowse:SetArray()</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
=
href=3D"mailto:isolis_antispam_@sanroms.com">isolis_antispam_@sanroms.com=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:45c0e0aa@news.xailer.com">news:45c0e0aa@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Hola Foro:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tengo una duda (quiz=E1 demasiado =
tonta pero no=20
logro darle al clavo):</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He creado un Form en el cual =
muestro un=20
tArrayBrowse para mostrar y permitir al usuario seleccionar=20
informaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>En este tArrayBrowse quiero =
<U>mostrar solo 2=20
columnas</U> de un array de <n> columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Como esta forma puede ser llamada =
desde=20
cualquier funci=F3n, el Array puede varia en dimensiones, =
entonces, la idea=20
es especificar que datos del array quiero mostrar en esas 2=20
columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Entonces...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=BFC=F3mo puedo definir las =
columnas que deseo=20
mostrar en un tArrayBrowse con un Array de <n>=20
columnas?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0=20
src=3D"cid:002a01c74622$9874eae0$1700000a@ozlan.local" =
align=3Dbaseline=20
=
border=3D0></DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE> </BODY></HTML>
------=_NextPart_001_0030_01C7462A.FA3E34E0--
------=_NextPart_000_002F_01C7462A.FA3E34E0
Content-Type: image/png;
name="ArrayBrowse.PNG"
Content-Transfer-Encoding: base64
Content-ID: <002a01c74622$9874eae0$1700000a@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAV4AAAF8CAIAAAAILURwAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAMDpJREFU
eF7tXWusnlWVLhp/mHgPP2DKGB0ErTiMiECLojCDjBGUjDgUUopFSqVFaIEC LQpFa3GGuWDbgQbr
6HhLyDhBMynRlksT8JI4RDOUAs4ph9KWtofS9vR+A5nVs2Gzz76ud7/3vZ+d ryfvt9+11l7r2Xs9
e73f+c7uEWPGjFm3bh39pPbud7/7uOOOE9doQAAIZIXAQw89NCpe4gXRiBTO PvvsOXPmzJ8/fwEa
EAAC2SBAKU+JT+lPJCAJ4XDJQO3EE0+86aabCAqSuO6662aiAQEgkA0ClPKU +JT+RAJEBYITDlMD
UQV1UfsKGhAAAhkjIHhA1A6HqYEKCSKMGWhAAAhkjwBRARHCYWoghqBaYvbs 2dljAgCAABCYQVRA
hHD41xH0jz6EIEiuQAMCQKC3CFAKX3jhhX9TvJGWmv50TYTwKjVQCTFt2rTe YgLHgQAQuIIyfOLE
id+bPmXvP8/e88837P6Xm3aOvIbvnKO+RCfdJRmSJHnSIl2JIFEBEcLr1HC5 t13xpS/5BXAXCACB
dhGgcuH707+4Y+6lz9867bl505+57aqBb1z9x/kz6bX6m9eKl3hL/XSXZEiS 5EmLdFXnR1HDFHe7
bMqUqZMnewRwCwgAgdYRoPTe8Y/Xrf/q5fR69mvTBm658ul505+69arV8655 4hvXrPr61fSTrqmH
+ukuyQhh0iJd1f9R1HCpu31l6rTJkyd7BHALCACB1hGg9B7+h2vXzZmy7sbJ 6+Z88dmbpgzOvXzg
5qkDX73i6ZunPX3zl+knXVMP9dNdkhmRnEJapKv6z6WGJXPmTJo48S1vecvb 3va2t771rccff/wl
l1zy9re/nd6+853vbB0ROAAEgAAhQOm97faZz86etGH2xfTa9dsHX3nlFXGt vaif7opOkictHzVM
crc/3DZX3HzjG99IBCGuzz333A9+8IMerV7fIux67T+czxCBw1XDN7/y7KyJ G679e3rRGhZNvJUv
rZ/kSYt0VcRGVQ30EaWrDX35InHrggsuoL++OOecc+j6TW96k0teju2xKWQ8 AsxbVdlRhxOOHXvU
kX4f5NB1+MAMH2JAQCJwuGqYP/2Zqz+/Ycb54vU6C7h7SJ60SFdFchQ1fMHR 6Ncag+eeKW9+6EMf
InY48sgjXfLCG8orcREUcwnw+2ksevHlOZIcgzJSMliHDxw/IQMEJAKHqeHW aYNXfm7DlZ+Wr9fZ
4cpPq9dSgORJi3RVJEdRwxmO9tNb5j5+2kfUm294wxve9a53ueRlwpCASBi6 kD7RhVBUxcy7VhWP
HdWmsGb2yE6XcVVFk3HpqiTo8iEYi4akRMNE2AVjXMgea55YXPOO/tYRGD9+ /LZpn37ylD9be9rR
6kudaLrW7pI8aZGu6j+LGnYtvOmxk06UaqeffvpRRx1FhcPJJ5/sZwd5V7KA LCVUavDftarUYcf0
lumYdEa94Lst2VMFU1X3OMb0UEXbBZ1gcGpBgdYTAA64EKCUHJ72qT+ecvTg KUdpL8kO5i2SJy0t
nUdRw8ds7Z7p01+cMfGxU06SN4kU6Proo48WF64mXBF3NdJSd1q5EFUZNceE BZE/MhOsnepdee3p
1EaUgXB0yRkZl5UaTA+tAUqIVBj5jvmBNT30gKxGZEVACKB1GQH6Y+qdV5y9 5tSj1owf9dLWiXaX
5EmLdNXQRlEDVRRamzB+wvAtUzd/cjxRg7hFv7k89dRTxTVRA/3+0tSSPcIh eqtubiLJXTuteVe1
L+1YO9W75uJW3bD6o7mtemjVtXb6PZTR0YVUFxD5R9fuCm7VihQrdCYOqg+a t6awNRzPjONWuwic
cMIJe6aeRXXBwITXX5IXqFNcv7RzWBUgedIiXdX5UdRAOa+1Z2dMeuGS84bO O2vVR//qlA9/+M1v
fjPRwTHHHENi73nPe4444gh6+453vEPTEsNTp7nUZCf/rlWFaUdNnuCIMgqP 20GDUjfothhOldd6
PLdEemvqJuzBkLUhPNRgrg30dBCBD3zgAwdmnLPxk3++8cxjxEvygqeH5EmL dNWIfNTw6L/d8T+f
/duZnzjrjAmnf+LjZxQCQjqkLWJ1uzaTx3o32Glmo6pi3lWTSjPuSU7XKGID 9/sgIzUdE+rCJY2b
TGrQ7KjexoXsYh8rORZaABBuBQH6g6iD156/6dz3bzr3OHrJNBRv5cvofz9p ka6TGj6qtG98edpH
Tz78/pNnnnnXj+497eNnnHnOp2fcMHfh0v+Yef0NEyZMkLI/X/GwqiivZeFq 9tAtrZPeqoUuR0XI
C0nz2n9X1VIlXV75RxFu+H2wBmhC5A/czH9XIHHgWK1Z8bHOODpbR4DS+9BX Jw1NmjA0eTy99jz8
M1oz4lp7UT/dfbVz0gTSIl3V/1FVw0cc7eRTTtHunPaxj18wecrNt99x6fSr PnLyyS5F9FeOgOR7
WW5UPgQM9heB973vfYe+deWWq8/fcs1nt8w6b8usc7fM+gy9Ns08b/3Mz627 9vP0k65F58jd8w5L
Xn0+aZGuGvgoavgwWh8QUMurPvgLH5tD4Nhjjz24eO62eVO3ff3yrfMuO/y6 bcqL8y574euXb543
ddO8K+gnXVMP9QsBkiR50iJd1dFR1EC/vUADAkCgvwhQev9o+qUH/mnW8Ldv 3P7t2cN33vDi4deN
Ww6/5my+82b6SdfUQ/1097DMt28kedIiXTXwUdTwl2hAAAj0HAH65tIPZ3zx wH1LD933Hfq5b+S1
92ff3fvzf9/9s+/TT7oWnVKG5ElLi3sUNdAvNtGAABDoLwK07dOfOP2F0agi oEbd8kITIS3SVQMf
RQ3j0IAAEAACIwiAGrAQgAAQsCDwKjWMHTuWrug+XaABASCQOQKiaiAQxkhq oC75P2HiAggAgQwR
IDYANWQ47wgZCAQQADVgiQABIGBBANSAZQEEgACoAWsACAABHgKoGng4QQoI ZIYAqCGzCUe4QICH
AKiBhxOkgEBmCIAaMptwhAsEeAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOk gEBmCIAaMptwhAsE
eAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOkgEBmCIAaMptwhAsEeAjEUwP9 P5fqENpb3ugBKZdN
sz9idKESoVhraIWMk/MyCnEtewrZ8Qh7pqAt6OoLre8RVYWMsJM7NVSLZsPW 5FJuZU23MmiFCFey
wVToT9dMgRq6NiMF/AE1FADLEAU1+NGrhRrMytYsdz3Vb1DYKiDi5JiVkuoD BV9RAury0+WJWu2r
WW32a88FLt+C1KBZ9syLGZSKkhVYLbVMNEwtqz/aAlWd9OPgt6YFa5oKzqMa oGus+jwsw3qV6Jai
BnU1WMtL0alBbC4FtccU5vd4BnIZCXoYYdMaspbGrnGtNKEuYitWrrS0kqDm nl/Gg49JDS4/5Yie
RWLqeohP84qzwFze8leXGUWtHlaS3mWMlKIGT0pr3G+deI3XtW3Kup48GaXu URqXB5PBumRd/lgT
wFysZroWWoVq+NbMV4Ny+e/KGXVNu2YqSCscatA81/zxLwAz8VzWXIwTXIQu EufMnRX/qjwsk9JV
6VZPDXEJwMm3IFkwM9xc9EzFYDJ4thGNaPwc50pLbdaDw7nogzN6eWrwrAQX Z7nyzZXDJn3zNxiO
pHXzs3JWtR5Wld5l7CRLDcw0diWJh6o4LBbMCk5y8n1zbZv+9OaTuDWTmQhb faiPGoLAlne7JDUE
PSyTzxXqVk8Ngj7VWo7Zo6acS12uM1NAu2ViZFVRp1kIBBX9fpp3tR6zfFDH dSWh1TfTeU1Ms6wh
4J8Xv5/aJmk1ZXZq0Zn+eKoGpjXX7Jj5zF9vcmgTExdK1vy3zo7sdDGOCXWF +e8xFU8Ncf5Zcy/O
VOtarcdSyIFCwhxsNYOV2+f4AJn6EGiCGswior54mrTcejK4yhwrCNV6aw5d rf0m5xFjWRFoghoA
PRAAAr1DANTQuymDw0CgCQRADU2gjDGAQO8QADX0bsrgMBBoAgFQQxMoYwwg 0DsEQA29mzI4DASa
QADU0ATKGAMI9A4BUEPvpgwOA4EmEAA1NIEyxgACvUMA1NC7KYPDQKAJBEAN TaCMMYBA7xAANfRu
yuAwEGgCgXhqWIYGBIBAfxB45ZVXCjFKKWqgwdCAABDoPgLEYE1TwwAaEAAC zSIwPDw8ODh49913
P/DAAyu8bfny5YsXLyZhUEOzU4TRgEAbCBA1LF26dM2aNZxqhcRIuK/UsHbt +vIIV2KkvBuwAASK
IlB06Qpq4PCCkOkxNTzyyCNF0TTlKzFS3g1YAAJFESi6dCU1vMxooIaBovgW nb9k5OmktmRiSSOQ
oktXUsNeRgM1gBpYaQJeYMHUrFA0NRBHqG3S1Ou1HnqbPjWoZ89aJ64ovs3O fu9H0zgFFFPhjBZa
uoS8rBqGlEa8IF5qJ10nTg2cdVkI3wrntV+molM6WrFf+LTibdGlK6lh7WtN 8oK4kP10kRc1oGqI
XsHRGR6tGO1qPorR1PD0SJO8oF2Lu6AGfNbASiUzw0WPeF4zTbie46x2gkZY LuYnFE0Nq1atkrxA
16JpPblQg1yp+OVlXAa5UlpY8zy4+Z/p1Lt8I3EhpKcVTQ2PjzTiAnEhm9qT CzVYV7DoLIpveiuM
E5GraqiQGjQ31LoDTyWVPAvLzxo0RrC+BTWAGjjMoNcFWqXA3/A5Hwx7eJzl azZCRXc1UMPrS0Or
V62bT1F8s1l4owJtoGrg80ueU1D+WRjUoK9p+SkXqCE6qQpRg6gprJ/v4GPI 6CkANRSArpINvxIj
BZyGKBCoCIGiS1dUDevXr1e/v+C6JjH8eVUFf6NV0VzDDBAogEAENRA7LFq0 6MeMtnDhwi1btvT1
j7KLQlPJx7wFpg6iQKBOBIquf0r1HTt27Bxpu3bt2r179549e/bt27d///4D Bw4cHGmHDh166bUG
akDVUOf6he3aEAA1OKEtCg2qhtpWKQy3gEDR9Z9R1VD0lBvr7FVipIV1gSGz R6Do0s2IGrJfGwAA
CBRAANRQACyIAoF8EOgHNdBjEhoQAAJNItAPaij0/+FYhSN+41p+UFgAAv1F ANTQ37mD50CgRgRA
DTWCC9NAoL8I5EsN9Kc7x/zdbcFXf6cWngOBMgjkSw1ECuvWPSNe69c/+/zz z23atP6FFza++OLQ
9u0v7tixfdeuHSMyaEAgRwRADU5e2LNnV5AatMOFOrKCyCu/J0GBMoFoxplj CTEVz2gfpCmrBaY/
0aMno5g7NVjrhff+4L3EC/v27eVQQx1LoeTyDaoHBaoKijmQFFPl/bqeu35q EARUVYAJ28maGly8
QNRAvHDgwH5QQzNL30oN/hwGNdQ9NVlTg/h8gYhAfr5A1+JFvHDw4IE4apBV sZg88VatltVOVUbN
EO1a206tiWFW45oncjFZjUs/rYW99a5q0ExvEwczcBm+dmG+daGqASsJxQ9g 3XmVgP2sqUF87ii4
gD531HjhpZcOcajBmgDqyrbmjDUTrMtay2fOBmtW1BqVBF0yC3vruNpA6lur haDzQT9NiNQkNB0w
3cADBZO2sqYG8fsIyQhqvUC8QP91OIcaNKA5SeXZYK3J5t9arRustvMHU05z yR+FtTxxUZg1mYP+
mCFrg2oeqgStEYTfW2aeZCiWNTW4niMEL/zpT39qhho4bKLtdVpqWe+aMtYH CivvMF0yd2wPEVg3
cOYDhSdel6tm6WSGn2HC80POmhrk9xfo9xHy8wXJCwRiB6khWJPH7dKFqgb/ M46Zk64eD1V5qDBY
WPmfa/BAwWSHrKlBfK9J/J5SfO6o8kIcNaiVvGtLDD5QqMtXLZWlQWtFYK2c RafrqcfqifYwYn1g
0cyqb1Wb1n4zOU0Vq8/moCog8q7JHS5FZpLkKZY1Nfh5gUMNqS4az8NIHSGn PVwdiDVgM2tqCP4B
RfCBooEZamWIhnO1ySK/+dBamcHyg+ZLDeWxgwUgkDACoIaEJxehAYF4BEAN 8dhBEwgkjEBe1PAK
GhAAAjwEQA08nCAFBDJDANSQ2YQjXCDAQyBfaqBfYnF+ecmDEVJAIDUE8qUG 5gFwqU044hmNAO0Q
gMSKAKghcACcf92o303uziILehIUKJMtmnHmWELMFGaqV+hwGVMp6eZODcED 4ILUUMdqKJkPQfWg
QFVBMQeSYtVSQ9HRq4o6DTtZUwPnADhQQwMLXaUGNZ9FURbtAFOXKRbtRk8V s6YGzgFwEdQgnzKE
rlzfar+26F0qUp2TMOrTjTq0Zyt2ueQy5TKrhqPluVYRWLOdSQ0aSkFwNOQ9 zvc0e2t1O2tq4BwA
F6QGM6uliljxZrUcrJ+tAi5rcsW7xjWf4YMuaUxkjUJ2msmvjSg9dwXusWDd 0jUo/J74nTfRqzXf
emQ8a2rgHAAXpAZNgJNU1szUNnBXwpt57qEGc/PXhF0c4Y/CWlMEicm0qalo GW7Nf7PMCVJzkBqs
7NOjHK7J1aypgXMAXAPUwGET6z6s+uYxYoZQVdVgdSC4pUdUMa4yxDo7wehc /FhTjvXUbNbU4D8A
jmaUvvvQNWoI1uRmdR2RioXYiv9AYZYJzComSA3Wpy0PR7hKiZ6mcR1uZ00N ngPgBNYR1CDWnGiF
1r1HS7Um7VtrAdOIpst0KfjI4HFJDdyKA4eqrCRi9coPjuepxMVTdaRZH21m TQ2uA+DkRAapoY9T
zvG54cfvhodTEWhxaM5EtCiTNTXgbyhcK6/5hGl+xBazrhdD50sNvZgeOAkE 2kIA1NAW8hgXCHQa
AVBDp6cHzgGBthDIixoSPskPoQGBahEANVSLJ6wBgUQQADUkMpEIAwhUi0C+ 1EC/LeP88rJauGEN
CPQFgXypgXkAXF8mEn4CgWoRADUEDoDzw02lhyog32r9HiN8SdMIR1d+ubiq dWMOynRDc0BoxVkr
EwvH2zL2k9HNnRqCB8AFqUFdahHLLkJFuhTULekbc5UH3TApwMOhHGsux5i6 TDFm+KmKZU0NnAPg
kqGG+lYwJ9M85ZXGXxxroIb6ZlNazpoaOAfABalB3RK1zdC6aWsVvqoibqlF gTVPpAWPrjDiSjPz
KUOzaXoufTMHDYagxaUh5gnZ46cVJdVJv1cNpFbfh8iaGjgHwFVLDdaU03JY yGgsY32I0CRdj+4m
42jWXF6p/MJhvaBZMwo1BDOcoEGXV1b0XJD2PYdr8j9rauAcAMehBpmT5uIz 89y6P6ud/hXs2s/N
DVbz3Lrbu8jFQxYePrKGZq1frClttazGFUTJhb/mgxpdTXmVgNmsqYFzAByT GgQ7cKjBmrGuxWr2
+3d4j7cexvHbNNnNX+aYRGmWM54c9mz4QZRADRVSUtbU4D8AjlAe+e6Dr2lJ 5VnW5uapplxwl457
oDDNFs1qyXfWfd76xNEMNfgJyz8RqBo4DJI1NXgOgBPYFaIGNeusOSkTyVVf qP1aGaLOpVpXW21a
hf2dLptmnqtZJ7U0NzwyGkUGyyLXECpXBqseE1hObmQukzU1uA6Ak2siSA3p rZ5mdtRmRnHNTruj
92XNZE0N+BsK127fwPJtKz/bGrcBSKsdIl9qqBZHWAMCiSEAakhsQhEOEKgG AVBDNTjCChBIDIG8
qKGtY/YwLhDoHQKght5NGRwGAk0gAGpoAmWMAQR6h8Dw8PDLL7+8ZMmSh0a3 FStWaD30lsRIftmy
ZRRmoQersWPHjhs3bsGCBXQxhv7RFb2nFrQSMZjVprCjNvolFueXl72bUTgM BCpBgFJ96dKla9as
4VgjMRKOyNYuUgPzADgOLpABAukhIKiB4tq/fz9dU9s20oaGhp4baQMDA6tX r161atUTTzxBYglS
g/VAF/FFyeB/h0ulh1aJiLdav2fd8CVNIxxd+UXjqtauOSjTDbNqE0CV91A4 4HKD415V4KRkx6SG
rSNt8+bNWVBD8AA4/2SLZS1lIlZhhAp/uJK+MRc6JwQOh/rteO76qaEQUzND zkFMowYzZKoannzy
yTSrBs4BcMlQQ32ruSpq8OcwqKG+GbRaNquGe4yW7AMF5wC4IDWoC1ouX3Mf U2+ptYarXxbb1ucI
rQh31eSeGtusd1QjZrkh5U2HgyFoY1kRMx/ErDFKMRNDvxsN51UCw2VdNXAO gKuWGqwpp+2WGq24
SnGp5X9qMFnD5YOanB4ZD+tpTzoexzQONR+R/E5aB/LTcQK52nAInKoh2QcK zgFwHGows9RVPshE
1TZhs99VXbv2c1fhYM06dTg/MblCs6Z90KyfArRqwm/NrHEkNWiK/ueUhvOt R8NxqoZkHyg4B8Ax
qUGr/z3UoBk09zpVQCsZgmns8da1UQdtWquYuNKjEDVYgfJ460HShLFHKdqW q1lXDf4D4GhKCv3y
UhYC1uWrlutm6R4s4M2kMvdzc3t07e2aNf/ojVGD6wHE6oALw2DIbWVa78bN umrwHAAnJrIQNWj1
sDWZZXFh7uHmE4HKNVopoQl7niast1xjaeym5qTHYfWWyzFt3/aoqLhpCLi0 TO5wKfYuP1t0mFM1
JPtA4ToATs5HkBpanLmahm6m9m5mFBc71wRdYmZdX3lSvw2Z7MeQ+BsKWZZ7 6o6aVnxj7NDYQDUB
1ZbZfL8N2RbiGBcI9AIBT9Ug/oIx2b+h6MX0wEkg0BYCghrWr1//FKORWDp/ XtUW4hgXCPQCAaKG
nTt3Llq06Meh9pOf/OSuu+7q93kND6MBASDAQyCvU554mEAKCACBh0ENWARA AAhYEMiXGuh3Wpxf
XmLVAIE8EUiBGijJmWdMqnPMPAAuz2WBqIFAItQQZAdxoKWVGvwHwAWXiPpp c1BYFdD8KaTbgHB0
XA34hiEaQCAdavCzg4saggfA+edAS++OZzt/PUXHlQwCfKxSlUyKGjzsYKUG zgFwoIZCSx/UUAiu
LgsnRQ2eTxys1MA5AC6OGqzVuOwUNmUWWftFpxxdkxHqZh4yx3UNrQ5nDdx0 1dqjRievVYfNcLqc
JHn6lg41+D+JtFID5wC4aGrQ0kzLczVhTEk1dV1ppvGL+dZKHJo1FxcEN38h 4ArKf0uFNDhQnmnZ
hagToYa431BwDoCrgxrUNPZkl7bfuooOV6aZpYE1n60buCtjtaokmhqs1U0X 8gE+SARSoIYgL5CA
tWrgHADXEWpwlfdaP5NogiWGlRpKGtdKIWvVg8zsDgJZU4P/ADiaJPruQx3U oO7ehfLNfAzRcriQ
NVPY/3wRZ1x+xABq6E7aczzJmho8B8AJ7ILUIHLVrMn9ndqG6XlSMB8K1Ow1 93aOM1qGWx8omHG5
hpMBekjQNS5n1UKmAQSypgbXAXASdw41MEv9BuZS1hTNjNX8cI3FhYEIgayp ob6/oXB9jFf3mmt4
3IaHqxs92FcRyJcasA6AABDwIABqwPIAAkDAggCoAcsCCACB7KlB/UQd10AA CHgQyKtqwFIAAkCA
iQCogQkUxIBAXgjkSw3MA+DyWg6IFgi8hkC+1MA8AA5LBQjkiQCo4Rn/AXD+ ZSH/q0jX/2qtquM/
X8wzx3oade7UEDwALkgNzOQHL/Q0Q7J1O2tq4BwAVxU1ZLvCEHhPEciaGjgH wMVRg/l/0qtVg/b0
YRVGldHTjErG7aypgXMAXJAa1I8bTGGZ4a4LjTLIgimZzGpDID1CIGtq4BwA F6QGq4DJFyYFCEXr
B5koGXqUQqm6mjU1cA6Ai6AGKwto2R4sDcAOqaZcX+LKmhr8B8DRFNJ3Hyqn Bo0U8EDRl1TJzc+s
qcFzAJxYB3HUoD0myAcHubbwMWRuadbHeLOmBtcBcHIig9TQxymHz0CAg0DW 1MA5AI4DImSAQHoI
5EsN6c0lIgICFSIAaqgQTJgCAukgAGpIZy4RCRCoEIG8qIHzX+BBBggAAUIA 1IBlAASAgAUBUAOW
BRAAAqAGBQHmAXBYNUAgTwTyrRqYB8DluSwQNRAANQQOgAsuEfmnk0HJBgTI Gesorn4h7L/bgNsY
ooMI5E4NwQPg/HOmJlUXEiyOGiLYpINLGS5Vi0DW1MA5AI5PDdVOTJw1UEMc btAyEciaGjgHwEVQ
g7WUMJ87XD1yxKCAKSmH1nRNyhAC2gOF1umxJiVVFfFsovUg63qKQNbUwDkA Ljiv1gRWk1Z7mBf5
ZtKHlqhBAW0INck9uiYXSGdcDnA8sVJPEDoIdBmBrKmBcwAcf/LMTdjMOus+ 71G0ZrLmkjV1JWGZ
TKTZVHnKNKUWAmql4HJMG5ePHiS7hkDW1MA5AI4/YUWpwWqZTxPMqsEkAlPR xQguXeuTiLUU4qMH
ya4hkDU1+A+Ao6ka+e6DrwWTKvj4EKznXQJMarBWDdZnh/IPFFY0urbi4Q8T gaypwXMAnIAvSA1q
va0ibq29tc/nrB9SaNllVTGn1izjNePWzwKsm7//mcLzHCFvmXEx1yLEOoVA 1tTgOgBOzhCHGjo1
nXAGCFSFQNbUwDkAriqgYQcI9AuBfKmhX/MEb4FAwwiAGhoGHMMBgX4gAGro xzzBSyDQMAJ5UUOF
J+fBFBBIGwFQQ9rzi+iAQCQCoIZI4KAGBNJGIF9qoG/mcH55mfb0Izog4EIg X2pgHgCHpQME8kQA
1BA4AM6/LKj0UAW0t3FLqhIjcUNDCwhIBHKnhuABcM1TA1YnEOgCAllTA+cA OFBDF5YpfGgegayp
gXMAXDQ1iD9AFOrqM4LaqcmIWy4BcQuPG80nSZ4jZk0NnAPg4qhBIwUrNUjL JiNY2cRKNHmuWkTd
AAJZUwPnALg4anBVCtaigEkNms0GFgeGyBmBrKmBcwBcNDVoLOCqEaQYs9DA A0XO6dpk7FlTg/8A
OJoG+u5DHDW48lx+WGA+YgSpAQ8UTSYGxsqaGjwHwImVEaQG+dGg+QGh1mOS guix9ovR1btqD1Yt
EGgAgaypwXUAnMSdQw0NTBKGAALNI5A1NeBvKJpfcBixLwjkSw19mSH4CQRa QQDU0ArsGBQIdB0B
UEPXZwj+AYFWEMiLGho+XQ/DAYH+IgBq6O/cwXMgUCMCoIYawYVpINBfBPKl BvpCEeeXl/2dWngO
BMogkC81MA+AKwMudIFAfxEANQQOgAtOrfp956CwKkCK9Fb8rLxpZmsapajb Hjdct/yedySuojj0
Qj53aggeAOefxegMbHJNNzlWIbhMojTVI5yPUOlFrjbsZNbUwDkALnqt16TY 8PqodrjKqware6CG
SmYta2rgHAAXl+HyKUOoy2cHuWqFgPpAoT2YqOvbpa7JSJtWsy5PtK3b9Nw0 q/aIsTQZLUz1rYan
FrXVmlVFDUdqyU6PAyryHgArya5eG8maGjgHwEVQQzCrtdRV36o8IofWSERL Zo86xxNtFI1BTB+0
PLcOYYJmDcGv61dR77pc8tj3s1WvU7oq57OmBs4BcFVRgyvPzQRg9qh7tZoD wdy2coGLX7Rd3cU1
Lmc86hEjapWCybDWUsLqm0kNZv1SVY711E7W1MA5AK6D1MDZqJn8YhYgLmZx paWLlYKlEEdAkzFJ
zYTCxRcma/g5tKf5XKHbWVOD/wA4Qnnkuw++piUGPyH5Zbn6bMzJT2ulLRPG mktFzTILkyCFdeeB
wgNLhcnWL1NZU4PnADgxi0FqECmnlqwybWRK+7dHlSM0OxopaMvXKuypk135 rxUOTLPa5uwJ1vWs
oQFl4mA6rKqYVYCrgrD6hgeKIE9lTQ2uA+AkahxqCEJcVMAs0YtaKC/fBR/K RwELZRDImhq68zcU
1tKjzLxG6HbBhwi3oVITAvlSQ02AwiwQSAMBUEMa84gogEDFCIAaKgYU5oBA GgjkRQ2tnLGHQYFA
HxEANfRx1uAzEKgdAVBD7RBjACDQRwTypQb6XR3nl5d9nFT4DATKI5AvNTAP gCsPMSwAgT4iAGoI
HADnn1T1a0LB6SdhkhE/zcbsd4m5Ri8qH4yiDgGPk0VBayveWset1bhrQoeH hwcHB+++++4HHnhg
hbctX7588eLFJLxs2TKyVugXNGPHjh03btyCBQvoYgz9oyt6Ty1oJWIwq01h R22iaggeABekBing
n79KZjfCSIRKHcnPh1GVjHA+QqWSeNsatxLnrUaIGpYuXbpmzRrOECRGwhHZ 2lFq4BwAV2hNB3c/
DsrVyvRiyTIrJg4ybcXb1rgcTOJkBDXwdZOiBs4BcNHUIJ81hAXxVlyoP+WS Ui+ksJSUFjR5VVLb
b60OWFewJmkdS/XfdFU167JmIiklPbEXBc1lSp0CP1Cu8DX/TXhd9Y7mklwP Up4ZvukYP28jJCU1
vMxoZD8pauAcABdHDVqqaBmuLVNz9aurR72r9Zu04lp2pj/mulSd1O5a+UuT 9/hpehWnazJmcFCN
i80YPTNl6npA0ziXswCs1sypt7phpfiI/PeoSGrYy2ipUQPnALhoatC2RHO3 t6afOeX81e9fuOYW
bc1Y2anuimWowco4LmooD5oLrkJuuJhR7Xe56mJna8iacNHwq+UCzZqkBroI ttSogXMAXDQ1aIqt
U4MrEBcZebYvzz7mKk8KjWJynJ8fOTu/iwc5un7nrZaDOBQa18N39bGDpIah kTZp6vXiQja1JzVq
8B8AR9HSbzH41OBfDRHUoC4IzkryVw3Wu67d27VtMqPw04prX40owvkllVn4 RLjBRFhFVRQCWo9f
wGTedqlh7dq1xALiRdeiaT2pUYPnADixCDjUoBbeKo9o/fyk8ijKdWZNaevo 6riqusdVYVx1w8wr
uVjN8F09Jslqo6jjankbpICgKWlcc8NU9LjBmV+VPkxS0OjPKuBiE9Mx/75V 8q6sGp4eaZILtGtx
NzVqcB0AJzENUkNJ9Puuri70nsaSQAg1IS+pYdVrTbKDuJD9dJEaNeBvKEqu qgTyKoEQSk6iS11S
w+NKk+ygdtJ1UtRQE6AwCwTSQMBKDcQCxA4aL4Aa0phxRAEEWAi4qMHkBVAD C1AIAYE0EAA1pDGP
iAIIVIwAqKFiQGEOCKSBgKCG9evXy+8yeC5ILJ2/oUhj/hAFEKgJAfHl6EWL Fv2Y0RYuXEhHv7Tw
R9nBr3CbAtvROoYALR20thCIyKDgWSqmQAvUwDxtho6ikQfODAwM3H///Q+h dQCB++67j74VswOt
PQQiMqgf1MA/bYaKK3HgDLVDhw7VVGvBbCEEaCJoOnaitYdARAb1hhoKrUVB DaSyH60DCIivyrWX
Fxh5Z6HzmsR89YkazMNm6ItZZqcITGAR8YgFlcoREDOyC609BEQ6aMliTR+S 6R81aIfNyK9za/0J
UIMgNfNn5UnbjEExI7vR2kNAUIOaKa70IZn+UYO6jmVg5uJWqWHbtm1bRxpd eJqQaauZjlEI99xz
j/kzwsMuBC5mZA9aewhYi2hXEvWPGtTjZURU2rEz4i2oQWWQ7lDDPrT2EBDU YOaLZAf1Vv+owXq8
jPkNLZUaKODNI81KIrJTyNTU/EO72M1aNUR42G7gAnkxIx34PDRfFwQ1WL/O aJ7g1D9qEOfJWA+Z
kbfkgTMCi+deaxEft1alIn3gX7geKPgWuhM4wSiW2gG09hAQ6aCmiSeV+kcN 6qkykurUTnGtVg3d
yZBCWZ0kNRxEaw8BQQ1asriSqH/UoP2huP/AGYEFfSeyp40eKMhz82cfwxFL rb28wMgHRTpwzmuS
hy9EVM0tfFHaDEwE6TlwRqisHmlPPvmkuIhuZMHT/Gb9uiV967JxGZqgBvpO JFpbCFgzyJo+iVCD
58AZawVlPn2gpwEEBDW8hNYeAq7N1ZNB/a4agtTwBFoHEAA1tMcJr46cMjUw j5SgX8+IUyWo0fXv
0TqAAE3Evffe23p65OwApUPRDOpH1cA/UoJOnRCnSpDKypUrGYdQQKR2BB55 5BGajraOKsC4Ih2Y
h7LIDOoBNdDHnmhAAAj0AgF6eCzEKWPHjh03btyCBQvoYgz9oyt6Ty1ohUZC AwJAoEcIBJNaFYin
hkLDQBgIAIF+IQBq6Nd8wVsg0BACoIaGgMYwQKBfCIAa+jVf8BYINIQAqKEh oDEMEOgXAqCGfs0X
vAUCDSEAamgIaAwDBPqFAKihX/MFb4FAQwiUooYxrzWPsyQSHYqmG2HKVLEa UTuZKtFBQREI9AKB
eGrwp5MMPiKfrcAVtWPSlofIhPFCKr2YXTgJBKIRqIYaaqoaoqPyEBOqhvKo wkIOCFRPDdreK1OR
syczddVNXkySq6bgPB0EH1uKFiw5rBvEmDwC8dTgqsC1HVumsbVfTWzzCcWj qzJOoZolSBZBgeTX
BAIEAoRAKWow63a57YsLuZ+7+tU5cOWkizL89YLrbkSNgKoBqZIhAtVTgwai ufMzk1allWDF4Zq5
YAkQFPA8rWS4XBByPgjEU4O5mWtZpFUNwfQu9EBhFizWOfNnvrUc4JBFPusD kWaLQDw1WD9rMDvV
DwXkU4YsHPw9Ll3/IwbnIcXzMAJqyDYZELiKQClqAJRAAAikigCoIdWZRVxA oBQCoIZS8EEZCKSK
AKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCoIdWZ RVxAoBQCoIZS8EEZ
CKSKAKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCo IdWZRVxAoBQCKVDD
li1bhvNopaa6UmVgXimcXTSWAjUQLSxfvvyGG2646KKLLky0UWjXXHMNhdmR RQTMOzIR9bmRCDXM
mjVryZIlezb/IOEXBUhh1rcUClkmahCYP/fcc2sTbRRapzAvNEHlhROhhosv vliQwvY/3J7kS0RH
YZaf8kosEDWQMy+88MKhQ4deSrRRaBRgdzCvZOL4RhKhhokTJ4rkeTnRJqKj MPlTW6skUQM5s2HD
BsL7QKKNQqMAu4N5rRNqGk+HGnZv+G7a1EABdmeZCmqgkpsqhkTZ+GUKjQLs DuaghsIIiGW6a/Du
3Ru/l2ht+xKFRgF2Z5kKzAcHB9N+oKAAu4N54cQop5BO1bDjqX/dvX7pwUQb hUYBdmeZCmoYGBig
h4lEIT9IoVGA3cG8XKYX1k6HGujTx13PLtlXotEx8yW061Wl0CjA7ixTQQ1P PfXU/v37IyJX/zez
CHWPSoWTSKFRgN3BvHByl1NIhxq2/vaWnQOL95RotKpKaL+qWokR0w0Kbetv v9adZSqoYfXq1ZSl
RUHTIKoWsQqtUWgUYHcwL5fphbXToYYtD1+/46k7d8Y2WlKkKn6WaeUtWEen 0LasvL47y1RQw+OP
P753796icNUEkXCjQuMUGgXYHcwLJ3c5BVDDqwvbSg2y7pWrX+tRC2O5NOXq tAoXTSQhnwM1mHCJ
VFeznTMj6kRoc1EIfFDDuHHjFixYQBwxhv7RFb2nVo5xGtUWO9jQ/VcOr7pj e1SjBST15LXZWbRH
s6mqF3WTQtt8//Tu7GAC88cee4ySrWgsQRyEgGABYVz2eCA1ZVy6TIcpNAqw O5g3mlTr1qVTNWz6
6aXbf/9N+rOfiEarSmrJa7VT3FVrBHHXVNR6pIomXNRJCm3Tf13anWUqqOE3 v/nN1q1bi8ZiAmvC
G8Q2OCPqZMWBT6FRgN3BHNRQGAGxTEtSg7aSrIvJShYap1iZxeSRoumUPDUE SbbQjPitMcEHNSTy
QPH8D7+w7XffeqZ4o2WkKYketT+ix69e1M1tv7t9w4++0J0dTNDxo48+Sn9l UDQWDfAIbOXsuECu
BHwKjQLsDuaF98xyCuk8UKz7zme2/nou/SK6aKNlpKnIHllKSAGtR601VBlx rd01B+K7uvXXN1OA
3VmmghpWrlw5NDTEj8KEUcXEA1ehGakKfAqNAuwO5uUyvbB2OtSwduFZW1Ze /b/NNlqyzQxIoa1d
9NfdWaaCGh588MGNGzc2g0Dzo1BoFGB3MC+c3OUU0qGGwTsmDK34En2k3GQj amhmuKEVlw3eMb47
y1RQAx0tQ3+b2AwCzY9CoVGA3cG8XKYX1k6HGp6Zf9Lm+yf+KtG26f6Ja+af 1J1lKqjhF7/4Ba24
RCH/FYVGAXYH88LJXU4hHWoYuPWETf/9WXo4TLJRaAO3nNCdZSqoYdmyZfRn y0kCTkFRaBRgdzAv
l+mFtROhBjqK5//mHr/xPz+145dTdvzy0pGfSb0oNAqwOycOiVOeKHOefvrp FYk2Co0C7A7mhZO7
nEIi1DBjxoz58+dT8iT8ogCvuuqqctNdmTZRg8D8vqRbpzCvbPJ4hhKhBvq4 aPbs2UTwVP4l2ehE
6ZkzZ/LmtAkpcaI0MG8C65bGSIEaWoIOwwKBlBEANaQ8u4gNCEQjAGqIhg6K QCBlBEANKc8uYgMC
0QiAGqKhgyIQSBkBUEPKs4vYgEA0AqCGaOigCARSRgDUkPLsIjYgEI0AqCEa OigCgZQRADWkPLuI
DQhEIwBqiIYOikAgZQRADSnPLmIDAtEIgBqioYMiEEgZATs1UC8aEAACmSNg P2xe/B9WaEAACOSM
wKj/2I7eoAEBIAAEBAKv/p+XmVdQCB8IAAETgf8HCq1DC05PkXYAAAAASUVO RK5CYII=
------=_NextPart_000_002F_01C7462A.FA3E34E0--

Attached files
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:
Contactar Israel Solis

Columnas en tArrayBrowse

Mensaje por Israel Solis »

Ignacio:
Gracias por contestar.. a tu consejo:
"Le recomiendo igualmente que evite el uso de macro funciones que hacen todo, ya que de esa forma pierda mucha de la potencia que ofrece la programación OOP. "
Yo he usado estas macro funciones debido a que las utilizo en no menos de 30 procedimientos diferentes, ya que la definición es exactamente la misma tArrayBrowse, :OnDblClick(), :OnRClick(), y todas sus propiedades y funcionalidad, lo único que cambia es el Array a mostrar.
Tu consejo serí­a que mejor repitiese esto las veces que sea necesario para cada procedimiento donde es requerido para si tener un mejor control de manera independiente?
Saludos!!
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje news:45c21cd5$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Israel,
Le aconsejo que no cree ninguna columna en el TArrayBrowse y las cree antes de ejecutar el método SetArray. Le recomiendo igualmente que evite el uso de macro funciones que hacen todo, ya que de esa forma pierda mucha de la potencia que ofrece la programación OOP.
Eche un vistazo al formulario frmSelFromTabla del ejemplo DatacontrolsDbfData6, y la función SelArticulo() que se encuentra en FrmFraEdi.prg
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribió en el mensaje news:[email=45c217fb@news.xailer.com...]45c217fb@news.xailer.com...[/email]
Gracias Ignacio por contestar.
El problema que planteo es el siguiente, tengo la siguiente función:
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>, <cTitulo>, [, <cDescrip>], oForm) -> <aArray>
* DESCRIPCION: Muestra Forma con Browse para seleccionar datos a imprimir.
* PARAMETROS: <aArray> = Arreglo donde se encuentran las opciones a marcar/desmarcar.
* <nSelec>* = Posición dentro del arreglo <aArray> donde se almacena si la opción está marcada (.T.) ó desmarcada (.F.)
* <nDescrip>*= Posición dentro del arreglo <aArray> donde se almacena la descripción de la opción a marcar/desmarcar.
* <cTitulo> = Tí­tulo a presentar en la forma.
* <oForm> = Objeto FORM al cual se le colgará el diálogo a construir.
* Unicas 2 posiciones que serán mostradas en tArrayBrowse.
* REGRESA: <aArray> Arreglo original si se ha Cancelado la selección o <aNewArray> si ha aceptado las selecciones establecidas.
*
FUNCTION SelDat2(aArray, nSelec, nDescrip, cTitulo, oForm)
LOCAL aArrOrig := ACLONE(aArray) // Se conserva una copia del arreglo original (por si se presiona CANCELAR)
WITH OBJECT tFrmSelDat2():New(oForm) // Forma que muestra el tArrayBrowse (imagen)
:cText := cTitulo
:nSelec := nSelec
:nDescrip := nDescrip
:oArrBrw:SetArray(aArray)
IF :ShowModal() = mrOk
RETURN(aArray)
ELSE
RETURN(aArrOrig)
ENDIF
END WITH
RETURN(aArray)
*
* FIN SelDat2()
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CASO #1
La función anterior puede ser llamada con un arreglo <aArray> como este:
aDBFs := ARRAY(11, 4)
aDBFs[DBF_AUDITOR ] := {.T., 0, {|oProgress| ChkAuditor(oProgress) }, "Sucesos del sistema"}
aDBFs[DBF_COMBOS ] := {.T., 0, {|oProgress| ChkCombos(oProgress) }, "Opciones de captura"}
aDBFs[DBF_FORM2 ] := {.T., 0, {|oProgress| ChkFormat2(oProgress) }, "Formatos de impresión (detalle)"}
aDBFs[DBF_FORMATOS] := {.T., 0, {|oProgress| ChkFormatos(oProgress) }, "Formatos de impresión (maestro)"}
aDBFs[DBF_NIVEL2 ] := {.T., 0, {|oProgress| ChkNivel2(oProgress) }, "Niveles de seguridad (detalle)"}
aDBFs[DBF_NIVELES ] := {.T., 0, {|oProgress| ChkNiveles(oProgress) }, "Niveles de seguridad (maestro)"}
aDBFs[DBF_PAISES ] := {.T., 0, {|oProgress| ChkPaises(oProgress) }, "Paí­ses"}
aDBFs[DBF_SETINI ] := {.T., 0, {|oProgress| ChkSetIni(oProgress) }, "Configuración general del sistema"}
aDBFs[DBF_USUARIOS] := {.T., 0, {|oProgress| ChkUsuarios(oProgress) }, "Cuentas de Usuario"}
aDBFs[DBF_USRCAMPO] := {.T., 0, {|oProgress| ChkUsrCampo(oProgress) }, "Definición de campos definidos por el usuario"}
aDBFs[DBF_USRFIELD] := {.T., 0, {|oProgress| ChkUsrField(oProgress) }, "Valores en campos definidos por el usuario"}
En este caso quiero mosrar las posiciones 1 y 4 del arreglo en el tArrayBrowse:
aDBFs := SelDat2(aDBFs, 1, 4, "Verificación de información")
CASO #2
Ahora imaginemos este arreglo:
aColumnas := ARRAY(8)
aColumnas[ 1] := {.F., "No. Consecutivo",{"99,999", NIL}, 6, taRIGHT, .F., {2, 1}, .F., 1, 1}
aColumnas[ 2] := {.T., "Fecha", {NIL, NIL}, 14, taLEFT, .F., {2, 1}, .F., 2, 2}
aColumnas[ 3] := {.T., "Hora", {NIL, NIL}, 8, taLEFT, .F., {2, 1}, .F., 3, 3}
aColumnas[ 4] := {.F., "Usuario (clave)", {NIL, NIL}, 7, taLEFT, .F., {2, 1}, .F., 4, 4}
aColumnas[ 5] := {.T., "Usuario (nombre)" {NIL, NIL}, 13, taLEFT, .F., {2, 1}, .F., 5, 5}
aColumnas[ 6] := {.T., "Proceso", {NIL, NIL}, 13, taLEFT, .F., {2, 1}, .F., 6, 6}
aColumnas[ 7] := {.T., "Evento", {NIL, NIL}, 6, taLEFT, .F., {2, 1}, .F., 7, 7}
aColumnas[ 8] := {.T., "Detalles", {NIL, NIL}, 15, taLEFT, .F., {2, 1}, .F., 8, 8}
En este caso quiero mostrar las posiciones 1 y 2 del arreglo en el tArrayBrowse:
aColumnas := SelDat2(aColumnas, 1, 2, "Verificación de información")
Entonces, tomando estas variantes ¿como puedo indicar a la tArrayBrowse que columnas del arreglo recibido va a mostrar?, de antemano el tArrayBrowse ya fue diseñado en el IDE con solo 2 columnas, pero necesito indicar que posiciones (columnas) va a mostrar del arreglo pasado en tArrayBrowse:SetArray(aArray)
Espero a ver sido claro, de antemano MIL GRACIAS!!
Israel
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje news:45c1b28b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Israel,
No tiene más que crear las columnas en el browse antes de hacer la llamada a TArrayBrowse:SetArray()
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribió en el mensaje news:[email=45c0e0aa@news.xailer.com...]45c0e0aa@news.xailer.com...[/email]
Hola Foro:
Tengo una duda (quizá demasiado tonta pero no logro darle al clavo):
He creado un Form en el cual muestro un tArrayBrowse para mostrar y permitir al usuario seleccionar información.
En este tArrayBrowse quiero mostrar solo 2 columnas de un array de <n> columnas
Como esta forma puede ser llamada desde cualquier función, el Array puede varia en dimensiones, entonces, la idea es especificar que datos del array quiero mostrar en esas 2 columnas
Entonces...
¿Cómo puedo definir las columnas que deseo mostrar en un tArrayBrowse con un Array de <n> columnas?
Gracias!!
--
Saludos :D

Israel
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9252
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Columnas en tArrayBrowse

Mensaje por ignacio »

Israel,
Insisto. Por favor revisa el código que te he comentado. Verás que es exactamente lo que necesitas.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribió en el mensaje news:[email=45c23512@news.xailer.com...]45c23512@news.xailer.com...[/email]
Ignacio:
Gracias por contestar.. a tu consejo:
"Le recomiendo igualmente que evite el uso de macro funciones que hacen todo, ya que de esa forma pierda mucha de la potencia que ofrece la programación OOP. "
Yo he usado estas macro funciones debido a que las utilizo en no menos de 30 procedimientos diferentes, ya que la definición es exactamente la misma tArrayBrowse, :OnDblClick(), :OnRClick(), y todas sus propiedades y funcionalidad, lo único que cambia es el Array a mostrar.
Tu consejo serí­a que mejor repitiese esto las veces que sea necesario para cada procedimiento donde es requerido para si tener un mejor control de manera independiente?
Saludos!!
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje news:45c21cd5$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Israel,
Le aconsejo que no cree ninguna columna en el TArrayBrowse y las cree antes de ejecutar el método SetArray. Le recomiendo igualmente que evite el uso de macro funciones que hacen todo, ya que de esa forma pierda mucha de la potencia que ofrece la programación OOP.
Eche un vistazo al formulario frmSelFromTabla del ejemplo DatacontrolsDbfData6, y la función SelArticulo() que se encuentra en FrmFraEdi.prg
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribió en el mensaje news:[email=45c217fb@news.xailer.com...]45c217fb@news.xailer.com...[/email]
Gracias Ignacio por contestar.
El problema que planteo es el siguiente, tengo la siguiente función:
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>, <cTitulo>, [, <cDescrip>], oForm) -> <aArray>
* DESCRIPCION: Muestra Forma con Browse para seleccionar datos a imprimir.
* PARAMETROS: <aArray> = Arreglo donde se encuentran las opciones a marcar/desmarcar.
* <nSelec>* = Posición dentro del arreglo <aArray> donde se almacena si la opción está marcada (.T.) ó desmarcada (.F.)
* <nDescrip>*= Posición dentro del arreglo <aArray> donde se almacena la descripción de la opción a marcar/desmarcar.
* <cTitulo> = Tí­tulo a presentar en la forma.
* <oForm> = Objeto FORM al cual se le colgará el diálogo a construir.
* Unicas 2 posiciones que serán mostradas en tArrayBrowse.
* REGRESA: <aArray> Arreglo original si se ha Cancelado la selección o <aNewArray> si ha aceptado las selecciones establecidas.
*
FUNCTION SelDat2(aArray, nSelec, nDescrip, cTitulo, oForm)
LOCAL aArrOrig := ACLONE(aArray) // Se conserva una copia del arreglo original (por si se presiona CANCELAR)
WITH OBJECT tFrmSelDat2():New(oForm) // Forma que muestra el tArrayBrowse (imagen)
:cText := cTitulo
:nSelec := nSelec
:nDescrip := nDescrip
:oArrBrw:SetArray(aArray)
IF :ShowModal() = mrOk
RETURN(aArray)
ELSE
RETURN(aArrOrig)
ENDIF
END WITH
RETURN(aArray)
*
* FIN SelDat2()
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CASO #1
La función anterior puede ser llamada con un arreglo <aArray> como este:
aDBFs := ARRAY(11, 4)
aDBFs[DBF_AUDITOR ] := {.T., 0, {|oProgress| ChkAuditor(oProgress) }, "Sucesos del sistema"}
aDBFs[DBF_COMBOS ] := {.T., 0, {|oProgress| ChkCombos(oProgress) }, "Opciones de captura"}
aDBFs[DBF_FORM2 ] := {.T., 0, {|oProgress| ChkFormat2(oProgress) }, "Formatos de impresión (detalle)"}
aDBFs[DBF_FORMATOS] := {.T., 0, {|oProgress| ChkFormatos(oProgress) }, "Formatos de impresión (maestro)"}
aDBFs[DBF_NIVEL2 ] := {.T., 0, {|oProgress| ChkNivel2(oProgress) }, "Niveles de seguridad (detalle)"}
aDBFs[DBF_NIVELES ] := {.T., 0, {|oProgress| ChkNiveles(oProgress) }, "Niveles de seguridad (maestro)"}
aDBFs[DBF_PAISES ] := {.T., 0, {|oProgress| ChkPaises(oProgress) }, "Paí­ses"}
aDBFs[DBF_SETINI ] := {.T., 0, {|oProgress| ChkSetIni(oProgress) }, "Configuración general del sistema"}
aDBFs[DBF_USUARIOS] := {.T., 0, {|oProgress| ChkUsuarios(oProgress) }, "Cuentas de Usuario"}
aDBFs[DBF_USRCAMPO] := {.T., 0, {|oProgress| ChkUsrCampo(oProgress) }, "Definición de campos definidos por el usuario"}
aDBFs[DBF_USRFIELD] := {.T., 0, {|oProgress| ChkUsrField(oProgress) }, "Valores en campos definidos por el usuario"}
En este caso quiero mosrar las posiciones 1 y 4 del arreglo en el tArrayBrowse:
aDBFs := SelDat2(aDBFs, 1, 4, "Verificación de información")
CASO #2
Ahora imaginemos este arreglo:
aColumnas := ARRAY(8)
aColumnas[ 1] := {.F., "No. Consecutivo",{"99,999", NIL}, 6, taRIGHT, .F., {2, 1}, .F., 1, 1}
aColumnas[ 2] := {.T., "Fecha", {NIL, NIL}, 14, taLEFT, .F., {2, 1}, .F., 2, 2}
aColumnas[ 3] := {.T., "Hora", {NIL, NIL}, 8, taLEFT, .F., {2, 1}, .F., 3, 3}
aColumnas[ 4] := {.F., "Usuario (clave)", {NIL, NIL}, 7, taLEFT, .F., {2, 1}, .F., 4, 4}
aColumnas[ 5] := {.T., "Usuario (nombre)" {NIL, NIL}, 13, taLEFT, .F., {2, 1}, .F., 5, 5}
aColumnas[ 6] := {.T., "Proceso", {NIL, NIL}, 13, taLEFT, .F., {2, 1}, .F., 6, 6}
aColumnas[ 7] := {.T., "Evento", {NIL, NIL}, 6, taLEFT, .F., {2, 1}, .F., 7, 7}
aColumnas[ 8] := {.T., "Detalles", {NIL, NIL}, 15, taLEFT, .F., {2, 1}, .F., 8, 8}
En este caso quiero mostrar las posiciones 1 y 2 del arreglo en el tArrayBrowse:
aColumnas := SelDat2(aColumnas, 1, 2, "Verificación de información")
Entonces, tomando estas variantes ¿como puedo indicar a la tArrayBrowse que columnas del arreglo recibido va a mostrar?, de antemano el tArrayBrowse ya fue diseñado en el IDE con solo 2 columnas, pero necesito indicar que posiciones (columnas) va a mostrar del arreglo pasado en tArrayBrowse:SetArray(aArray)
Espero a ver sido claro, de antemano MIL GRACIAS!!
Israel
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje news:45c1b28b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Israel,
No tiene más que crear las columnas en el browse antes de hacer la llamada a TArrayBrowse:SetArray()
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribió en el mensaje news:[email=45c0e0aa@news.xailer.com...]45c0e0aa@news.xailer.com...[/email]
Hola Foro:
Tengo una duda (quizá demasiado tonta pero no logro darle al clavo):
He creado un Form en el cual muestro un tArrayBrowse para mostrar y permitir al usuario seleccionar información.
En este tArrayBrowse quiero mostrar solo 2 columnas de un array de <n> columnas
Como esta forma puede ser llamada desde cualquier función, el Array puede varia en dimensiones, entonces, la idea es especificar que datos del array quiero mostrar en esas 2 columnas
Entonces...
¿Cómo puedo definir las columnas que deseo mostrar en un tArrayBrowse con un Array de <n> columnas?
Gracias!!
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Columnas en tArrayBrowse

Mensaje por zeasoftware »

This is a multi-part message in MIME format.
------=_NextPart_000_0060_01C7460A.5C13FEA0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0061_01C7460A.5C13FEA0"
------=_NextPart_001_0061_01C7460A.5C13FEA0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Por que mejor haces una clase en la cual tengas el arreglo que quieras =
mostrar, y con el proceso a efectuar en dicha opcion?
Yo igual hice algo parecido y al usar una clase sencilla para =
identificar cada indice pude resolverlo.
Para qeu te muestre solo dos columnas debes tener un arreglo con solo =
dos columnas, y este pasarlo al tArrraybrowse.
mi ejemplo:
Class zIndex
Data cDBF
Data cDescrip
Data nCurrTag Init 1
Data nTags Init 0
Data aTagsKey Init {}
Data aTagsFor Init {}
Data aTagsName Init {}
Method AddTag(cTag)
Method New() Constructor
EndClass
Espero te sirva.
Saludos.
--=20
Ram=F3n Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Israel Solis" <isolis_antispam_@sanroms.com> escribi=F3 en el mensaje =
news:[email=45c217fb@news.xailer.com...]45c217fb@news.xailer.com...[/email]
Gracias Ignacio por contestar.
El problema que planteo es el siguiente, tengo la siguiente funci=F3n:
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * * * * * * *
* FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>, <cTitulo>, [, =
<cDescrip>], oForm) -> <aArray>
* DESCRIPCION: Muestra Forma con Browse para seleccionar datos a =
imprimir.
* PARAMETROS: <aArray> =3D Arreglo donde se encuentran las opciones a =
marcar/desmarcar.
* <nSelec>* =3D Posici=F3n dentro del arreglo <aArray> =
donde se almacena si la opci=F3n est=E1 marcada (.T.) =F3 desmarcada =
(.F.)
* <nDescrip>*=3D Posici=F3n dentro del arreglo <aArray> =
donde se almacena la descripci=F3n de la opci=F3n a marcar/desmarcar.
* <cTitulo> =3D T=EDtulo a presentar en la forma.
* <oForm> =3D Objeto FORM al cual se le colgar=E1 el =
di=E1logo a construir.
* Unicas 2 posiciones que ser=E1n mostradas en tArrayBrowse.
* REGRESA: <aArray> Arreglo original si se ha Cancelado la selecci=F3n =
o <aNewArray> si ha aceptado las selecciones establecidas.
*
FUNCTION SelDat2(aArray, nSelec, nDescrip, cTitulo, oForm)
LOCAL aArrOrig :=3D ACLONE(aArray) // Se conserva una copia del =
arreglo original (por si se presiona CANCELAR)
WITH OBJECT tFrmSelDat2():New(oForm) // Forma que muestra el =
tArrayBrowse (imagen)
:cText :=3D cTitulo
:nSelec :=3D nSelec
:nDescrip :=3D nDescrip
:oArrBrw:SetArray(aArray)
IF :ShowModal() =3D mrOk
RETURN(aArray)
ELSE
RETURN(aArrOrig)
ENDIF
END WITH
RETURN(aArray)
*
* FIN SelDat2()
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * * * * * * *
CASO #1
La funci=F3n anterior puede ser llamada con un arreglo <aArray> como =
este:
aDBFs :=3D ARRAY(11, 4)
aDBFs[DBF_AUDITOR ] :=3D {.T., 0, {|oProgress| ChkAuditor(oProgress) =
}, "Sucesos del sistema"}
aDBFs[DBF_COMBOS ] :=3D {.T., 0, {|oProgress| ChkCombos(oProgress) }, =
"Opciones de captura"}
aDBFs[DBF_FORM2 ] :=3D {.T., 0, {|oProgress| ChkFormat2(oProgress) =
}, "Formatos de impresi=F3n (detalle)"}
aDBFs[DBF_FORMATOS] :=3D {.T., 0, {|oProgress| ChkFormatos(oProgress) =
}, "Formatos de impresi=F3n (maestro)"}
aDBFs[DBF_NIVEL2 ] :=3D {.T., 0, {|oProgress| ChkNivel2(oProgress) }, =
"Niveles de seguridad (detalle)"}
aDBFs[DBF_NIVELES ] :=3D {.T., 0, {|oProgress| ChkNiveles(oProgress) =
}, "Niveles de seguridad (maestro)"}
aDBFs[DBF_PAISES ] :=3D {.T., 0, {|oProgress| ChkPaises(oProgress) }, =
"Pa=EDses"}
aDBFs[DBF_SETINI ] :=3D {.T., 0, {|oProgress| ChkSetIni(oProgress) }, =
"Configuraci=F3n general del sistema"}
aDBFs[DBF_USUARIOS] :=3D {.T., 0, {|oProgress| ChkUsuarios(oProgress) =
}, "Cuentas de Usuario"}
aDBFs[DBF_USRCAMPO] :=3D {.T., 0, {|oProgress| ChkUsrCampo(oProgress) =
}, "Definici=F3n de campos definidos por el usuario"}
aDBFs[DBF_USRFIELD] :=3D {.T., 0, {|oProgress| ChkUsrField(oProgress) =
}, "Valores en campos definidos por el usuario"}
En este caso quiero mosrar las posiciones 1 y 4 del arreglo en el =
tArrayBrowse:
aDBFs :=3D SelDat2(aDBFs, 1, 4, "Verificaci=F3n de informaci=F3n")
CASO #2
Ahora imaginemos este arreglo:
aColumnas :=3D ARRAY(8)
aColumnas[ 1] :=3D {.F., "No. Consecutivo",{"99,999", NIL}, 6, =
taRIGHT, .F., {2, 1}, .F., 1, 1}
aColumnas[ 2] :=3D {.T., "Fecha", {NIL, NIL}, 14, =
taLEFT, .F., {2, 1}, .F., 2, 2}
aColumnas[ 3] :=3D {.T., "Hora", {NIL, NIL}, 8, =
taLEFT, .F., {2, 1}, .F., 3, 3}
aColumnas[ 4] :=3D {.F., "Usuario (clave)", {NIL, NIL}, 7, =
taLEFT, .F., {2, 1}, .F., 4, 4}
aColumnas[ 5] :=3D {.T., "Usuario (nombre)" {NIL, NIL}, 13, =
taLEFT, .F., {2, 1}, .F., 5, 5}
aColumnas[ 6] :=3D {.T., "Proceso", {NIL, NIL}, 13, =
taLEFT, .F., {2, 1}, .F., 6, 6}
aColumnas[ 7] :=3D {.T., "Evento", {NIL, NIL}, 6, =
taLEFT, .F., {2, 1}, .F., 7, 7}
aColumnas[ 8] :=3D {.T., "Detalles", {NIL, NIL}, 15, =
taLEFT, .F., {2, 1}, .F., 8, 8}
En este caso quiero mostrar las posiciones 1 y 2 del arreglo en el =
tArrayBrowse:
aColumnas :=3D SelDat2(aColumnas, 1, 2, "Verificaci=F3n de =
informaci=F3n")
Entonces, tomando estas variantes =BFcomo puedo indicar a la =
tArrayBrowse que columnas del arreglo recibido va a mostrar?, de =
antemano el tArrayBrowse ya fue dise=F1ado en el IDE con solo 2 =
columnas, pero necesito indicar que posiciones (columnas) va a mostrar =
del arreglo pasado en tArrayBrowse:SetArray(aArray)
Espero a ver sido claro, de antemano MIL GRACIAS!!
Israel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45c1b28b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Israel,=20
No tiene m=E1s que crear las columnas en el browse antes de hacer la =
llamada a TArrayBrowse:SetArray()
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribi=F3 en el =
mensaje news:[email=45c0e0aa@news.xailer.com...]45c0e0aa@news.xailer.com...[/email]
Hola Foro:
Tengo una duda (quiz=E1 demasiado tonta pero no logro darle al =
clavo):
He creado un Form en el cual muestro un tArrayBrowse para mostrar =
y permitir al usuario seleccionar informaci=F3n.
En este tArrayBrowse quiero mostrar solo 2 columnas de un array de =
<n> columnas
Como esta forma puede ser llamada desde cualquier funci=F3n, el =
Array puede varia en dimensiones, entonces, la idea es especificar que =
datos del array quiero mostrar en esas 2 columnas
Entonces...
=BFC=F3mo puedo definir las columnas que deseo mostrar en un =
tArrayBrowse con un Array de <n> columnas?
Gracias!!
------=_NextPart_001_0061_01C7460A.5C13FEA0
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.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Por que mejor haces una clase en la =
cual tengas el=20
arreglo que quieras mostrar, y con el proceso a efectuar en dicha=20
opcion?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Yo igual hice algo parecido y al usar =
una clase=20
sencilla para identificar cada indice pude resolverlo.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Para qeu te muestre solo dos columnas =
debes tener=20
un arreglo con solo dos columnas, y este pasarlo al =
tArrraybrowse.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>mi ejemplo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><STRONG>Class =
zIndex<BR>ÂÂ=20
Data cDBF<BR>ÂÂ Data cDescrip</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><STRONG>ÂÂ =
Data=20
nCurrTag Init 1<BR> Data nTags =
Init=20
0<BR> Data aTagsKey Init {}<BR> Data=20
aTagsFor Init {}<BR> Data aTagsName Init=20
{}</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><STRONG>ÂÂ =
Method=20
AddTag(cTag)<BR>ÂÂ Method New()ÂÂÂÂ=20
Constructor</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
size=3D2><STRONG>EndClass</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Espero te sirva.</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><FONT face=3DArial =
size=3D2></FONT><BR>--=20
<BR>Ram=F3n Zea<BR><A=20
href=3D"mailto:ramonzea@yahoo.com">ramonzea@yahoo.com</A><BR><A=20
href=3D"mailto:zeasoftware@hotmail.com">zeasoftware@hotmail.com</A><BR><A=
=20
href=3D"mailto:zeasoft.movil@hotmail.com">zeasoft.movil@hotmail.com</A><B=
R><A=20
href=3D"http://www.paginasprodigy.com/zeasoft/" ... asprodigy=
..com/zeasoft/</A></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
=
href=3D"mailto:isolis_antispam_@sanroms.com">isolis_antispam_@sanroms.com=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:45c217fb@news.xailer.com">news:45c217fb@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias Ignacio por =
contestar.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>El problema que planteo es el =
siguiente, tengo la=20
siguiente funci=F3n:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys><FONT size=3D2><FONT color=3D#808080>* * * =
* * * * * * *=20
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
*<BR>*=20
FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>,=20
<cTitulo>, [, <cDescrip>], oForm) -> =
<aArray><BR>*=20
DESCRIPCION: Muestra Forma con Browse para seleccionar datos a =
imprimir.<BR>*=20
PARAMETROS: <aArray>Â =3D Arreglo donde se encuentran las =
opciones a=20
=
marcar/desmarcar.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂ&nb=
sp;ÂÂÂ=20
<FONT color=3D#ff0000><STRONG><nSelec>*</STRONG></FONT >Â =
=3D Posici=F3n=20
dentro del arreglo <aArray> donde se almacena si la opci=F3n =
est=E1 marcada=20
(.T.) =F3 desmarcada=20
=
(.F.)<BR> *ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nb=
sp;Â=20
<FONT color=3D#ff0000><STRONG><nDescrip>*</STRONG ></FONT>=3D =
Posici=F3n dentro=20
del arreglo <aArray> donde se almacena la descripci=F3n de la =
opci=F3n a=20
=
marcar/desmarcar.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂ&nb=
sp;ÂÂÂ=20
<cTitulo> =3D T=EDtulo a presentar en la=20
=
forma.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&n=
bsp;Â=20
<oForm>ÂÂÂ =3D Objeto FORM al cual se le =
colgar=E1 el di=E1logo=20
a construir.</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys><FONT size=3D2><FONT color=3D#808080><FONT=20
color=3D#ff0000><STRONG>* Unicas 2 posiciones que ser=E1n mostradas en =
tArrayBrowse.<BR></STRONG></FONT>* REGRESA: <aArray> Arreglo =
original si=20
se ha Cancelado la selecci=F3n o <aNewArray> si ha aceptado las=20
selecciones establecidas.<BR>*<BR></FONT><FONT =
color=3D#000080>FUNCTION</FONT>=20
<FONT color=3D#0000ff>SelDat2</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray, nSelec, nDescrip, cTitulo, oForm</FONT><FONT=20
color=3D#ff0000>)</FONT><BR>Â <FONT color=3D#000080>LOCAL</FONT> =
<FONT=20
color=3D#008080>aArrOrig</FONT> <FONT color=3D#ff0000>:=3D</FONT> =
<FONT=20
color=3D#0000ff>ACLONE</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT color=3D#ff0000>)</FONT><FONT =
color=3D#808080> //=20
Se conserva una copia del arreglo original (por si se presiona=20
CANCELAR)<BR></DIV></FONT></FONT><FONT size=3D2></FONT></FONT>
<DIV><FONT face=3DFixedsys size=3D2>Â <FONT color=3D#000080>WITH =
OBJECT</FONT>=20
<FONT color=3D#0000ff>tFrmSelDat2</FONT><FONT =
color=3D#ff0000>()</FONT><FONT=20
color=3D#008000>:New</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>oForm</FONT><FONT color=3D#ff0000>) // Forma que =
muestra el=20
tArrayBrowse (imagen)</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:cText</FONT> <FONT color=3D#ff0000>:=3D</FONT> <FONT=20
color=3D#008080>cTitulo<BR></FONT>ÂÂÂ <FONT=20
color=3D#008000>:nSelec</FONT> <FONT color=3D#ff0000>:=3D</FONT> <FONT =
color=3D#008080>nSelec</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:nDescrip</FONT> <FONT color=3D#ff0000>:=3D</FONT> =
<FONT=20
color=3D#008080>nDescrip</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:oArrBrw:SetArray</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT =
color=3D#ff0000>)</FONT><BR>ÂÂÂ=20
<FONT color=3D#000080>IF</FONT> <FONT =
color=3D#008000>:ShowModal</FONT><FONT=20
color=3D#ff0000>()</FONT> <FONT color=3D#ff0000>=3D</FONT> <FONT=20
color=3D#008080>mrOk</FONT><BR> ÂÂÂÂÂÂ =
<FONT=20
color=3D#0000ff>RETURN</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT =
color=3D#ff0000>)</FONT><BR>ÂÂÂ=20
<FONT =
color=3D#000080>ELSE</FONT><BR> ÂÂÂÂÂÂ =
<FONT=20
color=3D#0000ff>RETURN</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArrOrig</FONT><FONT color=3D#ff0000>)</FONT><BR><FONT =
color=3D#000080>ÂÂÂ ENDIF<BR>Â END =
WITH</FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys color=3D#000080 =
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT =
color=3D#0000ff>RETURN</FONT><FONT=20
color=3D#ff0000>(</FONT><FONT color=3D#008080>aArray</FONT><FONT=20
color=3D#ff0000>)</FONT><BR><FONT color=3D#808080>*<BR>* FIN =
SelDat2()<BR>* * * *=20
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * *=20
*<BR></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys color=3D#ff00ff size=3D2>CASO =
#1</FONT></DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000>La funci=F3n anterior puede ser llamada con un arreglo =
<aArray> como este:</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT face=3DFixedsys =
color=3D#000000>aDBFs=20
:=3D ARRAY(11, 4)<BR>aDBFs[DBF_AUDITOR ] :=3D {.T., 0, {|oProgress|=20
ChkAuditor(oProgress) }, "Sucesos del=20
sistema"}<BR>aDBFs[DBF_COMBOSÂ ]Â:=3D {.T., 0, {|oProgress|=20
ChkCombos(oProgress) }, Â"Opciones de=20
captura"}<BR>aDBFs[DBF_FORM2ÂÂ ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkFormat2(oProgress) }, "Formatos de impresi=F3n=20
(detalle)"}<BR>aDBFs[DBF_FORMATOS]Â:=3D {.T., 0, {|oProgress|=20
ChkFormatos(oProgress) }, "Formatos de impresi=F3n=20
(maestro)"}<BR>aDBFs[DBF_NIVEL2Â ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkNivel2(oProgress) }, Â "Niveles de seguridad=20
(detalle)"}<BR>aDBFs[DBF_NIVELES ]Â:=3D {.T., 0, {|oProgress|=20
ChkNiveles(oProgress) }, "Niveles de seguridad=20
(maestro)"}<BR>aDBFs[DBF_PAISESÂ ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkPaises(oProgress) }, Â "Pa=EDses"}<BR>aDBFs[DBF_SETINIÂ =
]Â:=3D=20
{.T., 0, {|oProgress| ChkSetIni(oProgress) }, Â "Configuraci=F3n =
general=20
del sistema"}<BR>aDBFs[DBF_USUARIOS]Â:=3D {.T., 0, {|oProgress|=20
ChkUsuarios(oProgress) }, "Cuentas de =
Usuario"}<BR>aDBFs[DBF_USRCAMPO]Â:=3D=20
{.T., 0, {|oProgress| ChkUsrCampo(oProgress) }, "Definici=F3n de =
campos=20
definidos por el usuario"}<BR>aDBFs[DBF_USRFIELD]Â:=3D {.T., 0,=20
{|oProgress| ChkUsrField(oProgress) }, "Valores en campos definidos =
por el=20
usuario"}<BR></FONT></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT face=3DArial =
color=3D#000080><STRONG>En este=20
caso quiero mosrar las posiciones <FONT color=3D#ff0000>1</FONT> y =
<FONT=20
color=3D#ff0000>4</FONT> del arreglo en el=20
tArrayBrowse:</STRONG></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT color=3D#000000><FONT=20
face=3DFixedsys><FONT color=3D#008000>aDBFs</FONT> <FONT =
color=3D#ff0000>:=3D</FONT>=20
<FONT color=3D#0000ff>SelDat2</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008000>aDBFs</FONT><FONT color=3D#ff0000>,</FONT> <FONT=20
color=3D#ff0000><STRONG>1</STRONG>,</FONT> <FONT=20
color=3D#ff0000><STRONG>4</STRONG>,</FONT> <FONT =
color=3D#ff0000>"Verificaci=F3n de=20
informaci=F3n")</FONT></FONT></DIV></FONT></FONT></FONT >
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff00ff size=3D2><STRONG>CASO=20
#2</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ahora imaginemos este =
arreglo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2>aColumnas :=3D =
ARRAY(8)<BR>aColumnas[ 1] :=3D=20
{.F., "No. Consecutivo",{"99,999", NIL}, 6, taRIGHT, .F., {2, =
1}, .F.,=20
1, 1}<BR>aColumnas[ 2] :=3D {.T.,=20
=
"Fecha" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nbsp=
;ÂÂÂÂ{NIL,=20
NIL}, 14, taLEFT, .F., {2, 1}, .F., 2, 2}<BR>aColumnas[ 3] :=3D =
{.T.,=20
=
"Hora" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂÂ=
ÂÂÂÂ=20
{NIL, NIL}, 8, taLEFT, .F., {2, 1}, .F., 3, =
3}<BR>aColumnas[ 4] :=3D=20
{.F., "Usuario (clave)", {NIL, NIL}, =
7,Â=20
taLEFT, .F., {2, 1}, .F., 4, 4}<BR>aColumnas[ 5] :=3D {.T., "Usuario=20
(nombre)"ÂÂÂÂÂ{NIL, NIL}, 13, taLEFT, =
..F., {2,=20
1}, .F., 5, 5}<BR>aColumnas[ 6] :=3D {.T.,=20
=
"Proceso" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nb=
sp;Â=20
{NIL, NIL}, 13, taLEFT, .F., {2, 1}, .F., 6, 6}<BR>aColumnas[ 7] =
:=3D=20
{.T.,=20
=
"Evento" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nbs=
p;ÂÂ=20
{NIL, NIL}, 6, taLEFT, .F., {2, 1}, .F., 7, =
7}<BR>aColumnas[ 8] :=3D=20
{.T.,=20
=
"Detalles" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&n=
bsp;=20
{NIL, NIL}, 15, taLEFT, .F., {2, 1}, .F., 8, 8}<BR></FONT></DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT face=3DFixedsys =
color=3D#000000>
<DIV><FONT face=3DFixedsys size=3D2><FONT face=3DArial =
color=3D#000080><STRONG>En este=20
caso quiero mostrar las posiciones <FONT color=3D#ff0000>1</FONT> y =
<FONT=20
color=3D#ff0000>2</FONT> del arreglo en el=20
tArrayBrowse:</STRONG></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT color=3D#000000><FONT=20
face=3DFixedsys><FONT color=3D#008000>aColumnas</FONT> <FONT=20
color=3D#ff0000>:=3D</FONT> <FONT color=3D#0000ff>SelDat2</FONT><FONT=20
color=3D#ff0000>(</FONT><FONT color=3D#008000>aColumnas</FONT><FONT=20
color=3D#ff0000>,</FONT> <FONT =
color=3D#ff0000><STRONG>1</STRONG>,</FONT> <FONT=20
color=3D#ff0000><STRONG>2</STRONG>,</FONT> <FONT =
color=3D#ff0000>"Verificaci=F3n de=20
informaci=F3n")</FONT></FONT></DIV></FONT></FONT></FONT >
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Entonces, tomando estas variantes <FONT=20
color=3D#ff0000><STRONG>=BFcomo puedo indicar a la tArrayBrowse que =
columnas del=20
arreglo recibido va a mostrar?</STRONG>, de antemano el tArrayBrowse =
ya fue=20
dise=F1ado en el IDE con solo 2 columnas, pero necesito indicar que =
posiciones=20
(columnas)Âva a mostrar del arreglo pasado en=20
tArrayBrowse:SetArray(aArray)</FONT></FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Espero a ver sido claro, de antemano MIL=20
GRACIAS!!</FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Israel</FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV></FONT></DIV></FONT ></FONT>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:45c1b28b$1@news.xailer.com">news:45c1b28b$1@news.xailer.com<=
/A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Israel, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No tiene m=E1s que crear las =
columnas en el=20
browse antes de hacer la llamada a =
TArrayBrowse:SetArray()</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
=
href=3D"mailto:isolis_antispam_@sanroms.com">isolis_antispam_@sanroms.com=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:45c0e0aa@news.xailer.com">news:45c0e0aa@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Hola Foro:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tengo una duda (quiz=E1 demasiado =
tonta pero no=20
logro darle al clavo):</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He creado un Form en el cual =
muestro un=20
tArrayBrowse para mostrar y permitir al usuario seleccionar=20
informaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>En este tArrayBrowse quiero =
<U>mostrar solo 2=20
columnas</U> de un array de <n> columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Como esta forma puede ser llamada =
desde=20
cualquier funci=F3n, el Array puede varia en dimensiones, =
entonces, la idea=20
es especificar que datos del array quiero mostrar en esas 2=20
columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Entonces...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=BFC=F3mo puedo definir las =
columnas que deseo=20
mostrar en un tArrayBrowse con un Array de <n>=20
columnas?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0=20
src=3D"cid:005b01c7463c$a69149b0$[email=dc01a8c0@ramonzea]dc01a8c0@ramonzea[/email]" =
align=3Dbaseline=20
=
border=3D0></DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE> </BODY></HTML>
------=_NextPart_001_0061_01C7460A.5C13FEA0--
------=_NextPart_000_0060_01C7460A.5C13FEA0
Content-Type: image/png;
name="ArrayBrowse.PNG"
Content-Transfer-Encoding: base64
Content-ID: <005b01c7463c$a69149b0$[email=dc01a8c0@ramonzea]dc01a8c0@ramonzea[/email]>
iVBORw0KGgoAAAANSUhEUgAAAV4AAAF8CAIAAAAILURwAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAMDpJREFU
eF7tXWusnlWVLhp/mHgPP2DKGB0ErTiMiECLojCDjBGUjDgUUopFSqVFaIEC LQpFa3GGuWDbgQbr
6HhLyDhBMynRlksT8JI4RDOUAs4ph9KWtofS9vR+A5nVs2Gzz76ud7/3vZ+d ryfvt9+11l7r2Xs9
e73f+c7uEWPGjFm3bh39pPbud7/7uOOOE9doQAAIZIXAQw89NCpe4gXRiBTO PvvsOXPmzJ8/fwEa
EAAC2SBAKU+JT+lPJCAJ4XDJQO3EE0+86aabCAqSuO6662aiAQEgkA0ClPKU +JT+RAJEBYITDlMD
UQV1UfsKGhAAAhkjIHhA1A6HqYEKCSKMGWhAAAhkjwBRARHCYWoghqBaYvbs 2dljAgCAABCYQVRA
hHD41xH0jz6EIEiuQAMCQKC3CFAKX3jhhX9TvJGWmv50TYTwKjVQCTFt2rTe YgLHgQAQuIIyfOLE
id+bPmXvP8/e88837P6Xm3aOvIbvnKO+RCfdJRmSJHnSIl2JIFEBEcLr1HC5 t13xpS/5BXAXCACB
dhGgcuH707+4Y+6lz9867bl505+57aqBb1z9x/kz6bX6m9eKl3hL/XSXZEiS 5EmLdFXnR1HDFHe7
bMqUqZMnewRwCwgAgdYRoPTe8Y/Xrf/q5fR69mvTBm658ul505+69arV8655 4hvXrPr61fSTrqmH
+ukuyQhh0iJd1f9R1HCpu31l6rTJkyd7BHALCACB1hGg9B7+h2vXzZmy7sbJ 6+Z88dmbpgzOvXzg
5qkDX73i6ZunPX3zl+knXVMP9dNdkhmRnEJapKv6z6WGJXPmTJo48S1vecvb 3va2t771rccff/wl
l1zy9re/nd6+853vbB0ROAAEgAAhQOm97faZz86etGH2xfTa9dsHX3nlFXGt vaif7opOkictHzVM
crc/3DZX3HzjG99IBCGuzz333A9+8IMerV7fIux67T+czxCBw1XDN7/y7KyJ G679e3rRGhZNvJUv
rZ/kSYt0VcRGVQ30EaWrDX35InHrggsuoL++OOecc+j6TW96k0teju2xKWQ8 AsxbVdlRhxOOHXvU
kX4f5NB1+MAMH2JAQCJwuGqYP/2Zqz+/Ycb54vU6C7h7SJ60SFdFchQ1fMHR 6Ncag+eeKW9+6EMf
InY48sgjXfLCG8orcREUcwnw+2ksevHlOZIcgzJSMliHDxw/IQMEJAKHqeHW aYNXfm7DlZ+Wr9fZ
4cpPq9dSgORJi3RVJEdRwxmO9tNb5j5+2kfUm294wxve9a53ueRlwpCASBi6 kD7RhVBUxcy7VhWP
HdWmsGb2yE6XcVVFk3HpqiTo8iEYi4akRMNE2AVjXMgea55YXPOO/tYRGD9+ /LZpn37ylD9be9rR
6kudaLrW7pI8aZGu6j+LGnYtvOmxk06UaqeffvpRRx1FhcPJJ5/sZwd5V7KA LCVUavDftarUYcf0
lumYdEa94Lst2VMFU1X3OMb0UEXbBZ1gcGpBgdYTAA64EKCUHJ72qT+ecvTg KUdpL8kO5i2SJy0t
nUdRw8ds7Z7p01+cMfGxU06SN4kU6Proo48WF64mXBF3NdJSd1q5EFUZNceE BZE/MhOsnepdee3p
1EaUgXB0yRkZl5UaTA+tAUqIVBj5jvmBNT30gKxGZEVACKB1GQH6Y+qdV5y9 5tSj1owf9dLWiXaX
5EmLdNXQRlEDVRRamzB+wvAtUzd/cjxRg7hFv7k89dRTxTVRA/3+0tSSPcIh eqtubiLJXTuteVe1
L+1YO9W75uJW3bD6o7mtemjVtXb6PZTR0YVUFxD5R9fuCm7VihQrdCYOqg+a t6awNRzPjONWuwic
cMIJe6aeRXXBwITXX5IXqFNcv7RzWBUgedIiXdX5UdRAOa+1Z2dMeuGS84bO O2vVR//qlA9/+M1v
fjPRwTHHHENi73nPe4444gh6+453vEPTEsNTp7nUZCf/rlWFaUdNnuCIMgqP 20GDUjfothhOldd6
PLdEemvqJuzBkLUhPNRgrg30dBCBD3zgAwdmnLPxk3++8cxjxEvygqeH5EmL dNWIfNTw6L/d8T+f
/duZnzjrjAmnf+LjZxQCQjqkLWJ1uzaTx3o32Glmo6pi3lWTSjPuSU7XKGID 9/sgIzUdE+rCJY2b
TGrQ7KjexoXsYh8rORZaABBuBQH6g6iD156/6dz3bzr3OHrJNBRv5cvofz9p ka6TGj6qtG98edpH
Tz78/pNnnnnXj+497eNnnHnOp2fcMHfh0v+Yef0NEyZMkLI/X/GwqiivZeFq 9tAtrZPeqoUuR0XI
C0nz2n9X1VIlXV75RxFu+H2wBmhC5A/czH9XIHHgWK1Z8bHOODpbR4DS+9BX Jw1NmjA0eTy99jz8
M1oz4lp7UT/dfbVz0gTSIl3V/1FVw0cc7eRTTtHunPaxj18wecrNt99x6fSr PnLyyS5F9FeOgOR7
WW5UPgQM9heB973vfYe+deWWq8/fcs1nt8w6b8usc7fM+gy9Ns08b/3Mz627 9vP0k65F58jd8w5L
Xn0+aZGuGvgoavgwWh8QUMurPvgLH5tD4Nhjjz24eO62eVO3ff3yrfMuO/y6 bcqL8y574euXb543
ddO8K+gnXVMP9QsBkiR50iJd1dFR1EC/vUADAkCgvwhQev9o+qUH/mnW8Ldv 3P7t2cN33vDi4deN
Ww6/5my+82b6SdfUQ/1097DMt28kedIiXTXwUdTwl2hAAAj0HAH65tIPZ3zx wH1LD933Hfq5b+S1
92ff3fvzf9/9s+/TT7oWnVKG5ElLi3sUNdAvNtGAABDoLwK07dOfOP2F0agi oEbd8kITIS3SVQMf
RQ3j0IAAEAACIwiAGrAQgAAQsCDwKjWMHTuWrug+XaABASCQOQKiaiAQxkhq oC75P2HiAggAgQwR
IDYANWQ47wgZCAQQADVgiQABIGBBANSAZQEEgACoAWsACAABHgKoGng4QQoI ZIYAqCGzCUe4QICH
AKiBhxOkgEBmCIAaMptwhAsEeAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOk gEBmCIAaMptwhAsE
eAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOkgEBmCIAaMptwhAsEeAjEUwP9 P5fqENpb3ugBKZdN
sz9idKESoVhraIWMk/MyCnEtewrZ8Qh7pqAt6OoLre8RVYWMsJM7NVSLZsPW 5FJuZU23MmiFCFey
wVToT9dMgRq6NiMF/AE1FADLEAU1+NGrhRrMytYsdz3Vb1DYKiDi5JiVkuoD BV9RAury0+WJWu2r
WW32a88FLt+C1KBZ9syLGZSKkhVYLbVMNEwtqz/aAlWd9OPgt6YFa5oKzqMa oGus+jwsw3qV6Jai
BnU1WMtL0alBbC4FtccU5vd4BnIZCXoYYdMaspbGrnGtNKEuYitWrrS0kqDm nl/Gg49JDS4/5Yie
RWLqeohP84qzwFze8leXGUWtHlaS3mWMlKIGT0pr3G+deI3XtW3Kup48GaXu URqXB5PBumRd/lgT
wFysZroWWoVq+NbMV4Ny+e/KGXVNu2YqSCscatA81/zxLwAz8VzWXIwTXIQu EufMnRX/qjwsk9JV
6VZPDXEJwMm3IFkwM9xc9EzFYDJ4thGNaPwc50pLbdaDw7nogzN6eWrwrAQX Z7nyzZXDJn3zNxiO
pHXzs3JWtR5Wld5l7CRLDcw0diWJh6o4LBbMCk5y8n1zbZv+9OaTuDWTmQhb faiPGoLAlne7JDUE
PSyTzxXqVk8Ngj7VWo7Zo6acS12uM1NAu2ViZFVRp1kIBBX9fpp3tR6zfFDH dSWh1TfTeU1Ms6wh
4J8Xv5/aJmk1ZXZq0Zn+eKoGpjXX7Jj5zF9vcmgTExdK1vy3zo7sdDGOCXWF +e8xFU8Ncf5Zcy/O
VOtarcdSyIFCwhxsNYOV2+f4AJn6EGiCGswior54mrTcejK4yhwrCNV6aw5d rf0m5xFjWRFoghoA
PRAAAr1DANTQuymDw0CgCQRADU2gjDGAQO8QADX0bsrgMBBoAgFQQxMoYwwg 0DsEQA29mzI4DASa
QADU0ATKGAMI9A4BUEPvpgwOA4EmEAA1NIEyxgACvUMA1NC7KYPDQKAJBEAN TaCMMYBA7xAANfRu
yuAwEGgCgXhqWIYGBIBAfxB45ZVXCjFKKWqgwdCAABDoPgLEYE1TwwAaEAAC zSIwPDw8ODh49913
P/DAAyu8bfny5YsXLyZhUEOzU4TRgEAbCBA1LF26dM2aNZxqhcRIuK/UsHbt +vIIV2KkvBuwAASK
IlB06Qpq4PCCkOkxNTzyyCNF0TTlKzFS3g1YAAJFESi6dCU1vMxooIaBovgW nb9k5OmktmRiSSOQ
oktXUsNeRgM1gBpYaQJeYMHUrFA0NRBHqG3S1Ou1HnqbPjWoZ89aJ64ovs3O fu9H0zgFFFPhjBZa
uoS8rBqGlEa8IF5qJ10nTg2cdVkI3wrntV+molM6WrFf+LTibdGlK6lh7WtN 8oK4kP10kRc1oGqI
XsHRGR6tGO1qPorR1PD0SJO8oF2Lu6AGfNbASiUzw0WPeF4zTbie46x2gkZY LuYnFE0Nq1atkrxA
16JpPblQg1yp+OVlXAa5UlpY8zy4+Z/p1Lt8I3EhpKcVTQ2PjzTiAnEhm9qT CzVYV7DoLIpveiuM
E5GraqiQGjQ31LoDTyWVPAvLzxo0RrC+BTWAGjjMoNcFWqXA3/A5Hwx7eJzl azZCRXc1UMPrS0Or
V62bT1F8s1l4owJtoGrg80ueU1D+WRjUoK9p+SkXqCE6qQpRg6gprJ/v4GPI 6CkANRSArpINvxIj
BZyGKBCoCIGiS1dUDevXr1e/v+C6JjH8eVUFf6NV0VzDDBAogEAENRA7LFq0 6MeMtnDhwi1btvT1
j7KLQlPJx7wFpg6iQKBOBIquf0r1HTt27Bxpu3bt2r179549e/bt27d///4D Bw4cHGmHDh166bUG
akDVUOf6he3aEAA1OKEtCg2qhtpWKQy3gEDR9Z9R1VD0lBvr7FVipIV1gSGz R6Do0s2IGrJfGwAA
CBRAANRQACyIAoF8EOgHNdBjEhoQAAJNItAPaij0/+FYhSN+41p+UFgAAv1F ANTQ37mD50CgRgRA
DTWCC9NAoL8I5EsN9Kc7x/zdbcFXf6cWngOBMgjkSw1ECuvWPSNe69c/+/zz z23atP6FFza++OLQ
9u0v7tixfdeuHSMyaEAgRwRADU5e2LNnV5AatMOFOrKCyCu/J0GBMoFoxplj CTEVz2gfpCmrBaY/
0aMno5g7NVjrhff+4L3EC/v27eVQQx1LoeTyDaoHBaoKijmQFFPl/bqeu35q EARUVYAJ28maGly8
QNRAvHDgwH5QQzNL30oN/hwGNdQ9NVlTg/h8gYhAfr5A1+JFvHDw4IE4apBV sZg88VatltVOVUbN
EO1a206tiWFW45oncjFZjUs/rYW99a5q0ExvEwczcBm+dmG+daGqASsJxQ9g 3XmVgP2sqUF87ii4
gD531HjhpZcOcajBmgDqyrbmjDUTrMtay2fOBmtW1BqVBF0yC3vruNpA6lur haDzQT9NiNQkNB0w
3cADBZO2sqYG8fsIyQhqvUC8QP91OIcaNKA5SeXZYK3J5t9arRustvMHU05z yR+FtTxxUZg1mYP+
mCFrg2oeqgStEYTfW2aeZCiWNTW4niMEL/zpT39qhho4bKLtdVpqWe+aMtYH CivvMF0yd2wPEVg3
cOYDhSdel6tm6WSGn2HC80POmhrk9xfo9xHy8wXJCwRiB6khWJPH7dKFqgb/ M46Zk64eD1V5qDBY
WPmfa/BAwWSHrKlBfK9J/J5SfO6o8kIcNaiVvGtLDD5QqMtXLZWlQWtFYK2c RafrqcfqifYwYn1g
0cyqb1Wb1n4zOU0Vq8/moCog8q7JHS5FZpLkKZY1Nfh5gUMNqS4az8NIHSGn PVwdiDVgM2tqCP4B
RfCBooEZamWIhnO1ySK/+dBamcHyg+ZLDeWxgwUgkDACoIaEJxehAYF4BEAN 8dhBEwgkjEBe1PAK
GhAAAjwEQA08nCAFBDJDANSQ2YQjXCDAQyBfaqBfYnF+ecmDEVJAIDUE8qUG 5gFwqU044hmNAO0Q
gMSKAKghcACcf92o303uziILehIUKJMtmnHmWELMFGaqV+hwGVMp6eZODcED 4ILUUMdqKJkPQfWg
QFVBMQeSYtVSQ9HRq4o6DTtZUwPnADhQQwMLXaUGNZ9FURbtAFOXKRbtRk8V s6YGzgFwEdQgnzKE
rlzfar+26F0qUp2TMOrTjTq0Zyt2ueQy5TKrhqPluVYRWLOdSQ0aSkFwNOQ9 zvc0e2t1O2tq4BwA
F6QGM6uliljxZrUcrJ+tAi5rcsW7xjWf4YMuaUxkjUJ2msmvjSg9dwXusWDd 0jUo/J74nTfRqzXf
emQ8a2rgHAAXpAZNgJNU1szUNnBXwpt57qEGc/PXhF0c4Y/CWlMEicm0qalo GW7Nf7PMCVJzkBqs
7NOjHK7J1aypgXMAXAPUwGET6z6s+uYxYoZQVdVgdSC4pUdUMa4yxDo7wehc /FhTjvXUbNbU4D8A
jmaUvvvQNWoI1uRmdR2RioXYiv9AYZYJzComSA3Wpy0PR7hKiZ6mcR1uZ00N ngPgBNYR1CDWnGiF
1r1HS7Um7VtrAdOIpst0KfjI4HFJDdyKA4eqrCRi9coPjuepxMVTdaRZH21m TQ2uA+DkRAapoY9T
zvG54cfvhodTEWhxaM5EtCiTNTXgbyhcK6/5hGl+xBazrhdD50sNvZgeOAkE 2kIA1NAW8hgXCHQa
AVBDp6cHzgGBthDIixoSPskPoQGBahEANVSLJ6wBgUQQADUkMpEIAwhUi0C+ 1EC/LeP88rJauGEN
CPQFgXypgXkAXF8mEn4CgWoRADUEDoDzw02lhyog32r9HiN8SdMIR1d+ubiq dWMOynRDc0BoxVkr
EwvH2zL2k9HNnRqCB8AFqUFdahHLLkJFuhTULekbc5UH3TApwMOhHGsux5i6 TDFm+KmKZU0NnAPg
kqGG+lYwJ9M85ZXGXxxroIb6ZlNazpoaOAfABalB3RK1zdC6aWsVvqoibqlF gTVPpAWPrjDiSjPz
KUOzaXoufTMHDYagxaUh5gnZ46cVJdVJv1cNpFbfh8iaGjgHwFVLDdaU03JY yGgsY32I0CRdj+4m
42jWXF6p/MJhvaBZMwo1BDOcoEGXV1b0XJD2PYdr8j9rauAcAMehBpmT5uIz 89y6P6ud/hXs2s/N
DVbz3Lrbu8jFQxYePrKGZq1frClttazGFUTJhb/mgxpdTXmVgNmsqYFzAByT GgQ7cKjBmrGuxWr2
+3d4j7cexvHbNNnNX+aYRGmWM54c9mz4QZRADRVSUtbU4D8AjlAe+e6Dr2lJ 5VnW5uapplxwl457
oDDNFs1qyXfWfd76xNEMNfgJyz8RqBo4DJI1NXgOgBPYFaIGNeusOSkTyVVf qP1aGaLOpVpXW21a
hf2dLptmnqtZJ7U0NzwyGkUGyyLXECpXBqseE1hObmQukzU1uA6Ak2siSA3p rZ5mdtRmRnHNTruj
92XNZE0N+BsK127fwPJtKz/bGrcBSKsdIl9qqBZHWAMCiSEAakhsQhEOEKgG AVBDNTjCChBIDIG8
qKGtY/YwLhDoHQKght5NGRwGAk0gAGpoAmWMAQR6h8Dw8PDLL7+8ZMmSh0a3 FStWaD30lsRIftmy
ZRRmoQersWPHjhs3bsGCBXQxhv7RFb2nFrQSMZjVprCjNvolFueXl72bUTgM BCpBgFJ96dKla9as
4VgjMRKOyNYuUgPzADgOLpABAukhIKiB4tq/fz9dU9s20oaGhp4baQMDA6tX r161atUTTzxBYglS
g/VAF/FFyeB/h0ulh1aJiLdav2fd8CVNIxxd+UXjqtauOSjTDbNqE0CV91A4 4HKD415V4KRkx6SG
rSNt8+bNWVBD8AA4/2SLZS1lIlZhhAp/uJK+MRc6JwQOh/rteO76qaEQUzND zkFMowYzZKoannzy
yTSrBs4BcMlQQ32ruSpq8OcwqKG+GbRaNquGe4yW7AMF5wC4IDWoC1ouX3Mf U2+ptYarXxbb1ucI
rQh31eSeGtusd1QjZrkh5U2HgyFoY1kRMx/ErDFKMRNDvxsN51UCw2VdNXAO gKuWGqwpp+2WGq24
SnGp5X9qMFnD5YOanB4ZD+tpTzoexzQONR+R/E5aB/LTcQK52nAInKoh2QcK zgFwHGows9RVPshE
1TZhs99VXbv2c1fhYM06dTg/MblCs6Z90KyfArRqwm/NrHEkNWiK/ueUhvOt R8NxqoZkHyg4B8Ax
qUGr/z3UoBk09zpVQCsZgmns8da1UQdtWquYuNKjEDVYgfJ460HShLFHKdqW q1lXDf4D4GhKCv3y
UhYC1uWrlutm6R4s4M2kMvdzc3t07e2aNf/ojVGD6wHE6oALw2DIbWVa78bN umrwHAAnJrIQNWj1
sDWZZXFh7uHmE4HKNVopoQl7niast1xjaeym5qTHYfWWyzFt3/aoqLhpCLi0 TO5wKfYuP1t0mFM1
JPtA4ToATs5HkBpanLmahm6m9m5mFBc71wRdYmZdX3lSvw2Z7MeQ+BsKWZZ7 6o6aVnxj7NDYQDUB
1ZbZfL8N2RbiGBcI9AIBT9Ug/oIx2b+h6MX0wEkg0BYCghrWr1//FKORWDp/ XtUW4hgXCPQCAaKG
nTt3Llq06Meh9pOf/OSuu+7q93kND6MBASDAQyCvU554mEAKCACBh0ENWARA AAhYEMiXGuh3Wpxf
XmLVAIE8EUiBGijJmWdMqnPMPAAuz2WBqIFAItQQZAdxoKWVGvwHwAWXiPpp c1BYFdD8KaTbgHB0
XA34hiEaQCAdavCzg4saggfA+edAS++OZzt/PUXHlQwCfKxSlUyKGjzsYKUG zgFwoIZCSx/UUAiu
LgsnRQ2eTxys1MA5AC6OGqzVuOwUNmUWWftFpxxdkxHqZh4yx3UNrQ5nDdx0 1dqjRievVYfNcLqc
JHn6lg41+D+JtFID5wC4aGrQ0kzLczVhTEk1dV1ppvGL+dZKHJo1FxcEN38h 4ArKf0uFNDhQnmnZ
hagToYa431BwDoCrgxrUNPZkl7bfuooOV6aZpYE1n60buCtjtaokmhqs1U0X 8gE+SARSoIYgL5CA
tWrgHADXEWpwlfdaP5NogiWGlRpKGtdKIWvVg8zsDgJZU4P/ADiaJPruQx3U oO7ehfLNfAzRcriQ
NVPY/3wRZ1x+xABq6E7aczzJmho8B8AJ7ILUIHLVrMn9ndqG6XlSMB8K1Ow1 93aOM1qGWx8omHG5
hpMBekjQNS5n1UKmAQSypgbXAXASdw41MEv9BuZS1hTNjNX8cI3FhYEIgayp ob6/oXB9jFf3mmt4
3IaHqxs92FcRyJcasA6AABDwIABqwPIAAkDAggCoAcsCCACB7KlB/UQd10AA CHgQyKtqwFIAAkCA
iQCogQkUxIBAXgjkSw3MA+DyWg6IFgi8hkC+1MA8AA5LBQjkiQCo4Rn/AXD+ ZSH/q0jX/2qtquM/
X8wzx3oade7UEDwALkgNzOQHL/Q0Q7J1O2tq4BwAVxU1ZLvCEHhPEciaGjgH wMVRg/l/0qtVg/b0
YRVGldHTjErG7aypgXMAXJAa1I8bTGGZ4a4LjTLIgimZzGpDID1CIGtq4BwA F6QGq4DJFyYFCEXr
B5koGXqUQqm6mjU1cA6Ai6AGKwto2R4sDcAOqaZcX+LKmhr8B8DRFNJ3Hyqn Bo0U8EDRl1TJzc+s
qcFzAJxYB3HUoD0myAcHubbwMWRuadbHeLOmBtcBcHIig9TQxymHz0CAg0DW 1MA5AI4DImSAQHoI
5EsN6c0lIgICFSIAaqgQTJgCAukgAGpIZy4RCRCoEIG8qIHzX+BBBggAAUIA 1IBlAASAgAUBUAOW
BRAAAqAGBQHmAXBYNUAgTwTyrRqYB8DluSwQNRAANQQOgAsuEfmnk0HJBgTI Gesorn4h7L/bgNsY
ooMI5E4NwQPg/HOmJlUXEiyOGiLYpINLGS5Vi0DW1MA5AI5PDdVOTJw1UEMc btAyEciaGjgHwEVQ
g7WUMJ87XD1yxKCAKSmH1nRNyhAC2gOF1umxJiVVFfFsovUg63qKQNbUwDkA Ljiv1gRWk1Z7mBf5
ZtKHlqhBAW0INck9uiYXSGdcDnA8sVJPEDoIdBmBrKmBcwAcf/LMTdjMOus+ 71G0ZrLmkjV1JWGZ
TKTZVHnKNKUWAmql4HJMG5ePHiS7hkDW1MA5AI4/YUWpwWqZTxPMqsEkAlPR xQguXeuTiLUU4qMH
ya4hkDU1+A+Ao6ka+e6DrwWTKvj4EKznXQJMarBWDdZnh/IPFFY0urbi4Q8T gaypwXMAnIAvSA1q
va0ibq29tc/nrB9SaNllVTGn1izjNePWzwKsm7//mcLzHCFvmXEx1yLEOoVA 1tTgOgBOzhCHGjo1
nXAGCFSFQNbUwDkAriqgYQcI9AuBfKmhX/MEb4FAwwiAGhoGHMMBgX4gAGro xzzBSyDQMAJ5UUOF
J+fBFBBIGwFQQ9rzi+iAQCQCoIZI4KAGBNJGIF9qoG/mcH55mfb0Izog4EIg X2pgHgCHpQME8kQA
1BA4AM6/LKj0UAW0t3FLqhIjcUNDCwhIBHKnhuABcM1TA1YnEOgCAllTA+cA OFBDF5YpfGgegayp
gXMAXDQ1iD9AFOrqM4LaqcmIWy4BcQuPG80nSZ4jZk0NnAPg4qhBIwUrNUjL JiNY2cRKNHmuWkTd
AAJZUwPnALg4anBVCtaigEkNms0GFgeGyBmBrKmBcwBcNDVoLOCqEaQYs9DA A0XO6dpk7FlTg/8A
OJoG+u5DHDW48lx+WGA+YgSpAQ8UTSYGxsqaGjwHwImVEaQG+dGg+QGh1mOS guix9ovR1btqD1Yt
EGgAgaypwXUAnMSdQw0NTBKGAALNI5A1NeBvKJpfcBixLwjkSw19mSH4CQRa QQDU0ArsGBQIdB0B
UEPXZwj+AYFWEMiLGho+XQ/DAYH+IgBq6O/cwXMgUCMCoIYawYVpINBfBPKl BvpCEeeXl/2dWngO
BMogkC81MA+AKwMudIFAfxEANQQOgAtOrfp956CwKkCK9Fb8rLxpZmsapajb Hjdct/yedySuojj0
Qj53aggeAOefxegMbHJNNzlWIbhMojTVI5yPUOlFrjbsZNbUwDkALnqt16TY 8PqodrjKqware6CG
SmYta2rgHAAXl+HyKUOoy2cHuWqFgPpAoT2YqOvbpa7JSJtWsy5PtK3b9Nw0 q/aIsTQZLUz1rYan
FrXVmlVFDUdqyU6PAyryHgArya5eG8maGjgHwEVQQzCrtdRV36o8IofWSERL Zo86xxNtFI1BTB+0
PLcOYYJmDcGv61dR77pc8tj3s1WvU7oq57OmBs4BcFVRgyvPzQRg9qh7tZoD wdy2coGLX7Rd3cU1
Lmc86hEjapWCybDWUsLqm0kNZv1SVY711E7W1MA5AK6D1MDZqJn8YhYgLmZx paWLlYKlEEdAkzFJ
zYTCxRcma/g5tKf5XKHbWVOD/wA4Qnnkuw++piUGPyH5Zbn6bMzJT2ulLRPG mktFzTILkyCFdeeB
wgNLhcnWL1NZU4PnADgxi0FqECmnlqwybWRK+7dHlSM0OxopaMvXKuypk135 rxUOTLPa5uwJ1vWs
oQFl4mA6rKqYVYCrgrD6hgeKIE9lTQ2uA+AkahxqCEJcVMAs0YtaKC/fBR/K RwELZRDImhq68zcU
1tKjzLxG6HbBhwi3oVITAvlSQ02AwiwQSAMBUEMa84gogEDFCIAaKgYU5oBA GgjkRQ2tnLGHQYFA
HxEANfRx1uAzEKgdAVBD7RBjACDQRwTypQb6XR3nl5d9nFT4DATKI5AvNTAP gCsPMSwAgT4iAGoI
HADnn1T1a0LB6SdhkhE/zcbsd4m5Ri8qH4yiDgGPk0VBayveWset1bhrQoeH hwcHB+++++4HHnhg
hbctX7588eLFJLxs2TKyVugXNGPHjh03btyCBQvoYgz9oyt6Ty1oJWIwq01h R22iaggeABekBing
n79KZjfCSIRKHcnPh1GVjHA+QqWSeNsatxLnrUaIGpYuXbpmzRrOECRGwhHZ 2lFq4BwAV2hNB3c/
DsrVyvRiyTIrJg4ybcXb1rgcTOJkBDXwdZOiBs4BcNHUIJ81hAXxVlyoP+WS Ui+ksJSUFjR5VVLb
b60OWFewJmkdS/XfdFU167JmIiklPbEXBc1lSp0CP1Cu8DX/TXhd9Y7mklwP Up4ZvukYP28jJCU1
vMxoZD8pauAcABdHDVqqaBmuLVNz9aurR72r9Zu04lp2pj/mulSd1O5a+UuT 9/hpehWnazJmcFCN
i80YPTNl6npA0ziXswCs1sypt7phpfiI/PeoSGrYy2ipUQPnALhoatC2RHO3 t6afOeX81e9fuOYW
bc1Y2anuimWowco4LmooD5oLrkJuuJhR7Xe56mJna8iacNHwq+UCzZqkBroI ttSogXMAXDQ1aIqt
U4MrEBcZebYvzz7mKk8KjWJynJ8fOTu/iwc5un7nrZaDOBQa18N39bGDpIah kTZp6vXiQja1JzVq
8B8AR9HSbzH41OBfDRHUoC4IzkryVw3Wu67d27VtMqPw04prX40owvkllVn4 RLjBRFhFVRQCWo9f
wGTedqlh7dq1xALiRdeiaT2pUYPnADixCDjUoBbeKo9o/fyk8ijKdWZNaevo 6riqusdVYVx1w8wr
uVjN8F09Jslqo6jjankbpICgKWlcc8NU9LjBmV+VPkxS0OjPKuBiE9Mx/75V 8q6sGp4eaZILtGtx
NzVqcB0AJzENUkNJ9Puuri70nsaSQAg1IS+pYdVrTbKDuJD9dJEaNeBvKEqu qgTyKoEQSk6iS11S
w+NKk+ygdtJ1UtRQE6AwCwTSQMBKDcQCxA4aL4Aa0phxRAEEWAi4qMHkBVAD C1AIAYE0EAA1pDGP
iAIIVIwAqKFiQGEOCKSBgKCG9evXy+8yeC5ILJ2/oUhj/hAFEKgJAfHl6EWL Fv2Y0RYuXEhHv7Tw
R9nBr3CbAtvROoYALR20thCIyKDgWSqmQAvUwDxtho6ikQfODAwM3H///Q+h dQCB++67j74VswOt
PQQiMqgf1MA/bYaKK3HgDLVDhw7VVGvBbCEEaCJoOnaitYdARAb1hhoKrUVB DaSyH60DCIivyrWX
Fxh5Z6HzmsR89YkazMNm6ItZZqcITGAR8YgFlcoREDOyC609BEQ6aMliTR+S 6R81aIfNyK9za/0J
UIMgNfNn5UnbjEExI7vR2kNAUIOaKa70IZn+UYO6jmVg5uJWqWHbtm1bRxpd eJqQaauZjlEI99xz
j/kzwsMuBC5mZA9aewhYi2hXEvWPGtTjZURU2rEz4i2oQWWQ7lDDPrT2EBDU YOaLZAf1Vv+owXq8
jPkNLZUaKODNI81KIrJTyNTU/EO72M1aNUR42G7gAnkxIx34PDRfFwQ1WL/O aJ7g1D9qEOfJWA+Z
kbfkgTMCi+deaxEft1alIn3gX7geKPgWuhM4wSiW2gG09hAQ6aCmiSeV+kcN 6qkykurUTnGtVg3d
yZBCWZ0kNRxEaw8BQQ1asriSqH/UoP2huP/AGYEFfSeyp40eKMhz82cfwxFL rb28wMgHRTpwzmuS
hy9EVM0tfFHaDEwE6TlwRqisHmlPPvmkuIhuZMHT/Gb9uiV967JxGZqgBvpO JFpbCFgzyJo+iVCD
58AZawVlPn2gpwEEBDW8hNYeAq7N1ZNB/a4agtTwBFoHEAA1tMcJr46cMjUw j5SgX8+IUyWo0fXv
0TqAAE3Evffe23p65OwApUPRDOpH1cA/UoJOnRCnSpDKypUrGYdQQKR2BB55 5BGajraOKsC4Ih2Y
h7LIDOoBNdDHnmhAAAj0AgF6eCzEKWPHjh03btyCBQvoYgz9oyt6Ty1ohUZC AwJAoEcIBJNaFYin
hkLDQBgIAIF+IQBq6Nd8wVsg0BACoIaGgMYwQKBfCIAa+jVf8BYINIQAqKEh oDEMEOgXAqCGfs0X
vAUCDSEAamgIaAwDBPqFAKihX/MFb4FAQwiUooYxrzWPsyQSHYqmG2HKVLEa UTuZKtFBQREI9AKB
eGrwp5MMPiKfrcAVtWPSlofIhPFCKr2YXTgJBKIRqIYaaqoaoqPyEBOqhvKo wkIOCFRPDdreK1OR
syczddVNXkySq6bgPB0EH1uKFiw5rBvEmDwC8dTgqsC1HVumsbVfTWzzCcWj qzJOoZolSBZBgeTX
BAIEAoRAKWow63a57YsLuZ+7+tU5cOWkizL89YLrbkSNgKoBqZIhAtVTgwai ufMzk1allWDF4Zq5
YAkQFPA8rWS4XBByPgjEU4O5mWtZpFUNwfQu9EBhFizWOfNnvrUc4JBFPusD kWaLQDw1WD9rMDvV
DwXkU4YsHPw9Ll3/IwbnIcXzMAJqyDYZELiKQClqAJRAAAikigCoIdWZRVxA oBQCoIZS8EEZCKSK
AKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCoIdWZ RVxAoBQCoIZS8EEZ
CKSKAKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCo IdWZRVxAoBQCKVDD
li1bhvNopaa6UmVgXimcXTSWAjUQLSxfvvyGG2646KKLLky0UWjXXHMNhdmR RQTMOzIR9bmRCDXM
mjVryZIlezb/IOEXBUhh1rcUClkmahCYP/fcc2sTbRRapzAvNEHlhROhhosv vliQwvY/3J7kS0RH
YZaf8kosEDWQMy+88MKhQ4deSrRRaBRgdzCvZOL4RhKhhokTJ4rkeTnRJqKj MPlTW6skUQM5s2HD
BsL7QKKNQqMAu4N5rRNqGk+HGnZv+G7a1EABdmeZCmqgkpsqhkTZ+GUKjQLs DuaghsIIiGW6a/Du
3Ru/l2ht+xKFRgF2Z5kKzAcHB9N+oKAAu4N54cQop5BO1bDjqX/dvX7pwUQb hUYBdmeZCmoYGBig
h4lEIT9IoVGA3cG8XKYX1k6HGujTx13PLtlXotEx8yW061Wl0CjA7ixTQQ1P PfXU/v37IyJX/zez
CHWPSoWTSKFRgN3BvHByl1NIhxq2/vaWnQOL95RotKpKaL+qWokR0w0Kbetv v9adZSqoYfXq1ZSl
RUHTIKoWsQqtUWgUYHcwL5fphbXToYYtD1+/46k7d8Y2WlKkKn6WaeUtWEen 0LasvL47y1RQw+OP
P753796icNUEkXCjQuMUGgXYHcwLJ3c5BVDDqwvbSg2y7pWrX+tRC2O5NOXq tAoXTSQhnwM1mHCJ
VFeznTMj6kRoc1EIfFDDuHHjFixYQBwxhv7RFb2nVo5xGtUWO9jQ/VcOr7pj e1SjBST15LXZWbRH
s6mqF3WTQtt8//Tu7GAC88cee4ySrWgsQRyEgGABYVz2eCA1ZVy6TIcpNAqw O5g3mlTr1qVTNWz6
6aXbf/9N+rOfiEarSmrJa7VT3FVrBHHXVNR6pIomXNRJCm3Tf13anWUqqOE3 v/nN1q1bi8ZiAmvC
G8Q2OCPqZMWBT6FRgN3BHNRQGAGxTEtSg7aSrIvJShYap1iZxeSRoumUPDUE SbbQjPitMcEHNSTy
QPH8D7+w7XffeqZ4o2WkKYketT+ix69e1M1tv7t9w4++0J0dTNDxo48+Sn9l UDQWDfAIbOXsuECu
BHwKjQLsDuaF98xyCuk8UKz7zme2/nou/SK6aKNlpKnIHllKSAGtR601VBlx rd01B+K7uvXXN1OA
3VmmghpWrlw5NDTEj8KEUcXEA1ehGakKfAqNAuwO5uUyvbB2OtSwduFZW1Ze /b/NNlqyzQxIoa1d
9NfdWaaCGh588MGNGzc2g0Dzo1BoFGB3MC+c3OUU0qGGwTsmDK34En2k3GQj amhmuKEVlw3eMb47
y1RQAx0tQ3+b2AwCzY9CoVGA3cG8XKYX1k6HGp6Zf9Lm+yf+KtG26f6Ja+af 1J1lKqjhF7/4Ba24
RCH/FYVGAXYH88LJXU4hHWoYuPWETf/9WXo4TLJRaAO3nNCdZSqoYdmyZfRn y0kCTkFRaBRgdzAv
l+mFtROhBjqK5//mHr/xPz+145dTdvzy0pGfSb0oNAqwOycOiVOeKHOefvrp FYk2Co0C7A7mhZO7
nEIi1DBjxoz58+dT8iT8ogCvuuqqctNdmTZRg8D8vqRbpzCvbPJ4hhKhBvq4 aPbs2UTwVP4l2ehE
6ZkzZ/LmtAkpcaI0MG8C65bGSIEaWoIOwwKBlBEANaQ8u4gNCEQjAGqIhg6K QCBlBEANKc8uYgMC
0QiAGqKhgyIQSBkBUEPKs4vYgEA0AqCGaOigCARSRgDUkPLsIjYgEI0AqCEa OigCgZQRADWkPLuI
DQhEIwBqiIYOikAgZQRADSnPLmIDAtEIgBqioYMiEEgZATs1UC8aEAACmSNg P2xe/B9WaEAACOSM
wKj/2I7eoAEBIAAEBAKv/p+XmVdQCB8IAAETgf8HCq1DC05PkXYAAAAASUVO RK5CYII=
------=_NextPart_000_0060_01C7460A.5C13FEA0--

Attached files
Arriba
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:
Contactar Israel Solis

Columnas en tArrayBrowse

Mensaje por Israel Solis »

This is a multi-part message in MIME format.
------=_NextPart_000_002A_01C74622.5658C8C0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_002B_01C74622.5658C8C0"
------=_NextPart_001_002B_01C74622.5658C8C0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Gracias Ram=F3n, la mejor soluci=F3n fue la que me comentas, en la clase =
hago una copia del arreglo original a uno con solo las 2 columnas que =
quiero mostrar en tArrayBrowse
Gracias!!
"Ram=F3nZea" <zeasoftware@hotmail.com> escribi=F3 en el mensaje =
news:[email=45c2489d@news.xailer.com...]45c2489d@news.xailer.com...[/email]
Por que mejor haces una clase en la cual tengas el arreglo que quieras =
mostrar, y con el proceso a efectuar en dicha opcion?
Yo igual hice algo parecido y al usar una clase sencilla para =
identificar cada indice pude resolverlo.
Para qeu te muestre solo dos columnas debes tener un arreglo con solo =
dos columnas, y este pasarlo al tArrraybrowse.
mi ejemplo:
Class zIndex
Data cDBF
Data cDescrip
Data nCurrTag Init 1
Data nTags Init 0
Data aTagsKey Init {}
Data aTagsFor Init {}
Data aTagsName Init {}
Method AddTag(cTag)
Method New() Constructor
EndClass
Espero te sirva.
Saludos.
--=20
Ram=F3n Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Israel Solis" <isolis_antispam_@sanroms.com> escribi=F3 en el =
mensaje news:[email=45c217fb@news.xailer.com...]45c217fb@news.xailer.com...[/email]
Gracias Ignacio por contestar.
El problema que planteo es el siguiente, tengo la siguiente =
funci=F3n:
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * * * * * * * *
* FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>, <cTitulo>, [, =
<cDescrip>], oForm) -> <aArray>
* DESCRIPCION: Muestra Forma con Browse para seleccionar datos a =
imprimir.
* PARAMETROS: <aArray> =3D Arreglo donde se encuentran las opciones =
a marcar/desmarcar.
* <nSelec>* =3D Posici=F3n dentro del arreglo <aArray> =
donde se almacena si la opci=F3n est=E1 marcada (.T.) =F3 desmarcada =
(.F.)
* <nDescrip>*=3D Posici=F3n dentro del arreglo <aArray> =
donde se almacena la descripci=F3n de la opci=F3n a marcar/desmarcar.
* <cTitulo> =3D T=EDtulo a presentar en la forma.
* <oForm> =3D Objeto FORM al cual se le colgar=E1 el =
di=E1logo a construir.
* Unicas 2 posiciones que ser=E1n mostradas en tArrayBrowse.
* REGRESA: <aArray> Arreglo original si se ha Cancelado la =
selecci=F3n o <aNewArray> si ha aceptado las selecciones establecidas.
*
FUNCTION SelDat2(aArray, nSelec, nDescrip, cTitulo, oForm)
LOCAL aArrOrig :=3D ACLONE(aArray) // Se conserva una copia del =
arreglo original (por si se presiona CANCELAR)
WITH OBJECT tFrmSelDat2():New(oForm) // Forma que muestra el =
tArrayBrowse (imagen)
:cText :=3D cTitulo
:nSelec :=3D nSelec
:nDescrip :=3D nDescrip
:oArrBrw:SetArray(aArray)
IF :ShowModal() =3D mrOk
RETURN(aArray)
ELSE
RETURN(aArrOrig)
ENDIF
END WITH
RETURN(aArray)
*
* FIN SelDat2()
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * * * * * * * *
CASO #1
La funci=F3n anterior puede ser llamada con un arreglo <aArray> como =
este:
aDBFs :=3D ARRAY(11, 4)
aDBFs[DBF_AUDITOR ] :=3D {.T., 0, {|oProgress| ChkAuditor(oProgress) =
}, "Sucesos del sistema"}
aDBFs[DBF_COMBOS ] :=3D {.T., 0, {|oProgress| ChkCombos(oProgress) =
}, "Opciones de captura"}
aDBFs[DBF_FORM2 ] :=3D {.T., 0, {|oProgress| ChkFormat2(oProgress) =
}, "Formatos de impresi=F3n (detalle)"}
aDBFs[DBF_FORMATOS] :=3D {.T., 0, {|oProgress| =
ChkFormatos(oProgress) }, "Formatos de impresi=F3n (maestro)"}
aDBFs[DBF_NIVEL2 ] :=3D {.T., 0, {|oProgress| ChkNivel2(oProgress) =
}, "Niveles de seguridad (detalle)"}
aDBFs[DBF_NIVELES ] :=3D {.T., 0, {|oProgress| ChkNiveles(oProgress) =
}, "Niveles de seguridad (maestro)"}
aDBFs[DBF_PAISES ] :=3D {.T., 0, {|oProgress| ChkPaises(oProgress) =
}, "Pa=EDses"}
aDBFs[DBF_SETINI ] :=3D {.T., 0, {|oProgress| ChkSetIni(oProgress) =
}, "Configuraci=F3n general del sistema"}
aDBFs[DBF_USUARIOS] :=3D {.T., 0, {|oProgress| =
ChkUsuarios(oProgress) }, "Cuentas de Usuario"}
aDBFs[DBF_USRCAMPO] :=3D {.T., 0, {|oProgress| =
ChkUsrCampo(oProgress) }, "Definici=F3n de campos definidos por el =
usuario"}
aDBFs[DBF_USRFIELD] :=3D {.T., 0, {|oProgress| =
ChkUsrField(oProgress) }, "Valores en campos definidos por el usuario"}
En este caso quiero mosrar las posiciones 1 y 4 del arreglo en el =
tArrayBrowse:
aDBFs :=3D SelDat2(aDBFs, 1, 4, "Verificaci=F3n de informaci=F3n")
CASO #2
Ahora imaginemos este arreglo:
aColumnas :=3D ARRAY(8)
aColumnas[ 1] :=3D {.F., "No. Consecutivo",{"99,999", NIL}, 6, =
taRIGHT, .F., {2, 1}, .F., 1, 1}
aColumnas[ 2] :=3D {.T., "Fecha", {NIL, NIL}, 14, =
taLEFT, .F., {2, 1}, .F., 2, 2}
aColumnas[ 3] :=3D {.T., "Hora", {NIL, NIL}, 8, =
taLEFT, .F., {2, 1}, .F., 3, 3}
aColumnas[ 4] :=3D {.F., "Usuario (clave)", {NIL, NIL}, 7, =
taLEFT, .F., {2, 1}, .F., 4, 4}
aColumnas[ 5] :=3D {.T., "Usuario (nombre)" {NIL, NIL}, 13, =
taLEFT, .F., {2, 1}, .F., 5, 5}
aColumnas[ 6] :=3D {.T., "Proceso", {NIL, NIL}, 13, =
taLEFT, .F., {2, 1}, .F., 6, 6}
aColumnas[ 7] :=3D {.T., "Evento", {NIL, NIL}, 6, =
taLEFT, .F., {2, 1}, .F., 7, 7}
aColumnas[ 8] :=3D {.T., "Detalles", {NIL, NIL}, 15, =
taLEFT, .F., {2, 1}, .F., 8, 8}
En este caso quiero mostrar las posiciones 1 y 2 del arreglo en el =
tArrayBrowse:
aColumnas :=3D SelDat2(aColumnas, 1, 2, "Verificaci=F3n de =
informaci=F3n")
Entonces, tomando estas variantes =BFcomo puedo indicar a la =
tArrayBrowse que columnas del arreglo recibido va a mostrar?, de =
antemano el tArrayBrowse ya fue dise=F1ado en el IDE con solo 2 =
columnas, pero necesito indicar que posiciones (columnas) va a mostrar =
del arreglo pasado en tArrayBrowse:SetArray(aArray)
Espero a ver sido claro, de antemano MIL GRACIAS!!
Israel
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> escribi=F3 en el =
mensaje news:45c1b28b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Israel,=20
No tiene m=E1s que crear las columnas en el browse antes de hacer =
la llamada a TArrayBrowse:SetArray()
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Israel Solis" <isolis_antispam_@sanroms.com> escribi=F3 en el =
mensaje news:[email=45c0e0aa@news.xailer.com...]45c0e0aa@news.xailer.com...[/email]
Hola Foro:
Tengo una duda (quiz=E1 demasiado tonta pero no logro darle al =
clavo):
He creado un Form en el cual muestro un tArrayBrowse para =
mostrar y permitir al usuario seleccionar informaci=F3n.
En este tArrayBrowse quiero mostrar solo 2 columnas de un array =
de <n> columnas
Como esta forma puede ser llamada desde cualquier funci=F3n, el =
Array puede varia en dimensiones, entonces, la idea es especificar que =
datos del array quiero mostrar en esas 2 columnas
Entonces...
=BFC=F3mo puedo definir las columnas que deseo mostrar en un =
tArrayBrowse con un Array de <n> columnas?
Gracias!!
------=_NextPart_001_002B_01C74622.5658C8C0
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.3020" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Gracias Ram=F3n, la mejor soluci=F3n =
fue la que me=20
comentas, en la clase hago una copia del arreglo original a uno con solo =
las 2=20
columnas que quiero mostrar en tArrayBrowse</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ram=F3nZea" <<A=20
=
href=3D"mailto:zeasoftware@hotmail.com">zeasoftware@hotmail.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:45c2489d@news.xailer.com">news:45c2489d@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Por que mejor haces una clase en la =
cual tengas=20
el arreglo que quieras mostrar, y con el proceso a efectuar en dicha=20
opcion?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Yo igual hice algo parecido y al usar =
una clase=20
sencilla para identificar cada indice pude resolverlo.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Para qeu te muestre solo dos columnas =
debes tener=20
un arreglo con solo dos columnas, y este pasarlo al=20
tArrraybrowse.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>mi ejemplo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><STRONG>Class=20
zIndex<BR>ÂÂ Data cDBF<BR>ÂÂ Data=20
cDescrip</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><STRONG>ÂÂ =
Data=20
nCurrTag Init 1<BR> Data =
nTagsÂÂÂÂ Init=20
0<BR> Data aTagsKey Init {}<BR> Data=20
aTagsFor Init {}<BR> Data aTagsName Init=20
{}</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2><STRONG>ÂÂ =
Method=20
AddTag(cTag)<BR>ÂÂ Method New()ÂÂÂÂ=20
Constructor</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
size=3D2><STRONG>EndClass</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Espero te sirva.</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><FONT face=3DArial =
size=3D2></FONT><BR>--=20
<BR>Ram=F3n Zea<BR><A=20
href=3D"mailto:ramonzea@yahoo.com">ramonzea@yahoo.com</A><BR><A=20
=
href=3D"mailto:zeasoftware@hotmail.com">zeasoftware@hotmail.com</A><BR><A=
=20
=
href=3D"mailto:zeasoft.movil@hotmail.com">zeasoft.movil@hotmail.com</A><B=
R><A=20
=
href=3D"http://www.paginasprodigy.com/zeasoft/" ... asprodigy=
..com/zeasoft/</A></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
=
href=3D"mailto:isolis_antispam_@sanroms.com">isolis_antispam_@sanroms.com=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:45c217fb@news.xailer.com">news:45c217fb@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias Ignacio por =
contestar.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>El problema que planteo es el =
siguiente, tengo=20
la siguiente funci=F3n:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys><FONT size=3D2><FONT color=3D#808080>* * =
* * * * * * *=20
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
*<BR>*=20
FUNCION: SelDat2(<aArray>, <nSelec>, <nDescrip>,=20
<cTitulo>, [, <cDescrip>], oForm) -> =
<aArray><BR>*=20
DESCRIPCION: Muestra Forma con Browse para seleccionar datos a=20
imprimir.<BR>* PARAMETROS: <aArray>Â =3D Arreglo donde se =
encuentran las opciones a=20
=
marcar/desmarcar.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂ&nb=
sp;ÂÂÂ=20
<FONT color=3D#ff0000><STRONG><nSelec>*</STRONG></FONT >Â =
=3D Posici=F3n=20
dentro del arreglo <aArray> donde se almacena si la opci=F3n =
est=E1=20
marcada (.T.) =F3 desmarcada=20
=
(.F.)<BR> *ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nb=
sp;Â=20
<FONT color=3D#ff0000><STRONG><nDescrip>*</STRONG ></FONT>=3D =
Posici=F3n=20
dentro del arreglo <aArray> donde se almacena la descripci=F3n =
de la=20
opci=F3n a=20
=
marcar/desmarcar.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂ&nb=
sp;ÂÂÂ=20
<cTitulo> =3D T=EDtulo a presentar en la=20
=
forma.<BR> *ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&n=
bsp;Â=20
<oForm>ÂÂÂ =3D Objeto FORM al cual se le =
colgar=E1 el=20
di=E1logo a construir.</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys><FONT size=3D2><FONT =
color=3D#808080><FONT=20
color=3D#ff0000><STRONG>* Unicas 2 posiciones que ser=E1n mostradas =
en=20
tArrayBrowse.<BR></STRONG></FONT>* REGRESA: <aArray> Arreglo =
original=20
si se ha Cancelado la selecci=F3n o <aNewArray> si ha aceptado =
las=20
selecciones establecidas.<BR>*<BR></FONT><FONT =
color=3D#000080>FUNCTION</FONT>=20
<FONT color=3D#0000ff>SelDat2</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray, nSelec, nDescrip, cTitulo, oForm</FONT><FONT =
color=3D#ff0000>)</FONT><BR>Â <FONT =
color=3D#000080>LOCAL</FONT> <FONT=20
color=3D#008080>aArrOrig</FONT> <FONT color=3D#ff0000>:=3D</FONT> =
<FONT=20
color=3D#0000ff>ACLONE</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT color=3D#ff0000>)</FONT><FONT =
color=3D#808080>=20
// Se conserva una copia del arreglo original (por si se presiona=20
CANCELAR)<BR></DIV></FONT></FONT><FONT size=3D2></FONT></FONT>
<DIV><FONT face=3DFixedsys size=3D2>Â <FONT =
color=3D#000080>WITH=20
OBJECT</FONT> <FONT color=3D#0000ff>tFrmSelDat2</FONT><FONT=20
color=3D#ff0000>()</FONT><FONT color=3D#008000>:New</FONT><FONT=20
color=3D#ff0000>(</FONT><FONT color=3D#008080>oForm</FONT><FONT =
color=3D#ff0000>)=20
// Forma que muestra el tArrayBrowse =
(imagen)</FONT><BR>ÂÂÂ=20
<FONT color=3D#008000>:cText</FONT> <FONT =
color=3D#ff0000>:=3D</FONT> <FONT=20
color=3D#008080>cTitulo<BR></FONT>ÂÂÂ <FONT=20
color=3D#008000>:nSelec</FONT> <FONT color=3D#ff0000>:=3D</FONT> =
<FONT=20
color=3D#008080>nSelec</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:nDescrip</FONT> <FONT color=3D#ff0000>:=3D</FONT> =
<FONT=20
color=3D#008080>nDescrip</FONT><BR>ÂÂÂ <FONT=20
color=3D#008000>:oArrBrw:SetArray</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT=20
color=3D#ff0000>)</FONT><BR>ÂÂÂ <FONT =
color=3D#000080>IF</FONT>=20
<FONT color=3D#008000>:ShowModal</FONT><FONT =
color=3D#ff0000>()</FONT> <FONT=20
color=3D#ff0000>=3D</FONT> <FONT=20
color=3D#008080>mrOk</FONT><BR> ÂÂÂÂÂÂ =
<FONT=20
color=3D#0000ff>RETURN</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArray</FONT><FONT=20
color=3D#ff0000>)</FONT><BR>ÂÂÂ <FONT=20
color=3D#000080>ELSE</FONT><BR> ÂÂÂÂÂÂ =
<FONT=20
color=3D#0000ff>RETURN</FONT><FONT color=3D#ff0000>(</FONT><FONT=20
color=3D#008080>aArrOrig</FONT><FONT =
color=3D#ff0000>)</FONT><BR><FONT=20
color=3D#000080>ÂÂÂ ENDIF<BR>Â END=20
WITH</FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys color=3D#000080 =
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT =
color=3D#0000ff>RETURN</FONT><FONT=20
color=3D#ff0000>(</FONT><FONT color=3D#008080>aArray</FONT><FONT=20
color=3D#ff0000>)</FONT><BR><FONT color=3D#808080>*<BR>* FIN =
SelDat2()<BR>* * *=20
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * =
* * * *=20
* * *<BR></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys color=3D#ff00ff size=3D2>CASO =
#1</FONT></DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000>La funci=F3n anterior puede ser llamada con un =
arreglo=20
<aArray> como este:</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT face=3DFixedsys=20
color=3D#000000>aDBFs :=3D ARRAY(11, 4)<BR>aDBFs[DBF_AUDITOR ] :=3D =
{.T., 0,=20
{|oProgress| ChkAuditor(oProgress) }, "Sucesos del=20
sistema"}<BR>aDBFs[DBF_COMBOSÂ ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkCombos(oProgress) }, Â"Opciones de=20
captura"}<BR>aDBFs[DBF_FORM2ÂÂ ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkFormat2(oProgress) }, "Formatos de impresi=F3n=20
(detalle)"}<BR>aDBFs[DBF_FORMATOS]Â:=3D {.T., 0, {|oProgress|=20
ChkFormatos(oProgress) }, "Formatos de impresi=F3n=20
(maestro)"}<BR>aDBFs[DBF_NIVEL2Â ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkNivel2(oProgress) }, Â "Niveles de seguridad=20
(detalle)"}<BR>aDBFs[DBF_NIVELES ]Â:=3D {.T., 0, {|oProgress|=20
ChkNiveles(oProgress) }, "Niveles de seguridad=20
(maestro)"}<BR>aDBFs[DBF_PAISESÂ ]Â:=3D {.T., 0, =
{|oProgress|=20
ChkPaises(oProgress) }, Â "Pa=EDses"}<BR>aDBFs[DBF_SETINIÂ =
]Â:=3D=20
{.T., 0, {|oProgress| ChkSetIni(oProgress) }, Â =
"Configuraci=F3n general=20
del sistema"}<BR>aDBFs[DBF_USUARIOS]Â:=3D {.T., 0, {|oProgress| =
ChkUsuarios(oProgress) }, "Cuentas de=20
Usuario"}<BR>aDBFs[DBF_USRCAMPO]Â:=3D {.T., 0, {|oProgress|=20
ChkUsrCampo(oProgress) }, "Definici=F3n de campos definidos por el=20
usuario"}<BR>aDBFs[DBF_USRFIELD]Â:=3D {.T., 0, {|oProgress|=20
ChkUsrField(oProgress) }, "Valores en campos definidos por el=20
usuario"}<BR></FONT></FONT></FONT></DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT face=3DArial =
color=3D#000080><STRONG>En=20
este caso quiero mosrar las posiciones <FONT =
color=3D#ff0000>1</FONT> y <FONT=20
color=3D#ff0000>4</FONT> del arreglo en el=20
tArrayBrowse:</STRONG></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT =
color=3D#000000><FONT=20
face=3DFixedsys><FONT color=3D#008000>aDBFs</FONT> <FONT =
color=3D#ff0000>:=3D</FONT>=20
<FONT color=3D#0000ff>SelDat2</FONT><FONT =
color=3D#ff0000>(</FONT><FONT=20
color=3D#008000>aDBFs</FONT><FONT color=3D#ff0000>,</FONT> <FONT=20
color=3D#ff0000><STRONG>1</STRONG>,</FONT> <FONT=20
color=3D#ff0000><STRONG>4</STRONG>,</FONT> <FONT =
color=3D#ff0000>"Verificaci=F3n=20
de informaci=F3n")</FONT></FONT></DIV></FONT></FONT></FONT >
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff00ff size=3D2><STRONG>CASO=20
#2</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ahora imaginemos este =
arreglo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DFixedsys size=3D2>aColumnas :=3D =
ARRAY(8)<BR>aColumnas[ 1] :=3D=20
{.F., "No. Consecutivo",{"99,999", NIL}, 6, taRIGHT, .F., {2, =
1}, .F.,=20
1, 1}<BR>aColumnas[ 2] :=3D {.T.,=20
=
"Fecha" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nbsp=
;ÂÂÂÂ{NIL,=20
NIL}, 14, taLEFT, .F., {2, 1}, .F., 2, 2}<BR>aColumnas[ 3] =
:=3D {.T.,=20
=
"Hora" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂÂ=
ÂÂÂÂ=20
{NIL, NIL}, 8, taLEFT, .F., {2, 1}, .F., 3, =
3}<BR>aColumnas[ 4]=20
:=3D {.F., "Usuario (clave)",ÂÂÂÂ {NIL, =
NIL},Â=20
7, taLEFT, .F., {2, 1}, .F., 4, 4}<BR>aColumnas[ 5] :=3D {.T., =
"Usuario=20
(nombre)"ÂÂÂÂÂ{NIL, NIL}, 13, taLEFT, =
..F.,=20
{2, 1}, .F., 5, 5}<BR>aColumnas[ 6] :=3D {.T.,=20
=
"Proceso" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nb=
sp;Â=20
{NIL, NIL}, 13, taLEFT, .F., {2, 1}, .F., 6, 6}<BR>aColumnas[ =
7] :=3D=20
{.T.,=20
=
"Evento" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&nbs=
p;ÂÂ=20
{NIL, NIL}, 6, taLEFT, .F., {2, 1}, .F., 7, =
7}<BR>aColumnas[ 8]=20
:=3D {.T.,=20
=
"Detalles" ,ÂÂÂÂÂ&nbsp ;ÂÂÂÂ&n=
bsp;=20
{NIL, NIL}, 15, taLEFT, .F., {2, 1}, .F., 8, =
8}<BR></FONT></DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT face=3DFixedsys =
color=3D#000000>
<DIV><FONT face=3DFixedsys size=3D2><FONT face=3DArial =
color=3D#000080><STRONG>En=20
este caso quiero mostrar las posiciones <FONT =
color=3D#ff0000>1</FONT> y <FONT=20
color=3D#ff0000>2</FONT> del arreglo en el=20
tArrayBrowse:</STRONG></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2><FONT color=3D#808080><FONT =
color=3D#000000><FONT=20
face=3DFixedsys><FONT color=3D#008000>aColumnas</FONT> <FONT=20
color=3D#ff0000>:=3D</FONT> <FONT =
color=3D#0000ff>SelDat2</FONT><FONT=20
color=3D#ff0000>(</FONT><FONT color=3D#008000>aColumnas</FONT><FONT=20
color=3D#ff0000>,</FONT> <FONT =
color=3D#ff0000><STRONG>1</STRONG>,</FONT> <FONT=20
color=3D#ff0000><STRONG>2</STRONG>,</FONT> <FONT =
color=3D#ff0000>"Verificaci=F3n=20
de informaci=F3n")</FONT></FONT></DIV></FONT></FONT></FONT >
<DIV><FONT face=3DFixedsys size=3D2><FONT color=3D#808080><FONT =
face=3DArial=20
color=3D#000000></FONT></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Entonces, tomando estas variantes <FONT=20
color=3D#ff0000><STRONG>=BFcomo puedo indicar a la tArrayBrowse que =
columnas del=20
arreglo recibido va a mostrar?</STRONG>, de antemano el tArrayBrowse =
ya fue=20
dise=F1ado en el IDE con solo 2 columnas, pero necesito indicar que =
posiciones=20
(columnas)Âva a mostrar del arreglo pasado en=20
tArrayBrowse:SetArray(aArray)</FONT></FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Espero a ver sido claro, de antemano MIL=20
GRACIAS!!</FONT></DIV>
<DIV><FONT face=3DArial></FONT>Â</DIV>
<DIV><FONT face=3DArial>Israel</FONT></DIV>
<DIV><FONT =
face=3DArial></FONT>Â</DIV></FONT></DIV></FONT ></FONT>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:45c1b28b$1@news.xailer.com">news:45c1b28b$1@news.xailer.com<=
/A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Israel, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No tiene m=E1s que crear las =
columnas en el=20
browse antes de hacer la llamada a =
TArrayBrowse:SetArray()</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
=
href=3D"mailto:isolis_antispam_@sanroms.com">isolis_antispam_@sanroms.com=
</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:45c0e0aa@news.xailer.com">news:45c0e0aa@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Hola Foro:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tengo una duda (quiz=E1 =
demasiado tonta pero=20
no logro darle al clavo):</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He creado un Form en el cual =
muestro un=20
tArrayBrowse para mostrar y permitir al usuario seleccionar=20
informaci=F3n.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>En este tArrayBrowse quiero =
<U>mostrar solo=20
2 columnas</U> de un array de <n> columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Como esta forma puede ser =
llamada desde=20
cualquier funci=F3n, el Array puede varia en dimensiones, =
entonces, la=20
idea es especificar que datos del array quiero mostrar en esas 2 =
columnas</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Entonces...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=BFC=F3mo puedo definir las =
columnas que deseo=20
mostrar en un tArrayBrowse con un Array de <n>=20
columnas?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><IMG alt=3D"" hspace=3D0=20
src=3D"cid:002501c74654$a0ee7dd0$[email=4001a8c0@isolis]4001a8c0@isolis[/email]" =
align=3Dbaseline=20
=
border=3D0></DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE> </BLOCKQUOTE></BO=
DY></HTML>
------=_NextPart_001_002B_01C74622.5658C8C0--
------=_NextPart_000_002A_01C74622.5658C8C0
Content-Type: image/png;
name="ArrayBrowse.PNG"
Content-Transfer-Encoding: base64
Content-ID: <002501c74654$a0ee7dd0$[email=4001a8c0@isolis]4001a8c0@isolis[/email]>
iVBORw0KGgoAAAANSUhEUgAAAV4AAAF8CAIAAAAILURwAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAMDpJREFU
eF7tXWusnlWVLhp/mHgPP2DKGB0ErTiMiECLojCDjBGUjDgUUopFSqVFaIEC LQpFa3GGuWDbgQbr
6HhLyDhBMynRlksT8JI4RDOUAs4ph9KWtofS9vR+A5nVs2Gzz76ud7/3vZ+d ryfvt9+11l7r2Xs9
e73f+c7uEWPGjFm3bh39pPbud7/7uOOOE9doQAAIZIXAQw89NCpe4gXRiBTO PvvsOXPmzJ8/fwEa
EAAC2SBAKU+JT+lPJCAJ4XDJQO3EE0+86aabCAqSuO6662aiAQEgkA0ClPKU +JT+RAJEBYITDlMD
UQV1UfsKGhAAAhkjIHhA1A6HqYEKCSKMGWhAAAhkjwBRARHCYWoghqBaYvbs 2dljAgCAABCYQVRA
hHD41xH0jz6EIEiuQAMCQKC3CFAKX3jhhX9TvJGWmv50TYTwKjVQCTFt2rTe YgLHgQAQuIIyfOLE
id+bPmXvP8/e88837P6Xm3aOvIbvnKO+RCfdJRmSJHnSIl2JIFEBEcLr1HC5 t13xpS/5BXAXCACB
dhGgcuH707+4Y+6lz9867bl505+57aqBb1z9x/kz6bX6m9eKl3hL/XSXZEiS 5EmLdFXnR1HDFHe7
bMqUqZMnewRwCwgAgdYRoPTe8Y/Xrf/q5fR69mvTBm658ul505+69arV8655 4hvXrPr61fSTrqmH
+ukuyQhh0iJd1f9R1HCpu31l6rTJkyd7BHALCACB1hGg9B7+h2vXzZmy7sbJ 6+Z88dmbpgzOvXzg
5qkDX73i6ZunPX3zl+knXVMP9dNdkhmRnEJapKv6z6WGJXPmTJo48S1vecvb 3va2t771rccff/wl
l1zy9re/nd6+853vbB0ROAAEgAAhQOm97faZz86etGH2xfTa9dsHX3nlFXGt vaif7opOkictHzVM
crc/3DZX3HzjG99IBCGuzz333A9+8IMerV7fIux67T+czxCBw1XDN7/y7KyJ G679e3rRGhZNvJUv
rZ/kSYt0VcRGVQ30EaWrDX35InHrggsuoL++OOecc+j6TW96k0teju2xKWQ8 AsxbVdlRhxOOHXvU
kX4f5NB1+MAMH2JAQCJwuGqYP/2Zqz+/Ycb54vU6C7h7SJ60SFdFchQ1fMHR 6Ncag+eeKW9+6EMf
InY48sgjXfLCG8orcREUcwnw+2ksevHlOZIcgzJSMliHDxw/IQMEJAKHqeHW aYNXfm7DlZ+Wr9fZ
4cpPq9dSgORJi3RVJEdRwxmO9tNb5j5+2kfUm294wxve9a53ueRlwpCASBi6 kD7RhVBUxcy7VhWP
HdWmsGb2yE6XcVVFk3HpqiTo8iEYi4akRMNE2AVjXMgea55YXPOO/tYRGD9+ /LZpn37ylD9be9rR
6kudaLrW7pI8aZGu6j+LGnYtvOmxk06UaqeffvpRRx1FhcPJJ5/sZwd5V7KA LCVUavDftarUYcf0
lumYdEa94Lst2VMFU1X3OMb0UEXbBZ1gcGpBgdYTAA64EKCUHJ72qT+ecvTg KUdpL8kO5i2SJy0t
nUdRw8ds7Z7p01+cMfGxU06SN4kU6Proo48WF64mXBF3NdJSd1q5EFUZNceE BZE/MhOsnepdee3p
1EaUgXB0yRkZl5UaTA+tAUqIVBj5jvmBNT30gKxGZEVACKB1GQH6Y+qdV5y9 5tSj1owf9dLWiXaX
5EmLdNXQRlEDVRRamzB+wvAtUzd/cjxRg7hFv7k89dRTxTVRA/3+0tSSPcIh eqtubiLJXTuteVe1
L+1YO9W75uJW3bD6o7mtemjVtXb6PZTR0YVUFxD5R9fuCm7VihQrdCYOqg+a t6awNRzPjONWuwic
cMIJe6aeRXXBwITXX5IXqFNcv7RzWBUgedIiXdX5UdRAOa+1Z2dMeuGS84bO O2vVR//qlA9/+M1v
fjPRwTHHHENi73nPe4444gh6+453vEPTEsNTp7nUZCf/rlWFaUdNnuCIMgqP 20GDUjfothhOldd6
PLdEemvqJuzBkLUhPNRgrg30dBCBD3zgAwdmnLPxk3++8cxjxEvygqeH5EmL dNWIfNTw6L/d8T+f
/duZnzjrjAmnf+LjZxQCQjqkLWJ1uzaTx3o32Glmo6pi3lWTSjPuSU7XKGID 9/sgIzUdE+rCJY2b
TGrQ7KjexoXsYh8rORZaABBuBQH6g6iD156/6dz3bzr3OHrJNBRv5cvofz9p ka6TGj6qtG98edpH
Tz78/pNnnnnXj+497eNnnHnOp2fcMHfh0v+Yef0NEyZMkLI/X/GwqiivZeFq 9tAtrZPeqoUuR0XI
C0nz2n9X1VIlXV75RxFu+H2wBmhC5A/czH9XIHHgWK1Z8bHOODpbR4DS+9BX Jw1NmjA0eTy99jz8
M1oz4lp7UT/dfbVz0gTSIl3V/1FVw0cc7eRTTtHunPaxj18wecrNt99x6fSr PnLyyS5F9FeOgOR7
WW5UPgQM9heB973vfYe+deWWq8/fcs1nt8w6b8usc7fM+gy9Ns08b/3Mz627 9vP0k65F58jd8w5L
Xn0+aZGuGvgoavgwWh8QUMurPvgLH5tD4Nhjjz24eO62eVO3ff3yrfMuO/y6 bcqL8y574euXb543
ddO8K+gnXVMP9QsBkiR50iJd1dFR1EC/vUADAkCgvwhQev9o+qUH/mnW8Ldv 3P7t2cN33vDi4deN
Ww6/5my+82b6SdfUQ/1097DMt28kedIiXTXwUdTwl2hAAAj0HAH65tIPZ3zx wH1LD933Hfq5b+S1
92ff3fvzf9/9s+/TT7oWnVKG5ElLi3sUNdAvNtGAABDoLwK07dOfOP2F0agi oEbd8kITIS3SVQMf
RQ3j0IAAEAACIwiAGrAQgAAQsCDwKjWMHTuWrug+XaABASCQOQKiaiAQxkhq oC75P2HiAggAgQwR
IDYANWQ47wgZCAQQADVgiQABIGBBANSAZQEEgACoAWsACAABHgKoGng4QQoI ZIYAqCGzCUe4QICH
AKiBhxOkgEBmCIAaMptwhAsEeAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOk gEBmCIAaMptwhAsE
eAiAGng4QQoIZIYAqCGzCUe4QICHAKiBhxOkgEBmCIAaMptwhAsEeAjEUwP9 P5fqENpb3ugBKZdN
sz9idKESoVhraIWMk/MyCnEtewrZ8Qh7pqAt6OoLre8RVYWMsJM7NVSLZsPW 5FJuZU23MmiFCFey
wVToT9dMgRq6NiMF/AE1FADLEAU1+NGrhRrMytYsdz3Vb1DYKiDi5JiVkuoD BV9RAury0+WJWu2r
WW32a88FLt+C1KBZ9syLGZSKkhVYLbVMNEwtqz/aAlWd9OPgt6YFa5oKzqMa oGus+jwsw3qV6Jai
BnU1WMtL0alBbC4FtccU5vd4BnIZCXoYYdMaspbGrnGtNKEuYitWrrS0kqDm nl/Gg49JDS4/5Yie
RWLqeohP84qzwFze8leXGUWtHlaS3mWMlKIGT0pr3G+deI3XtW3Kup48GaXu URqXB5PBumRd/lgT
wFysZroWWoVq+NbMV4Ny+e/KGXVNu2YqSCscatA81/zxLwAz8VzWXIwTXIQu EufMnRX/qjwsk9JV
6VZPDXEJwMm3IFkwM9xc9EzFYDJ4thGNaPwc50pLbdaDw7nogzN6eWrwrAQX Z7nyzZXDJn3zNxiO
pHXzs3JWtR5Wld5l7CRLDcw0diWJh6o4LBbMCk5y8n1zbZv+9OaTuDWTmQhb faiPGoLAlne7JDUE
PSyTzxXqVk8Ngj7VWo7Zo6acS12uM1NAu2ViZFVRp1kIBBX9fpp3tR6zfFDH dSWh1TfTeU1Ms6wh
4J8Xv5/aJmk1ZXZq0Zn+eKoGpjXX7Jj5zF9vcmgTExdK1vy3zo7sdDGOCXWF +e8xFU8Ncf5Zcy/O
VOtarcdSyIFCwhxsNYOV2+f4AJn6EGiCGswior54mrTcejK4yhwrCNV6aw5d rf0m5xFjWRFoghoA
PRAAAr1DANTQuymDw0CgCQRADU2gjDGAQO8QADX0bsrgMBBoAgFQQxMoYwwg 0DsEQA29mzI4DASa
QADU0ATKGAMI9A4BUEPvpgwOA4EmEAA1NIEyxgACvUMA1NC7KYPDQKAJBEAN TaCMMYBA7xAANfRu
yuAwEGgCgXhqWIYGBIBAfxB45ZVXCjFKKWqgwdCAABDoPgLEYE1TwwAaEAAC zSIwPDw8ODh49913
P/DAAyu8bfny5YsXLyZhUEOzU4TRgEAbCBA1LF26dM2aNZxqhcRIuK/UsHbt +vIIV2KkvBuwAASK
IlB06Qpq4PCCkOkxNTzyyCNF0TTlKzFS3g1YAAJFESi6dCU1vMxooIaBovgW nb9k5OmktmRiSSOQ
oktXUsNeRgM1gBpYaQJeYMHUrFA0NRBHqG3S1Ou1HnqbPjWoZ89aJ64ovs3O fu9H0zgFFFPhjBZa
uoS8rBqGlEa8IF5qJ10nTg2cdVkI3wrntV+molM6WrFf+LTibdGlK6lh7WtN 8oK4kP10kRc1oGqI
XsHRGR6tGO1qPorR1PD0SJO8oF2Lu6AGfNbASiUzw0WPeF4zTbie46x2gkZY LuYnFE0Nq1atkrxA
16JpPblQg1yp+OVlXAa5UlpY8zy4+Z/p1Lt8I3EhpKcVTQ2PjzTiAnEhm9qT CzVYV7DoLIpveiuM
E5GraqiQGjQ31LoDTyWVPAvLzxo0RrC+BTWAGjjMoNcFWqXA3/A5Hwx7eJzl azZCRXc1UMPrS0Or
V62bT1F8s1l4owJtoGrg80ueU1D+WRjUoK9p+SkXqCE6qQpRg6gprJ/v4GPI 6CkANRSArpINvxIj
BZyGKBCoCIGiS1dUDevXr1e/v+C6JjH8eVUFf6NV0VzDDBAogEAENRA7LFq0 6MeMtnDhwi1btvT1
j7KLQlPJx7wFpg6iQKBOBIquf0r1HTt27Bxpu3bt2r179549e/bt27d///4D Bw4cHGmHDh166bUG
akDVUOf6he3aEAA1OKEtCg2qhtpWKQy3gEDR9Z9R1VD0lBvr7FVipIV1gSGz R6Do0s2IGrJfGwAA
CBRAANRQACyIAoF8EOgHNdBjEhoQAAJNItAPaij0/+FYhSN+41p+UFgAAv1F ANTQ37mD50CgRgRA
DTWCC9NAoL8I5EsN9Kc7x/zdbcFXf6cWngOBMgjkSw1ECuvWPSNe69c/+/zz z23atP6FFza++OLQ
9u0v7tixfdeuHSMyaEAgRwRADU5e2LNnV5AatMOFOrKCyCu/J0GBMoFoxplj CTEVz2gfpCmrBaY/
0aMno5g7NVjrhff+4L3EC/v27eVQQx1LoeTyDaoHBaoKijmQFFPl/bqeu35q EARUVYAJ28maGly8
QNRAvHDgwH5QQzNL30oN/hwGNdQ9NVlTg/h8gYhAfr5A1+JFvHDw4IE4apBV sZg88VatltVOVUbN
EO1a206tiWFW45oncjFZjUs/rYW99a5q0ExvEwczcBm+dmG+daGqASsJxQ9g 3XmVgP2sqUF87ii4
gD531HjhpZcOcajBmgDqyrbmjDUTrMtay2fOBmtW1BqVBF0yC3vruNpA6lur haDzQT9NiNQkNB0w
3cADBZO2sqYG8fsIyQhqvUC8QP91OIcaNKA5SeXZYK3J5t9arRustvMHU05z yR+FtTxxUZg1mYP+
mCFrg2oeqgStEYTfW2aeZCiWNTW4niMEL/zpT39qhho4bKLtdVpqWe+aMtYH CivvMF0yd2wPEVg3
cOYDhSdel6tm6WSGn2HC80POmhrk9xfo9xHy8wXJCwRiB6khWJPH7dKFqgb/ M46Zk64eD1V5qDBY
WPmfa/BAwWSHrKlBfK9J/J5SfO6o8kIcNaiVvGtLDD5QqMtXLZWlQWtFYK2c RafrqcfqifYwYn1g
0cyqb1Wb1n4zOU0Vq8/moCog8q7JHS5FZpLkKZY1Nfh5gUMNqS4az8NIHSGn PVwdiDVgM2tqCP4B
RfCBooEZamWIhnO1ySK/+dBamcHyg+ZLDeWxgwUgkDACoIaEJxehAYF4BEAN 8dhBEwgkjEBe1PAK
GhAAAjwEQA08nCAFBDJDANSQ2YQjXCDAQyBfaqBfYnF+ecmDEVJAIDUE8qUG 5gFwqU044hmNAO0Q
gMSKAKghcACcf92o303uziILehIUKJMtmnHmWELMFGaqV+hwGVMp6eZODcED 4ILUUMdqKJkPQfWg
QFVBMQeSYtVSQ9HRq4o6DTtZUwPnADhQQwMLXaUGNZ9FURbtAFOXKRbtRk8V s6YGzgFwEdQgnzKE
rlzfar+26F0qUp2TMOrTjTq0Zyt2ueQy5TKrhqPluVYRWLOdSQ0aSkFwNOQ9 zvc0e2t1O2tq4BwA
F6QGM6uliljxZrUcrJ+tAi5rcsW7xjWf4YMuaUxkjUJ2msmvjSg9dwXusWDd 0jUo/J74nTfRqzXf
emQ8a2rgHAAXpAZNgJNU1szUNnBXwpt57qEGc/PXhF0c4Y/CWlMEicm0qalo GW7Nf7PMCVJzkBqs
7NOjHK7J1aypgXMAXAPUwGET6z6s+uYxYoZQVdVgdSC4pUdUMa4yxDo7wehc /FhTjvXUbNbU4D8A
jmaUvvvQNWoI1uRmdR2RioXYiv9AYZYJzComSA3Wpy0PR7hKiZ6mcR1uZ00N ngPgBNYR1CDWnGiF
1r1HS7Um7VtrAdOIpst0KfjI4HFJDdyKA4eqrCRi9coPjuepxMVTdaRZH21m TQ2uA+DkRAapoY9T
zvG54cfvhodTEWhxaM5EtCiTNTXgbyhcK6/5hGl+xBazrhdD50sNvZgeOAkE 2kIA1NAW8hgXCHQa
AVBDp6cHzgGBthDIixoSPskPoQGBahEANVSLJ6wBgUQQADUkMpEIAwhUi0C+ 1EC/LeP88rJauGEN
CPQFgXypgXkAXF8mEn4CgWoRADUEDoDzw02lhyog32r9HiN8SdMIR1d+ubiq dWMOynRDc0BoxVkr
EwvH2zL2k9HNnRqCB8AFqUFdahHLLkJFuhTULekbc5UH3TApwMOhHGsux5i6 TDFm+KmKZU0NnAPg
kqGG+lYwJ9M85ZXGXxxroIb6ZlNazpoaOAfABalB3RK1zdC6aWsVvqoibqlF gTVPpAWPrjDiSjPz
KUOzaXoufTMHDYagxaUh5gnZ46cVJdVJv1cNpFbfh8iaGjgHwFVLDdaU03JY yGgsY32I0CRdj+4m
42jWXF6p/MJhvaBZMwo1BDOcoEGXV1b0XJD2PYdr8j9rauAcAMehBpmT5uIz 89y6P6ud/hXs2s/N
DVbz3Lrbu8jFQxYePrKGZq1frClttazGFUTJhb/mgxpdTXmVgNmsqYFzAByT GgQ7cKjBmrGuxWr2
+3d4j7cexvHbNNnNX+aYRGmWM54c9mz4QZRADRVSUtbU4D8AjlAe+e6Dr2lJ 5VnW5uapplxwl457
oDDNFs1qyXfWfd76xNEMNfgJyz8RqBo4DJI1NXgOgBPYFaIGNeusOSkTyVVf qP1aGaLOpVpXW21a
hf2dLptmnqtZJ7U0NzwyGkUGyyLXECpXBqseE1hObmQukzU1uA6Ak2siSA3p rZ5mdtRmRnHNTruj
92XNZE0N+BsK127fwPJtKz/bGrcBSKsdIl9qqBZHWAMCiSEAakhsQhEOEKgG AVBDNTjCChBIDIG8
qKGtY/YwLhDoHQKght5NGRwGAk0gAGpoAmWMAQR6h8Dw8PDLL7+8ZMmSh0a3 FStWaD30lsRIftmy
ZRRmoQersWPHjhs3bsGCBXQxhv7RFb2nFrQSMZjVprCjNvolFueXl72bUTgM BCpBgFJ96dKla9as
4VgjMRKOyNYuUgPzADgOLpABAukhIKiB4tq/fz9dU9s20oaGhp4baQMDA6tX r161atUTTzxBYglS
g/VAF/FFyeB/h0ulh1aJiLdav2fd8CVNIxxd+UXjqtauOSjTDbNqE0CV91A4 4HKD415V4KRkx6SG
rSNt8+bNWVBD8AA4/2SLZS1lIlZhhAp/uJK+MRc6JwQOh/rteO76qaEQUzND zkFMowYzZKoannzy
yTSrBs4BcMlQQ32ruSpq8OcwqKG+GbRaNquGe4yW7AMF5wC4IDWoC1ouX3Mf U2+ptYarXxbb1ucI
rQh31eSeGtusd1QjZrkh5U2HgyFoY1kRMx/ErDFKMRNDvxsN51UCw2VdNXAO gKuWGqwpp+2WGq24
SnGp5X9qMFnD5YOanB4ZD+tpTzoexzQONR+R/E5aB/LTcQK52nAInKoh2QcK zgFwHGows9RVPshE
1TZhs99VXbv2c1fhYM06dTg/MblCs6Z90KyfArRqwm/NrHEkNWiK/ueUhvOt R8NxqoZkHyg4B8Ax
qUGr/z3UoBk09zpVQCsZgmns8da1UQdtWquYuNKjEDVYgfJ460HShLFHKdqW q1lXDf4D4GhKCv3y
UhYC1uWrlutm6R4s4M2kMvdzc3t07e2aNf/ojVGD6wHE6oALw2DIbWVa78bN umrwHAAnJrIQNWj1
sDWZZXFh7uHmE4HKNVopoQl7niast1xjaeym5qTHYfWWyzFt3/aoqLhpCLi0 TO5wKfYuP1t0mFM1
JPtA4ToATs5HkBpanLmahm6m9m5mFBc71wRdYmZdX3lSvw2Z7MeQ+BsKWZZ7 6o6aVnxj7NDYQDUB
1ZbZfL8N2RbiGBcI9AIBT9Ug/oIx2b+h6MX0wEkg0BYCghrWr1//FKORWDp/ XtUW4hgXCPQCAaKG
nTt3Llq06Meh9pOf/OSuu+7q93kND6MBASDAQyCvU554mEAKCACBh0ENWARA AAhYEMiXGuh3Wpxf
XmLVAIE8EUiBGijJmWdMqnPMPAAuz2WBqIFAItQQZAdxoKWVGvwHwAWXiPpp c1BYFdD8KaTbgHB0
XA34hiEaQCAdavCzg4saggfA+edAS++OZzt/PUXHlQwCfKxSlUyKGjzsYKUG zgFwoIZCSx/UUAiu
LgsnRQ2eTxys1MA5AC6OGqzVuOwUNmUWWftFpxxdkxHqZh4yx3UNrQ5nDdx0 1dqjRievVYfNcLqc
JHn6lg41+D+JtFID5wC4aGrQ0kzLczVhTEk1dV1ppvGL+dZKHJo1FxcEN38h 4ArKf0uFNDhQnmnZ
hagToYa431BwDoCrgxrUNPZkl7bfuooOV6aZpYE1n60buCtjtaokmhqs1U0X 8gE+SARSoIYgL5CA
tWrgHADXEWpwlfdaP5NogiWGlRpKGtdKIWvVg8zsDgJZU4P/ADiaJPruQx3U oO7ehfLNfAzRcriQ
NVPY/3wRZ1x+xABq6E7aczzJmho8B8AJ7ILUIHLVrMn9ndqG6XlSMB8K1Ow1 93aOM1qGWx8omHG5
hpMBekjQNS5n1UKmAQSypgbXAXASdw41MEv9BuZS1hTNjNX8cI3FhYEIgayp ob6/oXB9jFf3mmt4
3IaHqxs92FcRyJcasA6AABDwIABqwPIAAkDAggCoAcsCCACB7KlB/UQd10AA CHgQyKtqwFIAAkCA
iQCogQkUxIBAXgjkSw3MA+DyWg6IFgi8hkC+1MA8AA5LBQjkiQCo4Rn/AXD+ ZSH/q0jX/2qtquM/
X8wzx3oade7UEDwALkgNzOQHL/Q0Q7J1O2tq4BwAVxU1ZLvCEHhPEciaGjgH wMVRg/l/0qtVg/b0
YRVGldHTjErG7aypgXMAXJAa1I8bTGGZ4a4LjTLIgimZzGpDID1CIGtq4BwA F6QGq4DJFyYFCEXr
B5koGXqUQqm6mjU1cA6Ai6AGKwto2R4sDcAOqaZcX+LKmhr8B8DRFNJ3Hyqn Bo0U8EDRl1TJzc+s
qcFzAJxYB3HUoD0myAcHubbwMWRuadbHeLOmBtcBcHIig9TQxymHz0CAg0DW 1MA5AI4DImSAQHoI
5EsN6c0lIgICFSIAaqgQTJgCAukgAGpIZy4RCRCoEIG8qIHzX+BBBggAAUIA 1IBlAASAgAUBUAOW
BRAAAqAGBQHmAXBYNUAgTwTyrRqYB8DluSwQNRAANQQOgAsuEfmnk0HJBgTI Gesorn4h7L/bgNsY
ooMI5E4NwQPg/HOmJlUXEiyOGiLYpINLGS5Vi0DW1MA5AI5PDdVOTJw1UEMc btAyEciaGjgHwEVQ
g7WUMJ87XD1yxKCAKSmH1nRNyhAC2gOF1umxJiVVFfFsovUg63qKQNbUwDkA Ljiv1gRWk1Z7mBf5
ZtKHlqhBAW0INck9uiYXSGdcDnA8sVJPEDoIdBmBrKmBcwAcf/LMTdjMOus+ 71G0ZrLmkjV1JWGZ
TKTZVHnKNKUWAmql4HJMG5ePHiS7hkDW1MA5AI4/YUWpwWqZTxPMqsEkAlPR xQguXeuTiLUU4qMH
ya4hkDU1+A+Ao6ka+e6DrwWTKvj4EKznXQJMarBWDdZnh/IPFFY0urbi4Q8T gaypwXMAnIAvSA1q
va0ibq29tc/nrB9SaNllVTGn1izjNePWzwKsm7//mcLzHCFvmXEx1yLEOoVA 1tTgOgBOzhCHGjo1
nXAGCFSFQNbUwDkAriqgYQcI9AuBfKmhX/MEb4FAwwiAGhoGHMMBgX4gAGro xzzBSyDQMAJ5UUOF
J+fBFBBIGwFQQ9rzi+iAQCQCoIZI4KAGBNJGIF9qoG/mcH55mfb0Izog4EIg X2pgHgCHpQME8kQA
1BA4AM6/LKj0UAW0t3FLqhIjcUNDCwhIBHKnhuABcM1TA1YnEOgCAllTA+cA OFBDF5YpfGgegayp
gXMAXDQ1iD9AFOrqM4LaqcmIWy4BcQuPG80nSZ4jZk0NnAPg4qhBIwUrNUjL JiNY2cRKNHmuWkTd
AAJZUwPnALg4anBVCtaigEkNms0GFgeGyBmBrKmBcwBcNDVoLOCqEaQYs9DA A0XO6dpk7FlTg/8A
OJoG+u5DHDW48lx+WGA+YgSpAQ8UTSYGxsqaGjwHwImVEaQG+dGg+QGh1mOS guix9ovR1btqD1Yt
EGgAgaypwXUAnMSdQw0NTBKGAALNI5A1NeBvKJpfcBixLwjkSw19mSH4CQRa QQDU0ArsGBQIdB0B
UEPXZwj+AYFWEMiLGho+XQ/DAYH+IgBq6O/cwXMgUCMCoIYawYVpINBfBPKl BvpCEeeXl/2dWngO
BMogkC81MA+AKwMudIFAfxEANQQOgAtOrfp956CwKkCK9Fb8rLxpZmsapajb Hjdct/yedySuojj0
Qj53aggeAOefxegMbHJNNzlWIbhMojTVI5yPUOlFrjbsZNbUwDkALnqt16TY 8PqodrjKqware6CG
SmYta2rgHAAXl+HyKUOoy2cHuWqFgPpAoT2YqOvbpa7JSJtWsy5PtK3b9Nw0 q/aIsTQZLUz1rYan
FrXVmlVFDUdqyU6PAyryHgArya5eG8maGjgHwEVQQzCrtdRV36o8IofWSERL Zo86xxNtFI1BTB+0
PLcOYYJmDcGv61dR77pc8tj3s1WvU7oq57OmBs4BcFVRgyvPzQRg9qh7tZoD wdy2coGLX7Rd3cU1
Lmc86hEjapWCybDWUsLqm0kNZv1SVY711E7W1MA5AK6D1MDZqJn8YhYgLmZx paWLlYKlEEdAkzFJ
zYTCxRcma/g5tKf5XKHbWVOD/wA4Qnnkuw++piUGPyH5Zbn6bMzJT2ulLRPG mktFzTILkyCFdeeB
wgNLhcnWL1NZU4PnADgxi0FqECmnlqwybWRK+7dHlSM0OxopaMvXKuypk135 rxUOTLPa5uwJ1vWs
oQFl4mA6rKqYVYCrgrD6hgeKIE9lTQ2uA+AkahxqCEJcVMAs0YtaKC/fBR/K RwELZRDImhq68zcU
1tKjzLxG6HbBhwi3oVITAvlSQ02AwiwQSAMBUEMa84gogEDFCIAaKgYU5oBA GgjkRQ2tnLGHQYFA
HxEANfRx1uAzEKgdAVBD7RBjACDQRwTypQb6XR3nl5d9nFT4DATKI5AvNTAP gCsPMSwAgT4iAGoI
HADnn1T1a0LB6SdhkhE/zcbsd4m5Ri8qH4yiDgGPk0VBayveWset1bhrQoeH hwcHB+++++4HHnhg
hbctX7588eLFJLxs2TKyVugXNGPHjh03btyCBQvoYgz9oyt6Ty1oJWIwq01h R22iaggeABekBing
n79KZjfCSIRKHcnPh1GVjHA+QqWSeNsatxLnrUaIGpYuXbpmzRrOECRGwhHZ 2lFq4BwAV2hNB3c/
DsrVyvRiyTIrJg4ybcXb1rgcTOJkBDXwdZOiBs4BcNHUIJ81hAXxVlyoP+WS Ui+ksJSUFjR5VVLb
b60OWFewJmkdS/XfdFU167JmIiklPbEXBc1lSp0CP1Cu8DX/TXhd9Y7mklwP Up4ZvukYP28jJCU1
vMxoZD8pauAcABdHDVqqaBmuLVNz9aurR72r9Zu04lp2pj/mulSd1O5a+UuT 9/hpehWnazJmcFCN
i80YPTNl6npA0ziXswCs1sypt7phpfiI/PeoSGrYy2ipUQPnALhoatC2RHO3 t6afOeX81e9fuOYW
bc1Y2anuimWowco4LmooD5oLrkJuuJhR7Xe56mJna8iacNHwq+UCzZqkBroI ttSogXMAXDQ1aIqt
U4MrEBcZebYvzz7mKk8KjWJynJ8fOTu/iwc5un7nrZaDOBQa18N39bGDpIah kTZp6vXiQja1JzVq
8B8AR9HSbzH41OBfDRHUoC4IzkryVw3Wu67d27VtMqPw04prX40owvkllVn4 RLjBRFhFVRQCWo9f
wGTedqlh7dq1xALiRdeiaT2pUYPnADixCDjUoBbeKo9o/fyk8ijKdWZNaevo 6riqusdVYVx1w8wr
uVjN8F09Jslqo6jjankbpICgKWlcc8NU9LjBmV+VPkxS0OjPKuBiE9Mx/75V 8q6sGp4eaZILtGtx
NzVqcB0AJzENUkNJ9Puuri70nsaSQAg1IS+pYdVrTbKDuJD9dJEaNeBvKEqu qgTyKoEQSk6iS11S
w+NKk+ygdtJ1UtRQE6AwCwTSQMBKDcQCxA4aL4Aa0phxRAEEWAi4qMHkBVAD C1AIAYE0EAA1pDGP
iAIIVIwAqKFiQGEOCKSBgKCG9evXy+8yeC5ILJ2/oUhj/hAFEKgJAfHl6EWL Fv2Y0RYuXEhHv7Tw
R9nBr3CbAtvROoYALR20thCIyKDgWSqmQAvUwDxtho6ikQfODAwM3H///Q+h dQCB++67j74VswOt
PQQiMqgf1MA/bYaKK3HgDLVDhw7VVGvBbCEEaCJoOnaitYdARAb1hhoKrUVB DaSyH60DCIivyrWX
Fxh5Z6HzmsR89YkazMNm6ItZZqcITGAR8YgFlcoREDOyC609BEQ6aMliTR+S 6R81aIfNyK9za/0J
UIMgNfNn5UnbjEExI7vR2kNAUIOaKa70IZn+UYO6jmVg5uJWqWHbtm1bRxpd eJqQaauZjlEI99xz
j/kzwsMuBC5mZA9aewhYi2hXEvWPGtTjZURU2rEz4i2oQWWQ7lDDPrT2EBDU YOaLZAf1Vv+owXq8
jPkNLZUaKODNI81KIrJTyNTU/EO72M1aNUR42G7gAnkxIx34PDRfFwQ1WL/O aJ7g1D9qEOfJWA+Z
kbfkgTMCi+deaxEft1alIn3gX7geKPgWuhM4wSiW2gG09hAQ6aCmiSeV+kcN 6qkykurUTnGtVg3d
yZBCWZ0kNRxEaw8BQQ1asriSqH/UoP2huP/AGYEFfSeyp40eKMhz82cfwxFL rb28wMgHRTpwzmuS
hy9EVM0tfFHaDEwE6TlwRqisHmlPPvmkuIhuZMHT/Gb9uiV967JxGZqgBvpO JFpbCFgzyJo+iVCD
58AZawVlPn2gpwEEBDW8hNYeAq7N1ZNB/a4agtTwBFoHEAA1tMcJr46cMjUw j5SgX8+IUyWo0fXv
0TqAAE3Evffe23p65OwApUPRDOpH1cA/UoJOnRCnSpDKypUrGYdQQKR2BB55 5BGajraOKsC4Ih2Y
h7LIDOoBNdDHnmhAAAj0AgF6eCzEKWPHjh03btyCBQvoYgz9oyt6Ty1ohUZC AwJAoEcIBJNaFYin
hkLDQBgIAIF+IQBq6Nd8wVsg0BACoIaGgMYwQKBfCIAa+jVf8BYINIQAqKEh oDEMEOgXAqCGfs0X
vAUCDSEAamgIaAwDBPqFAKihX/MFb4FAQwiUooYxrzWPsyQSHYqmG2HKVLEa UTuZKtFBQREI9AKB
eGrwp5MMPiKfrcAVtWPSlofIhPFCKr2YXTgJBKIRqIYaaqoaoqPyEBOqhvKo wkIOCFRPDdreK1OR
syczddVNXkySq6bgPB0EH1uKFiw5rBvEmDwC8dTgqsC1HVumsbVfTWzzCcWj qzJOoZolSBZBgeTX
BAIEAoRAKWow63a57YsLuZ+7+tU5cOWkizL89YLrbkSNgKoBqZIhAtVTgwai ufMzk1allWDF4Zq5
YAkQFPA8rWS4XBByPgjEU4O5mWtZpFUNwfQu9EBhFizWOfNnvrUc4JBFPusD kWaLQDw1WD9rMDvV
DwXkU4YsHPw9Ll3/IwbnIcXzMAJqyDYZELiKQClqAJRAAAikigCoIdWZRVxA oBQCoIZS8EEZCKSK
AKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCoIdWZ RVxAoBQCoIZS8EEZ
CKSKAKgh1ZlFXECgFAKghlLwQRkIpIoAqCHVmUVcQKAUAqCGUvBBGQikigCo IdWZRVxAoBQCKVDD
li1bhvNopaa6UmVgXimcXTSWAjUQLSxfvvyGG2646KKLLky0UWjXXHMNhdmR RQTMOzIR9bmRCDXM
mjVryZIlezb/IOEXBUhh1rcUClkmahCYP/fcc2sTbRRapzAvNEHlhROhhosv vliQwvY/3J7kS0RH
YZaf8kosEDWQMy+88MKhQ4deSrRRaBRgdzCvZOL4RhKhhokTJ4rkeTnRJqKj MPlTW6skUQM5s2HD
BsL7QKKNQqMAu4N5rRNqGk+HGnZv+G7a1EABdmeZCmqgkpsqhkTZ+GUKjQLs DuaghsIIiGW6a/Du
3Ru/l2ht+xKFRgF2Z5kKzAcHB9N+oKAAu4N54cQop5BO1bDjqX/dvX7pwUQb hUYBdmeZCmoYGBig
h4lEIT9IoVGA3cG8XKYX1k6HGujTx13PLtlXotEx8yW061Wl0CjA7ixTQQ1P PfXU/v37IyJX/zez
CHWPSoWTSKFRgN3BvHByl1NIhxq2/vaWnQOL95RotKpKaL+qWokR0w0Kbetv v9adZSqoYfXq1ZSl
RUHTIKoWsQqtUWgUYHcwL5fphbXToYYtD1+/46k7d8Y2WlKkKn6WaeUtWEen 0LasvL47y1RQw+OP
P753796icNUEkXCjQuMUGgXYHcwLJ3c5BVDDqwvbSg2y7pWrX+tRC2O5NOXq tAoXTSQhnwM1mHCJ
VFeznTMj6kRoc1EIfFDDuHHjFixYQBwxhv7RFb2nVo5xGtUWO9jQ/VcOr7pj e1SjBST15LXZWbRH
s6mqF3WTQtt8//Tu7GAC88cee4ySrWgsQRyEgGABYVz2eCA1ZVy6TIcpNAqw O5g3mlTr1qVTNWz6
6aXbf/9N+rOfiEarSmrJa7VT3FVrBHHXVNR6pIomXNRJCm3Tf13anWUqqOE3 v/nN1q1bi8ZiAmvC
G8Q2OCPqZMWBT6FRgN3BHNRQGAGxTEtSg7aSrIvJShYap1iZxeSRoumUPDUE SbbQjPitMcEHNSTy
QPH8D7+w7XffeqZ4o2WkKYketT+ix69e1M1tv7t9w4++0J0dTNDxo48+Sn9l UDQWDfAIbOXsuECu
BHwKjQLsDuaF98xyCuk8UKz7zme2/nou/SK6aKNlpKnIHllKSAGtR601VBlx rd01B+K7uvXXN1OA
3VmmghpWrlw5NDTEj8KEUcXEA1ehGakKfAqNAuwO5uUyvbB2OtSwduFZW1Ze /b/NNlqyzQxIoa1d
9NfdWaaCGh588MGNGzc2g0Dzo1BoFGB3MC+c3OUU0qGGwTsmDK34En2k3GQj amhmuKEVlw3eMb47
y1RQAx0tQ3+b2AwCzY9CoVGA3cG8XKYX1k6HGp6Zf9Lm+yf+KtG26f6Ja+af 1J1lKqjhF7/4Ba24
RCH/FYVGAXYH88LJXU4hHWoYuPWETf/9WXo4TLJRaAO3nNCdZSqoYdmyZfRn y0kCTkFRaBRgdzAv
l+mFtROhBjqK5//mHr/xPz+145dTdvzy0pGfSb0oNAqwOycOiVOeKHOefvrp FYk2Co0C7A7mhZO7
nEIi1DBjxoz58+dT8iT8ogCvuuqqctNdmTZRg8D8vqRbpzCvbPJ4hhKhBvq4 aPbs2UTwVP4l2ehE
6ZkzZ/LmtAkpcaI0MG8C65bGSIEaWoIOwwKBlBEANaQ8u4gNCEQjAGqIhg6K QCBlBEANKc8uYgMC
0QiAGqKhgyIQSBkBUEPKs4vYgEA0AqCGaOigCARSRgDUkPLsIjYgEI0AqCEa OigCgZQRADWkPLuI
DQhEIwBqiIYOikAgZQRADSnPLmIDAtEIgBqioYMiEEgZATs1UC8aEAACmSNg P2xe/B9WaEAACOSM
wKj/2I7eoAEBIAAEBAKv/p+XmVdQCB8IAAETgf8HCq1DC05PkXYAAAAASUVO RK5CYII=
------=_NextPart_000_002A_01C74622.5658C8C0--

Attached files
Saludos :D

Israel
Arriba
Responder

Volver a “Spanish”