Ayuda para un novato total

[PILO]

Voy a empezar a trabajar en xailer y soy novato, espero que me perdoneis todo lo que os pregunte
Tengo des bases de datos A y B en la A tengo un campo CODIGO que tambien esta en la B.
Necesito algun ejemplo, para presentar en pantalla las dos bases de datos en A aparecen los codigo y su descripcion y en la
otra aparenten el codigo seleccionado en la A y solo los datos que tiene exe condigo.
Un ejemplo cliente en una basedatos y los albaranes que tiene en la otra
Necesito algun ejemplo de como se filtra en la ventana activa.
Gracias de antemano a cualquiera que me pueda contestar
--

[PILO]

no hay nadie que me pueda ayudar
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:442bf4e4$[email=3@ozsrvnegro.ozlan.local...]3@ozsrvnegro.ozlan.local...[/email]
Voy a empezar a trabajar en xailer y soy novato, espero que me perdoneis todo lo que os pregunte
Tengo des bases de datos A y B en la A tengo un campo CODIGO que tambien esta en la B.
Necesito algun ejemplo, para presentar en pantalla las dos bases de datos en A aparecen los codigo y su descripcion y en la
otra aparenten el codigo seleccionado en la A y solo los datos que tiene exe condigo.
Un ejemplo cliente en una basedatos y los albaranes que tiene en la otra
Necesito algun ejemplo de como se filtra en la ventana activa.
Gracias de antemano a cualquiera que me pueda contestar
--

[paco-ssi]

Pilo:
Yo tengo algo hecho y funciona. Pero lo mio seguro que es raro, ya queno tengo ni idea de OPP ni nada parecido. Soy de los de Summer87 y de los malos.
Seguro que alguien superior te pone algo bueno que nos sirve a todos.
En caso de que no salga nada bueno, te mando lo mio.
Saludos.
Padco V
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:442e7599$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
no hay nadie que me pueda ayudar
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:442bf4e4$[email=3@ozsrvnegro.ozlan.local...]3@ozsrvnegro.ozlan.local...[/email]
Voy a empezar a trabajar en xailer y soy novato, espero que me perdoneis todo lo que os pregunte
Tengo des bases de datos A y B en la A tengo un campo CODIGO que tambien esta en la B.
Necesito algun ejemplo, para presentar en pantalla las dos bases de datos en A aparecen los codigo y su descripcion y en la
otra aparenten el codigo seleccionado en la A y solo los datos que tiene exe condigo.
Un ejemplo cliente en una basedatos y los albaranes que tiene en la otra
Necesito algun ejemplo de como se filtra en la ventana activa.
Gracias de antemano a cualquiera que me pueda contestar
--

[Richard Acosta]

Yo uso algo por el estilo con dbedit() y una func. definida por mí­,
simplemente abro un dbedit anidado dentro de otro y en el segundo evalúo
la existencia de í­tems con el número de cliente que está seleccionado en
la primer DB para presentar en pantalla habiendo filtrado (set filter
to) en la segunda DB hecho esto devuelvo el control al primer dbedit
para poder desplazarme libremente por esta primer DB. ¿retorcido?
Lo uso en modo consola, todaví­a no aprendí­ a usar el modo gráfico pero
en eso ando.
Supongo que para el modo gráfico se hará algo similar.
Saludos.

[zeasoftware]

This is a multi-part message in MIME format.
------=_NextPart_000_0018_01C65571.53088310
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0019_01C65571.53088310"
------=_NextPart_001_0019_01C65571.53088310
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
buscas algo parecido a lo de la imagen?
asi actualizo el siguiente browse
METHOD DBBrowse2Change( oSender, lBookMarkChanged ) CLASS tFormBancos
::oDataSet3:SetScope( ::oDataSet2:Banco + ::oDataSet2:NumCuenta )
::oDataSet3:GoTop()
::oDBBrowse3:refresh(.t.)
::oLabel4:cText :=3D ::oDataSet2:NumCuenta
RETURN Nil
Aunque estoy viendo que con la nueva pre-release no aparecen los datos, =
pero eso lo checo luego, ya que estoy con otras pruebas.
Saludos.
------=_NextPart_001_0019_01C65571.53088310
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.2802" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial><FONT size=3D2>buscas algo parecido a lo de la=20
imagen?</FONT></FONT></DIV>
<DIV><FONT face=3DArial><FONT size=3D2></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>asi actualizo el siguiente =
browse</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial><FONT size=3D2>METHOD DBBrowse2Change( oSender,=20
lBookMarkChanged ) CLASS tFormBancos<BR>ÂÂ =
::oDataSet3:SetScope(=20
::oDataSet2:Banco + ::oDataSet2:NumCuenta )<BR>ÂÂ=20
::oDataSet3:GoTop()<BR>ÂÂ=20
::oDBBrowse3:refresh(.t.)</FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial><FONT size=3D2>ÂÂ ::oLabel4:cText :=3D =
::oDataSet2:NumCuenta</FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial><FONT size=3D2>RETURN =
Nil<BR></FONT></FONT></DIV>
<DIV><FONT face=3DArial><FONT size=3D2>Aunque estoy viendo que con la =
nueva=20
pre-release no aparecen los datos, pero eso lo checo luego, ya que estoy =
con=20
otras pruebas.</FONT></FONT></DIV>
<DIV><FONT face=3DArial><FONT size=3D2></FONT></FONT>Â</DIV>
<DIV><FONT face=3DArial><FONT =
size=3D2>Saludos.</DIV></FONT></FONT></BODY></HTML>
------=_NextPart_001_0019_01C65571.53088310--
------=_NextPart_000_0018_01C65571.53088310
Content-Type: image/png;
name="multibrowses.png"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="multibrowses.png"
iVBORw0KGgoAAAANSUhEUgAAAooAAAFJCAIAAACTgptcAAAACXBIWXMAAA7D AAAOwwHHb6hkAAAf
pElEQVR4nO2dy3Nc1bWH9ddllj+CqsxTmScZ3BRVd5Ahk9wJuVVUXSpFwOD4 zUMIy8hWJFpqyxEY
kgAXUsSGXFt+YHeLvoNNZLn7nNPrnN77nPX4vvrKZdr9OGuvtfrXapOwdveb Q0RERFTl2uBXgIiI
iHMSz4iIiOoknhEREdVJPCMiIqqTeEZERFQn8YyIiKhO4hkREVGd3eN57ScH Jw5eBiIioidXiufK
3yMiIuKKEs+IfuQ7LUQ35o/nuXeH9Ju594vFd5C6WxafHxErnVuTVbaGjUMc 3OXxPBqtj0bvnfjs
kcs+py8G88kti/epu2XxyU9fDKI71/f23qtcqOXLnC9TiWfEwV0Sz6PRe/v7 V6sfueynZ0kYNzwV
bxAY0/H46mjUJaErV6ZuuZq/4lr8Pd9sIfZsUzzv7a3v72/UPnJZpq4Yz5X3 RIzgeLy5t7de96cN
X2gt3lm4kg1fcdU9nG+2EFe26duypngejWrfICqXXP5eIL+FhMaY1i3tSPaF VuWNp8NY/hXX4l9j
sZWIuWz4tqw5npu+Yav7u+elm3/6PouPmrtl7oGIQazcPvkXWpU3yr++avjA 3fBaiNjBum/Luscz
IpazcvvkX2jdrQraFb++4pstxEJWfltGPCNqtCael6xk5Xdai8Hc8GX14o2V X24T0ogZrVxt4hlR
o93iGREtSjwjmpF4Rowj8YxoRuIZMY7EM6IZiWfEOK4Uz/f+9QUilvMXP//Z 0nUlnhFdumo8zwCg
DK+9+rtW8Tz4hwlEXEXJvreL5zv/vI2I2e0Qz0N/ogCAjgj3nXhGHN5u8Tz4 ZSNiB4lnRDMSz4hx
JJ6z+eHmW2Frp/x+DoF4Rowj8ZzN4PkUvPx+DoF47lNGGiWWmxPi2UCTTBi8 /H4OgXjuU0YaJRLP
Bgy+zMHL7+cQiOc+ZaRRoqt4XjvF4CervElrz5Pr/vKTl99zqPeyDkdUeUuW aSSePUk8o0Rv8Vz5
e+sWiufsj+rwnJKHDBjPWe4fNp7nCq/7+NKhL9Y/hUu6WfnpcGnJds8EFxVu fYeNIJ77blIrS8Rz
oScknns4hELx3LCSWSZwlbMd8C1C3s3Ki8zy9RXqVx7Plb9vUFE8V34CXXzv WHqL8ia1smHtG6pe
fHM8farCQ667Q92Bq4rnhiOqu6XyZ6CGqgc5hP7jOWNTBn+qthLPKLFDPC/+ Y6Ua/+65MhLm6qm7
RX+TWll5Vosn02EOlh7y6X+sfLm5p9Xwd8+SI2qI57pbhH/UwyGU+3J7saLK qk8OtmF/Kw+58gnn
nvNOzVjW3bm0neN5rorm+akrFq24ejxXjsHa2prGn56XzvTSp9LcpFbK3+ba zkHdITeffMNLK/zp
eelpVNYorLrydd3Hs+QQ5E2pvGUxqoXPn93V41lS+NJiUbkrxnPDeGiJZ+Hq Sp5KeZNamTeeJYdc
+RDiWXj4duNZUnWJeF76ebHhw2Vpe4jnhvLRiqvHc90YWI3n5nTR3KRW9h/P lW/WxLPkj3o4hNL/
5vbp5OsnnuX36X/ZS8ez5EBQvxl/ep67RdHfPTd8kFz8oLH4KCtNauXiB6u6 k5HMQatDrpuhugPX
8HfPkiNavP/Jr81PUjl4PR/CIPG8OC2VR1T3nKdPuO4JF+9T+ai65y9k9nhe HLmG8tGKK/6b2w1j
wP9rWN9N8mrw8vs5hJ7/d891cTL3m8pQWfy4s/iEp+9W+eqLv1l8Tg3drDvD pcE8VxHxbNHV/3fP
i1uQIJ77bpJXg5ffzyHw/xrWp4w0Ssw+J/z0bKBJtgxefj+HQDz3KSONEoln AwZf5uDl93MIxHOf
MtIo0dX/5zYidpN47lPiGSUai+cv/rqDiNklnhHjWCSeb+1vIGJ2u8Xz4J8q ELGDReJ5+8OLiJjd
bvE8+KcKROxgkXiOyfr6+tCXMCTBy0+UPoRu8Tz4pwpE7CDxnI3g+RS8/ITO eIZuMNIgodycEM/Z
CL7MwctPEM+eYKRBAvFsgODLHLz8BPHsCUYaJBDPBgi+zMHLTxDPnmCkQQLx bIDgyxy8/ATx7AlG
GiQQzwYIvszBy08Qz55gpEEC8WyA4MscvPwE8ewJRhokEM8GCL7MwctPEM+e YKRBAvFsgODLHLz8
BPHsCUYaJBDPBgi+zMHLTxDPnmCkQQLxbIDgyxy8/ATx7AlGGiQQzwYIvszB y08Qz55gpEEC8WyA
4MscvPwE8ewJRhokEM8GCL7MwctPEM+eYKRBAvFsgODLHLz8BPHsCUYaJBDP Bgi+zMHLTxDPnmCk
QQLxbIDgyxy8/ATx7AlGGiQQzwYIvszBy08Qz55gpEEC8WyA4MscvPwE8ewJ RhokEM8GCL7MwctP
EM+eYKRBAvFsgODLHLz8BPHsCUYaJBDPBgi+zMHLTxDPnmCkQQLxbIDgyxy8 /ATx7AlGGiQQzwYI
vszBy08Qz55gpEEC8WyA4MscvPwE8ewJRhokEM8GCL7MwctPEM+eYKRBAvFs gODLHLz8BPHsCUYa
JBDPBgi+zMHLTxDPnmCkQQLxbIDgyxy8/ATx7AlGGiQQzwYIvszBy08Qz55g pEEC8WyA4MscvPwE
8ewJRhokEM8GCL7MwctPEM+eYKRBAvFsgODLHLz8BPHsCUYaJBDPBgi+zMHL TxDPnmCkQQLxbIDg
yxy8/ATx7AlGGiQQzwYIvszBy08Qz55gpEEC8WyA4MscvPwE8ewJRhokEM8G CL7MwctPEM+eYKRB
AvFsgODLHLz8BPHsCUYaJBDPBgi+zMHLTxDPnmCkQQLxbIDgyxy8/ATx7AlG GiQQzwYIvszBy08Q
z55gpEEC8WyA4MscvPwE8ewJRhokEM8GCL7MwctPEM+eYKRBAvFsgODLHLz8 BPHsCUYaJBDPBgi+
zMHLTxDPnmCkQQLxbIDgyxy8/ATx7AlGGiQQzwYIvszBy08Qz55gpEEC8WyA 4MscvPwE8ewJRhok
EM8GCL7MwctPEM+eYKRBAvFsgODLHLz8BPHsCUYaJBDPBgi+zMHLTxDPnmCk QQLxbIDgyxy8/ATx
7AlGGiQQzwYIvszBy08Qz55gpEEC8WyA4MscvPwE8ewJRhokEM8GCL7MwctP EM+eYKRBAvFsgODL
HLz8BPHsCUYaJBDPBgi+zMHLTxDPnmCkQQLxbIDgyxy8/ATx7AlGGiQQzwYI vszBy08Qz55gpEEC
8WyA4MscvPwE8ewJRhokEM8GCL7MwctPEM+eYKRBAvFsgODLHLz8BPHsCUYa JBDPBgi+zMHLTxDP
nmCkQQLxbIDgyxy8/ATx7AlGGiQQzwYIvszBy08Qz55gpEEC8WyA4MscvPwE 8ewJRhokEM8GCL7M
wctPEM+eYKRBAvFsgODLHLz8BPHsCUYaJBDPBgi+zMHLTxDPnmCkQQLxbIDg yxy8/ATx7AlGGiQQ
zwYIvszBy08Qz55gpEEC8WyA4MscvPwE8ewJRhokEM8GCL7MwctPEM+eYKRB AvFsgODLHLz8BPHs
CUYaJBDPBgi+zMHLTxDPnmCkQQLxbIDgyxy8/ATx7AlGGiQQzwYIvszBy08Q z55gpEEC8WyA4Msc
vPwE8ewJRhokEM8GCL7MwctPEM+eYKRBAvFsgODLHLz8BPHsCUYaJBDPBgi+ zMHLTxDPnmCkQQLx
bIDgyxy8/ATx7AlGGiQQzwYIvszBy08Qz55gpEEC8WyA4MscvPwE8ewJRhok EM8GCL7MwctPEM+e
YKRBAvFsgODLHLz8BPHsCUYaJBDPBgi+zMHLTxDPnmCkQQLxbIDgyxy8/ATx 7AlGGiQQzwYIvszB
y08Qz55gpEEC8WyA4MscvPwE8ewJRhokEM8GCL7MwctPEM+eYKRBAvFsgODL HLz8BPHsCUYaJBDP
Bgi+zMHLTxDPnmCkQQLxbIDgyxy8/ATx7AlGGiQQzwYIvszBy08Qz55gpEEC 8WyA4MscvPwE8ewJ
RhokEM8GCL7MwctPEM+eYKRBAvFsgODLHLz8BPHsCUYaJBDPBgi+zMHLTxDP nmCkQQLxbIDgyxy8
/ATx7AlGGiQQzwYIvszBy08Qz55gpEEC8WyA4MscvPwE8ewJRhokEM8GCL7M wctPEM+eYKRBAvFs
gODLHLz8BPHsCUYaJBDPBgi+zMHLTxDPnmCkQQLxbIDgyxy8/ATx7AlGGiQQ zwYIvszBy08Qz55g
pEEC8WyA4MscvPwE8ewJRhokEM8GCL7MwctPEM+eYKRBAvFsgODLHLz8BPHs CUYaJBDPBgi+zMHL
TxDPnmCkQQLxbIDgyxy8/ATx7AlGGiQQzwYIvszBy08Qz55gpEEC8WyA4Msc vPwE8ewJRhokGIvn
7779ChGz2y2eB79sROxgkXg+Pn7a6jPCd99+1fYhACvyX+c+/fbe0dG9u0PZ YU26xTP7KGHweUDf
ltv31l9uf/3ddPS36Y3DJ1f3H6+PHr+z+/jKzsMrOw8vbj+6cOPhua3HZz98 +Mbmg0+/fjKbzf72
xecnD7lw4+Gfth5d3G7thRsPS/unrUdt7aEQnVfV4cJ6u6qL249uf/n9bDZ7 6Y2PH9y7O5Qd1qTz
l9vZ97HbAEieRzgbGV9OyTygb8vte+t4Hv1t+vk/f/jk6x9ufj7d+/vx6LPp 7u3jndvTGx8fbx1O
Nm9NN8bTt3efXrp+NJvNPvrLZycP2bo12TyYXj9s7datSWk3D6Zt7aEQnVfV 4cJ6u6rrh9ML1+7N
ZrPfvDJ+cPTdUHZYk87xnH0fuw2A5HmEs5Hx5ZTMA/q23L63jucbh08++fqH wy+ne3893r19fOPj
4+uH05++8OLmwXRzPN0YT98dTd/eeXr5zw9ms9k725+cPGTrcLJ1a3Lj8Lit W4eT4rYPgz4K0XlV
7S+st6u6cXh88fr92Wz2q5dvPnzwr6GsXJOfvvDij0lTtSad4zn7PnYbANHz yGYj48spmQf0bbl9
bx3PV28+Th8Qdm7/+Ln1py+8mLyye5x8e/fp238+ms1mb24czGazq/uPb37+ 74+3vWRnH5Yp5LsH
P1T+OuxV6TyryhdKn09/+fL40cP/G8rFNTnZkXdH08o16RzP+fcxV4uF89zt AoSP0jEP6Nty+946
nt8dfT/6bLr72fGNj4+3bk1Ovxdc3ple2plc3ple3pmm63j1ys3ZbLY+erz3 9+Nrt443b02vHRy3
9lZxN29N21qokO8e/PDbM98v/jrsVa14XL1d1bWD45O348ePj4ZycU1Ob0rl mnSO5/z72GkA6p5n
6TxLLkD+cjrnAX1bbt9bx/M7u493bk93PnnuM8KlnUnyws40/SZdxysXx8Qz 8TxIPD/5/sFQzq1J
8sru8cm+LK5J53jOv49O43nAeUDfltv31vF8cfvR9cPpjcNnr/3+ePL+eHJ+ 90fTpVzefjCbzX5/
bpwuffTZ9IOD482D6Qfj49YeFLfDv4RVqJDat7NBr2rF4+rtqj4Yn3o7fvJ4 KE+vSTLtyPvjydzG
nqxJ53jOv4+dBqDueZbOs+QC5C+ncx7Qt+X2vXU8X7jx8OSvdk5e+51Tbwfn dyfndyaXto9O3g6u
7DzcvX28MZ5uHExPrlvuxnha3IPWFiqk7u1s2Kta8bh6u6r3x5P0rwL98uXx ZPL9UM5msz9tPZpL
lI2DZz/dpjU5t/P03PWj2Wz28rn9zvGcfR+7DUDd8yydZ9EFiF9O5zygb8vt e+t4fvPDRxvjZ98y
PfuG/eb0rY8myTe3n57depiug3gmngeK5ydDubgmHxw8++m2ck06x3P2ffQb z4PNA/q23L63juc/
fvDo3dF0Yzz9YHy88fxnhAvj6dm96Ru7k9dvPH1z6+jk7eDi9qMbHx9f3pte Hk8vj9q7V95xe4sV
8tsz3//46/i5X4e9qpWOq7erGk3TAgwez3Nrcjo1K9ekczzn38duA1D/PEvm WXIBbV5O4Tygb8vt
e+t4fm3j4eWd6buj6fv7k3f3pu/uTd8ZT9J7wfm9yVsfTd748+SP15+8ufns 7eDshw83xtPzu5Oz
H00v7LT2ua/pynj2o2lbeyhE51V1uLDerurCzvTNa0ez2ezX/31wfPx0KCvX 5KcvvHhlfFy3Jp3j
Ofs+dhsAyfMIZyPjyymZB/RtuX1vHc9/WD+6sP3k0u7k7d2nb+8+vbL75NJH k4sfPT2/M3lrZ3Jm
+8kfrz95fevxmc37J3/X9cbmg7d3n57fmZzbeXry75TKPV/ecztP29pDITqv qsOF9XZVl3YmZ67e
n81mL75y8MMPk6HssCad4zn7PnYbAMnzCGcj48spmQf0bbl9bx3Pt7/8/sK1 exev3790/Sh58fr9
i9fvn916eHbr4VtbD968dnTm6v2Pv3w0m81eX781m80+/frJpetHl7aPzl0/ urz9oK2Xto9Ke+56
a3soROdVdbiw3q7q8vaDNHgvnfls2HVtuyad4zn7PnYbAMnzCGcj48spmQf0 bbl9bxfPH9z8x0zM
61e/+u7br+T3B8jCHzb+9+79xwOua4c16RbP7KOEwecBfVtu39vF87f3jv6w /vlLb378n/9z+JtX
xr/6/c1fv7z/y5fHyV/9/mbyP1659dKZz+7ef5z+25b/+MeX1/Y+ffncPmJp z1/9y+D/MdcOa9It
ntlHE/OAvi237y3i+bVXf4eIhWwbz4NfMCJ2Nmc8/+LnP0PEosrjefBLRcQV zRbPiNinzfGMiJ4k
nhHNSDwjxpF4RjQj8YwYR+IZ0YzEM2IciWdEMxLPiHEknhHNSDwjxpF4RjQj 8YwYR+IZ0YzEM2Ic
iWdEMxLPiHEknhHNSDwjxpF4RjQj8YwYR+IZ0YzEM2IcO8Tz+uAXjRjTvT3i GTGKreN5b299f39j
8OtGjOZ4vLm3V/HhmE/MiC6t/DjeFM93vzkcjd7b3786+KUjxnE8vlr3UzKf mBH9WfdxfEk83/3m
cDRaH43eQ8ReXK/8HH1qH/nEjOjHho/jy+MZEVXJJ2ZELzZ9HCeeERER1Uk8 IyIiqpN4RkREVCfx
jIiIqE7iGRERUZ3EMyIiojqJZ0RERHUSz4iIiOoknhEREdVJPCMiIqqTeEZE RFRn93he+8nB0lta
PbzzU+U8jvavu/aTgxMHuWZERPTnYPGcrYCsL9r22ebuv8rFkO6IiHjiSvF8 OlGG+vFRVTzrKQQR
EU1bKp7nvu+d+6PTv57crfL+lc8zd0vdnRevqu7y5q5N/lR1T770CVcphCBH RHTv8nie+4/LPnvk
8yl79/koqrxb3QMXf9PwqMp7Nr9oQ54t/Xa6+amE8dyqEPmr3/3mcOj/WCki Inaw6b/0LIrn0ei9
/f2rDcEmjOe6+yyN57l/8UqYwUuDee5pKx/Y8AVAh3iWFyJ/dURENOp4fHU0 akropnje21vf39+o
fWRNst5tTMq28Vz3og3P0PD7pX9al52Sp5JcZN5CEBHRruPx5t7eet2fNsXz aFT7sLvt47ny9x2+
3F76DM1/1HBJbV9l6cPlPyt3KwQREU3b8BV3czw3/ty97CfChq+O79YHT2XC Cb/BXnzRxWuYu2er
L7flT7UYzN0KqXx1QhoR0YcNOds9nhEREXEViWdERER1Es+IiIjqJJ4RERHV STwjIiKqk3hGRERU
Z854vvevLxAREbGVv/j5z4rH8wwAAADEvPbq73qK5zv/vI2IiIgSiWdERER1 Es+IiIjqJJ7z+OHm
W+5rxCx6GhVPtXA+eEdZy4hnh01FzXoaFU+1cD54R1nLiGeHTUXNehoVT7Vw PnhHWcuIZ4dNRc16
GhVPtXA+eEdZy7TE89ra2tJbWj2881OVa+raKXK9rvyp5u7Z9hrq7r/0aXs4 fFu2HZXOLVZSy7D2
NpCVTys8nxLvDFmuP6A9tyw9/PSvp3USz7ns/KLC99xhq1vl1fuJ5wjvEW1H RfPpuY9n4Z3r3qk7
9LpEEyOsVS4HaVndMyiK57n08h3PWZqq4WQWi1qlj7bOpJvEc5/2MJANPwCV 63XbQxi8EVYcpGW2
43nuw+nij6Env57crfL+lc8zd0vdnbM3taFAyQlUFi45tKWHsNiXhmNZLGrF PnY7f0N23n9hi5vv
038tw9phICsXreEk105tYofzqWtNw95lrOL0czaXGcS8LZM3q7IFiuK54Vor 79ZcXsOfVh7c0hfN
3lRJgc31Su7Q4RAqL1jyQrn62OH8DdntX1MQnl5dKwsdo4l4rvxVeIDCgZx7 C251PpUPlKxGh7e1
upNpeLZo5m2Z8I26rk0m47nuPs0TvPY8DYdV96J5m3r6tSRvx3WPbS6k4fal C1k3cHVnmKuPHc7f
kN32f+nJN5zw3Gj1XMuwthrIVd4QKk+4n3iWv63dWZiHpe8k0SzRsspbFm9f 3Fld8dz8m8Ubhe/y
8rezzvGQ66dn4R2WLlXzHDTfIhw4YVEd+tjh/A3ZOZ5b3dLPu62VeG7+TcNx tYrnxT/q+adn+WPr
/sjx3gkdPJ5P38dqPDcXvzSeV9/GFZvaqpBV7tDhEFYZuCx97HD+hlw9njvM c6FjJJ7n7rl6PMuv
JMvbGvE8Z4mWLb3FTDxX3rL2bxrucEcwwXPP0xwMlS+6YlPrnnPx9sp/bCiw 7hmW1tW8kIvP3PDw
1fsovE7Tlv5Xw+qOscQBGornyluEB1h3/g2taXU+bfe3+cKEVazVv2cWmhYT lmjZ0mYt9iKhJZ6t
O+z7VNhdsqj+SItZy4pW7iDnY05VLSOePTSVeDakqv2nFs4HT6uqZcSzw6ai Zj2NiqdaOB+8o6xl
xLPDpqJmPY2Kp1o4H7yjrGXEMyIiojr7i+cv/rqDiIiIEvuL51v7G4iIiCix v3je/vAiIiIiSuwv
nn2zvr4+9CWADTyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6D qqaCZjyNiqdaSsD5
mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jn PKhqKmjG06h4qqUE
nI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWM eM6DqqaCZjyNiqda
SsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENV y4jnPKhqKmjG06h4
qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85 VLWMeM6DqqaCZjyN
iqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5 mENVy4jnPKhqKmjG
06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUE nI85VLWMeM6DqqaC
ZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqda SsD5mENVy4jnPKhq
KmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4 qqUEnI85VLWMeM6D
qqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyN iqdaSsD5mENVy4jn
PKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG 06h4qqUEnI85VLWM
eM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaC ZjyNiqdaSsD5mENV
y4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhq KmjG06h4qqUEnI85
VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6D qqaCZjyNiqdaSsD5
mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jn PKhqKmjG06h4qqUE
nI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWM eM6DqqaCZjyNiqda
SsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENV y4jnPKhqKmjG06h4
qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85 VLWMeM6DqqaCZjyN
iqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5 mENVy4jnPKhqKmjG
06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUE nI85VLWMeM6DqqaC
ZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqda SsD5mENVy4jnPKhq
KmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4 qqUEnI85VLWMeM6D
qqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyN iqdaSsD5mENVy4jn
PKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG 06h4qqUEnI85VLWM
eM6DqqaCZjyNiqdaSsD5mENVy4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaC ZjyNiqdaSsD5mENV
y4jnPKhqKmjG06h4qqUEnI85VLWMeM6DqqaCZjyNiqdaSsD5mENVy4jnPKhq KmjG06h4qqUEnI85
VLWsQzz/PzialCIU9YH/AAAAAElFTkSuQmCC
------=_NextPart_000_0018_01C65571.53088310--

Attached files

[PILO]

pues estamos igual, mendame la ayuda si puedes a srmpilo@hotmail.com
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje news:[email=442e7f9c@ozsrvnegro.ozlan.local...]442e7f9c@ozsrvnegro.ozlan.local...[/email]
Pilo:
Yo tengo algo hecho y funciona. Pero lo mio seguro que es raro, ya queno tengo ni idea de OPP ni nada parecido. Soy de los de Summer87 y de los malos.
Seguro que alguien superior te pone algo bueno que nos sirve a todos.
En caso de que no salga nada bueno, te mando lo mio.
Saludos.
Padco V
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:442e7599$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
no hay nadie que me pueda ayudar
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:442bf4e4$[email=3@ozsrvnegro.ozlan.local...]3@ozsrvnegro.ozlan.local...[/email]
Voy a empezar a trabajar en xailer y soy novato, espero que me perdoneis todo lo que os pregunte
Tengo des bases de datos A y B en la A tengo un campo CODIGO que tambien esta en la B.
Necesito algun ejemplo, para presentar en pantalla las dos bases de datos en A aparecen los codigo y su descripcion y en la
otra aparenten el codigo seleccionado en la A y solo los datos que tiene exe condigo.
Un ejemplo cliente en una basedatos y los albaranes que tiene en la otra
Necesito algun ejemplo de como se filtra en la ventana activa.
Gracias de antemano a cualquiera que me pueda contestar
--

[PILO]

algo a esto es lo que quiero, pero cuando cambie en el primer browe se actualice el filtro o el scope en el segundo
no tengo creado ningun indice
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=442ea0a8@ozsrvnegro.ozlan.local...]442ea0a8@ozsrvnegro.ozlan.local...[/email]
buscas algo parecido a lo de la imagen?
asi actualizo el siguiente browse
METHOD DBBrowse2Change( oSender, lBookMarkChanged ) CLASS tFormBancos
::oDataSet3:SetScope( ::oDataSet2:Banco + ::oDataSet2:NumCuenta )
::oDataSet3:GoTop()
::oDBBrowse3:refresh(.t.)
::oLabel4:cText := ::oDataSet2:NumCuenta
RETURN Nil
Aunque estoy viendo que con la nueva pre-release no aparecen los datos, pero eso lo checo luego, ya que estoy con otras pruebas.
Saludos.
--

[zeasoftware]

aqui te pongo algo mas completo, cualquier duda has otro mensaje.
/*
* Proyecto: SCIWin
* Fichero: CliexEdoCtas.prg
* Descripción:
* Autor: Ramón Zea
* Fecha: 01/04/2006
*/
#include "Xailer.ch"
#include "RDD.ch"
CLASS TCliexEdoCtas FROM TForm
COMPONENT oDBBrowse1
COMPONENT oDBBrowse2
Component oDataSource0
Component oDataSource1
Component oDataSource3
Component oDataSet0
Component oDataSet1
Component oDataSet3
METHOD CreateForm()
METHOD FormCreate( oSender )
METHOD FormInitialize( oSender )
METHOD DBBrowse1Change( oSender, lBookMarkChanged )
ENDCLASS
#include "CliexEdoCtas.xfm"
//---------------------------------------------------------- --------------------
METHOD FormCreate( oSender ) CLASS TCliexEdoCtas
::oDataSet1:OrdSetFocus( "xCliente" )
::oDataSet0 := ::oDataSet1:Clone()
::oDataSet0:OrdSetFocus( 2 ) //"FactxCliente" )
::oDataSet0:Filter("Concepto == '01'", .t.)
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS TCliexEdoCtas
::oDataSet0:SetScope( ::cClave,, .t.)
::oDataSet0:GoTop()
::DBBrowse1Change()

RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBBrowse1Change( oSender, lBookMarkChanged ) CLASS TCliexEdoCtas
::oDataSet1:SetScope( ::cClave + ::oDataSet0:Serie + ::oDataSet0:Folio,, .t. )
::oDataSet1:GoTop()
::oDBBrowse2:refresh(.t.)
RETURN Nil
//---------------------------------------------------------- --------------------
--

[PILO]

This is a multi-part message in MIME format.
------=_NextPart_000_0043_01C658A8.36684170
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0044_01C658A8.36684170"
------=_NextPart_001_0044_01C658A8.36684170
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hola ramon te dejos el ejemplo que estoy haciendo y ver si me puedes =
ayudar
"Ram=F3n Zea" <zeasoftware@hotmail.com> escribi=F3 en el mensaje =
news:[email=44308b75@ozsrvnegro.ozlan.local...]44308b75@ozsrvnegro.ozlan.local...[/email]
aqui te pongo algo mas completo, cualquier duda has otro mensaje.
/*
* Proyecto: SCIWin
* Fichero: CliexEdoCtas.prg
* Descripci=F3n:
* Autor: Ram=F3n Zea
* Fecha: 01/04/2006
*/
#include "Xailer.ch"
#include "RDD.ch"
CLASS TCliexEdoCtas FROM TForm
COMPONENT oDBBrowse1
COMPONENT oDBBrowse2
Component oDataSource0
Component oDataSource1
Component oDataSource3
Component oDataSet0
Component oDataSet1
Component oDataSet3
METHOD CreateForm()
METHOD FormCreate( oSender )
METHOD FormInitialize( oSender )
METHOD DBBrowse1Change( oSender, lBookMarkChanged )
ENDCLASS
#include "CliexEdoCtas.xfm"
=
//---------------------------------------------------------- -------------=
-------
METHOD FormCreate( oSender ) CLASS TCliexEdoCtas
::oDataSet1:OrdSetFocus( "xCliente" )
::oDataSet0 :=3D ::oDataSet1:Clone()
::oDataSet0:OrdSetFocus( 2 ) //"FactxCliente" )
::oDataSet0:Filter("Concepto =3D=3D '01'", .t.)
RETURN Nil
=
//---------------------------------------------------------- -------------=
-------
METHOD FormInitialize( oSender ) CLASS TCliexEdoCtas
::oDataSet0:SetScope( ::cClave,, .t.)
::oDataSet0:GoTop()
::DBBrowse1Change()
=20
RETURN Nil
=
//---------------------------------------------------------- -------------=
-------
METHOD DBBrowse1Change( oSender, lBookMarkChanged ) CLASS =
TCliexEdoCtas
::oDataSet1:SetScope( ::cClave + ::oDataSet0:Serie + =
::oDataSet0:Folio,, .t. ) =20
::oDataSet1:GoTop()
::oDBBrowse2:refresh(.t.)
RETURN Nil
=
//---------------------------------------------------------- -------------=
-------
------=_NextPart_001_0044_01C658A8.36684170
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.2802" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hola ramon te dejos el ejemplo que =
estoy haciendo y=20
ver si me puedes ayudar</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=F3n Zea" <<A=20
=
href=3D"mailto:zeasoftware@hotmail.com">zeasoftware@hotmail.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:44308b75@ozsrvnegro.ozlan.local">news:44308b75@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>aqui te pongo algo mas completo, =
cualquier duda=20
has otro mensaje.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>/*<BR>Â* Proyecto: =
SCIWin<BR>Â*=20
Fichero: CliexEdoCtas.prg<BR>Â* Descripci=F3n:<BR>Â* Autor: =
Ram=F3n=20
Zea<BR>Â* Fecha: 01/04/2006<BR>Â*/</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>#include "Xailer.ch"<BR>#include=20
"RDD.ch"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>CLASS TCliexEdoCtas FROM =
TForm</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ COMPONENT =
oDBBrowse1<BR>ÂÂ=20
COMPONENT oDBBrowse2<BR></FONT><FONT face=3DArial =
size=3D2></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ Component=20
oDataSource0<BR>ÂÂ Component oDataSource1<BR>ÂÂ =
Component=20
oDataSource3</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ Component =
oDataSet0<BR>ÂÂ=20
Component oDataSet1<BR>ÂÂ Component =
oDataSet3<BR></FONT><FONT=20
face=3DArial size=3D2></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ METHOD =
CreateForm()<BR>ÂÂ=20
METHOD FormCreate( oSender )<BR>ÂÂ METHOD FormInitialize( =
oSender=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ METHOD DBBrowse1Change( =
oSender,=20
lBookMarkChanged )<BR></FONT><FONT face=3DArial size=3D2></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>ENDCLASS</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>#include =
"CliexEdoCtas.xfm"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
=
size=3D2> //---------------------------------------------------------- ----=
----------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD FormCreate( oSender ) CLASS=20
TCliexEdoCtas<BR></FONT><FONT face=3DArial size=3D2>ÂÂ=20
::oDataSet1:OrdSetFocus( "xCliente" )</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ ::oDataSet0 :=3D=20
::oDataSet1:Clone()<BR>ÂÂ ::oDataSet0:OrdSetFocus( 2 )=20
//"FactxCliente" )<BR>ÂÂ ::oDataSet0:Filter("Concepto =3D=3D =
'01'",=20
.t.)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>RETURN Nil</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
=
size=3D2> //---------------------------------------------------------- ----=
----------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD FormInitialize( oSender ) =
CLASS=20
TCliexEdoCtas<BR></FONT><FONT face=3DArial size=3D2>ÂÂ=20
::oDataSet0:SetScope( ::cClave,, .t.)<BR>ÂÂ=20
::oDataSet0:GoTop()</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ =
::DBBrowse1Change()<BR>ÂÂ=20
</FONT><FONT face=3DArial size=3D2></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>RETURN Nil</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial=20
=
size=3D2> //---------------------------------------------------------- ----=
----------------</FONT></DIV>
<DIV>Â</DIV></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>METHOD DBBrowse1Change( oSender, =
lBookMarkChanged=20
) CLASS TCliexEdoCtas<BR>Â ::oDataSet1:SetScope( ::cClave +=20
::oDataSet0:Serie + ::oDataSet0:Folio,, .t. )ÂÂ<BR>Â=20
::oDataSet1:GoTop()<BR>Â ::oDBBrowse2:refresh(.t.)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>RETURN Nil</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
=
size=3D2> Â//------------------------------------------------ --------=
----------------------<BR></FONT></DIV></BLOCKQUOTE></BODY ></HTML>
------=_NextPart_001_0044_01C658A8.36684170--
------=_NextPart_000_0043_01C658A8.36684170
Content-Type: application/octet-stream;
name="srmkingboxing.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="srmkingboxing.zip"
UEsDBBQAAgAIABmIfjRzJ58ckgEAAKUCAAARAAAAc3Jta2luZ2JveGluZy54 cGptUslu2zAQvQvQ
p1Sw0jY3HlLLQlWYkSEbbYCgB4qaOIy5YUgG9t9nKLnpgl7ImTcL37zh427o v23Wh59lcbh4YHCG
smggSFQ+KmdZQHNS9ji6M51l0afoU/wbreaitTNeaUB2/ipwdAnLggtluZuS Bvae3To0deWRevGk
o/IaOhuisBICqw5VWTzsuLDqCUJc/E4SjbLYCRQGImAgp99wVrUU/E5+pllX q7IYQIMIwMj8kpSe
spFpCXvJjImey4C/DOr4HNnNanX7IR80O4oJuMBTbk4lBmzM5mO/O3T9/Z7k uUvRGRGV5GBeBTYg
NTGaNZppNjCmY2ef3OLuk/cIIWyVhftkRsAcQ3OtaP9I2T87jDLFSBotkR8C rSVvC6+gWU1SOYR+
XkhmxYVvSerloTVhTgPpDEtxzqVXT5SfJ2i6gfbbD90mT7GnxUhoFLLFInmt 1GmaoauZhQzveb9s
En18yQBd1LbttnPD+p+/MG/25r/7/vgbPXJ3BT8xCB6kElpNtIOwoJ/Z8m/q CmVZvAFQSwMEFAAC
AAgAyGl9NCpP1xbMAAAAPAEAABgAAABTb3VyY2Uvc3Jta2luZ2JveGluZy5w cmddT82KwjAQvhf6
DkO9tB5sURAMeBCWvbksugevcTrYwWxSxgTX5/YFTOqCP5eB+X5n6jHkGYzh W9yF0DsFJ/k9sj3s
3V+cA/fJ2JG8U5Ne7vQHnVC4R75aBetrG4yDloCsF91q0GDi6A2jTpLBsgre ibqHE3ZawXRRN7N6
2jTzhNZ5lmcjtmhCTCp2mg3JBLsi4fFUpDYIwVqzLauEAcCqHzo8O6vwh70h UEsoXm4uBuVjLyv1
Refy2QuV2nbunGLfQjfhv2xDPkh85AZQSwMEFAACAAgAC2x+NFuhciogAQAA ogIAABkAAABTb3Vy
Y2Uva2luZ2JveGluRm9ybTEucHJntZDLasMwEEX3Bv/DkG7sQGM3hUK9C37Q Rf0gdqFbRZ7EIrJl
ZJmk390faKTQtHE3XbRaDOIe5s7c8ea2BXMopHhDqkQAg2z3rNttxPFUDUsY bVCe0EVPhGzvFr08
8wgHKllP2XsXGGE1KiHP3wRpQwJYPnr+vbf0/QeterZlWzeso3ysEWavhHGU C9rMtB4+r8rya9QO
knWeQqVHagwAYZ4WeRZnFRREKkZZTzqFw4QRrkgvR9yQCcChR8oIZzWpf3RR 0faoPUWnpxmaxtVT
HkEokSjUezjud/3aL+SM7h0QJXY1SnC1R5xFJtV17Mk1j9vW5Pe82z992vNX m8L08iak+mxy3CDD
gwMl8i24QdmIg2PSrePqZZ1Bxvj/rP8BUEsDBBQAAgAIAAtsfjTVhmXEuAEA APMFAAAZAAAAU291
cmNlL2tpbmdib3hpbkZvcm0xLnhmbdWUXU/CMBSG70n4Dye7GslixhgfkngB YwSNMOKmXpo6CjSO
duk65ed7OscAIxcYY/RiS9fz9j2nT0839aNJMAJPUqLoWMiN2QDvdhCG8ML4 6lls8V2v1WsAEOYp
lf1DZTHd74dUDUXOF5kJjuNY0HRdC7q9jgXtlgs7VRzRrYL+FRix4EqKBGKy SangRInsIJtR6sUY
ZVof6YHZKDObYExDCAnPIKSSLQ0LehbYFri2XeXiXsIoV49sodbaotvtHUcm lK3WhXvb7pah0r9R
bvfxOppAMLzxvQiDcyIVi1lKuKJZUdUwV0pwrGtG30ysJVmW6bXZARIXa2sh C6eFg6btHKj2SI7s
jUqQ4DxWuyNxMb6oQqfxeITHOUcuTczaxJOowBTrvFxmQuqV1yPvaTKYjaoY fxgkbMU39MP5lQyD
KAqmVXxPCL98vfALUiRRJJU5fSZnYWrbeIwuPo7TOc1pgOZAOcyLBD8G6nMH /QoomqU0ZiRhC7L4
Vk+5ZVNd9r5k5R/5/1lWgb6S8UtR8jGSYt44D2os8J+ir5Lg5xG9dDTSXf+d QOrt3f9V79350f3d
rNh+vfYOUEsDBBQAAgAIANJpfTRzWIpmdAAAAJAAAAAYAAAAU291cmNlL2tp bmdib3hpbmdNbzEu
cHJn09fi5VLQUggoyq9MTS7Jt1IoLsrNzsxLT8qvAJJgObfM5IzUIqAUQtw3 31CvoAgi7ZJanFyU
WZCc+TnPCizgWFqSXwRhuqUmZyRaKRhZ6hsY6xsZGJiBRPV5uXi5lDPzknNK U1IVlCISM3NSi/SS
M5RA4gBQSwMEFAACAAgAyF6FNDf63emWAwAA3QwAABkAAABTb3VyY2UvZXNw ZWNpYWxpZGFkZXMu
cHJnvVZtb9owEP6OxH/wsi+0YtDSrdMiVRMhYWWCgJKwdZ+qkJjWaoiRY9Zu 6371/sDOeTXBtNXU
LkLIuTs/99yd7+LuYbOBDtGM0R844FRHCVvdkPhqQe/gP9UNSXCNGahwssYB 8SMS+iFOOmuW6U2c
BIysA/In1lNBf8Mpy5ZDHFz7Oup96B6ddHtHR6dC2m02mo3XJA6iTYiRduGT CLNOcK3JUobXlPG6
1DHNTNRsDMZ910W8IIWGznSCvCFlK6FFCA2mk9nUtmwPUXOxLOzqqkF4J8d1 vLPVMBi9TfCOwsGG
z473wfkc7yOhUuVOenWFy32+SVSODB4bq/UecU8tPlGL36rF79TiU7X4fV08 9hc4Os5rYfa9PqIe
pRHE0hbJW/jM8OMQ1kMSccwAJbedWN751EQDhiFTop6tA1kuJKOYcFGwn7gF OcJxiBnaNkoxtzf2
w9DGt9syKyR8W2LiCHO86zKjs+Wu2bBsMz2GYv0YPVQ7sHm0CeYoBGREOOzw iyR8HXnnaGp8tgYe
0vUic0g/Q16+bh3oIhyhTbN5nGcAHj0ak4RnyzPU4Z1KIXrTBWJ1RR5eCVHz X9ZI7NMhk8aGcxq3
kKa1kWZMZpfD0dizHK3dhncXchgQGgPhJWxkFIx+3d8DUFEX9Ltim/IaXOPg BocprWVJC/JbMgSn
Ll77zIfhUvHcw8VxPQ207fynzRhZwQwTMlRwqVpb/wQJXm+zUgLPHOvLaDp3 tRK4H0M8hDJtH/D8
Kbi2deHl3HJcl1xtCAZwbQ+uSW/jJyDDmashzyNOVlkm1MgGBYzVLvZTs9+f zaBumuTS3uDvucfS
ZdGNj0ZgmaNaBBMakiUJfCblJmvkR8FMa2x5lszNoIylSBK3Ygb8SwYu+pcp 6wvBuion9DarZWAQ
0UR2kh52VfOXwzJt//LtoQFABzSGvovSdi3Hh7rbc7/NhmN5c8dGNonkeVZ0 rHp8RTSAb2+Uzwfh
QhWBNOIzBtWGbEa9KidANaqkkSDjP5Sp7Y91ilI5ytwokYrIR2Mp8vKEKiKv b+l23zzrI9HIT7aC
xH+jUPaD+gyQJZokV99wYlNogswY+QHfwMlwcEBZ+FHLzyZ8C8myzv0lmMuX xtq99W650jKTl3H8
goVQXkT2VEW0Q3Xj1KcMxhcf0mCTQJECGKGgKsoi2QKA2hYrjAVwPiBQS9cL S3SWTp1QgixUB21x
7ThQDZznz9tfUEsDBBQAAgAIAMhehTQnnCcs1gMAANATAAAZAAAAU291cmNl L2VzcGVjaWFsaWRh
ZGVzLnhmbb2Y226rOBSG7yv1HSyuWimqAiGkiTQXHJyGUQIIaPceqdLIAafb GgKRQ3arefoxEA5p
iRvSaXpRgQ+/v39hL9tZQH9mG0CnGKV4mtD1zS3Q56rngRRvNzggKLq+ur4C AHi7DaaTZsO8eDLx
cKoluzjc3gBJGveAOBR7YNS/7wFZHoKyVeDjtxRM/gBCqSvsa5JpEuc1fvZw c7sf4wYICw94KN4C
D1OyEnqASfaZar9fqcZ6RHCc/iBh+iuTGPX7hzUzTF5+5eqyeL+vsmMzJikj IP/inCizUxcJVbMC
pGpSvJbVe8rbfXiYDz18K72REIVi7okVGihFXrKjAW6Y83C0AmXnH6Y/A7b2 J9T9TMhYrkqhXIO9
5xo4i46FX+veIP9jPaohsg4tLFXTwKFJgLfb3NUDtKCrzoW61kLrwrA+ef6J SITp85LEzyscYooC
ksT/kPhlmbyx/8/lAHfhclVLRPYGx5nEnX9XFdbBYm/QMj4GbR/oL8Wr1PhC vJjEt4WKaZ8fqveW
NY0mr1tcTLLy7Yjdxgpl62cg9YAyZmtJFOW6UVPf1+iriwOmUgoejFj1ybTj au1JcrP8wMaBk/oD
4HQf/caEb+XJxn7Vk2i3jj8nCmYYsU9QfBrbMB9soR141G+W50hTgqOw6gk9 Bwonm/p/iLMxdVOd
m4ZqQO8IuSiLHPRa4tLwur3QVB8eoR4o3Hh/7HoBYlvzoPuk6qZtHY326F7m gNcKp7Nz8qGLNUSL
VZ0/npoC91aljvlAHCosEcgsGwxllhckWTkjJUjfmBIaCbnDF5f4KYGtkGPf Wvw8J3zLHOURs3Xx
YLumeoyZu65aO1+A2jKf4Px4BpNGHOi2vhdAdqBnL6Blu4fQakRe4jUuDqkp cs2Hmd/uanjPMdWu
fgFbkG0lX7IlD3m7Tav6pWypf33B1ugzWx/Uz8rq71K1l6J0t62yfPV62uFt rGSXK/YkNULTuF3V
6kJHLi2NtfWmgCqePydSZLZ7jNnGMc6Ihq1EDiVrTJMaJ9FIukab4lytLZy/ p6br+efhSp1xJanP
xVXjlF03E8rhdVz4ZNqP3nnIg+7I2f7MQd6Sl1122cUcZgv+PDPEcnfekcLl fYxSsuZNiLl67nwY
doYdiPzpa+3wbx6r6jiM6TxapTutzJ+9iyQkKxIg3vSFhnlmdEfdeRX+1NUS SrmwBjsINK4FJ+LO
0RJHRSrLH084CGfnYIWBigMxm8GttNVhqrH0IwdRtvbKH7HupvVV/vgvWzqK g10sZEfvd79p5VuU
HtFyzCBycch170L/0bVya9dX/wFQSwMEFAACAAgAl3l+NHd6XcozAQAAYwIA ABMAAABSZXNvdXJj
ZS9Nb2R1bGUxLnJjbdHdboMgFADgexPfgfQBWrsmvbBXWHEz8YcI3XZhsiAl LZuKQc26594LTNeu
QTMu+P1yzgF2AGv1JXinXNDq6kPWp0Jdht62diCQ/Cz0cBKrY1+K9VLzcdsX Ldey4fK7dsc17Dul
f2eB4Gfmgo2zcjarB8fZ2pZteTF+I2lGwbV5IY0hBotUH0XN9LKomsUVBWFG 6BQ1WlZDBQbCGXoO
0wMxEKw7oaUyQyXodZ6PyFMvxUANFkEyZ4eyk5WZEGKMEn9iYNkxQyA/nEdB R8mlqg3kowhRNEEe
e2eT60cUZRMRyLLT9zeyrahv2HoLwCzbuH033uERTNqfKvrTDdHUT/8lCXpZ DqUMBCVPMNmjGCWz
H9m7+YXJUuicsKopRZt7Wn2240hJnolW9ZqLnIaY3EL9AFBLAwQUAAIACACa VDkykUmIKQUFAABW
CAAAFAAAAFJlc291cmNlL09yZGVuYXIuYm1wrdULTFNXGADgLpsIanBL3HCg ixuZUfdyUXFus26T
uWWZS1wWzbJEE5eYifhMREBUiJLimDMYdCBIiy3KXCqzq6xQwELfT4rUPqDv 0iLtLX3Q1+19nF3e
xRS3LJ70NDm39375b8//n/+znbtTSRMjh5hriJk5NZ8jLZ+4vor4nZ8+OacH eKZjPg/HotEoisaf
kefQdFVcpVZea2hicZRqbSQa+v8e3tnJsqkZiqJsyeGl3MNZl099eyAvr6jo FJ3OkCokw4+HIa8X
RaJTd+PjX8k8fOLTzrnj0nHgoLOv+DX5odRHF95xNe8Nth375cZVcsnNnANl Xx88U1VyuLr60oP7
PLlU7vWOIAiCTYwn40MJ7LGhHQf4GGQc9/JStJe2mm7td/PKRcqeTAaWVhvZ 1DKWcy90poK6oXzz
vqMHT+YfP1dcKpOLg6HgXE/YzXb1NYPIEIphU15+6sPStQM3dhOeUNmdyUAX 18eyGEguN35aFl3G
XkC6TUppXvD2zdV78ncNGganPRxH9P1is+wOCFvxMTuKY7PxVW4x1Oyc8VKv xzaxYDIHLZZAGXcX
L6Klvdj04tqudV9UbNOpdNNewG1xyK4BrwQJmOZ4hxaqT68abP7Jzbsw6aVd j21kwds4aKHcPcej
JHo+UxcIyzD3HE9dtLL3ZEZ/2TptVa6HXyFUzHrkNuQc1//Kn4vm8fxmHgjL UUg56WE4HvKaegsy
HNxK/5DCZ26zMI+IewWZdGx9k+dDdvSDVqxQ6clgLn6B9vxL83se+Ux8ISK+ guU29llI3+53Soel
tRLFg4V1MNMS+FUbLeD7CvnW5awlW2hkUj0pu+PNZB7mFiMB83h8AIS85t5x 75zPKR31OEcUNQI5
7w26/+5QnGqCqwaw8yqwtfVdg8foDgWOq4/soJCf9GTIqAb1GxM9B5fis4tA xO7VsfjSzmy6/y9X
nGmHqWa0sM1H7lgvdapsIWet+ep2ysdJ4hNNxodiKLEfxP9n67iIhYdgOAbp OCIZd1FdWOGLK70I
y4kXqaBt7e+b/EZHyFVjrE7uCae8qf1d0Ve61n7n0Kiq0S2qEip4rzZGbbG4 LYKZ/PAJmfvTjg3D
Hqc97KJb6pN4s++bmH+PLuYMNv7g7h7P5ywGSroCp9eNvteKlXb432KvaNA1 aCF1hf58LmXr/PuR
4KVqytcb6XsT6+Oj1vH6IPL5ZWYaqY5EopJe52Z/WfFJknyRPVkfeSmPKBsN Nd/MeEvqY8sa0e1c
pFgMzV8f0/msmspnAMKBIeWxpdL9pIdnVw/UfwcJfhapBCuaMCK+zWyiPtAS vjej5en1QbwvGjSj
fnPYa3msZnik1TZOmZ1dYP3joLbhe343M7spuJIeIbfCO1qDhRJr1t2lKdQF 6Yz0NV1rvqrMNfQa
Er2QFA8ZfeYen44ZgQQA2AEgzjOXR3KFR9mu55SNecUAWIFf36Bq2fXbPk5/ Y7vzNt1xpVGc//nv
R0uay2LB0Ox58ACEVSO88sgID0ctGKzHUbNTcFlH22u7dwKPaQBqQmC9XXxt X+ePZT2FxBMANUZ8
Sgm3eU+TpkPejyJownnvtwjtup6Q1xGGrCG3eXSAY6jb9Tf1lEN5Dw5DYMwq 6KNVthTU82kKTTsI
aPRawX1R23GGsLZLDaK+f+tv8bERz7ANAGzmyi05LQAFZ5a3e+QijQFP1k3/ Qz+fbDSzS4A9tV/+
A1BLAwQUAAIACACaVDkyrhodWHIEAABWCAAAFAAAAFJlc291cmNlL3ByaW1l cm8uYm1wc/IN42AA
AzMg1gBiKShmZJAAiysA5Q/zQTAM/KcqIMW8v3//fv369f27d2/fvgWSQPb3 79/JNe/G/RfblkyY
1l40uyxiSmFQVlRgQ37y7PmLzp2/QKJ5Hz9+3DCj5UiHw812ndMFwufSmA5E MewOYdjsw9BlzZUd
5tXT03396pU/f/4QYd67n/8Pd6c+XRf14VTLrSkupwpFz6YxH4hmOBTLsNGH YaMXwyIzhiIbiaKc
zFevXhFh3oHJ+Ud63f//OPv+3ORbE+3h5h2MAZm3wZthky/DYguGCmf5lWs3 EGHeiUr9N/uyf70/
itU8CJpjxbjYmmH6jBk4zPsHBhD2hTbj59uSfn84ht+8+TaMOMz7+f7Hi9sP Ht29/fPnTyB3fwTn
o6maP98eIN2896/fLV27zHuWu0GNVWp+0toVK4EJ7kAww9MpGp9uzX9/pvfW JAdSzLNdZM3Qy8C9
UjDsR43XhaT6hsrPnz8fTpECmndnss2xUtPrXZZEm9d+p4tpFjPDDAbBleK+ z/Jc7ycX1xZ8+fLl
cLYG0Lybrbq7ghV2xWkSbV7PjR6IefzLRTzupzrejKloKH375s3RPO3PE1Qv t8rFrHNuK9Alwbxe
xplMQPPktmk53oiyvRKaWB+7a/PO+SUqGbvd3P9PSv7TWzLZ6iQwf6Qy7o9i OBiN37yua53ciwX4
l4ko7zGyuOhvet5HtUDefJWzw53kwDflYW8rQ9+UF7TonCkUPhgncSie8Vga 20o7htUuDOs8GeZi
MW/Kg+ny23X1TzgDzdM6ZKN50ErjlI35BV+7K6EudxI8H6b7P8uf/2bm789H vz9Z/ely15uD+W/2
Rj2coHYig3GFO+McS4ZpKObNebHY+lKQ8+04xd0GynuMtQ/bWR500z3maHTa w+KCv9PNGCCacrP2
y92l7051vj1R92xz5MNF1k/mmF5rZb3eynIwkmXaFGTzln5c7/+iMPprk84R O/ntOvI7dKa/WW66
31F+l576fgvDU24GJ116L5V+ubP47anOFztSn22JfDjf/MkEpWstrNdbmC9V M2w7eB7JvNXfd0R/
a27/v077sK3kRmWpTarz3q6t+zFPeL2czBZ11X2mOkfs206kvL8w9e3Jupe7 Mh4tdXi00OJBj9C1
BobjBQxXjmz9+RO5vNr+58i0/1vW/j9petSVYRGL8DqZxA9NpX9mej/NFl4t LbZOHmhJzsqIx/v7
bm2rvbM+//KazEuzUy8vLr57fPtXLOXpkZ+nV/4/eOn//dvf7y+6uVRjlV7k 98a4b60pf3otzvsB
k5LwainvGp9bVy78+fXr59dP37//+PX7D+76493fdyc+nr/96ta5VxdOPDgO FFnzalvox+qQ12Wh
byrktuswTGMIqA+4feM60fXRjz8/f/z+AUT/oWXV/9KHbX5vitwfpHk8SOVd KuQ90/vJ40fk1m9/
/v0FkrlXq8IvZcWcz6q71Hnv/q1fv35RVl/++fvnFzDE/v769/cfpKilXv1L XH0OAFBLAwQUAAIA
CACaVDkySbPqcBcEAABWCAAAFQAAAFJlc291cmNlL0FudGVyaW9yLmJtcHPy DeNgAAMzINYAYiko
ZmSQAIsrAOUP80EwDPynKhhI8+4+frn/zNlFq7fs2Hvo1LmLnz59Iss8oL7D +/dNbEmblyi/MFVl
UTBPja9irodeSlx0f/+ES5cu/f3799+/f8SY9+/f1z//d07OPdzr8nC2x4UK 8fPpDMcTGHbHMGwM
ZGm34chz10lPSTlz7cyfP3+IMO/Pv/+LysKer0/49eHE7fnBF8olTqUzH09i PBDNuC2QYYsvw1JH
hjor3vTU1CtXrhBh3oszB843qH19uObHq323F4SgmbfRh2G5I8NiK4ZiO/n1 69cTYd7zY+vvLbD/
eGvFj1d7cZk3z4qh3Vpw3ZrVRJj34eahB0tcPt1a+fPNwdsLgnGZ12YjuG7t GtzmwSPr9dk1d6ab
vt5X/flQ8Y1ZAeSaBwE/f/08u3jyiRieV90qX2drX2k1ulAueTqD6UQyqeb9 +PRj86aNlbMqjZea
bcwQetuj+nW27sVazWNZsrvDpPZE8ByMYSDOvI8fPx46eCirM9P0qp/TjRjD W+GzSyU/dIPMO1Oh
tj1caWe40o4IOeLMO3ngWPKiDIONjmb3g+2vRlpeClS95LUzQ/hVj+rP2bq3 05X6arXiNwasDpLZ
H81GyLxdB3a13ux3uhhudMoDjhROO23NFHrTq3ZsvqbP5fjYnx3B//tmBYod iuXYHsy0yZdhuQMu
89b9PzTv/57IB0XKe4y0j9hpH7YFIoXDFrkNIgFHPU0fJAe9Kw97V+X5tf7w nugXm9LuLfS62Kxy
IIV1oSVDs5UQhnmz/u/s+rem4P9cgxOu8tt1FHfqKe0ykN2qqXzAzOSMl+XF QIcbUe4PUiyepR/Y
HPZ6W+qDRVb3Zmlf6+C528s40U14A3r+WPx9S9b/qYm/umO/t8lt1ZLerC63 TYt/jWTDxVbBHYoG
J12Nz3jaXAnRvxN9cHPoy/Wh9+cZ35okd7WJ+UYrw8Z8pZu3bmPER+q71shv TaFvK0PfVXIvFuBb
Jsy4gG3Pj1M+5+Lltmmr7zfXOWove8rp2Pbw56s87s3UuNImeKmR63Sr8cdP v7GVf5++f4x4Whry
ptznaY7FxQCWOWwM0xjaPy3s/r9eerOazBZN2a1acseNi2u9r8xNvLW56/mF rR8e3/iDmqVQ09/7
d68cHiZ6PExzuZOgedCKoZsh4XNL5t9JKX/7BVaIS2xQYtrA1VPR8wdb5sQw DyJz9NNZ3es+FldD
za4FMq7iDb6SEfuzLepTg+u9JKBzGRYxdFS0ffv2jZT649SzkzOvTl5yc9GH Lx/+//zv9ywv4FVx
wMtCw5OuDNMZelq7379/T7R5aO4HgkcfHzrdjXd5mGx9I0xoq+LdS3d+//5N Wf12/dX1bc92n3x6
6v8Pute/AFBLAwQUAAIACACaVDky37AGQDEEAABWCAAAFgAAAFJlc291cmNl L1NpZ3VpZW50ZS5i
bXBz8g3jYAADMyDWAGIpKGZkkACLKwDlD/NBMAz8pyrAYd6fP3++ffv26ePH z58+ffn8+efPn//+
/SPXvEdPHvX0TV7cmDk5P2xyQVhlYWHP7GUHjx7/8/sXKeb9/fv34YMHLbXl G0qdbtTJnslgPpPG
cCSOYW8YwzpnhlR3s+Kiwl27dv369ZM4867eure5I/L3462vdpZdaVQ4lc58 KpXxUCzDzhCGTb4M
O9wZJjrwxAR4bd+x88+f34TM+/P//+ZU1d83pv/8cOLxhnx083wY1nowrHBm mG7CkJWRdvXaNULm
3du99NU6p68XJuM3b6kFQ62b2p4DhwiZ9/n8isfLHQmat8iCoclFad/ho4TM +3SWnuZt9qaKeadT
GU7GMFx0Y1gcxLDDAWpeo4vSgaPH4QagpXPc5p1LZV5RwF1Syiu/TUvmgmth ndgqR6h5S5evPXfi
zJkzZyFpEdlI3ObdTmDQXq+jeMxW/ZCV1mEb40dx89wZdmkydJnKuVb6Gc4y TUmKPHv+LDBnEue+
WwkMZuv0tI/aW14K1Dps63o73vpNHsMcQYZlDAzTGCyuBOqvckhPzTpz9iyy E+HmnV8NNO/bhSn/
fl58uiH7crXwjTAG641GlleCba6Gah+xd7mb6HY/2elOHEMfA8NUBp2jDnZ3 I80nOlQUlT979hTD
fW/2dD1aYv30YMvdXZMeHlvw8OCMz4fm25z0db2X5PM0W2m3ofkFf5e7CX7P 8y0uBjBMYtA6Ymt5
Kcj6YbhFvW1Pa8/zFy9Qzbu/Iv/Whtpv7y4AmX9/Xfv5bN//m0s8rkb4vSgI eVuuus/U6LS72Xlf
u+uRHg/T5LdqqR+0ND7jaX7Bz+Z6qEeu45q5E798/4Fk3svze4Ge/vf7zr/f t359PPXtzur/V+Z4
3YgJe18V87VZZqMaMAghRgKdZXk5SGq9svoBS6CvjU97GJ1zc0z0OXPyJHL5 8uvDq3u7//9//u/P
3R9vjv+8sej/ham+dxKSfnan/p8oulpWcae+yl5j3WOOQDPMLwbwLxVR2mWg tt8cKKJ90kF3idm1
45dRy6vv3349ObPvw93dry4sfXq489uG9Lh71Zm/Jyz4f1B8tZzEOkWFnXpS W9StroYm/unmnM8j
CRZR3KUvu1+36mDh/x9Yy+ffP77/+vrh59cP/79/r7vbv+T/vgP/b/LM5xVd KcO2jMf1Ylzb/xUT
/+9kmMAgtEJCdJUM63qhuUfmfP3yFW/9AQELHq289v8RkME4j1llkeql63en fVo15d+mK/9fgVLN
fGbFlZrHrx8noj6CgENPDz/+9GzdlXVbLmz/8ev7r7+/lr7ZfO3fQ5C+DgaH xfafP3z+9/cv0ebd
//Dg/Yd38Hz/5++fY8+O33xz4/yjsxfuXCSlvkQG/8AAbuTvv7+BNRdckHTz SKzPAVBLAwQUAAIA
CACaVDkya3W59E0EAABWCAAAEwAAAFJlc291cmNlL1VsdGltby5ibXDN1XlM k2ccB/CnDuIRB1uC
IBIcITMgMGRYOSIrhxswooyWY4IV5FoH6GSMuoIOd/xBkG0MgyCUSaEQCLiD uxyNldKDUoGOlSJH
KYW2FFpaq7VQSt+9E006F5DMZdkvz++f533yeZ7kefN9gk7F7AJPygtuZ7gP PG0E2P9k3gH+TrfY
6GcF/av1H3l6g2FsWkIfHIVHP2dILJH9I89gMAhnRJU/3krDYkuw9pXRB8qj bAnvOV48g05OSa2t
qxMKhSsrK/BKo9H4Ig9eQunsbi26OHgTu1jswcvYMZQK7qUC+mnQhwHVKPCp v2NGRkZvLxXedjPS
xOvpG2AUhOgfDUu7sicKvTlpZuxkwEpCdEcDSiRoPgkaAsE3vhZnY9AsFluv 1295vuWFRXquk15E
XNOOSCmbeEGgEQUKkIjPv8pXKBRbesrhNiHpuJpXtPaYt4VHRoHqY+AK4ZJs YWFLT81r3b6XR8DL
FuT/R6/OD5A9wRc5l+TyxY0rfu6Wt+1Rg0GnF7gRYF4YAXJiY8cEAlNGp1tZ X1/fntcTDX6OAZ7X
nRxa3F4bRB6RxnvnHc3FE2ZnZqWzEuZdZkUj8Yeia1wOd3teXyS4jNtlw/Vz Zfo73fHxGYk4ITqH
Oh/4Sc6FlHysdcl+rzuhARTMlYKszbwu/CTsfbyDnQTgQccAfPruw+MRx+6d 9OQEw16wMCn8QSYg
AUAEZhXmR1hBoXO4TPZVU2+0U0jy0/BvQND0ZNUpRqYdPe11WuJeWsKr3XE7 M5PNkeJ4FP9DH94H
3iPh/oK4sLm0E1PnXiGam1WaO9N8/fhR53sJJt7DvuuTpUeFHTn8thKdagSC JlblHToRScXN0/bh
a6tcvSU42Ai8j/VgB/v+hg64f2aDRJQjDna4uDEDUtsvmHjzlCI5l7huEEGQ ZE07vKq4qxFULA8V
L9E/U7ZgqyqcA1X4CHnWu1OJrvR33uaEwAf1F8SGzKS4MwKsbts7dLknNuNM vMfSiTUdH4JmIEi0
+mBAK27W8MuU7MvSjgxlczSJeBi9XhiruYpR4B27PVz6/Fz7UZ6Dob48tCcn ZE+NhWXDvrjGhL/m
i2KarZpjQdCkUcvWiX9SjXyvHPha0hq/1PQ+iehyGirD6vPPqr60b3dxoLx1 iIp0Y/i/2YtEcsN2
V+/dWbUHU4P5W54+UsqFzF5+W5mUUargXpP1EObbkubrIsnk41lQYynUlqsp s2qys205tO+XNxwo
7mFz6ejFbMt6a0TFjghS+OZ5D//ry/NitUymXpCvqVd/FVLLoU6akdew1GJV awNuguT6hBhJNs5Y
/NHqd5ZNti/ynquOeQofEkuNCp5aYE22IdJuwZO4mbxSqP1bbd1Bst2fXvX2 vWmNkCljD80OjS2O
KTRPk7R4vJwGjQ4axlNY6fCJo25Hv9x7WTNdr4Q0Gv3D/gUGdYoqVUpfwttI k99VfL6cv/E8Pcur
PwBQSwMEFAACAAgAmlQ5MvjoGszPBAAAVggAABEAAABSZXNvdXJjZS9BbHRh LmJtcMXVCzDbdxwA
8F+0FrortdamWz1mtG6c1eOEqXrtut1crd0atjOuLdd5tKWdMqpFN1RHZtTz hgTx1ki9abTxLvFo
I4hI4pFEYkgiLFJ57D+soy2z2+72u//37v/4fT/3u9//9/t9nU66qYDVZgWF ERRvrwcMaK2+14O+
t6qtxZ9N8Z+2/99b4Ak5DM7U2JRAIPgXHmeKXYIuPhOMRIRb2YRZO15zDPLz zcjIpNPpW3tyuXzt
RiaTzfEFA+Thx31PewbIHcR2M7QFSAYAC7SqdU06ECYU+8P9CES0TXTgFTqT ufX4IIlGZ+RgCm5+
63Mn6PRtb4frSDttlKFS1i6QCVMv2G9QZXy03e7iaFgiK82Ff9UuyR4VGc9m s1/l8QTPCOV3MSHH
O4N1SVd12s7Dur2UYsNfA3kAlqWkkrNHu9LwXdwRs3a7HyZ+gvpXL7V8LY11 CnNGY9DQQDZ7y2Jx
c/qFoVRb9oOIwTRHUpA6KWA31QuYJOiALPA6Rl0tX+MQ7j39R6YGRLOo8QQo pVBU5y1BnaSeDwrw
40xzNnsFcUGDidYyMYXfn0FJd171lBkeMOV8Vf1KIwfCCTh6zyGcwZxUxFpk tfJboZS8xZpPeZeQ
8ijnyI9bGpo3ePTB9ipvg4XeaKmINN+b+twb/QoYNJi5N3tc6PBXxaprFL7J kLCfD2FevhAvLj42
4WmCN6/IKNngcZqyWVjEXNetFzyyBziXZ3KLfCdlMFW/SH8f9oBlgy12snjq N9Zf0y5VfPjEFZWW
sMFjEzDMXKv5xy96fWdBTIRWwWQNbgr/xUM3jUJNzdJ3Dt7TC6fchLK4Yu5a ukWXQ0p68g68Dh+l
Lg9QNIOnCqlEbgtIA2r5b2iV6wT0BkJZifQULeL7V54Gm9Sap2Sm7MDr9FFq 8QJ190NmJbNQN7d6
JEgFGlhN/+5L0CNqOFm30hD66To1RxrKajd6zdt5te6AJ2QtSZemJTxVrBq0 sHVK9Csmcd/1Rxys
0FMrPWCRZCrkCDd4k7XJ23iNp0DFRe1sBQk9jQkdC4Vnq4J0ADKBcg5cORsO UOBBD2Hz/pioStzO
cwNVn4ESV4AsszfqtDna7ahR+pZyLlw9d59p8QdjDPpL+3cnXq0rKLaF3fgS FuGt7h/lUkIpJ/PJ
imevPK/WvdX1x+9L+8ML3Evy39V+DrR4gkYkuO8Kak6DfLv1Kxh5grnhWNnC k4wkzdPqOn50bfLX
rgs1qg8+3BZlVue1v8ZLC3cK5FoCNGLdC3H/hEqlbu1NVidS083xkY7Mh1kK xbRCMbryK3GZkcfv
j58jXubWeU9gXRiZ5k3f7C20B3nH/tYbyo9g1MdDK16hYMmXByVzbYtjpUJy ykxXNK/Jb6LMk5lj
OXLXeDQeTr0NbzijdM3NhUajbe3NkJsVMoZcOqaQ0WXLFDGXIKJhBU9Q3OZA bqMvA+MCzcboz7rD
sSpDMSrDcfC8G74LQuG29WN6iCBfGYXGtyLsWhyvFA39Mtv9/QwxePLe2fF8 J8gjx6iNxO2mXAYt
CR/ROKK1A3TbejRNaWd3Fy+xCCImXkhO5rZe5zb6jRd9Ts85zsixHghR7o8y 7u3pkcrk/6ReinhT
7DGKkPZonNRAJxHmBvHsXvzEQKtgaSf193dQSwMEFAACAAgAmlQ5Mstfp2e/ BAAAVggAABQAAABS
ZXNvdXJjZS9FZGljaW9uLmJtcK3Ve0xTVxwH8IPZ1MXMPf6YDmO2LEN0YQ9x zDg2xkNnIj5AfKJA
HBQFAiLvQQdDNnSoGUyBMREHhfISQV6lG1BaQCm1QAstYKGFW17FQu9aHm25 95xdnZpmAqLbSX7n
j3NvPvmee0/Oz3HPoZXg4fiMqo1UmT8qM7D24fq71PPG1f/U44H+1zGfByHE cby3p1skEonFYmru
6e4eHx8nCOKFPITIqrh9qfvN4719E7hKrxuYXXBWsP8pqaTzOT0qGTUPyXtb 4t/kHQBF15JTB9Fv
cvThz/c+D7waERYi6mgzGueevLmEfCo1np1fzvSxFZcn3cERa5AoHINfZsgs S9G2IColTdDKJ0ly
CfmozyOQYKzUqDy6S3O/yoiQkkCtOAwtlPDu67046AOm0dbrx4iICAzDFopo 4rU31f0RazXMdONd
D8sXqdo1s/iMIbER965Ql8kJhZ70boDvMUgn77jI0NPUf1o035i8t+7k2tne DKOmZaDgMC2JeWUA
VUrVltnaj0vRt0LIUpKSaeheh95nzO1wD44MCVKr1U+nfOw1RtoMVZ7Uj1br VQ1Y8bHBhHXxF1PL
lAZqyw5V0KEchrbCMgXROwO9ONAiW+/kEZ52+fLQ0PAC+erD3h6tpj30uFix uyjx0w5fcNZ/fyaG
phEKbyU+KobhAlijJPtmyUN1yOLqhLPr8ZSLSZOTmvk84feWI9W+TzxxovXd gBUCGsg9tfVC86SS
REldD1JGC2HFACHSwSO1yCp98Gu3b0qKCrVa7dI8Pg0IfUDObnCpiEudkJsY /OIWDOZD9hA5oCfd
apF5ltFvn11OLtNgMCzN4/uA256g5ODq0ylZ1MY6JwjHChjbBlkYydeioApd g++q454nhELhv7z4
TfN7NNDoCdgHAG8H8PXxaxydGzcgWgsZ0ILYMlxV7CdJ2FTkve6Et59MJjPx BFHmi3vVrqB8Fzh7
1CG/A6f2HtOg7+Le6Gdf6c3yYJ7Zscb2PLuy0MRrD13+bG+PWak9iLV/PTs9 GSnz9Fp8SsFpYPy0
wT7pNdu0a3klJl5b6MqleAXbAWMbYGwBtRc8Ec6VNBXbHajZe3T6HXtWm6Bl KZ6PqQcKnMDvtiDH
BgQfc8nI5ZhZp9u6dh48RLJ5AuoCMPVCVoz/6U9M1o8JGc2xNvXBltzA9Rx/ c47/epbXW7dclzPt
QIE9KHB85AUe2T2l1egmiMIqbHhM+dT566K/2nRuZ02Uo6L+V+O0WIex8G7m RHuyihczzD6jyHdW
5G0X0jeUOC/L3PrAC3Lfi2HKhe+D6sOv6DAuQnqERuamO/Sq+ikZU9NxScUJ Hak+pbzporhuLUuz
kKes6qYvK9sFYnZukcr6FvZGuckIKSDRh6DCMNk0M1SjlaRphOfGeZHD5R6D uXbyzM33rmyUJrws
iTeThoHvTjhrdbqFvemRLr2GOuMYIvv1at4MVvFX5+X7t+mjrIDhCo+BnG19 GVY951dJE16S0EFL
4mZlX/ez7ufJERnGz1eL80lN/aw8e0qarOFHq2v9Roq+wrI/kf2yRhgABJFv 3C2KxtVqaNJvFu0f
VLPpv1OnaLwhKf6hp+wCP4fOZ8T1lCf31RWocMML9sv/0s//BlBLAwQUAAIA CACaVDkyZXWIdn8E
AABWCAAAEQAAAFJlc291cmNlL0JhamEuYm1wxdV7TFNXGADwrxSYmdEY0QRQ iTEbitsc8bEgLwE1
LDx8JIjKHtgJDLJo5nQW2ZSVl8CqGa/x6LDKeBQQJlDGoxBA5C0IjPIQbmml FldtSx8Ubnvbu2sZ
BBSQLEs8yXf/uPfcX875zjnfcfP2XQWG9gkRO4iw/DdIYG54v5X43rh2JmYb /r+2t+ZptVqpVMrj
IcjI8EB//+DAgEgkmp6e1uv1/8XDYuPZ1h+w1q8pMltXbWo6ttmi2cUpPIMR IxaLl/V0Ot0Liayh
tir7t+Q4Whgt9FJ0+OVtmyIBygCKAOoBuCYmqg0bJj+2xV3d2CEh5xAEmRvl K55ex2loZUV+Uxdq
U/K1VUmAZYnfOi/rIwDFAHcNz04GQ2thId+3D7e3xwIC8cP26beYCTKZ7DVP oZwsL0jp+9lunOU9
mHio+9L6jgDoDYA1q28DFM54p/2ERM8HLeiWLXpKgKqjTZOUjDu7fF5fV/ea 15oV2nN9p0bWImm/
3k937Lpo1hYI/cHElqoFaAKoMoyvta315dTodFQs1up0ehpN5+5ZnJyYgOl0 87wJpKfqs1Uq7g2t
olPSFtN/Y77HA2ghkR4Q+SOTm4yMRBPy2fTgeipVa7NdRqGcm5nyrMerYI7l Oks7YrXKrvleXxCA
Ed/UdIJMFhhmXevogMxNadcura2t3sIC9/AOFPD5Cz0hy1na/qrX9RVssyoF mHj/PaJvzgnfnrml
I8LRUQ0gA8AcnMIEguEVeE3+cMXltJeX5sJFzMOjGyCVSJNCgRobS1EUE4lw c3MVAOpwgCoWP12B
1/gllB6HmBi8uEjNYmlIpLTdextMTSsAuuPjUOLHY0efE6sVdD56Sq2e5yHl DCHrwCKePzT5QZzv
dnY1XlmpjYogskgHyAMoAMg86ddJLNW772Sxy2oW7hdeAU2Y77aoV+cHNT5w M4SanolnMtCjR0YB
ogBSSKREACK1BZd/uKNUKBd6owU/LeNVnwCOB1x1cqf4tp05qzzlj2+2vG9m xtxvn8eu4C12ft/o
lXqTWAch+yA5df/aH/dYZedXSaXTqAYjFnp+hVnoSdpjcd2QsvcmN3ZP/RlS 40moPgblXlB9HEo8
If8QFByGW3YQv9sklZmNoujS9c/guUrbIx8yztfT3DuyqEhNxl+sq0jeWUHO KU6oS7n/xtuOkOv6
0kuwhbSsPI1Gs7THz71SR7UZbUjXoY9xfByTN089KVYOJEs7IsYrgp+V+Qjz 7Hjp1p3fG5d6AH0n
/MrMWXZ8SFkKjmv02AiuQzB179Q4R/k4S9YV//w+VcSmjN31Hkn7cOiXrdwI 8mAM6XdPuFdZi2HY
0t60eAzHenFcoNcOo7LmSf49BTdV8jD6Gedb4R8+/CyHkYyPBq6v7gsnca8B 8ztnmUL1pvvjBTIg
H2uRP21RiyrUgiIFN0nSHCauvSAs/FRwZ+8gfWNPmNGjqE3Dhdc0WsMBXnhz LFafMQ2qUasmnnCH
OMzhP+k9zOCmpC96mUGPGBSkKkn1N29aKdcbSsGi2Nu8L1fs/QNQSwMEFAAC AAgAmlQ5MhxdlAeh
BAAAVggAABQAAABSZXNvdXJjZS9GaWx0cmFyLmJtcK3Ve0xaVxgA8KtbjN0f W5ZsCa5o1BjjSlNr
5tRaUxu3SNWBbRptC8416qq062w2bcNUxBe+ivVV1BTNqq3VotIatYpBEEGp yEPwAQpafG4K4iPy
kEd3p2tiIji77Ms5949z7/nl++4995wQRLQjsBt+YPcC+xf/dDsAsjvuCt4f +Hivv4u3tsNkMhkM
Bu272Nra0uv1RiM4aLZYrE+x5lksFnDe6sqKRCxm9NFfUKltra1ga21pYfT1 cTjKkhKaRKI8ggdK
YE6gxOMwOx9l1f2Grr19vibxLCkmgIT2L0f54dDfNNVzCgs5DQ39Oq3WciDN fd5eWlMyae/jvD5C
qIjgz09zZ//0KTP+GCP2Q/pVoDcaoMCBV2RqdfUoNrW8t+fV+rrGbDbb8HZ2 dpQTPF59opwSv9x9
S1EbKUxz5d10eP0jMBAL7HkvvwO6yW0k0mjCxbiM2wlCgUCn09nw1Isz7IJw ReM13TJNI6yY+f2y
Ve9ZMSUvj58WCs+Gu1VVlKlWV/dXvc8TN+Xzc33XhgkGFUsjrLTqdd/0L80Z xGBY92J+IV9wIqZg
ZmdmbHjc0lhlY7iGX2zLY91yf143nJAwHRcnDAt78PwhmZAQLRKJbHvzFMQh XgPmChI5AodPRkVN
h4czEIjCjg4Gd2ho/yc5ssfIvhp1qcHLq8vXVxASMhkRIT1zpikxkcjlCoxG 43t6bHzYr8nPXFzS
jx8nuLrWwWAMPz9hcPCor295eflLg+G9vMEbjpnoJA8PLARyBwJJgUCwUGiR u/sTGIx5+jTd2zud
w5m05g3lI6161IJMHx/CqVNFQUHkgICnPj7Nnp4Nzs5EKLTAza3Wze1RZCRu bW37gDecE3TQk1Si
HpawaTQVhaLG4xeuX1dEREx5ew86O5c5Od2FQJLB5u2dw2bLjuYJ0k/ymRIq dYVEWsJi59BoORwu
hcH6oNDC3drvnDiBz8joVKm291bNv3lgvcMpbiwcsrfyQd3d/KL4rPRoXAoi NRWJwaOSSzKraT28
9XWdtfd30OOmQAdvOLB/ABgogBYFdF8G2hF21HCg+Vug4RxADrTPuRZKp9Nt rJc9T/06d7aXKKqN
51d9z38YI6hA8YqRowVBgqyve5I82qM/aQyxfxL8t1cbaFd45ZxtbwgXOFoZ IqhNUss6jNtivXpw
e65jU/pYzS9eYd5b6kpSNiMUZF9pmecg5lhrGFB39nCPk3txWdhoMcremhVm /Zhe1b8927oxTlob
IfzJSFlsR8+3IGbqvpqq9JwkfCTG2vXE2t9HnR9gscAt2Jo3219vMclBDLya dBL9KnN7pmVDUqHm
Zv3R+/NiO0r5NFhec1JKhIxnfzCeZS/IcKjHxSnkchv/79bKnHZ1xKSbBFM0 rHG0C12bEzUa4f1V
NnapM36h7dKb+sDpqi+lxZ+B2BjeUVQKl4hF4C5sa783m7WaZc386IqMuaFo 1851bo5X7xULenPN
F8BiZaUuY1mf84nBb3qK1cqJ/ZXaON9Mxh2jXqtVLy6PceaHGmf7aqa7iBMv CNMdhfKuosVhytaS
TL+1Bj5msXZmHnr+/of4/72/AFBLAwQUAAIACACDkHIuN/IyuG0AAAA2AwAA EQAAAFJlc291cmNl
L0x1cGEuYm1wc/I1Y2YAAzMg1gBiAShmZJCASADlhbkhGAZuvHxDC9TQ0AAy vaGBeMX///8nxj1Q
k3ErbkAF+E1mwAR4FQMlkRHYizj9iKYYroVIw6muHhgYMGX/4erxuB+m5T+y 4fjjCBLkEERk6qJ1
UsSPAFBLAwQUAAIACAC2VL4ouRa9hXUAAAD2AAAAEAAAAFJlc291cmNlL2J1 Zy5ibXBlTTEKgDAM
jCh0KKjPcPQN7v4lk1n7pICjSwff5OJQc9aC6KWXa+4ImeaDMhbjYOwfVtTc fjDubWbJqCQIQ8iC
sk+M0RROuh+llAUFy5p8wWhOxDt2rNBaoazn6s1nOjdCjhk+ecUs8LGv3ehf +ySO5X+m4AJQSwME
FAACAAgAuDg/JPCeYbRUAAAA9gAAABAAAABSZXNvdXJjZS9ORVcuQk1Qc/L9 xgABZUCsAcQCUMzI
wAIWbwDiI3wQjAoaIJINDRAKBIGMAwcOAGmQyH8wYvj/H0KBIEgISJSjA7B5 7OXl/EDZ/5TRH6Dm
fPhQDqHZoeYjWQcAUEsDBBQAAgAIAKaUliNv79J5fAAAAPYAAAAsAAAAeGFp bGVyL1NhbXBsZXMv
QnJvd3Nlcy9CVFMvUmVzb3VyY2UvVElQUy5CTVBVjT0OwyAMhR2pEkwhx+g5 uucunsrqPZdhjMTC
0DNVkTJQP7vKj83jQ88/vOYvebxVT9X010AP80X1GV33EC+KOJD6aK0p4XQ7 1LsDCUuvfAYHZ5Ar
A8hazbFkdHAs1shbNdK2EIbTshasSHst5vdq2zlZP2cizPvs8ekPUEsDBBQA AgAIAKBehTRqlfx9
ZgIAAOIEAAAJAAAARXJyb3IubG9nfVLbbtpAEH1H4h/mLTfFWVMckpX6YIxp rIBtYScgVX1Y7E1Y
1faiXdPy3/mBjm0MATXsgy9z5pw5MzvX12cOzPi70KWSkHLgSknFNZwjXHc7 3Q4czpgnK0aB9O+I
dUfujzB4kgox06TWN0rMGpvyXCrBIBNLxSk8DEif7Ei24gxYUm5YhqSqzu1X B7ziTaqcJeKjQOcZ
JDJfi4ylUsGXpNvG+itXuqItmMi4ors3EOPx0RhAqPit4hlnmsOAte04e3kK 2yemlnKjYLkRWdrw
7k10VGYGXEYiX0/49gpCR+JI62KyoDDodg4i4Nw5NzcUhlJlrEgBf8AyLMNs 64UZK1ndIYW5KFL5
V8MiRHPyjetKkGVIIKbRuycEIq7+iIRDyJLf0DszuJOxlSxDO6weYH33cHZw 1Yk2S437witjQzty
Me58pOL9sD94dYT0P++Bq0tsmoIxNnbhEdeJEuvKBgUnY1pTuPC9yQWsmIZC At+upSp5CjkvVzLd
qwVrrlhDC2ajyI3HgfMStbCt3jc5L0qJcvATzF/wHWKxxtIOvLKs8pbIVHC9 /mRvLJIVV5hzaKWZ
RRTgWledh3hpVXs4rBzHpWnFjt0odB3PntBxMJs6M9eOXbg0e72rYzTwW4yc IG0cr/C/SKWLiuYJ
6LtzjA4e6/Cz5/8YBgt80jbBG9kjN3ImnvOM2k1aPHyJ48CvzDRxchTeBU3S mL9cXi2cwI9nwYS2
H4j2zWNSMJ3a/mivFTmYNkEnc89v2fPpPqtn9U8df0IfLKtGZy9+0/ZO1A5D 9GbHHhZEDF08NB1N
ba/6q1jdzj9QSwECFAAUAAIACAAZiH40cyefHJIBAAClAgAAEQAAAAAAAAAA ACAAtIEAAAAAc3Jt
a2luZ2JveGluZy54cGpQSwECFAAUAAIACADIaX00Kk/XFswAAAA8AQAAGAAA AAAAAAAAACAAtIHB
AQAAU291cmNlL3NybWtpbmdib3hpbmcucHJnUEsBAhQAFAACAAgAC2x+NFuh ciogAQAAogIAABkA
AAAAAAAAAAAgALSBwwIAAFNvdXJjZS9raW5nYm94aW5Gb3JtMS5wcmdQSwEC FAAUAAIACAALbH40
1YZlxLgBAADzBQAAGQAAAAAAAAAAACAAtIEaBAAAU291cmNlL2tpbmdib3hp bkZvcm0xLnhmbVBL
AQIUABQAAgAIANJpfTRzWIpmdAAAAJAAAAAYAAAAAAAAAAAAIAC0gQkGAABT b3VyY2Uva2luZ2Jv
eGluZ01vMS5wcmdQSwECFAAUAAIACADIXoU0N/rd6ZYDAADdDAAAGQAAAAAA AAAAACAAtIGzBgAA
U291cmNlL2VzcGVjaWFsaWRhZGVzLnByZ1BLAQIUABQAAgAIAMhehTQnnCcs 1gMAANATAAAZAAAA
AAAAAAAAIAC0gYAKAABTb3VyY2UvZXNwZWNpYWxpZGFkZXMueGZtUEsBAhQA FAACAAgAl3l+NHd6
XcozAQAAYwIAABMAAAAAAAAAAAAgALSBjQ4AAFJlc291cmNlL01vZHVsZTEu cmNQSwECFAAUAAIA
CACaVDkykUmIKQUFAABWCAAAFAAAAAAAAAAAACAAtIHxDwAAUmVzb3VyY2Uv T3JkZW5hci5ibXBQ
SwECFAAUAAIACACaVDkyrhodWHIEAABWCAAAFAAAAAAAAAAAACAAtIEoFQAA UmVzb3VyY2UvcHJp
bWVyby5ibXBQSwECFAAUAAIACACaVDkySbPqcBcEAABWCAAAFQAAAAAAAAAA ACAAtIHMGQAAUmVz
b3VyY2UvQW50ZXJpb3IuYm1wUEsBAhQAFAACAAgAmlQ5Mt+wBkAxBAAAVggA ABYAAAAAAAAAAAAg
ALSBFh4AAFJlc291cmNlL1NpZ3VpZW50ZS5ibXBQSwECFAAUAAIACACaVDky a3W59E0EAABWCAAA
EwAAAAAAAAAAACAAtIF7IgAAUmVzb3VyY2UvVWx0aW1vLmJtcFBLAQIUABQA AgAIAJpUOTL46BrM
zwQAAFYIAAARAAAAAAAAAAAAIAC0gfkmAABSZXNvdXJjZS9BbHRhLmJtcFBL AQIUABQAAgAIAJpU
OTLLX6dnvwQAAFYIAAAUAAAAAAAAAAAAIAC0gfcrAABSZXNvdXJjZS9FZGlj aW9uLmJtcFBLAQIU
ABQAAgAIAJpUOTJldYh2fwQAAFYIAAARAAAAAAAAAAAAIAC0gegwAABSZXNv dXJjZS9CYWphLmJt
cFBLAQIUABQAAgAIAJpUOTIcXZQHoQQAAFYIAAAUAAAAAAAAAAAAIAC0gZY1 AABSZXNvdXJjZS9G
aWx0cmFyLmJtcFBLAQIUABQAAgAIAIOQci438jK4bQAAADYDAAARAAAAAAAA AAAAIAC0gWk6AABS
ZXNvdXJjZS9MdXBhLmJtcFBLAQIUABQAAgAIALZUvii5Fr2FdQAAAPYAAAAQ AAAAAAAAAAAAIAC0
gQU7AABSZXNvdXJjZS9idWcuYm1wUEsBAhQAFAACAAgAuDg/JPCeYbRUAAAA 9gAAABAAAAAAAAAA
AAAgALSBqDsAAFJlc291cmNlL05FVy5CTVBQSwECFAAUAAIACACmlJYjb+/S eXwAAAD2AAAALAAA
AAAAAAAAACAAtIEqPAAAeGFpbGVyL1NhbXBsZXMvQnJvd3Nlcy9CVFMvUmVz b3VyY2UvVElQUy5C
TVBQSwECFAAUAAIACACgXoU0apX8fWYCAADiBAAACQAAAAAAAAAAACAAtIHw PAAARXJyb3IubG9n
UEsFBgAAAAAWABYAwgUAAH0/AAAAAA==
------=_NextPart_000_0043_01C658A8.36684170
Content-Type: application/octet-stream;
name="ESPECIAL.DBF"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="ESPECIAL.DBF"
=03=06=04=01 =
=00=00=00=A2=00#=01=00=00=00=00=00=00=00=00=00=00=00=00=00=0 0=00=00=00=00=
=00=00CODIESPE=00=13=E2C=0F=04=D4=AE=08=00j=9Dk=BC=AF=13=00= 00$=00=D4=AEt=
=9DESPECIALID=00C=0F=04=D4=AE=19=00j=9Dk=BC=AF=13=00=00$=00= D4=AEt=9DCOMB=
ATE=00ID=00L=0F=04=D4=AE=01=00j=9Dk=BC=AF=13=00=00$=00=D4=AE t=9DOBSERVACI=
O=00C=0F=04=D4=AE=00=01j=9Dk=BC=AF=13=00=00$=00=D4=AEt=9D=0D =00 LIGCONT =
LIGHT-CONTACT TLAIGHT CONTACT =
=
=
SEMCONT =
SEMI-CONTACT TSEMI CONTACT =
=
=
FORMAS =
FORMAS FFORMAS =
=
=
FULCONT =
FULL-CONTACT TFULL-CONTACT =
=
=
=
LOW-KICKLOW-KICK TLOW-KICK =
=
=
=
ORISTY ORIENTAL STYLE TORIENTAL STYLE =
=
=
=
THABOXI THAI-BOXING TTHAI-BOXING =
=
=
=
KOSCOCO KOSHIKI CONTROL CONTACT TKOSHIKI CONTROL CONTACT =
=
=
=
KOSCONT LISHIKI CONTACT TKOSHIKI CONTACT =
=
=

------=_NextPart_000_0043_01C658A8.36684170
Content-Type: application/octet-stream;
name="ESPECATE.DBF"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="ESPECATE.DBF"
AwYEAQcAAADiADsAAAAAAAAAAAAAAAAAAAAAAAAAAABDT0RJRVNQAJ8T9kO/ Ba6tCAAUnmu81xMA
ACAArq0enkNBVEVHT1JJQQD2Q78Frq0PABSea7zXEwAAIACurR6eTklWRUxF UwBBAPZDvwWurRkA
FJ5rvNcTAAAgAK6tHp5QRVNPTUVOT1IA9k6/Ba6tBgIUnmu81xMAACAArq0e nkVEQURNRU5PUgD2
Tr8Frq0CABSea7zXEwAAIACurR6eRURBRE1BWU9SAPZOvwWurQIAFJ5rvNcT AAAgAK6tHp4NACBL
T1NDT05UIE1BU0NVTElOTyAgICAgIERFU0RFIDE3IEHRT1MgICAgICAgICAg ICAgNjUuMDAxNzk5
IEtPU0NPTlQgTUFTQ1VMSU5PICAgICAgREVTREUgMTcgQdFPUyAgICAgICAg ICAgICA3NS4wMDE3
OTkgS09TQ09OVCBNQVNDVUxJTk8gICAgICBERVNERSAxNyBB0U9TICAgICAg ICAgICAgIDg1LjAw
MTc5OSBLT1NDT05UIE1BU0NVTElOTyAgICAgIERFU0RFIDE3IEHRT1MgICAg ICAgICAgICAxMjAu
MDAxNzk5IEtPU0NPTlQgRkVNRU5JTk8gICAgICAgREVTREUgMTcgQdFPUyAg ICAgICAgICAgICA1
NS4wMDE3OTkgS09TQ09OVCBGRU1FTklOTyAgICAgICBERVNERSAxNyBB0U9T ICAgICAgICAgICAg
IDY1LjAwMTc5OSBLT1NDT05UIEZFTUVOSU5PICAgICAgIERFU0RFIDE3IEHR T1MgICAgICAgICAg
ICAxMDAuMDAxNzk5
------=_NextPart_000_0043_01C658A8.36684170--

Attached files ESPECATE.DBF (639 B)Â srmkingboxing.zip (17.3 KB)Â

[zeasoftware]

te lo envio a tu privado ya corregido.
Saludos.
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=443394d7@ozsrvnegro.ozlan.local...]443394d7@ozsrvnegro.ozlan.local...[/email]
Hola ramon te dejos el ejemplo que estoy haciendo y ver si me puedes ayudar
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=44308b75@ozsrvnegro.ozlan.local...]44308b75@ozsrvnegro.ozlan.local...[/email]
aqui te pongo algo mas completo, cualquier duda has otro mensaje.
/*
* Proyecto: SCIWin
* Fichero: CliexEdoCtas.prg
* Descripción:
* Autor: Ramón Zea
* Fecha: 01/04/2006
*/
#include "Xailer.ch"
#include "RDD.ch"
CLASS TCliexEdoCtas FROM TForm
COMPONENT oDBBrowse1
COMPONENT oDBBrowse2
Component oDataSource0
Component oDataSource1
Component oDataSource3
Component oDataSet0
Component oDataSet1
Component oDataSet3
METHOD CreateForm()
METHOD FormCreate( oSender )
METHOD FormInitialize( oSender )
METHOD DBBrowse1Change( oSender, lBookMarkChanged )
ENDCLASS
#include "CliexEdoCtas.xfm"
//---------------------------------------------------------- --------------------
METHOD FormCreate( oSender ) CLASS TCliexEdoCtas
::oDataSet1:OrdSetFocus( "xCliente" )
::oDataSet0 := ::oDataSet1:Clone()
::oDataSet0:OrdSetFocus( 2 ) //"FactxCliente" )
::oDataSet0:Filter("Concepto == '01'", .t.)
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS TCliexEdoCtas
::oDataSet0:SetScope( ::cClave,, .t.)
::oDataSet0:GoTop()
::DBBrowse1Change()

RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBBrowse1Change( oSender, lBookMarkChanged ) CLASS TCliexEdoCtas
::oDataSet1:SetScope( ::cClave + ::oDataSet0:Serie + ::oDataSet0:Folio,, .t. )
::oDataSet1:GoTop()
::oDBBrowse2:refresh(.t.)
RETURN Nil
//---------------------------------------------------------- --------------------
--

[PILO]

Gracias por la respuesta, como no hay ejemplos de sintasis en la documentación estoy en estos momentos perdido y no tengo mucho tiempo para hacer
pruebas.
Funciona perfectamente, muy agradecido. Ramon
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=4433c6e8@ozsrvnegro.ozlan.local...]4433c6e8@ozsrvnegro.ozlan.local...[/email]
te lo envio a tu privado ya corregido.
Saludos.
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:[email=443394d7@ozsrvnegro.ozlan.local...]443394d7@ozsrvnegro.ozlan.local...[/email]
Hola ramon te dejos el ejemplo que estoy haciendo y ver si me puedes ayudar
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=44308b75@ozsrvnegro.ozlan.local...]44308b75@ozsrvnegro.ozlan.local...[/email]
aqui te pongo algo mas completo, cualquier duda has otro mensaje.
/*
* Proyecto: SCIWin
* Fichero: CliexEdoCtas.prg
* Descripción:
* Autor: Ramón Zea
* Fecha: 01/04/2006
*/
#include "Xailer.ch"
#include "RDD.ch"
CLASS TCliexEdoCtas FROM TForm
COMPONENT oDBBrowse1
COMPONENT oDBBrowse2
Component oDataSource0
Component oDataSource1
Component oDataSource3
Component oDataSet0
Component oDataSet1
Component oDataSet3
METHOD CreateForm()
METHOD FormCreate( oSender )
METHOD FormInitialize( oSender )
METHOD DBBrowse1Change( oSender, lBookMarkChanged )
ENDCLASS
#include "CliexEdoCtas.xfm"
//---------------------------------------------------------- --------------------
METHOD FormCreate( oSender ) CLASS TCliexEdoCtas
::oDataSet1:OrdSetFocus( "xCliente" )
::oDataSet0 := ::oDataSet1:Clone()
::oDataSet0:OrdSetFocus( 2 ) //"FactxCliente" )
::oDataSet0:Filter("Concepto == '01'", .t.)
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS TCliexEdoCtas
::oDataSet0:SetScope( ::cClave,, .t.)
::oDataSet0:GoTop()
::DBBrowse1Change()

RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBBrowse1Change( oSender, lBookMarkChanged ) CLASS TCliexEdoCtas
::oDataSet1:SetScope( ::cClave + ::oDataSet0:Serie + ::oDataSet0:Folio,, .t. )
::oDataSet1:GoTop()
::oDBBrowse2:refresh(.t.)
RETURN Nil
//---------------------------------------------------------- --------------------
--