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.

Recargar un TDBBrowse

Foro público de Xailer en español
Responder
ddupre
Mensajes: 329
Registrado: Lun Nov 12, 2007 3:53 pm

Recargar un TDBBrowse

Mensaje por ddupre »

This is a multi-part message in MIME format.
--------------050205000605000108070600
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Hola foro:<br>
<br>
En el form que adjunto en la imÃgen estoy intentando mostrar las
cotizaciones de las divisas cada vez que se selecciona uno de los
TRadio que hay. Cuando se muestra por primera vez el form hago que
aparezcan por defecto las cotizaciones de la primera divisa (Dolar),
pero no logro hacer que el TDBBrowse se vuelva a cargar con las otras
cotizaciones.<br>
Mi idea es utilizar el evento OnClick de los TRadio para que se ejecute
"algo" que busque los registros correspondientes y los muestre en el
Browse.<br>
<br>
<img alt="Divisas"
src="cid:part1.09010904.09030600@macrosistemas.com.uy" width="413"
height="278"><br>
<br>
He buscado en los foros pero no he encontrado ningÃn caso similar dado
que estoy utilizando MySQL, tal vez lo haya y alguien me pueda orientar.<br>
<br>
Para cargar inicialmente el browse utilizo el evento OnInitialice del
form de esta forma y todo funciona perfecto:<br>
<br>
</tt><small>ETHOD FormInitialize( oSender ) CLASS TDivisas<br>
<br>
::oDolar:lChecked := .T.<br>
<br>
WITH OBJECT ::oDivisasÂÂÂÂÂ ÂÂ <font color="#ff0000">
<----------------------------Este es el TSQLQuery que actÃa deÂ
DataSource en el TDBBrowse</font><br>
ÂÂ :oDataSource:=AppData:oMventas<br>
ÂÂ :cSelect := "SELECT * FROM divisas WHERE nroempresa = "
+ValToStr(AppData:nNroempresa)+ " AND nrodivisa = " +ValToStr(2)+ "
order by fecha DESC"<br>
ÂÂ if :lOpen<br>
ÂÂÂÂÂ :Close()<br>
ÂÂ endif<br>
ÂÂ if !:lOpen<br>
ÂÂÂÂÂ :lOpen:=.T.<br>
ÂÂÂÂÂ if !:lOpen<br>
ÂÂÂÂÂÂ ÂÂ msgstop('Error al Abrir Divisas','Error')<br>
ÂÂÂÂÂÂ ÂÂ ::Close()<br>
ÂÂÂÂÂ endif<br>
ÂÂ endif<br>
END WITH<br>
Return nil</small><tt><br>
<br>
He intentado utilizar la sentencia SELECT de varias formas pero sin
Ãxito y estoy seguro que es por falta de conocimientos y conceptos
sobre como se cargan los TDBBrowse.<br>
<br>
ÂAlguien tiene bien claro esos conceptos como para compartirlos?, o en
su defecto ÂpodrÃan decirme donde puedo leer para aprender?<br>
<br>
Desde ya muchas gracias por la ayuda que me puedan prestar.<br>
<br>
Un Saludos<br>
Daniel.<br>
<br>
</tt>
</body>
</html>
--------------050205000605000108070600
Content-Type: image/jpeg;
name="Divisas.JPG"
Content-Transfer-Encoding: base64
Content-ID: <part1.09010904.09030600@macrosistemas.com.uy>
Content-Disposition: attachment;
filename="Divisas.JPG"
/9j/4AAQSkZJRgABAQEAYABgAAD/4QAWRXhpZgAASUkqAAgAAAAAAAAAAAD/ 2wBDAAgGBgcG
BQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAx NDQ0Hyc5PTgy
PC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIy MjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAEWAZ0DASIAAhEBAxEB/8QAHwAA AQUBAQEBAQEA
AAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQR BRIhMUEGE1Fh
ByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RF RkdISUpTVFVW
V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ip qrKztLW2t7i5
usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEA AwEBAQEBAQEB
AQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEE BSExBhJBUQdh
cRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNE RUZHSElKU1RV
VldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaan qKmqsrO0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMB AAIRAxEAPwDm
9F0691pJpbGxN0sO3zCGACbiQvUjrg1qw6LfSTRwJo8byyAFE8wEsCMjHzex rY+FCf8AFNeL
CRgraROp9GVZiD+BArW8Ai4TxJY2FxfrM0Vo7T22/lZgzH7o6benPOWPFfUY nHzw9SdOMVaN
u/Y8WngadRKTb1OAnmht55IJtPiSWJijqc5VgcEdfWojeWwOPsUWfx/xrp4N Aj1nVPGLEqZ4
ZJFtVxktM0rlQOepCMMf7XtUuo+CLf8At+G0hvkgshBbpJcpGrJ57OYsEFxy zq/AyRjGK7/r
+Gg+Wejsn+Cf6nGsHUa5onJ/bbYH/jyi9Mc0n222x/x5Rfma2T4ShWykeTVi twovysS2pKuL
Q4fL7+M5GOD1NW5fCemzX0zR6qbGxt7WyeWe5jX/AFk4ODzIABxk88ZwA3Wm 8wwSf/ABYKs1
t+Jzn222B5sogfqaPtttnH2GL8zWrD4Wgk0z7QdYQTMl68aQ2/mRSC1++RJu HByMHbWr/wAI
Va309oE1NbZbp4LWBFsT87NbiYM3704ON2TyM9BzRLH4OMrX/AFgqzV7ficr 9stv+fGLj3NH
222x/wAeUP5mty18M201u5tL1Ln7Xp0V1atcWhTaJJxEOknynPs2QTxTLjwp ZQas1kviGGUR
RXUs7Rwq0kPkfe3RrIcA/wAOSD144oWPwd7PT7/UPqda2iMX7ba/8+UP5n/G l+223/PjFx7m
t5vCtnFZahGl5NPd77AWr+TsUC5J27xvPOOvXHUZzgZmvaFFpHkvBf8A2yKS a5gyYDEVeBwj
8bjxlhg5/CtKWLwtWfs47/8AAuTPC1YR5nsVDeW3exiH4mj7bbH/AJcYv1rp tO8IW9zp81kL
hX1GdtOYSNCQlus5ckA7vmJQDPAxxgnJxz93pMCapZWWn6pbXxuxGFdSoMbO xUK4VmwcjPXp
SpYzC1Zumt0OeEqxipdCD7bbf8+UX5n/ABpftlt/z4xfrWk2g6aLzUo11qQw 6YszXkpsTlPL
kEeEUP8ANliepH3a0pfCljpqxwXVw8t4mvx6cXWHdGyNHvwV3rwRgnv2HrSl jMKttfl/X9MF
g6r/AOHOb+2W3/PlF+tH222GT9iiwPc1qXnh6FYdSuUupklj1GSxtbdbIKlz MJGXZGfNJwAA
SWHHAyTVm98G29lE1xJrA8iKG5knxbhpIzC8aMgCyFS26VR94Y5z0xR9dwll fr5MPqdW9v1M
L7bbY/48Yv1o+223/PjF+ZrbtPD1ne6G08OoIYEv5Fkuns2EnlpbvKcDzOmE Py4Bz3xRD4Qt
pJ5xLrJSBfsXkypabjILrITcu8bSDjPJ60njcIm1LRryYfVKrSa29TEF7bf8 +MX5ml+223/P
jF+ZrYu/CNtYQFr3X7OCbzHAjlUKGVJzCSCXyWyrNgLjA61n+I9C/sC9W3W4 e6jaLzEmMOxZ
FyQCmGYMpAByDWtHE4WrLlpu7JnhqsFeSK/222/58YfzNH222/58ofzNdXJ4 LtU097Bbxft0
OqGG7vDDtCIto0zInzfMMgcnbzWVo2j6e3jvTdON1banZSyIWaIjBDKTtbax AI6EAnp1rKGO
wtTm5Vqk39xcsHUja+z/AFMn7da/8+UP5mj7ZbdPsMX61u2umWuoaPpWptaR W093pt7M6CIv
FIYEUhwNylSQx7kZUcYzVyw8D28V7pU82pLNbahNGlmHs9yz7oy5LKJQVC4w eTzUf2jhrPmV
mh/Ual9Dlfttr/z5RfmaX7ba/wDPlD+ZrVi8ImfT9IvLW+a4S+QPI8cCBIP3 ZdgXMgXcuDlS
Vxg1PJ4Mtxb3ktvrS3TQQR3KRw2wLyRvHvDkb+F5AyN2M1p9dweiv+D9Cfqd VGH9ttf+fKH8
zSfbbb/nyi/M1R28A4o216CpR7HL8y99ttv+fKL8zR9ttv8Anyi/M1R20baP Yx7AXvttt/z5
Q/mf8aPttt/z5w/kf8ao7aNlHsY9gL3222/584fyP+NH222/584fyP8AjVDZ Rso9jHsOxf8A
ttt/z5w/kf8AGj7bbf8APnD+R/xqhso2Uexj2Cxf+223/PnD+R/xo+223/Pn D+R/xqhso2Ue
xj2Cxf8Attt/z5w/kf8AGj7bbf8APnD+R/xqhso2Uexj2Cxf+223/PnD+R/x o+223/PnD+R/
xqhso2Uexj2Cxf8Attt/z5w/kf8AGj7bbf8APnD+R/xqhso2Uexj2Cxf+223 /PnD+R/xo+22
3/PnD+R/xqhso2Uexj2C3maMdzDPLHDFYwmSRwiDnlicDv6mujk8JSR7fNm0 xWYA7ds7fqF5
/CuX0dMeINN/6+4ev++teo6UV1SO4sriMC22F2uc4NtgcMT3H+z7+1fN59j6 2DnCFGy5r7rs
e/k2XUMTCdStdqNuvc4uXw2ciOOfT2kc7UXbOu5jwBkrgZPc1tfB67ElzryF WBQW/XryZev5
Va1qNLLXdLsYrVY7aKaJorg4LXILr+8LDgg8YA6fpWd8HlK6p4lB65t/5zV5 eHzCtjcNWVa3
uuOytud+My3D4WVOVG/vJ7u5yvhvxVN4f028toHgC38SxzeYOSAGHHpwxrf0 z4kXWkQNFZ/Y
EMjGSWTy8vK5JJZjnkkk16L8LDt8BWx/6ayfzrptQ1m206B5ZZA20ZZVxkD1 Occe9duOzTDQ
qz9rRT1d232+R5UcPJQU/aNI+ej4kkW7nuob/wAmWe5F1J5ZAy4ZmU8+hY/n Rb+Kb21cPBrE
yOEEYIcdAzMO3XczHPX5jX0TpupRarp0N9bFjBMNyblwfTmre5vX9KpZ1Skr uivv/wCAEcBK
2lR2/rzPmebxDPcMXl1SRmKTR7iwzibHm9v4sD8uMVNb+K720m8631aSKTyk hDIV+4v3R05x
2J5r6Eu9bsrKdIJ7hVlf7q4zn0H1NV9F8Qwa1LeRQK6yWjKkoYDHOeh/Aj6i s/7ew7lyexjd
+f8AwCVhPeUVVd/68z56bXJGjCHUZMCOeMfMM4mx5vOOrYGTUq+JbpJIJF1S RTBIssQBXCOs
flqRx2TivpYO3+RTXlKIWY8fStHnNLVugvv/AOAX9Qkv+Xr/AK+Z8yJrBjt1 gj1B0jW3W1AV
wMRK28KD1+9znr71avPFN7fuXutXllbypIQWZflSQYcDjjcOp6173ceKtKtr eS4e7BijlEMh
Vc+W+4rhh1HI6+nNa0c6zRrJG6ujDKsuCCPY1KzyhN6UYv5/8AlYJvRVX/Xz Pmg69KyzKdRb
EyxK4yvSL/VgccbexHPvRf69JqkyTahqD3LopVPMYYQE5OAMDk9fXjPSvpne 2Pp7VTu9VtrH
b9onVC7FEDYG9sZwPfANV/blKD5vYpfP/gClgGlaVV2/rzPnf/hKLwQwwjVp VjhMZjUMARsJ
Kc4zgEnAzjmorzX5dSuFuL3UZJ5kUKjs4BQDoBjGOcn8a+irHWbbULy8tLdy ZbNlWbjgbgSM
HHPQ1cjmZ/MyB8rFQBRDPKV+eFFff/wB/UHKP8Rtf15nzkfF+oNdi5/tiXzl DANleA2N3GMH
O1eueg9KrjxBMFbOos266F4xchiZh0fJHB+mOOOnFfRd3qYt4GlSMzIp25Uj GR1rG07xxp9/
qi6c8c1tcucR+YBtc88Ajvx0OPxrSOaRceaOHWnn/wAAh4WKlyuq7v8ArueG zeIp7iJI5tUa
RY2dlLBCylm3sVbbuUluSQRVl/GeoyMDJrUrAbwFJXaQ/wB4EYwQcd819HFj /kVXur4WsLSF
HkCkghAP6ms1m1HZYdff/wAA1lgpWvKqz5zXxRdrKJRq83mic3JbePmlKbNx 9flJGOmD0pje
IriSWWWTVJHkmlimkdnBLNGcx59lPQDivd7Pxppd3qCWDNLb3LnaiTIAGPoC MjNdDuP+RVyz
aEHaWHX9fIiGDc17tVs+bF8VX627W41mfymlaZl3j5nZ95PT+9zjpmqt5q51 Gbzr28898EAv
twBknAAwOpJ/E19Jz3xjEojUSvEBvXcBjI4z1IyPauak+IVlZ3Qh1K1ltkzg zKwdF+vAP6VV
PNV8VPDrTz/4BFXCxjpOq9f67njreLtRZ4HbWZt0DiSM7lyGCFAxOMsdpI5z 1qBvEVw2pLqT
6k7XykbbgsNy4GBjtx9K+lw5IyCCPaqupalHpdk93OCYk+9jAwO5OcAAAE1n HOqUdVQX3/8A
ANv7Ok9HUf8AXzPm9tbd5TKb8+Z9nNqGG0bYiCCigDAGGPAHf1p0fiCWKSze PUGVrEMLUgg+
TuOW259T/KvZh8UvDZxi6z+K/wCNa+g+K7HxHNOlhuZIYkkMp2lW3M64GD1B jOc+ooWeUXoq
K+//AIBcsqqxV5Tkv69TwWPxLdRR2kaapIEtAqwICoCgJsGePm+X5ec8cVNc eLtTuoXin1ua
RHG1gzLyNpUjOOMgkHHUGvpDcf8AIoyf8il/bFH/AJ8L+vkT9Qn/AM/X/XzP lv7Va/8APRPz
o+12v/PVPzr6k3H/ACKNx9f0ro/1if8Az6/H/gGP9kR/n/A+W/tdr/z1T86P tdr/AM9U/Ovq
TcfX9KNx9f0o/wBYn/z6/H/gC/siP8/4Hy39rtf+esf50n2u0/56x/nX1LuP +RRuP+RR/rFL
/n3+P/AH/ZEf5/wPln7Xaf8APWP86Ptdp/z1j/Ovqbcf8ijcf8in/rHL/n3+ P/AD+yI/z/gf
LP2u0/56x/nR9rtP+esf519Tbj/kUbj/AJFH+scv+ff4/wDAD+yI/wA/4Hyz 9rtP+esf50fa
7T/nrH+dfU24/wCRRuP+RR/rHL/n3+P/AAA/siP8/wCB8s/a7T/nrH+dH2u0 /wCesf519Tbj
/kUbj/kUf6xy/wCff4/8AP7Ij/P+B8s/a7T/AJ6x/nR9rtP+esf519Tbj/kU bj/kUf6xy/59
/j/wA/siP8/4Hyz9rtP+esf50fa7T/nrH+dfU24/5FG4/wCRR/rHL/n3+P8A wA/siP8AP+B8
s/a7T/nrH+dH2u0/56x/nX1NuP8AkUbj/kUf6xy/59/j/wAAP7Ij/P8AgfL1 pqVra6hbXW5H
8mVJdu7GdrA4z+FdAniKzW2lto/EFstrJJv8t45gWx03AIRn2yR7ng19Akk/ /qo3H1rysxxl
HMOV1qb07S/4B6eXqrgOZUZb23V9j57bxDZb7Lz9eglt7OYTJBHHMTkMGIXc gAzjue9bHwfd
ZdQ8QuuMMtsePrLXtgJJFeSfD1mfxp4zZmLMZoCSTkk5mrHDKhSw9WnRg1ez 1lfZryXc2xOI
rYmcZ1ZJ2vsrbnR/DEkfDyLb13y4rjLa8a/tHvrkEQXe17jaMn5GCDjuMt09 q7b4V/8AIh2v
p5r/AM629V0O3uoC9va2qXPnRzs2wKZSjbsMwH5HnFceZYWNfFydR6Xdzzp4 f21OLvsjxjXf
FkaRiGxtJIWgGI50nILYzhsBQR9M969p8LXU1/4V0q7uZDJPLbI0jnqxx1rx zWvAXibU9ZnE
GluiSyEiSR1CqD64Ne1aFpz6ToFhpzyCR7aBY2ZRgEgc4r0cZ7GNOEKT2FgY TjzOaOB8XW2o
2d//AGnJGyJAwMLqdwJPBO7sTnvXFax4ki0+IR6ZBNDMq4aUSFCCCeBt5I6d +9e7arZvf6dL
bxuqO2CpZcqSCDg+xxivH9d+HHiXV9buXhs4IYZpS3mNMpRQfpycfSuXK8Lh KE3Vn8WtrvT0
MK+Ekql4apnrHhq6mvvC+l3Vw++ea1jeRv7xI5PpXJ+J/EL2EANxDHIGvHiE h+VkUYIPfPBx
jjpXZ6Rp40jR7LThJ5gtoEiD4xu2jGcVw3jvwzqt9beXYWjXSm5ecFCAQGA4 IJ65HXpj0p0Y
U6k3Cbsnc68XGp7L3NzmIriPV9Wew02F7yeQtcXHl9MFvlGenUgk9q9Z0HSW 0XSktHl8ybJd
yPuhj2X2FcL8MvA2raBqlzq2qKsBkh8mKHcC3JBJOOnQV6fn61xRwNDC1GqT v5iweHVKPM92
cX4p11tNttQkltY7mOCVEjUtsYBlz97B9PSuHstYttYtIrUx7W89nS2Vg7lj wABxnOfT+Vdj
460XULvTr0WVq919okjcCLGV2qQQQfw5rkfAfgXXYfFtrq19amytrUlv3xAZ zggAD+prvxGF
oYjB2lKzTOarRq1K3LK9jtfAVhd2japNeWs1vNM0e5ZAeMbhgE9cDHPvXXw9 Zf8Arof6VIT7
1HD1l/66n+lcFKkqUFCJ6VKmqUFCPQ8u8XzS2Wl3k9tPLbytqMgdoXKFhgfe x1x71gaPoV7a
azod/wDbRdatOpuooJmYpFHjjc2SSSOw/wD1+g+LPBdzrVrLFp93DEJJvPaO YHG4jBII/l68
1j6Hp3iXw3rEjXGnteK6Kvm2+HDADgAnG3r39vSurG4uUcPGnS6vW3T/AIc8 ypRqRq3s7aar
odr4f1aXWNNE1xata3SNsmibPDYB4zzggg1x/i6aazg1u5tppIZhPF88bEHl O/r075rs9CsZ
7Kydrts3VxIZZAGLbSQMDPfAA/GsvxP4TfW7W4Szult5LjaZFkUlGK8AjHKn HHftRg58ji6h
216dSdJJbnj+n22qXV1Y6vavNqupxSiaOzVsiNVYLvkPYEsBge5zwa9p8K+I T4isLiSWGOG6
tZ2trhYpN6Fh3Vu6nrXnWk+A/FnhTW5b2yhsr55I9kU6TbfKyeTtbGTjI545 r0rw3ox0iynM
scEdxdTGeWOAfu4yeAq+oAFY1K9WtWcpbfoezVoYWhhoxpWbdtet+t0cv4tz FLr9wjFJ0jgC
SoSrqMHIDDkA+ma4DQ/CGp+Lpo7m+u7iLTwwxJIxZpSOyA/kW6D3r13xHopn gnvIYGuiVQz2
Y/5eFQ8AHscce/SqzWN7qsws4Ip7GxZFMs7jY6xkcQoOxHQ44H1roq46rRoq nQjq+vY8ilg4
yqudV6Lp3JPC15qV7qmrtLK0ulpIEt3kYMS4zuCkAZUcD9Ks+Nv+RP1L/rhJ /wCgNW3bW8Np
bR29vEsUMY2pGgwFHtWB47nWLwleoVld5o3jjSKF5GZijYGFBNc6VkdTd2fN Dj5j055r2P4L
l2bVGKKkX2a3VFVySSJLjcxGBgk9uf6V5UdI1ZicaRqfP/TjL/8AE16n8IXm s7y/t7yyubMy
W0CQRyQSruKPMzkkoFBO4HGT1H0Hn4ODU22j6zP69OphoqMlJ36fPzPWqKKK 9I+RCiiigAoo
ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoopKAFH3h9a8k+ Hn/I5eMv+usH
85q9bH3hXknw8/5HLxl/11g/nNW9H4J+n6ol9DY+G1ldXPgq1eLVLm2Te48u JEIznrllJrrf
7Kvx01++/wC/cX/xNYHwr/5EO1/66Sfzrte9PGJfWJ+rJoP93H0Mn+yb/wD6 D99/37i/+Jo/
sm+/6D17/wB+4v8A4mtaiublRrcyf7Jvv+g9e/8AfuL/AOJo/sm//wCg/e/9 +4v/AImtaijl
QXMn+yb7/oP3v/fuL/4mj+yb/wD6D97/AN+4v/ia1qKLILmT/ZN9/wBB+9/7 9Rf/ABNH9k33
/Qfvf+/cX/xNa1FHKguzJ/sm/wD+g/e/9+4v/iaP7Jv/APoP33/fuIf+y1rU UcqC7Mn+yb7/
AKD17/37i/8AiaT+yL4Zxr16M8n91F/8TWvRRZAZP9k33/Qevf8Av3F/8TR/ ZV//ANB+9/79
xf8AxNa1FHKguZP9k33/AEH73/v3F/8AE0f2Tf8A/Qevf+/UX/xNa1FHKgMn +yb7/oP3v/fu
L/4mj+yb7/oPXv8A37i/+JrWoo5UFzJ/sm+/6D97/wB+4v8A4mj+yb//AKD9 7/37i/8Aia1q
KLILmT/ZN9/0Hr3/AL9xf/E0DSr8dNfvf+/cX/xNa1FHKguZP9lX/wD0H77/ AL9xf/E0f2Vf
/wDQwX3/AH7i/wDia1qKOVBcyf7Ivh/zHr3/AL9xf/E0f2Tff9B+9/79xf8A xNa1FHKguZP9
k33/AEH73/v3F/8AE0f2Tff9B+9/79xf/E1rUUcqC5k/2Tff9B+9/wC/cX/x NH9k33/Qfvf+
/cX/AMTWtRRyoLmT/ZN9/wBB+9/79xf/ABNH9k33/Qfvf+/cX/xNa1FHKguZ P9k33/Qfvf8A
v3F/8TR/ZN9/0H73/v3F/wDE1rUUcqC5k/2Tff8AQfvf+/cX/wATR/ZN9/0H 73/v3F/8TWtR
RyoLmT/ZN9/0H73/AL9xf/E0f2Tff9B+9/79xf8AxNa1FHKguZP9k33/AEH7 3/v3F/8AE0f2
Tff9B+9/79xf/E1rUUcqC5k/2Tff9B+9/wC/cX/xNH9k33/Qfvf+/cX/AMTW tRRyoLmT/ZN9
/wBB+9/79xf/ABNH9k33/Qfvf+/cX/xNa1FHKguZP9k33/Qfvf8Av3F/8TR/ ZN9/0H73/v3F
/wDE1rUUcqC5k/2Tff8AQfvf+/cX/wATR/ZN9/0H73/v3F/8TWtRRyoLmSNK vxj/AIn97/37
i/8Aia4bwhYrpvxC8aWiSPIqGzO98ZJZZGOccdTXp9edaF/yVHxz9bH/ANFv XRQSUZ+n6oiW
6ND4V/8AIiWv/XWT+ddr3rivhX/yIdr/ANdJP512tVjP94n6v8yKH8OPoRoJ JF3K8arkgAoT
0OPUUvlzf89Yv+/Z/wDiqLc/uR/vN/6Ealz271xXZ0WRF5c3/PaL/v0f/iqP Lm/57Rf9+j/8
VUuc0Zo5mFkReXN/z2i/79H/AOKo8ub/AJ7Rf9+j/wDFVLmjNLmYWRF5c3/P aL/v0f8A4qjy
5v8AntF/36P/AMVUuaM0czCyIvLm/wCe0X/fo/8AxVHlzf8APaL/AL9H/wCK qXNGaOZhZEXl
zf8APaL/AL9H/wCKo8ub/ntF/wB+j/8AFVLmjNPmYWRF5c3/AD2i/wC/R/8A iqa/mRLuZ42G
QMBCD1+pqfNQXZ/cj/fX+dHMwsiXpVO6L/aYoxK6KY5GOw4yQyAf+hGrhqnc /wDH7D/1xl/9
Diqp7ExGbW/57z/99j/CkbKqWM84AGSd4/wp1R3H/HtN/wBcz/I1hzPuaWRI VYEgzT5H+2P8
KTa3/Pef/vv/AOtUkn+tf/eP86w/Fryp4XvDC7LITEqlZmiJzKgxvX5lznGR yM9+lHM+4WRs
bW/57z/99j/Cl2v/AM9rj/vv/wCtXHz6zfaFqmnaOtlEvnBHlEuoNcbi8jIV jkmdHO0LuOEf
7wGF4LQ2+v6lrc2h/ZLvTEuLi5UtChkP2XfazsYZ1DfM6FRxlMsOVTAJd5dw 0O12t/z3n/77
H+FG1v8AnvP/AN9j/CuP0jxwdV1vSrZYIo4dRtkk8pnXzYXa38/rv3OuBtz5 Sg5+9wAeypXl
3CyG4JJHnz5GM/OO/wCHsaNrf895/wDvsf4UL/rJf91P/Z6fHgyKD0yM0cz7 hoM2t/z3n/77
H+FGG/57z/8Afwf4Vwuk6za2nh2xvY9WEmsTWtuNRW6vHmjtpHKCSSWMviLa 5YbAY/4h/DwS
eNtUS3nuRFYNFA8kYwrky+XDLMZFbfwkiwnaOceYrZcDDO8u4aHdbW/57z/9 9j/CjDf895/+
+x/hXF2/jG9uNQS1ifTJWmvZLcrErFrRUulhCy/Ocs6sXX7n3G4YdNDwz4oP iDUtTttsRitw
ksLrtVtjtIAroJHKuAnO7Y3OCi4ovINDo2yqkmecADJO8f4UpVgSDNPkf7Y/ wplx/wAe0v8A
uN/Kp5P9a/8AvGlzPuGhHhv+e8//AH2P8KMN/wA95/8Avsf4VW1S3uLvSrq3 tJjBcvERBJvK
hZOqkkc4yBn1BP48le+KL23tH1uGJoorq4jskW7ZVS22JI0jOplRM+YGi/1g 5AGTtAJeXcND
ttrf895/++x/hRtb/nvP/wB9j/CuE1DxbrL6MbmOK0sxNOtsgBaR4XFuLhmc 8AooDKRgZHzZ
XGK2NM8UHUPGV9ooWJooo5pFcBVdTFJGjBlEjMQxkJUsqcDI3BsgvLuGh0e1 v+e8/wD32P8A
CjDZI8+fjGfnHf8AD2p1NX/WSfRP/ZqOZ9w0Da3/AD3n/wC+x/hRtb/nvP8A 99//AFq5ifUt
Qh8TT2Nk8Bku7yG2jNzuZIB9lllLBVIzzF0yM+o6jAXx7qa2Ud4ttbsl632i KKd0AhQwQOsG
5njBLmVtrDJwjYR/4XeQaHo21v8AnvP/AN9j/Cja3/Pef/vv/wCtXCJ4pv18 QTu91YqCDBHp
7Fg84S9nh/d5f/WYQFm2tngYGOZbLxpfarrQ0qwjsd012sUU0y48uNo7hxvj SVm3jyBlW8tj
kgqmMgvINDtsN/z3n/7+D/Cja3/Pa4/77/8ArVx1h42e+sxfu1lbo1qkwsTu kuVDQLKJeoDR
5fZyEHU7xjac+Hx3fXdpcyiztbj7E0OY7Z+Z5HlwNjRyOoGFxty+SeehWi8g 0PQdrf8APef/
AL7H+FIxCoWa4uPvbQPMHXBPp7Vk6Bq76qt0Gns7pYHULdWQIik3LnAG5uV6 H5j9BV2/jnk0
6VLZ2SYyna6puKfIQGx7Eirp3c0mTKyVwW73TLH5lxywU7ZgSCf+A++a0NPl M1kshYtlnwT1
IDsBn8MVyOleHX0nUoZ7eS7KPj7SsqlhK+QfMJPQ9c+vHpXUaNkaTACMHL59 vnaumpCMWrGc
XdF+vOtC/wCSo+OfrY/+i3r0WvOtC/5Kj45+tj/6LetKPwz9P1Qpbo0PhX/y Idr/ANdJP512
lcX8K/8AkRLX/rrJ/Ou0708Z/vE/V/mRQ/hx9BkBIi4P8Tf+hGsLWdVkilul +0va2dmimeSN
QXd3HCjIIAAwc+rD0NbkP+q/4E3/AKEao3+lm5naeCWOOV4/KlSaPzI5VGcB lyOmT0I61w97
G802tCDRNTkuZoomuDcwXMH2m1nZdrlAQrKwA6gsmD3yfSs7Rde1mfSdD1XU WsJLfVo4CIra
B43haVAy8tIwYA8Hheue2DuWFgbSZ55pvOuHVVyF2oiLnCIoztGTn16cnArM 0rwy2nWum2c+
qTXtlpqRrbQvCiYMa7UJKjJwB+fPahhG9tRs/jK0eyEtiJGeTyngM8LIk8TS xoZIycblAkU5
H95fWnzeOdBgvr6zlvSk1lHLLKhQ5KxqWfA6kgAn3xVeHwZDHb2sEmo3EsNl AltZqVVTDEsk
T7SQPmJ8iMZPofWm33guK/t7i0k1KdbST7SUiWJMxNOsiud2MniV8A9Mj05R R01tdLdW6Txb
/LcZXehQkZ64PIz157VLuPrSHk5980UALuPrRuPrSUUALuPrRuPrSUUALuPr UF0cwj/fX+dT
VDc/6of7y/zoAnNUbxyl1EwQsfJk4HX78VXjVO5/4/Yf+uMn/ocVaT+EiO5X +0P/AM+8lRzT
nyJN8EipsO5vQetY/jTXL/w/4eW/020F5d/aoY1tiCTMGcKVGOhIPB/Q4rZu XZ9Lmdo3iZoG
JjYglDt6EgkEjOOCR71zGqGTatbxzukzxRyA/MjzIpXPqCeKZ/bFn/z3t/8A wIT/ABryfxwo
/wCE21Ucf61eT2+ReabAljJeQ28+nQJOY5t8aOw8obMpu55cENnpwRnnIHrr LY8kZOT1Vzge
LfM1ynrX9sWZxm4g/wDAhOP1o/tizH/Le39T+/Tn9a8fsLW2jsHmuLdJZmje 4iV84VI1Yc4P
IZj7Y8v/AGqkvLe2gWVDZRKs0UbQ7dxlaV40bCDP3QW/pyaP7OhzW5n9y/zD 63K17Hrn9sWW
c+fb/wDgQn+NH9s2f/Pxb/8AgQn+NePzwWUdnqUSW6PPaW6fvwxOZPMRXwM4 I+YjPfGR1pdc
tLWAyrBAkYgv7mzG3PzJHs2lsk5b5jk8Z9Kay2DajzPXyX+YPFySvZHrVzr+ n2MIubieNIpG
EYfzAylgCcAjPODVT/hNNC/5/ovzrzib/knlr/2FH/8ARdYFaUcqpzTbk9HY meNlF6I9l/4T
PQRnF9CM9ff9KX/hM9BwB9uhwO2eK8Yq9apC+l6kXhBmhhWRJSx+X95GpGOn RjzVyymlFXuy
Vjqj6I9Ut/FXhy0iMcF1DGhd5CAx5Z2LsefVmJ/GpP8AhM9ByT9uhBPXB615 zd2+m/aLCSKJ
fJa/eCSFEkEgjUxnZICOZAGIO3IJ6VPBa2FwLa6S3hkt7m7t7VMxNEQrmUOd odvmyi4O7pni
sHgaKV7y/Av61U8j0AeLtEuSLdL2NnlPlqAeSTwB+tPm8Y6LHPJHJeRpIjlX UnlSDgj8686g
treK+sxHCqPb3mnqHGdzebGZG3c+qjHAwOKx9X/5Dmo/9fUv/oZqqeW0pysm 7W8gli5xjex6
1/wmmh/8/wDF/wB9Uf8ACZ6FjH26LHpmvGKdGMyINhfLD5BnLcjjj8vxrf8A sel/MzP6/U7H
sv8AwmmhHP8Ap8WT70f8JpoXa+h/OvPLaCwlaHfa2xnN3bWk6RljGnmGXO3n 74CKM5xnNUrB
LOTTnh8tTfSSyiJpIWdCFjBA3BhtPXoGPI4xXP8A2fRs3eWnoafW6nkeof8A CaaF/wA/8X51
J/wleji2a7+1p5BcRGQnjcATj64Oa86vLWytbfVrhLOAnT554Iw24qypLCgL 88tiQ+nNJqtt
HZ6Bf20QIjg16SJMnJ2qhA5/CpWAoyas3+BX1qp1R6F/wmmhf8/0R/Gk/wCE z0I8fbovzrxm
iur+x6X8z/r5GP1+fY9m/wCEz0HP/H9DntzR/wAJnoWT/p0XJyea8ZqxZKWu lCwJMeTskJCD
g8scjgdT9KTyiklfmf4DWOm3sevjxpoQORfQg4xwcf0pP+Ez0LtfRfnXnEsG nvb/AOjwxlZb
eebzRuyHjXkpzwhYNgEZxjODUum6faXKxwS26EiyF5vBO4t52zBOfu4PTH41 h9QoKPM2/wAC
/rVS9tD0P/hNNC7X0QGc9a0Ir22v9ME8KxzQSyZUuoZSMNyM+6/pXlqWllJb abMbSIHUA+8D
OE2rkbPm4565zXdeFP8AkSNLPf8A+vLWc8LTptSi3v1/ryNIVpTupI0Y44Vu YdttbKd45ECD
v9K19Jcy6bHI3V2kY/Uu1Za/8fEP/XRf51paL/yB7f6v/wChtWddJNWLh1L9 edaF/wAlR8c/
Wx/9FvXotedaF/yVHxz9bH/0W9VR+Cfp+qHLdGh8K/8AkRLX/rrJ/Ou171xX wr/5ES1/66yf
zrte9PGf7xP1f5kUP4cfQhh/1X/Am/8AQjVW+1SKylSAQzXFy4LLBAoLY9Tk gAdskirUP+q/
4E3/AKEaypiNP1me7uI5GtrlIwJkUt5RTI2sAM7ecg+pauFLU6G9C9Y6hFfm RESSKaIgSQzL
tdc9D7g4POccVW0/xHpGrSRx2N6szSJ5kfyModcZypYANxzx25pbJje6z9vj ieK2jh8hGdSr
TEsGJwRnauPlP+2/Fczp3h/XV8AafA99M2o2mlIbO0aKOPyLtYMJlu+1uOeP XNDSBHcnjrRX
n1pZaqNJ1MC81jyZDB5Y8i5DAguZMeZOZyCDHnYy9Btyd+C/h1uTT3DR6yt0 dNCaX9nnmwl1
um+aYqehH2c4m3ADcCSQ5KsM7ye4htYjLPII0DKpZvViAo/EkD8alxXNeJtL vtfvIdNiW3j0
6JGluWuoXdJy4ZFjXa6ngbmY5HPl4zk4yBZ+JpVvTeT373FrZW0AeCQxx3bC aUTSooP32i29
MYLDHKoQWA7z/wDXRXm8y6ncJfQ6fNrSWcOpR70uJLiSdYTbAgAJIswBk2nG 4HqWyKuQafr/
ABcvdao7QW9mbdd7Rq7G6m37o97biISgIckkEFssBgsB28dxDM7JFIHKjJ28 gclevTOVYEds
c1LXnljoWr2kstgh1WCyN1CSVu5T8hu7p5CHLE8xtFuIOeRzkcLeW2utZXUc 39tNcC2li0k2
80wCTiacKZih+YbPsvM24EAk9XJLAehVDc/6of7y/wA6mJ5P1qC5P7sf76/z oAsmqd1kXsOB
k+RLxnH8UVXDVO5/4/Yf+uMn/ocVXP4SI7kHmS4H+iyf99x//FVFdvIbK5DQ Og8l/mLJ/dPo
SatDpUF7/wAeFz/1xf8A9BrmNTjvEHw91PWNfvdQSaGNJ5NyqRnAAA5OR1x+ GarzfD7xLctG
9xrckxjzsaWVmK564JbjPQ16selcPHdarNJDpk2rzlptamtHuokjSQRrbvKA vBA+ZR2PGfWv
RWMrJJX2Ob6vTvexzcfw012KWKVNSRJYhiN1YhkHop3ZFWF8A+KEQomuyqjP 5hUTuAWJzuI3
dc4OfXmtC18Q6rrWmaJdJeNbpPaWcV28KAb7i58t2KZB2lEB9QfO9Vq5puo6 hcywOuqTyPbX
M8V0sgRYI7eKaSPfK2M+YVQYwRzk4ABw3jKr6/gH1emcyPhdrCK6i9hAcAOo 43AHODzyMgH8
KfN8NNduVjE2pCYRoEj8xi2xfQZY4HsK6q2vtVl1HQrx7yWOz1K+mAs2hVSI fIlePJI3A4RW
wcEbsHpR4G1S/wBQWJr28e4N1pFjqRDqo8uSfzd6rgDCfIMA5xzzTeOrt3v+ Avq1Lsc/ceAd
Wbw5BpMclu0y3jXO53KqV27eMZ5zj86yh8LfEOB89j/3+b/4mvYH/wCP+H/r k/8ANKnHSnDH
1oKyYSwtOXQ8Y/4Vb4h/56WP/f5v/iaVfhj4jVWRZ7IK42uBOwDDIOD8vIyA cewr2VhlSBWF
q8t7beINA8q8K2tzdPBNb+WpD/6PM4O48jlF4HpV/wBpV/L7ifqlPz+887l+ HXiudAk19BIo
QRgPduwCA528joCBge3SpD4B8YNO87anGZpE8t5DeybmX+6TjJX26e1dP4X1 LVpZ9RttUvHV
o9PguftMjQvEXcyhpYSh/wBR8gKh8HHUCszU7nxDbAXUGo3b6NBBdXLtLcxw XUkSCE71Bibd
j95tBCj5huYZXM/X6vl9w/qtPz+8zbX4e+JorywNxd28lvaTK6RfaWIRQwJC gjA6dsVFefDb
Xb2+ubuGSy8qeZ5UzMc7WYkfw+hFddoGq39z4kiWa8eWC8XUmMTBQsf2a7jh j2YGRlXO7JOT
zxXWWX/Hhbf9cl/kKSx9ZS5lb7g+q07WPH/+FW+If79j/wB/m/8AiaVPhh4j jkV0mskdSCrL
OwKkHOR8vXNezVHKjvG6o+xiCFbGcHHXB98flV/2lX8vuF9Tpef3nk7eBPGc khlfVlaQoY95
vpSxQ8lc4+6cDj9KhT4deK0SRFvoFSVVSRVu3AdVGFBGMEAcAHoK2NR1fX7f wu17HezXM1od
UMhgMKTO0E7LG7K5AMKqpDhfmy0eAeTWxrOtXNt4kSJ3vksLe1t55JLQRFEa SSRT5oc7mU7A
BsBI+bPapWPqrRW+4f1Wn5/eckvw/wDF6SwyLqcSyQp5cTreSZjXGNqnGQPY VMfh9rf9gf2Y
z2f2lrw3WfNO0qE2nnbnOSP8a6BbvVZZ4tMm1ebdNrklm1zFGiSCJbR5gF+U gfMo5weM+tbf
hq/n1XQNA1G5Km4u9MSeUqMAsyxscDsMmk8dV8vuGsLTPNv+FW+If79j/wB/ m/8AiaP+FW+I
f79j/wB/m/8Aia9norT+0q/l9xP1Ol/TPGP+FW+If79j/wB/m/8Aiakg+G3i i0nEttd2sEoB
xJFcurDPuFzXsdYviuW7t/CurXFjdm1uoLWSWOVUVypVS3RuO1J5jXejt9wf VKfn9552fAHj
Fi+7U42Mjq75vZDuYYwx45IwME88CmD4deKxBHAL6ARI/mqgu32q/wDfAxjd 79eetdZqmoav
a69ZyI8z2jz2sP7p4jFGJGCuJVJEm47vlKgjpnvUPizVdQ0i/hls9Rm2XMpt 2DCNoY28tm8t
QPnE3yh8t8u0MM5Kgz9fq7afcP6rT8/vOab4feLnMzNqULG4AEzG8kPmgdN3 Hzfjmuw0jTJ9
H8PWWn3ezzoWCtsbI/5aHg8dj3xWPLq2qwX+tWy6pcMuimExFghabzGGRKdv Ix0xt/Guu1L/
AFjY/wCeiY/75apeJnVajK25UaEIXaMxWb7XANhUFxyVx3H+0f5Vq6L/AMgi 3+r/APobVkxR
Rx3UJSNFJdeVUDvWtov/ACCLf/gf/obUV1ZoIdS/XnWhf8lR8c/Wx/8ARb16 LXnWhf8AJUfH
P1sf/Rb06Pwz9P1Q5bo0PhX/AMiJa/8AXWT+ddp3ri/hX/yIlr/11k/nXaGn jP8AeJ+rIofw
4+hDD/q/+BN/6EakAJPH6Co4f9X/AMCb/wBCNY9zbrq2t3FpdEvbW0cbLbFv lk37suw/iHG0
A8ZB9RXCldnQ3obhHPPXHp1/rSAYAHp6isyxhGn622nwO7W0kAn8ouWEBD7R jJyFYE4HQeWc
VynhjW72ey8OXEt7rE82oRQ/aWv7YJbZePcSjhF5LfdwSDn05A1YEd9gUYrj NO8frf2T3Y07
MT2ourby5mbILIqpLujUI581MKhkzh8ZIG6xY+JbvUtR06CS1exlW/kt7qH5 irj7K8q4MkaP
j7p+6OR3HVDOrx+frTZYo54ZIZo0kikUo8bqGV1IwQQeoI9fWn5HpRkelAFa x06x0y2+zafZ
W1pb5LCK3hWNAT1OFAGas0ZHpRkelACYoxxS5HpRkelABUNz/q1/31/nU2R6 VDcf6tf99f50
gLJqndZ+2RYGT5EvH/AoquGqdz/x+w/9cZf/AEOKtJ/CRHcg3yjrayf99x// ABVRXbSNY3O6
B0HlPyWQ/wAJ9GNWR0qG9/48Ln/rk/8A6Ca5zU1GuuSvkSH/AIEnP/j1Urqx 0y+tZbW70e3u
LeZ/MlimiidHfj5mBOCeBz7VZI3TEHu2P1rgNJ1S/vbCA3WrX5e80yx1BUtU j85pZxMWiiyu
Av7tSM9ADlgMkaKTEdxNbWFxbT202lxSW9wS00TpEySk45YE4PQdfQVTl8P+ HppVll8Nae8i
RCFHa1gJWMLtCAnou3jHTHFc/eX2stNZWr3ghkiFvZX8tqo2yXMrIXMZYcbF U4yORNyAVpdO
vtQuZLdxqc8j29zNHdK4RYY7eKaSMvK2P9YyoMYI5ycBQSHdiOykeKWSKSS0 LvExeNmMZKMQ
VJHzcHBIyOxI71DZwWOnNO1lpcVs1xIZZjCkSGVz1ZsHkn1PNc3a3mpzaloV 095IlnqV7MBa
NEARD5Erx5JG4H5FbHBG7B5FM8H6lfX6wveXclx9q0iy1Ihwo8uSfzd6rgDC DYMA5I55NLmY
zrHuSbqN/IfARx95PVf9qpvtnH+ok/76T/4qqjf66L/df/2WnUOQWLP2z/ph J/30n/xVRSyR
TPE8lmXeFt8TN5ZKNgrlfm4OGYZ9CR3qOsnUpbuDxBoSx3TC1uLmSGa3EYO/ EEzg7jz1ReB/
9ahSAurpejosypodoqzyNLKBBCBI7KVZm55JVmBJ5IYjvUMegeHobdbeHw1p 8cCTC4WNLWAK
soGA4HTcBxnrWH4YvNXuLy9stQnlaUWFvcLOxieN5JDKrSQbD/qTsBUPhsdR Wbdavq66R/yE
5RNb2ms3bTIiKZXtbhY41YYxs2ucgYJwOfV3Yju7e3sbW9uLu20uOK6uiDPN GkSvMR03MDls
Z71La3JS0hQwu22NRkMmDx/vVyvh/Ur641+3E928sV4NRYxMAFi+z3ccKbMD IyrnOScnHSuj
t/8Aj1h/65r/ACpOTQy79sP/ADwk/wC+k/8AiqPth/54Sf8AfSf/ABVVqbIG aNlRijkYVsZ2
n1xS5wsRz2Gl3UccVxo1vNHFMbiNJIomVJSSxkAJ4YlmO7rkmiSw0uWa3mk0 e3eW2keWB2ih
LRO53MynPyknkkck81xOoaprsHhZr2K7nuJbT+02lMHkpK7QTssbsrkAwqqk OF+bLR4B5rU1
XVbmDxJDC730djDbW88slqIiiGSV0/ehzuKnYANgJHzH0qrsR0d1Y6ZfWs1t d6PBcW8ziSWK
aKJ1kYY+ZgTgngcnngVOZttxEywMEWNlChk9V6fN2xXnul6rq2oXGgWcurXK DWbW0u5pIxGH
iaWC6kZYjtwF3QpgEE4zzzXWeHr6bU/Dmh6hclTcXenxzy7RgbnSNjgdhk0X YG79s/6YSf8A
fSf/ABVH2w/88JP++k/+KqtRU847Fn7Yf+eEn/fSf/FVFPJFcwyQT2hkikUo 8b+WyspGCCC2
CCM8Go6y/E0l3B4X1S4sbo2tzDayzRyhA+0qhPQ8dqOZhYvXFhpd3dJdXOj2 81wkTQrLJFCz
KjAgqCTkKQSCOmCaVrHTGvJbxtHga5mhNvJMYoi7xcfIWzkrwODxXNalf6ta 63ZyI072ck9r
CfKeExRiQgN5yk+ZvOfl2jHTPem+IbvU7See402/ndYiEu1ZU8mBWAVVQ4yZ t7K3JIC7s4yg
arsR0aaVo0SWSR6FaKtiS1oFghAtyTkmPn5CT1xikv2LZYqVzImASCfut6E1 xk2q6pBf61bL
qlwyaKYTGWVN0+9wCJfl546Y24967mS3WeaSMuwA29MHP4EEdvSqhK0k2KSu rGUv/HzD/wBd
F/nWnovOj25/3/8A0M1LHpUIYN5smR/sx/0WjTwBZ4AwBLKAB0H7xq2nUU2r GcY8parzrQv+
So+OfrY/+i3r0WvOtC/5Kj45+tj/AOi3raj8M/T9UKW6ND4V/wDIiWv/AF1k /nXa+v0rivhX
/wAiJa/9dZP512v+FPGf7xP1f5kUP4cfQgh+4f8Aeb/0I1Xu9Piu5I5S0sU8 YISaFyrgHt7j
2II/Gp4j+7/4E3/oRqheahcfbPsVhDG86oHlkmJCRhs7eB95iQeOOB15FcGt 9Dodralqzsor
IMYjI0kh3PLI5dnPTknt6AcD0qOPSrGPTrSwW2C21oIxBGGIMflgbMMDnjGM 5PH1OUsbueW6
ks7yFIrpFDgxsWSVCcBgSM5B4IPTI5Oao6R4ifV7O3vv7F1Kz0+4txcpeXT2 wj8sruBIWZmG
R6rx3xTd+o1boSxeGNIgjkjS1kKOnlqr3EjLCmQQsILEQrlVIEe0DYmMbFw+ 08P6dZTpPDFM
0yv5gknupZm3bWTcS7MSdrsueeMD+FQLz3VvExWS4iRgwUhnAOSMgfXHamW9 /aXcs8VteW88
sDbZkilVzGckYYA/KcqRz6H0pDLOKMe1Jk+tGT60gFx7UY9qTJ9aMn1oAXHt Rj2pMn1oyfWg
BahuPuD/AH1/nUufeobj/Vr/AL6/zoEWzVO6yL2HAyfIl4zj+KOrhqnc/wDH 7D/1xk/9DirS
fwkR3IPMlx/x6y/99xf/ABdRXTyGxuQ0DoPJf5mZOPlP91iatDpUF7/x4XP/ AFxf/wBBrnNS
86zbyfs8hGSc7l/xrKk8N6RPBLFN4bsHimm8+RHtICrykEbyOhbk8nnk10na vMrLXNcm0KK6
/tdxLNY6VqT7oUODcSOska8DCfKMZyRzzzWqiibnYf2TZmwew/sa3FnIMNbe TF5TAADBXODg
Ko6dhVd/DOjSyJLJ4Z095EjEKM9pAWWMLtCg9l28YzjBx7VV13Ur59ZW3sbx 7a0jkis53jVS
WlmkQ/KSDgoinsQfO9Vqvp2o6jcy27rqk8klvczxXSOqLClvFNJHvlbbnzCq DGCMnJwFBIfK
h3OjeBpJInksy7xNvjZthKHBUkHOQcEjPoSO9Q2emwWJmaz0mO2NxIZZjBHE nmOerNtPJ9zk
1kW1/q0uoaHePeSR2WpX0wW0aFVPk+RK8WTjcMhFbBwRuweho8D6rqGorE19 eNcfatIsdSIZ
VHlyT+bvVcAfINgwDkjnmlyoLm8yzefH+4fIV/lynPK89fb9afsm/wCfaT80 /wAatP8A8f0P
/XJ/5pU46UcqC5nbJv8An2k/NP8AGo3gMrxu9mXeJt8bERkoxBXK88HDMPoS O9ajDKkCsLVp
b228QaB5V3ttLm5eCa38tTv/ANHmcHceRyi8D0o5UFxbfSLO0kaW20a3gkaU zs8UUSFpCCC+
R/EQxG7rgn1pJ9Is7qKOK40WCaOKYzokkMTKspJYuoJ4Ykk54OST3Nczp+va 5aaZ4hkvpGlu
LLR0v45ZTE8MkpWbLwmM58gmMbQ+Gx161Bquraxp9/qWnR6vdEWGn3eoJLIs Zkd4o7dlR8Lg
pmZsgAHpzT5UFzsrbT4LW/nu4NJjiubghp5o44lebHTcwOWx75qSBJvs8QFu 7AIACCnIx161
g+H9W1C58RwrcXjSw3i6kxhKqFi+zXUcMezAzyrndknJx0rrLL/jwtv+uS/y FLlQXKuyb/n2
k/NP8aTbN/z7yf8AfSf41pVHKjvG4RwjEEK2M4OOuPrj8qOVBcxZtJsrmKOO 40a3liilM8aS
QxMqykklwCThiWY5HOSfxG0iymmgmk0aCSS3dpIHeGEtE7HLMpzlSTySOSeT zXJ6jq/iC38L
m+jvJrma0bVDKbfyUlcwTssbsrkAwqqkOF+bJjxnk1sa7cavBrcN1FdOmkQw 25nSG5jjfc8j
KTsMbFgflHLIMA4JOcPlQXNCTQNMkt7mGTw/ZPDdS+dcRm2hKzSZzvcHhmz3 PNXdkqyRKLZh
tRgFBTp8vTnoMVw+l6zrGoSaBaS6vcKNZtrS7lkjWMPCZbe6lZYiV4XdCgGQ xxkZ5rr/AA1f
z6roGgajclTcXemJPLtGBudY2OB2GTRyoLl3ZP8A8+0n5p/jRsm/59pPzT/G tGilyoLmdsm/
59pPzT/Go5YHnikgms2kikUo6PsZWU8EEE8g5I6c5rVrF8Vy3dv4V1a4sLr7 NdQWskscojV9
pVS3Q8dqOVBcjn0mzubpbq40aCWdIzEsskMTOqEEMoJOQpBIx0welRNoOlte yXzeH7I3bqVe
4NtCZGUrtILdSCvynPbis7VNR1i016zkR5ns3ntof3TQmFBIwVvNBIk3nd8u 0EdM96XWtT1O
w1LXFS9zEllbSW8flKPJZ5ZEYg9yQB19BxT5UFzSXQdOiS0VNAtFWyJa1At4 QLck5Jj/ALpJ
54xV+IMJ33KynA+ViCf0JripdX1eDUNatl1Wdl0YwmMske6fzGGRL8vIx027 fxruD/x+S46Y
WlawFtO1UbH/AI9j/wBdZf8A0Y1Xk7VRsP8Aj1P/AF1l/wDRjVUdyXsWa860 L/kqPjn62P8A
6LevRa860L/kqPjn62P/AKLeuyj8M/T9UZS3RofCv/kRLX/rrJ/Ou171xXwr /wCREtf+usn8
67XvTxn+8T9X+ZFD+HH0K0X+r/4E38zVCWC5tNRkvrW3FzHMqiaEOFfcoIDI W4JIwCCR90c1
ei/1f/Am/makrg5rM6LXRRtY7iXUjqN5GkJWPyoYlbcY0JDMWIGCzFU4GQNo 5NcjpHgu4s/D
EmiSaJ4fsJZ9JbTp9UspC80hMWwuymBNwLfMQX/M13eKWjmGlY5i30LUbnX4 tU1SPTlA1EXh
hikaUIBamIYZkGWD85wvHvSeHdA1HTpNMF6tmiaXprafG9vKztc5MP7xwUXY R5I4Bf8A1h+b
j5uopMe1K4WDHvRj3paKLgJj3ox70tFFwEx70Y96Wii4CY96jn+4v++v86lq K4/1a/76/wA6
AsWzVO6z9siwMnyZeP8AgUVXDVO5/wCP2H/rjL/6HFWk/hIjuQeZKP8Al1l/ 77j/APi6iu2k
axud0DoPKflmQ/wn0Y1aHSoL3/jwuf8Ari//AKCa576mprGeTp9lmPuCn/xV UIdL063juI4d
BhjS5l86dUhhAlfOdzAH5mzzk81r0VsiTMmsrS5tp7afR1lt7hi08TxxMkpO MlgThjwOvpVO
Xw3oM0qyy+FrF5FiEKu1pASsYXaEBP8ADt4x0xxW/RTApSKsssUkthI7wsXi ZvLJRiCpI+bg
4YjI7EjvUVlZ2mnNO1loyWzXEhlmMEcSGRz1ZsHk+55rSooApNNIbuNvs0vE bjbuTJ5X/a9q
lFxJj/j0mPvlP/iqH/4/oh/0yf8AmtTjpQBD9ok/59JvzT/4qopdszxPLp7u 8Lb4mYRkxttK
5X5uDhmGfQkd6uUUAZNvpmn2crSWuhQwO8xnZooYlLSkEFyQfvEMwz1wT61C ug6KlnFaL4Zs
1toZfPjhFtAEST++q5wG9+tblFAGZb2dpaXlxeW2jJDdXJBnmjjiV5cdNzA5 bHvU1pNIlnAv
2aRtsajcrJg8dfvVdqvZD/QLf/rkv8qAF+0Sf8+k35p/8VR9ok/59JvzT/4q p6KAMifS9Ouo
44rnQoZo4pjcRpJDEypKWLFwCeGJZiW65JND6Xp0s9vPJoUTy20jywO0MRaJ 2O5mU5ypJ5JH
JPJrXooAw30LRpLe5t38NWjQXUvnXEbW0BWaTOdzjOGbPOTzV3eyXMW21kVU jdQgKdMr0+bo
Mfyq/Vd/+P8Ai/65P/NKAF+0Sf8APpN+af8AxVH2iT/n0m/NP/iqnooAg+0S f8+k35p/8VUU
+LmCSCeweSGVSkkbiNldSMEEFsEEdjVyigDIuNL0+7ukurnQoZrhImhWWSGF nVGBBUEnIUgk
Y6YJqd4IJDKZNL3mWIQyFljO+MZwh+blfmbg8cn1rQooAxU0XSYks0j8O2yr YsWtAtvCBbkn
JMfPykn0xVpSTdSFkZMheGIz+hNaFUW/4/pvotJgWk7VRsP+PU/9dZf/AEY1 Xk7VRsP+PU/9
dZf/AEY1OO4nsWa860L/AJKj45+tj/6LevRa860L/kqPjn62P/ot67KPwz9P 1RlLdGh8K/8A
kRLX/rrJ/Ou0NcX8K/8AkRLX/rrJ/Ou1708Z/vE/V/mRQ/hx9Co0N0rERmLZ kkbiQeTn0pvl
3vrb/wDfR/wq7RXJyI35mUvLvf8Ap3/76P8AhR5d7/07/wDfR/wq7RRyILsp eXe/9O//AH0f
8KPLvf8Ap3/76P8AhV2ijkQXZS8u9/6d/wDvo/4UeXe/9O//AH0f8Ku0UciC 7KXl3v8A07/9
9H/Cjy73/p3/AO+j/hV2ijkQXZS8u9/6d/8Avo/4UeXe/wDTv/30f8Ku0Uci C7KXl3vrB/30
f8KPIupGXzGhCggnaSTxz6e1XaKORBzMKp3P/H7D/wBcZP8A0OKrnaqdz/x+ w/8AXGT/ANDi
on8Io7jR0qC9/wCPC5/64v8A+g1OOlQXv/Hhc/8AXF//AEGuXqam9RRRXQiQ ooooAKKKKAIH
/wCP+H/rk/8ANKnHSoH/AOP+H/rk/wDNKnHSgAooooAKKKKACoLL/jwtv+uS /wAhU9QWX/Hh
bf8AXJf5CgCeiiigAooooAKrv/x/xf8AXJ/5pViq7/8AH/F/1yf+aUAWKKKK ACiiigAooooA
Kot/x/S/RavVRb/j+l+i0mBaTtVGw/49T/11l/8ARjVeTtVGw/49T/11l/8A RjU47iexZrzr
Qv8AkqPjn62P/ot69FrzvQufij45+tj/AOi3rso/DP0/VGUt0X/hX/yIlr/1 1k/nXa964r4V
/wDIiWv/AF1k/nXa96eM/wB4n6sih/Dj6BRRRXMahRRRQAUUUUAFFFFABRRR QAUUUUAFFFFM
A7VTuf8Aj9h/64yf+hxVc7VTuf8Aj9h/64yf+hxVE/hHHcaOlQXv/Hhc/wDX F/8A0Gpx0qC9
/wCPC5/64v8A+g1y9TU3qKKK6ESFFFFABRRRQBA//H/D/wBcn/mlTjpUD/8A H/D/ANcn/mlT
jpQAUUUUAFFFFABUFl/x4W3/AFyX+QqeoLL/AI8Lb/rkv8hQBPRRRQAUUUUA FV3/AOP+L/rk
/wDNKsVXf/j/AIv+uT/zSgCxRRRQAUUUUAFFFFABVFv+P6X6LV6qLf8AH9L9 FpMC0naqNh/x
6n/rrL/6Marydqo2H/Hqf+usv/oxqcdxPYs153oXHxR8c/Wx/wDRb16JXnWh f8lR8c/Wx/8A
Rb12Ufhn6fqjKW6ND4V/8iJa/wDXWT+ddr3rivhX/wAiJa/9dZP512venjP9 4n6sih/Dj6BR
RRXMahRRRQAUUUUAFFFFABRRRQAUUUUAFFFFMA7VTuf+P2H/AK4yf+hxVc7V Tuf+P2H/AK4y
f+hxVE/hHHcaOlQXv/Hhc/8AXF//AEGpx0qC9/48Ln/ri/8A6DXL1NTeooor oRIUUUUAFFFF
AED/APH/AA/9cn/mlTjpUD/8f8P/AFyf+aVOOlABRRRQAUUUUAFQWX/Hhbf9 cl/kKnqCy/48
Lb/rkv8AIUAT0UUUAFFFFABVd/8Aj/i/65P/ADSrFV3/AOP+L/rk/wDNKALF FFFABRRRQAUU
UUAFUW/4/pfotXqot/x/S/RaTAtJ2qjYf8ep/wCusv8A6Marydqo2H/Hqf8A rrL/AOjGpx3E
9izXnWhf8lR8c/Wx/wDRb16LXnWhf8lR8c/Wx/8ARb12Ufhn6fqjKW6ND4V/ 8iJa/wDXWT+d
dr3rivhX/wAiJa/9dZP512venjP94n6sih/Dj6BRRRXMahRRRQAUUUUAFFFF ABRRRQAUUUUA
FFFFMA7VTuf+P2H/AK4yf+hxVc7VTuf+P2H/AK4yf+hxVE/hHHcaOlQXv/Hh c/8AXF//AEGp
x0qC9/48Ln/ri/8A6DXL1NTeoooroRIUUUUAFFFFAED/APH/AA/9cn/mlTjp UD/8f8P/AFyf
+aVOOlABRRRQAUUUUAFQWX/Hhbf9cl/kKnqCy/48Lb/rkv8AIUAT0UUUAFFF FABVd/8Aj/i/
65P/ADSrFV3/AOP+L/rk/wDNKALFFFFABRRRQAUUUUAFUW/4/pfotXqot/x/ S/RaTAtJ2qjY
f8ep/wCusv8A6Marydqo2H/Hqf8ArrL/AOjGpx3E9izXneg/8lR8c/Wx/wDR b16JXnehf8lR
8c/Wx/8ARb110vgn6fqjKW6L/wAK/wDkRLX/AK6yfzrte9cV8K/+RDtf+ukn 867XvVYz/eJ+
r/Mih/Dj6BRRRXMahRRRQAUUUUAFFFFABRRRQAUUUUAFFFFMA7VTuf8Aj9h/ 64yf+hxVc7VT
uf8Aj9h/64yf+hxVE/hHHcaOlQXv/Hhc/wDXF/8A0Gpx0qC9/wCPC5/64v8A +g1y9TU3qKKK
6ESFFFFABRRRQBA//H/D/wBcn/mlTjpUD/8AH/D/ANcn/mlTjpQAUUUUAFFF FABUFl/x4W3/
AFyX+QqeoLL/AI8Lb/rkv8hQBPRRRQAUUUUAFV3/AOP+L/rk/wDNKsVXf/j/ AIv+uT/zSgCx
RRRQAUUUUAFFFFABVFv+P6X6LV6qLf8AH9L9FpMC0naqNh/x6n/rrL/6Mary dqo2H/Hqf+us
v/oxqcdxPYs153oP/JUfHP1sf/Rb16JXneg8fFLxz9bH/wBFvXZR+Cfp+qMp bov/AAr/AORD
tf8ArpJ/Ou171xXwr/5ES1/66yfzrte9PGf7xP1f5kUP4cfQKKKK5jUKKKKA CiiigAooooAK
KKKACiiigAooopgHaqdz/wAfsP8A1xk/9Diq5VO5/wCP2H/rjJ/6HFUT+Ecd xo6VBe/8eFz/
ANcX/wDQanHSoL3/AI8Ln/ri/wD6DXL1NTeoooroRIUUUUAFFFFAED/8f8P/ AFyf+aVOOlQP
/wAf0X/XJ/5pU46UAFFFFABRRRQAVBZf8eFt/wBcl/kKnqCy/wCPC2/65L/I UAT0UUUAFFFF
ABVd/wDj/i/65P8AzSrFV3/4/wCL/rk/80oAsUUUUAFFFFABRRRQAVRIJvps Dsv8qumsXVrh
7ZLmWOJ5mG3ESYy52scDP0FNK7sJuyua6A+lULA/6L/21l/9GNXJ6Z4it9V1 OCGzSdhgPK5X
aITkDY2T97rwM9PTmup0hzJpcLtyWZyfrvatJUuRohS5kXa860L/AJKj45+t j/6LevRa860L
/kqPjn62P/ot63o/DP0/VEy3RofCv/kRLX/rrJ/Ou171xXwr/wCREtf+usn8 67SnjP8AeJ+r
Iofw4+gtFGaM1zmoUUZozQAUUUUAFFFFABRRRQAUUUUAFFFFAB2qndrL9pjk ihaUCN0OwqCC
WQj7xH901copNXVhp2M3Nx/z4z/99xf/ABdR3CXMtrNEtjPl42UZePqQR/fr WorP2SHzkf22
X/oH3P8A33F/8XR9tl/6B9z/AN9xf/F1JRxVcocxH9tl/wCgfc/99xf/ABdH 22X/AKB9z/33
F/8AF1JScUcocwz7bL/0D7n/AL7i/wDi6Pt0v/QPuf8AvuL/AOLqSijlDmK7 XMzXKSfYLgBU
ZfvxdSVP9/2qT7bL/wBA+5/77i/+LqSijlDmI/tsv/QPuf8AvuL/AOLo+2y/ 9A+5/wC+4v8A
4un8UvFHKHMR/bZf+gfc/wDfcX/xdH22X/oH3P8A33F/8XT6KOUOYZ9tl/6B 9z/33F/8XUVt
czQ2sUbWFwSiKpw8XYf79WKKOUOYZ9tl/wCgfc/99xf/ABdH22X/AKB9z/33 F/8AF0+ijlDm
GfbZf+gfc/8AfcX/AMXR9tl/6B9z/wB9xf8AxdPoo5Q5hn22X/oH3P8A33F/ 8XUbXM5uo5Ps
NxtCMpG6LqSuP4/Y1PRRyhzDPtsv/QPuf++4v/i6Ptsv/QPuf++4v/i6fRRy hzDPtsv/AED7
n/vuL/4uj7bL/wBA+5/77i/+Lp9LRyhzEf22X/oH3P8A33F/8XR9tl/6B9z/ AN9xf/F1JSUc
ocwz7bL/ANA+5/77i/8Ai6zr5bm5LMunz8srD95EDwCOfmPHJrUoppNO6E3f Q5yKxu4pt66V
KmZA7bZovmPHJ556D8q2dNge2sY4XVlKl+GIJxuJHQnqCO9WqKuUpS3EklsL XnWhf8lR8c/W
x/8ARb16LXnWhH/i6Xjn62P/AKLetqPwz9P1RMt0cX4S+Lmn+GfD0GmTaZdT yKWcujqByfet
z/hfel/9AS8/7+rRRXtVsJRnVk5R6vuccJyUUkxD8fNL/wCgHef9/V/wo/4X 5pf/AEA7z/v6
v+FFFR9Rw/8AL+LK9pLuH/C/NL/6Ad5/39X/AAo/4X5pf/QDvP8Av6v+FFFH 1HD/AMv4sPaS
7h/wv3S/+gHef9/l/wAKP+F+aX/0A7z/AL+r/hRRR9Rw/wDL+LD2ku4f8L80 v/oB3n/f1f8A
Cj/hfml/9AO8/wC/y/4UUUfUcP8Ay/iw9pLuH/C/dL/6Ad5/3+X/AAo/4X5p f/QDvP8Av6v+
FFFH1HD/AMv4sPaS7h/wv3S/+gHef9/l/wAKP+F+aX/0A7z/AL/L/hRRR9Rw /wDL+LH7SXcP
+F+aX/0A7z/v8v8AhR/wv3S/+gHef9/l/wAKKKf1DD/y/iw9pLuH/C/dL/6A d5/3+X/Cj/hf
ml/9AO8/7/L/AIUUUvqOH/l/Fh7SXcP+F+aX/wBAO8/7+r/hR/wv3S/+gHef 9/l/wooo+o4f
+X8WL2ku4f8AC/NL/wCgHef9/l/wo/4X5pf/AEA7z/v8v+FFFNYDD/y/iw9p LuH/AAvzS/8A
oB3n/f5f8KP+F+aX/wBAO8/7/L/hRRT+oYf+X8WHtJdw/wCF+aX/ANAO8/7+ r/hR/wAL90v/
AKAd5/3+X/Ciip+o4f8Al/Fh7SXcP+F+aX/0A7z/AL+r/hR/wv3S/wDoB3n/ AH+X/CiimsDh
/wCX8WHtJdw/4X7pf/QDvP8Av8v+FH/C/NL/AOgHef8Af5f8KKKf1DD/AMv4 sftJdw/4X5pf
/QDvP+/y/wCFH/C/NL/6Ad5/39X/AAoopfUcP/L+LD2ku4f8L80v/oB3n/f1 f8KP+F+aX/0A
7z/v6v8AhRRS+o4f+X8WHtJdw/4X5pf/AEA7z/v6v+FH/C/NL/6Ad5/39X/C iij6jh/5fxYe
0l3D/hfml/8AQDvP+/q/4Uf8L80v/oB3n/f1f8KKKPqOH/l/Fh7SXcP+F+aX /wBAO8/7+r/h
R/wvzS/+gHef9/V/wooo+o4f+X8WHtJdw/4X5pf/AEA7z/v6v+FH/C/NL/6A d5/39X/Ciij6
jh/5fxYe0l3D/hfml/8AQDvP+/q/4Uf8L80v/oB3n/f1f8KKKPqOH/l/Fi9p LuH/AAv3S/8A
oB3n/f5f8KP+F+aX/wBAO8/7+r/hRRR9Rw/8v4sftJdw/wCF+aX/ANAO8/7/ AC/4Uf8AC/NL
/wCgHef9/l/woop/UMP/AC/iw9pLuH/C/NL/AOgHef8Af5f8KP8Ahfml/wDQ DvP+/wAv+FFF
P6hh/wCX8WL2ku4f8L80v/oB3n/f5f8ACn/DvXYvE3jDxdrEMLwR3IsyI3IJ XCyL1H0oorLE
YalSoylBWen5oqM23qf/2Q==
--------------050205000605000108070600--
Arriba
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

Recargar un TDBBrowse

Mensaje por jrcpoli-quitar »

Saludos:
No utilizo MySql pero creo que básicamente no puede cambiar mucho de la
lógica de como hacerlo solo que habrí­a que leer de nuevo los datos cada
vez que seleccionemos un nuevo TRadio, para eso en el evento en el
primer TRadio seleccionamos el evento OnClick y ponemos
METHOD OnClickDivisa( oSender ) CLASS TDivisas
*
Local nPos
DO CASE
CASE ::oDolar:lChecked
nPos := 1
CASE ::oPeso:lChecked
nPos := 2
CASE ::oReal:lChecked
nPos := 3
CASE ::oEuro:lChecked
nPos := 4
END CASE
** Aquí­ pondrí­amos la consulta
:cSelect := "SELECT * FROM divisas WHERE nroempresa = "
+ValToStr(AppData:nNroempresa)+ " AND nrodivisa = " +ValToStr(nPos)+ "
** y si trae registros leí­dos
** solo tendrí­amos que poner un refresco del browse completo
::oBrowse:Refresh(.T.)
*
RETURN Nil
Cuando selecciones los siguiente evento OnClick de los TRadio solo
tendrí­as que seleccionar el mismo nombre de evento que el del primero,
esto es todos apuntarí­an a OnClickDivisa.
Si lo que tienes puesto es un TRadioMenu la cosa es mas sencilla porque
en número de elemento vendrá dado por nIndex.
Espero te sirva de orientación.
José Ramón Castro.
Daniel Du Pré escribió:
> Hola foro:
>
> En el form que adjunto en la imágen estoy intentando mostrar las
> cotizaciones de las divisas cada vez que se selecciona uno de los TRadio
> que hay. Cuando se muestra por primera vez el form hago que aparezcan
> por defecto las cotizaciones de la primera divisa (Dolar), pero no logro
> hacer que el TDBBrowse se vuelva a cargar con las otras cotizaciones.
> Mi idea es utilizar el evento OnClick de los TRadio para que se ejecute
> "algo" que busque los registros correspondientes y los muestre en el Browse.
>
> Divisas
>
> He buscado en los foros pero no he encontrado ningún caso similar dado
> que estoy utilizando MySQL, tal vez lo haya y alguien me pueda orientar.
>
> Para cargar inicialmente el browse utilizo el evento OnInitialice del
> form de esta forma y todo funciona perfecto:
>
> ETHOD FormInitialize( oSender ) CLASS TDivisas
>
> ::oDolar:lChecked := .T.
>
> WITH OBJECT ::oDivisas <----------------------------Este es el TSQLQuery
> que actúa de DataSource en el TDBBrowse
> :oDataSource:=AppData:oMventas
> :cSelect := "SELECT * FROM divisas WHERE nroempresa = "
> +ValToStr(AppData:nNroempresa)+ " AND nrodivisa = " +ValToStr(2)+ "
> order by fecha DESC"
> if :lOpen
> :Close()
> endif
> if !:lOpen
> :lOpen:=.T.
> if !:lOpen
> msgstop('Error al Abrir Divisas','Error')
> ::Close()
> endif
> endif
> END WITH
> Return nil
>
> He intentado utilizar la sentencia SELECT de varias formas pero sin
> éxito y estoy seguro que es por falta de conocimientos y conceptos sobre
> como se cargan los TDBBrowse.
>
> ¿Alguien tiene bien claro esos conceptos como para compartirlos?, o en
> su defecto ¿podrí­an decirme donde puedo leer para aprender?
>
> Desde ya muchas gracias por la ayuda que me puedan prestar.
>
> Un Saludos
> Daniel.
>
Arriba
PEDRO DE LEON RODAS[3]
Mensajes: 266
Registrado: Mar Oct 28, 2008 4:41 am

Recargar un TDBBrowse

Mensaje por PEDRO DE LEON RODAS[3] »

Daniel, Saludos.
Yo haria de esta forma
Tomando en cuenta que en mi tabla tengo el campo nroempresa en int y con longitud de 5
Tambien el campo nrodivisa y con longitud de 2 //// Supongo que nrodivisa es el campo que identifica el tipo de divisas
Y mi TbBrowse se llama Grid
En el onInitialize del formulario haria esto
::oDivisas:oDataSource:=AppData:oMventas
/// me imagino que AppData:oMventas es la variable del sistema donde se guardo el nombre de la base de datos de mysql
Y oDivisas integralo en tu formulario usando TsqlQuery
METHOD RadioMenu1Click( oSender ) CLASS pruebas
::oDivisas:cSelect="Select * from divisas where nroempresa='"+Str(AppData:nNroempresa,5)+"' and nrodivisa='"+Str(::oRadioMenu1:nIndex,2)+"' order by fecha DESC"
If ::oDivisas:lOpen=.f.
::oDivisas:lOpen=.f.
Else
::oDivisas:Refresh() //// Aqui refrescas (actualizas) el dataset (TsqlQuery)
::Grid:Refresh() /// Aqui refrescas la vista del TbBrowse
Endif
RETURN Nil
Este metodo me ha funcionado bien en mis proyectos.
Prueba y si tienes alguna otra duda con gusto estamos para apoyar.
Saludos

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4888 (20100222) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Arriba
PEDRO DE LEON RODAS[3]
Mensajes: 266
Registrado: Mar Oct 28, 2008 4:41 am

Recargar un TDBBrowse

Mensaje por PEDRO DE LEON RODAS[3] »

ME EQUIVOQUE EN
If ::oDivisas:lOpen=.f.
::oDivisas:lOpen=.f. ///// LOGICAMENTE TIENE QUE SER VERDADERO
En el onInitialize del formulario haria esto
::oDivisas:oDataSource:=AppData:oMventas
/// me imagino que AppData:oMventas es la variable del sistema donde se guardo el nombre de la base de datos de mysql
Y oDivisas integralo en tu formulario usando TsqlQuery
METHOD RadioMenu1Click( oSender ) CLASS pruebas
::oDivisas:cSelect="Select * from divisas where nroempresa='"+Str(AppData:nNroempresa,5)+"' and nrodivisa='"+Str(::oRadioMenu1:nIndex,2)+"' order by fecha DESC"
If ::oDivisas:lOpen=.f.
::oDivisas:lOpen=.t. ///// LOGICAMENTE TIENE QUE SER VERDADERO
Else
::oDivisas:Refresh() //// Aqui refrescas (actualizas) el dataset (TsqlQuery)
::Grid:Refresh() /// Aqui refrescas la vista del TbBrowse
Endif
RETURN Nil
Este metodo me ha funcionado bien en mis proyectos.
Prueba y si tienes alguna otra duda con gusto estamos para apoyar.
Saludos
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4888 (20100222) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Arriba
ddupre
Mensajes: 329
Registrado: Lun Nov 12, 2007 3:53 pm

Recargar un TDBBrowse

Mensaje por ddupre »

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Josà Ramon y Pedro<br>
<br>
Gracias por su ayuda, quedo funcionando.<br>
<br>
Pero (siempre hay un pero...) entre todas las pruebas que habÃa hecho
lo que me estaba faltando era la linea : ::oDivisas:Rafresh() y nunca
se me hubiera ocurrido que luego de poner ::oDivisas:lOpen := .T. en el
onInitialize del Form, iva a tener que chequearlo si estaba abierto o
cerrado en otros eventos. Yo pense que una vez que lo abrÃa quedaba asÃ
hasta que se destruyera el Form o lo cerrara yo mismo, Âsaben porque se
comporta asà esa propiedad?<br>
<br>
Gracias<br>
Saludos<br>
<br>
</tt><br>
El 22/02/10 20:45, PEDRO DE LEON RODAS escribiÃ:
<blockquote cite="mid:[email=4b83078e@svctag-j7w3v3j.]4b83078e@svctag-j7w3v3j.[/email]" type="cite">
<meta content="text/html; charset=ISO-8859-1"
http-equiv="content-type">
<meta name="GENERATOR" content="MSHTML 8.00.6001.18702">
<style></style>
<div>
<div>
<div><font face="Arial" size="2">ME EQUIVOQUE EN </font></div>
<div><font face="Arial" size="2">
<div>If Â::oDivisas:lOpen=.f.</div>
<div>ÂÂÂ ::oDivisas:lOpen=.f. ///// LOGICAMENTE TIENE QUE SER
VERDADEROÂÂ </div>
<div>Â</div>
<div>Â</div>
</font></div>
<div>Â</div>
<div><font size="2">En el onInitialize del formulario haria esto</font></div>
<div>Â</div>
<div><font size="2">::oDivisas</font><font size="2">:oDataSource:=AppData:oMventas</font></div>
<div>Â</div>
<div><font size="2"><font face="Arial">/// me imagino que <font
face="Times New Roman">AppData:oMventas es la variable del sistema
donde se guardo el nombre de la base de datos de mysql</font></font></font></div>
<font size="2"><font face="Arial"></font>
<div><font face="Arial"><br>
YÂ</font><font face="Times New Roman">oDivisas integralo en tu
formulario usando TsqlQuery</font></div>
<div>Â</div>
<div>Â</div>
<div><font face="Arial">METHOD RadioMenu1Click( oSender ) CLASS
pruebas</font></div>
<div><font face="Arial"><font size="2">::oDivisas:cSelect="Select *
from divisas where nroempresa='"+Str(AppData:nNroempresa,5)+"' and
nrodivisa='"+Str(::oRadioMenu1:nIndex,2)+"' order by fecha DESC"</font></font></div>
<div><font face="Arial">If Â::oDivisas:lOpen=.f.</font></div>
<div><font face="Arial">ÂÂÂ ::oDivisas:lOpen=.t. ///// LOGICAMENTE
TIENE QUE SER VERDADEROÂÂ </font></div>
<div><font face="Arial">ÂElse</font></div>
<div><font face="Arial">ÂÂÂ ::oDivisas:Refresh()ÂÂÂ //// Aqui
refrescas (actualizas)Âel dataset (TsqlQuery)Â </font></div>
<div><font face="Arial">ÂÂÂ ::Grid:Refresh() ///Â Aqui refrescas la
vista del TbBrowse</font></div>
<div><font face="Arial">Endif</font></div>
<div><font face="Arial">RETURN Nil</font></div>
<div><font face="Arial">Â</font></div>
<div><font face="Arial">Este metodo me ha funcionado bien en mis
proyectos.</font></div>
<div><font face="Arial">Â</font></div>
<div><font face="Arial">Â</font></div>
<div><font face="Arial">Prueba y si tienes alguna otra duda con gusto
estamos para apoyar.</font></div>
<div><font face="Arial">Â</font></div>
<div>Â</div>
<div><font face="Arial">Saludos</font><br>
</div>
</font></div>
</div>
<br>
<br>
__________ InformaciÃn de ESET NOD32 Antivirus, versiÃn de la base de
firmas de virus 4888 (20100222) __________<br>
<br>
ESET NOD32 Antivirus ha comprobado este mensaje.<br>
<br>
<a moz-do-not-send="true" href="http://www.eset.com">http://www.eset.com</a><br>
</blockquote>
</body>
</html>
Arriba
ddupre
Mensajes: 329
Registrado: Lun Nov 12, 2007 3:53 pm

Recargar un TDBBrowse

Mensaje por ddupre »

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Pedro:<br>
Agrego algo mÃs, ejecutando linea a linea con el debugger observo que
nunca entra por el "else" y sin embargo funciona perfecto Â?<br>
<br>
La verdad que para mi no tiene lÃgica. ÂalgÃn Guru de Xailer sabe por
quÃ?<br>
<br>
Saludos<br>
<br>
PD: Si le quito el if...endif, y dejo solo el select con los dos
refresh(), el browse no muestra nada.<br>
<br>
<br>
</tt><br>
El 22/02/10 20:45, PEDRO DE LEON RODAS escribiÃ:
<blockquote cite="mid:[email=4b83078e@svctag-j7w3v3j.]4b83078e@svctag-j7w3v3j.[/email]" type="cite">
<meta content="text/html; charset=ISO-8859-1"
http-equiv="content-type">
<meta name="GENERATOR" content="MSHTML 8.00.6001.18702">
<style></style>
<div>
<div>
<div><font face="Arial" size="2">ME EQUIVOQUE EN </font></div>
<div><font face="Arial" size="2">
<div>If Â::oDivisas:lOpen=.f.</div>
<div>ÂÂÂ ::oDivisas:lOpen=.f. ///// LOGICAMENTE TIENE QUE SER
VERDADEROÂÂ </div>
<div>Â</div>
<div>Â</div>
</font></div>
<div>Â</div>
<div><font size="2">En el onInitialize del formulario haria esto</font></div>
<div>Â</div>
<div><font size="2">::oDivisas</font><font size="2">:oDataSource:=AppData:oMventas</font></div>
<div>Â</div>
<div><font size="2"><font face="Arial">/// me imagino que <font
face="Times New Roman">AppData:oMventas es la variable del sistema
donde se guardo el nombre de la base de datos de mysql</font></font></font></div>
<font size="2"><font face="Arial"></font>
<div><font face="Arial"><br>
YÂ</font><font face="Times New Roman">oDivisas integralo en tu
formulario usando TsqlQuery</font></div>
<div>Â</div>
<div>Â</div>
<div><font face="Arial">METHOD RadioMenu1Click( oSender ) CLASS
pruebas</font></div>
<div><font face="Arial"><font size="2">::oDivisas:cSelect="Select *
from divisas where nroempresa='"+Str(AppData:nNroempresa,5)+"' and
nrodivisa='"+Str(::oRadioMenu1:nIndex,2)+"' order by fecha DESC"</font></font></div>
<div><font face="Arial">If Â::oDivisas:lOpen=.f.</font></div>
<div><font face="Arial">ÂÂÂ ::oDivisas:lOpen=.t. ///// LOGICAMENTE
TIENE QUE SER VERDADEROÂÂ </font></div>
<div><font face="Arial">ÂElse</font></div>
<div><font face="Arial">ÂÂÂ ::oDivisas:Refresh()ÂÂÂ //// Aqui
refrescas (actualizas)Âel dataset (TsqlQuery)Â </font></div>
<div><font face="Arial">ÂÂÂ ::Grid:Refresh() ///Â Aqui refrescas la
vista del TbBrowse</font></div>
<div><font face="Arial">Endif</font></div>
<div><font face="Arial">RETURN Nil</font></div>
<div><font face="Arial">Â</font></div>
<div><font face="Arial">Este metodo me ha funcionado bien en mis
proyectos.</font></div>
<div><font face="Arial">Â</font></div>
<div><font face="Arial">Â</font></div>
<div><font face="Arial">Prueba y si tienes alguna otra duda con gusto
estamos para apoyar.</font></div>
<div><font face="Arial">Â</font></div>
<div>Â</div>
<div><font face="Arial">Saludos</font><br>
</div>
</font></div>
</div>
<br>
<br>
__________ InformaciÃn de ESET NOD32 Antivirus, versiÃn de la base de
firmas de virus 4888 (20100222) __________<br>
<br>
ESET NOD32 Antivirus ha comprobado este mensaje.<br>
<br>
<a moz-do-not-send="true" href="http://www.eset.com">http://www.eset.com</a><br>
</blockquote>
</body>
</html>
Arriba
PEDRO DE LEON RODAS[3]
Mensajes: 266
Registrado: Mar Oct 28, 2008 4:41 am

Recargar un TDBBrowse

Mensaje por PEDRO DE LEON RODAS[3] »

Otra forma en que puedes hacer esto es tambien asi
METHOD RadioMenu1Click( oSender ) CLASS pruebas
::oDivisas:lOpen=.f. //// ESTí‰ O NO ESTí‰ ABIERTO EL TSQLQUERY
::oDivisas:cSelect="Select * from divisas where nroempresa='"+Str(AppData:nNroempresa,5)+"' and nrodivisa='"+Str(::oRadioMenu1:nIndex,2)+"' order by fecha DESC"
::oDivisas:lOpen=.T.
::Grid:Refresh()
Return nil
De esta forma te evitas usar if- endif y else
Saludos
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4888 (20100222) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
--
Arriba
ddupre
Mensajes: 329
Registrado: Lun Nov 12, 2007 3:53 pm

Recargar un TDBBrowse

Mensaje por ddupre »

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Gracias Pedro, lo tendrà en cuenta</tt>.<br>
<br>
Un saludo<br>
<br>
El 23/02/10 17:24, PEDRO DE LEON RODAS escribiÃ:
<blockquote cite="mid:4b842b85$[email=1@svctag-j7w3v3j.]1@svctag-j7w3v3j.[/email]" type="cite">
<title></title>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
<meta name="GENERATOR" content="MSHTML 8.00.6001.18702">
<style></style>
<div>
<div><font face="Arial">Otra forma en que puedes hacer esto es
tambien asi</font></div>
<div>Â</div>
<div><font face="Arial">METHOD RadioMenu1Click( oSender ) CLASS
pruebas</font></div>
<div>Â</div>
<div>::oDivisas:lOpen=.f. //// ESTÃ O NO ESTÃ ABIERTO EL TSQLQUERY</div>
<div>Â</div>
<div><font face="Arial"><font size="2">::oDivisas:cSelect="Select *
from divisas where nroempresa='"+Str(AppData:nNroempresa,5)+"' and
nrodivisa='"+Str(::oRadioMenu1:nIndex,2)+"' order by fecha DESC"</font></font></div>
<div>Â</div>
<div><font face="Arial">::oDivisas:lOpen=.T.</font></div>
<div><font face="Arial">::Grid:Refresh()</font></div>
<div>Â</div>
<div><font face="Arial">Return nil</font></div>
<div>Â</div>
<div>Â</div>
<div><font face="Arial">De esta forma te evitas usar if- endif y else</font></div>
<div>Â</div>
<div><font face="Arial">Saludos</font></div>
<div><font face="Arial">Â</font></div>
</div>
<br>
<br>
__________ InformaciÃn de ESET NOD32 Antivirus, versiÃn de la base de
firmas de virus 4888 (20100222) __________<br>
<br>
ESET NOD32 Antivirus ha comprobado este mensaje.<br>
<br>
<a moz-do-not-send="true" href="http://www.eset.com">http://www.eset.com</a><br>
</blockquote>
</body>
</html>
Arriba
Responder

Volver a “Spanish”