Buscar en BD MySQL

ddupre · Mensaje por **ddupre** » Vie May 15, 2009 5:40 am

This is a multi-part message in MIME format.
--------------090907060202040803030104
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
</head>
<body bgcolor="#ffffff" text="#000000">
Hola Foro: 
 
Estoy intentando realizar una bÃsqueda de un registro antes de
insertarlo en una tabla para verificar que no se dupliquen los datos,
para ello tengo una tabla con 3 campos: 
nroempresa N 1,0 
nroramo N 4,0 
detalle C 20 
y creo un indice compuesto por nroempresa+nroramo. 
 
luego ejecuto la siguientes lineas en el evento OnExit de la lectura de
un TDBMaskEdit donde se lee el nroramo 
 
WITH OBJECT oSender 
ÂÂ cNroEmpresa := str(Appdata:nNroempresa,1,0) 
ÂÂ cNroRamoÂÂÂ := str(:Value,4,0) 
ÂÂ cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM ramos
WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'" 
ÂÂ Appdata:oDataSource:Execute(cBuscar) 
 
ÂÂ if nEncontre <> 0 
ÂÂÂÂÂ MsgInfo("Ya existe Ramo con ese nro.") 
ÂÂÂÂÂ Return .F. 
ÂÂ endif 
END WITH 
 
Pero al llegar a la linea que estÃ marcada en azul oscuro me sale este
error: 
 
<img alt="error" src="cid:part1.08030902.09000304@macrosistemas.com.uy"
height="139" width="603"> 
 
 
He probado ejecutar este mismo SELECT en el manejador SQLyog, cambiando
&cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo que
la bÃsqueda se realiza correctamente. 
 
ÂAlguna ayuda sobre que estoy haciendo mal? 
 
Desde ya muchas gracias 
Daniel. 
</body>
</html>
--------------090907060202040803030104
Content-Type: image/jpeg;
name="Error Xailer 5.JPG"
Content-Transfer-Encoding: base64
Content-ID: <part1.08030902.09000304@macrosistemas.com.uy>
Content-Disposition: inline;
filename="Error Xailer 5.JPG"
/9j/4AAQSkZJRgABAQEAYABgAAD/4QAWRXhpZgAASUkqAAgAAAAAAAAAAAD/ 2wBDAAgGBgcG
BQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAx NDQ0Hyc5PTgy
PC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIy MjIyMjIyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCACLAlsDASIAAhEBAxEB/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
8YeIbnV/F18sjMIbOd7aGInITadrEcDliM+vQZIApLO31ea1+0w27mH+9gD8 s9ayNYZYvFet
SMMqNRnJB7/vWrv/AA/pMPinRoNTl+3Wq2bsjQQybhf7VLYi3MMNgEEDjjjH OPocZmksDCnQ
owV+VPXb+upjgsmoYuM8TiZNRUraWve1/wDgaHHnVLqNirOQR1BGCKY2s3Kk gS5H0FZt5qAv
dalZIfs6OzbYNxYoM8Ak8nHTNdNbWNpD4DfVzZWM10upGBnvbholEQh34UCR NzZ6AZJyeDjj
0sJmUK2FjXlGzbtbTf520PKzDKXhMVLDqV0ldem/S+qMj+2rr/np+gpf7Zuv +ev6CpJvD81r
4dtdZnvLNYroN5MG9hLJtcI2FxjgkHr0q/ceCb221iTTG1DTTNBE81yyzNtt o1VWLSEqCAQ4
xgH8q7XisMt2uv4b/ceesNN7J9Px2Mv+2br/AJ6foKP7Zuv+en6CtFfB2oNq Mtq11Yokdj/a
H2h5W8p4OPnB2579wOhrBmiEVxLEsscojdkEkZJV8HGQT2PatKVajVdqdmRK hKCvJWLv9s3X
/PT9BR/bN1/z0/QVnYNGDXR7OPYz5UaP9s3X/PT9BR/bN1/z0/QVnYNGDR7O PYOVGj/bN1/z
0/QUf2zdf89P0FZ2DRg0ezj2DlRo/wBs3X/PT9BR/bN1/wA9P0FZ2DRg0ezj 2DlRo/2zdf8A
PT9BR/bN1/z0/QVnYNGDR7OPYOVGj/bN1/z0/QUf2zdf89P0FZ2DRg0ezj2D lRo/2zdf89P0
FH9s3X/PT9BWdg0YNHs49g5UaP8AbN1/z0/QUf2zdf8APT9BWdg0YNHs49g5 UaP9s3X/AD0/
QUf2zdf89P0FZ2DRg0vZx7Byo0v7auv+eh/Kj+2rr/nofyrM20baPZx7BZGn /bV1/wA9D+VH
9tXX/PQ/lWZto20ezj2CyNP+2rr/AJ6H8qP7auv+eh/KszbRto9nHsFkaf8A bV1/z0P5Uf21
df8APQ/lWZto20ezj2CyNP8Atq6/56H8qP7auv8AnofyrM20baPZx7BZGn/b V1/z0P5Uf21d
f89D+VZm2jbR7OPYLI0/7auv+eh/Kj+2rr/nofyrM20baPZx7BZGn/bV1/z0 P5Uf21df89D+
VZm2jbR7OPYLI0/7auv+eh/Kj+2rr/nofyrM20baPZx7BZGn/bV1/wA9D+VH 9tXX/PQ/lWZt
o20ezj2CyNP+2rr/AJ6H8qP7auv+eh/KszbRto9nHsFkaR1q6/56H8hR/bV1 /wA9D+QrN20b
aPZx7DsjS/tq6/56H8hR/bV1/wA9D+QrN20bafs49gsjS/tq6/56H8hR/bV1 /wA9D+QrN20b
aPZx7BZGl/bV1/z0P5Cj+2rr/nofyFZu2jbR7OPYLI0v7auv+eh/IUf21df8 9D+QrN20baPZ
x7BZGl/bV1/z0P5Cj+2rr/nofyFZu2jbR7OPYLI0v7auv+eh/IUf21df89D+ QrN20baPZx7B
ZGl/bV1/z0P5Cj+2rr/nofyFZu2jbR7OPYLI0v7auv8AnofyFH9tXX/PQ/kK zdtG2j2cewWR
pf21df8APQ/kKP7auv8AnofyFZu2jbR7OPYLI0v7auv+eh/IUf21df8APQ/k KzdtG2l7OPYL
I0f7aus/6w/kKmtdQvr+9t7OFszXEqxRgkDLMcDn6msjbWn4YB/4S/Rf+v8A g/8ARi1lWXJT
lNLZGlOCnNJnYSeHHiCtJrVycjOY7JGU/QmUHH1AqrJo8S8trV9/4L4//j1d DpF9aybbW9ga
WG4VYw8YJkibsVx79v59C7XNOt/DFjJDOn2y+vAyxyMhCRRg/eHq/T6fT735 3LPcfbnU1b0X
+R94sjwCkqcoO72137/ceca1Ld6BPZ6np9+8nzsIZ2hEciSIF3Ky5I6Ovcgh sHuK960fU/7V
0Sw1HZ5X2u2juPL+/t3qGxu2jPWvA/Fo3eHNPx/z/XX/AKLtq9v8Hf8AIkaB /wBg63/9FrXo
Yqo8VgqFeqrt31+Z5jw8cLialGlsmeF6xEsviTXAx4OoXA/8iNVGe58Qh7BY 7uaZbBdtoVkC
mAZzxyOc9+eAB0AA7TT/AAU3ifxL4jZdS+yeTfyt/qN+7dLJ/tD+7+tba/CW ZeniH/yS/wDs
69TGSy2tGMMRJqUUtr9k+xxYWvjsPOUqFnFt6O1ux5vFa3dzf3GqancCe+uG LOw6DJyfTrx0
GBgAVuLqUC+Hk0e5sJJ41vTeB47sREN5fl4wY3yMEnt2rrf+FTT/APQwj/wC /wDs6Q/CWY/8
zD/5Jf8A2dbU8blcaUaKlZLXZ79zkqUcfUqurLVv8trHGX+oPfaTountAka6 dHOPMEm7zGld
W6YGANuM55z2rSfxM0/ifWdWn09Gg1SFraa1ExyYjEiHD7RgnYD0OM4966H/ AIVLN/0MP/kn
/wDZ0f8ACpZv+hg/8k//ALOqljsqlpKXfo+ru/x+4lYbGrZdvw2Obn8Syzza hIthFGk+jnSL
eETkiCLHDFyuXIyT0GeB2zWCIhnqK9C/4VLN/wBDD/5J/wD2dH/CpZv+hh/8 k/8A7OroZllm
Hv7OW/kyKuDxlX4kee+SPUUeSPUV6F/wqWb/AKGH/wAk/wD7Oj/hUs3/AEMP /kn/APZ10f27
gf5/wf8AkY/2Zie34o898keoo8keor0L/hUs3/Qw/wDkn/8AZ0f8Klm/6GH/ AMk//s6P7dwP
8/4MP7MxPb8Uee+SPUUeSPUV6F/wqWb/AKGH/wAk/wD7Oj/hUs3/AEMP/kn/ APZ0f27gf5/w
Yf2Zie34o898keoo8keor0L/AIVLN/0MP/kn/wDZ0f8ACpZv+hh/8k//ALOj +3cD/P8Agw/s
zE9vxR575I9RR5I9RXoX/CpZv+hh/wDJP/7Oj/hUs3/Qw/8Akn/9nR/buB/n /Bh/ZmJ7fijz
3yR6ijyR6ivQv+FSzf8AQw/+Sf8A9nR/wqWb/oYf/JP/AOzo/t3A/wA/4MP7 MxPb8Uee+SPU
UeSPUV6F/wAKlm/6GH/yT/8As6P+FSzf9DD/AOSf/wBnR/buB/n/AAYf2Zie 34o898keoo8k
eor0L/hUs3/Qw/8Akn/9nR/wqWb/AKGH/wAk/wD7Oj+3cD/P+DD+zMT2/FHn vkj1FHkj1Feh
f8Klm/6GH/yT/wDs6P8AhUs3/Qw/+Sf/ANnT/t3A/wA/4MP7MxPb8UeeeSPW jyR616F/wqSb
/oYB/wCAX/2dH/CpJv8AoYB/4Bf/AGdH9u4H+f8AB/5D/szE9vxPPfJHrR5I 9a9C/wCFSTf9
DAP/AAC/+zo/4VJN/wBDAP8AwC/+zo/t3A/z/g/8g/szE9vxPPfJHrR5I9a9 C/4VJN/0MA/8
Av8A7Oj/AIVJN/0MA/8AAL/7Oj+3cD/P+D/yD+zMT2/E898ketHkj1r0L/hU k3/QwD/wC/8A
s6P+FSTf9DAP/AL/AOzo/t3A/wA/4P8AyD+zMT2/E898ketHkj1r0L/hUk3/ AEMA/wDAL/7O
j/hUk3/QwD/wC/8As6P7dwP8/wCD/wAg/szE9vxPPfJHrR5I9a9C/wCFSTf9 DAP/AAC/+zo/
4VJN/wBDAP8AwC/+zo/t3A/z/g/8g/szE9vxPPfJHrR5I9a9C/4VJN/0MA/8 Av8A7Oj/AIVJ
N/0MA/8AAL/7Oj+3cD/P+D/yD+zMT2/E898ketHkj1r0L/hUk3/QwD/wC/8A s6P+FSTf9DAP
/AL/AOzo/t3A/wA/4P8AyD+zMT2/E898ketHkj1r0L/hUk3/AEMA/wDAL/7O j/hUk3/QwD/w
C/8As6P7dwP8/wCD/wAg/szE9vxPPfJHrR5I9a9C/wCFSTf9DAP/AAC/+zo/ 4VJN/wBDAP8A
wC/+zo/t3A/z/g/8g/szE9vxPPfJHrR5I9a9C/4VJN/0MA/8Av8A7Oj/AIVJ N/0MA/8AAL/7
Oj+3cD/P+D/yD+zMT2/E88MK0eSteh/8Kkm/6GH/AMkv/s6P+FSTf9DD/wCS X/2dH9u4H+f8
GH9mYnt+J555K0eSteh/8Kkm/wChh/8AJL/7Oj/hUk3/AEMP/kl/9nR/b2B/ n/Bh/ZmJ7fie
eeStHkrXof8AwqSb/oYf/JL/AOzo/wCFSTf9DD/5Jf8A2dH9vYH+f8GH9mYn t+J555K0eSte
h/8ACpJv+hh/8kv/ALOj/hUk3/Qw/wDkl/8AZ0f29gf5/wAGH9mYnt+J555K 0eSteh/8Kkm/
6GH/AMkv/s6P+FSTf9DD/wCSX/2dH9vYH+f8GH9mYnt+J555K0eSteh/8Kkm /wChh/8AJL/7
Oj/hUk3/AEMP/kl/9nR/b2B/n/Bh/ZmJ7fieeeStHkrXof8AwqSb/oYf/JL/ AOzo/wCFSTf9
DD/5Jf8A2dH9vYH+f8GH9mYnt+J555K0eSteh/8ACpJv+hh/8kv/ALOj/hUk 3/Qw/wDkl/8A
Z0f29gf5/wAGH9mYnt+J555K0eSteh/8Kkm/6GH/AMkv/s6P+FSTf9DD/wCS X/2dH9vYH+f8
GH9mYnt+J555K0eSteh/8Kkm/wChh/8AJL/7Oj/hUk3/AEMP/kl/9nR/b2B/ n/Bh/ZmJ7fie
eeStHkrXof8AwqSb/oYf/JL/AOzo/wCFSTf9DD/5Jf8A2dH9vYH+f8GH9mYn t+J555K+1aHh
8JD4o0mVmCol7CzMTgABxk12f/CpJv8AoYf/ACS/+zpD8I5T/wAzD/5Jf/Z1 FXOcBUg4e038
n/kXTy/Ewmnb8UZ+k+JF0Pzw8SLfKvlK0v3oW6N8p79uf5ZBR/FqtplzYXRS 7ilJdDI53RSE
53Kevc5HfPuc9EngTxDGipH461FEUBVVVcAD0A8ynf8ACDeJP+h+1P8AJ/8A 47XwsstobLEK
3oz7T+125c0sPrp17HmevfP4XsCwxuu7qRc91KQAMPbKsM+qn0r2/wAIf8iV oP8A2Drf/wBF
rXmfjPwDeaXoN7rl54hm1GWFUyJoTuYFgv3i5PGa9L8If8iVoP8A2Drf/wBF rXq4j2MMBRp0
pcyjdXs99zynVnWxVSrJcvNrbc57wH/yMfiz/r9P/o2au0jN3cyzpbwQFInC EyTFSTtVugU/
3vWuL8Bf8jH4s/6/T/6NmrtLezjv4NTtZWnWN7hcmCd4XGI4zw6EMOnY89Ol c+OSeId+0fyR
GH/hr1f5kv2fU/8An2tP/Alv/jdH2fU/+fa0/wDAlv8A43XDwLOngfwQ2/W7 6TUpYZrpINUl
WedmspXIEjyrtXcqttDqvy8DPBJodUj1vT7O6svEU1jLFeTW2nwatsuYkX7K oM0v2hd+HMxG
ZHwJVHGMLx8q7G+vc7j7Pqf/AD7Wn/gS3/xuj7Pqf/Ptaf8AgS3/AMbrltMN xrFxo+mXt7ff
Zmi1J2SK8lhmVoLqOKJJJY2DM0aOyN8zKzAtl+GqO1mutSlsdNuZ9Rnt4l1d litrx4Z5TbXa
QwqZQ6MxCMV+Z8MSGYkjIOVdg17nW/Z9T/59rT/wJb/43R9n1P8A59rT/wAC W/8AjdcdLqUu
oPollFZ+Iru0aLUPMtYr5ILpJILiKIb5VmTcqbpF/wBYxbKs25huGxp9xLce LNEuYNbvr/Tb
/Rp7iNJlREO1rXbJtVEO5g5J3ZxuIUKCRRyrsGvc2fs+p/8APtaf+BLf/G6P s+p/8+1p/wCB
Lf8AxuuWebUbTT9ftZdWvrsr4gsbP7RMyrIIZhZq6qY1UJxK+CgUgncDu5ov bm/sPC/jm2tb
if7PpkVyttPJdyPPCfscMqgO2Wb55JG3F8rhQMjG05V2DXudT9n1P/n2tP8A wJb/AON0fZ9T
/wCfa0/8CW/+N1w2u65qsFneWFxfTx6rYeG9Va4KP5ZldDCIboKuAN43MpXO ws6ZyrVLe319
odvq0llDrGlyR6HfXaxate/bGlliEeySPMswUJuIYEru8xeH2nacsewa9ztP s+p/8+1p/wCB
Lf8Axuj7Pqf/AD7Wn/gS3/xuuS8URS+HLbUodNvtRRJvDupXTGa/mnZZYRCI 3RpHYoR5r/dI
zkZzgYkt9S/4R3Ubm5ns9csrKDS7q8ntdSvvtclx5RiIaImaULtDMCCybjIn DbSUOWPYNe51
P2fU/wDn2tP/AAJb/wCN0fZ9T/59rT/wJb/43XB/8JJqNz4Y1Gz03W9Ov9Xt 73Tpo7u1umlt
g1zcpuhd1O7YJBMu3tCYxyc1Jqvi/Vbu8v8AUdP8+ysbbw5fzW6Tptk+1Ri3 di6ElD5ZcR+q
usynpycq7Br3O4+z6n/z7Wn/AIEt/wDG6Ps+p/8APtaf+BLf/G65LxRFL4ct tSh02+1FEm8O
6ldMZr+adllhEIjdGkdihHmv90jORnOBjQW2bTdGfVIl1jS57a4WQW+rajJd C5+UoIyFlmOH
MpChct5gQ7H2hWOWPYNe5u/Z9T/59rT/AMCW/wDjdH2fU/8An2tP/Alv/jdc 8L68u9f0i9e7
ngafVTZzacJCBbrHa3ThZF6GRiyuSPlIEW0sFWR6jRy6HpXj3ULK+1I3GmrK lobq/muViAso
ZhhJXZSd7E5IJ5I6cUcq7Br3Os+z6n/z7Wn/AIEt/wDG6Ps+p/8APtaf+BLf /G65aWxvtJ8R
XF7fxX0mkDULSCzlGvXO9VZIIU/cA7JF84ksXbccsSG43JPPqOn+F/HjNq19 dXOmyvNa3Mzq
roUs4JlGEVV2h+q7drZIYHc2TlXYNe51X2fU/wDn2tP/AAJb/wCN0fZ9T/59 rT/wJb/43WxR
Ryx7Br3Mf7Pqf/Ptaf8AgS3/AMbo+z6n/wA+1p/4Et/8brYoo5Y9g17mP9n1 P/n2tP8AwJb/
AON0fZ9T/wCfa0/8CW/+N1sUUcq7Br3Mf7Pqf/Ptaf8AgS3/AMbo+z6n/wA+ 1p/4Et/8brYo
o5V2DXuY/wBn1P8A59rT/wACW/8AjdH2fU/+fa0/8CW/+N1sUUcq7Br3Mf7P qf8Az7Wn/gS3
/wAbo+z6n/z7Wn/gS3/xutiijlXYNe5j/Z9T/wCfa0/8CW/+N0fZ9T/59rT/ AMCW/wDjdbFF
HKuwa9zH+z6n/wA+1p/4Et/8bo+z6n/z7Wn/AIEt/wDG62KKOVdg17mP9n1P /n2tP/Alv/jd
H2fU/wDn2tP/AAJb/wCN1sUUcq7Br3Mf7Pqf/Ptaf+BLf/G6Ps+p/wDPtaf+ BLf/AButiijl
XYNe5j/Z9T/59rT/AMCW/wDjdH2fU/8An2tP/Alv/jdbFFHKuwa9zH+z6n/z 7Wn/AIEt/wDG
6Ps+p/8APtaf+BLf/G62KKOVdg17mP8AZ9T/AOfa0/8AAlv/AI3R9n1P/n2t P/Alv/jdbFFH
Kuwa9zH+z6n/AM+1p/4Et/8AG6Ps+p/8+1p/4Et/8brYoo5Y9g17mP8AZ9T/ AOfa0/8AAlv/
AI3R9n1P/n2tP/Alv/jdbFFHLHsGvcx/s+p/8+1p/wCBLf8Axuj7Pqf/AD7W n/gS3/xutiij
lj2DXuY/2fU/+fa0/wDAlv8A43R9n1P/AJ9rT/wJb/43WxRRyx7Br3Mf7Pqf /Ptaf+BLf/G6
Ps+p/wDPtaf+BLf/AButiijlj2DXuY/2fU/+fa0/8CW/+N0fZ9T/AOfa0/8A Alv/AI3WxRRy
x7Br3Mf7Pqf/AD7Wn/gS3/xuj7Pqf/Ptaf8AgS3/AMbrYoo5Y9g17mP9n1P/ AJ9rT/wJb/43
R9n1P/n2tP8AwJb/AON1sUUcsewa9zH+z6n/AM+1p/4Et/8AG6Ps+p/8+1p/ 4Et/8brYoo5Y
9g17mP8AZ9T/AOfa0/8AAlv/AI3R9n1P/n2tP/Alv/jdbFFHLHsGvcx/s+p/ 8+1p/wCBLf8A
xuj7Pqf/AD7Wn/gS3/xutiijlj2DXuY/2fU/+fa0/wDAlv8A43R9n1P/AJ9r T/wJb/43WxRR
yx7Br3Mf7Pqf/Ptaf+BLf/G6iuf7Qtbaa4e3tikSM7BbhskAZ4+St2qWsf8A IEv/APr2k/8A
QTTUY9hO9tziPif/AMk61b/dj/8ARiVqeD/+RJ0H/sHW/wD6LWsv4nf8k61f /dj/APRqVqeD
/wDkSdB/7B1v/wCi1rpX+6L/ABP8kKP8R+i/U57wF/yMfiz/AK/D/wCjZq7F dTtdHtNSvbxp
FgW7jT93G8rFnWJFAVAWJLMBgA9a47wF/wAjH4s/6/D/AOjZq2fEcU03hzUR B9qDpqtjIWtI
TNKirLbMzqgVtxVQWxtPToarG/7w/RfkjLD/AMNer/M2tHttIvNN01bK0u4r fSXC2iXVvPA0
RWIxjCyBWYbJCMnI5Pccaj2Nu+oxX7R5uYopIY33H5UcoWGOnJjT8vc1zAeb UU8OJb3WuTxR
ao32qe5tpbOR1W3mdfMUJFmPf5Q+7tYgA5Oa5tIddg8N2CSnXzqJ0OB9O2yX Ln+02EjS/aCC
RjcYOJ/3YGQMAOK5Tc7PVtF0K00ie7uxPa21l9ovJJ7e5mikQOxlm+eNg5Ut ligOCQvHyrhb
7RtCii0yxlWe3Z5XhtHt7iaKZnZWlkBljYOdwjZ23N8zKCctise6sr+X4b+L IpIr6e9uv7VE
cUjSSOwLzLEsatnClAm1VGDkEDnJqQeGL6z8UeHZZY5JbPSb2Sz08qmRDaNa zsWYgk4yYIPn
5zAGzmUigDa1HRfDWj6RawPbz2cEUsgtY9NedJt0jGR44xAfMKkgsUXKgIDg BBiU6l4ctE0y
/hjkJS3ltbOGztJpHji3IJE8iNSyhWjjVsqNhAU7ScHmNNivrjTIL7U5tYxp qQWCXVoPtMqX
dv8AaIbi5WMhy6SF/LyULn7xVQocX/tuq2kula3f2V3cNFZahbIRbSM8heaE 25ljijZ4y8cO
5j5YCkkFVJC0AbcX/CPap5ltGd76vvvZF/eKxaHyombPBikjIiGPlZWXOAwJ Ed9pvhzStOaz
1CSSK01BJ7aVri7mbzg0ReQyyMxJIihOHc5VV2ggcVzGh332W50bV7qw1JLe ddZZlhs5Ll4G
mvo5ESRYQ+x9oYEHoVZTyCK1PENjeeK7HXGgtbjy4dKmttOhuIjCZbieDLSb ZMYwrpGrHaVL
XCtxQBJqepeD9QeS6vrS7a7ubd9KeM6fdJcyQyqzlPKCCQoRFIQ2MAq+CDuq e913w3dXsZur
LUrm4NlIhhOj3chFvM+1hJGIzgM0HRxkheODzkyI2pBZNSk8TXuk2VxFPDdf ZJLW7EzRzxyK
UijilMQVosFEzukOSVVgtSexu47Ge/EfiIa/NaSQ6S6NP5bBJpzaiYL/ABBZ It32njB+bkS0
Aa0p8GWcerW15PfSwm0uILme8lu7hDEFJniimkLDdhG3JE2790cjMfy6yLov ii7juXs74y2W
3Y13aXNrjMscowJFXd88EZ4zjaAeGwcTxLbt4k1BdPNprMkUa3MVxa/Z1jRE a3njE0MzAI0r
eYiBTIwAkJZFZWKavhfd/aOofZP7V/sfyofJ/tL7R5n2jMnm4+0fvNu3yP8A YznHO6gDXv8A
RdP1S6t7q7t/Mmt8eU29l24ljl6AjPzwxHn+7joSDkR3Xhq/8QSaV9gna+ii nhlifTZ0h8ud
90pYlBGVkaEncSQxBwTk5308v+0Zsef53lR7t2/y9uXxtz8m7O7OPmxt3cba zLWCZfHOq3DR
SCF9Ns0WQqdrMst0WAPQkBlJHbcPWgDm7e98ESaVeTSS6pJY3dhKGuNSF8wk tjGXkWGSf+8i
7isZywTODsyL+lt4YWczCfVI5LLN6p1ma8TywqPG0i/aSMqFlYMRwNy7udtY K+Er1/hJGLu6
1S8vINAcW2nTQxr5E7WjR7VVI1kLAO6BWLfe5BYAi/4h8P6rKb6zS5vtYmu9 A1G3imu0iTyZ
G8kLGGjSNB5hOfnyf3YwVG7IBrxXvhrUdWfVZUnt760iE/m38M9niONZV3gS hQyqLiQMQCB5
gz/DUck/h3V9O1+yeS6sE1G2lkvnu7ea0Yp5SxPKvnqBhUVASAQvyk/e5zfE Sz+LPt39k2V8
2NA1Gy/0q0ltczT+T5ajzlTdny35GQMDJGRmPWp9X8RvrVlpcesS6ffaHexp Fe2ItoludsaR
ohkRJASHckuSpz8p+VgoBbk1PwlDE2u6zei1uLby3uVuUuLJJpVUlJPskhG9 v3Z2Eq7fugFY
mMYv62mhTNeeHDqEFrqPiLcJYQxeaVTFsd1TPy/uoWUMRtDKMhj8rZN4+qal 4O8W2kb6pqNr
Jpci2kt9Y/Z7mSdo5Q8axiOMsoAiKnZyXYbjjC9HrcEs+r+GXijkdIdSd5GV SQi/ZLhct6Dc
yjJ7kDvQBPD4h0y41Q6dFcSGfe0asYJBFI653IkpXY7ja2VViRsfI+VsJJ4i 0qH+2C99Gp0h
d9+oBLQL5fmAlQMkFeQRnOCByCByS28vmWmnXFnqSmy1fUb+7eG3mUC3lW72 NHKgw7kTxYWN
i4JPAKnFPxPomqfYvHepaZYTz3l15lr9mVMfbIHs7dNy/wB5o2Dlfvf8tUA3 PkAHZXHi3SLS
/ubSeS6D2rhLmVbGdoICUV/nmCGNQFZWJLAAHJxUl94m0rTrt7a4mnDRY8+W O0lkhgyAf3sq
qUjwpDHewwpDHAINcprOialPbeOriK41LZI7tFpyQoYr4CxhG3PlmQhiDGfL dTwQCG5qTXkn
Sz8a6R9ivpLvWt/2DybOWSOTfZxQrulVSkf7xGB3suAMnCkGgDo7jxbpFpf3 NpPJdB7VwlzK
tjO0EBKK/wA8wQxqArKxJYAA5OK1HvrdNRisGkxcyxSTRptPzIhQMc9ODIn5 +xrhNZ0TUp7b
x1cRXGpbJHdotOSFDFfAWMI258syEMQYz5bqeCAQ3NGo22uy6nfeIYdKjdLW 9SWB2ldbtbe2
3xyRxwCMpIZA93sJcEi4U5G1doB2ba1p0ek3erNc4srPzvPl2N8nksyycYyc FGHA5xxniq99
4m0rTrt7a4mnDRY8+WO0lkhgyAf3sqqUjwpDHewwpDHAINedap4Q1S48LeJb aO2n+w6hLqd/
PaiL55bmOabyNozvPmA27jbx/owGD5pre15J0s/GukfYr6S71rf9g8mzlkjk 32cUK7pVUpH+
8Rgd7LgDJwpBoA6dvE2mjVpNLUX0l1FKkMhh0+4kjjdlVgGkVCg+V1Jy3APO KsLrWnSaTaas
tzmyvPJ8iXY3z+cyrHxjIyXUcjjPOOa5ixlax8d639oudcjjudQjMVtDprSW kwNrAm9phC23
DAg/vFA2cjGcyWNpcxXFl4gbTpBb3VwJF0zY/mWRnKr520nAl+YmUYAUPIVO RIZwDTn8ZaNb
w6fKZL6RNSiSa0eDTbmYSqylwAUjPzbVZtp+YAZIxXR1wuk2N3F4e+HUMlrO klp5P2lGiIMO
LCZDvH8PzELz3IHWu6oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii igAooooAKKKK
ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACqOsf8AIFv/ APr2k/8AQTV6
qOsf8gW//wCvaT/0E0IT2OI+J3/JOtX/AN2P/wBGpWp4P/5EnQf+wdb/APot ay/id/yTrV/9
2P8A9GpWp4P/AORJ0H/sHW//AKLWuhf7ov8AE/yQo/xH6L9TnvAX/Ix+LP8A r8P/AKNmrsP7
Si0mx1e+nWR0hmyEiALyt5cYVEBI3OzEKo7kgd64/wABf8jH4s/6/D/6Nmrq Z9GXXI57WeaS
O1TUElnjjLI0oSJSgDqQyESCN9ynPyY6E1WN/wB4fovyRlh/4a9X+bJtP8Sx f2fZLqhMWpS3
f9nTQwQu4+1KCWwoBZYyqmRWbH7sqxxmiPxpoUl0lul1MGk2mGRrOZY5g0sc StHIU2yKXljG
5SRhwc45qvb+Do7LWbe7tb2cWsV0t40E7PO7zeRNAzGWRy3KSRDByB5PA+Yk c7pnhXW76axt
7uN7DT9Ishb6ebmCLzdyTW8sRfyp5BKB9mUP/qs5+XrlOU3OuvPF2iaffvZX N3Is8bMsu23l
ZYtqROzOwUqiBZ4iXYhRu5PBxHceJtBudOaObz7mO4LwyWZ0+aWYgAbxJbhD IFw6Z3KBiROz
rnIm8A3N0+sS3etGa41S1vLd3FqFEZuIraPKgN91Ps3AJyQwBYkFmk1bwDFq er3OpM2nXE0t
w8qR6lpwuoEV4beNvk3qd+bZSGyMB2GDnIANOy8UeG0ni0uwu4NkXlQolvEx hiDojQjeo2Ir
q6BMkBj8q5IIEGm+OdKvND0zUbnz7Vr21S6kj+zyuLZW/ilYJiOPIbEj7VYK zA4BISLwgltp
9xZQ3mI5L+yvFP2dV2C2FuAm1dq/N9m/hCgb+FwOajeBZU0v+zINUjW0m01N JuvMtizvax+Y
I9jBwEk2SsGchlJAIRRlSAb8fiDTZr6azineSeJ9hVIJGDHeEbYQuHCMwVyp IjJ+fbRc6lPH
4k03S40QLcW9xdSO2SdsRjXYoyMEtMp3HPCEY+bK17bRb601m+vo9SQpcuh8 o22MgMMl8MAz
hB5aOApC7d/m7FxJeWNw3i3S9RSPfbx2l1ay4YAoZGhdWIOMr+5KnGTll4xk gANJ1C8vdZ16
CYwC1sruO2gVIyH5gilZmYsQcmXAAAxt754xLnxJr0PhjxZey2+nW+oaK7mO NS9xEyrbxT4Y
/uyxO9hkBcZHDY+bX0S3u7bXPEbTWskcFzeR3FvOWQrKv2aGMgAEsCGibO4D qMZ5xn+IdCux
4Z8YR2Ecl7d6ykhit02IVZraOADc7AEDZuJyOCQASBkA3NT13SNF8r+1dVsb Dzs+X9quEi34
xnG4jOMjp6is/wAUard2ng+81zRLqxf7Naveq80RnjmjWNnAUo643cYbJGOx zWhqej22rGL7
TLfRiLO37Jfz22c4znynXd075xzjqaj1XRhqPhe+0JJ5I1ubKSzWWQtMyhkK biWOXIznk5Pc
96AKd3ro0BbVNc1GCSZ4nZltLCbMx82KNCiqzkYMyKV+YsXBGACKkPizSBbJ L5l07u7J9mjs
p3uFKgE7oAhkUAMhyygYdD/Guc/xl4evtXksr7TpUF1avEiJJHuXBu7WVpD8 y5Crbk7QQWzg
EHqsfhbUba+bV7fVrQa1K8vnSyWTNbsrpAhCxCUMpxbQ8mRud/HzAKAdFZ3t vqERltX82L5S
sqqdkgZQwZG6OpDD5lJHUZyCBi+HL7XdVstO1eaXTjp+oQJcLbJA8cturpvU eYXYSkZCn5Ez
ktxjadPRtM/sXSbbTI5jLbWkUdvbblw4jSNVG85wzZBOQFHIGOMnP0TQ9T0e KysTq8MmlWMS
w28MdnsmdFXYglkLsGwME7UTLAHgZUgEFx4iu4NI1n93C2pWeoDT4flPkmSZ o/sxbndtCzw7
yOch9oPGZPEniqHRdO1YQiQahaWU08AubWVYJXSIyBVkICOcAkqrZwrdNpxb n8P2914ntNbY
4kt4ihTn5nAYRvnPG1ZrgYxz5uTyq45nWfht/a19dTG9sY/P+1H7S2nb7w+f DLFsefzBujTz
vlXaMLGi54zQB0Vx4u0S1kulnu5I0tUlaSY28vlHy1LSKkm3Y7qFfKKSw2Px 8pxqWd7FeRGS
NZ1A28TQPEeVDDhwD0YZ9DkHBBA5TU/As2p2V3prarGlgz3k9sotSZY5rlJl cu+/DoPtEpCh
VP3MscHd18azh5zJIjIXzEFQqVXaOGOTuO7ccjHBAxxkgHEQeMNSk8L6zrIu tHnns9Mku3sI
gwn0+YIWWCdd5LHIZWOIiDGfl5+S5F4hu/7FOoRa3omsxtqFpZiTT4CqR+ZP HHIGPnSZbbIC
OmOMgg1JfeEr3Vre9i1LWI5mk025021kS02MiThdzy/PiR/3aH5RGPvccjbP e6Nrup6VLaXm
r6aZxcW1xbyw6c6KjQzLLh1M7FwSgHBXHPXsAQeKvEc2j61plkNZ0fSILm3u JXudTjLKWjaE
Ki/vYxkiRj1P3elWJrzXrjWX0izvNOgntLKC4uLiayeVZWlaVcIgmUxgGEnl nzvA425aKbRf
EcuoWepf23pX262int8/2XJ5bRymFvu/aMhgYeu7BDdBjJsXGkawmojUbHVL KG+mtYba7M9g
8sb+WXZWjUSqU5lkyCz8bemCSAQS3viMeLdO083Olw21zaSXUsQtpJXj8poF dFl8xQ2TK2GK
DGBlTWtqOs2WkeULpp2klyUhtraS4kYDGW2RqzbRlQWxgFlBOSMxrpLf2zp+ oPdyStZ2U1qx
kRd0xkaFt5K4AP7noFA+bjGMUzVNLu7vULTUtMvYbW+topbcG5tjPG0chjZv lV0O7MSYO7GN
3ByCAAHifRzdw20d55nm7As0UTvAC4BRWmUGNWYMm1SwJ3pgHcuY7jxfoNrY WV9c6lHDaXlu
tzBNIjKpiZ4kDkkfKN08X3sY3ZPAJFN/Cs7Xjg6r5llPd217dLLbgzyzwCIK VkUqiqTBGWXy
z/HgrkbaMfgG4D6Ukmtb7bSoora1hFoBiKOe2mXc27LSEWwVm4U5BCLghgCb VviBZWMbyW9p
PchbC9uyjxyQvG9usb+XIjJui3LICGcD+HAO9c6sXiXTY73+ybrUI31OF44L ry4JFjSV1Vl3
HkRh94Cbm+YnaCzAisbXPBEt/wD27dWl6gutSgu4FSaMhFWa2hiwSDkEPbRt uweCw2kkMNA+
HmvYL2R5JLZr/UrPU2ikjUtCYRb/ALo7WIJP2fG4HA3cZxyASx+NNCks7W8W 6nNvcxCdZPsc
2I4iSBLL8n7qM7WId9qkKxBIBNPuPF2iWsl0s93JGlqkrSTG3l8o+WpaRUk2 7HdQr5RSWGx+
PlOMj/hBJo9Ii0uDVUEEukQaPfs9qWaWGNXUNFhwInIlk5YSD7vHB3V7z4a2 1xJqvlvp0Ivl
u9tyNMRrtXuFkDb5y2WQGVsKoQ4CKWIDbgDaPjPQkjmlmuZ4FhieWTz7OaIo EUuykMgxJsBf
y/vlPmAKkGpY/FukSyQReZdrPPcJbxwTWM8cu9lZlJjZAwQiOQ7yNvyNz8px ieK/BtxqWk62
9pOZLm6lnu4YNgG5209rNY9xbAySG3H6Y71oR+FrybXbXWtS1KCa9glQkW1q Yo2jSK4RV2tI
5DZunJbcQQqjaOSQC3H4u0WUTOt3II403ozwSqLhSwUGDK/vwWZADHuyXQDO 9cyy+J9Kgs7a
8eaf7LPu/fLayskW04fzmC4h2nIbzNu3a2cbTjn9J+HcOj2c9vatpUQNr9ji ePSIg8seVyLp
iSZ9wQBtvlhtznAJUozXPh7Premra3GpWlzKbI2jTalYG6MOd37y3zIDG/z4 LMXZhHFuJKlm
AOqvNb0+w/tD7TceX/Z9qL26+Rj5cJ34bgc/6p+Bk/L05GacXi7RJXhWO7kk e4uEghVIJSZC
6syuvy8xFY3IlH7shGO7g1n6p8PtCv31m5gsrW1v9UsntTcraoTEzrKGlGAD vbzTuO75gqir
tz4ZNz4utde+2bfI8n9x5Wd3lx3afezxn7Vnp/B/tcACN4z0FYXma6n8tChQ izmP2gM6xq0P
yfvlLOg3R7h8684YZsX3ifStMnuor6ae3+zRPM8ktrKsbKqGRgkm3bIwQM21 CWwrcfKcYsXg
WYR6dBPqqPBpKQQWAS1KsIY54JSJSXIdyLaNdyhAMsdpyAKes/Db+1r66mN7 Yx+f9qP2ltO3
3h8+GWLY8/mDdGnnfKu0YWNFzxmgDooPFuiSyFGupLfajM5u7eW3VNqlirGR VCuEBfYcNs+f
G3mq914rhNrFcWIk3Je21vcW13ay28uyeUQqwWQKwG5twbaQ3luowcla+q+C ItZa9W4vpEhv
b17qRY4wGCvYGzKBiSM4O/dg+mO9MvfDmqTyfaLi4gu765urASSQQ/Z4YoLW 4Nxkq0jsWOXX
IJyWThQGagC/rniP+ydQs4Vj8yFf3+oSBci2tyfLDk5Gz52DZbjy4Zz1Sq7a 9eP4vk0pbzS7
bypUSOxusrc3kZjV2mibd91dzjHlsCYWG5ckpLfeDLDWL/UbrVZbucXiLAI4 bqa2UW4THlOI
3AkG5pWywz+8I6AUPoGr3aWdvqGuR3VpE9tPPmzCSyTQsjgoysFRGeNWKlGP zOAwBXaAX9U8
Qabo1xb295PItxco7wQRQSSyShCobYiKSxG8EgDOMnopIwLLxPNqvi670+08 Q6BHBFPELe1a
MyXF1CbeKYujCYAgh3wQhAC555ro5dM83xDZ6r52Ps1rPbeVt+95rwtuznjH k4xjnd2xzz/h
3wprHhlI7W01myksj9m85JtOcyN5VvDA21xMAu4QgjKnBbvigDUh8X6FNPPC upIn2d5o5ZJE
ZIkeIt5iGRgEDqEZtuc7Bvxt5oHizSDbPL5l0jo6p9mksp0uGLAkbYCgkYEK 5yqkYRz/AANi
hfeCItR0dNMuL2QQ/bb26kaOMBmW5W5UoMkgFRc/ewc7OnPE8+h61d/Z7m61 q0a/s5xPamOw
K26Hy5Izuj80uxKyv/y0AyqYAw28Akfxp4eWVY31D5zEJ2TyZMxRlnQvINv7 tVaN1cvgRkYf
aSMx2PjTTbhmjuzJaSrcX0X7yKTywlrIVklMhUIqY2HcTgFtuSQapr4Ixpuu Wp1DMms6e9rL
IIMCOR5LmR3Vd33d1y2FJyAoBYk5qSTwRDcG6hmvZDZ3FvqNvsSMCQLeSRyS HeSRlWV8fL0Z
QclSWANvTtZstX80WrTrJFgvDc20lvIoOcNskVW2nDANjBKsAcg44Wy8c6jc +Dk13/hIvDMr
slmLiGK2bFg08sakzH7QeFVpODsyV6jBFdX4Z8NJ4fF0yx6WklxsDLpunLZx 4XOCQGZmb5jy
WxgDAB3Flj8M+X4R0jQReZ/s77D+/wDL/wBZ9mkjf7ueN3l46nGe+KAMe38W 3jWN8YL3S9W2
S2cMGo2CEWwkuJvJKMokfc0eVkYBwSJFHy8MTVfFWr+HYNRS9ig1G5szYTA2 No6GWO4uGhaN
YjIxMgEbFTuwSyjHHOxqfhk6jf312Lzy5J4rMRgxbhHJbTyTIzcjcpZ1BUbT hThgTkV38L3l
809xqWpwSX00tkS9tamKMR2s/nquxpHO5izgtuxgr8vB3AD4PFUV940tdFsS lxatpsl491Hh
0Zt0OxFcHGdkm8jHR4iDhudCTX9Pjk1FB9rlbTnjS5WCzmlKs6qyhdqHedrK SFztBBOKp6d4
Us9J1W2vLNzHHDHdRmLYMt50kLLyMYWNYVjVccIFGcLzBqfhE366l/pMD/bN QS98i6tvOt22
26Q+XLHuHmL8m8crhwh528gE8njTQllWM3M7F4hKdlpM2wFnRVYhPkkLxugj bDlxtA3cVJJ4
u0WIRO13IY5E3uyQSsLdQxUmfC/uAGVwTJtwUcHGxsYml/D7+zbR4ft8A3y2 su23tPKjTyb6
W72om87VPm7AM/KFzz0qWXwLMY9Rgg1VEg1ZJ4L8PalmMMk88oERDgI4FzIu 5g4OFO0YIIB0
VrrWn3moT2FvcbriItkbGCvtO19jEbX2sQrbSdrEBsE4qhpfiPztO0n7bGRe 3l3Lp8nkr+7F
xCJfNIyc+WTBJtPXBXIHOJ7DRriz1y/v3v8AzIbrBEKwhCT2aQg4ZlGEVlVD sADmQqrLn6l4
Mt7/AFDUb9J/JubiJDbvsLfZ7lSh87G7D829p8h4/cf7bZAKg8cw22vImqXm nWGlXD3yQTXM
oictbSQwkEs23JczkAdVCHg7hWe/juWb+zXTXNA0y0vH1Ire3imSKRbe5WKI IfOQEsjbicnO
OABXV23h+Cx1HSprQ+Ta6bYS2ENvgt8jGEr8xOflEAHOc7uvHOYPCupWd3bX emaraxTwvf7v
tVi0yst1cLPgBZUIKlQucnPJwKAKeseKLzTfEB0q68R+HdJ8qwguDLf25H2i R3lV9gNwm1R5
anGWI3cmmN4r1G51mysW1HR9AnutNtLpLPVIWkneaZpQ0SjzYiSpRRjbnLdu ldNZaVNBrFxq
dxcxyz3FnbW0gjiKLuiaVi4yxIDGb7uTjb1OaxNP8KaxogtP7K1mxTydLtNO k+16c8u/7P5m
HG2ZNufMPBz0HNAG/q2t6fokUD6jcGFZ5vIiARnMkm1mCKFBJYhDgdScAZJA NMeLtFZ3AupC
Ut1uHAt5flDSGJUPy8SmRWQRf6wspG3IxVzUNMN/e6Tc+ds/s+6a527c+ZmG WLbnPH+tznn7
uO+Rz8fgfym1FxqB8y6ljuIiYOIpI72e7TcN3zLumVSAVJCHBBb5QDUPizSB bJL5l07u7J9m
jsp3uFKgE7oAhkUAMhyygYdD/GuY28Z6ELiWKO6nnZNgDW1nNMkhZFkVY2RC JG2OH2oSduWx
gEjIvfAP9oz/ANoXkul3mpvLJJL9t0zz7T50hT5ITJuVgtvFhi56ycfMAt+x 8HJp13bSxXmY
7fUEvFTyFTIWxFoEwmFHTf8AKoA+6FA5oAuQ+LdEnvxZw3ckh3xp56W8pt90 iK8Y88L5WWEi
YG7kuoHJApkfjTQpLO1vFupzb3MQnWT7HNiOIkgSy/J+6jO1iHfapCsQSATX P6B4J1SwWbS7
i9g/smG6sZUxbfvrg21vahXD+YQimSDBUoTgNg8giSX4bW0ltpsTvpty9rps Gmyy32mJcNsi
DYeHc2InO9idwkHCcHadwB06eINNkuLuCOeSSW2V3ZUgkbeEOH8vC/vSrYVg m4qxCnBIFRT6
na6r4d1CazeQhIZEkjliaKSNtmcOjgMpwQQCBkMD0INULvwpcXcmrFtU/c3u 0iEW4CuVYMBO
AcSrhREQoQtF8jlyFZYtL8N/8I14b12LdZD7W0lz5djZfZYYv3CR7Vj3tj/V 7ic8ljQhPYyv
id/yTrV/92P/ANGpWp4P/wCRJ0H/ALB1v/6LWsv4nf8AJOtX/wB2P/0alang /wD5EnQf+wdb
/wDota6F/ui/xP8AJCj/ABH6L9TnvAX/ACMfiz/r8P8A6NmrrZb6bTNN1e8t rX7TNHcJthxK
d2UiB/1Ucj9DnhD05wMkcl4C/wCRj8Wf9fh/9GzV2thf2lrPfpcXUELmcELJ IFOPLTnmqxv+
8P0X5Ixw/wDDXq/zZVspZfGXhbUbTU7SSwS6SW0dYxMrbGQAsPPhjOfmP8JH HU8gc5aa8vh+
TxNqIgvrvzPtt1AjyqFdLVpBKznOQwkKxAgH90bYAHY+3vP7Y0z/AKCNp/3/ AF/xqgG8OLqD
36nSheSOrvcDy/MZlUopLdSQrMoPYMR0NcupvdHLeJoddubzQ9PbU9OfVItT W6tZLYPb/MLW
7ZEmj3OwiZotpYN86l1AG3JXRfEM11rN62nCOIX3if7JcrcxFmi8rT0aVBtY DeGgKbgWXqRu
GM9LYReFdMijhsItGtUjmM6JAsUYWQqULgDoxUlc9cHHSrH2rQfP87z9N87z fP8AM3R7vM2e
Xvz/AHtny567eOlGoXRwOua3qOteHNKivbXTruDXEs7+3tWjaNY1F5Z/uZWJ cSBhcAFwi/dP
yHdgdI8V3oNho2naRpuiaLdalqDxTRwQGaBMQSybgF8ksxEKDJxjPfAq61n4 QdLxWttDKX7h
7xTHFi4YMWBk/vkMScnPJzUthF4V0yKOGwi0a1SOYzokCxRhZCpQuAOjFSVz 1wcdKNQujmbT
xjrupTaRaW5063n1VLa6jlktnkWCGeC6lEZUSKXdTbY35UHf9wY5U+NtZ2ag UtrWV7NIbZY4
4zuluZL6a08wbpAAn7nf5ZIPzYMgxurY1DSPB+qixjuV0poLN0KQ4iMbqkck aIykEFFErlRx
g8jvnQVvDawPbqdKFu9utq8Q8va0KghYyOhQBmAXoNx9aNQujnh4q16KyAvI NOtLm3uHFz57
LnylSNtzRxSyGBMyqrSbpPLBR2Qq52Gpavda3q0uhSwSP4e1d7nShdxwpG0c iwy+ZhzKzMQ0
Uq4MKjvuIA37qQ+FY7S1tEj0ZLa1lE9tCqxBIZASQ6L0VsknI55NL5XhX+1/ 7X8vRv7T/wCf
3bF533dv3/vfd469OKNQuhnibVdRsza2mixmbU598oh+zrNmFMB2+aaFRhpI x98n5uFPJXA0
rxrq+p2w1f7LYw6Z9qsLfyMu8zfaorY/fyFXy2uM52neBjCY3HptRbw3rNuk GpnSr2BXDrHd
GOVQ2CMgNkZwSM+5pIX8NwWwt4f7Kjg3xv5aGMLujCiM4HGVEaAHtsXHQUah dHPaFf6lq3ij
w9q17LaeRqGh3V1bW8MDI0Cu9o2x3LkSEAgbgqdCcc4FfUfGeu6do13qzQac bcXGpWtrEquW
3Wy3LpI7bsYItthQDvuDjOwdLaxeFbLUZ9QtI9Gt72bd51zCsSSSbjubcw5O SATnqalmfw3P
bG3m/sqSDfI/luYyu6QMJDg8ZYSOCe+9s9TRqF0ZE3iDV7e8naR7GS1sb+00 25jW3dXnkmEG
ZUbzCI1BuB8hVydhG75srkTeN9cg8Kafq8VtBeXKaWmr6lBBahUSF1LoAz3C lOEkXcBKflzs
HCt10jeG59Ti1OX+yXv4k2RXbeWZUXnhX6gfM3APc+tV7yz8Iahb2lve22hX MFqmy3jmjidY
VwBhAeFGFAwPQelGoXRztx4w161hvrtjpzwQJqV0kQt3DeTYz+U0ZbzCN8gZ SHxhNp+R88bF
n4h1KbU7OSUWv2C+1K602KBYmEsTQef+8aTcQ4b7O3yhFx5g+Y7fm0nbw3Ij Ix0po3SVGU+W
QyytulB9Q7DLD+I8nNEbeG4NTl1OL+yUv5U2S3a+WJXXjhn6kfKvBPYelGoX RRvPE2o23idd
Lj0fzLYyxxm52XnAYLk5W1aLjJ/5a445K84z/HGjpNPBNA98b/UpobVI7eVU BEKXEuQTjEgV
5WjJOBKkBOApNdZ/bGmf9BG0/wC/6/41VvrnQdTsns76fTbu1kxvhneORGwQ RlTwcEA/hRqG
hi/8JTd6nLJPpUtjaWFvYRai0upIQLiGRpQh3q48hSsO7cyuQJBlAVKnlVnn 0vT3huZZHs9V
8Vr9kLMW8q4XVTvix/ChjiDrgY3CXJBZAe8nj8LTy2000WjSSWszTwO6xExS M29nUn7rFvmJ
HJPPWrH2rQfI8nz9N8nzfP8AL3R7fM3+Zvx/e3/Nnru560ahdGDaa9rupXS2 NtLp0E89xqLR
zSWryKkNrcLAEKiVSzsX3b9wAxjbzkcazDXdK8T+KP8AhH9KXzIorz+0Xl3X thnTreTMP7r5
mTO5f3keW7r1r0e8i8K39p9kvI9GubYStOIplidBIxJZ9p43EsxJ6ncfWrD3 OgyR3UTzaa6X
WftKM8ZE2VCHeP4vlAXnsAOlGoXRjax4p1Gy1+OOytftOmQ3dtY3reQo8qaZ 0A/eGYNws0TY
WJwc43DJKZekeMdcuLbT7q+OnSJNBpt1MkNs8ZK3svlIikyNgxspYsQd4IAC Y3HpbqLwre6j
BqF3Ho1xewbfJuZlieSPady7WPIwSSMdDUqN4bjRUU6UsaJEiqPLAVYm3RAe gRjlR/CeRijU
LowdOv7vxMujw6mYfs2q2ketWy2sZje28iW3lWJ2ZmEuTIgLAJ9w8fMNux4N O3QWiHEcN/ew
RIOkcaXUqIijsqqqqAOAAAOBU1m3hzT7m5uLI6TbT3b77mSHy0aZsk5cjljl icn1PrSaXPo+
lWK2kOpQOA7yPJJcIWkkdy7ucYGWZmbAAAzgADAo1C6N2iqP9saZ/wBBG0/7 /r/jR/bGmf8A
QRtP+/6/40ahoXqKo/2xpn/QRtP+/wCv+NH9saZ/0EbT/v8Ar/jRqGheoqj/ AGxpn/QRtP8A
v+v+NH9saZ/0EbT/AL/r/jRqGheoqj/bGmf9BG0/7/r/AI0f2xpn/QRtP+/6 /wCNGoaF6iqP
9saZ/wBBG0/7/r/jR/bGmf8AQRtP+/6/40ahoXqKo/2xpn/QRtP+/wCv+NH9 saZ/0EbT/v8A
r/jRqGheoqj/AGxpn/QRtP8Av+v+NH9saZ/0EbT/AL/r/jRqGheoqj/bGmf9 BG0/7/r/AI0f
2xpn/QRtP+/6/wCNGoaF6iqP9saZ/wBBG0/7/r/jR/bGmf8AQRtP+/6/40ah oXqKo/2xpn/Q
RtP+/wCv+NH9saZ/0EbT/v8Ar/jRqGheoqj/AGxpn/QRtP8Av+v+NH9saZ/0 EbT/AL/r/jRq
Gheoqj/bGmf9BG0/7/r/AI0f2xpn/QRtP+/6/wCNGoaF6iqP9saZ/wBBG0/7 /r/jR/bGmf8A
QRtP+/6/40ahoXqKo/2xpn/QRtP+/wCv+NH9saZ/0EbT/v8Ar/jRqGheoqj/ AGxpn/QRtP8A
v+v+NH9saZ/0EbT/AL/r/jRqGheoqj/bGmf9BG0/7/r/AI0f2xpn/QRtP+/6 /wCNGoaF6iqP
9saZ/wBBG0/7/r/jR/bGmf8AQRtP+/6/40ahoXqKo/2xpn/QRtP+/wCv+NH9 saZ/0EbT/v8A
r/jRqF0XqKo/2xpn/QRtP+/6/wCNH9saZ/0EbT/v+v8AjRqF0XqKo/2xpn/Q RtP+/wCv+NH9
saZ/0EbT/v8Ar/jRqF0XqKo/2xpn/QRtP+/6/wCNH9saZ/0EbT/v+v8AjQF0 Xqo6x/yBL/8A
69pP/QTR/bGmf9BG0/7/AK/41T1XVdPk0i8RL61Z2t5AqrMpJO08DmmhNqxy nxO/5J1q/wDu
x/8Ao1K1PB//ACJOg/8AYOt//Ra1l/E//knWrf7sf/oxK1PB/wDyJOg/9g63 /wDRa1uv90X+
J/kgj/Efov1Oe8B/8jH4s/6/D/6Nmruiyg8sB+NcL4C/5GPxZ/1+H/0bNVpN MtPEHi/VLTUF
jkETMI98UUhVRFCRtEm7ADTMxwvJ25OAAzxsObEO72UfyRjQlamrd3+bOv3r /eH50b1/vD86
x2+H+gMWxaQLnOMWVtxnd0zF23D/AL4Xr824b4f6AxbFpAuc4xZW3Gd3TMXb cP8AvhevzbuX
2cf5vwN+afb8TY3r/eH50b0/vL+dc/f+DfCmnWkt3e/YbO2T7001taoke4sB 8zR4HLqBn+6v
XLbpI/A3hq8tkuLWG1khmTfFJFaWrKVYMVKnyiCMMuDz9xeuW3Hs4/zfgHNP t+JueYn99fzo
8xP76/nXP/8ACG+FJbqS1iFj9pG/MKW1qXTAyfl8vPAmiPP/AEzz947rDfD/ AEBi2LSBc5xi
ytuM7umYu24f98L1+bcezj/N+Ac0+34/8A2PMT++v50eYn99fzrHb4f6AxbF pAuc4xZW3Gd3
TMXbcP8Avhevzbhvh/oDbsWkC5zjFlbcZ3dMxdtw/wC+F6/NuPZx/m/AOafb 8TaBBGRSFlB5
YD8a5vwXMJNPvUTYIY7lfKSPGxQ0EUhCgMwC7nYgAkDOAcVZ0/StO1jVNak1 Swtr4292sEIu
YhIsaeTE+AGBA+Z2Oan2dpOLewc+iaNrev8AeH50b1/vD86pz+GvCdrby3Fz oWjQwRKXkkkt
IlVFAySSRgADvVXTdO8BayZf7LsfDd/5WPM+yxQS7M5xnaDjOD+Ro5F3DmfY 1t6/3h+dG9P7
y/nVOTwz4TikhSTQtGRpn2RK1pEC7bS2F45O1WOB2BPapv8AhE/DH/QuaT/4 BR//ABNHIu4c
0uxN5if31/OjzE/vr+dQ/wDCJ+GP+hc0n/wCj/8AiaP+ET8Mf9C5pP8A4BR/ /E0ci7hzS7E3
mJ/fX86PMT++v51D/wAIn4Y/6FzSf/AKP/4mj/hE/DH/AELmk/8AgDH/APE0 ci7hzPsWAQRk
UhZQeWA/GsnQ447e51izgUR21tfBIIh0jUwxOVHoNztx71Fp+ladrGqa1Jql hbXxt7tYIRcx
CRY08mJ8AMCB8zsc0KC5mrj59EbW9f7w/Ojev94fnUP/AAifhj/oXNJ/8AY/ /iahn8NeE7W3
luLnQtGhgiUvJJJaRKqKBkkkjAAHejkXcXM+xc3r/eH50b0/vL+dQ/8ACJ+G P+hc0n/wCj/+
Jo/4RPwx/wBC5pP/AIBR/wDxNHIu4c0uxN5if31/OjzE/vr+dQ/8In4Y/wCh c0n/AMAo/wD4
mj/hE/DH/QuaT/4BR/8AxNHIu4c0uxN5if31/OjzE/vr+dQ/8In4Y/6FzSf/ AACj/wDiaP8A
hE/DH/QuaT/4Ax//ABNHIu4cz7FgEEZFFZGhxx29zrFnAojtra+CQRDpGphi cqPQbnbj3rXq
JR5XYqLurhRRRUlBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF FFABRRRQAUUU
UAFFFFABRRRQAUUUUAFFFFACEgdSBSb1/vD86ytaiS6vtFspxvtrq8ZJ4+0i iGVwD6jci8e1
O1HSPBGj263Gp6Z4fsoGcIslzbwxqWwTgFgBnAPHsa1jBNXbIcneyRp71/vD 86N6/wB4fnVO
Dw14TureK4ttC0aaCVQ8ckdpEyupGQQQMEEd6m/4RPwx/wBC5pP/AIBR/wDx NHIu4uZ9ibev
94fnR5if31/OqFx4f8HW0kcVxo+hQvL/AKtJLaFS/wAypwCOfmdF+rqOpFWf +ET8Mf8AQuaT
/wCAUf8A8TRyLuHNLsTeYn99fzo8xP76/nUP/CJ+GP8AoXNJ/wDAKP8A+Jo/ 4RPwx/0Lmk/+
AUf/AMTRyLuHNLsTeYn99fzpQwPQg/Q1B/wifhj/AKF3Sf8AwBj/APiazL/S tN0bWNFfS7G2
smuLl4Jvs0SxiRPIlfDBQM/MimjkXRhzPqjM+J3/ACTrV/8Adj/9GpWp4P8A +RJ0H/sHW/8A
6LWsv4nf8k61f/dj/wDRqVqeD/8AkSdB/wCwdb/+i1rrX+6L/E/yQo/xH6L9 TnvAf/Ix+LP+
v0/+jZq1NBbHjzXF3fxk43df3Vt2z+uD9RnBy/Af/IyeLP8Ar9P/AKNmqS6u dR8O+LNRvk0q
7vIrs7k8iORl/wBXGvOwNg7oz1Xo2QeoOuKV8RJLrFfkjno6U4vzf5s9C3Ub q4Y+Or/nb4Y1
M9cZt5xnrj/ll/u/mfTkPjq/52+GNTPXGbecZ64/5Zf7v5n055vYT/po3549 za8Utbw29lfT
alBp0lndebDdXURe3RzHJGfNwy4Uq7AEsvzFBk5Ctz2oeIp4vDmntb3NrpDX NxcOb7z4rS1m
CyMN4eSKYZm3ecq4JK7jvOCWr6l4kl1Ty/P8OeIE8rds+zTXttnOfveUq56L 1zjLY95LDxRc
aZbvBbeG9dkQsXzdNeTtnBH3pEYgcLwDgZb8T2M/6aDnj3MHT/E+r3U3nQXv 2KTV5bWac28S
HY8iaShKbw2MLPKBnPXnJAr2LdXDHx1f87fDGpnrjNvOM9cf8sv938z6ch8d X/O3wxqZ64zb
zjPXH/LL/d/M+nJ7Cf8ATQc8e53O6jdXDHx1f87fDGpnrjNvOM9cf8sv938z 6cjeOr/nb4Y1
M9cZt5x64/5Zf7v5n05PYT/poOePcl8DtutNTO4t/paclt2f9Gg75OfzP1PW tjw+cX/iH/sI
r/6TQVmeC7O5tdMupLmKWI3FwJEWVSr7RFGmSCSRkoTyc4xmpIr9tD1TVRc2 V5JFd3K3EUlv
bSTAjyo0IOwEg5Q9fUVM9Zyt/Wwo6RVy544b/igPEn/YLuv/AEU1YupT65pm rNczNa6lqcWi
ahLYJa2jxKWVrclGQyO0hZvLxtK4www24Fb974gsb61e2mtNcWN8ZMFleQvw c8Oihh07H2qh
ZXOj2N0lxDD4qaRM4E51KZORjlHyp69x71Fn2L5o9znrvxbr9nod1NBrtneh fOMdzazR3eGW
yu5dpkWCOPhooW2hSw53Ha6itq/l1JPF2lafe6m8qWt7a3r3QhSMRtNFexGI cELGzJGi7tz5
lxvLFSN3/hLLX/ny1b/wV3P/AMbo/wCEstf+fLVv/BXc/wDxunyy7BzR7nG6 f4o8U3VmJTq2
nC5me0E0CsLhrCWS6gjMbxrFH5QxJIpjkkaQ7flbKM1aQv7618ZeZd3F9ex6 RFfW6MkUZmvS
YLO4EJCqFaQ5kKqgUkRDqA5PQf8ACWWv/Plq3/gruf8A43R/wllr/wA+Wrf+ Cu5/+N0csuwc
0e5yeieKNXvvEFnpX9vWt5Ab2BpLmyuoLssrQ3btEzrBGoGbdOAm4Bj8/I2+ n7q5z/hLLX/n
y1b/AMFdz/8AG6P+Estf+fHVv/BXc/8AxulZ9g5o9xdI/wCQr4h/7CC/+k0F TeHzjUPEP/YR
X/0mgqDQFmdtTvZYJIVvLvzo0lUq+0RRx5IPIyUJwecYqvFftoeqaqLmyvJI ru5W4ikt7aSY
EeVGhB2AkHKHr6imvia8ieifmdXurA8cN/xQHiT/ALBd1/6Kao/+Estf+fLV v/BXc/8AxuoL
3xBY31q9tNaa4sb4yYLK8hfg54dFDDp2PtStLsVzR7mZrfiC6tdfkgbXvsE8 eqWVtaab+5H2
y3keASSYdTI3Mky7kYAeX6qxNC28Ra/baFotzdar576tpkd3cTfZ40WzXzbV HkTAwMR3EjsX
3LuQNhVylagudE+1xXL2XiOZothWOePUJYsoAFYxsChYFQ24gncN2d3Nav8A wllr/wA+Wrf+
Cu5/+N0+WXYOaPcwrDxHfnWsR6ldarpdpb31xFJbRQyPqaxpakAFFCsQ80yD y9uSgByQ2aGi
eKNXvvEFnpP9v2t5Ab2BpLmyuYLssrQ3btEzrBGoGbdOAm4Bj8/I29Z/wllr /wA+Wrf+Cu5/
+N0f8JZa/wDPlq3/AIK7n/43Ryy7BzR7nR7qN1c5/wAJZa/8+Wrf+Cu5/wDj dH/CWWv/AD46
t/4K7n/43StLsHNHuLpH/IV8Q/8AYQX/ANJoK16x9AWZ21O9lgkhW8u/OjSV Sr7RFHHkg8jJ
QnB5xitis6nxDhsFFFFQWFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR RRQAUUUUAFFF
FABRRRQAUUUUAFFFFABRRRQAUUUUAZWqca34d/6/pP8A0mnqLxZqFppt/wCG bu+uoLW2j1Rt
808gRFzaXIGWPA5IH40/XBNHNpd9FBJOlldGWVIl3PtMUkeQOpwXBwOaz9S1 TTNV8r7TbeI0
8vO37LDf2+c46+WF3dO+cc46mt0m4qxldJu5nahqmoWGmXt5pVxBZ6bf6zuh vZZlhhitzbAt
KrtHIqK9wjYYoQ5lyP8AWK9V7LVdQhuNQ1W9vN08ujQxQy2zKIpQLq4T7R5j xDKxrJE7yKnl
hZC+wqUFbOm6ppmleb9ntvEb+Zjd9qhv7jGM9PMDbevbGeM9BV//AISy1/58 tW/8Fdz/APG6
fLLsPmj3PPTrV3rGp6eLq9tr42l4tul1bXCzrKv2zSpMmREjViDIV4RcYA5I LHX0bxN4gurG
8nu9Z05JDZ+bPGJPObT5iyDY4W3AtgA0gPnGUrs3EMscmer/AOEstf8Any1b /wAFdz/8bo/4
Sy1/58tW/wDBXc//ABujll2Dmj3Fhv4bvwXHeXep3SI6Blu40EcxO/8Ad4Cb lkcnaPkDJKT8
qlHCmO6vdTW00qRx5evPnbYxv+6mTI8zzVyQigbSXBby2IVWl3bZX/8ACWWv /Plq3/gruf8A
43R/wllr/wA+Wrf+Cu5/+N0rS7BzR7liO5mHiqWCyle4tymb9JGJS2k2jZsb s7DGYxxjD/IT
++Zrxzq3h7/r/f8A9Jp6i/4Sy1/58tW/8Fdz/wDG6rPftres6UbezvI4rSd5 5ZLi2khAHlSI
AN4GTlx09DTSavdd/wAhNp7MpfE//knWrf7sf/oxK1PB/wDyJOg/9g63/wDR a1l/E7/knWr/
AO7H/wCjUrU8H/8AIk6D/wBg63/9FrXQv9zX+J/kgj/Efov1OT8G6pYWHiPx Uby+trfdfMF8
6VUyRLNnGT7j867L/hJdC/6DWnf+BSf41Suvhd4Nv7ye7udHMk9xK8krfaph uYkknAfA59Kj
/wCFReBv+gIf/Auf/wCLratLDVpc8r307dEl38jGnzwjZW6/izR/4SXQf+g3 pv8A4FJ/jR/w
kug/9BvTf/AuP/Gs7/hUXgb/AKAh/wDAuf8A+Lo/4VF4G/6Ah/8AAuf/AOLr L2eF7y+5f5mn
7zyNH/hJtB/6Dem/+Bcf+NH/AAk2g/8AQb03/wAC4/8AGs//AIVF4G/6Ah/8 C5//AIuj/hUX
gb/oCH/wLn/+LpezwveX9fMP3nkaH/CTaD/0G9N/8C4/8aP+Em0H/oN6b/4F x/41n/8ACovA
3/QEP/gXP/8AF0f8Ki8Df9AQ/wDgXP8A/F0ezwveX9fMP3nkaH/CTaD/ANBv Tf8AwLj/AMaP
+Em0H/oN6b/4Fx/41n/8Ki8Df9AQ/wDgXP8A/F0f8Ki8Df8AQEP/AIFz/wDx dHs8L3l/XzD9
55Gh/wAJNoP/AEG9N/8AAuP/ABo/4SbQf+g3pv8A4Fx/41n/APCovA3/AEBD /wCBc/8A8XSf
8Ki8Df8AQDP/AIGT/wDxdHs8L/e/D/ML1PI0f+Em0H/oN6b/AOBcf+NH/CTa D/0G9N/8C4/8
azv+FReBv+gGf/Ayf/4uj/hUXgb/AKAZ/wDAyf8A+Lo9nhe8vw/zC9TyNH/h JtB/6Dem/wDg
XH/jR/wk2g/9BvTf/AuP/Gs//hUXgb/oCH/wLn/+Lo/4VF4G/wCgIf8AwLn/ APi6PZ4XvL8P
8wvU8jQ/4SbQf+g3pv8A4Fx/40f8JNoP/Qb03/wLj/xrO/4VF4G/6AZ/8DJ/ /i6X/hUXgb/o
CH/wLn/+Lo9nhe8vw/zC9TyND/hJtB/6Dem/+Bcf+NH/AAk2g/8AQb03/wAC 4/8AGs//AIVF
4G/6Ah/8C5//AIuj/hUXgb/oCH/wLn/+Lo9nhe8vw/zC9TyND/hJtB/6Dem/ +Bcf+NH/AAk2
g/8AQb03/wAC4/8AGs7/AIVF4G/6AZ/8DJ//AIul/wCFReBv+gIf/Auf/wCL o9nhf734f5he
p5Gh/wAJNoP/AEG9N/8AAuP/ABo/4SbQf+g3pv8A4Fx/41n/APCovA3/AEBD /wCBc/8A8XR/
wqLwN/0BD/4Fz/8AxdHs8L3l+H+YXqeRof8ACTaD/wBBvTf/AALj/wAaP+Em 0H/oN6b/AOBc
f+NZ/wDwqLwN/wBAQ/8AgXP/APF0f8Ki8Df9AQ/+Bc//AMXR7PC95fh/mF6n kaH/AAk2g/8A
Qb03/wAC4/8AGj/hJtB/6Dem/wDgXH/jWd/wqLwN/wBAM/8AgZP/APF0v/Co vA3/AEBD/wCB
c/8A8XR7PC95fh/mF6nkaH/CTaD/ANBvTf8AwLj/AMaP+Em0H/oN6b/4Fx/4 1n/8Ki8Df9AQ
/wDgXP8A/F0f8Ki8Df8AQEP/AIFz/wDxdHs8L3l+H+YXqeRof8JNoP8A0G9N /wDAuP8Axo/4
SbQf+g3pv/gXH/jWf/wqLwN/0BD/AOBc/wD8XR/wqLwN/wBAQ/8AgXP/APF0 eywv978P8wvV
8jQ/4SbQf+g3pv8A4Fx/40f8JNoP/Qb03/wLj/xrP/4VF4G/6Ah/8C5//i6T /hUXgb/oBn/w
Mn/+Lo9lhf734f5her5fiaP/AAk2g/8AQb03/wAC4/8AGj/hJtB/6Dem/wDg XH/jWd/wqLwN
/wBAM/8AgZP/APF0f8Ki8Df9AM/+Bk//AMXR7LC/3vw/zC9Xy/E0f+Em0H/o N6b/AOBcf+NH
/CTaD/0G9N/8C4/8az/+FReBv+gIf/Auf/4uj/hUXgb/AKAh/wDAuf8A+Lo9 lhf734f5her5
fiaH/CTaD/0G9N/8C4/8aP8AhJtB/wCg3pv/AIFx/wCNZ/8AwqLwN/0BD/4F z/8AxdJ/wqLw
N/0Az/4GT/8AxdHssL/e/D/ML1fL8TR/4SbQf+g3pv8A4Fx/40f8JNoP/Qb0 3/wLj/xrP/4V
F4G/6Ah/8C5//i6P+FReBv8AoCH/AMC5/wD4uj2WF/vfh/mF6vl+Jof8JNoP /Qb03/wLj/xo
/wCEm0H/AKDem/8AgXH/AI1n/wDCovA3/QEP/gXP/wDF0f8ACovA3/QEP/gX P/8AF0eywv8A
e/D/ADC9Xy/E0P8AhJtB/wCg3pv/AIFx/wCNH/CTaD/0G9N/8C4/8az/APhU Xgb/AKAh/wDA
uf8A+Lo/4VF4G/6Ah/8AAuf/AOLo9lhf734f5her5fiaH/CTaD/0G9N/8C4/ 8aP+Em0H/oN6
b/4Fx/41n/8ACovA3/QEP/gXP/8AF0f8Ki8Df9AQ/wDgXP8A/F0eywv978P8 wvV8vxND/hJt
B/6Dem/+Bcf+NH/CTaD/ANBvTf8AwLj/AMaz/wDhUXgb/oCH/wAC5/8A4uj/ AIVF4G/6Ah/8
C5//AIuj2WF/vfh/mF6vl+Jof8JNoP8A0G9N/wDAuP8Axo/4SbQf+g3pv/gX H/jWf/wqLwN/
0BD/AOBc/wD8XR/wqLwN/wBAQ/8AgXP/APF0eywv978P8wvV8vxND/hJtB/6 Dem/+Bcf+NH/
AAk2g/8AQb03/wAC4/8AGs//AIVF4G/6Ah/8C5//AIuj/hUXgb/oCH/wLn/+ Lo9lhf734f5h
er5fiaH/AAk2g/8AQb03/wAC4/8AGj/hJtB/6Dem/wDgXH/jWf8A8Ki8Df8A QEP/AIFz/wDx
dH/CovA3/QEP/gXP/wDF0eywv978P8wvV8vxND/hJtB/6Dem/wDgXH/jR/wk 2g/9BvTf/AuP
/Gs//hUXgb/oCH/wLn/+Lo/4VF4G/wCgIf8AwLn/APi6PZYX+9+H+YXq+X4m h/wk2g/9BvTf
/AuP/Gj/AISbQf8AoN6b/wCBcf8AjWf/AMKi8Df9AQ/+Bc//AMXR/wAKi8Df 9AQ/+Bc//wAX
R7LC/wB78P8AML1fL8TQ/wCEm0H/AKDem/8AgXH/AI0f8JNoP/Qb03/wLj/x rP8A+FReBv8A
oCH/AMC5/wD4uj/hUXgb/oCH/wAC5/8A4uj2WF/vfh/mF6vl+Jof8JNoP/Qb 03/wLj/xo/4S
bQf+g3pv/gXH/jWf/wAKi8Df9AQ/+Bc//wAXSf8ACovA3/QDP/gZP/8AF0ey wv8Ae/D/ADC9
Xy/E0f8AhJtB/wCg3pv/AIFx/wCNH/CTaD/0G9N/8C4/8azv+FReBv8AoBn/ AMDJ/wD4ul/4
VF4G/wCgIf8AwLn/APi6PZ4X+9+H+YXqeRof8JNoP/Qb03/wLj/xo/4SbQf+ g3pv/gXH/jWf
/wAKi8Df9AQ/+Bc//wAXR/wqLwN/0BD/AOBc/wD8XR7PC95fh/mF6nkaH/CT aD/0G9N/8C4/
8aP+Em0H/oN6b/4Fx/41n/8ACovA3/QEP/gXP/8AF0f8Ki8Df9AQ/wDgXP8A /F0ezwveX4f5
hep5Gh/wk2g/9BvTf/AuP/Gj/hJtB/6Dem/+Bcf+NZ//AAqLwN/0BD/4Fz// ABdH/CovA3/Q
EP8A4Fz/APxdHs8L3l+H+YXqeRof8JNoP/Qb03/wLj/xo/4SbQf+g3pv/gXH /jWf/wAKi8Df
9AQ/+Bc//wAXR/wqLwN/0BD/AOBc/wD8XR7PC95fh/mF6nkY3xH17SLvwDqk FtqtlNM6x7Y4
7hGZsSKeADnoK6Pwf/yJOg/9g63/APRa1UPwi8DZ/wCQIf8AwLn/APi66qzs LbTrG3srWIR2
8ESxxJkttUAADJ5PFVUdH2KpQvo29bdbf5EwTlJtn//Z
--------------090907060202040803030104--

jrcsistemas · Mensaje por **jrcsistemas** » Vie May 15, 2009 1:06 pm

This is a multi-part message in MIME format.
------=_NextPart_000_0244_01C9D533.FC9FCFB0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0245_01C9D533.FC9FCFB0"
------=_NextPart_001_0245_01C9D533.FC9FCFB0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Daniel
Probaste con crear un punto de ruptura en=20
cBuscar :=3D "SELECT count(nroempresa+nroramo) AS nEncontre FROM ramos =
WHERE nroempresa =3D '&cNroEmpresa' and nroramo =3D '&cNroRamo'"
y analizar los valores que tienen cNroEmpresa y cNroRamo antes del =
select. Digo, por las dudas..... Son numericos ? o char?
podrias poner todo el reporte de error completo para orientarnos mejor.
Juan
"Daniel Du Pr=E9" <ddupre@macrosistemas.com.uy> escribi=F3 en el =
mensaje news:[email=4a0ce441@svctag-j7w3v3j....]4a0ce441@svctag-j7w3v3j....[/email]
Hola Foro:
Estoy intentando realizar una b=FAsqueda de un registro antes de =
insertarlo en una tabla para verificar que no se dupliquen los datos, =
para ello tengo una tabla con 3 campos:=20
nroempresa N 1,0
nroramo N 4,0
detalle C 20
y creo un indice compuesto por nroempresa+nroramo.
luego ejecuto la siguientes lineas en el evento OnExit de la lectura =
de un TDBMaskEdit donde se lee el nroramo
WITH OBJECT oSender
cNroEmpresa :=3D str(Appdata:nNroempresa,1,0)
cNroRamo :=3D str(:Value,4,0)
cBuscar :=3D "SELECT count(nroempresa+nroramo) AS nEncontre FROM =
ramos WHERE nroempresa =3D '&cNroEmpresa' and nroramo =3D '&cNroRamo'"
Appdata:oDataSource:Execute(cBuscar)
if nEncontre <> 0
MsgInfo("Ya existe Ramo con ese nro.")
Return .F.
endif
END WITH
Pero al llegar a la linea que est=E1 marcada en azul oscuro me sale =
este error:
He probado ejecutar este mismo SELECT en el manejador SQLyog, =
cambiando &cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo que =
la b=FAsqueda se realiza correctamente.
=BFAlguna ayuda sobre que estoy haciendo mal?
Desde ya muchas gracias
Daniel.
------=_NextPart_001_0245_01C9D533.FC9FCFB0
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.6000.16825" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY text=3D#000000 bgColor=3D#ffffff>
<DIV>Daniel</DIV>
<DIV>Probaste con crear un punto de ruptura =
en=20
</DIV>
<DIV>cBuscar :=3D "SELECT =
count(nroempresa+nroramo) AS=20
nEncontre FROM ramos WHERE nroempresa =3D '&cNroEmpresa' and nroramo =
=3D=20
'&cNroRamo'" y analizar los =
valores que=20
tienen cNroEmpresa y cNroRamo antes del select. Digo, por las dudas..... =
Son=20
numericos ? o char?</DIV>
<DIV>podrias poner todo el reporte de error =
completo=20
para orientarnos mejor.</DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<DIV>Juan</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Daniel Du Pr=E9" <<A=20
=
href=3D"mailto:ddupre@macrosistemas.com.uy">ddupre@macrosistemas.com.uy</=
A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:[email=4a0ce441@svctag-j7w3v3j]4a0ce441@svctag-j7w3v3j[/email]">news:[email=4a0ce441@svctag-j7w3v3j]4a0ce441@svctag-j7w3v3j[/email]</A>...=
..</DIV>Hola=20
Foro: Estoy intentando realizar una b=FAsqueda de un registro =
antes de=20
insertarlo en una tabla para verificar que no se dupliquen los datos, =
para=20
ello tengo una tabla con 3 campos: nroempresa N 1,0 nroramo N=20
4,0 detalle C 20 y creo un indice compuesto por=20
nroempresa+nroramo. luego ejecuto la siguientes lineas en el =
evento=20
OnExit de la lectura de un TDBMaskEdit donde se lee el =
nroramo <FONT=20
color=3D#3333ff>WITH OBJECT oSender ÂÂ cNroEmpresa :=3D=20
str(Appdata:nNroempresa,1,0) ÂÂ =
cNroRamoÂÂÂ :=3D=20
str(:Value,4,0) ÂÂ cBuscar :=3D "SELECT =
count(nroempresa+nroramo)=20
AS nEncontre FROM ramos WHERE nroempresa =3D '&cNroEmpresa' and =
nroramo =3D=20
'&cNroRamo'" ÂÂ=20
Appdata:oDataSource:Execute(cBuscar) ÂÂ if =
nEncontre=20
<> 0 ÂÂÂÂÂ MsgInfo("Ya existe Ramo =
con ese=20
nro.") ÂÂÂÂÂ Return .F. ÂÂ=20
endif END WITH Pero al llegar a la linea que est=E1 =
marcada en=20
azul oscuro me sale este error: <IMG height=3D139 alt=3Derror=20
src=3D"cid:023f01c9d54d$21d539f0$[email=2301a8c0@jrcnoteb]2301a8c0@jrcnoteb[/email]" =
width=3D603> He=20
probado ejecutar este mismo SELECT en el manejador SQLyog, cambiando=20
&cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo que =
la=20
b=FAsqueda se realiza correctamente. =BFAlguna ayuda sobre que =
estoy=20
haciendo mal? Desde ya muchas=20
gracias Daniel. </BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0245_01C9D533.FC9FCFB0--
------=_NextPart_000_0244_01C9D533.FC9FCFB0
Content-Type: image/jpeg;
name="Error Xailer 5.JPG"
Content-Transfer-Encoding: base64
Content-ID: <023f01c9d54d$21d539f0$[email=2301a8c0@jrcnoteb]2301a8c0@jrcnoteb[/email]>
/9j/4AAQSkZJRgABAQEAYABgAAD/4QAWRXhpZgAASUkqAAgAAAAAAAAAAAD/ 2wBDAAgGBgcGBQgH
BwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0 Hyc5PTgyPC4zNDL/
2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIy MjIyMjIyMjIyMjIy
MjIyMjIyMjIyMjL/wAARCACLAlsDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEA AAAAAAAAAAECAwQF
BgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJx FDKBkaEII0KxwRVS
0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNk ZWZnaGlqc3R1dnd4
eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJ ytLT1NXW19jZ2uHi
4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF BgcICQoL/8QAtREA
AgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMz UvAVYnLRChYkNOEl
8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3 eHl6goOEhYaHiImK
kpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna 4uPk5ebn6Onq8vP0
9fb3+Pn6/9oADAMBAAIRAxEAPwDM8YeIbnV/F18sjMIbOd7aGInITadrEcDl iM+vQZIApLO31ea1
+0w27mH+9gD8s9ayNYZYvFetSMMqNRnJB7/vWrv/AA/pMPinRoNTl+3Wq2bs jQQybhf7VLYi3MMN
gEEDjjjHOPocZmksDCnQowV+VPXb+upjgsmoYuM8TiZNRUraWve1/wDgaHHn VLqNirOQR1BGCKY2
s3KkgS5H0FZt5qAvdalZIfs6OzbYNxYoM8Ak8nHTNdNbWNpD4DfVzZWM10up GBnvbholEQh34UCR
NzZ6AZJyeDjj0sJmUK2FjXlGzbtbTf520PKzDKXhMVLDqV0ldem/S+qMj+2r r/np+gpf7Zuv+ev6
CpJvD81r4dtdZnvLNYroN5MG9hLJtcI2FxjgkHr0q/ceCb221iTTG1DTTNBE 81yyzNtto1VWLSEq
CAQ4xgH8q7XisMt2uv4b/ceesNN7J9Px2Mv+2br/AJ6foKP7Zuv+en6CtFfB 2oNqMtq11Yokdj/a
H2h5W8p4OPnB2579wOhrBmiEVxLEsscojdkEkZJV8HGQT2PatKVajVdqdmRK hKCvJWLv9s3X/PT9
BR/bN1/z0/QVnYNGDXR7OPYz5UaP9s3X/PT9BR/bN1/z0/QVnYNGDR7OPYOV Gj/bN1/z0/QUf2zd
f89P0FZ2DRg0ezj2DlRo/wBs3X/PT9BR/bN1/wA9P0FZ2DRg0ezj2DlRo/2z df8APT9BR/bN1/z0
/QVnYNGDR7OPYOVGj/bN1/z0/QUf2zdf89P0FZ2DRg0ezj2DlRo/2zdf89P0 FH9s3X/PT9BWdg0Y
NHs49g5UaP8AbN1/z0/QUf2zdf8APT9BWdg0YNHs49g5UaP9s3X/AD0/QUf2 zdf89P0FZ2DRg0vZ
x7Byo0v7auv+eh/Kj+2rr/nofyrM20baPZx7BZGn/bV1/wA9D+VH9tXX/PQ/ lWZto20ezj2CyNP+
2rr/AJ6H8qP7auv+eh/KszbRto9nHsFkaf8AbV1/z0P5Uf21df8APQ/lWZto 20ezj2CyNP8Atq6/
56H8qP7auv8AnofyrM20baPZx7BZGn/bV1/z0P5Uf21df89D+VZm2jbR7OPY LI0/7auv+eh/Kj+2
rr/nofyrM20baPZx7BZGn/bV1/z0P5Uf21df89D+VZm2jbR7OPYLI0/7auv+ eh/Kj+2rr/nofyrM
20baPZx7BZGn/bV1/wA9D+VH9tXX/PQ/lWZto20ezj2CyNP+2rr/AJ6H8qP7 auv+eh/KszbRto9n
HsFkaR1q6/56H8hR/bV1/wA9D+QrN20baPZx7DsjS/tq6/56H8hR/bV1/wA9 D+QrN20bafs49gsj
S/tq6/56H8hR/bV1/wA9D+QrN20baPZx7BZGl/bV1/z0P5Cj+2rr/nofyFZu 2jbR7OPYLI0v7auv
+eh/IUf21df89D+QrN20baPZx7BZGl/bV1/z0P5Cj+2rr/nofyFZu2jbR7OP YLI0v7auv+eh/IUf
21df89D+QrN20baPZx7BZGl/bV1/z0P5Cj+2rr/nofyFZu2jbR7OPYLI0v7a uv8AnofyFH9tXX/P
Q/kKzdtG2j2cewWRpf21df8APQ/kKP7auv8AnofyFZu2jbR7OPYLI0v7auv+ eh/IUf21df8APQ/k
KzdtG2l7OPYLI0f7aus/6w/kKmtdQvr+9t7OFszXEqxRgkDLMcDn6msjbWn4 YB/4S/Rf+v8Ag/8A
Ri1lWXJTlNLZGlOCnNJnYSeHHiCtJrVycjOY7JGU/QmUHH1AqrJo8S8trV9/ 4L4//j1dDpF9aybb
W9gaWG4VYw8YJkibsVx79v59C7XNOt/DFjJDOn2y+vAyxyMhCRRg/eHq/T6f T7353LPcfbnU1b0X
+R94sjwCkqcoO72137/ceca1Ld6BPZ6np9+8nzsIZ2hEciSIF3Ky5I6Ovcgh sHuK960fU/7V0Sw1
HZ5X2u2juPL+/t3qGxu2jPWvA/Fo3eHNPx/z/XX/AKLtq9v8Hf8AIkaB/wBg 63/9FrXoYqo8VgqF
eqrt31+Z5jw8cLialGlsmeF6xEsviTXAx4OoXA/8iNVGe58Qh7BY7uaZbBdt oVkCmAZzxyOc9+eA
B0AA7TT/AAU3ifxL4jZdS+yeTfyt/qN+7dLJ/tD+7+tba/CWZeniH/yS/wDs 69TGSy2tGMMRJqUU
tr9k+xxYWvjsPOUqFnFt6O1ux5vFa3dzf3GqancCe+uGLOw6DJyfTrx0GBgA VuLqUC+Hk0e5sJJ4
1vTeB47sREN5fl4wY3yMEnt2rrf+FTT/APQwj/wC/wDs6Q/CWY/8zD/5Jf8A 2dbU8blcaUaKlZLX
Z79zkqUcfUqurLVv8trHGX+oPfaTountAka6dHOPMEm7zGldW6YGANuM55z2 rSfxM0/ifWdWn09G
g1SFraa1ExyYjEiHD7RgnYD0OM4966H/AIVLN/0MP/kn/wDZ0f8ACpZv+hg/ 8k//ALOqljsqlpKX
fo+ru/x+4lYbGrZdvw2Obn8SyzzahIthFGk+jnSLeETkiCLHDFyuXIyT0GeB 2zWCIhnqK9C/4VLN
/wBDD/5J/wD2dH/CpZv+hh/8k/8A7OroZllmHv7OW/kyKuDxlX4kee+SPUUe SPUV6F/wqWb/AKGH
/wAk/wD7Oj/hUs3/AEMP/kn/APZ10f27gf5/wf8AkY/2Zie34o898keoo8ke or0L/hUs3/Qw/wDk
n/8AZ0f8Klm/6GH/AMk//s6P7dwP8/4MP7MxPb8Uee+SPUUeSPUV6F/wqWb/ AKGH/wAk/wD7Oj/h
Us3/AEMP/kn/APZ0f27gf5/wYf2Zie34o898keoo8keor0L/AIVLN/0MP/kn /wDZ0f8ACpZv+hh/
8k//ALOj+3cD/P8Agw/szE9vxR575I9RR5I9RXoX/CpZv+hh/wDJP/7Oj/hU s3/Qw/8Akn/9nR/b
uB/n/Bh/ZmJ7fijz3yR6ijyR6ivQv+FSzf8AQw/+Sf8A9nR/wqWb/oYf/JP/ AOzo/t3A/wA/4MP7
MxPb8Uee+SPUUeSPUV6F/wAKlm/6GH/yT/8As6P+FSzf9DD/AOSf/wBnR/bu B/n/AAYf2Zie34o8
98keoo8keor0L/hUs3/Qw/8Akn/9nR/wqWb/AKGH/wAk/wD7Oj+3cD/P+DD+ zMT2/FHnvkj1FHkj
1Fehf8Klm/6GH/yT/wDs6P8AhUs3/Qw/+Sf/ANnT/t3A/wA/4MP7MxPb8Uee eSPWjyR616F/wqSb
/oYB/wCAX/2dH/CpJv8AoYB/4Bf/AGdH9u4H+f8AB/5D/szE9vxPPfJHrR5I 9a9C/wCFSTf9DAP/
AAC/+zo/4VJN/wBDAP8AwC/+zo/t3A/z/g/8g/szE9vxPPfJHrR5I9a9C/4V JN/0MA/8Av8A7Oj/
AIVJN/0MA/8AAL/7Oj+3cD/P+D/yD+zMT2/E898ketHkj1r0L/hUk3/QwD/w C/8As6P+FSTf9DAP
/AL/AOzo/t3A/wA/4P8AyD+zMT2/E898ketHkj1r0L/hUk3/AEMA/wDAL/7O j/hUk3/QwD/wC/8A
s6P7dwP8/wCD/wAg/szE9vxPPfJHrR5I9a9C/wCFSTf9DAP/AAC/+zo/4VJN /wBDAP8AwC/+zo/t
3A/z/g/8g/szE9vxPPfJHrR5I9a9C/4VJN/0MA/8Av8A7Oj/AIVJN/0MA/8A AL/7Oj+3cD/P+D/y
D+zMT2/E898ketHkj1r0L/hUk3/QwD/wC/8As6P+FSTf9DAP/AL/AOzo/t3A /wA/4P8AyD+zMT2/
E898ketHkj1r0L/hUk3/AEMA/wDAL/7Oj/hUk3/QwD/wC/8As6P7dwP8/wCD /wAg/szE9vxPPfJH
rR5I9a9C/wCFSTf9DAP/AAC/+zo/4VJN/wBDAP8AwC/+zo/t3A/z/g/8g/sz E9vxPPfJHrR5I9a9
C/4VJN/0MA/8Av8A7Oj/AIVJN/0MA/8AAL/7Oj+3cD/P+D/yD+zMT2/E88MK 0eSteh/8Kkm/6GH/
AMkv/s6P+FSTf9DD/wCSX/2dH9u4H+f8GH9mYnt+J555K0eSteh/8Kkm/wCh h/8AJL/7Oj/hUk3/
AEMP/kl/9nR/b2B/n/Bh/ZmJ7fieeeStHkrXof8AwqSb/oYf/JL/AOzo/wCF STf9DD/5Jf8A2dH9
vYH+f8GH9mYnt+J555K0eSteh/8ACpJv+hh/8kv/ALOj/hUk3/Qw/wDkl/8A Z0f29gf5/wAGH9mY
nt+J555K0eSteh/8Kkm/6GH/AMkv/s6P+FSTf9DD/wCSX/2dH9vYH+f8GH9m Ynt+J555K0eSteh/
8Kkm/wChh/8AJL/7Oj/hUk3/AEMP/kl/9nR/b2B/n/Bh/ZmJ7fieeeStHkrX of8AwqSb/oYf/JL/
AOzo/wCFSTf9DD/5Jf8A2dH9vYH+f8GH9mYnt+J555K0eSteh/8ACpJv+hh/ 8kv/ALOj/hUk3/Qw
/wDkl/8AZ0f29gf5/wAGH9mYnt+J555K0eSteh/8Kkm/6GH/AMkv/s6P+FST f9DD/wCSX/2dH9vY
H+f8GH9mYnt+J555K0eSteh/8Kkm/wChh/8AJL/7Oj/hUk3/AEMP/kl/9nR/ b2B/n/Bh/ZmJ7fie
eeStHkrXof8AwqSb/oYf/JL/AOzo/wCFSTf9DD/5Jf8A2dH9vYH+f8GH9mYn t+J555K+1aHh8JD4
o0mVmCol7CzMTgABxk12f/CpJv8AoYf/ACS/+zpD8I5T/wAzD/5Jf/Z1FXOc BUg4e038n/kXTy/E
wmnb8UZ+k+JF0Pzw8SLfKvlK0v3oW6N8p79uf5ZBR/FqtplzYXRS7ilJdDI5 3RSE53Kevc5HfPuc
9EngTxDGipH461FEUBVVVcAD0A8ynf8ACDeJP+h+1P8AJ/8A47XwsstobLEK 3oz7T+125c0sPrp1
7HmevfP4XsCwxuu7qRc91KQAMPbKsM+qn0r2/wAIf8iVoP8A2Drf/wBFrXmf jPwDeaXoN7rl54hm
1GWFUyJoTuYFgv3i5PGa9L8If8iVoP8A2Drf/wBFrXq4j2MMBRp0pcyjdXs9 9zynVnWxVSrJcvNr
bc57wH/yMfiz/r9P/o2au0jN3cyzpbwQFInCEyTFSTtVugU/3vWuL8Bf8jH4 s/6/T/6NmrtLezjv
4NTtZWnWN7hcmCd4XGI4zw6EMOnY89Olc+OSeId+0fyRGH/hr1f5kv2fU/8A n2tP/Alv/jdH2fU/
+fa0/wDAlv8A43XDwLOngfwQ2/W76TUpYZrpINUlWedmspXIEjyrtXcqttDq vy8DPBJodUj1vT7O
6svEU1jLFeTW2nwatsuYkX7KoM0v2hd+HMxGZHwJVHGMLx8q7G+vc7j7Pqf/ AD7Wn/gS3/xuj7Pq
f/Ptaf8AgS3/AMbrltMNxrFxo+mXt7ffZmi1J2SK8lhmVoLqOKJJJY2DM0aO yN8zKzAtl+GqO1mu
tSlsdNuZ9Rnt4l1dlitrx4Z5TbXaQwqZQ6MxCMV+Z8MSGYkjIOVdg17nW/Z9 T/59rT/wJb/43R9n
1P8A59rT/wACW/8AjdcdLqUuoPollFZ+Iru0aLUPMtYr5ILpJILiKIb5VmTc qbpF/wBYxbKs25hu
Gxp9xLceLNEuYNbvr/Tb/Rp7iNJlREO1rXbJtVEO5g5J3ZxuIUKCRRyrsGvc 2fs+p/8APtaf+BLf
/G6Ps+p/8+1p/wCBLf8AxuuWebUbTT9ftZdWvrsr4gsbP7RMyrIIZhZq6qY1 UJxK+CgUgncDu5ov
bm/sPC/jm2tbif7PpkVyttPJdyPPCfscMqgO2Wb55JG3F8rhQMjG05V2DXud T9n1P/n2tP8AwJb/
AON0fZ9T/wCfa0/8CW/+N1w2u65qsFneWFxfTx6rYeG9Va4KP5ZldDCIboKu AN43MpXOws6ZyrVL
e319odvq0llDrGlyR6HfXaxate/bGlliEeySPMswUJuIYEru8xeH2nacsewa 9ztPs+p/8+1p/wCB
Lf8Axuj7Pqf/AD7Wn/gS3/xuuS8URS+HLbUodNvtRRJvDupXTGa/mnZZYRCI 3RpHYoR5r/dIzkZz
gYkt9S/4R3Ubm5ns9csrKDS7q8ntdSvvtclx5RiIaImaULtDMCCybjInDbSU OWPYNe51P2fU/wDn
2tP/AAJb/wCN0fZ9T/59rT/wJb/43XB/8JJqNz4Y1Gz03W9Ov9Xt73Tpo7u1 umltg1zcpuhd1O7Y
JBMu3tCYxyc1Jqvi/Vbu8v8AUdP8+ysbbw5fzW6Tptk+1Ri3di6ElD5ZcR+q usynpycq7Br3O4+z
6n/z7Wn/AIEt/wDG6Ps+p/8APtaf+BLf/G65LxRFL4cttSh02+1FEm8O6ldM Zr+adllhEIjdGkdi
hHmv90jORnOBjQW2bTdGfVIl1jS57a4WQW+rajJdC5+UoIyFlmOHMpChct5g Q7H2hWOWPYNe5u/Z
9T/59rT/AMCW/wDjdH2fU/8An2tP/Alv/jdc8L68u9f0i9e7ngafVTZzacJC BbrHa3ThZF6GRiyu
SPlIEW0sFWR6jRy6HpXj3ULK+1I3GmrKlobq/muViAsoZhhJXZSd7E5IJ5I6 cUcq7Br3Os+z6n/z
7Wn/AIEt/wDG6Ps+p/8APtaf+BLf/G65aWxvtJ8RXF7fxX0mkDULSCzlGvXO 9VZIIU/cA7JF84ks
XbccsSG43JPPqOn+F/HjNq19dXOmyvNa3MzqroUs4JlGEVV2h+q7drZIYHc2 TlXYNe51X2fU/wDn
2tP/AAJb/wCN0fZ9T/59rT/wJb/43WxRRyx7Br3Mf7Pqf/Ptaf8AgS3/AMbo +z6n/wA+1p/4Et/8
brYoo5Y9g17mP9n1P/n2tP8AwJb/AON0fZ9T/wCfa0/8CW/+N1sUUcq7Br3M f7Pqf/Ptaf8AgS3/
AMbo+z6n/wA+1p/4Et/8brYoo5V2DXuY/wBn1P8A59rT/wACW/8AjdH2fU/+ fa0/8CW/+N1sUUcq
7Br3Mf7Pqf8Az7Wn/gS3/wAbo+z6n/z7Wn/gS3/xutiijlXYNe5j/Z9T/wCf a0/8CW/+N0fZ9T/5
9rT/AMCW/wDjdbFFHKuwa9zH+z6n/wA+1p/4Et/8bo+z6n/z7Wn/AIEt/wDG 62KKOVdg17mP9n1P
/n2tP/Alv/jdH2fU/wDn2tP/AAJb/wCN1sUUcq7Br3Mf7Pqf/Ptaf+BLf/G6 Ps+p/wDPtaf+BLf/
AButiijlXYNe5j/Z9T/59rT/AMCW/wDjdH2fU/8An2tP/Alv/jdbFFHKuwa9 zH+z6n/z7Wn/AIEt
/wDG6Ps+p/8APtaf+BLf/G62KKOVdg17mP8AZ9T/AOfa0/8AAlv/AI3R9n1P /n2tP/Alv/jdbFFH
Kuwa9zH+z6n/AM+1p/4Et/8AG6Ps+p/8+1p/4Et/8brYoo5Y9g17mP8AZ9T/ AOfa0/8AAlv/AI3R
9n1P/n2tP/Alv/jdbFFHLHsGvcx/s+p/8+1p/wCBLf8Axuj7Pqf/AD7Wn/gS 3/xutiijlj2DXuY/
2fU/+fa0/wDAlv8A43R9n1P/AJ9rT/wJb/43WxRRyx7Br3Mf7Pqf/Ptaf+BL f/G6Ps+p/wDPtaf+
BLf/AButiijlj2DXuY/2fU/+fa0/8CW/+N0fZ9T/AOfa0/8AAlv/AI3WxRRy x7Br3Mf7Pqf/AD7W
n/gS3/xuj7Pqf/Ptaf8AgS3/AMbrYoo5Y9g17mP9n1P/AJ9rT/wJb/43R9n1 P/n2tP8AwJb/AON1
sUUcsewa9zH+z6n/AM+1p/4Et/8AG6Ps+p/8+1p/4Et/8brYoo5Y9g17mP8A Z9T/AOfa0/8AAlv/
AI3R9n1P/n2tP/Alv/jdbFFHLHsGvcx/s+p/8+1p/wCBLf8Axuj7Pqf/AD7W n/gS3/xutiijlj2D
XuY/2fU/+fa0/wDAlv8A43R9n1P/AJ9rT/wJb/43WxRRyx7Br3Mf7Pqf/Pta f+BLf/G6iuf7Qtba
a4e3tikSM7BbhskAZ4+St2qWsf8AIEv/APr2k/8AQTTUY9hO9tziPif/AMk6 1b/dj/8ARiVqeD/+
RJ0H/sHW/wD6LWsv4nf8k61f/dj/APRqVqeD/wDkSdB/7B1v/wCi1rpX+6L/ ABP8kKP8R+i/U57w
F/yMfiz/AK/D/wCjZq7FdTtdHtNSvbxpFgW7jT93G8rFnWJFAVAWJLMBgA9a 47wF/wAjH4s/6/D/
AOjZq2fEcU03hzURB9qDpqtjIWtITNKirLbMzqgVtxVQWxtPToarG/7w/Rfk jLD/AMNer/M2tHtt
IvNN01bK0u4rfSXC2iXVvPA0RWIxjCyBWYbJCMnI5Pccaj2Nu+oxX7R5uYop IY33H5UcoWGOnJjT
8vc1zAebUU8OJb3WuTxRao32qe5tpbOR1W3mdfMUJFmPf5Q+7tYgA5Oa5tId dg8N2CSnXzqJ0OB9
O2yXLn+02EjS/aCCRjcYOJ/3YGQMAOK5Tc7PVtF0K00ie7uxPa21l9ovJJ7e 5mikQOxlm+eNg5Ut
ligOCQvHyrhb7RtCii0yxlWe3Z5XhtHt7iaKZnZWlkBljYOdwjZ23N8zKCct ise6sr+X4b+LIpIr
6e9uv7VEcUjSSOwLzLEsatnClAm1VGDkEDnJqQeGL6z8UeHZZY5JbPSb2Sz0 8qmRDaNazsWYgk4y
YIPn5zAGzmUigDa1HRfDWj6RawPbz2cEUsgtY9NedJt0jGR44xAfMKkgsUXK gIDgBBiU6l4ctE0y
/hjkJS3ltbOGztJpHji3IJE8iNSyhWjjVsqNhAU7ScHmNNivrjTIL7U5tYxp qQWCXVoPtMqXdv8A
aIbi5WMhy6SF/LyULn7xVQocX/tuq2kula3f2V3cNFZahbIRbSM8heaE25lj ijZ4y8cO5j5YCkkF
VJC0AbcX/CPap5ltGd76vvvZF/eKxaHyombPBikjIiGPlZWXOAwJEd9pvhzS tOaz1CSSK01BJ7aV
ri7mbzg0ReQyyMxJIihOHc5VV2ggcVzGh332W50bV7qw1JLeddZZlhs5Ll4G mvo5ESRYQ+x9oYEH
oVZTyCK1PENjeeK7HXGgtbjy4dKmttOhuIjCZbieDLSbZMYwrpGrHaVLXCtx QBJqepeD9QeS6vrS
7a7ubd9KeM6fdJcyQyqzlPKCCQoRFIQ2MAq+CDuqe913w3dXsZurLUrm4NlI hhOj3chFvM+1hJGI
zgM0HRxkheODzkyI2pBZNSk8TXuk2VxFPDdfZJLW7EzRzxyKUijilMQVosFE zukOSVVgtSexu47G
e/EfiIa/NaSQ6S6NP5bBJpzaiYL/ABBZIt32njB+bkS0Aa0p8GWcerW15PfS wm0uILme8lu7hDEF
JniimkLDdhG3JE2790cjMfy6yLovii7juXs74y2W3Y13aXNrjMscowJFXd88 EZ4zjaAeGwcTxLbt
4k1BdPNprMkUa3MVxa/Z1jREa3njE0MzAI0reYiBTIwAkJZFZWKavhfd/aOo fZP7V/sfyofJ/tL7
R5n2jMnm4+0fvNu3yP8AYznHO6gDXv8ARdP1S6t7q7t/Mmt8eU29l24ljl6A jPzwxHn+7joSDkR3
Xhq/8QSaV9gna+iinhlifTZ0h8ud90pYlBGVkaEncSQxBwTk5308v+0Zsef5 3lR7t2/y9uXxtz8m
7O7OPmxt3cbazLWCZfHOq3DRSCF9Ns0WQqdrMst0WAPQkBlJHbcPWgDm7e98 ESaVeTSS6pJY3dhK
GuNSF8wktjGXkWGSf+8i7isZywTODsyL+lt4YWczCfVI5LLN6p1ma8TywqPG 0i/aSMqFlYMRwNy7
udtYK+Er1/hJGLu61S8vINAcW2nTQxr5E7WjR7VVI1kLAO6BWLfe5BYAi/4h 8P6rKb6zS5vtYmu9
A1G3imu0iTyZG8kLGGjSNB5hOfnyf3YwVG7IBrxXvhrUdWfVZUnt760iE/m3 8M9niONZV3gShQyq
LiQMQCB5gz/DUck/h3V9O1+yeS6sE1G2lkvnu7ea0Yp5SxPKvnqBhUVASAQv yk/e5zfESz+LPt39
k2V82NA1Gy/0q0ltczT+T5ajzlTdny35GQMDJGRmPWp9X8RvrVlpcesS6ffa HexpFe2ItoludsaR
ohkRJASHckuSpz8p+VgoBbk1PwlDE2u6zei1uLby3uVuUuLJJpVUlJPskhG9 v3Z2Eq7fugFYmMYv
62mhTNeeHDqEFrqPiLcJYQxeaVTFsd1TPy/uoWUMRtDKMhj8rZN4+qal4O8W 2kb6pqNrJpci2kt9
Y/Z7mSdo5Q8axiOMsoAiKnZyXYbjjC9HrcEs+r+GXijkdIdSd5GVSQi/ZLhc t6DcyjJ7kDvQBPD4
h0y41Q6dFcSGfe0asYJBFI653IkpXY7ja2VViRsfI+VsJJ4i0qH+2C99Gp0h d9+oBLQL5fmAlQMk
FeQRnOCByCByS28vmWmnXFnqSmy1fUb+7eG3mUC3lW72NHKgw7kTxYWNi4JP AKnFPxPomqfYvHep
aZYTz3l15lr9mVMfbIHs7dNy/wB5o2Dlfvf8tUA3PkAHZXHi3SLS/ubSeS6D 2rhLmVbGdoICUV/n
mCGNQFZWJLAAHJxUl94m0rTrt7a4mnDRY8+WO0lkhgyAf3sqqUjwpDHewwpD HAINcprOialPbeOr
iK41LZI7tFpyQoYr4CxhG3PlmQhiDGfLdTwQCG5qTXknSz8a6R9ivpLvWt/2 DybOWSOTfZxQrulV
Skf7xGB3suAMnCkGgDo7jxbpFpf3NpPJdB7VwlzKtjO0EBKK/wA8wQxqArKx JYAA5OK1HvrdNRis
GkxcyxSTRptPzIhQMc9ODIn5+xrhNZ0TUp7bx1cRXGpbJHdotOSFDFfAWMI2 58syEMQYz5bqeCAQ
3NGo22uy6nfeIYdKjdLW9SWB2ldbtbe23xyRxwCMpIZA93sJcEi4U5G1doB2 ba1p0ek3erNc4srP
zvPl2N8nksyycYycFGHA5xxniq994m0rTrt7a4mnDRY8+WO0lkhgyAf3sqqU jwpDHewwpDHAINed
ap4Q1S48LeJbaO2n+w6hLqd/PaiL55bmOabyNozvPmA27jbx/owGD5pre15J 0s/GukfYr6S71rf9
g8mzlkjk32cUK7pVUpH+8Rgd7LgDJwpBoA6dvE2mjVpNLUX0l1FKkMhh0+4k jjdlVgGkVCg+V1Jy
3APOKsLrWnSaTaastzmyvPJ8iXY3z+cyrHxjIyXUcjjPOOa5ixlax8d639ou dcjjudQjMVtDprSW
kwNrAm9phC23DAg/vFA2cjGcyWNpcxXFl4gbTpBb3VwJF0zY/mWRnKr520nA l+YmUYAUPIVORIZw
DTn8ZaNbw6fKZL6RNSiSa0eDTbmYSqylwAUjPzbVZtp+YAZIxXR1wuk2N3F4 e+HUMlrOklp5P2lG
iIMOLCZDvH8PzELz3IHWu6oAKKKKACiiigAooooAKKKKACiiigAooooAKKKK ACiiigAooooAKKKK
ACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACqOsf8AIFv/ APr2k/8AQTV6qOsf
8gW//wCvaT/0E0IT2OI+J3/JOtX/AN2P/wBGpWp4P/5EnQf+wdb/APotay/i d/yTrV/92P8A9GpW
p4P/AORJ0H/sHW//AKLWuhf7ov8AE/yQo/xH6L9TnvAX/Ix+LP8Ar8P/AKNm rsP7Si0mx1e+nWR0
hmyEiALyt5cYVEBI3OzEKo7kgd64/wABf8jH4s/6/D/6NmrqZ9GXXI57WeaS O1TUElnjjLI0oSJS
gDqQyESCN9ynPyY6E1WN/wB4fovyRlh/4a9X+bJtP8Sxf2fZLqhMWpS3f9nT QwQu4+1KCWwoBZYy
qmRWbH7sqxxmiPxpoUl0lul1MGk2mGRrOZY5g0scStHIU2yKXljG5SRhwc45 qvb+Do7LWbe7tb2c
WsV0t40E7PO7zeRNAzGWRy3KSRDByB5PA+Ykc7pnhXW76axt7uN7DT9Ishb6 ebmCLzdyTW8sRfyp
5BKB9mUP/qs5+XrlOU3OuvPF2iaffvZXN3Is8bMsu23lZYtqROzOwUqiBZ4i XYhRu5PBxHceJtBu
dOaObz7mO4LwyWZ0+aWYgAbxJbhDIFw6Z3KBiROzrnIm8A3N0+sS3etGa41S 1vLd3FqFEZuIraPK
gN91Ps3AJyQwBYkFmk1bwDFqer3OpM2nXE0tw8qR6lpwuoEV4beNvk3qd+bZ SGyMB2GDnIANOy8U
eG0ni0uwu4NkXlQolvExhiDojQjeo2Irq6BMkBj8q5IIEGm+OdKvND0zUbnz 7Vr21S6kj+zyuLZW
/ilYJiOPIbEj7VYKzA4BISLwgltp9xZQ3mI5L+yvFP2dV2C2FuAm1dq/N9m/ hCgb+FwOajeBZU0v
+zINUjW0m01NJuvMtizvax+YI9jBwEk2SsGchlJAIRRlSAb8fiDTZr6azine SeJ9hVIJGDHeEbYQ
uHCMwVypIjJ+fbRc6lPH4k03S40QLcW9xdSO2SdsRjXYoyMEtMp3HPCEY+bK 17bRb601m+vo9SQp
cuh8o22MgMMl8MAzhB5aOApC7d/m7FxJeWNw3i3S9RSPfbx2l1ay4YAoZGhd WIOMr+5KnGTll4xk
gANJ1C8vdZ16CYwC1sruO2gVIyH5gilZmYsQcmXAAAxt754xLnxJr0PhjxZe y2+nW+oaK7mONS9x
EyrbxT4Y/uyxO9hkBcZHDY+bX0S3u7bXPEbTWskcFzeR3FvOWQrKv2aGMgAE sCGibO4DqMZ5xn+I
dCux4Z8YR2Ecl7d6ykhit02IVZraOADc7AEDZuJyOCQASBkA3NT13SNF8r+1 dVsbDzs+X9quEi34
xnG4jOMjp6is/wAUard2ng+81zRLqxf7Naveq80RnjmjWNnAUo643cYbJGOx zWhqej22rGL7TLfR
iLO37Jfz22c4znynXd075xzjqaj1XRhqPhe+0JJ5I1ubKSzWWQtMyhkKbiWO XIznk5Pc96AKd3ro
0BbVNc1GCSZ4nZltLCbMx82KNCiqzkYMyKV+YsXBGACKkPizSBbJL5l07u7J 9mjsp3uFKgE7oAhk
UAMhyygYdD/Guc/xl4evtXksr7TpUF1avEiJJHuXBu7WVpD8y5Crbk7QQWzg EHqsfhbUba+bV7fV
rQa1K8vnSyWTNbsrpAhCxCUMpxbQ8mRud/HzAKAdFZ3tvqERltX82L5Ssqqd kgZQwZG6OpDD5lJH
UZyCBi+HL7XdVstO1eaXTjp+oQJcLbJA8cturpvUeYXYSkZCn5EzktxjadPR tM/sXSbbTI5jLbWk
Udvbblw4jSNVG85wzZBOQFHIGOMnP0TQ9T0eKysTq8MmlWMSw28MdnsmdFXY glkLsGwME7UTLAHg
ZUgEFx4iu4NI1n93C2pWeoDT4flPkmSZo/sxbndtCzw7yOch9oPGZPEniqHR dO1YQiQahaWU08Au
bWVYJXSIyBVkICOcAkqrZwrdNpxbn8P2914ntNbY4kt4ihTn5nAYRvnPG1Zr gYxz5uTyq45nWfht
/a19dTG9sY/P+1H7S2nb7w+fDLFsefzBujTzvlXaMLGi54zQB0Vx4u0S1kul nu5I0tUlaSY28vlH
y1LSKkm3Y7qFfKKSw2Px8pxqWd7FeRGSNZ1A28TQPEeVDDhwD0YZ9DkHBBA5 TU/As2p2V3prarGl
gz3k9sotSZY5rlJlcu+/DoPtEpChVP3MscHd18azh5zJIjIXzEFQqVXaOGOT uO7ccjHBAxxkgHEQ
eMNSk8L6zrIutHnns9Mku3sIgwn0+YIWWCdd5LHIZWOIiDGfl5+S5F4hu/7F OoRa3omsxtqFpZiT
T4CqR+ZPHHIGPnSZbbICOmOMgg1JfeEr3Vre9i1LWI5mk025021kS02MiThd zy/PiR/3aH5RGPvc
cjbPe6Nrup6VLaXmr6aZxcW1xbyw6c6KjQzLLh1M7FwSgHBXHPXsAQeKvEc2 j61plkNZ0fSILm3u
JXudTjLKWjaEKi/vYxkiRj1P3elWJrzXrjWX0izvNOgntLKC4uLiayeVZWla VcIgmUxgGEnlnzvA
425aKbRfEcuoWepf23pX262int8/2XJ5bRymFvu/aMhgYeu7BDdBjJsXGkaw mojUbHVLKG+mtYba
7M9g8sb+WXZWjUSqU5lkyCz8bemCSAQS3viMeLdO083Olw21zaSXUsQtpJXj 8poFdFl8xQ2TK2GK
DGBlTWtqOs2WkeULpp2klyUhtraS4kYDGW2RqzbRlQWxgFlBOSMxrpLf2zp+ oPdyStZ2U1qxkRd0
xkaFt5K4AP7noFA+bjGMUzVNLu7vULTUtMvYbW+topbcG5tjPG0chjZvlV0O 7MSYO7GN3ByCAAHi
fRzdw20d55nm7As0UTvAC4BRWmUGNWYMm1SwJ3pgHcuY7jxfoNrYWV9c6lHD aXlutzBNIjKpiZ4k
DkkfKN08X3sY3ZPAJFN/Cs7Xjg6r5llPd217dLLbgzyzwCIKVkUqiqTBGWXy z/HgrkbaMfgG4D6U
kmtb7bSoora1hFoBiKOe2mXc27LSEWwVm4U5BCLghgCbVviBZWMbyW9pPchb C9uyjxyQvG9usb+X
IjJui3LICGcD+HAO9c6sXiXTY73+ybrUI31OF44Lry4JFjSV1Vl3HkRh94Cb m+YnaCzAisbXPBEt
/wD27dWl6gutSgu4FSaMhFWa2hiwSDkEPbRtuweCw2kkMNA+HmvYL2R5JLZr /UrPU2ikjUtCYRb/
ALo7WIJP2fG4HA3cZxyASx+NNCks7W8W6nNvcxCdZPsc2I4iSBLL8n7qM7WI d9qkKxBIBNPuPF2i
Wsl0s93JGlqkrSTG3l8o+WpaRUk27HdQr5RSWGx+PlOMj/hBJo9Ii0uDVUEE ukQaPfs9qWaWGNXU
NFhwInIlk5YSD7vHB3V7z4a21xJqvlvp0Ivlu9tyNMRrtXuFkDb5y2WQGVsK oQ4CKWIDbgDaPjPQ
kjmlmuZ4FhieWTz7OaIoEUuykMgxJsBfy/vlPmAKkGpY/FukSyQReZdrPPcJ bxwTWM8cu9lZlJjZ
AwQiOQ7yNvyNz8pxieK/BtxqWk629pOZLm6lnu4YNgG5209rNY9xbAySG3H6 Y71oR+FrybXbXWtS
1KCa9glQkW1qYo2jSK4RV2tI5DZunJbcQQqjaOSQC3H4u0WUTOt3II403ozw SqLhSwUGDK/vwWZA
DHuyXQDO9cyy+J9Kgs7a8eaf7LPu/fLayskW04fzmC4h2nIbzNu3a2cbTjn9 J+HcOj2c9vatpUQN
r9jiePSIg8seVyLpiSZ9wQBtvlhtznAJUozXPh7Premra3GpWlzKbI2jTalY G6MOd37y3zIDG/z4
LMXZhHFuJKlmAOqvNb0+w/tD7TceX/Z9qL26+Rj5cJ34bgc/6p+Bk/L05Gac Xi7RJXhWO7kke4uE
ghVIJSZC6syuvy8xFY3IlH7shGO7g1n6p8PtCv31m5gsrW1v9UsntTcraoTE zrKGlGADvbzTuO75
gqirtz4ZNz4utde+2bfI8n9x5Wd3lx3afezxn7Vnp/B/tcACN4z0FYXma6n8 tChQizmP2gM6xq0P
yfvlLOg3R7h8684YZsX3ifStMnuor6ae3+zRPM8ktrKsbKqGRgkm3bIwQM21 CWwrcfKcYsXgWYR6
dBPqqPBpKQQWAS1KsIY54JSJSXIdyLaNdyhAMsdpyAKes/Db+1r66mN7Yx+f 9qP2ltO33h8+GWLY
8/mDdGnnfKu0YWNFzxmgDooPFuiSyFGupLfajM5u7eW3VNqlirGRVCuEBfYc Ns+fG3mq914rhNrF
cWIk3Je21vcW13ay28uyeUQqwWQKwG5twbaQ3luowcla+q+CItZa9W4vpEhv b17qRY4wGCvYGzKB
iSM4O/dg+mO9MvfDmqTyfaLi4gu765urASSQQ/Z4YoLW4Nxkq0jsWOXXIJyW ThQGagC/rniP+ydQ
s4Vj8yFf3+oSBci2tyfLDk5Gz52DZbjy4Zz1Sq7a9eP4vk0pbzS7bypUSOxu src3kZjV2mibd91d
zjHlsCYWG5ckpLfeDLDWL/UbrVZbucXiLAI4bqa2UW4THlOI3AkG5pWywz+8 I6AUPoGr3aWdvqGu
R3VpE9tPPmzCSyTQsjgoysFRGeNWKlGPzOAwBXaAX9U8Qabo1xb295PItxco 7wQRQSSyShCobYiK
SxG8EgDOMnopIwLLxPNqvi670+08Q6BHBFPELe1aMyXF1CbeKYujCYAgh3wQ hAC555ro5dM83xDZ
6r52Ps1rPbeVt+95rwtuznjHk4xjnd2xzz/h3wprHhlI7W01myksj9m85JtO cyN5VvDA21xMAu4Q
gjKnBbvigDUh8X6FNPPCupIn2d5o5ZJEZIkeIt5iGRgEDqEZtuc7Bvxt5oHi zSDbPL5l0jo6p9mk
sp0uGLAkbYCgkYEK5yqkYRz/AANihfeCItR0dNMuL2QQ/bb26kaOMBmW5W5U oMkgFRc/ewc7OnPE
8+h61d/Z7m61q0a/s5xPamOwK26Hy5Izuj80uxKyv/y0AyqYAw28Akfxp4eW VY31D5zEJ2TyZMxR
lnQvINv7tVaN1cvgRkYfaSMx2PjTTbhmjuzJaSrcX0X7yKTywlrIVklMhUIq Y2HcTgFtuSQapr4I
xpuuWp1DMms6e9rLIIMCOR5LmR3Vd33d1y2FJyAoBYk5qSTwRDcG6hmvZDZ3 FvqNvsSMCQLeSRyS
HeSRlWV8fL0ZQclSWANvTtZstX80WrTrJFgvDc20lvIoOcNskVW2nDANjBKs Acg44Wy8c6jc+Dk1
3/hIvDMrslmLiGK2bFg08sakzH7QeFVpODsyV6jBFdX4Z8NJ4fF0yx6Wklxs DLpunLZx4XOCQGZm
b5jyWxgDAB3Flj8M+X4R0jQReZ/s77D+/wDL/wBZ9mkjf7ueN3l46nGe+KAM e38W3jWN8YL3S9W2
S2cMGo2CEWwkuJvJKMokfc0eVkYBwSJFHy8MTVfFWr+HYNRS9ig1G5szYTA2 No6GWO4uGhaNYjIx
MgEbFTuwSyjHHOxqfhk6jf312Lzy5J4rMRgxbhHJbTyTIzcjcpZ1BUbThThg TkV38L3l809xqWpw
SX00tkS9tamKMR2s/nquxpHO5izgtuxgr8vB3AD4PFUV940tdFsSlxatpsl4 91Hh0Zt0OxFcHGdk
m8jHR4iDhudCTX9Pjk1FB9rlbTnjS5WCzmlKs6qyhdqHedrKSFztBBOKp6d4 Us9J1W2vLNzHHDHd
RmLYMt50kLLyMYWNYVjVccIFGcLzBqfhE366l/pMD/bNQS98i6tvOt2226Q+ XLHuHmL8m8crhwh5
28gE8njTQllWM3M7F4hKdlpM2wFnRVYhPkkLxugjbDlxtA3cVJJ4u0WIRO13 IY5E3uyQSsLdQxUm
fC/uAGVwTJtwUcHGxsYml/D7+zbR4ft8A3y2su23tPKjTyb6W72om87VPm7A M/KFzz0qWXwLMY9R
gg1VEg1ZJ4L8PalmMMk88oERDgI4FzIu5g4OFO0YIIB0VrrWn3moT2Fvcbri ItkbGCvtO19jEbX2
sQrbSdrEBsE4qhpfiPztO0n7bGRe3l3Lp8nkr+7FxCJfNIyc+WTBJtPXBXIH OJ7DRriz1y/v3v8A
zIbrBEKwhCT2aQg4ZlGEVlVDsADmQqrLn6l4Mt7/AFDUb9J/JubiJDbvsLfZ 7lSh87G7D829p8h4
/cf7bZAKg8cw22vImqXmnWGlXD3yQTXMoictbSQwkEs23JczkAdVCHg7hWe/ juWb+zXTXNA0y0vH
1Ire3imSKRbe5WKIIfOQEsjbicnOOABXV23h+Cx1HSprQ+Ta6bYS2ENvgt8j GEr8xOflEAHOc7uv
HOYPCupWd3bXemaraxTwvf7vtVi0yst1cLPgBZUIKlQucnPJwKAKeseKLzTf EB0q68R+HdJ8qwgu
DLf25H2iR3lV9gNwm1R5anGWI3cmmN4r1G51mysW1HR9AnutNtLpLPVIWkne aZpQ0SjzYiSpRRjb
nLduldNZaVNBrFxqdxcxyz3FnbW0gjiKLuiaVi4yxIDGb7uTjb1OaxNP8Kax ogtP7K1mxTydLtNO
k+16c8u/7P5mHG2ZNufMPBz0HNAG/q2t6fokUD6jcGFZ5vIiARnMkm1mCKFB JYhDgdScAZJANMeL
tFZ3AupCUt1uHAt5flDSGJUPy8SmRWQRf6wspG3IxVzUNMN/e6Tc+ds/s+6a 527c+ZmGWLbnPH+t
znn7uO+Rz8fgfym1FxqB8y6ljuIiYOIpI72e7TcN3zLumVSAVJCHBBb5QDUP izSBbJL5l07u7J9m
jsp3uFKgE7oAhkUAMhyygYdD/GuY28Z6ELiWKO6nnZNgDW1nNMkhZFkVY2RC JG2OH2oSduWxgEjI
vfAP9oz/ANoXkul3mpvLJJL9t0zz7T50hT5ITJuVgtvFhi56ycfMAt+x8HJp 13bSxXmY7fUEvFTy
FTIWxFoEwmFHTf8AKoA+6FA5oAuQ+LdEnvxZw3ckh3xp56W8pt90iK8Y88L5 WWEiYG7kuoHJApkf
jTQpLO1vFupzb3MQnWT7HNiOIkgSy/J+6jO1iHfapCsQSATXP6B4J1SwWbS7 i9g/smG6sZUxbfvr
g21vahXD+YQimSDBUoTgNg8giSX4bW0ltpsTvpty9rpsGmyy32mJcNsiDYeH c2InO9idwkHCcHad
wB06eINNkuLuCOeSSW2V3ZUgkbeEOH8vC/vSrYVgm4qxCnBIFRT6na6r4d1C azeQhIZEkjliaKSN
tmcOjgMpwQQCBkMD0INULvwpcXcmrFtU/c3u0iEW4CuVYMBOAcSrhREQoQtF 8jlyFZYtL8N/8I14
b12LdZD7W0lz5djZfZYYv3CR7Vj3tj/V7ic8ljQhPYyvid/yTrV/92P/ANGp Wp4P/wCRJ0H/ALB1
v/6LWsv4nf8AJOtX/wB2P/0alang/wD5EnQf+wdb/wDota6F/ui/xP8AJCj/ ABH6L9TnvAX/ACMf
iz/r8P8A6NmrrZb6bTNN1e8trX7TNHcJthxKd2UiB/1Ucj9DnhD05wMkcl4C /wCRj8Wf9fh/9GzV
2thf2lrPfpcXUELmcELJIFOPLTnmqxv+8P0X5Ixw/wDDXq/zZVspZfGXhbUb TU7SSwS6SW0dYxMr
bGQAsPPhjOfmP8JHHU8gc5aa8vh+TxNqIgvrvzPtt1AjyqFdLVpBKznOQwkK xAgH90bYAHY+3vP7
Y0z/AKCNp/3/AF/xqgG8OLqD36nSheSOrvcDy/MZlUopLdSQrMoPYMR0Ncup vdHLeJoddubzQ9Pb
U9OfVItTW6tZLYPb/MLW7ZEmj3OwiZotpYN86l1AG3JXRfEM11rN62nCOIX3 if7JcrcxFmi8rT0a
VBtYDeGgKbgWXqRuGM9LYReFdMijhsItGtUjmM6JAsUYWQqULgDoxUlc9cHH SrH2rQfP87z9N87z
fP8AM3R7vM2eXvz/AHtny567eOlGoXRwOua3qOteHNKivbXTruDXEs7+3tWj aNY1F5Z/uZWJcSBh
cAFwi/dPyHdgdI8V3oNho2naRpuiaLdalqDxTRwQGaBMQSybgF8ksxEKDJxj PfAq61n4QdLxWttD
KX7h7xTHFi4YMWBk/vkMScnPJzUthF4V0yKOGwi0a1SOYzokCxRhZCpQuAOj FSVz1wcdKNQujmbT
xjrupTaRaW5063n1VLa6jlktnkWCGeC6lEZUSKXdTbY35UHf9wY5U+NtZ2ag UtrWV7NIbZY44zul
uZL6a08wbpAAn7nf5ZIPzYMgxurY1DSPB+qixjuV0poLN0KQ4iMbqkckaIyk EFFErlRxg8jvnQVv
DawPbqdKFu9utq8Q8va0KghYyOhQBmAXoNx9aNQujnh4q16KyAvINOtLm3uH Fz57LnylSNtzRxSy
GBMyqrSbpPLBR2Qq52Gpavda3q0uhSwSP4e1d7nShdxwpG0ciwy+ZhzKzMQ0 Uq4MKjvuIA37qQ+F
Y7S1tEj0ZLa1lE9tCqxBIZASQ6L0VsknI55NL5XhX+1/7X8vRv7T/wCf3bF5 33dv3/vfd469OKNQ
uhnibVdRsza2mixmbU598oh+zrNmFMB2+aaFRhpIx98n5uFPJXA0rxrq+p2w 1f7LYw6Z9qsLfyMu
8zfaorY/fyFXy2uM52neBjCY3HptRbw3rNukGpnSr2BXDrHdGOVQ2CMgNkZw SM+5pIX8NwWwt4f7
Kjg3xv5aGMLujCiM4HGVEaAHtsXHQUahdHPaFf6lq3ijw9q17LaeRqGh3V1b W8MDI0Cu9o2x3LkS
EAgbgqdCcc4FfUfGeu6do13qzQacbcXGpWtrEquW3Wy3LpI7bsYItthQDvuD jOwdLaxeFbLUZ9Qt
I9Gt72bd51zCsSSSbjubcw5OSATnqalmfw3PbG3m/sqSDfI/luYyu6QMJDg8 ZYSOCe+9s9TRqF0Z
E3iDV7e8naR7GS1sb+0025jW3dXnkmEGZUbzCI1BuB8hVydhG75srkTeN9cg 8Kafq8VtBeXKaWmr
6lBBahUSF1LoAz3ClOEkXcBKflzsHCt10jeG59Ti1OX+yXv4k2RXbeWZUXnh X6gfM3APc+tV7yz8
Iahb2lve22hXMFqmy3jmjidYVwBhAeFGFAwPQelGoXRztx4w161hvrtjpzwQ JqV0kQt3DeTYz+U0
ZbzCN8gZSHxhNp+R88bFn4h1KbU7OSUWv2C+1K602KBYmEsTQef+8aTcQ4b7 O3yhFx5g+Y7fm0nb
w3IjIx0po3SVGU+WQyytulB9Q7DLD+I8nNEbeG4NTl1OL+yUv5U2S3a+WJXX jhn6kfKvBPYelGoX
RRvPE2o23iddLj0fzLYyxxm52XnAYLk5W1aLjJ/5a445K84z/HGjpNPBNA98 b/UpobVI7eVUBEKX
EuQTjEgV5WjJOBKkBOApNdZ/bGmf9BG0/wC/6/41VvrnQdTsns76fTbu1kxv hneORGwQRlTwcEA/
hRqGhi/8JTd6nLJPpUtjaWFvYRai0upIQLiGRpQh3q48hSsO7cyuQJBlAVKn lVnn0vT3huZZHs9V
8Vr9kLMW8q4XVTvix/ChjiDrgY3CXJBZAe8nj8LTy2000WjSSWszTwO6xExS M29nUn7rFvmJHJPP
WrH2rQfI8nz9N8nzfP8AL3R7fM3+Zvx/e3/Nnru560ahdGDaa9rupXS2NtLp 0E89xqLRzSWryKkN
rcLAEKiVSzsX3b9wAxjbzkcazDXdK8T+KP8AhH9KXzIorz+0Xl3XthnTreTM P7r5mTO5f3keW7r1
r0e8i8K39p9kvI9GubYStOIplidBIxJZ9p43EsxJ6ncfWrD3OgyR3UTzaa6X WftKM8ZE2VCHeP4v
lAXnsAOlGoXRjax4p1Gy1+OOytftOmQ3dtY3reQo8qaZ0A/eGYNws0TYWJwc 43DJKZekeMdcuLbT
7q+OnSJNBpt1MkNs8ZK3svlIikyNgxspYsQd4IACY3HpbqLwre6jBqF3Ho1x ewbfJuZlieSPady7
WPIwSSMdDUqN4bjRUU6UsaJEiqPLAVYm3RAegRjlR/CeRijULowdOv7vxMuj w6mYfs2q2ketWy2s
Zje28iW3lWJ2ZmEuTIgLAJ9w8fMNux4NO3QWiHEcN/ewRIOkcaXUqIijsqqq qAOAAAOBU1m3hzT7
m5uLI6TbT3b77mSHy0aZsk5cjljlicn1PrSaXPo+lWK2kOpQOA7yPJJcIWkk dy7ucYGWZmbAAAzg
ADAo1C6N2iqP9saZ/wBBG0/7/r/jR/bGmf8AQRtP+/6/40ahoXqKo/2xpn/Q RtP+/wCv+NH9saZ/
0EbT/v8Ar/jRqGheoqj/AGxpn/QRtP8Av+v+NH9saZ/0EbT/AL/r/jRqGheo qj/bGmf9BG0/7/r/
AI0f2xpn/QRtP+/6/wCNGoaF6iqP9saZ/wBBG0/7/r/jR/bGmf8AQRtP+/6/ 40ahoXqKo/2xpn/Q
RtP+/wCv+NH9saZ/0EbT/v8Ar/jRqGheoqj/AGxpn/QRtP8Av+v+NH9saZ/0 EbT/AL/r/jRqGheo
qj/bGmf9BG0/7/r/AI0f2xpn/QRtP+/6/wCNGoaF6iqP9saZ/wBBG0/7/r/j R/bGmf8AQRtP+/6/
40ahoXqKo/2xpn/QRtP+/wCv+NH9saZ/0EbT/v8Ar/jRqGheoqj/AGxpn/QR tP8Av+v+NH9saZ/0
EbT/AL/r/jRqGheoqj/bGmf9BG0/7/r/AI0f2xpn/QRtP+/6/wCNGoaF6iqP 9saZ/wBBG0/7/r/j
R/bGmf8AQRtP+/6/40ahoXqKo/2xpn/QRtP+/wCv+NH9saZ/0EbT/v8Ar/jR qGheoqj/AGxpn/QR
tP8Av+v+NH9saZ/0EbT/AL/r/jRqGheoqj/bGmf9BG0/7/r/AI0f2xpn/QRt P+/6/wCNGoaF6iqP
9saZ/wBBG0/7/r/jR/bGmf8AQRtP+/6/40ahoXqKo/2xpn/QRtP+/wCv+NH9 saZ/0EbT/v8Ar/jR
qF0XqKo/2xpn/QRtP+/6/wCNH9saZ/0EbT/v+v8AjRqF0XqKo/2xpn/QRtP+ /wCv+NH9saZ/0EbT
/v8Ar/jRqF0XqKo/2xpn/QRtP+/6/wCNH9saZ/0EbT/v+v8AjQF0Xqo6x/yB L/8A69pP/QTR/bGm
f9BG0/7/AK/41T1XVdPk0i8RL61Z2t5AqrMpJO08DmmhNqxynxO/5J1q/wDu x/8Ao1K1PB//ACJO
g/8AYOt//Ra1l/E//knWrf7sf/oxK1PB/wDyJOg/9g63/wDRa1uv90X+J/kg j/Efov1Oe8B/8jH4
s/6/D/6Nmruiyg8sB+NcL4C/5GPxZ/1+H/0bNVpNMtPEHi/VLTUFjkETMI98 UUhVRFCRtEm7ADTM
xwvJ25OAAzxsObEO72UfyRjQlamrd3+bOv3r/eH50b1/vD86x2+H+gMWxaQL nOMWVtxnd0zF23D/
AL4Xr824b4f6AxbFpAuc4xZW3Gd3TMXbcP8AvhevzbuX2cf5vwN+afb8TY3r /eH50b0/vL+dc/f+
DfCmnWkt3e/YbO2T7001taoke4sB8zR4HLqBn+6vXLbpI/A3hq8tkuLWG1kh mTfFJFaWrKVYMVKn
yiCMMuDz9xeuW3Hs4/zfgHNPt+JueYn99fzo8xP76/nXP/8ACG+FJbqS1iFj 9pG/MKW1qXTAyfl8
vPAmiPP/AEzz947rDfD/AEBi2LSBc5xiytuM7umYu24f98L1+bcezj/N+Ac0 +34/8A2PMT++v50e
Yn99fzrHb4f6AxbFpAuc4xZW3Gd3TMXbcP8Avhevzbhvh/oDbsWkC5zjFlbc Z3dMxdtw/wC+F6/N
uPZx/m/AOafb8TaBBGRSFlB5YD8a5vwXMJNPvUTYIY7lfKSPGxQ0EUhCgMwC 7nYgAkDOAcVZ0/St
O1jVNak1Swtr4292sEIuYhIsaeTE+AGBA+Z2Oan2dpOLewc+iaNrev8AeH50 b1/vD86pz+GvCdrb
y3FzoWjQwRKXkkktIlVFAySSRgADvVXTdO8BayZf7LsfDd/5WPM+yxQS7M5x naDjOD+Ro5F3DmfY
1t6/3h+dG9P7y/nVOTwz4TikhSTQtGRpn2RK1pEC7bS2F45O1WOB2BPapv8A hE/DH/QuaT/4BR//
ABNHIu4c0uxN5if31/OjzE/vr+dQ/wDCJ+GP+hc0n/wCj/8AiaP+ET8Mf9C5 pP8A4BR//E0ci7hz
S7E3mJ/fX86PMT++v51D/wAIn4Y/6FzSf/AKP/4mj/hE/DH/AELmk/8AgDH/ APE0ci7hzPsWAQRk
UhZQeWA/GsnQ447e51izgUR21tfBIIh0jUwxOVHoNztx71Fp+ladrGqa1Jql hbXxt7tYIRcxCRY0
8mJ8AMCB8zsc0KC5mrj59EbW9f7w/Ojev94fnUP/AAifhj/oXNJ/8AY//iah n8NeE7W3luLnQtGh
giUvJJJaRKqKBkkkjAAHejkXcXM+xc3r/eH50b0/vL+dQ/8ACJ+GP+hc0n/w Cj/+Jo/4RPwx/wBC
5pP/AIBR/wDxNHIu4c0uxN5if31/OjzE/vr+dQ/8In4Y/wChc0n/AMAo/wD4 mj/hE/DH/QuaT/4B
R/8AxNHIu4c0uxN5if31/OjzE/vr+dQ/8In4Y/6FzSf/AACj/wDiaP8AhE/D H/QuaT/4Ax//ABNH
Iu4cz7FgEEZFFZGhxx29zrFnAojtra+CQRDpGphicqPQbnbj3rXqJR5XYqLu rhRRRUlBRRRQAUUU
UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ AUUUUAFFFFACEgdS
BSb1/vD86ytaiS6vtFspxvtrq8ZJ4+0iiGVwD6jci8e1O1HSPBGj263Gp6Z4 fsoGcIslzbwxqWwT
gFgBnAPHsa1jBNXbIcneyRp71/vD86N6/wB4fnVODw14TureK4ttC0aaCVQ8 ckdpEyupGQQQMEEd
6m/4RPwx/wBC5pP/AIBR/wDxNHIu4uZ9ibev94fnR5if31/OqFx4f8HW0kcV xo+hQvL/AKtJLaFS
/wAypwCOfmdF+rqOpFWf+ET8Mf8AQuaT/wCAUf8A8TRyLuHNLsTeYn99fzo8 xP76/nUP/CJ+GP8A
oXNJ/wDAKP8A+Jo/4RPwx/0Lmk/+AUf/AMTRyLuHNLsTeYn99fzpQwPQg/Q1 B/wifhj/AKF3Sf8A
wBj/APiazL/StN0bWNFfS7G2smuLl4Jvs0SxiRPIlfDBQM/MimjkXRhzPqjM +J3/ACTrV/8Adj/9
GpWp4P8A+RJ0H/sHW/8A6LWsv4nf8k61f/dj/wDRqVqeD/8AkSdB/wCwdb/+ i1rrX+6L/E/yQo/x
H6L9TnvAf/Ix+LP+v0/+jZq1NBbHjzXF3fxk43df3Vt2z+uD9RnBy/Af/Iye LP8Ar9P/AKNmqS6u
dR8O+LNRvk0q7vIrs7k8iORl/wBXGvOwNg7oz1Xo2QeoOuKV8RJLrFfkjno6 U4vzf5s9C3Ubq4Y+
Or/nb4Y1M9cZt5xnrj/ll/u/mfTkPjq/52+GNTPXGbecZ64/5Zf7v5n055vY T/po3549za8Utbw2
9lfTalBp0lndebDdXURe3RzHJGfNwy4Uq7AEsvzFBk5Ctz2oeIp4vDmntb3N rpDXNxcOb7z4rS1m
CyMN4eSKYZm3ecq4JK7jvOCWr6l4kl1Ty/P8OeIE8rds+zTXttnOfveUq56L 1zjLY95LDxRcaZbv
BbeG9dkQsXzdNeTtnBH3pEYgcLwDgZb8T2M/6aDnj3MHT/E+r3U3nQXv2KTV 5bWac28SHY8iaShK
bw2MLPKBnPXnJAr2LdXDHx1f87fDGpnrjNvOM9cf8sv938z6ch8dX/O3wxqZ 64zbzjPXH/LL/d/M
+nJ7Cf8ATQc8e53O6jdXDHx1f87fDGpnrjNvOM9cf8sv938z6cjeOr/nb4Y1 M9cZt5x64/5Zf7v5
n05PYT/poOePcl8DtutNTO4t/paclt2f9Gg75OfzP1PWtjw+cX/iH/sIr/6T QVmeC7O5tdMupLmK
WI3FwJEWVSr7RFGmSCSRkoTyc4xmpIr9tD1TVRc2V5JFd3K3EUlvbSTAjyo0 IOwEg5Q9fUVM9Zyt
/Wwo6RVy544b/igPEn/YLuv/AEU1YupT65pmrNczNa6lqcWiahLYJa2jxKWV rclGQyO0hZvLxtK4
www24Fb974gsb61e2mtNcWN8ZMFleQvwc8Oihh07H2qhZXOj2N0lxDD4qaRM 4E51KZORjlHyp69x
71Fn2L5o9znrvxbr9nod1NBrtnehfOMdzazR3eGWyu5dpkWCOPhooW2hSw53 Ha6itq/l1JPF2laf
e6m8qWt7a3r3QhSMRtNFexGIcELGzJGi7tz5lxvLFSN3/hLLX/ny1b/wV3P/ AMbo/wCEstf+fLVv
/BXc/wDxunyy7BzR7nG6f4o8U3VmJTq2nC5me0E0CsLhrCWS6gjMbxrFH5Qx JIpjkkaQ7flbKM1a
Qv7618ZeZd3F9ex6RFfW6MkUZmvSYLO4EJCqFaQ5kKqgUkRDqA5PQf8ACWWv /Plq3/gruf8A43R/
wllr/wA+Wrf+Cu5/+N0csuwc0e5yeieKNXvvEFnpX9vWt5Ab2BpLmyuoLssr Q3btEzrBGoGbdOAm
4Bj8/I2+n7q5z/hLLX/ny1b/AMFdz/8AG6P+Estf+fHVv/BXc/8AxulZ9g5o 9xdI/wCQr4h/7CC/
+k0FTeHzjUPEP/YRX/0mgqDQFmdtTvZYJIVvLvzo0lUq+0RRx5IPIyUJwecY qvFftoeqaqLmyvJI
ru5W4ikt7aSYEeVGhB2AkHKHr6imvia8ieifmdXurA8cN/xQHiT/ALBd1/6K ao/+Estf+fLVv/BX
c/8AxuoL3xBY31q9tNaa4sb4yYLK8hfg54dFDDp2PtStLsVzR7mZrfiC6tdf kgbXvsE8eqWVtaab
+5H2y3keASSYdTI3Mky7kYAeX6qxNC28Ra/baFotzdar576tpkd3cTfZ40Wz XzbVHkTAwMR3EjsX
3LuQNhVylagudE+1xXL2XiOZothWOePUJYsoAFYxsChYFQ24gncN2d3Nav8A wllr/wA+Wrf+Cu5/
+N0+WXYOaPcwrDxHfnWsR6ldarpdpb31xFJbRQyPqaxpakAFFCsQ80yDy9uS gByQ2aGieKNXvvEF
npP9v2t5Ab2BpLmyuYLssrQ3btEzrBGoGbdOAm4Bj8/I29Z/wllr/wA+Wrf+ Cu5/+N0f8JZa/wDP
lq3/AIK7n/43Ryy7BzR7nR7qN1c5/wAJZa/8+Wrf+Cu5/wDjdH/CWWv/AD46 t/4K7n/43StLsHNH
uLpH/IV8Q/8AYQX/ANJoK16x9AWZ21O9lgkhW8u/OjSVSr7RFHHkg8jJQnB5 xitis6nxDhsFFFFQ
WFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA UUUUAFFFFABRRRQA
UUUUAZWqca34d/6/pP8A0mnqLxZqFppt/wCGbu+uoLW2j1Rt808gRFzaXIGW PA5IH40/XBNHNpd9
FBJOlldGWVIl3PtMUkeQOpwXBwOaz9S1TTNV8r7TbeI08vO37LDf2+c46+WF 3dO+cc46mt0m4qxl
dJu5nahqmoWGmXt5pVxBZ6bf6zuhvZZlhhitzbAtKrtHIqK9wjYYoQ5lyP8A WK9V7LVdQhuNQ1W9
vN08ujQxQy2zKIpQLq4T7R5jxDKxrJE7yKnlhZC+wqUFbOm6ppmleb9ntvEb +Zjd9qhv7jGM9PMD
bevbGeM9BV//AISy1/58tW/8Fdz/APG6fLLsPmj3PPTrV3rGp6eLq9tr42l4 tul1bXCzrKv2zSpM
mREjViDIV4RcYA5ILHX0bxN4gurG8nu9Z05JDZ+bPGJPObT5iyDY4W3AtgA0 gPnGUrs3EMscmer/
AOEstf8Any1b/wAFdz/8bo/4Sy1/58tW/wDBXc//ABujll2Dmj3Fhv4bvwXH eXep3SI6Blu40Ecx
O/8Ad4CblkcnaPkDJKT8qlHCmO6vdTW00qRx5evPnbYxv+6mTI8zzVyQigbS XBby2IVWl3bZX/8A
CWWv/Plq3/gruf8A43R/wllr/wA+Wrf+Cu5/+N0rS7BzR7liO5mHiqWCyle4 tymb9JGJS2k2jZsb
s7DGYxxjD/IT++Zrxzq3h7/r/f8A9Jp6i/4Sy1/58tW/8Fdz/wDG6rPftres 6UbezvI4rSd55ZLi
2khAHlSIAN4GTlx09DTSavdd/wAhNp7MpfE//knWrf7sf/oxK1PB/wDyJOg/ 9g63/wDRa1l/E7/k
nWr/AO7H/wCjUrU8H/8AIk6D/wBg63/9FrXQv9zX+J/kgj/Efov1OT8G6pYW HiPxUby+trfdfMF8
6VUyRLNnGT7j867L/hJdC/6DWnf+BSf41Suvhd4Nv7ye7udHMk9xK8krfaph uYkknAfA59Kj/wCF
ReBv+gIf/Auf/wCLratLDVpc8r307dEl38jGnzwjZW6/izR/4SXQf+g3pv8A 4FJ/jR/wkug/9BvT
f/AuP/Gs7/hUXgb/AKAh/wDAuf8A+Lo/4VF4G/6Ah/8AAuf/AOLrL2eF7y+5 f5mn7zyNH/hJtB/6
Dem/+Bcf+NH/AAk2g/8AQb03/wAC4/8AGs//AIVF4G/6Ah/8C5//AIuj/hUX gb/oCH/wLn/+Lpez
wveX9fMP3nkaH/CTaD/0G9N/8C4/8aP+Em0H/oN6b/4Fx/41n/8ACovA3/QE P/gXP/8AF0f8Ki8D
f9AQ/wDgXP8A/F0ezwveX9fMP3nkaH/CTaD/ANBvTf8AwLj/AMaP+Em0H/oN 6b/4Fx/41n/8Ki8D
f9AQ/wDgXP8A/F0f8Ki8Df8AQEP/AIFz/wDxdHs8L3l/XzD955Gh/wAJNoP/ AEG9N/8AAuP/ABo/
4SbQf+g3pv8A4Fx/41n/APCovA3/AEBD/wCBc/8A8XSf8Ki8Df8AQDP/AIGT /wDxdHs8L/e/D/ML
1PI0f+Em0H/oN6b/AOBcf+NH/CTaD/0G9N/8C4/8azv+FReBv+gGf/Ayf/4u j/hUXgb/AKAZ/wDA
yf8A+Lo9nhe8vw/zC9TyNH/hJtB/6Dem/wDgXH/jR/wk2g/9BvTf/AuP/Gs/ /hUXgb/oCH/wLn/+
Lo/4VF4G/wCgIf8AwLn/APi6PZ4XvL8P8wvU8jQ/4SbQf+g3pv8A4Fx/40f8 JNoP/Qb03/wLj/xr
O/4VF4G/6AZ/8DJ//i6X/hUXgb/oCH/wLn/+Lo9nhe8vw/zC9TyND/hJtB/6 Dem/+Bcf+NH/AAk2
g/8AQb03/wAC4/8AGs//AIVF4G/6Ah/8C5//AIuj/hUXgb/oCH/wLn/+Lo9n he8vw/zC9TyND/hJ
tB/6Dem/+Bcf+NH/AAk2g/8AQb03/wAC4/8AGs7/AIVF4G/6AZ/8DJ//AIul /wCFReBv+gIf/Auf
/wCLo9nhf734f5hep5Gh/wAJNoP/AEG9N/8AAuP/ABo/4SbQf+g3pv8A4Fx/ 41n/APCovA3/AEBD
/wCBc/8A8XR/wqLwN/0BD/4Fz/8AxdHs8L3l+H+YXqeRof8ACTaD/wBBvTf/ AALj/wAaP+Em0H/o
N6b/AOBcf+NZ/wDwqLwN/wBAQ/8AgXP/APF0f8Ki8Df9AQ/+Bc//AMXR7PC9 5fh/mF6nkaH/AAk2
g/8AQb03/wAC4/8AGj/hJtB/6Dem/wDgXH/jWd/wqLwN/wBAM/8AgZP/APF0 v/CovA3/AEBD/wCB
c/8A8XR7PC95fh/mF6nkaH/CTaD/ANBvTf8AwLj/AMaP+Em0H/oN6b/4Fx/4 1n/8Ki8Df9AQ/wDg
XP8A/F0f8Ki8Df8AQEP/AIFz/wDxdHs8L3l+H+YXqeRof8JNoP8A0G9N/wDA uP8Axo/4SbQf+g3p
v/gXH/jWf/wqLwN/0BD/AOBc/wD8XR/wqLwN/wBAQ/8AgXP/APF0eywv978P 8wvV8jQ/4SbQf+g3
pv8A4Fx/40f8JNoP/Qb03/wLj/xrP/4VF4G/6Ah/8C5//i6T/hUXgb/oBn/w Mn/+Lo9lhf734f5h
er5fiaP/AAk2g/8AQb03/wAC4/8AGj/hJtB/6Dem/wDgXH/jWd/wqLwN/wBA M/8AgZP/APF0f8Ki
8Df9AM/+Bk//AMXR7LC/3vw/zC9Xy/E0f+Em0H/oN6b/AOBcf+NH/CTaD/0G 9N/8C4/8az/+FReB
v+gIf/Auf/4uj/hUXgb/AKAh/wDAuf8A+Lo9lhf734f5her5fiaH/CTaD/0G 9N/8C4/8aP8AhJtB
/wCg3pv/AIFx/wCNZ/8AwqLwN/0BD/4Fz/8AxdJ/wqLwN/0Az/4GT/8AxdHs sL/e/D/ML1fL8TR/
4SbQf+g3pv8A4Fx/40f8JNoP/Qb03/wLj/xrP/4VF4G/6Ah/8C5//i6P+FRe Bv8AoCH/AMC5/wD4
uj2WF/vfh/mF6vl+Jof8JNoP/Qb03/wLj/xo/wCEm0H/AKDem/8AgXH/AI1n /wDCovA3/QEP/gXP
/wDF0f8ACovA3/QEP/gXP/8AF0eywv8Ae/D/ADC9Xy/E0P8AhJtB/wCg3pv/ AIFx/wCNH/CTaD/0
G9N/8C4/8az/APhUXgb/AKAh/wDAuf8A+Lo/4VF4G/6Ah/8AAuf/AOLo9lhf 734f5her5fiaH/CT
aD/0G9N/8C4/8aP+Em0H/oN6b/4Fx/41n/8ACovA3/QEP/gXP/8AF0f8Ki8D f9AQ/wDgXP8A/F0e
ywv978P8wvV8vxND/hJtB/6Dem/+Bcf+NH/CTaD/ANBvTf8AwLj/AMaz/wDh UXgb/oCH/wAC5/8A
4uj/AIVF4G/6Ah/8C5//AIuj2WF/vfh/mF6vl+Jof8JNoP8A0G9N/wDAuP8A xo/4SbQf+g3pv/gX
H/jWf/wqLwN/0BD/AOBc/wD8XR/wqLwN/wBAQ/8AgXP/APF0eywv978P8wvV 8vxND/hJtB/6Dem/
+Bcf+NH/AAk2g/8AQb03/wAC4/8AGs//AIVF4G/6Ah/8C5//AIuj/hUXgb/o CH/wLn/+Lo9lhf73
4f5her5fiaH/AAk2g/8AQb03/wAC4/8AGj/hJtB/6Dem/wDgXH/jWf8A8Ki8 Df8AQEP/AIFz/wDx
dH/CovA3/QEP/gXP/wDF0eywv978P8wvV8vxND/hJtB/6Dem/wDgXH/jR/wk 2g/9BvTf/AuP/Gs/
/hUXgb/oCH/wLn/+Lo/4VF4G/wCgIf8AwLn/APi6PZYX+9+H+YXq+X4mh/wk 2g/9BvTf/AuP/Gj/
AISbQf8AoN6b/wCBcf8AjWf/AMKi8Df9AQ/+Bc//AMXR/wAKi8Df9AQ/+Bc/ /wAXR7LC/wB78P8A
ML1fL8TQ/wCEm0H/AKDem/8AgXH/AI0f8JNoP/Qb03/wLj/xrP8A+FReBv8A oCH/AMC5/wD4uj/h
UXgb/oCH/wAC5/8A4uj2WF/vfh/mF6vl+Jof8JNoP/Qb03/wLj/xo/4SbQf+ g3pv/gXH/jWf/wAK
i8Df9AQ/+Bc//wAXSf8ACovA3/QDP/gZP/8AF0eywv8Ae/D/ADC9Xy/E0f8A hJtB/wCg3pv/AIFx
/wCNH/CTaD/0G9N/8C4/8azv+FReBv8AoBn/AMDJ/wD4ul/4VF4G/wCgIf8A wLn/APi6PZ4X+9+H
+YXqeRof8JNoP/Qb03/wLj/xo/4SbQf+g3pv/gXH/jWf/wAKi8Df9AQ/+Bc/ /wAXR/wqLwN/0BD/
AOBc/wD8XR7PC95fh/mF6nkaH/CTaD/0G9N/8C4/8aP+Em0H/oN6b/4Fx/41 n/8ACovA3/QEP/gX
P/8AF0f8Ki8Df9AQ/wDgXP8A/F0ezwveX4f5hep5Gh/wk2g/9BvTf/AuP/Gj /hJtB/6Dem/+Bcf+
NZ//AAqLwN/0BD/4Fz//ABdH/CovA3/QEP8A4Fz/APxdHs8L3l+H+YXqeRof 8JNoP/Qb03/wLj/x
o/4SbQf+g3pv/gXH/jWf/wAKi8Df9AQ/+Bc//wAXR/wqLwN/0BD/AOBc/wD8 XR7PC95fh/mF6nkY
3xH17SLvwDqkFtqtlNM6x7Y47hGZsSKeADnoK6Pwf/yJOg/9g63/APRa1UPw i8DZ/wCQIf8AwLn/
APi66qzsLbTrG3srWIR28ESxxJkttUAADJ5PFVUdH2KpQvo29bdbf5EwTlJt n//Z
------=_NextPart_000_0244_01C9D533.FC9FCFB0--

Attached files

gerencia · Mensaje por **gerencia** » Vie May 15, 2009 3:14 pm

<!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="#000066">
Daniel, 
Yo lo hago asÃ, adaptalo a lo tuyo 
 
//---------------------------------------------------------- -------------------- 
 
Function Existe_Nit(cValor) 
ÂLocal lReturn:=.F. 
ÂLocal cComandoÂÂ := "Select Count(*) From Clientes Where
Nit='"+cValor+"'" 
 
ÂIF Application:oMainForm:oConect:QueryValue( cComando ) > 0 
ÂÂÂ MsgStop("Nit "+alltrim(cValor)+" ya esta
registrado..","Advertencia") 
ÂÂÂ lReturn := .F. 
Â ENDIF 
 
Return(lReturn) 
 
<div class="moz-signature">
<meta http-equiv="Content-Type" content="text/html; ">
<meta name="ProgId" content="Word.Document">
<meta name="Generator" content="Microsoft Word 12">
<meta name="Originator" content="Microsoft Word 12">
<link rel="File-List" href="Firma%20Audi_archivos/filelist.xml">
<title>JosÃ David Angulo</title>
<link rel="themeData" href="Firma%20Audi_archivos/themedata.thmx">
<link rel="colorSchemeMapping"
href="Firma%20Audi_archivos/colorschememapping.xml">

<style>

</style>
<meta name="CREATED" content="20061023;14550935">
<meta name="CHANGEDBY" content="Jose Angulo">
<meta name="CHANGED" content="20061023;14593800">

<div class="Section1">
JosÃ David Angulo
Urzola.<o:p></o:p>
Auditoria
y Sistemas Ltda.<o:p></o:p>
<a
href="mailto:Gerencia@microexpressltda.com">jose.angulo@auditoriaysistemas.com</a><o:p></o:p>
Tel.
(57) 5-6643022 – 6644555<o:p></o:p>
Â Cartagena –
Colombia<o:p></o:p>
</div>
</div>
 
 
</body>
</html>

Andres Hocevar · Mensaje por **Andres Hocevar** » Vie May 15, 2009 4:21 pm

Hola Daniel
Cambia nroempresa+nroramo por * y te debe funcionar, para sumar 2 campos
string debes usar CONCAT el + a diferencia de clipper solo suma campos
tipo numerico, de todos modos no necesitas usarlo
SELECT count(*) nEncontre FROM ramos WHERE nroempresa = '&cNroEmpresa'
and nroramo = '&cNroRamo'
Otra cosa es que en MySQL (SQL en general) no necesitas saber que
indices tiene a diferencia de los DBF, el buscara lo que le pidas este
indizado o no, y es el algoritmo de optimizacion del motor SQL el que
decide cuando usar los indices, cuales y como!!!!, claro la idea es
diseñar las tablas con los indices adecuados para obtener todos o la
mayoria de los resultados lo mas rapido posible (optimizados), pero
igual obtienes los resultados, mas lento si ese no es el caso
Suerte
Daniel Du Pré escribió:
> Hola Foro:
>
> Estoy intentando realizar una búsqueda de un registro antes de
> insertarlo en una tabla para verificar que no se dupliquen los datos,
> para ello tengo una tabla con 3 campos:
> nroempresa N 1,0
> nroramo N 4,0
> detalle C 20
> y creo un indice compuesto por nroempresa+nroramo.
>
> luego ejecuto la siguientes lineas en el evento OnExit de la lectura de
> un TDBMaskEdit donde se lee el nroramo
>
> WITH OBJECT oSender
> cNroEmpresa := str(Appdata:nNroempresa,1,0)
> cNroRamo := str(:Value,4,0)
> cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM ramos
> WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
> * Appdata:oDataSource:Execute(cBuscar)*
>
> if nEncontre <> 0
> MsgInfo("Ya existe Ramo con ese nro.")
> Return .F.
> endif
> END WITH
>
> Pero al llegar a la linea que está marcada en azul oscuro me sale este
> error:
>
> error
>
>
> He probado ejecutar este mismo SELECT en el manejador SQLyog, cambiando
> &cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo que la
> búsqueda se realiza correctamente.
>
> ¿Alguna ayuda sobre que estoy haciendo mal?
>
> Desde ya muchas gracias
> Daniel.

jasm.quitaesto · Mensaje por **jasm.quitaesto** » Vie May 15, 2009 8:14 pm

Hola,
Para todos los que estáis migrando de DBF a SQL quiero avisaros de que
tengáis mucho cuidado al usar índices en SQL.
Los índices de SQL son utilizados para optimizar los SELECT, pero hemos
de tener mucho cuidado ya que cuantos mas índices tengamos y más
complejos SQL se volverá más lento a la hora de hacer INSERT.
Debemos construir índices en SQL para búsquedas la clave primaria y para
las SELECT más complejas.
En caso de tener SELECT resultantes de la combinación de varias tablas
es aconsejable hacer uso de las VISTAS, ya que estas estan resueltas en
tiempo real en el servidor SQL y aplicando el filtro deseado obtendremos
mayor rendimiento.
Saludos
Jose Alfonso Suarez Moreno

jasm.quitaesto · Mensaje por **jasm.quitaesto** » Vie May 15, 2009 8:23 pm

Daniel,
Tu problema es el acceso a nEncontre. Yo lo haría así:
METHOD Buscar( oSender ) CLASS .....
LOCAL lSalir := .T.
LOCAL cBuscar
LOCAL cNroEmpresa
LOCAL cNroRamo
WITH OBJECT oSender
cNroEmpresa := Str( Appdata:nNroempresa )
cNroRamo := Str( :Value )
cBuscar := "SELECT count(*) AS nEncontre " + ;
"FROM ramos " + ;
"WHERE nroempresa = " + Chr( 34 ) + cNroEmpresa + Chr(34 ) + "
" +;
"AND nroramo = " + Chr( 34 ) + cNroRamo + Chr( 34 )
Appdata:oDataSource:Execute(cBuscar)
IF *Appdata:oDataSource:nEncontre* <> 0
MsgInfo("Ya existe Ramo con ese nro.")
lSalir := .F.
END IF
END WITH
RETURN lSalir
Saludos
Jose Alfonso Suarez Moreno
Daniel Du Pré escribió:
> Hola Foro:
>
> Estoy intentando realizar una búsqueda de un registro antes de
> insertarlo en una tabla para verificar que no se dupliquen los datos,
> para ello tengo una tabla con 3 campos:
> nroempresa N 1,0
> nroramo N 4,0
> detalle C 20
> y creo un indice compuesto por nroempresa+nroramo.
>
> luego ejecuto la siguientes lineas en el evento OnExit de la lectura de
> un TDBMaskEdit donde se lee el nroramo
>
> WITH OBJECT oSender
> cNroEmpresa := str(Appdata:nNroempresa,1,0)
> cNroRamo := str(:Value,4,0)
> cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM ramos
> WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
> * Appdata:oDataSource:Execute(cBuscar)*
>
> if nEncontre <> 0
> MsgInfo("Ya existe Ramo con ese nro.")
> Return .F.
> endif
> END WITH
>
> Pero al llegar a la linea que está marcada en azul oscuro me sale este
> error:
>
> error
>
>
> He probado ejecutar este mismo SELECT en el manejador SQLyog, cambiando
> &cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo que la
> búsqueda se realiza correctamente.
>
> ¿Alguna ayuda sobre que estoy haciendo mal?
>
> Desde ya muchas gracias
> Daniel.

ddupre · Mensaje por **ddupre** » Lun May 18, 2009 1:35 am

***************************** Registro de errores *****************************
Exe: C:WVENTASwventas.exe
Version: 1.0.0.0
User name: Administrador
Computer name: DANIEL
Fecha: 05/17/09
Hora: 20:23:21
Memoria libre: 400276
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 2.0.0 Version 2.0 beta
Compilador: xHarbour build 1.3.0 Intl. (SimpLex) (Rev. 6403) PCode Version: 10
Compilador C/C++: Borland C++ 5.5.1 (32 bit)
Plataforma: Windows XP Professional 5.01.2600 Service Pack 3
----------------------- Información detallada del error -----------------------
Subsistema: MySQL
Código de error: 65535
Estado: .T.
Descripción:
Operación: TPROG6110:NRORAMOEXIT
Argumentos: [ 1] = Tipo: C Valor: SELECT count(*) AS nEncontre FROM ramos WHERE nroempresa = "1" AND nroramo = " 1"
Fichero:
Código error SO: 0
Pila de llamadas:
TPROG6110:NRORAMOEXIT (55)
TDBMASKEDIT:ONEXIT (0)
TEDIT:VALID (954)
TDBMASKEDIT:VALID (164)
TDBMASKEDIT:WMKILLFOCUS (66)
TPROG6110:SHOWMODAL (0)
TRAMOS:AGREGAR (74)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (41)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (391)
TSCROLLINGWINCONTROL:WMCOMMAND (272)
TRAMOS:WMCOMMAND (931)
TRAMOS:SHOWMODAL (0)
TMENU0000:RAMOSCLICK (105)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (238)
TMENU:DOACTION (243)
TMENU0000:WMCOMMAND (924)
RUNFORM (0)
TAPPLICATION:RUN (251)
MAIN (17)
--

jasm.quitaesto · Mensaje por **jasm.quitaesto** » Lun May 18, 2009 1:44 am

Daniel,
¿Hay conexion con MySQL?
nEncontre es la columna donde MySQL te va a retornar el valor de
count(*), por lo que forma parte del objeto de la consulta.
Saludos
Jose Alfonso Suarez Moreno
Daniel Du Pré escribió:
> Juan, José David, Andrés y José Alfonso, muchas gracias por su ayuda.
> Les comento que he intentado varias formas pero algo anda mal y no se
> donde. Lo último que realicé fue escribir la sentencia SELECT tal cual
> me la mando José Alfonso y para no errarle hice "copio y pego" y el
> error se sigue dando cuando se ejecuta la linea
>
> Appdata:oDataSource:Execute(cBuscar)
>
> por otro lado José Alfonso, estoy utilizando nEncontre como variable
> local ¿es incorreto?, tu me sugieres que debería utilizarla como una
> propiedad del DataSource y discúlpame la ignorancia pero ¿como hago eso?
>
> Les adjunto el error con toda la traza para que se entienda mejor lo que
> sucede.
>
> Error
>
> Muchas gracias
> Daniel.
>
>
> José Alfonso Suárez Moreno escribió:
>> Daniel,
>>
>> Tu problema es el acceso a nEncontre. Yo lo haría así:
>>
>> METHOD Buscar( oSender ) CLASS .....
>>
>> LOCAL lSalir := .T.
>> LOCAL cBuscar
>> LOCAL cNroEmpresa
>> LOCAL cNroRamo
>>
>> WITH OBJECT oSender
>>
>> cNroEmpresa := Str( Appdata:nNroempresa )
>> cNroRamo := Str( :Value )
>> cBuscar := "SELECT count(*) AS nEncontre " + ;
>> "FROM ramos " + ;
>> "WHERE nroempresa = " + Chr( 34 ) + cNroEmpresa + Chr(34 )
>> + " " +;
>> "AND nroramo = " + Chr( 34 ) + cNroRamo + Chr( 34 )
>>
>> Appdata:oDataSource:Execute(cBuscar)
>>
>> IF *Appdata:oDataSource:nEncontre* <> 0
>> MsgInfo("Ya existe Ramo con ese nro.")
>> lSalir := .F.
>> END IF
>>
>> END WITH
>>
>> RETURN lSalir
>>
>> Saludos
>>
>> Jose Alfonso Suarez Moreno
>>
>>
>>
>> Daniel Du Pré escribió:
>>> Hola Foro:
>>>
>>> Estoy intentando realizar una búsqueda de un registro antes de
>>> insertarlo en una tabla para verificar que no se dupliquen los datos,
>>> para ello tengo una tabla con 3 campos:
>>> nroempresa N 1,0
>>> nroramo N 4,0
>>> detalle C 20
>>> y creo un indice compuesto por nroempresa+nroramo.
>>>
>>> luego ejecuto la siguientes lineas en el evento OnExit de la lectura
>>> de un TDBMaskEdit donde se lee el nroramo
>>>
>>> WITH OBJECT oSender
>>> cNroEmpresa := str(Appdata:nNroempresa,1,0)
>>> cNroRamo := str(:Value,4,0)
>>> cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM
>>> ramos WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
>>> * Appdata:oDataSource:Execute(cBuscar)*
>>>
>>> if nEncontre <> 0
>>> MsgInfo("Ya existe Ramo con ese nro.")
>>> Return .F.
>>> endif
>>> END WITH
>>>
>>> Pero al llegar a la linea que está marcada en azul oscuro me sale
>>> este error:
>>>
>>> error
>>>
>>>
>>> He probado ejecutar este mismo SELECT en el manejador SQLyog,
>>> cambiando &cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo
>>> que la búsqueda se realiza correctamente.
>>>
>>> ¿Alguna ayuda sobre que estoy haciendo mal?
>>>
>>> Desde ya muchas gracias
>>> Daniel.

ddupre · Mensaje por **ddupre** » Lun May 18, 2009 5:13 am

José Alfonso:
Si, hay conexión y funciona perfecto, puedo modificar y eliminar
registros sin problema, lo que no puedo hacer es la validación de
existencia en el alta porque el EXECUTE da el error.
Comprendido lo de nEncontre, me acabo de dar cuenta con tu aclaración.
Ahora, aunque efectivamente la pregunta de nEncontre está mal formulada,
ésta nunca llega a ejecutarse porque el programa falla antes y como no
entiendo "que me está diciendo" el mensaje de error que me envía Xailer,
no se que hacer.
¿Alguna otra sugerencia?
Saludos
Daniel.
José Alfonso Suárez Moreno escribió:
> Daniel,
>
> ¿Hay conexion con MySQL?
>
> nEncontre es la columna donde MySQL te va a retornar el valor de
> count(*), por lo que forma parte del objeto de la consulta.
>
> Saludos
>
> Jose Alfonso Suarez Moreno
>
> Daniel Du Pré escribió:
>> Juan, José David, Andrés y José Alfonso, muchas gracias por su ayuda.
>> Les comento que he intentado varias formas pero algo anda mal y no se
>> donde. Lo último que realicé fue escribir la sentencia SELECT tal
>> cual me la mando José Alfonso y para no errarle hice "copio y pego" y
>> el error se sigue dando cuando se ejecuta la linea
>>
>> Appdata:oDataSource:Execute(cBuscar)
>>
>> por otro lado José Alfonso, estoy utilizando nEncontre como variable
>> local ¿es incorreto?, tu me sugieres que debería utilizarla como una
>> propiedad del DataSource y discúlpame la ignorancia pero ¿como hago eso?
>>
>> Les adjunto el error con toda la traza para que se entienda mejor lo
>> que sucede.
>>
>> Error
>>
>> Muchas gracias
>> Daniel.
>>
>>
>> José Alfonso Suárez Moreno escribió:
>>> Daniel,
>>>
>>> Tu problema es el acceso a nEncontre. Yo lo haría así:
>>>
>>> METHOD Buscar( oSender ) CLASS .....
>>>
>>> LOCAL lSalir := .T.
>>> LOCAL cBuscar
>>> LOCAL cNroEmpresa
>>> LOCAL cNroRamo
>>>
>>> WITH OBJECT oSender
>>>
>>> cNroEmpresa := Str( Appdata:nNroempresa )
>>> cNroRamo := Str( :Value )
>>> cBuscar := "SELECT count(*) AS nEncontre " + ;
>>> "FROM ramos " + ;
>>> "WHERE nroempresa = " + Chr( 34 ) + cNroEmpresa + Chr(34
>>> ) + " " +;
>>> "AND nroramo = " + Chr( 34 ) + cNroRamo + Chr( 34 )
>>>
>>> Appdata:oDataSource:Execute(cBuscar)
>>>
>>> IF *Appdata:oDataSource:nEncontre* <> 0
>>> MsgInfo("Ya existe Ramo con ese nro.")
>>> lSalir := .F.
>>> END IF
>>>
>>> END WITH
>>>
>>> RETURN lSalir
>>>
>>> Saludos
>>>
>>> Jose Alfonso Suarez Moreno
>>>
>>>
>>>
>>> Daniel Du Pré escribió:
>>>> Hola Foro:
>>>>
>>>> Estoy intentando realizar una búsqueda de un registro antes de
>>>> insertarlo en una tabla para verificar que no se dupliquen los
>>>> datos, para ello tengo una tabla con 3 campos:
>>>> nroempresa N 1,0
>>>> nroramo N 4,0
>>>> detalle C 20
>>>> y creo un indice compuesto por nroempresa+nroramo.
>>>>
>>>> luego ejecuto la siguientes lineas en el evento OnExit de la
>>>> lectura de un TDBMaskEdit donde se lee el nroramo
>>>>
>>>> WITH OBJECT oSender
>>>> cNroEmpresa := str(Appdata:nNroempresa,1,0)
>>>> cNroRamo := str(:Value,4,0)
>>>> cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM
>>>> ramos WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
>>>> * Appdata:oDataSource:Execute(cBuscar)*
>>>>
>>>> if nEncontre <> 0
>>>> MsgInfo("Ya existe Ramo con ese nro.")
>>>> Return .F.
>>>> endif
>>>> END WITH
>>>>
>>>> Pero al llegar a la linea que está marcada en azul oscuro me sale
>>>> este error:
>>>>
>>>> error
>>>>
>>>>
>>>> He probado ejecutar este mismo SELECT en el manejador SQLyog,
>>>> cambiando &cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y
>>>> veo que la búsqueda se realiza correctamente.
>>>>
>>>> ¿Alguna ayuda sobre que estoy haciendo mal?
>>>>
>>>> Desde ya muchas gracias
>>>> Daniel.

Andres Hocevar · Mensaje por **Andres Hocevar** » Lun May 18, 2009 10:15 pm

A mi cuando me salen esos gallitos lo que hago es colocar el select
manualmente
cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa = 1 AND
nroramo = 1 "
colocalo asi tal cual, (MySQL hace el casting no te preocupes), si no
funciona prueba
cBusca:="SELECT count(*) nEncontre FROM ramos "
(este TIENE que funcionar, sino el problema es la conexion)
luego
cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa = 1 "
luego
cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa =
'"+cNroEmpresa+"' "
y asi sucesivamente hasta dar con el problema
José Alfonso Suárez Moreno escribió:
> Daniel,
>
> Tu problema es el acceso a nEncontre. Yo lo haría así:
>
> METHOD Buscar( oSender ) CLASS .....
>
> LOCAL lSalir := .T.
> LOCAL cBuscar
> LOCAL cNroEmpresa
> LOCAL cNroRamo
>
> WITH OBJECT oSender
>
> cNroEmpresa := Str( Appdata:nNroempresa )
> cNroRamo := Str( :Value )
> cBuscar := "SELECT count(*) AS nEncontre " + ;
> "FROM ramos " + ;
> "WHERE nroempresa = " + Chr( 34 ) + cNroEmpresa + Chr(34 ) +
> " " +;
> "AND nroramo = " + Chr( 34 ) + cNroRamo + Chr( 34 )
>
> Appdata:oDataSource:Execute(cBuscar)
>
> IF *Appdata:oDataSource:nEncontre* <> 0
> MsgInfo("Ya existe Ramo con ese nro.")
> lSalir := .F.
> END IF
>
> END WITH
>
> RETURN lSalir
>
> Saludos
>
> Jose Alfonso Suarez Moreno
>
>
>
> Daniel Du Pré escribió:
>> Hola Foro:
>>
>> Estoy intentando realizar una búsqueda de un registro antes de
>> insertarlo en una tabla para verificar que no se dupliquen los datos,
>> para ello tengo una tabla con 3 campos:
>> nroempresa N 1,0
>> nroramo N 4,0
>> detalle C 20
>> y creo un indice compuesto por nroempresa+nroramo.
>>
>> luego ejecuto la siguientes lineas en el evento OnExit de la lectura
>> de un TDBMaskEdit donde se lee el nroramo
>>
>> WITH OBJECT oSender
>> cNroEmpresa := str(Appdata:nNroempresa,1,0)
>> cNroRamo := str(:Value,4,0)
>> cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM
>> ramos WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
>> * Appdata:oDataSource:Execute(cBuscar)*
>>
>> if nEncontre <> 0
>> MsgInfo("Ya existe Ramo con ese nro.")
>> Return .F.
>> endif
>> END WITH
>>
>> Pero al llegar a la linea que está marcada en azul oscuro me sale este
>> error:
>>
>> error
>>
>>
>> He probado ejecutar este mismo SELECT en el manejador SQLyog,
>> cambiando &cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo
>> que la búsqueda se realiza correctamente.
>>
>> ¿Alguna ayuda sobre que estoy haciendo mal?
>>
>> Desde ya muchas gracias
>> Daniel.

ddupre · Mensaje por **ddupre** » Mar May 19, 2009 5:42 am

<!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">
Andres: 
Gracias por tu ayuda. 
 
Esto cBusca:="SELECT count(*) nEncontre FROM ramos "Â
tambiÃn da el error y no entiendo porque. 
La conexiÃn con la BD esta bien y para asegurar eso me baso en que el
DBBrowse que muestro en esta parte de mi programa obtiene los datos de
una tabla llamada ramos que previamente la filtre haciendo esto: 
 
ÂÂ cBuscar := "SELECT nroramo detalle FROM ramos
WHERE nroempresa='&Appdata:nNroEmpresa'" 
ÂÂ Appdata:oDataSource:Execute(cBuscar) 
 
y aquÃ funciona perfecto. 
 
A esta altura no se que mas probar, ÂserÃ que estoy buscando en vano y
esto en realidad es un error de Xailer 2.0 Beta marzo? 
 
Gracias 
Daniel. 
 
PD: AlgÃn creador de Xailer que me pueda aportar algo? 
 
 
 
 
Andres Hocevar escribiÃ:
<blockquote cite="mid:[email=4a11c1e4@svctag-j7w3v3j.]4a11c1e4@svctag-j7w3v3j.[/email]" type="cite">A mi cuando
me salen esos gallitos lo que hago es colocar el select manualmente
 
 
cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa = 1 AND
nroramo = 1 "
 
 
colocalo asi tal cual, (MySQL hace el casting no te preocupes), si no
funciona prueba
 
 
cBusca:="SELECT count(*) nEncontre FROM ramos "
 
 
(este TIENE que funcionar, sino el problema es la conexion)
 
 
luego
 
 
cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa = 1 "
 
 
luego
 
 
cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa =
'"+cNroEmpresa+"' "
 
 
y asi sucesivamente hasta dar con el problema
 
 
 
 
 
 
 
JosÃ Alfonso SuÃrez Moreno escribiÃ:
 
<blockquote type="cite">Daniel,
 
 
Tu problema es el acceso a nEncontre. Yo lo harÃa asÃ:
 
 
METHOD Buscar( oSender ) CLASS .....
 
 
LOCAL lSalir := .T.
 
LOCAL cBuscar
 
LOCAL cNroEmpresa
 
LOCAL cNroRamo
 
 
WITH OBJECT oSender
 
 
ÂÂÂ cNroEmpresa := Str( Appdata:nNroempresa )
 
ÂÂÂ cNroRamoÂÂÂ := Str( :Value )
 
ÂÂÂ cBuscar := "SELECT count(*) AS nEncontre " + ;
 
ÂÂÂÂÂÂ ÂÂÂÂ "FROM ramos " + ;
 
ÂÂÂÂÂÂ ÂÂÂÂÂ "WHERE nroempresa = " + Chr( 34 ) + cNroEmpresa + Chr(34 )
+ " " +;
 
ÂÂÂÂÂÂ ÂÂÂÂ "AND nroramo = " + Chr( 34 ) + cNroRamo + Chr( 34 )
 
 
ÂÂÂ Appdata:oDataSource:Execute(cBuscar)
 
 
ÂÂÂ IF *Appdata:oDataSource:nEncontre* <> 0
 
ÂÂÂÂÂÂ MsgInfo("Ya existe Ramo con ese nro.")
 
ÂÂÂÂÂÂ lSalir := .F.
 
ÂÂÂ END IF
 
 
END WITH
 
 
RETURN lSalir
 
 
Saludos
 
 
Jose Alfonso Suarez Moreno
 
 
 
 
Daniel Du PrÃ escribiÃ:
 
<blockquote type="cite">Hola Foro:
 
 
Estoy intentando realizar una bÃsqueda de un registro antes de
insertarlo en una tabla para verificar que no se dupliquen los datos,
para ello tengo una tabla con 3 campos:
 
nroempresa N 1,0
 
nroramo N 4,0
 
detalle C 20
 
y creo un indice compuesto por nroempresa+nroramo.
 
 
luego ejecuto la siguientes lineas en el evento OnExit de la lectura de
un TDBMaskEdit donde se lee el nroramo
 
 
WITH OBJECT oSender
 
ÂÂ cNroEmpresa := str(Appdata:nNroempresa,1,0)
 
ÂÂ cNroRamoÂÂÂ := str(:Value,4,0)
 
ÂÂ cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM ramos
WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
 
*ÂÂ Appdata:oDataSource:Execute(cBuscar)*
 
 
ÂÂ if nEncontre <> 0
 
ÂÂÂÂÂ MsgInfo("Ya existe Ramo con ese nro.")
 
ÂÂÂÂÂ Return .F.
 
ÂÂ endif
 
END WITH
 
 
Pero al llegar a la linea que estÃ marcada en azul oscuro me sale este
error:
 
 
error
 
 
 
He probado ejecutar este mismo SELECT en el manejador SQLyog, cambiando
&cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo que
la bÃsqueda se realiza correctamente.
 
 
ÂAlguna ayuda sobre que estoy haciendo mal?
 
 
Desde ya muchas gracias
 
Daniel.
 
</blockquote>
</blockquote>
</blockquote>
</body>
</html>

Andres Hocevar · Mensaje por **Andres Hocevar** » Mar May 19, 2009 10:41 pm

Daniel
Realmente el error que sale en el log es de argumento, eso pareciera que
ocurre antes de envialo al dll de mysql, coloca por curiosidad
cBuscar := "SELECT 30 nEncontre", ese es el select mas simple que existe
(no accede a ninguna basedatos ni a ninguna tabla ) si no funciona y
otros select mas complejos si, pienso que es mas probable un error del
programa tuyo mas que de xailer
Si crees que es la version prueba con la 1.99 y sales de dudas
Chao
Daniel Du Pré escribió:
> Andres:
> Gracias por tu ayuda.
>
> Esto cBusca:="SELECT count(*) nEncontre FROM ramos " también da el
> error y no entiendo porque.
> La conexión con la BD esta bien y para asegurar eso me baso en que el
> DBBrowse que muestro en esta parte de mi programa obtiene los datos de
> una tabla llamada ramos que previamente la filtre haciendo esto:
>
> cBuscar := "SELECT nroramo detalle FROM ramos WHERE
> nroempresa='&Appdata:nNroEmpresa'"
> Appdata:oDataSource:Execute(cBuscar)
>
> y aquí funciona perfecto.
>
> A esta altura no se que mas probar, ¿será que estoy buscando en vano y
> esto en realidad es un error de Xailer 2.0 Beta marzo?
>
> Gracias
> Daniel.
>
> PD: Algún creador de Xailer que me pueda aportar algo?
>
>
>
>
> Andres Hocevar escribió:
>> A mi cuando me salen esos gallitos lo que hago es colocar el select
>> manualmente
>>
>> cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa = 1 AND
>> nroramo = 1 "
>>
>> colocalo asi tal cual, (MySQL hace el casting no te preocupes), si no
>> funciona prueba
>>
>> cBusca:="SELECT count(*) nEncontre FROM ramos "
>>
>> (este TIENE que funcionar, sino el problema es la conexion)
>>
>> luego
>>
>> cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa = 1 "
>>
>> luego
>>
>> cBusca:="SELECT count(*) nEncontre FROM ramos WHERE nroempresa =
>> '"+cNroEmpresa+"' "
>>
>> y asi sucesivamente hasta dar con el problema
>>
>>
>>
>>
>>
>>
>> José Alfonso Suárez Moreno escribió:
>>> Daniel,
>>>
>>> Tu problema es el acceso a nEncontre. Yo lo haría así:
>>>
>>> METHOD Buscar( oSender ) CLASS .....
>>>
>>> LOCAL lSalir := .T.
>>> LOCAL cBuscar
>>> LOCAL cNroEmpresa
>>> LOCAL cNroRamo
>>>
>>> WITH OBJECT oSender
>>>
>>> cNroEmpresa := Str( Appdata:nNroempresa )
>>> cNroRamo := Str( :Value )
>>> cBuscar := "SELECT count(*) AS nEncontre " + ;
>>> "FROM ramos " + ;
>>> "WHERE nroempresa = " + Chr( 34 ) + cNroEmpresa + Chr(34
>>> ) + " " +;
>>> "AND nroramo = " + Chr( 34 ) + cNroRamo + Chr( 34 )
>>>
>>> Appdata:oDataSource:Execute(cBuscar)
>>>
>>> IF *Appdata:oDataSource:nEncontre* <> 0
>>> MsgInfo("Ya existe Ramo con ese nro.")
>>> lSalir := .F.
>>> END IF
>>>
>>> END WITH
>>>
>>> RETURN lSalir
>>>
>>> Saludos
>>>
>>> Jose Alfonso Suarez Moreno
>>>
>>>
>>>
>>> Daniel Du Pré escribió:
>>>> Hola Foro:
>>>>
>>>> Estoy intentando realizar una búsqueda de un registro antes de
>>>> insertarlo en una tabla para verificar que no se dupliquen los
>>>> datos, para ello tengo una tabla con 3 campos:
>>>> nroempresa N 1,0
>>>> nroramo N 4,0
>>>> detalle C 20
>>>> y creo un indice compuesto por nroempresa+nroramo.
>>>>
>>>> luego ejecuto la siguientes lineas en el evento OnExit de la lectura
>>>> de un TDBMaskEdit donde se lee el nroramo
>>>>
>>>> WITH OBJECT oSender
>>>> cNroEmpresa := str(Appdata:nNroempresa,1,0)
>>>> cNroRamo := str(:Value,4,0)
>>>> cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM
>>>> ramos WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
>>>> * Appdata:oDataSource:Execute(cBuscar)*
>>>>
>>>> if nEncontre <> 0
>>>> MsgInfo("Ya existe Ramo con ese nro.")
>>>> Return .F.
>>>> endif
>>>> END WITH
>>>>
>>>> Pero al llegar a la linea que está marcada en azul oscuro me sale
>>>> este error:
>>>>
>>>> error
>>>>
>>>>
>>>> He probado ejecutar este mismo SELECT en el manejador SQLyog,
>>>> cambiando &cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo
>>>> que la búsqueda se realiza correctamente.
>>>>
>>>> ¿Alguna ayuda sobre que estoy haciendo mal?
>>>>
>>>> Desde ya muchas gracias
>>>> Daniel.

ddupre · Mensaje por **ddupre** » Dom May 24, 2009 9:51 pm

This is a multi-part message in MIME format.
--------------070508050901070407090302
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 content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
JosÃ Alfonso: 
 
Probando con la 1.99 la ejecuciÃn de la sentencia SELECT ya no da
error, pero la pregunta por nEncontre me manda el siguiente mensaje: 
Lo que tengo en mi evento OnExit del dato que quiero validar es esto: 
 
METHOD NroRamoExit( oSender, oNextCtl )
CLASS TProg6110 
local cBuscar, nNroRamo, nNroEmpresa 
 
WITH OBJECT oSender 
ÂÂ if :Value == 0 
ÂÂÂÂÂ MsgInfo("Nro. de Ramo no vÃlido") 
ÂÂÂÂÂ Return .F. 
ÂÂ endif 
ÂÂ nNroEmpresa := AppData:nNroEmpresa 
ÂÂ nNroRamoÂÂÂ := :Value 
ÂÂ cBuscarÂÂÂÂ := "SELECT count(*) AS nEncontre FROM ramos WHERE
nroempresa = '&Appdata:nNroEmpresa' AND nroramo = '&nNroRamo' " 
ÂÂ LogDebug( cBuscar) 
ÂÂ Appdata:oMventas:Execute(cBuscar) 
 
ÂÂ if (Appdata:oMventas:nEncontre) <> 0ÂÂÂ <----------------
error mostrado en la figura de abajo, oMventas es el nombre del objeto
que contiene las propoedades 
ÂÂÂÂÂ MsgInfo("Ya existe Ramo con ese nro." )ÂÂÂÂÂ&nbsp ;ÂÂÂÂÂ&nbsp ;ÂÂÂÂÂ&nbsp ;ÂÂÂÂ del
TMySQLDataSource. 
ÂÂÂÂÂ Return .F. 
ÂÂ endif 
END WITH 
 
Return .T. 
 
 
<img alt="error" src="cid:part1.01070301.02040604@macrosistemas.com.uy"
height="140" width="601"> 
 
Lo que me hace pensar que la columna nEncontre no se estÃ creando, si
es asÃ Âalguna idea de porque no? 
 
Gracias 
Saludos 
 
 
Daniel Du PrÃ escribiÃ:
<blockquote cite="mid:4a10d276$[email=1@svctag-j7w3v3j.]1@svctag-j7w3v3j.[/email]" type="cite">JosÃ
Alfonso:
 
Si, hay conexiÃn y funciona perfecto, puedo modificar y eliminar
registros sin problema, lo que no puedo hacer es la validaciÃn de
existencia en el alta porque el EXECUTE da el error.
 
Comprendido lo de nEncontre, me acabo de dar cuenta con tu aclaraciÃn.
 
Ahora, aunque efectivamente la pregunta de nEncontre estÃ mal
formulada, Ãsta nunca llega a ejecutarse porque el programa falla antes
y como no entiendo "que me estÃ diciendo" el mensaje de error que me
envÃa Xailer, no se que hacer.
 
 
ÂAlguna otra sugerencia?
 
 
Saludos
 
Daniel.
 
 
 
 
JosÃ Alfonso SuÃrez Moreno escribiÃ:
 
<blockquote type="cite">Daniel,
 
 
ÂHay conexion con MySQL?
 
 
nEncontre es la columna donde MySQL te va a retornar el valor de
count(*), por lo que forma parte del objeto de la consulta.
 
 
Saludos
 
 
Jose Alfonso Suarez Moreno
 
 
Daniel Du PrÃ escribiÃ:
 
<blockquote type="cite">Juan, JosÃ David, AndrÃs y JosÃ Alfonso,
muchas gracias por su ayuda.
 
Les comento que he intentado varias formas pero algo anda mal y no se
donde. Lo Ãltimo que realicÃ fue escribir la sentencia SELECT tal cual
me la mando JosÃ Alfonso y para no errarle hice "copio y pego" y el
error se sigue dando cuandoÂ se ejecuta la linea
 
 
Appdata:oDataSource:Execute(cBuscar)
 
 
por otro lado JosÃ Alfonso, estoy utilizando nEncontre como variable
local Âes incorreto?, tu me sugieres que deberÃa utilizarla como una
propiedad del DataSource y discÃlpame la ignorancia pero Âcomo hago
eso?
 
 
Les adjunto el error con toda la traza para que se entienda mejor lo
que sucede.
 
 
Error
 
 
Muchas gracias
 
Daniel.
 
 
 
JosÃ Alfonso SuÃrez Moreno escribiÃ:
 
<blockquote type="cite">Daniel,
 
 
Tu problema es el acceso a nEncontre. Yo lo harÃa asÃ:
 
 
METHOD Buscar( oSender ) CLASS .....
 
 
LOCAL lSalir := .T.
 
LOCAL cBuscar
 
LOCAL cNroEmpresa
 
LOCAL cNroRamo
 
 
WITH OBJECT oSender
 
 
ÂÂÂ cNroEmpresa := Str( Appdata:nNroempresa )
 
ÂÂÂ cNroRamoÂÂÂ := Str( :Value )
 
ÂÂÂ cBuscar := "SELECT count(*) AS nEncontre " + ;
 
ÂÂÂÂÂÂ ÂÂÂÂ "FROM ramos " + ;
 
ÂÂÂÂÂÂ ÂÂÂÂÂ "WHERE nroempresa = " + Chr( 34 ) + cNroEmpresa + Chr(34 )
+ " " +;
 
ÂÂÂÂÂÂ ÂÂÂÂ "AND nroramo = " + Chr( 34 ) + cNroRamo + Chr( 34 )
 
 
ÂÂÂ Appdata:oDataSource:Execute(cBuscar)
 
 
ÂÂÂ IF *Appdata:oDataSource:nEncontre* <> 0
 
ÂÂÂÂÂÂ MsgInfo("Ya existe Ramo con ese nro.")
 
ÂÂÂÂÂÂ lSalir := .F.
 
ÂÂÂ END IF
 
 
END WITH
 
 
RETURN lSalir
 
 
Saludos
 
 
Jose Alfonso Suarez Moreno
 
 
 
 
Daniel Du PrÃ escribiÃ:
 
<blockquote type="cite">Hola Foro:
 
 
Estoy intentando realizar una bÃsqueda de un registro antes de
insertarlo en una tabla para verificar que no se dupliquen los datos,
para ello tengo una tabla con 3 campos:
 
nroempresa N 1,0
 
nroramo N 4,0
 
detalle C 20
 
y creo un indice compuesto por nroempresa+nroramo.
 
 
luego ejecuto la siguientes lineas en el evento OnExit de la lectura de
un TDBMaskEdit donde se lee el nroramo
 
 
WITH OBJECT oSender
 
ÂÂ cNroEmpresa := str(Appdata:nNroempresa,1,0)
 
ÂÂ cNroRamoÂÂÂ := str(:Value,4,0)
 
ÂÂ cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM ramos
WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
 
*ÂÂ Appdata:oDataSource:Execute(cBuscar)*
 
 
ÂÂ if nEncontre <> 0
 
ÂÂÂÂÂ MsgInfo("Ya existe Ramo con ese nro.")
 
ÂÂÂÂÂ Return .F.
 
ÂÂ endif
 
END WITH
 
 
Pero al llegar a la linea que estÃ marcada en azul oscuro me sale este
error:
 
 
error
 
 
 
He probado ejecutar este mismo SELECT en el manejador SQLyog, cambiando
&cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y veo que
la bÃsqueda se realiza correctamente.
 
 
ÂAlguna ayuda sobre que estoy haciendo mal?
 
 
Desde ya muchas gracias
 
Daniel.
 
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</body>
</html>
--------------070508050901070407090302
Content-Type: image/jpeg;
name="Error Xailer 8.JPG"
Content-Transfer-Encoding: base64
Content-ID: <part1.01070301.02040604@macrosistemas.com.uy>
Content-Disposition: inline;
filename="Error Xailer 8.JPG"
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsL DBkSEw8UHRof
Hh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwL DBgNDRgyIRwh
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIy MjIyMjL/wAAR
CACMAlkDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcI CQoL/8QAtRAA
AgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS 0fAkM2JyggkK
FhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1 dnd4eXqDhIWG
h4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW 19jZ2uHi4+Tl
5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcI CQoL/8QAtREA
AgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMz UvAVYnLRChYk
NOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0 dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU 1dbX2Nna4uPk
5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwC7408eXkmtXOlabcvb2tq3 lSPCSryOCN3z
YBUAgjjrg8kEYwYvEmoYy2o6kf8At+l/+KrG1cL/AMJhrZc4X+0bjJ/7atXd 6Vp9zqWlW76H
caaNPXI1FpwEa0xklnyfmXAyGHXvjBr6LEY3DZbTp0Y0uaTSfb53trqc2Fyi tmHPXnW5IJ8t
9Xra9rLbTbu9DE/4Se9A/wCP3UP/AAOl/wDiqYfFV5/z+6h/4HS//FVg6hPa tq00VlJ5ttuY
Ry7Cm8A8EKeRkc4rTh0WzHhca5fXtzHG199iWG2tVlYt5e/dlpEAGAa9TCYj B4jDxrqNk9LW
vr20PJx2AxWDxMsNOV2tb7ab3128+zLX/CV3f/P7qP8A4HS//FUf8JXd/wDP 7qP/AIHS/wDx
VYY0zUP7OGoGwuhZkZ88xN5fXb97p1469alk0LV4bmK2l0q+SeYkRRNbuGfA ydoxk4BHSu32
WG7I4f3vdmv/AMJXd/8AP7qP/gdL/wDFUf8ACV3f/P7qP/gdL/8AFVjJo+py XstmmnXjXUS7
pIFgYug45K4yByPzFVZYpIJXiljeORGKujggqRwQR2NNUKD0UUJyqreTN+Px HLC7vFcXqNIc
uy3kgLH1PPPU1J/wld3/AM/uo/8AgdL/APFVzNFW8PSe8ULnn/Mzpv8AhK7v /n91H/wOl/8A
iqP+Eru/+f3Uf/A6X/4quZopfVqP8qDnqfzM6b/hK7vBH27UcHqPt0v/AMVS f8JRc/8AP5qH
/gdL/wDFVzVFH1aj/Kg56n8zOl/4Si5/5/NQ/wDA6X/4qoJdcE8nmTPdSPjG 57qQnHpkn3NY
NFNYektVEOef8zOhufEL3pU3U15OUVlUy3kjYDDDAZPQjg+op8PiWe3eR4Lq +iaQ5dkvZVLf
XB56muboo+r0v5Q5p/zM349eMRJjku0JGCVu5BkenWnN4hd/M3TXjeZjfm8k O7HTPPNc9RT9
jT7C5p/zM6FvEMj+ZvmvG8zG/N5Id2OmeecUf8JC/wDz2vPueX/x+Sfd/u9e ntXPUUexp9g5
p/zM6FvEMj+ZvmvG8zG/N5Id2OmeecU5/Es8m3fc3zbSGXN7KcEdCOa5yij2 FP8AlDmn/Mze
bW1dizNcsxOSTdSEk/nUsniWeZCktzfOh6q17KR/Oucoo9jT7BzT/mZ0g8Sz iNYxc3wRcYX7
bLgY6fxU3/hIX/57Xn3/ADP+PyT7397r19653FGKPYU+w+af8zOj/wCEjl3K 3n3u5SSp+2S5
BPXHPemPrxkCh5Lpggwoa7kOB6DmufxRij2NPsLmn/Mzd/tlP+nj/wACZP8A Gj+2U/6eP/Am
T/GsLFGKfsodgvLubv8AbKf9PH/gTJ/jR/bKf9PH/gTJ/jWFijFHsodgvLub v9sp/wBPH/gT
J/jR/bKf9PH/AIEyf41hYoxR7KHYLy7m7/bKf9PH/gTJ/jR/bKf9PH/gTJ/j WFijFHsodgvL
ubv9sp/08f8AgTJ/jR/bKf8ATx/4Eyf41hYoxR7KHYLy7m7/AGyn/Tx/4Eyf 40f2yn/Tx/4E
yf41hYoxR7KHYLy7m7/bKf8ATx/4Eyf40f2yn/Tx/wCBMn+NYWKMUeyh2C8u 5u/2yn/Tx/4E
yf40f2yn/Tx/4Eyf41hYoxR7KHYLy7m7/bKf9PH/AIEyf40f2yn/AE8f+BMn +NYWKMUeyh2C
8u5u/wBsp/08f+BMn+NJ/bK/9PH/AIFSf41hYoxR7KHYLy7m7/bK/wDTx/4F Sf40f2yv/Tx/
4FSf41hYoxR7KHYLy7m7/bK/9PH/AIFSf40f2yv/AE8f+BUn+NYWKMUeyh2C 8u5u/wBsr/08
f+BUn+NH9sp/08f+BMn+NYWKMUeyh2C8u5u/2yhXafPxnOPtMnX8/c1Nb+I5 rPd9mnvYN+N3
lXkq5x0zg+9c5ijFS8PTe8Suepa3Mzck1aKaR5JVmd3JLM1y5LE9SeacutKs 4nX7QJQSRILq
TcCevOawcUYoVCmtog51HvJnSf8ACTXB/wCXm+/8DZf8aQ+I5jJHIZ7wvH9x vtkuV69Dnjqf
zNc5ijFDw9N7xFzT/mZ0/wDwld5/z+6h/wCB8v8AjR/wld5/z+6h/wCB8v8A jXMYoxS+rUf5
UPnn/Mzp/wDhK7z/AJ/dQ/8AA+X/ABo/4Su8/wCf3UP/AAPl/wAa5jFGKPq1 H+VBzz/mZ0kv
iWe4iaKa5vZI26o97KQfwJpY/E9zDEkcd1fJGgCqq30oCgdABnpXNYoxT+r0 rW5UHPP+ZnT/
APCV3n/P7qH/AIHy/wCNH/CV3n/P7qH/AIHy/wCNcxijFL6tR/lQc8/5mdP/ AMJXef8AP7qH
/gfL/wDFUf8ACVXrMFS81EsTgAX0xJP/AH1XMYrU8LH/AIrDRP8Ar/g/9GLU zoUowcuRaFQc
5SS5mdYYfFQwWluEz/DJroRh9QZQQfrUbJ4nBz9rcf8Acwp/8drp9NW31Zfs ktyILpowLYsP
kZ/7rH37f/qBqXWkNp2k3N3rUjWshLR2lsoBeVweWP8AsD198+m74R8Q1rcy pQt6P/M+1jw7
h+bklVlf8/TT/hjlW8YeIfCeoxPdyTzRPh2hluhcRzIMg7ZMtg8nlT1AyDjF d7/wtbwV/wBB
r/yVm/8AiK8o8XDPhvTiBz9vu/8A0Xb15tXsRw9HMcNSxM48spJ35dNnbszz Z05YOvUoRldR
fU9C12LzvE2vKDgnULjB9/MarNr8Q9S8O2Wn6fZ2VvZwQFmuo2XcL9zkEuT/ AA7cDA75PoFu
S+HtZ1nxR4gOmWX2gR6hMX/eomA0r4+8R/dNW08EeLlHOj/+TMX/AMVXRmGD wWKUHOqoTSS3
W29mrmODzHFYRzhGlz0227O++1/uORhQ6hq9zqMdl9hs3ZjBbbidoJ45PJwO M8ZyeAMV2MGo
W6+Ajow1l9OuZdSaaUBbjEkBh2FSYkbgsRweuKT/AIQrxb/0Bj/4Exf/ABVI fBPi0/8AMGP/
AIExf/FV1UIZfRw8cPGqrJ3vdas4MRXx2IxMsRUg7tW66Lb1K+q6rFd+FfDe l21xMWt47pru
Ha6qC0qtHnIAJwCccke1dBceJ7G88deI7oajcR2N7ZSWdnd+XJi3ZoYwXVeG A3Ifujk8+9Y3
/CEeLf8AoDn/AMCYv/iqP+EI8W/9Ac/+BMX/AMVVy/s+W9Vfa6r7TTf3W0M4 vGR2g+nR9DVu
PFOni71OW3vLgrH4YOmW9z5MivPcgcMBjcMkjlsfd9MGuIaJndnYlmYlmYnJ JPJJNdF/whHi
3/oDn/wJi/8AiqP+EI8W/wDQHP8A4Exf/FVrhquBoXcasXe3VdDOtDFVbJwa +TOc8j2o8j2r
o/8AhCPFv/QHP/gTF/8AFUf8IR4t/wCgOf8AwJi/+Krq/tDB/wDP2P3o5/qm J/kf3HOeR7Ue
R7V0f/CEeLf+gOf/AAJi/wDiqP8AhCPFv/QHP/gTF/8AFUf2hg/+fsfvQfVM T/I/uOc8j2o8
j2ro/wDhCPFv/QHP/gTF/wDFUf8ACEeLf+gOf/AmL/4qj+0MH/z9j96D6pif 5H9xznke1Hke
1dH/AMIR4t/6A5/8CYv/AIqj/hCPFv8A0Bz/AOBMX/xVH9oYP/n7H70H1TE/ yP7jnPI9qPI9
q6P/AIQjxb/0Bz/4Exf/ABVH/CEeLf8AoDn/AMCYv/iqP7Qwf/P2P3oPqmJ/ kf3HOeR7UeR7
V0f/AAhHi3/oDn/wJi/+Ko/4Qjxb/wBAc/8AgTF/8VR/aGD/AOfsfvQfVMT/ ACP7jnPI9qPI
9q6P/hCPFv8A0Bz/AOBMX/xVH/CEeLf+gOf/AAJi/wDiqP7Qwf8Az9j96D6p if5H9xznke1H
ke1dH/whHi3/AKA5/wDAmL/4qj/hCPFv/QHP/gTF/wDFUf2hg/8An7H70H1T E/yP7jnPI9qP
I9q6P/hCPFv/AEBz/wCBMX/xVH/CEeLf+gOf/AmL/wCKo/tDB/8AP2P3oPqm J/kf3HN+QaPI
NdH/AMIP4t/6Ax/8CYv/AIqj/hB/Fv8A0Bj/AOBMX/xVP+0MH/z9j96D6rif 5H9xznkGjyDX
R/8ACD+Lf+gMf/AmL/4qj/hB/Fv/AEBj/wCBMX/xVH9oYP8A5+x+9B9VxP8A I/uOc8g0eQa6
P/hB/Fv/AEBj/wCBMX/xVH/CD+Lf+gMf/AmL/wCKo/tDB/8AP2P3oPquJ/kf 3HOeQaPINdH/
AMIP4t/6Ax/8CYv/AIqj/hB/Fv8A0Bj/AOBMX/xVH9oYP/n7H70H1XE/yP7j nPINHkGuj/4Q
fxb/ANAY/wDgTF/8VR/wg/i3/oDH/wACYv8A4qj+0MH/AM/Y/eg+q4n+R/cc 55Bo8g10f/CD
+Lf+gMf/AAJi/wDiqP8AhB/Fv/QGP/gTF/8AFUf2hg/+fsfvQfVcT/I/uOc8 g0eQa6P/AIQf
xb/0Bj/4Exf/ABVH/CD+Lf8AoDH/AMCYv/iqP7Qwf/P2P3oPquJ/kf3HOeQa PINdH/wg/i3/
AKAx/wDAmL/4qj/hB/Fv/QGP/gTF/wDFUf2hg/8An7H70H1XE/yP7jnPINHk Guj/AOEH8W/9
AY/+BMX/AMVR/wAIP4t/6Ax/8CYv/iqP7Qwf/P2P3oPquJ/kf3HOeQaPINdH /wAIP4t/6Ax/
8CYv/iqP+EH8W/8AQGP/AIExf/FUf2hg/wDn7H70H1XE/wAj+45zyDR5Bro/ +EH8W/8AQGP/
AIExf/FUf8IP4t/6Ax/8CYv/AIqj+0MH/wA/Y/eg+q4n+R/cc4YDSeSfSuk/ 4Qfxb/0Bv/Jm
L/4qj/hB/Fv/AEBv/JmL/wCKo/tDB/8AP2P3of1XE/yP7jm/JPpR5J9K6T/h B/Fv/QG/8mYv
/iqP+EH8W/8AQG/8mYv/AIqj+0MH/wA/Y/eg+q4n+R/cc35J9KPJPpXSf8IP 4t/6A3/kzF/8
VR/wg/i3/oDf+TMX/wAVR/aGD/5+x+9B9VxP8j+45vyT6UeSfSuk/wCEH8W/ 9Ab/AMmYv/iq
P+EH8W/9Ab/yZi/+Ko/tDB/8/Y/eg+q4n+R/cc35J9KPJPpXSf8ACD+Lf+gN /wCTMX/xVH/C
D+Lf+gN/5Mxf/FUf2hg/+fsfvQfVcT/I/uOb8k+lHkn0rpP+EH8W/wDQG/8A JmL/AOKo/wCE
H8W/9Ab/AMmYv/iqP7Qwf/P2P3oPquJ/kf3HN+SfSjyT6V0n/CD+Lf8AoDf+ TMX/AMVR/wAI
P4t/6A3/AJMxf/FUf2hg/wDn7H70H1XE/wAj+45vyT6UeSfSuk/4Qfxb/wBA b/yZi/8AiqP+
EH8W/wDQG/8AJmL/AOKo/tDB/wDP2P3oPquJ/kf3HN+SfSjyT6V0n/CD+Lf+ gN/5Mxf/ABVH
/CD+Lf8AoDf+TMX/AMVR/aGD/wCfsfvQfVcT/I/uOb8k+lHkn0rpP+EH8W/9 Ab/yZi/+Ko/4
Qfxb/wBAb/yZi/8AiqP7Qwf/AD9j96D6rif5H9xzfkn0o8k+ldJ/wg/i3/oD f+TMX/xVH/CD
+Lf+gN/5Mxf/ABVH9oYP/n7H70H1XE/yP7jm/JPpWn4Yix4u0U/9P8H/AKMW tH/hB/Fv/QG/
8mYv/iqWLwV4ygnjnh0opLGwdGFzFkMDkH71RUx2ElBx9rHVd0VDDYiMk3B/ cb/h6+0qJHud
T3TGFAYbYDiZvRj2A6+/v0NrU9esPEGmz/2tiHUYAz2txCnDjOfKYenPB7fX O7JOgeJ2Ys/g
rTWc8swvHXJ9cLOAPoABSN4d8Skf8iRpv/gfL/8AJFfm7yavy8iq07f4lqfo n9tYR1PaOFS/
TTb0169e/wBxy3iPE3haxPpf3f8A6Lt686wK9Q8UaD4mg0hrm+0eGw020BIS CdWVC5ALcuzE
k7Rkk9B2FeXV9pl1JUMDSo8yk43Tad1e9/1PmsXX+sYupVSaUndX3PpPwJ/y Mni3/r9P/o2a
uzN3GJHQJO7IcN5cDuAcA4yAR0IrjPAf/IyeLf8Ar9P/AKNmrtrVLyS21NbC eCC6NyuySeEy
ov7uPOVDKTxn+IevPSvmswinipX7R/8ASUa4dtUlbu/zYz7Wv/PC8/8AASX/ AOJo+1r/AM8L
z/wEl/8Aia50+LNYg8H+GtVv9V0Oyk1qWMvcz2rpBbRvbPMFIM4y25Au7cAd 33c9a7+O7z7Z
a2z6/wCHLO1f7Tt1i4hJtrzyxbkeSPPUDmeRD878wt05A4+SJvdnVfa1/wCe F5/4CS//ABNH
2tf+eF5/4CS//E1m2viHWNWXSrSyextrq7iu5zdy27zQyxwSpErxxiRTtlEi yKd7ALgfPndU
Y8UaldRWtulxpthOE1B7q9uoWkgVbOdYHITzEKhi2/Jc7ACDuzuByRC7Nb7W v/PC8/8AASX/
AOJo+1r/AM8Lz/wEl/8Aiaxb7xp5EGjx/wDCQeHLT7dFcS/2pK/m2kvkuibU HmJhm8zdje2z
Yy/P96tiHVtYHi2z0q9srGG1uNPmuQ8Ny8rmSNoFZeUUBQZWAPJbAPy9CckQ ux32tf8Anhef
+Akv/wATR9rX/nhef+Akv/xNZq+J9YTTtYN5Z2MF9a6rbabCsMrzRp54twrs SEL4NwWIATIG
3I+9RceKL+w0DxO1wsE2p6LFOyyx20iQTFLeOcEjc2z/AFyrtLkttYjuFOSI XZpfa1/54Xn/
AICS/wDxNH2tf+eF5/4CS/8AxNYuo+N7yHRze29rBHMuialezQSkv5N1atEj RbgRuUO0ikj7
20EHHWOLxvNbW+p3C6no3iKCz0y4vnk0lTEsLRBSsUh8yUZkBYqeMeU3Dfwn JELs3vta/wDP
C8/8BJf/AImj7Wv/ADwvP/ASX/4msnV9f17w5b6gt7Npt9Ouj3mo2zw2jwKj W4j+V1Mrlwxl
HQrjaeueJNE8V/aNRlin17Q9WsY7SS5nvtNXy47PYUwspMsg+cMzAkrgRP8A e52nJELs0vta
/wDPC8/8BJf/AImj7Wv/ADwvP/ASX/4msW58cXlp4Vu9Tl0ucX9td226w+zn znt55k8vbHuy
ZPLcp1x50cgGQtSat4+hstUuorCKO+tLTQrnVnmjcFJWTymSNZASASj7jweJ ImHB5OSIXZrf
a1/54Xn/AICS/wDxNH2tf+eF5/4CS/8AxNZOr6/r3hy31Bb2bTb6ddHvNRtn htHgVGtxH8rq
ZXLhjKOhXG09c8WLDW9Smsv7Rg1fRtfsYrgLcnSLZt6RhG3bQJpN7hmibaOd obAZioo5Ihdl
77Wv/PC8/wDASX/4mj7Wv/PC8/8AASX/AOJqr/wkl5PrWmG0jgbRdQuxawzs p3zYguJXkTnH
lkxxBWI+bDkZUoxpxa/r2n2niu+1SbTbyDQkkCw2to9u0zLbxz5LNLIFGJCu Np6A57UckQuz
W+1r/wA8Lz/wEl/+Jo+1r/zwvP8AwEl/+Jqrf3XiSz1jSrWPUNKn+1yorwDT 5FcRooM8m/zz
tXghTsYBpIlJ53VT1PxFr2iJqD3Y025e20yXVGitonAt1jZT5LuWO4yL5gST anMTNsblQckQ
uzW+1r/zwvP/AAEl/wDiaPta/wDPC8/8BJf/AImt6ijkiF2YP2tf+eF5/wCA kv8A8TR9rX/n
hef+Akv/AMTW9RRyRC7MH7Wv/PC8/wDASX/4mj7Wv/PC8/8AASX/AOJreoo5 IhdmD9rX/nhe
f+Akv/xNH2tf+eF5/wCAkv8A8TW9RRyRC7MH7Wv/ADwvP/ASX/4mj7Wv/PC8 /wDASX/4mt6i
jkiF2YP2tf8Anhef+Akv/wATR9rX/nhef+Akv/xNb1FHJELswfta/wDPC8/8 BJf/AImj7Wv/
ADwvP/ASX/4mt6ijkiF2YP2tf+eF5/4CS/8AxNH2tf8Anhef+Akv/wATW9RR yRC7MH7Wv/PC
8/8AASX/AOJo+1r/AM8Lz/wEl/8Aia3qKOSIXZg/a1/54Xn/AICS/wDxNH2t f+eF5/4CS/8A
xNb1FHJELswfta/88Lz/AMBJf/iaPta/88Lz/wABJf8A4mt6ijkiF2YP2tf+ eF5/4CS//E0f
a1/54Xn/AICS/wDxNb1FHJELswfta/8APC8/8BJf/iaPta/88Lz/AMBJf/ia 3qKOSIXZg/a1
/wCeF5/4CS//ABNH2tf+eF5/4CS//E1vUUckQuzB+1r/AM8Lz/wEl/8AiaPt a/8APC8/8BJf
/ia3qKOSIXZg/a1/54Xn/gJL/wDE0fa1/wCeF5/4CS//ABNb1FHJELswfta/ 88Lz/wABJf8A
4mj7Wv8AzwvP/ASX/wCJreoo5IhdmD9rX/nhef8AgJL/APE0fa1/54Xn/gJL /wDE1vUUckQu
zB+1r/zwvP8AwEl/+Jo+1r/zwvP/AAEl/wDia3qKOSIXZg/a1/54Xn/gJL/8 TR9rX/nhef8A
gJL/APE1vUUckQuzB+1r/wA8Lz/wEl/+Jo+1r/zwvP8AwEl/+Jreoo5IhdmD 9rX/AJ4Xn/gJ
L/8AE0fa1/54Xn/gJL/8TW9RRyRC7MH7Wv8AzwvP/ASX/wCJo+1r/wA8Lz/w El/+Jreoo5Ih
dmD9rX/nhef+Akv/AMTR9rX/AJ4Xn/gJL/8AE1vUUckQuzB+1r/zwvP/AAEl /wDiaPta/wDP
C8/8BJf/AImt6ijkiF2YP2tf+eF5/wCAkv8A8TTXvo40Z3iulRQSzNayAAep +WugqlrH/IEv
/wDr2k/9BNNU4tg27HD/ABP/AOSc6v8A7sf/AKNSvmCvp/4n/wDJOdX/AN2P /wBGpXzBX0eS
f7q/8T/JHJiP4ny/zPpPwH/yMni3/r9P/o2au+0j79//ANfI/wDRUdcD4E/5 GTxb/wBfp/8A
Rs1a3imH7R4V1CD7NBdeZrOnp5FwcRy5nthtc4b5T0PB4PQ9K8nH/wC9S9I/ kjTD/wANer/N
m3ZeGPsel+FrL7Zv/sHZ8/lY8/bbSQdM/L/rN3fpjvmtCbTPN8Q2Wredj7Na T23lbfvea8Lb
s54x5OMY53dsc4caTeHodBsNP0nRtIfUtTMd3BaRmSIKIZZCVIEWXZYVG4rx no2BnHt/GWvS
+GhqrHTd9noUOt3kYtnxcLKJWEMZ8z90QsJG878ls7RjB4zc3E8LXlk8Fzpu pwRX0Mt8Q9za
GWMx3Vx57LsWRDuUqgDbsYDfLyNpH4WvLJbK407U4I9Sg+1eZLcWhlhf7TKJ pcRrIpX51G35
zhcg7j8wz9Y1C81T4X+Mbm8MHyxarbwrDGV2xxGWJdxLHcx2EkjA5xjjJyzc TeGDrlraWFpo
95Pb2SW9lpCG4ijaWSdTcpGI1MsqqruyCPlLdfmIzsAOgtfCN9pkVnLYazG2 oWz3oNxe2fmL
IlzOJn3Ijx/OGVBuBA+98vI26Gn+GodMuNEa3uJDBpOmSadGkgBZ1YwYYsMD IEHpzu7Y55O0
ji1XRYdCijgkh0zUPLtNN1hHtV1C1MLmKNo5EL7YwWCsUfe1mW65K17izt9Z 1Tw7b2vhrSr2
O3tNUiNhqU5MEDxXMEb+Wxif5QwYINq4QgAKBtoA7C58MfaItXAvNsl9qEGo RMYsiKSFYAgY
Z+dd1upIBUkMQCD81V5fC15c6Lrtjc6nAZtbinF3LHaFVWR4UhRkUyHCqkfK ksWY5DKOKk1W
CG6vdJ8N2cUcVvA8V7OsShVghgdWhRccKWlRAARgpHNggqK5uSyisdO8TWET zvbv4l06CQXE
7ztJHILBXR2clmVlZlIJIKnHTigDc1zwPDq+qalfxX0ls+oaPcaZLGIwybpd g8/GRlwqKpz9
4KgyNvOhrnhqHXrhmuLiSOB9Mu9OkSMDcVuDFlgxyAQIvQ/e9uePsNJ0268f Xfh+40+0l0W2
e6eDTpIVa3iYQ6cQVjI2qQZpjkDrK/8AeOcvS9aur7V/h5JfNqpWCK3RWa2n dLqWawkaSVn2
lHwTGAd25f35YbfmoA7S/wDCmpa1b3y6vq1o882mXOnQPaWLQrGs4XezK0rl yDGmMFf4s5yM
XPEPhj+37qKRrzyYfsk1lPF5W7zoZZYGkXORt3JCyZHI8zcCCozX+IMNxceE zDZ3X2S6k1Cw
SG48sSeU5u4Qr7Tw2Dg4PXFcu/ifUf8AhIZPE13Z+Vb2Ph/UfL0/zVb99A9s Z/3gGf8AWboe
hH7jeMh6AOkn8DQfa1msr+7iRnt3uFup5btpjBcRzRYeVyUA2yrgcfviTnaB RJ4B01klt4pZ
IbSayvrOVI0UPtuWi+62MARpEsaAg4UIOi858fiXxRHb3NtfWlpbX6PC0TSR IZGjYSFttrFc
yNIVELHiRSw37VYx7Xuf8Jg8F99pvbnSo9IW086SS3lacEiHznKSqPmYLgiI oC0Z8xWOGRQC
S/8ACmpa1b3y6vq1o882mXOnQPaWLQrGs4XezK0rlyDGmMFf4s5yMXH0bWNR iW21rVLG5szK
GmgtbB4RPGFcGNy0z5UsYyQMAhCrBlciuftPFniV9TXQb2ygs9TnlhENzPbK ERHjuXyYY7iT
d/x6sufNX7+cfL89M+OfFGLhINOtLp9NSaW9mREiikVLm4hHMtwvkDbbElv3 uNxOBtwwB1j+
GP8AifW1/BeeTaQXf20WQiyvnGKeORgc/Lv85WIAxuRjjdIxqPVPDU11ofi6 0t7iMz66kpj8
wFViZrVIACRkkZj3Zx3xjjmTWdQ1hfEOm6RpJsY/tVpc3Ek93G8nleU8IGEV l3Z80jBZeoOf
l2th6d411LVLKDWooLSDT/tFhay2bIzys10lu29ZdwChftS/KYznyzyN3ygH UWtg0ustrU4k
R5bKKCO1mVS1qdzvJ8ysRlt0YbbwfJXlsDHN3HhjxBH4S1rSpdQsdRm1K0lh aSOyaCWSeVRH
50rtMwKqOqqowqgIMKqVTMmpXnwY0E3F7HNeXqaWkk0sbOsiyzwqRKpfMgKt tcbhvy3QNgSa
x401jTdJu9YjSxe1aXULW2tmhffHJax3DB3k34dWNqflCqR5g+Y7fmAPQKK4 vV/FepJ4zTw9
pB02R2e2ikefcxgaSK7kbcFPULbxMF43BiMjcGXD8Q+IdY13wh4osonsbb7B pV19tdrd5PtO
JLqA+WPMXys/ZmbnzMeYBztywB6hRVc232mzmtr9YLmOXejoYsI0bE4VlJOf lIB7Hk4AOB5m
2h21r8O71NFhtNKvLjxGIVuoLVMoV1cpESuAGCDGFPGBjgUAeqUV5nAbvxj4 zs5dRjksbb+z
LmKC3jdHaC6guLRpJA+OSs48vDAqfs+7DLJitCWzm8SaPPqeoXdot3HcPpsM b5ht5Fju1SWJ
slji5eBVIO7arKoVjuMgB3lFedi3sZ30vQZNHtLS3TXWtr/TYn86zc/YJJ1C KyqCnMTkbFHm
Atgn5jX0iaxk1yyi0oRx6bB4oaO2gij8tIB/ZLM6CPA8siRpCy4BDFsjOaAP TKK4u/0rRb/x
1rN1rNtaMlno9nIl1NhWtR5t2WdJODGRtB3KQRtByMVz95r+qzWWjz3MOpS6 ppWmW988Vvps
kxnv3QeZC/loRA/lb0w3QXYfaNi5APVKK4u50nQdR+I2h6omn6bdPPpl1dLd iFHMjJJaeVIH
xyVU/K2eAeKz9L8QGTxiupn7X5GpXD2LF7KRLdLdM/ZZVuSnlyB3DlQpyxvV GW8tcgHolFeV
yIvh7wrqqQw2iahN4cu7m31rTLpi2oCJEzcTYVf3paRHVt0hG6TDjJL2PGWk 6boVvqtvpGn2
mnwXPhfVnnjtIViWVkEAQsFADFQ7gE9N7Y6mgD0yivP/AIj/APL5/wBiprP/ ALbVl6tazeHr
fWGt9K03w9O3hzUZo00SUlZmjEWJHYRxFXjLfJw3+sflcfMAeqUV5/4w8O+H 9M0MW+maPpUF
1dXdkpslVYI7tBe24IkRVIZQWUbirbQ5A+8Qeo0TSv7L06CK20vStI3StJdW tgm6NuCBtYLH
83CEsVPAK46MADYoryPwlPNYWPw30a8lklMzi9sJHYuXhOnymRGPYxyS7QMA eW0YBYh8Gk6N
DafBPUL9vD+jWM8vhdgl5ZkNPcK1sSxlPlIVJIUkbnye/GSAeuUV5Prt/eab LeaVLdzjVdJ8
Kaq8d0JCZJIS0Agm8zr5hEZDHg70YgBSpPQeI9D8P6Np8cOm2Fjp817d2cM1 vaosIuYGvIEk
DxrgSLh9p3A4EhHAcggHcUV5f4l0azt5tY0PTU/sqxm/sNgmnAQeVJJfujSo FGFkwifNjPyL
6CtTRHh8R+Ktf0/XLK0nubfTNOt9StXiDwecHuZMqGyChDI655AZc4YEAA7y ivJ7bRLM+APh
3bWehaVdfa5YJ5rS5URQ3Eh0+Ys8hCPluAclSSVH1Bcab5ptNK/sTSpfK8Sl P7HlfFjD/wAS
xn2o3lnK8+Z/ql+dmGP4yAesUVT0qyh07S7e1gsbSwREyba0AEUbHlguFXI3 E87RnrgZq5QA
UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABV LWP+QJf/APXt
J/6Cau1S1j/kCX//AF7Sf+gmnHcT2OH+J/8AyTnV/wDdj/8ARqV8wV9P/E// AJJzq/8Aux/+
jUr5gr6HJP8AdX/if5I5cR/E+S/U+k/An/IyeLf+v0/+jZq7JYNNudO1hNYi tJdPE2+dbtVa
IKscbZbdxgYzk9MZrjfAn/IyeLf+v0/+jZq6LUrC+1bTrrTbERqLnUYxcTSr vSOJY0kIePcp
kRygiZARkSkngEV5OP8A96l6R/JGmH/hr1f5s0/DlnoMmjWd1pOj2ljAzm4W BLZImgm2mNwy
rwsqjdG3cYZTVyXQtHm+w+bpVjJ/Z+PsW63Q/ZsYx5fHyY2r0x90elcnH4Z1 ca7Yx6hDaX1n
FrA1UzRRCGGJmtp0KpCzuQVlEcpYHl5y2AVJrj9Hs7fVtQ05NGsLS51DTbJH 1TULOe2lGoTR
3dnKSZI3JLyeRMVM2wsSScfOV4zc9kNhZtZzWZtIDazb/NhMY2SbyS+5eh3F mJz1yc9ar2Oh
aPpkUcVhpVjaRxymdEgt0jCyFShcADhipK564OOled6j4U1zWNR1zVJtDjiu Jbe+l00NPE7w
XDW9kluytn5JQ0MnzA4UqcMRtZpNZ8E3cl9NFHps7aBDdym106wjs2VQ8Ntt dYrkGJVDpc5w
A+6QkDDsaAPRLzSdN1FJ0vtPtLpJ0RJlnhVxIqMWQNkchWJIB6Ekis9NI8M+ I9G0ydtI02+0
8W6vYiazVljiZVK7FZfkBULxgdB6Vy9n4NvrUXF5JbyS6smp6c0F1Jd+dIIE jtEuGVztwWVJ
lc7VaQDBBG0Vnr4M1C18P22mjQo5bmPR47CxuIzDt029Qyh7sFmDIHZ4pN8Y Mh2ZZQwAoA9M
trCzs9v2W0gg2xJAPKjC4jTOxOP4V3NgdBk461n6lPYW876cdM+2T6lFNNLb RRx/v0RFRi+8
qrZzFHyedy/whiuPY6NLb+JtUup9B8yGaVH84zI5kbzVKMMsDIqBQ48wBoSG WIurALc1aeGx
8a6Re3csdvaJpl+jTzMEQNut5MFjxnZHI2PRGPRTgAsWmkeGdZ8NWEUGkabc aK6LdWkDWa+U
A4LB1jK4UkOT0B+Y+prYkghmeF5Yo3eF98TMoJRtpXK+h2swyOxI71j+C4Jr XwL4et7iKSGe
LTLZJI5FKsjCJQQQeQQeMVuUARzQQ3KBJ4o5UDq4V1DAMrBlPPcMAQexANBg ha4S4aKMzojI
khUblViCwB6gEqpI77R6VJRQBlx+GtBh0ubS4tE01NPmffLaLaoInbjlkxgn 5V5I7D0q59gs
/wC0f7R+yQfbvK8j7T5Y8zy87tm7rtzzjpmrFFAHN3ngbQ5tLn0+wsrTSoLh 0a4FlYW2JwuS
quskTqwBORxkEcEc5sWHhDQdPsNOtBplpONOdpLWSaBGaKRn3s6fKAhLfNhA oHAAAAA3KKAI
zBC1wlw0UZnRGRJCo3KrEFgD1AJVSR32j0qmmhaPHeWt5HpVil1aRCC2mW3Q PDGAQERsZVcE
jA45NaFFAFf7BZ+R5H2SDyfN8/y/LG3zN/mb8f3t/wA2eu7nrUcek6bDqk2q RafaJqEybJbt
YVErrxwz4yR8q8E9h6VcooAz7TQtHsPJ+x6VY23kf6rybdE8v7/3cDj/AFsv T/no/wDeOY73
w1oOpJGl/omm3SRvI6LPao4Vnbc5GRwWbknueTWpRQBHDBDbIUgijiQuzlUU KCzMWY8dyxJJ
7kk1H9gs/I8j7JB5Pm+f5fljb5m/zN+P72/5s9d3PWrFFAEZgha4S4aKMzoj IkhUblViCwB6
gEqpI77R6VGbCzazmszaQG1m3+bCYxsk3kl9y9DuLMTnrk561YooAz/7C0f+ x/7I/sqx/sz/
AJ8vs6eT97d9zG373PTrzVf/AIRTw+dO/s59FsZLAS+clpLArwxvjGUjIKp3 +6ByzHqxJ2KK
AMdPCfhuOW1lj8P6Uklpj7M62UYMOGLjYcfL8xLcdyT1rUjghheZ4oo0eZ98 rKoBdtoXLep2
qoyewA7VJRQBXhsLO3+z+RaQRfZojBBsjC+VGduUXH3V+ReBx8o9BQLCzWzh sxaQC1h2eVCI
xsj2EFNq9BtKqRjpgY6VYooAp2ek6bp9xdXFlp9pbT3b77mSGFUaZsk5cgZY 5YnJ9T61Hpmh
aPonm/2TpVjYedjzPslukW/GcZ2gZxk9fU1oUUAZdn4a0HT7e6t7LRNNtoLt NlzHDaoizLgj
DgDDDDEYPqfWtAwQtcJcNFGZ0RkSQqNyqxBYA9QCVUkd9o9KkooAx4fCfhu3 s7mzh8P6VHa3
W37RCllGEl2nK7lAw2DyM9KsWOhaPpkUcVhpVjaRxymdEgt0jCyFShcADhip K564OOlaFFAF
dLCzjitYo7SBI7TH2ZFjAEOFKDYP4flJXjsSOlZ9r4T8N2Pn/Y/D+lW/nxNB N5NlGnmRt95G
wOVOBkHg1sUUARmCFrhLhoozOiMiSFRuVWILAHqASqkjvtHpWfZ+GtB0+3ur ey0TTbaC7TZc
xw2qIsy4Iw4AwwwxGD6n1rUooAz7PQtH0+zNnZaVY21qZVnMMNuiIZFIKvtA xuBVSD1G0elX
BBCtw9wsUYndFR5Ao3MqklQT1IBZiB23H1qSigCulhZxxWsUdpAkdpj7Mixg CHClBsH8Pykr
x2JHSq99oWj6nFJFf6VY3cckondJ7dJA0gUIHII5YKAueuBjpWhRQBXsbCz0 yzjs7C0gtLWP
OyGCMRouSScKOBkkn8asUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF ABRRRQAUUUUA
FFFFABRRRQAVS1j/AJAl/wD9e0n/AKCau1S1j/kCX/8A17Sf+gmnHcT2OH+J /wDyTnV/92P/
ANGpXzBX0/8AE/8A5Jzq/wDux/8Ao1K+YK+hyT/dX/if5I5cR/E+S/U+k/An /IyeLf8Ar9P/
AKNmrvtI+/f/APXyP/RUdcD4E/5GTxb/ANfp/wDRs1d9pH37/wD6+R/6Kjry cf8A71L0j+SN
MP8Aw16v82adFFFcZuFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQ AUUUUAFFFFAB
RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF FFABRRRQAUUU
UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABVLWP +QJf/wDXtJ/6
Cau1S1j/AJAl/wD9e0n/AKCacdxPY4f4n/8AJOdX/wB2P/0alfMFfT/xP/5J zq/+7H/6MSvm
Cvock/3V/wCJ/kjlxH8T5L9T6T8Cf8jJ4t/6/T/6NmrszaRmR3DzoznLeXO6 AnAGcAgdAK4z
wJ/yMni3/r9P/o2atGWfVNW8QX2n2V+9qbYlVVHjTdiNGJJZJCcmVBwoAAJJ JIB8jMIuWKlZ
20j/AOkovDtKkrq+r/NnRfZF/wCe95/4Fy//ABVH2Rf+e95/4Fy//FVkN4f8 Rjdt124PXbme
EZ+9jP8AovHRPpubrtG4bw/4jG7brtweu3M8Iz97Gf8AReOifTc3XaN3JyS/ n/P/ACNuZfy/
l/ma/wBkX/nvef8AgXL/APFUfZF/573n/gXL/wDFVkN4f8Rjdt124PXbmeEZ +9jP+i8dE+m5
uu0bkbw94j+bbrtweu3M8Iz97Gf9F46J9Nzddo3HJL+f8/8AIOZfy/l/mbH2 Rf8Anvef+Bcv
/wAVR9kX/nvef+Bcv/xVY7eHvEY3bdduT125nhGfvYz/AKNx0T6bm67RuG8P eIxu267cnrtz
PCM/exn/AEbjon03N12jcckv5/z/AMg5l/L+X+ZsfZF/573n/gXL/wDFUfZF /wCe95/4Fy//
ABVY7eHvEY3bdduT125nhGfvYz/o3HRPpubrtG4bw94jG7Zrtyeu3M8Iz97G f9G46J9Nzddo
3HJL+f8AP/IOZfy/l/mbH2Rf+e95/wCBcv8A8VR9kX/nvef+Bcv/AMVWX4Y1 KXUbK482UzGC
YIsp25dWjSRc7PlJAkAyvBxkda26zk5xdmyo8rV7EH2Rf+e95/4Fy/8AxVH2 Rf8Anvef+Bcv
/wAVU9FTzy7j5V2IPsi/897z/wAC5f8A4qj7Iv8Az3vP/AuX/wCKqeijnl3D lXYg+yL/AM97
z/wLl/8AiqPsi/8APe8/8C5f/iqnoo55dw5V2IPsi/8APe8/8C5f/iqPsi/8 97z/AMC5f/iq
noo55dw5V2IPsi/897z/AMC5f/iqPsi/897z/wAC5f8A4qp6KOeXcOVdiD7I v/Pe8/8AAuX/
AOKo+yL/AM97z/wLl/8Aiqnoo55dw5V2IPsi/wDPe8/8C5f/AIqj7Iv/AD3v P/AuX/4qp6KO
eXcOVdiD7Iv/AD3vP/AuX/4qj7Iv/Pe8/wDAuX/4qp6KOeXcOVdiD7Iv/Pe8 /wDAuX/4qj7I
v/Pe8/8AAuX/AOKqeijnl3DlXYg+yL/z3vP/AALl/wDiqPsi/wDPe8/8C5f/ AIqp6KOeXcOV
diD7Iv8Az3vP/AuX/wCKo+yL/wA97z/wLl/+Kqeijnl3DlXYg+yL/wA97z/w Ll/+Ko+yL/z3
vP8AwLl/+Kqeijnl3DlXYg+yL/z3vP8AwLl/+Ko+yL/z3vP/AALl/wDiqnoo 55dw5V2IPsi/
897z/wAC5f8A4qj7Iv8Az3vP/AuX/wCKqeijnl3DlXYg+yL/AM97z/wLl/8A iqPsi/8APe8/
8C5f/iqnoo55dw5V2IPsi/8APe8/8C5f/iqPsi/897z/AMC5f/iqnoo55dw5 V2IPsi/897z/
AMC5f/iqPsi/897z/wAC5f8A4qp6KOeXcOVdiD7Iv/Pe8/8AAuX/AOKo+yL/ AM97z/wLl/8A
iqnoo55dw5V2IPsi/wDPe8/8C5f/AIqj7Iv/AD3vP/AuX/4qp6KOeXcOVdiD 7Iv/AD3vP/Au
X/4qj7Iv/Pe8/wDAuX/4qp6KOeXcOVdiD7Iv/Pe8/wDAuX/4qj7Iv/Pe8/8A AuX/AOKqeijn
l3DlXYg+yL/z3vP/AALl/wDiqPsi/wDPe8/8C5f/AIqp6KOeXcOVdiD7Iv8A z3vP/AuX/wCK
o+yL/wA97z/wLl/+Kqeijnl3DlXYg+yL/wA97z/wLl/+Ko+yL/z3vP8AwLl/ +Kqeijnl3DlX
Yg+yL/z3vP8AwLl/+Ko+yL/z3vP/AALl/wDiqnoo55dw5V2IPsi/897z/wAC 5f8A4qj7Iv8A
z3vP/AuX/wCKqeijnl3DlXYg+yL/AM97z/wLl/8AiqPsi/8APe8/8C5f/iqp 6tNcefp1lbTe
Q99cmEzBQTGBG8hIB4zhMc+tT/8ACN3H/Qz6x/3zbf8AxmtIqTV+b8yW1e1i X7Iv/Pe8/wDA
uX/4qj7Iv/Pe8/8AAuX/AOKqL/hG7j/oZ9Y/75tv/jNH/CN3H/Qz6x/3zbf/ ABmnyy/m/MV1
/L+RL9kX/nvef+Bcv/xVH2Rf+e95/wCBcv8A8VUX/CN3H/Qz6x/3zbf/ABmk /wCEan/6GfWf
++bb/wCM0csv5vzHdfy/kTfZF/573n/gXL/8VR9kX/nvef8AgXL/APFVD/wj U/8A0M+s/lbf
/GaP+Ean/wChn1n8rb/4zRyy/m/MLr+X8ib7Iv8Az3vP/AuX/wCKpr2MciMj y3TIwIZWupCC
PQ/NUf8AwjU//Qz6z+Vt/wDGaqzwXWi6ppqHVbq+hvZmgZLpYgUIjeQMpRF/ 55kYOetHLP8A
m/MV12/IyPif/wAk51f/AHY//RqV8wV9P/E//knOr/7sf/o1K+YK+jyT/dX/ AIn+SObEfxPk
v1PpPwJ/yMni3/r9P/o2atTQXI8d62u7jex256/urXnG7/2U9eozhsvwH/yM ni3/AK/T/wCj
ZqltNVttI8c6097KY43bIwrMT+5gwcDn+BwDg8jGQeD5mMTeKml/LH8ojo/w 4+r/ADZ6Duo3
Vz58YaGuc3jcZ6QSHpn/AGf9k/p6jIfGGhrnN43GekEh6Z/2f9k/p6jPF7Gp /K/uOnmXcl8T
Q31xZWwtEupoFuA13b2dx5E80WxgFSTcm0iQxsfnXKqwyc7TmP4mGmeHbJtP jnv7h5ZYhbXj
SvOgjdkkB8mKVn8tgIy+CDwS7FgWpeJNY0/WLeKG21e3txE7OXksrl5FYAgG N4pI2Q4DgkE7
g2OjYaC1n0AaZFa6nqKyS2zOYp9Niu7NwrcuC6yNI5ZlLMS/znaSCcEnsan8 r+4OZdyraeOp
G1K5vLS1nu/t0sT2UVzeNEkSSx6YoRlAdR81zuyAcYbH3ya9M3VwMKeBLTyv KRl+z7PLwJzj
y/J2/XH2OH67B13ndvHxhoa5zeNxnpBIemf9n/ZP6eoyeyqfyv7g5l3Og3Ub q58+MNDXObxu
M9IJD0z/ALP+yf09RlG8YaGuc3jcZ6QSHpn/AGf9k/p6jJ7Gp/K/uDmXcy/A 7F7TUmLbibqP
5s5z/o0HOdzZ/wC+j9T1rqa5TwIWew1KRjndeDnOckQQqecnoQR1PIPJrq6z xH8RhS+BBRRR
WJoFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRR QAUUUUAFFFFA
BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF FFFAGVqf/Ib8
O/8AX9J/6TT0nilDdXnh2ya4uoYLnUmSb7NcyQM6i1uHALRsGxuVTjPYUzW5 Ut9T0CeVgkSX
zbmPAGbeZRn8SB+NR+J9Mk16KzS31C3tfs0pmDuk+8PtKgq0M0TL8rODyc7u 2K2+yjNbspy+
KJ/D9vfWXkz6hJb6ounWQfzJHZTapcfvGRHdtoLqGCMx2ruydz0WXjC/nvtQ uJ7T7LaQ6XBM
ttdCSJxctNcRhVXyvMZZDGu3K7vuYjJcgWbHRVGmf2fqt3aTwxOJLdrGKa1l jf5t7+b5zuXb
ccsGBO59xbcat/2JoPkeULcBTF5TMsrhm+fzAzNnLSB8uJCS4ZmYEFmJLodj kL7xfe6tqmmC
MXWnyQ3C291ArSorN9s04g4dI3IMc5X5kX7zgZU5bb0rx9dataT3Vv4dvWiN r9rtGEU4Dplc
By0Sjdhw2IjNkK+3cQoe5D4Y8OQSiUQyySiUTebPeTSuXDQsCWdyTzbQ9f7m OhIMkfh7w/Ek
qLAxR02Kr3EjCBQwYCHLfuQCqECPbgohGNq4LoLGlBfX2oaDHeWcdql1IgdF ebzYZBn+GRP4
HH3XxkBgxTIKVUk8Sf8AEpsdchjzpsuBNGy/vhvYKjR4JWT5uNq58wMDGzfK skn2HSf7J/ss
xg2R+/EXY+Z825t5zl9xyW3E78tuzuObEosZ7u3upcPLbbvJJY4QsMFgOm7G RuxkBmAIDHJc
LCHU5rfXk0+5VGju0aS0eIHcuwDesi5JxkgiQfL8wU7W2eZU1851bw9/1/v/ AOk09XIhYwXd
xdpj7RcbfMkLEkhRhVGeijJO0YGWY4yxJzNYuYp9c0CKNwzrdvIVHUKLeYZ+ mWA/GnF7+j/I
Utvu/Myvif8A8k51f/dj/wDRiV8wV9P/ABP/AOSc6v8A7sf/AKNSvmCvo8k/ 3V/4n+SOXEfx
Pkv1PpPwJ/yMni3/AK/T/wCjZq6690jTNSZWv9OtLoqMKZ4FfH0yK+bdf8Sa zpPjHxBFp+o3
FqjajPuEMhXOJGxnH1P51R/4TrxT/wBB/UP/AAIb/Gs8Rlc8RU9tGdrpfkkT Tq+zjyNX1f5n
0r/winh3/oAaX/4Bx/4Uf8Ip4d/6AGl/+Acf+FfNX/CdeKf+g/qP/gQ3+NJ/ wnPin/oP6j/4
Ev8A41n/AGLV/wCfn5/5le3j/KfS3/CKeHf+gBpf/gHH/hR/winh3/oAaX/4 Bx/4V80/8Jz4
p/6D+o/+BL/40f8ACc+Kf+g/qP8A4Ev/AI0f2LV/5+fn/mHt4/y/19x9Lf8A CKeHf+gBpf8A
4Bx/4Uf8Ip4d/wCgBpf/AIBx/wCFfNP/AAnPin/oP6j/AOBL/wCNH/Cc+Kf+ g/qP/gS/+NH9
i1f+fn5/5h7eP8v9fcfS3/CKeHf+gBpf/gHH/hR/winh3/oAaX/4Bx/4V80/ 8Jz4p/6D+o/+
BL/40f8ACc+Kf+g/qP8A4Ev/AI0f2LV/5+fn/mHt4/y/19x9UwW8NrAkFvDH DCgwscahVUew
HSpK+Uv+E58U/wDQf1H/AMCX/wAaP+E58U/9B/Uf/Al/8aj+wZ/z/gV9a8j6 tor5S/4TnxT/
ANB/Uf8AwJf/ABo/4TnxT/0H9R/8CX/xo/sGf8/4B9a8j6tor5S/4TnxT/0H 9R/8CX/xo/4T
nxT/ANB/Uf8AwJf/ABo/sGf8/wCAfWvI+raK+Uv+E58U/wDQf1H/AMCX/wAa P+E58U/9B/Uf
/Al/8aP7Bn/P+AfWvI+raK+Uv+E58U/9B/Uf/Al/8aP+E58U/wDQf1H/AMCX /wAaP7Bn/P8A
gH1ryPq2ivlL/hOfFP8A0H9R/wDAl/8AGj/hOfFP/Qf1H/wJf/Gj+wZ/z/gH 1ryPq2ivlL/h
OfFP/Qf1H/wJf/Gj/hOfFP8A0H9R/wDAl/8AGj+wZ/z/AIB9a8j6tor5S/4T nxT/ANB/Uf8A
wJf/ABo/4TnxT/0H9R/8CX/xo/sGf8/4B9a8j6tor5S/4TnxT/0H9R/8CX/x o/4TnxT/ANB/
Uf8AwJf/ABo/sGf8/wCAfWvI+raK+Uv+E58U/wDQf1H/AMCX/wAaP+E58U/9 B/Uf/Al/8aP7
Bn/P+AfWvI+raK+Uv+E58U/9B/Uf/Al/8aP+E58U/wDQf1H/AMCX/wAaP7Bn /P8AgH1ryPq2
ivlL/hOfFP8A0H9R/wDAl/8AGj/hOfFP/Qf1H/wJf/Gj+wZ/z/gH1ryPq2iv lL/hOfFP/Qf1
H/wJf/Gj/hOfFP8A0H9R/wDAl/8AGj+wZ/z/AIB9a8j6tor5S/4TnxT/ANB/ Uf8AwJf/ABo/
4TnxT/0H9R/8CX/xo/sGf8/4B9a8j6tor5S/4TnxT/0H9R/8CX/xo/4TnxT/ ANB/Uf8AwJf/
ABo/sGf8/wCAfWvI+raK+Uv+E58U/wDQf1H/AMCX/wAaP+E58U/9B/Uf/Al/ 8aP7Bn/P+AfW
vI+raK+Uv+E58U/9B/Uf/Al/8aP+E58U/wDQf1H/AMCX/wAaP7Bn/P8AgH1r yPq2ivlL/hOf
FP8A0H9R/wDAl/8AGj/hOfFP/Qf1H/wJf/Gj+wZ/z/gH1ryPq2ivlL/hOfFP /Qf1H/wJf/Gj
/hOfFP8A0H9R/wDAl/8AGj+wZ/z/AIB9a8j6tor5S/4TnxT/ANB/Uf8AwJf/ ABo/4TnxT/0H
9R/8CX/xo/sGf8/4B9a8j6tor5S/4TnxT/0H9R/8CX/xo/4TnxT/ANB/Uf8A wJf/ABo/sGf8
/wCAfWvI+raK+Uv+E58U/wDQf1H/AMCX/wAaP+E58U/9B/Uf/Al/8aP7Bn/P +AfWvI+raK+U
v+E58U/9B/Uf/Al/8aP+E58U/wDQf1H/AMCX/wAaP7Bn/P8AgH1ryPq2ivlL /hOfFP8A0H9R
/wDAl/8AGj/hOfFP/Qf1H/wJf/Gj+wZ/z/gH1ryPq2ivlL/hOfFP/Qf1H/wJ f/Gj/hOfFP8A
0H9R/wDAl/8AGj+wZ/z/AIB9a8j6tor5S/4TnxT/ANB/Uf8AwJf/ABo/4Tnx T/0H9R/8CX/x
o/sGf8/4B9a8j6tor5S/4TnxT/0H9R/8CX/xo/4TnxT/ANB/Uf8AwJf/ABo/ sGf8/wCAfWvI
+qZ4IbmFoZ4klicYZJFDKw9wazP+EU8O/wDQA0v/AMA4/wDCvmn/AITnxT/0 H9R/8CX/AMaP
+E58U/8AQf1H/wACX/xqlkdRbVPw/wCCJ4lPeJ9Lf8Ip4d/6AGl/+Acf+FH/ AAinh3/oAaX/
AOAcf+FfNP8AwnPin/oP6j/4Ev8A40f8Jz4p/wCg/qP/AIEv/jT/ALFq/wDP z8/8xe3j/L/X
3H0t/wAIp4d/6AGl/wDgHH/hR/winh3/AKAGl/8AgHH/AIV80/8ACc+Kf+g/ qP8A4Ev/AI0f
8Jz4p/6D+o/+BL/40f2LV/5+fn/mHt4/y/19x9Lf8Ip4d/6AGl/+Acf+FH/C KeHf+gBpf/gH
H/hXzT/wnPin/oP6j/4Ev/jR/wAJz4p/6D+o/wDgS/8AjR/YtX/n5+f+Ye3j /L/X3H0t/wAI
p4d/6AGl/wDgHH/hVqy0fTNNdnsNOtLVmGGMECoSPfAr5f8A+E58U/8AQf1H /wACX/xo/wCE
58U/9B/Uf/Al/wDGk8kqvR1P6+8axEVtE9/+J/8AyTnV/wDdj/8ARqV8wVs3 ni3xBqFq9rea
xez28mN8ck7Mrc55BPrWNXqYHCPC0vZt31v+C/yMpz55cx//2Q==
--------------070508050901070407090302--

Manu · Mensaje por **Manu** » Mié May 27, 2009 12:54 am

Porqué no te creas un DataSet desde el TMySQLDataSource y le preguntas
si tiene mas de un registro?
local cSelect := "SELECT * FROM ramos WHERE nroempresa =
'&Appdata:nNroEmpresa' AND nroramo = '&nNroRamo' "
local oQry := Appdata:oMventas:Query( cSelect )
oQry:Open()
if oQry:RecCount() > 0
// Se ha encontrado registros
// además podrías usar el resultado como lo estimes
// oportuno
else
// No se encuentra ningún registro con ese WHERE
endif
Daniel Du Pré escribió:
> José Alfonso:
>
> Probando con la 1.99 la ejecución de la sentencia SELECT ya no da error,
> pero la pregunta por nEncontre me manda el siguiente mensaje:
> Lo que tengo en mi evento OnExit del dato que quiero validar es esto:
>
> METHOD NroRamoExit( oSender, oNextCtl ) CLASS TProg6110
> local cBuscar, nNroRamo, nNroEmpresa
>
> WITH OBJECT oSender
> if :Value == 0
> MsgInfo("Nro. de Ramo no válido")
> Return .F.
> endif
> nNroEmpresa := AppData:nNroEmpresa
> nNroRamo := :Value
> cBuscar := "SELECT count(*) AS nEncontre FROM ramos WHERE
> nroempresa = '&Appdata:nNroEmpresa' AND nroramo = '&nNroRamo' "
> LogDebug( cBuscar)
> Appdata:oMventas:Execute(cBuscar)
>
> if (Appdata:oMventas:nEncontre) <> 0 <---------------- error
> mostrado en la figura de abajo, oMventas es el nombre del objeto que
> contiene las propoedades
> MsgInfo("Ya existe Ramo con ese nro.") del
> TMySQLDataSource.
> Return .F.
> endif
> END WITH
>
> Return .T.
>
>
> error
>
> Lo que me hace pensar que la columna nEncontre no se está creando, si es
> así ¿alguna idea de porque no?
>
> Gracias
> Saludos
>
>
> Daniel Du Pré escribió:
>> José Alfonso:
>> Si, hay conexión y funciona perfecto, puedo modificar y eliminar
>> registros sin problema, lo que no puedo hacer es la validación de
>> existencia en el alta porque el EXECUTE da el error.
>> Comprendido lo de nEncontre, me acabo de dar cuenta con tu aclaración.
>> Ahora, aunque efectivamente la pregunta de nEncontre está mal
>> formulada, ésta nunca llega a ejecutarse porque el programa falla
>> antes y como no entiendo "que me está diciendo" el mensaje de error
>> que me envía Xailer, no se que hacer.
>>
>> ¿Alguna otra sugerencia?
>>
>> Saludos
>> Daniel.
>>
>>
>>
>> José Alfonso Suárez Moreno escribió:
>>> Daniel,
>>>
>>> ¿Hay conexion con MySQL?
>>>
>>> nEncontre es la columna donde MySQL te va a retornar el valor de
>>> count(*), por lo que forma parte del objeto de la consulta.
>>>
>>> Saludos
>>>
>>> Jose Alfonso Suarez Moreno
>>>
>>> Daniel Du Pré escribió:
>>>> Juan, José David, Andrés y José Alfonso, muchas gracias por su ayuda.
>>>> Les comento que he intentado varias formas pero algo anda mal y no
>>>> se donde. Lo último que realicé fue escribir la sentencia SELECT tal
>>>> cual me la mando José Alfonso y para no errarle hice "copio y pego"
>>>> y el error se sigue dando cuando se ejecuta la linea
>>>>
>>>> Appdata:oDataSource:Execute(cBuscar)
>>>>
>>>> por otro lado José Alfonso, estoy utilizando nEncontre como variable
>>>> local ¿es incorreto?, tu me sugieres que debería utilizarla como una
>>>> propiedad del DataSource y discúlpame la ignorancia pero ¿como hago
>>>> eso?
>>>>
>>>> Les adjunto el error con toda la traza para que se entienda mejor lo
>>>> que sucede.
>>>>
>>>> Error
>>>>
>>>> Muchas gracias
>>>> Daniel.
>>>>
>>>>
>>>> José Alfonso Suárez Moreno escribió:
>>>>> Daniel,
>>>>>
>>>>> Tu problema es el acceso a nEncontre. Yo lo haría así:
>>>>>
>>>>> METHOD Buscar( oSender ) CLASS .....
>>>>>
>>>>> LOCAL lSalir := .T.
>>>>> LOCAL cBuscar
>>>>> LOCAL cNroEmpresa
>>>>> LOCAL cNroRamo
>>>>>
>>>>> WITH OBJECT oSender
>>>>>
>>>>> cNroEmpresa := Str( Appdata:nNroempresa )
>>>>> cNroRamo := Str( :Value )
>>>>> cBuscar := "SELECT count(*) AS nEncontre " + ;
>>>>> "FROM ramos " + ;
>>>>> "WHERE nroempresa = " + Chr( 34 ) + cNroEmpresa +
>>>>> Chr(34 ) + " " +;
>>>>> "AND nroramo = " + Chr( 34 ) + cNroRamo + Chr( 34 )
>>>>>
>>>>> Appdata:oDataSource:Execute(cBuscar)
>>>>>
>>>>> IF *Appdata:oDataSource:nEncontre* <> 0
>>>>> MsgInfo("Ya existe Ramo con ese nro.")
>>>>> lSalir := .F.
>>>>> END IF
>>>>>
>>>>> END WITH
>>>>>
>>>>> RETURN lSalir
>>>>>
>>>>> Saludos
>>>>>
>>>>> Jose Alfonso Suarez Moreno
>>>>>
>>>>>
>>>>>
>>>>> Daniel Du Pré escribió:
>>>>>> Hola Foro:
>>>>>>
>>>>>> Estoy intentando realizar una búsqueda de un registro antes de
>>>>>> insertarlo en una tabla para verificar que no se dupliquen los
>>>>>> datos, para ello tengo una tabla con 3 campos:
>>>>>> nroempresa N 1,0
>>>>>> nroramo N 4,0
>>>>>> detalle C 20
>>>>>> y creo un indice compuesto por nroempresa+nroramo.
>>>>>>
>>>>>> luego ejecuto la siguientes lineas en el evento OnExit de la
>>>>>> lectura de un TDBMaskEdit donde se lee el nroramo
>>>>>>
>>>>>> WITH OBJECT oSender
>>>>>> cNroEmpresa := str(Appdata:nNroempresa,1,0)
>>>>>> cNroRamo := str(:Value,4,0)
>>>>>> cBuscar := "SELECT count(nroempresa+nroramo) AS nEncontre FROM
>>>>>> ramos WHERE nroempresa = '&cNroEmpresa' and nroramo = '&cNroRamo'"
>>>>>> * Appdata:oDataSource:Execute(cBuscar)*
>>>>>>
>>>>>> if nEncontre <> 0
>>>>>> MsgInfo("Ya existe Ramo con ese nro.")
>>>>>> Return .F.
>>>>>> endif
>>>>>> END WITH
>>>>>>
>>>>>> Pero al llegar a la linea que está marcada en azul oscuro me sale
>>>>>> este error:
>>>>>>
>>>>>> error
>>>>>>
>>>>>>
>>>>>> He probado ejecutar este mismo SELECT en el manejador SQLyog,
>>>>>> cambiando &cNroempresa por un nro. 1 y &cNroRamo por un nro. 1 y
>>>>>> veo que la búsqueda se realiza correctamente.
>>>>>>
>>>>>> ¿Alguna ayuda sobre que estoy haciendo mal?
>>>>>>
>>>>>> Desde ya muchas gracias
>>>>>> Daniel.