Hola
Se me presenta un error con TDbfDataSet al conectarse al servidor ADS
Mi aplicación abre TODAS las bases de datos al arrancar, utilizando simplemente DbUseArea() y todo sin problemas.
Pero también utilizo TADSDataSource con TDbfDataSet para manejar DataControls en el manejo de catálogos.
Si la aplicación se conecta con servidor ADS LOCAL todo funciona perfectamente tanto en ruta de acceso a las bases de datos local como en red.
El problema está al conectarse el ADS REMOTO, es decir, a una ruta de red donde se encuentra activo un servidor ADS
Todas las bases que abro desde un principio con DbUseArea() se realiza sin problema alguno, pero al hacerlo via TDbfDataSet marca error
EL ERROR:
Al abrir catálogos (TDbBrowse en ventanas MDI) me marca el error:
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.7.6 Version 1.76
Compilador: xHarbour build 0.99.80 Intl. (SimpLex) PCode Version: 9
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: ADSADT
Código de error: 8026
Estado: .T.
Descripción: Error de apertura
Operación:
Argumentos:
Fichero: cLealTestBancos.adt
Código error SO: 0
Pila de llamadas:
DBUSEAREA (0)
TDBFDATASET:OPEN (239)
(b)XDBFDATASET:XDATASET (36)
TDBFDATASET:_LOPEN (0)
TFRMBANCOS:DBFBANCOSCREATE (66)
TDBFDATASET:ONCREATE (0)
TDATASET:CREATE (225)
TDBFDATASET:CREATE (177)
* * * * MI CODIGO...
En mi PRG de arranque tengo...
// ADS...
REQUEST ADS, DBFCDX, DBFFPT
REQUEST ADSKeyNo, ADSKeyCount
REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN
RddRegister("ADS", 1)
RddSetDefault("ADS")
ADSSetServerType(nADSServerType) // Tipo de conexión leida desde INI, por default: 3 = Local y Remota
ADSSetFileType(3)
En mi Forma principal tengo...
en Menu.Xfm
WITH OBJECT ::oAdsDatSrcMain := TAdsDataSource():New( Self )
:cConnect := ".Data"
:nFileType := afADT
:nServerType := asANY
:lConnected := .T.
:OnCreate := "AdsDatSrcMainCreate"
:Create()
END
en Menu.Prg
METHOD AdsDatSrcMainCreate( oSender ) CLASS tFrmMain
oSender:cConnect := SetIni("RutaDBFs") // Ruta de conexón a las Bases de datos, leída desde un INI: cLealTest
RETURN Nil
En mi forma del catálogo que intento abrir y marca error:
en Bancos.Xfm
WITH OBJECT ::oDbfBancos := TDbfDataSet():New( Self )
:cName := "Bancos"
:OnCreate := "DbfBancosCreate"
:Create()
END
en Bancos.Prg
METHOD DbfBancosCreate( oSender ) CLASS TFrmBancos
WITH OBJECT oSender
:oDataSource := Application:oMainForm:oAdsDatSrcMain // DataSource declarado en la forma prinipal: Menu.Xfm
:lOpen := .T.
END WITH
RETURN Nil
ARCHIVOS EXTERNOS:
Ace32.Dll
AdsLoc32.Dll
Axcws32.Dll
(todos son versión 7.10)
XailerxHarbourAce32.Lib
XailerxHarbourRddAds.Lib
Que puede estar pasando? donde está mi error?
MIL GRACIAS
Israel
--
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Error con servidor ADS
-
Israel Solis
- Mensajes: 155
- Registrado: Mié Nov 03, 2004 12:42 pm
- Ubicación: Cancún, México
- Contactar:
Error con servidor ADS
Saludos 
Israel
Israel
-
ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Error con servidor ADS
This is a multi-part message in MIME format.
------=_NextPart_000_003A_01C816EA.30E0DB20
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_003B_01C816EA.30E0DB20"
------=_NextPart_001_003B_01C816EA.30E0DB20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Israel Solis" <isolis@sanroms.com> escribi=F3 en el mensaje =
news:[email=47200416@ozsrv2.ozlan.local...]47200416@ozsrv2.ozlan.local...[/email]
Hola
Se me presenta un error con TDbfDataSet al conectarse al servidor ADS
Mi aplicaci=F3n abre TODAS las bases de datos al arrancar, utilizando =
simplemente DbUseArea() y todo sin problemas.
Pero tambi=E9n utilizo TADSDataSource con TDbfDataSet para manejar =
DataControls en el manejo de cat=E1logos.
Si la aplicaci=F3n se conecta con servidor ADS LOCAL todo funciona =
perfectamente tanto en ruta de acceso a las bases de datos local como en =
red.
El problema est=E1 al conectarse el ADS REMOTO, es decir, a una ruta =
de red donde se encuentra activo un servidor ADS
Todas las bases que abro desde un principio con DbUseArea() se realiza =
sin problema alguno, pero al hacerlo via TDbfDataSet marca error
EL ERROR:
Al abrir cat=E1logos (TDbBrowse en ventanas MDI) me marca el error:
------------------------- Informaci=F3n del compilador =
--------------------------
Versi=F3n Xailer: Xailer 1.7.6 Version 1.76
Compilador: xHarbour build 0.99.80 Intl. (SimpLex) PCode Version: 9
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Informaci=F3n detallada del error =
-----------------------
Subsistema: ADSADT
C=F3digo de error: 8026
Estado: .T.
Descripci=F3n: Error de apertura
Operaci=F3n:=20
Argumentos:=20
Fichero: cLealTestBancos.adt
C=F3digo error SO: 0
Pila de llamadas:
DBUSEAREA (0)
TDBFDATASET:OPEN (239)
(b)XDBFDATASET:XDATASET (36)
TDBFDATASET:_LOPEN (0)
TFRMBANCOS:DBFBANCOSCREATE (66)
TDBFDATASET:ONCREATE (0)
TDATASET:CREATE (225)
TDBFDATASET:CREATE (177)
* * * * MI CODIGO...
En mi PRG de arranque tengo...
// ADS...
REQUEST ADS, DBFCDX, DBFFPT
REQUEST ADSKeyNo, ADSKeyCount
REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN
RddRegister("ADS", 1)
RddSetDefault("ADS")
ADSSetServerType(nADSServerType) // Tipo de conexi=F3n leida desde =
INI, por default: 3 =3D Local y Remota
ADSSetFileType(3) =20
En mi Forma principal tengo...
en Menu.Xfm
WITH OBJECT ::oAdsDatSrcMain :=3D TAdsDataSource():New( Self )
:cConnect :=3D ".Data"
:nFileType :=3D afADT
:nServerType :=3D asANY
:lConnected :=3D .T.
:OnCreate :=3D "AdsDatSrcMainCreate"
:Create()
END
en Menu.Prg
METHOD AdsDatSrcMainCreate( oSender ) CLASS tFrmMain
oSender:cConnect :=3D SetIni("RutaDBFs") // Ruta de conex=F3n a las =
Bases de datos, le=EDda desde un INI: cLealTest
RETURN Nil
En mi forma del cat=E1logo que intento abrir y marca error:
en Bancos.Xfm
WITH OBJECT ::oDbfBancos :=3D TDbfDataSet():New( Self )
:cName :=3D "Bancos"
:OnCreate :=3D "DbfBancosCreate"
:Create()
END
en Bancos.Prg
METHOD DbfBancosCreate( oSender ) CLASS TFrmBancos
WITH OBJECT oSender
:oDataSource :=3D Application:oMainForm:oAdsDatSrcMain // =
DataSource declarado en la forma prinipal: Menu.Xfm
:lOpen :=3D .T.
END WITH
RETURN Nil
ARCHIVOS EXTERNOS:
Ace32.Dll
AdsLoc32.Dll
Axcws32.Dll
(todos son versi=F3n 7.10)
XailerxHarbourAce32.Lib
XailerxHarbourRddAds.Lib
Que puede estar pasando? donde est=E1 mi error?
MIL GRACIAS
Israel
------=_NextPart_001_003B_01C816EA.30E0DB20
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.16544" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:003501c816d9$6d510640$0202fea9@ozlan.local"=20
align=3Dbaseline border=3D0></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
href=3D"mailto:isolis@sanroms.com">isolis@sanroms.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:47200416@ozsrv2.ozlan.local">news:47200416@ozsrv2.ozlan.loca=
l</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Hola</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Se me presenta un error con =
TDbfDataSet al=20
conectarse al servidor ADS</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>Mi aplicaci=F3n abre TODAS las bases =
de datos al=20
arrancar, utilizando simplemente DbUseArea() y todo sin=20
problemas.</FONT></DIV>
<DIV>Â</DIV>
<DIV>Pero tambi=E9n utilizo TADSDataSource con TDbfDataSet para =
manejar=20
DataControls en el manejo de cat=E1logos.</DIV>
<DIV>Â</DIV>
<DIV>Si la aplicaci=F3n se conecta con servidor ADS LOCAL todo =
funciona=20
perfectamente tanto en ruta de acceso a las bases de datosÂlocal =
como en=20
red.</DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<DIV>El problema est=E1 al conectarse el ADS REMOTO, es decir, a una =
ruta de red=20
donde se encuentra activo un servidor ADS</DIV>
<DIV>Â</DIV>
<DIV>Todas las bases que abro desde un principio con DbUseArea() se =
realiza=20
sin problema alguno, pero al hacerlo via TDbfDataSet marca=20
error</FONT></DIV></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>EL =
ERROR:</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial=20
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Al abrir cat=E1logos (TDbBrowse en =
ventanas MDI) me=20
marca el error:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>------------------------- =
Informaci=F3n del=20
compilador --------------------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Versi=F3n Xailer: Xailer 1.7.6 =
Version=20
1.76<BR>Compilador: xHarbour build 0.99.80 Intl. (SimpLex) PCode =
Version:=20
9<BR>Compilador C/C++: Borland C++ 5.5.1<BR>Plataforma: Windows XP=20
Professional 5.01.2600 Service Pack 2</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>----------------------- Informaci=F3n =
detallada del=20
error -----------------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Subsistema: ADSADT<BR>C=F3digo de =
error:=20
8026<BR>Estado: .T.<BR>Descripci=F3n: Error de=20
apertura<BR>Operaci=F3n:Â<BR>Argumentos:Â <BR>Fichero: <A=20
=
href=3D"file://cLealTestBancos.adt">cLealTestBancos.adt</A><BR>C=F3=
digo=20
error SO: 0</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Pila de llamadas:<BR>Â DBUSEAREA =
(0)<BR>Â TDBFDATASET:OPEN (239)<BR>Â (b)XDBFDATASET:XDATASET =
(36)<BR>Â TDBFDATASET:_LOPEN (0)<BR>Â =
TFRMBANCOS:DBFBANCOSCREATE=20
(66)<BR>Â TDBFDATASET:ONCREATE (0)<BR>Â TDATASET:CREATE=20
(225)<BR>Â TDBFDATASET:CREATE (177)<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>* * * *Â MI=20
CODIGO...</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><U>En mi PRG de arranque=20
tengo...</U></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial=20
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Â // ADS...<BR>Â REQUEST =
ADS, DBFCDX,=20
DBFFPT<BR>Â REQUEST ADSKeyNo, ADSKeyCount<BR>Â REQUEST=20
HB_Lang_ES<BR>Â REQUEST HB_CODEPAGE_ESWIN<BR>Â =
RddRegister("ADS",=20
1)<BR>Â RddSetDefault("ADS")<BR>Â =
ADSSetServerType(nADSServerType)=20
<FONT color=3D#808080>//ÂTipo deÂconexi=F3n leida desde INI, =
por=20
default: 3 =3D Local y Remota</FONT><BR>Â =
ADSSetFileType(3)ÂÂ=20
</FONT><FONT face=3DArial size=3D2></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><U>En mi Forma principal=20
tengo...</U></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>en=20
Menu<STRONG>.Xfm</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT =
::oAdsDatSrcMain :=3D=20
TAdsDataSource():New( Self )<BR>ÂÂÂÂÂ =
:cConnect :=3D=20
".Data"<BR>ÂÂÂÂÂ :nFileType :=3D=20
afADT<BR>ÂÂÂÂÂ :nServerType :=3D=20
asANY<BR>ÂÂÂÂÂ :lConnected :=3D=20
.T.<BR>ÂÂÂÂÂ :OnCreate :=3D=20
"AdsDatSrcMainCreate"<BR>ÂÂÂÂÂ=20
:Create()<BR>ÂÂ END<BR></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>en=20
Menu<STRONG>.Prg</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD AdsDatSrcMainCreate( oSender ) =
CLASS=20
tFrmMain<BR>Â oSender:cConnect :=3D SetIni("RutaDBFs") <FONT=20
color=3D#808080>// Ruta de conex=F3n a las Bases de datos, le=EDda =
desde un INI:=20
</FONT><A href=3D"file://cLealTest"><FONT=20
color=3D#808080>cLealTest</FONT></A><BR>RETURN =
Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><U>En mi forma del cat=E1logo que =
intento abrir y=20
marca error:</U></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>en=20
Bancos<STRONG>.Xfm</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT ::oDbfBancos =
:=3D=20
TDbfDataSet():New( Self )<BR>ÂÂÂÂÂ :cName =
:=3D=20
"Bancos"<BR>ÂÂÂÂÂ :OnCreate :=3D=20
"DbfBancosCreate"<BR>ÂÂÂÂÂ =
:Create()<BR>ÂÂ=20
END<BR></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>en=20
Bancos<STRONG>.Prg</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD DbfBancosCreate( oSender ) =
CLASS=20
TFrmBancos<BR>ÂÂ WITH OBJECT=20
oSender<BR>ÂÂÂÂÂ :oDataSource :=3D=20
Application:oMainForm:oAdsDatSrcMain <FONT color=3D#808080>// =
DataSource=20
declarado en la forma prinipal:=20
Menu.Xfm<BR></FONT>ÂÂÂÂÂ :lOpen :=3D=20
.T.<BR>ÂÂ END WITH<BR>RETURN Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>ARCHIVOS =
EXTERNOS:</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ace32.Dll</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>AdsLoc32.Dll</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Axcws32.Dll</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>(todos son versi=F3n =
7.10)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial =
size=3D2>XailerxHarbourAce32.Lib</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2>XailerxHarbourRddAds.Lib</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><STRONG>Que puede =
estar pasando?=20
donde est=E1 mi error?</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><STRONG>MIL=20
GRACIAS</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080=20
size=3D2><STRONG>Israel</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
size=3D2><STRONG></STRONG></FONT>Â</DIV></BLOCKQUOTE ></BODY></HTML>
------=_NextPart_001_003B_01C816EA.30E0DB20--
------=_NextPart_000_003A_01C816EA.30E0DB20
Content-Type: image/png;
name="2007-07-12_163726.png"
Content-Transfer-Encoding: base64
Content-ID: <003501c816d9$6d510640$0202fea9@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAqgAAAChCAIAAACEStrqAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAfQ0lEQVR4nO1dO44kR5KN8/QVeII+APXWKbfM kVsaoTHSAByBwqBB
YQSCGGEECj0KT7HYCyz2BL6+7Vu2lvZ396iqzIr38FDwtHj2cY+ItMjIrMyj tf8AQRAEQfDN87//
6z9ba0eqA0EQBEHwDRCNHwRBEAQvRDR+EARBELwQ0fhBEARB8ELMG/9vv/37 w4ef373783H8qf/t
424Rmh9//Md33/2lC/rfPhZbv37944cf/h5H+Pz5n+/f/7ULOvugPwxKWuaI HzCNcA+sV9uXOtUs
hN1xAYnF1SvKlrkQfzwnkOPUYfaS5IUtTHOBj7IyYNs+JDbdX5dJ4+/H8WjY nN3CO3dv6kLQLZsR
Oj99+jWtfpY6i2Aa4R5Yqfann/41lj2NNhV23wUkFlevKFvmQvxxlU+8w/am j/+FaS7w/lcGJG4e
Epvur8uk8X///d/G3Mbr+P53POz2Ifjy5Xd+iNPVbrcPAVlGhN7OxSlBEcbl ggh4Lvk5aTKNcA+s
VFvRgK/Lx91H91/5a1X4WnnBBW7urE3312XS+PXchIVerI9OL7p4+3bpMK6C 0whprfss7iqSff78
z/G64f37vwb2wf4ig79b0R9WYposhqL7ij0gv8tCAjHfvnf4fUgRWYj5Q3qn RryVs+AySFt7PV+/
/iHiaPY66Rp0eNGVJTF4v4kc+eL3mMPIl46ORr4ys5G9WfBZ933nrZ531I11 2K9Z0CujOTuRBMKx
lY9bb4L8eB5v9vW9PAJ2i5hFcDCbFepq6wV7SyEY59150phaGcE3cO7Un7jq Tzv6BNSMl87LK96n
LhZvLkL9LJ5l0vjpLn1/dm7f3q0fD7t9COioJReanhdTLPeI0NeXJjmagee+ w3RPCxlNf9zh8OzN
ebfi48df0piaC6GO2zXX7o31DEE6TLk4yHI83bxZc2nsmBnkd0fNBaG7RIL8 /NGLxo9AXdhY/PGQ
DmbTshZZU8yaL1EcSsj2axZMyyCOnSiM5Lhw3Hqn1aAOSG//xQeztutprhVM NJ+F47ynPGkMBisj
+AbOnfoT19TTjj4BBdOlC/IWD9R4EabO4lkmjZ/u7Y8rO3Hfvlmnk7aYAYMu dXxrBkHRyzRzBVOg
IseFiGen+xzd3i2ddJDRFaLnK7gWijTBfhn9lY5IuuClpRYuPMsolQ7EHRc6 nUbxfIKHc8zQKTE+
F0LnEsXsZ9GwjCdNOsb0aojFp/JGZFoTeh2zHFmQH/ZDoGfthRKy/ZoFgzKK +72tHrdiguPdPaqf
LHTMUAGzB7O2zBbsLYVgkHfnSaO+MoJv4Nyp7+tgN1VOQMF06XRe3d2mim9s EdLV22T+qf5eNH9N
Jm5l6LULVpPfXdGXPOOIoX121gw5KZdJLfPuvAk7XQ+RnY4S+qSC5yu4Foo0 dPToSRH7XuhrGzQe
8dC7u7XmQrfOdPFmtTxCL9t8aqCYwkWvhlh8Sj3OTHoaJdlyZEFa7WDWXigh 269Z0Cujvt/b6nEr
7PSB38Aiii8ezNoyVXCwFIJB3p0njYWVEVsf99whpvs62E2VE1CQtnpLV8lb L14sQrp6m8wbP733
MNjHvEQ9z2DmFIdXT/qvt+8mPMeLfsplUss8d2GneWkx3fjyfM8KJYymhv/P pJ54JcLpLoGRyN9m
O74dPOLGJt8qmMYfF7Xj9tpIxO9V7kQ2KwyMXiht36w5jr9W6vJxa9orlqmD WVuWC/ZmUcxLXCug
YuF8A+dOm9/X2ljRCNaXLjYuFM/tnuMmk8ZPNxzErX7vjWHTMki3Dd7d/i9f PcI+i5E92ZRdGHdS
V0KlGrpZ1Nf/48dfgg+XLWdZcAmMxF6qPnP4BajYxJnG70tBm8bgB/Z5pZ3I nKasGErbN2uO46+V
uuZVjyYsswdzsZgFzcJc6sEr0eJ63sC5s7CvtbGiEawvXRBzrXhu1zSrneUL fbiPrhhE1w8inDVD
zmLkdGcI+9rFu8nlUMKoNXTh5d0kTCOkmgWXwCj45cvv/cwR7zoV3QMBnYp0 isZXpfXIqayyMqZ9
s+Y4/lqpy8etaU8tsweztiwX7M2imJe4VkDFovnQ587Cvl7TmJxdOmFcK75Y 2w6f/d/5Gnv7R3f9
pj4kQtcWZ72ZwVlczdmdMfV2XZx6KpTW0CdCdTph+ar+iS5+WNFUXBbe4xfU V80UUx9dQWFE86w+
JbKOU3mPv5Jip+Y4vpku1Uwdt3EBFYt4mB7M2rJcsDeLYl7iWgEVS8BHPHeE rLKvtbFyAsYsvliP
NcXiW2H1Nrn4BT50aFKn/+B8gQ+fqvk/JyIC3T56+Q/3pTvDs9Mx9L7wAd24 wqlQ79UnVGmFdTo6
RYeG9pQ3a7PgfZeFT/VT5eOkpQNGfzJ5HEKVyyBOOqqP23+m2o9M5LMWu/UI V8+z79QcxzfTpZqp
4zYuoGKZPZi1ZblgbxbFvMS1AioWzjdw7izsa22snIBeXm/pKnnXim+F1dvk s39lr/m/qmKqWnPW
9AS9SkRJusLY3pxpmu94pUXWQ4ldw++R8CNsHDr8FBXuY2+KCs2CY03Fpal/ qE3PQDrlBOniXcc8
bo/SOD6/NtXX1zuRgzh838WhTPtOzXF8M11FUz9u4wIqlvRg1se/jrlWsGms V865UEDFwvkGzp10
X5txtDE9AQXTpavkXSveLPgIz+JZ5p/q/1r4iZ2+FuNM6w1bfG+Rvm4wp0r/ NPhefXjyRHqViJK8
neHZBz/f/s4QP7VS37VQv7FfBOHPF+3bFRvdraGrqB9vvweKTlrzmdEsONZU XAbpKW+UbWrEdD48
/VLU4X/7GC2aOErT+MNR3Ks8JTInzfpD+M19wsuzL9ccxzfTVTStfNzGBRQt 8cGsj38z+0LB3izq
le8UULEIvoFzZ+qJKwgen4Ca8dIV8y4Uz32LZ/Es88YPgs/NcWR7zx0gCILg iUTjB1+UdIVL1850
N0zctABBEASfg2j84IuSPrwp+O7dn78+zw80gCAIgpxo/OBL89OnX/m3Yn33 3V/6a310fRAEwZch
Gj8IgiAIXoho/CAIgiB4IaLxgyAIguCFiMYPgiAIghciGj8IgiAIXoho/CAI giB4IaLxgyAIguCF
iMYPgiAIghdi0vj5TwjQT/WMHxvgsi9ffuc/hyV+bYLs9KMyPc74LZ/uOH6E oFv07/CKnzcQW3sK
/j0w5o9PgCAIgiDIWW38+kf2qBPTTwUL0s/0eUH0r1Ly3+XTW9+zn52l31cW FD9vBYIgCIIgZ7Xx
96Y7vlSV+jH9ltp4UU49m37ukAQUZPwQYb8gEBbq4uRCmo8ff2nsd1zoakP8 qjFdfOAX3kAQBEEw
YLXxp79D3L61fP77wSSgh/RzwoFlPKR7+CIpvegn/fiFY69+EARBEAQ5q40/ NvYX6Lzfe40/iOC5
eDH5u/vHtwsC/jYBCIIgCIImT2j8dB/+3bs/f/z4C93q1108COu5aA5Bz6Iv NXoBeI8fBEEQBAOe
0PjHe/yHf98+bfMVF5NfvvzeLzWogAPv8YMgCIJgyBMav3j49esfaRdPLXQn ny4mYurbDCAIgiAI
ap7Q+OkF93iXnf9DvxcktdCn+sfH/ulD+/2CQCQd9/b7S//xEK/4QRAEQTDg CY2f3uMniv+1S9u8
aTHfwqcbANTpBfEePwiCIAgGPKHxN/UVe3S3f7xer7R5MxH/58AeStz2H98D SBcZ+OY+EARBEEyJ
7+oHQRAEwQsRjR8EQRAEL0Q0fhAEQRC8ENH4QRAEQfBCROMHQRAEwQsRjR8E QRAEL0Q0fhAEQRC8
ENH4QRAEQfBCROMHQRAEwQsRjR8EQRAEL0Q0fhAEQRC8ENH4QRAEQfBCROMH QRAEwQsRjR8EQRAE
L0Q0fhAEQfAEmr+urgVpnPshzSid2in84Ye/jx+a73/7ONV7JaWlovGDIAiC u/zpp39Rd+xjU5M2
pFl++fL799//LZUt8/SCA75//9fvvvvLb7/9u48/ffq1502nhsYPgiAIvhr7 K9TRq/pf79Vq2pBm
eXrAF45P/Pjxl57o8+d/psoK07LR+EEQBMFdjnvUX7/+Me5U8039aqC/lu1d bTSk/jJdvJwdlwvd
3l/vjnFnd6E7B+TYI3eOBnnc3oH3fEf87vXjj/8QHfHDh5+Hpfddc1JeBx32 Hra/TNcP27dGPhaE
R9YyYi84aNW8DG/c1DqTXU8TjR8EQRDc4rjP3xtMe2oz1HfHnYBPn34dg9GQ Rp/rVwl9PK4VuqV9
u909HHsXP9gFxHDsQUz7GHu+ZgHcPjplvyzQ8zrYtYXuuOK6hB6OK4weedyx p8hCphNpu97qjaem
icYPgiAIbnF0l/FCfDQYenE5XviOMTWkoRnvCHDf9u1t++7bu3il24l+afqa BWj7uPIQFPE9u3jI
X77zyF40selwrjPi8dQ00fhBEATBLfJX8M3vdqIhdXaXMRjGcUHw4cPP41V7 2u34eM2XU8+raA8e
emPBcbFCC1gMUh+LaaLxgyAIguukRis4PqDuvRId98PHu/LiZvi548pLYY9c H9jFw4VX/GM1+If7
KlNbniYaPwiCILjO8Yn0T59+Jct4b3vc7af3mPVn646nSwR6pTu6VL9iGBHS bqc7nPZN3/weFy4n
3uqP3+PX0Qb7i/4+Bf7vfCQeVxJ9k1hDczpCY04TjR8EQRBcJ7UlsohWOj5U rz9tPnoS/9+/rhl3
/sfFhNnh+HjEHB+S93yb/3F3uhToAl4/8Xi6NCHqGvTD9vSp/lFMIBPkX+Dz 4cPPdANgTK1PYfxD
hFdGvM58mmj8IAiC4CWYtt6LEI0fBEEQfLPsL4LH2xDjPsT4n8OLE40fBEEQ fLP86ad/jTcjglv6
VyMaPwiCIAheiGj8IAiCIHghovGDIAiC4IWIxg+CIAiCFyIaPwiCIAheiGj8 IAiCIHghovGDIAiC
4IWIxg+CIAiCFyIaPwiCIAheiGj8IAiCIHghovGDIAiC4IWIxg+CIAiCF+L/ NX4AAAAAAK4AesUP
AAAAAMDbBxo/AAAAAFwIaPwAAAAAcCGg8QMAAADAhYDGDwAAAAAXAho/AAAA AFwIaPwAAAAAcCGg
8QMAAADAhYDGDwAAAAAXAho/AAAAAFwIaPwAAAAAcCGg8QMAAADAhYDGDwAA AAAXAho/AAAAAFwI
aPwAAAAAcCGg8QMAAADAhZA0/sOCJz4LaymWvfS8No3ADmZXclZfxGbY2H0z OPBaC0h5X6sAwp1U
EjwBHrcw3blYW7wIabQ1pGFTwQMhb/zepnvA5tEgXMbDTePbxgvMcTbFrD7A 5uFEMA8PLdjBfoSH
xmtN/6y8+3EoghlqP34FwROgLiA9HdKn03jK+0hXsp63rnwtoPHLh5vGt40X mONsill9gM3DiWAe
Hlqwg/0ID43Xmv5ZeffjxF1wP36KOK/emp4O6dNpPOV9pCtZz1tXvhbWGz/f W2LPHU8wxaaAQ+xg
TymCeOIgl1buGwWEUhcTl91uw2p3gSC+JxDugVg/FI4iAv0V6cwayCLswqLH 9Sye0tTXw2qQr7bz
Tbq2ZsXXlZgaYeEuqVJ7maFEnMZScGOsb7fQcerZzXHFXaAoaLcT5AP+MC0g TleJ0KxKYnGQ0XMh
u+cSGINcGpRLG01LJXh9RmQxM3J9HIHLtObekDd+Db7JHHP3ooAj9dJKT1zJ RTBlh3VMBEYBLzI3
BmWn7hz1+M2PkFarjUIQp47DchctM8dTWUyBVnpirxKOuNrGIptzCfTCqJWm wHQXY9MYe+3MgkOU
Z9bPxZWtFYFpjAVeecVSPSNHKo5XQMuCcSzw5mV6mcbjCVrGUS81XT2tbLde wep5peoZaUctTit8
deSNv7IpHcd7VKDutZlXWMbDTaOAN9n6cVOci0DqlVY7VcOmoFiY/uv51o0c a8ULpEGaChgXk1bC
UfdKV8A0BqHqqTnSJTLF5rpN5TWxMP20/jRmxa4F9fjpqnKk81ozBnmDUgVM WYp4RmnYoLxAPFXh
q+AVGn9jO7VZOHGvHLcI3OnhplFAa0QxXJAatbtAGj+OkIoPqzA+rgjqYYVR //V8d7IEYzMsx2Eh
Dqg31R0XvLRSQG81vQ4V/wizHH66ylhH4w+1zHRvDkwvvlWP9aDNTNwrJrB7 YdP43pgjLjtNERuD
TYeFQJ9u4pogYGzk8ARiXC/+TvA6jd8Ua+P+Xol3gNg6Hm4aBaYqrBtNpF5r ESqCNF08i2Je/dfz
3ckSjKcWUFiCgBVNxZgK0vo5Zhezrvfsac3a6LmbSAurC+oF1I2evV5A7DIl nvLSRr21GCSeV7pJ
C+IZTU2zHiGt8NXxCo2/vtZ1pTeOIwjLeLhpFPCqiiusKzmmvOrVttvIzyFI Cws09YBplrWwgYXb
0+DtNtHCXEyvNBTHVK7UMdDH4mY5erMruouxqVxYk7UCplajvgLaNxhroxnf 89L22KVi4XZva7xJ
CNIZpdNMVzLNdZ/IG78GbeIy06suEFvFoKkIZEzFaS4t2DRyCDspyS6iBcrG 0jUHcfyWRUjF5kNu
FFu9sa5BhxIoRuZjEc0bC5dYHBSZVn4weF60Na5EBxFesVEk5TAF2qgFU3rT HoyPwpqQMi1GQMc3
BTyIWUkrF6A1gZjr0wKEnj/0MrYwfnNS0CYv+HEL01cbyR4nNcdCI+J4XmmR xQjtNpdX2J0AX9l7
77jzAwi4f+AQAt4qcGyvAY3/HuFdWgJAETiEgCsAx/Ya0PjvFMHdJwCoAIcQ AAAm0PgBAAAA4EJA
4wcAAACACwGNHwAAAAAuhLzxn/424bnR7hbBupH9mZZCfLDrmbKci4cosoK1 iSx76TfyN43Xwf6s
NyNsut8VTpyLPkQrSmAK+f/xe5umcFacCl4yl4diDUXZLCjsM8UHToF4gguU JoTLeLhpfBQsV7u5
5gJxhDR+KrhzPFP98dPXuXvwskDjfxYUayjKZoHG/xDYfAqrt/O68VGwXO3m mgug8WeSFaDxvwCi
xn88oTnLTZv0kwg36oeesvkxtcCMEOfSEbx0Io5GINA1CCXfJAbaGMTxQI6m 3sxl6r2xMMYVFo0i
VMvCcgTR1rzE31TMwV3IsSmIgJ5Y5+Wb9MNNo4BQ6mListttWO3uIc6rH2oX MY4dhVLINGirSCeC
iyCmpZULqBtjwVFOSkpToB9WQnGjBy4WejNpKtPQAgol/qbiB0X1Fb+edrtd 8VRZN5oCrkwjaGPz
UxSnwFEXxBWmsnpJHKaX3uop60nTCmeNelOlBj32CpvySguOI8/WoMVmXo6D wZQdag1jo4AXmRuD
slN3D6mjMNazpI71CGleL1QcoR6qXmq79aonTQV1oykwEStF/OJcOCoV1qfz oNht/LFRb/WUm7ut
FSKsCVKkRWpjMEiNzQnOkU5k2NP4adKpCEWlqC2tgaPulVabjuO1bX4E05im 0BGERazbmlFgbY51
o4edlTFnZ4pnI88K0ho2Q9XdW5Y0NXLUveoz5VibdT3XlFcqflA8fOPnMAV6 nAoai9wc6Lxia6AM
BoExzshhRtACM2nzC2gKaYWeV6A8bmszxUFAEa0t1VAZB8VogVdDPDaLNF3o 4aZRQGtEMVyQGrW7
BxGhmJc/9FJ4jjyyTscRRAiKTAVxKG40ZcdtLhLosWfUoUTMWLBg9OAVoI1e Ll0qhylIw7bbFO3B
8fCNvy5IU6TRTGMsiAsoysQ4RbwvyJ6uQ1rAlKBoFLWlE9+v3DSm43htmx/B NE6lMLfqfbpgFJiq
sG5Msbx09DDdO944rTP1io2poD73ZypVb/XGm0YPJ1ZlYi1sm0lx/3jexn+W kWNqr5wrMJWpQCuD
QWoUYxNmBE+jH6YFmMZ6hLoxGGujucKpV7uNEAs8MUcazTSmKXQEYRkPN40C XlVxhXWlh3NXxtu0
ENkT1KdcEcwqxdg0xmHr8deqSkvlML30Vm+c5prySsUPimrjb0+7PN3xXCks RaU59oxxLi7wCvDG
Io4AbTU1Zj26ADOjuZULuKVZ8CKYGm4R8ZtVldhqiheM3tgUC9BW0gTRhNdy DUFYLTDFPGBQhsjL
cTCcZeQQdlKSXUQLlI2lawxmajOvGV+LTQvfZDqmdXIcDMLYbhenIhAyU8nF WimMsYAip6FMAbdz
vXAMQpkuHLEgSCo0XnxT4I1T8YMi/+Y+4E3iDRy7wP0jPcxSwQKeI+abARYH aGj8lwXOf+CZMPXa
KBUs4DlivhlgcYCGxn9BxDfBAGAf+u7oy+BVkj4WsD5AQ+MHAAAAgEsBjR8A AAAALgQ0fgAAAAC4
EF6u8dN7S+abTPfzztNLVvKSuc7Cq9ccH0j3gFcpLE76KiWlOP50aGZON6jr 60qC57JT8HPjPnd0
ihPLPjFUijvvZQFeofEHlvvHuTWfG+1l8Oo132fjP7GYhVDDJXBciCmwHyHA cvtcdqzADK6Nz1oD
RyXRs+6mFFPZp8QxeKgTw6ZA48+Bxq9xbrSXwavXjMavgcb/HEDjn8VU9ilx DDT+WeSN/3hCbKSn
HlPZ2HJwpTByl0rwVBCEigXmVlMsLB4obzHXKcZUoI1HeT8KLBSgc3l5tVdz KqGYnrvWm/HjCMKo
H3rKxuKLmIHeE3NNu81Ldr5Jl9GcjNzX0wgLd0mVAmY31TfStXGM60Yvjmks Nn5zE43rFZLFU2r9
/8tqK08aMgpB0ctU6of0tyjmXmTheq4Um4oRtHvgJTLqCIFX3UUIBHQEzziF ua/sjY1aUNxaMZoC
rqzHTwWVrcHYRFxhPVfdyFH3Suusx08FIleQ1zR6iWJ3IdbjNMK+MZ1COuZI 9ZRRb61XWMkSuIux
gO5/euwZtcAzxnFiI4fXg8+qMFUK1FdeCMx9l3rFSm6cEgde5laONK+Zi8Pz 2qw2dTHF2qtlYWcx
0fhNYzrJwLjgIsam8axQ9UQVLCwFx2ZVqXFz0TjSXKYxTREvmpYF47qxHqG+ bvWYFXGgCbJvzoWj
7uVF+N9Nf7rZVG/DqTLuryamlGau5gQ5yyhQX/ni4TFr1Fs9QZsJm5ZtGk+M sBa2uDUY143eIqd4
442fw3QXW3WoYKsp8GAG4QMOrgyMpuxwiil6CUFgFNChPAG3VMbCUQ84PN9h 90LVI2i76TVr5PAE
nlgj8D2e1sGMkDoueGmlhm78nKZGG4sd1G2ftYwaxbwnGgXqK28qhVfR2FgK b2tjKBZTN3KkNRy3
kP6TeYvVmknTmAK65opXijfe+GOlaY+9UncP9aWIXUxBmp1jIWm9Ek/AkYaN BQv1e1iLsFBqauRI
l8UTC0uQvaKpGFNBugsGdONPNdpY7KBrcUylsKRBzjIK1Fd+fyfGYdP4qbhu 5JjKZSL1qgs2d4GH
tKopTDT+4mzrxgUXMebGnfimYM3dQ1xhWklRKcamcSFUPT4v1RS0QtjiCtQT TYnTCHFVpjI1cqQF
BBZur8TZn8vCsmgEjX+hL9Ybv7n19MZfzFKfi8DU/jrLq24UgoUIpjtHJa8p 4EYznelVr7boIsax
IPWq4ORP9ZtjIeYDbWwzwYVReLUsVCowt8aCplJw41Quri8qzdRTXsE4TkGb YkExl/DiRj3gEMa4
ZlNQiWBWxceBe5CLu4iHnlIbuf1g8LxoK/fSYrMqLfaMIqmA2U15d/SM9WYp jF5wz0Ur4wpFELPs
hQm6JTFoI7dUxnUvM6NW8k1coMVxrqbCiq3aS2hMd1IKgRDrCAeD6ZVuNccc OoJnnELe+B8CO0tw
Osxi7qpCAHhW4GgnmK3a699Aimc6tJ4p7N0Cjf98oPEDF0Tl5YuAeOkMFpmt 61vDMX9ozeKZwt4t
0PhfCPdfIQBs4nhCJrwQzD59wea9iec+tJ4v8n3ijTR+AAAAAAAqQOMHAAAA gAsBjR8AAAAALoSJ
xn/iuyBxqBMTnYtDwRTEXu358QJZXiAFYS3XmhcAAMCbx8oX+KSIlWNroKkn 8rAfwYTZ1PVYyOKH
D4TNyqfc1w48AAAAIAUa/wROafym5SGwWfaU+9qBBwAAAKSIGv/xBHpIxlim NULfrGdz8tKCIDiJ
Y42wcJdUybcGFl6Ap/EsZPfq1IkqdWqlV3CaVz8UStPouZuWwLexLJUILSzG MwbjIBEAAMBjYe4V
Pz3UA88okD7PUha9NdYLo1aaAtNdjAOjsPBonsa0NCd7fcocgVIHnMobGL2q YqMYewIznSnWxnox
dSMAAMDjYq7xm2NtDJ4fKwFFnHqutIC6l5dUQG81vVKLZzQFlToD5XG7qoFG IFUuFNMyL29cj5DG
N431RAAAAI+FExr/waC3chwWtIswHuVcpnHKSytFHHPcrNReMabFM7Zy8cIl UB63q3rcguu1xYtm
jkUEbyu3c0E8no2gZdq4lggAAOCxsNv4UyOHtlfiVDQVYypIn9aFIM4ShDUT pcZ0dkVlWp5AJdqy
0UO8tm0yQtG4lggAAOCxcFrjP75BK7WLaU8TtUKu1FgvuzKFoM4glBm5OdE2 6wwqjMcLRrPCStnx
FLxxPULdvW4EAAB4XOSNP30GJI35dG+6mPaDwfMyc2mxDiK8YqNIyrcGFuHL 43M0H6aGxyEL39oU
UqWZIjXyh6Y9NprRuIUjyCU0QYRYGRtj98NJCgAAcP+Y+Oa+two8iZ8FrCQA AMD946KNH6/ezgJW
EgAA4LFw0cbfshvFQB1YSQAAgAfCdRs/AAAAAFwQaPwAAAAAcCGMxv8/NlYB 8m2lquUAAAAASUVO
RK5CYII=
------=_NextPart_000_003A_01C816EA.30E0DB20--
Attached files
------=_NextPart_000_003A_01C816EA.30E0DB20
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_003B_01C816EA.30E0DB20"
------=_NextPart_001_003B_01C816EA.30E0DB20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Israel Solis" <isolis@sanroms.com> escribi=F3 en el mensaje =
news:[email=47200416@ozsrv2.ozlan.local...]47200416@ozsrv2.ozlan.local...[/email]
Hola
Se me presenta un error con TDbfDataSet al conectarse al servidor ADS
Mi aplicaci=F3n abre TODAS las bases de datos al arrancar, utilizando =
simplemente DbUseArea() y todo sin problemas.
Pero tambi=E9n utilizo TADSDataSource con TDbfDataSet para manejar =
DataControls en el manejo de cat=E1logos.
Si la aplicaci=F3n se conecta con servidor ADS LOCAL todo funciona =
perfectamente tanto en ruta de acceso a las bases de datos local como en =
red.
El problema est=E1 al conectarse el ADS REMOTO, es decir, a una ruta =
de red donde se encuentra activo un servidor ADS
Todas las bases que abro desde un principio con DbUseArea() se realiza =
sin problema alguno, pero al hacerlo via TDbfDataSet marca error
EL ERROR:
Al abrir cat=E1logos (TDbBrowse en ventanas MDI) me marca el error:
------------------------- Informaci=F3n del compilador =
--------------------------
Versi=F3n Xailer: Xailer 1.7.6 Version 1.76
Compilador: xHarbour build 0.99.80 Intl. (SimpLex) PCode Version: 9
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Informaci=F3n detallada del error =
-----------------------
Subsistema: ADSADT
C=F3digo de error: 8026
Estado: .T.
Descripci=F3n: Error de apertura
Operaci=F3n:=20
Argumentos:=20
Fichero: cLealTestBancos.adt
C=F3digo error SO: 0
Pila de llamadas:
DBUSEAREA (0)
TDBFDATASET:OPEN (239)
(b)XDBFDATASET:XDATASET (36)
TDBFDATASET:_LOPEN (0)
TFRMBANCOS:DBFBANCOSCREATE (66)
TDBFDATASET:ONCREATE (0)
TDATASET:CREATE (225)
TDBFDATASET:CREATE (177)
* * * * MI CODIGO...
En mi PRG de arranque tengo...
// ADS...
REQUEST ADS, DBFCDX, DBFFPT
REQUEST ADSKeyNo, ADSKeyCount
REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN
RddRegister("ADS", 1)
RddSetDefault("ADS")
ADSSetServerType(nADSServerType) // Tipo de conexi=F3n leida desde =
INI, por default: 3 =3D Local y Remota
ADSSetFileType(3) =20
En mi Forma principal tengo...
en Menu.Xfm
WITH OBJECT ::oAdsDatSrcMain :=3D TAdsDataSource():New( Self )
:cConnect :=3D ".Data"
:nFileType :=3D afADT
:nServerType :=3D asANY
:lConnected :=3D .T.
:OnCreate :=3D "AdsDatSrcMainCreate"
:Create()
END
en Menu.Prg
METHOD AdsDatSrcMainCreate( oSender ) CLASS tFrmMain
oSender:cConnect :=3D SetIni("RutaDBFs") // Ruta de conex=F3n a las =
Bases de datos, le=EDda desde un INI: cLealTest
RETURN Nil
En mi forma del cat=E1logo que intento abrir y marca error:
en Bancos.Xfm
WITH OBJECT ::oDbfBancos :=3D TDbfDataSet():New( Self )
:cName :=3D "Bancos"
:OnCreate :=3D "DbfBancosCreate"
:Create()
END
en Bancos.Prg
METHOD DbfBancosCreate( oSender ) CLASS TFrmBancos
WITH OBJECT oSender
:oDataSource :=3D Application:oMainForm:oAdsDatSrcMain // =
DataSource declarado en la forma prinipal: Menu.Xfm
:lOpen :=3D .T.
END WITH
RETURN Nil
ARCHIVOS EXTERNOS:
Ace32.Dll
AdsLoc32.Dll
Axcws32.Dll
(todos son versi=F3n 7.10)
XailerxHarbourAce32.Lib
XailerxHarbourRddAds.Lib
Que puede estar pasando? donde est=E1 mi error?
MIL GRACIAS
Israel
------=_NextPart_001_003B_01C816EA.30E0DB20
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.16544" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><IMG alt=3D"" hspace=3D0 =
src=3D"cid:003501c816d9$6d510640$0202fea9@ozlan.local"=20
align=3Dbaseline border=3D0></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Israel Solis" <<A=20
href=3D"mailto:isolis@sanroms.com">isolis@sanroms.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:47200416@ozsrv2.ozlan.local">news:47200416@ozsrv2.ozlan.loca=
l</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Hola</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Se me presenta un error con =
TDbfDataSet al=20
conectarse al servidor ADS</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>Mi aplicaci=F3n abre TODAS las bases =
de datos al=20
arrancar, utilizando simplemente DbUseArea() y todo sin=20
problemas.</FONT></DIV>
<DIV>Â</DIV>
<DIV>Pero tambi=E9n utilizo TADSDataSource con TDbfDataSet para =
manejar=20
DataControls en el manejo de cat=E1logos.</DIV>
<DIV>Â</DIV>
<DIV>Si la aplicaci=F3n se conecta con servidor ADS LOCAL todo =
funciona=20
perfectamente tanto en ruta de acceso a las bases de datosÂlocal =
como en=20
red.</DIV>
<DIV>Â</DIV>
<DIV>Â</DIV>
<DIV>El problema est=E1 al conectarse el ADS REMOTO, es decir, a una =
ruta de red=20
donde se encuentra activo un servidor ADS</DIV>
<DIV>Â</DIV>
<DIV>Todas las bases que abro desde un principio con DbUseArea() se =
realiza=20
sin problema alguno, pero al hacerlo via TDbfDataSet marca=20
error</FONT></DIV></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>EL =
ERROR:</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial=20
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Al abrir cat=E1logos (TDbBrowse en =
ventanas MDI) me=20
marca el error:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>------------------------- =
Informaci=F3n del=20
compilador --------------------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Versi=F3n Xailer: Xailer 1.7.6 =
Version=20
1.76<BR>Compilador: xHarbour build 0.99.80 Intl. (SimpLex) PCode =
Version:=20
9<BR>Compilador C/C++: Borland C++ 5.5.1<BR>Plataforma: Windows XP=20
Professional 5.01.2600 Service Pack 2</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>----------------------- Informaci=F3n =
detallada del=20
error -----------------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Subsistema: ADSADT<BR>C=F3digo de =
error:=20
8026<BR>Estado: .T.<BR>Descripci=F3n: Error de=20
apertura<BR>Operaci=F3n:Â<BR>Argumentos:Â <BR>Fichero: <A=20
=
href=3D"file://cLealTestBancos.adt">cLealTestBancos.adt</A><BR>C=F3=
digo=20
error SO: 0</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Pila de llamadas:<BR>Â DBUSEAREA =
(0)<BR>Â TDBFDATASET:OPEN (239)<BR>Â (b)XDBFDATASET:XDATASET =
(36)<BR>Â TDBFDATASET:_LOPEN (0)<BR>Â =
TFRMBANCOS:DBFBANCOSCREATE=20
(66)<BR>Â TDBFDATASET:ONCREATE (0)<BR>Â TDATASET:CREATE=20
(225)<BR>Â TDBFDATASET:CREATE (177)<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>* * * *Â MI=20
CODIGO...</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><U>En mi PRG de arranque=20
tengo...</U></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial=20
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Â // ADS...<BR>Â REQUEST =
ADS, DBFCDX,=20
DBFFPT<BR>Â REQUEST ADSKeyNo, ADSKeyCount<BR>Â REQUEST=20
HB_Lang_ES<BR>Â REQUEST HB_CODEPAGE_ESWIN<BR>Â =
RddRegister("ADS",=20
1)<BR>Â RddSetDefault("ADS")<BR>Â =
ADSSetServerType(nADSServerType)=20
<FONT color=3D#808080>//ÂTipo deÂconexi=F3n leida desde INI, =
por=20
default: 3 =3D Local y Remota</FONT><BR>Â =
ADSSetFileType(3)ÂÂ=20
</FONT><FONT face=3DArial size=3D2></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><U>En mi Forma principal=20
tengo...</U></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>en=20
Menu<STRONG>.Xfm</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT =
::oAdsDatSrcMain :=3D=20
TAdsDataSource():New( Self )<BR>ÂÂÂÂÂ =
:cConnect :=3D=20
".Data"<BR>ÂÂÂÂÂ :nFileType :=3D=20
afADT<BR>ÂÂÂÂÂ :nServerType :=3D=20
asANY<BR>ÂÂÂÂÂ :lConnected :=3D=20
.T.<BR>ÂÂÂÂÂ :OnCreate :=3D=20
"AdsDatSrcMainCreate"<BR>ÂÂÂÂÂ=20
:Create()<BR>ÂÂ END<BR></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>en=20
Menu<STRONG>.Prg</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD AdsDatSrcMainCreate( oSender ) =
CLASS=20
tFrmMain<BR>Â oSender:cConnect :=3D SetIni("RutaDBFs") <FONT=20
color=3D#808080>// Ruta de conex=F3n a las Bases de datos, le=EDda =
desde un INI:=20
</FONT><A href=3D"file://cLealTest"><FONT=20
color=3D#808080>cLealTest</FONT></A><BR>RETURN =
Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><U>En mi forma del cat=E1logo que =
intento abrir y=20
marca error:</U></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>en=20
Bancos<STRONG>.Xfm</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT ::oDbfBancos =
:=3D=20
TDbfDataSet():New( Self )<BR>ÂÂÂÂÂ :cName =
:=3D=20
"Bancos"<BR>ÂÂÂÂÂ :OnCreate :=3D=20
"DbfBancosCreate"<BR>ÂÂÂÂÂ =
:Create()<BR>ÂÂ=20
END<BR></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>en=20
Bancos<STRONG>.Prg</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD DbfBancosCreate( oSender ) =
CLASS=20
TFrmBancos<BR>ÂÂ WITH OBJECT=20
oSender<BR>ÂÂÂÂÂ :oDataSource :=3D=20
Application:oMainForm:oAdsDatSrcMain <FONT color=3D#808080>// =
DataSource=20
declarado en la forma prinipal:=20
Menu.Xfm<BR></FONT>ÂÂÂÂÂ :lOpen :=3D=20
.T.<BR>ÂÂ END WITH<BR>RETURN Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>ARCHIVOS =
EXTERNOS:</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ace32.Dll</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>AdsLoc32.Dll</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Axcws32.Dll</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>(todos son versi=F3n =
7.10)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial =
size=3D2>XailerxHarbourAce32.Lib</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2>XailerxHarbourRddAds.Lib</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><STRONG>Que puede =
estar pasando?=20
donde est=E1 mi error?</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080 size=3D2><STRONG>MIL=20
GRACIAS</STRONG></FONT></DIV>
<DIV><FONT face=3DArial color=3D#008080=20
size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#008080=20
size=3D2><STRONG>Israel</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2><STRONG></STRONG></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
size=3D2><STRONG></STRONG></FONT>Â</DIV></BLOCKQUOTE ></BODY></HTML>
------=_NextPart_001_003B_01C816EA.30E0DB20--
------=_NextPart_000_003A_01C816EA.30E0DB20
Content-Type: image/png;
name="2007-07-12_163726.png"
Content-Transfer-Encoding: base64
Content-ID: <003501c816d9$6d510640$0202fea9@ozlan.local>
iVBORw0KGgoAAAANSUhEUgAAAqgAAAChCAIAAACEStrqAAAABmJLR0QAAAAA AAD5Q7t/AAAACXBI
WXMAAA7EAAAOxAGVKw4bAAAfQ0lEQVR4nO1dO44kR5KN8/QVeII+APXWKbfM kVsaoTHSAByBwqBB
YQSCGGEECj0KT7HYCyz2BL6+7Vu2lvZ396iqzIr38FDwtHj2cY+ItMjIrMyj tf8AQRAEQfDN87//
6z9ba0eqA0EQBEHwDRCNHwRBEAQvRDR+EARBELwQ0fhBEARB8ELMG/9vv/37 w4ef373783H8qf/t
424Rmh9//Md33/2lC/rfPhZbv37944cf/h5H+Pz5n+/f/7ULOvugPwxKWuaI HzCNcA+sV9uXOtUs
hN1xAYnF1SvKlrkQfzwnkOPUYfaS5IUtTHOBj7IyYNs+JDbdX5dJ4+/H8WjY nN3CO3dv6kLQLZsR
Oj99+jWtfpY6i2Aa4R5Yqfann/41lj2NNhV23wUkFlevKFvmQvxxlU+8w/am j/+FaS7w/lcGJG4e
Epvur8uk8X///d/G3Mbr+P53POz2Ifjy5Xd+iNPVbrcPAVlGhN7OxSlBEcbl ggh4Lvk5aTKNcA+s
VFvRgK/Lx91H91/5a1X4WnnBBW7urE3312XS+PXchIVerI9OL7p4+3bpMK6C 0whprfss7iqSff78
z/G64f37vwb2wf4ig79b0R9WYposhqL7ij0gv8tCAjHfvnf4fUgRWYj5Q3qn RryVs+AySFt7PV+/
/iHiaPY66Rp0eNGVJTF4v4kc+eL3mMPIl46ORr4ys5G9WfBZ933nrZ531I11 2K9Z0CujOTuRBMKx
lY9bb4L8eB5v9vW9PAJ2i5hFcDCbFepq6wV7SyEY59150phaGcE3cO7Un7jq Tzv6BNSMl87LK96n
LhZvLkL9LJ5l0vjpLn1/dm7f3q0fD7t9COioJReanhdTLPeI0NeXJjmagee+ w3RPCxlNf9zh8OzN
ebfi48df0piaC6GO2zXX7o31DEE6TLk4yHI83bxZc2nsmBnkd0fNBaG7RIL8 /NGLxo9AXdhY/PGQ
DmbTshZZU8yaL1EcSsj2axZMyyCOnSiM5Lhw3Hqn1aAOSG//xQeztutprhVM NJ+F47ynPGkMBisj
+AbOnfoT19TTjj4BBdOlC/IWD9R4EabO4lkmjZ/u7Y8rO3Hfvlmnk7aYAYMu dXxrBkHRyzRzBVOg
IseFiGen+xzd3i2ddJDRFaLnK7gWijTBfhn9lY5IuuClpRYuPMsolQ7EHRc6 nUbxfIKHc8zQKTE+
F0LnEsXsZ9GwjCdNOsb0aojFp/JGZFoTeh2zHFmQH/ZDoGfthRKy/ZoFgzKK +72tHrdiguPdPaqf
LHTMUAGzB7O2zBbsLYVgkHfnSaO+MoJv4Nyp7+tgN1VOQMF06XRe3d2mim9s EdLV22T+qf5eNH9N
Jm5l6LULVpPfXdGXPOOIoX121gw5KZdJLfPuvAk7XQ+RnY4S+qSC5yu4Foo0 dPToSRH7XuhrGzQe
8dC7u7XmQrfOdPFmtTxCL9t8aqCYwkWvhlh8Sj3OTHoaJdlyZEFa7WDWXigh 269Z0Cujvt/b6nEr
7PSB38Aiii8ezNoyVXCwFIJB3p0njYWVEVsf99whpvs62E2VE1CQtnpLV8lb L14sQrp6m8wbP733
MNjHvEQ9z2DmFIdXT/qvt+8mPMeLfsplUss8d2GneWkx3fjyfM8KJYymhv/P pJ54JcLpLoGRyN9m
O74dPOLGJt8qmMYfF7Xj9tpIxO9V7kQ2KwyMXiht36w5jr9W6vJxa9orlqmD WVuWC/ZmUcxLXCug
YuF8A+dOm9/X2ljRCNaXLjYuFM/tnuMmk8ZPNxzErX7vjWHTMki3Dd7d/i9f PcI+i5E92ZRdGHdS
V0KlGrpZ1Nf/48dfgg+XLWdZcAmMxF6qPnP4BajYxJnG70tBm8bgB/Z5pZ3I nKasGErbN2uO46+V
uuZVjyYsswdzsZgFzcJc6sEr0eJ63sC5s7CvtbGiEawvXRBzrXhu1zSrneUL fbiPrhhE1w8inDVD
zmLkdGcI+9rFu8nlUMKoNXTh5d0kTCOkmgWXwCj45cvv/cwR7zoV3QMBnYp0 isZXpfXIqayyMqZ9
s+Y4/lqpy8etaU8tsweztiwX7M2imJe4VkDFovnQ587Cvl7TmJxdOmFcK75Y 2w6f/d/5Gnv7R3f9
pj4kQtcWZ72ZwVlczdmdMfV2XZx6KpTW0CdCdTph+ar+iS5+WNFUXBbe4xfU V80UUx9dQWFE86w+
JbKOU3mPv5Jip+Y4vpku1Uwdt3EBFYt4mB7M2rJcsDeLYl7iWgEVS8BHPHeE rLKvtbFyAsYsvliP
NcXiW2H1Nrn4BT50aFKn/+B8gQ+fqvk/JyIC3T56+Q/3pTvDs9Mx9L7wAd24 wqlQ79UnVGmFdTo6
RYeG9pQ3a7PgfZeFT/VT5eOkpQNGfzJ5HEKVyyBOOqqP23+m2o9M5LMWu/UI V8+z79QcxzfTpZqp
4zYuoGKZPZi1ZblgbxbFvMS1AioWzjdw7izsa22snIBeXm/pKnnXim+F1dvk s39lr/m/qmKqWnPW
9AS9SkRJusLY3pxpmu94pUXWQ4ldw++R8CNsHDr8FBXuY2+KCs2CY03Fpal/ qE3PQDrlBOniXcc8
bo/SOD6/NtXX1zuRgzh838WhTPtOzXF8M11FUz9u4wIqlvRg1se/jrlWsGms V865UEDFwvkGzp10
X5txtDE9AQXTpavkXSveLPgIz+JZ5p/q/1r4iZ2+FuNM6w1bfG+Rvm4wp0r/ NPhefXjyRHqViJK8
neHZBz/f/s4QP7VS37VQv7FfBOHPF+3bFRvdraGrqB9vvweKTlrzmdEsONZU XAbpKW+UbWrEdD48
/VLU4X/7GC2aOErT+MNR3Ks8JTInzfpD+M19wsuzL9ccxzfTVTStfNzGBRQt 8cGsj38z+0LB3izq
le8UULEIvoFzZ+qJKwgen4Ca8dIV8y4Uz32LZ/Es88YPgs/NcWR7zx0gCILg iUTjB1+UdIVL1850
N0zctABBEASfg2j84IuSPrwp+O7dn78+zw80gCAIgpxo/OBL89OnX/m3Yn33 3V/6a310fRAEwZch
Gj8IgiAIXoho/CAIgiB4IaLxgyAIguCFiMYPgiAIghciGj8IgiAIXoho/CAI giB4IaLxgyAIguCF
iMYPgiAIghdi0vj5TwjQT/WMHxvgsi9ffuc/hyV+bYLs9KMyPc74LZ/uOH6E oFv07/CKnzcQW3sK
/j0w5o9PgCAIgiDIWW38+kf2qBPTTwUL0s/0eUH0r1Ly3+XTW9+zn52l31cW FD9vBYIgCIIgZ7Xx
96Y7vlSV+jH9ltp4UU49m37ukAQUZPwQYb8gEBbq4uRCmo8ff2nsd1zoakP8 qjFdfOAX3kAQBEEw
YLXxp79D3L61fP77wSSgh/RzwoFlPKR7+CIpvegn/fiFY69+EARBEAQ5q40/ NvYX6Lzfe40/iOC5
eDH5u/vHtwsC/jYBCIIgCIImT2j8dB/+3bs/f/z4C93q1108COu5aA5Bz6Iv NXoBeI8fBEEQBAOe
0PjHe/yHf98+bfMVF5NfvvzeLzWogAPv8YMgCIJgyBMav3j49esfaRdPLXQn ny4mYurbDCAIgiAI
ap7Q+OkF93iXnf9DvxcktdCn+sfH/ulD+/2CQCQd9/b7S//xEK/4QRAEQTDg CY2f3uMniv+1S9u8
aTHfwqcbANTpBfEePwiCIAgGPKHxN/UVe3S3f7xer7R5MxH/58AeStz2H98D SBcZ+OY+EARBEEyJ
7+oHQRAEwQsRjR8EQRAEL0Q0fhAEQRC8ENH4QRAEQfBCROMHQRAEwQsRjR8E QRAEL0Q0fhAEQRC8
ENH4QRAEQfBCROMHQRAEwQsRjR8EQRAEL0Q0fhAEQRC8ENH4QRAEQfBCROMH QRAEwQsRjR8EQRAE
L0Q0fhAEQfAEmr+urgVpnPshzSid2in84Ye/jx+a73/7ONV7JaWlovGDIAiC u/zpp39Rd+xjU5M2
pFl++fL799//LZUt8/SCA75//9fvvvvLb7/9u48/ffq1502nhsYPgiAIvhr7 K9TRq/pf79Vq2pBm
eXrAF45P/Pjxl57o8+d/psoK07LR+EEQBMFdjnvUX7/+Me5U8039aqC/lu1d bTSk/jJdvJwdlwvd
3l/vjnFnd6E7B+TYI3eOBnnc3oH3fEf87vXjj/8QHfHDh5+Hpfddc1JeBx32 Hra/TNcP27dGPhaE
R9YyYi84aNW8DG/c1DqTXU8TjR8EQRDc4rjP3xtMe2oz1HfHnYBPn34dg9GQ Rp/rVwl9PK4VuqV9
u909HHsXP9gFxHDsQUz7GHu+ZgHcPjplvyzQ8zrYtYXuuOK6hB6OK4weedyx p8hCphNpu97qjaem
icYPgiAIbnF0l/FCfDQYenE5XviOMTWkoRnvCHDf9u1t++7bu3il24l+afqa BWj7uPIQFPE9u3jI
X77zyF40selwrjPi8dQ00fhBEATBLfJX8M3vdqIhdXaXMRjGcUHw4cPP41V7 2u34eM2XU8+raA8e
emPBcbFCC1gMUh+LaaLxgyAIguukRis4PqDuvRId98PHu/LiZvi548pLYY9c H9jFw4VX/GM1+If7
KlNbniYaPwiCILjO8Yn0T59+Jct4b3vc7af3mPVn646nSwR6pTu6VL9iGBHS bqc7nPZN3/weFy4n
3uqP3+PX0Qb7i/4+Bf7vfCQeVxJ9k1hDczpCY04TjR8EQRBcJ7UlsohWOj5U rz9tPnoS/9+/rhl3
/sfFhNnh+HjEHB+S93yb/3F3uhToAl4/8Xi6NCHqGvTD9vSp/lFMIBPkX+Dz 4cPPdANgTK1PYfxD
hFdGvM58mmj8IAiC4CWYtt6LEI0fBEEQfLPsL4LH2xDjPsT4n8OLE40fBEEQ fLP86ad/jTcjglv6
VyMaPwiCIAheiGj8IAiCIHghovGDIAiC4IWIxg+CIAiCFyIaPwiCIAheiGj8 IAiCIHghovGDIAiC
4IWIxg+CIAiCFyIaPwiCIAheiGj8IAiCIHghovGDIAiC4IWIxg+CIAiCF+L/ NX4AAAAAAK4AesUP
AAAAAMDbBxo/AAAAAFwIaPwAAAAAcCGg8QMAAADAhYDGDwAAAAAXAho/AAAA AFwIaPwAAAAAcCGg
8QMAAADAhYDGDwAAAAAXAho/AAAAAFwIaPwAAAAAcCGg8QMAAADAhYDGDwAA AAAXAho/AAAAAFwI
aPwAAAAAcCGg8QMAAADAhZA0/sOCJz4LaymWvfS8No3ADmZXclZfxGbY2H0z OPBaC0h5X6sAwp1U
EjwBHrcw3blYW7wIabQ1pGFTwQMhb/zepnvA5tEgXMbDTePbxgvMcTbFrD7A 5uFEMA8PLdjBfoSH
xmtN/6y8+3EoghlqP34FwROgLiA9HdKn03jK+0hXsp63rnwtoPHLh5vGt40X mONsill9gM3DiWAe
Hlqwg/0ID43Xmv5ZeffjxF1wP36KOK/emp4O6dNpPOV9pCtZz1tXvhbWGz/f W2LPHU8wxaaAQ+xg
TymCeOIgl1buGwWEUhcTl91uw2p3gSC+JxDugVg/FI4iAv0V6cwayCLswqLH 9Sye0tTXw2qQr7bz
Tbq2ZsXXlZgaYeEuqVJ7maFEnMZScGOsb7fQcerZzXHFXaAoaLcT5AP+MC0g TleJ0KxKYnGQ0XMh
u+cSGINcGpRLG01LJXh9RmQxM3J9HIHLtObekDd+Db7JHHP3ooAj9dJKT1zJ RTBlh3VMBEYBLzI3
BmWn7hz1+M2PkFarjUIQp47DchctM8dTWUyBVnpirxKOuNrGIptzCfTCqJWm wHQXY9MYe+3MgkOU
Z9bPxZWtFYFpjAVeecVSPSNHKo5XQMuCcSzw5mV6mcbjCVrGUS81XT2tbLde wep5peoZaUctTit8
deSNv7IpHcd7VKDutZlXWMbDTaOAN9n6cVOci0DqlVY7VcOmoFiY/uv51o0c a8ULpEGaChgXk1bC
UfdKV8A0BqHqqTnSJTLF5rpN5TWxMP20/jRmxa4F9fjpqnKk81ozBnmDUgVM WYp4RmnYoLxAPFXh
q+AVGn9jO7VZOHGvHLcI3OnhplFAa0QxXJAatbtAGj+OkIoPqzA+rgjqYYVR //V8d7IEYzMsx2Eh
Dqg31R0XvLRSQG81vQ4V/wizHH66ylhH4w+1zHRvDkwvvlWP9aDNTNwrJrB7 YdP43pgjLjtNERuD
TYeFQJ9u4pogYGzk8ARiXC/+TvA6jd8Ua+P+Xol3gNg6Hm4aBaYqrBtNpF5r ESqCNF08i2Je/dfz
3ckSjKcWUFiCgBVNxZgK0vo5Zhezrvfsac3a6LmbSAurC+oF1I2evV5A7DIl nvLSRr21GCSeV7pJ
C+IZTU2zHiGt8NXxCo2/vtZ1pTeOIwjLeLhpFPCqiiusKzmmvOrVttvIzyFI Cws09YBplrWwgYXb
0+DtNtHCXEyvNBTHVK7UMdDH4mY5erMruouxqVxYk7UCplajvgLaNxhroxnf 89L22KVi4XZva7xJ
CNIZpdNMVzLNdZ/IG78GbeIy06suEFvFoKkIZEzFaS4t2DRyCDspyS6iBcrG 0jUHcfyWRUjF5kNu
FFu9sa5BhxIoRuZjEc0bC5dYHBSZVn4weF60Na5EBxFesVEk5TAF2qgFU3rT HoyPwpqQMi1GQMc3
BTyIWUkrF6A1gZjr0wKEnj/0MrYwfnNS0CYv+HEL01cbyR4nNcdCI+J4XmmR xQjtNpdX2J0AX9l7
77jzAwi4f+AQAt4qcGyvAY3/HuFdWgJAETiEgCsAx/Ya0PjvFMHdJwCoAIcQ AAAm0PgBAAAA4EJA
4wcAAACACwGNHwAAAAAuhLzxn/424bnR7hbBupH9mZZCfLDrmbKci4cosoK1 iSx76TfyN43Xwf6s
NyNsut8VTpyLPkQrSmAK+f/xe5umcFacCl4yl4diDUXZLCjsM8UHToF4gguU JoTLeLhpfBQsV7u5
5gJxhDR+KrhzPFP98dPXuXvwskDjfxYUayjKZoHG/xDYfAqrt/O68VGwXO3m mgug8WeSFaDxvwCi
xn88oTnLTZv0kwg36oeesvkxtcCMEOfSEbx0Io5GINA1CCXfJAbaGMTxQI6m 3sxl6r2xMMYVFo0i
VMvCcgTR1rzE31TMwV3IsSmIgJ5Y5+Wb9MNNo4BQ6mListttWO3uIc6rH2oX MY4dhVLINGirSCeC
iyCmpZULqBtjwVFOSkpToB9WQnGjBy4WejNpKtPQAgol/qbiB0X1Fb+edrtd 8VRZN5oCrkwjaGPz
UxSnwFEXxBWmsnpJHKaX3uop60nTCmeNelOlBj32CpvySguOI8/WoMVmXo6D wZQdag1jo4AXmRuD
slN3D6mjMNazpI71CGleL1QcoR6qXmq79aonTQV1oykwEStF/OJcOCoV1qfz oNht/LFRb/WUm7ut
FSKsCVKkRWpjMEiNzQnOkU5k2NP4adKpCEWlqC2tgaPulVabjuO1bX4E05im 0BGERazbmlFgbY51
o4edlTFnZ4pnI88K0ho2Q9XdW5Y0NXLUveoz5VibdT3XlFcqflA8fOPnMAV6 nAoai9wc6Lxia6AM
BoExzshhRtACM2nzC2gKaYWeV6A8bmszxUFAEa0t1VAZB8VogVdDPDaLNF3o 4aZRQGtEMVyQGrW7
BxGhmJc/9FJ4jjyyTscRRAiKTAVxKG40ZcdtLhLosWfUoUTMWLBg9OAVoI1e Ll0qhylIw7bbFO3B
8fCNvy5IU6TRTGMsiAsoysQ4RbwvyJ6uQ1rAlKBoFLWlE9+v3DSm43htmx/B NE6lMLfqfbpgFJiq
sG5Msbx09DDdO944rTP1io2poD73ZypVb/XGm0YPJ1ZlYi1sm0lx/3jexn+W kWNqr5wrMJWpQCuD
QWoUYxNmBE+jH6YFmMZ6hLoxGGujucKpV7uNEAs8MUcazTSmKXQEYRkPN40C XlVxhXWlh3NXxtu0
ENkT1KdcEcwqxdg0xmHr8deqSkvlML30Vm+c5prySsUPimrjb0+7PN3xXCks RaU59oxxLi7wCvDG
Io4AbTU1Zj26ADOjuZULuKVZ8CKYGm4R8ZtVldhqiheM3tgUC9BW0gTRhNdy DUFYLTDFPGBQhsjL
cTCcZeQQdlKSXUQLlI2lawxmajOvGV+LTQvfZDqmdXIcDMLYbhenIhAyU8nF WimMsYAip6FMAbdz
vXAMQpkuHLEgSCo0XnxT4I1T8YMi/+Y+4E3iDRy7wP0jPcxSwQKeI+abARYH aGj8lwXOf+CZMPXa
KBUs4DlivhlgcYCGxn9BxDfBAGAf+u7oy+BVkj4WsD5AQ+MHAAAAgEsBjR8A AAAALgQ0fgAAAAC4
EF6u8dN7S+abTPfzztNLVvKSuc7Cq9ccH0j3gFcpLE76KiWlOP50aGZON6jr 60qC57JT8HPjPnd0
ihPLPjFUijvvZQFeofEHlvvHuTWfG+1l8Oo132fjP7GYhVDDJXBciCmwHyHA cvtcdqzADK6Nz1oD
RyXRs+6mFFPZp8QxeKgTw6ZA48+Bxq9xbrSXwavXjMavgcb/HEDjn8VU9ilx DDT+WeSN/3hCbKSn
HlPZ2HJwpTByl0rwVBCEigXmVlMsLB4obzHXKcZUoI1HeT8KLBSgc3l5tVdz KqGYnrvWm/HjCMKo
H3rKxuKLmIHeE3NNu81Ldr5Jl9GcjNzX0wgLd0mVAmY31TfStXGM60Yvjmks Nn5zE43rFZLFU2r9
/8tqK08aMgpB0ctU6of0tyjmXmTheq4Um4oRtHvgJTLqCIFX3UUIBHQEzziF ua/sjY1aUNxaMZoC
rqzHTwWVrcHYRFxhPVfdyFH3Suusx08FIleQ1zR6iWJ3IdbjNMK+MZ1COuZI 9ZRRb61XWMkSuIux
gO5/euwZtcAzxnFiI4fXg8+qMFUK1FdeCMx9l3rFSm6cEgde5laONK+Zi8Pz 2qw2dTHF2qtlYWcx
0fhNYzrJwLjgIsam8axQ9UQVLCwFx2ZVqXFz0TjSXKYxTREvmpYF47qxHqG+ bvWYFXGgCbJvzoWj
7uVF+N9Nf7rZVG/DqTLuryamlGau5gQ5yyhQX/ni4TFr1Fs9QZsJm5ZtGk+M sBa2uDUY143eIqd4
442fw3QXW3WoYKsp8GAG4QMOrgyMpuxwiil6CUFgFNChPAG3VMbCUQ84PN9h 90LVI2i76TVr5PAE
nlgj8D2e1sGMkDoueGmlhm78nKZGG4sd1G2ftYwaxbwnGgXqK28qhVfR2FgK b2tjKBZTN3KkNRy3
kP6TeYvVmknTmAK65opXijfe+GOlaY+9UncP9aWIXUxBmp1jIWm9Ek/AkYaN BQv1e1iLsFBqauRI
l8UTC0uQvaKpGFNBugsGdONPNdpY7KBrcUylsKRBzjIK1Fd+fyfGYdP4qbhu 5JjKZSL1qgs2d4GH
tKopTDT+4mzrxgUXMebGnfimYM3dQ1xhWklRKcamcSFUPT4v1RS0QtjiCtQT TYnTCHFVpjI1cqQF
BBZur8TZn8vCsmgEjX+hL9Ybv7n19MZfzFKfi8DU/jrLq24UgoUIpjtHJa8p 4EYznelVr7boIsax
IPWq4ORP9ZtjIeYDbWwzwYVReLUsVCowt8aCplJw41Quri8qzdRTXsE4TkGb YkExl/DiRj3gEMa4
ZlNQiWBWxceBe5CLu4iHnlIbuf1g8LxoK/fSYrMqLfaMIqmA2U15d/SM9WYp jF5wz0Ur4wpFELPs
hQm6JTFoI7dUxnUvM6NW8k1coMVxrqbCiq3aS2hMd1IKgRDrCAeD6ZVuNccc OoJnnELe+B8CO0tw
Osxi7qpCAHhW4GgnmK3a699Aimc6tJ4p7N0Cjf98oPEDF0Tl5YuAeOkMFpmt 61vDMX9ozeKZwt4t
0PhfCPdfIQBs4nhCJrwQzD59wea9iec+tJ4v8n3ijTR+AAAAAAAqQOMHAAAA gAsBjR8AAAAALoSJ
xn/iuyBxqBMTnYtDwRTEXu358QJZXiAFYS3XmhcAAMCbx8oX+KSIlWNroKkn 8rAfwYTZ1PVYyOKH
D4TNyqfc1w48AAAAIAUa/wROafym5SGwWfaU+9qBBwAAAKSIGv/xBHpIxlim NULfrGdz8tKCIDiJ
Y42wcJdUybcGFl6Ap/EsZPfq1IkqdWqlV3CaVz8UStPouZuWwLexLJUILSzG MwbjIBEAAMBjYe4V
Pz3UA88okD7PUha9NdYLo1aaAtNdjAOjsPBonsa0NCd7fcocgVIHnMobGL2q YqMYewIznSnWxnox
dSMAAMDjYq7xm2NtDJ4fKwFFnHqutIC6l5dUQG81vVKLZzQFlToD5XG7qoFG IFUuFNMyL29cj5DG
N431RAAAAI+FExr/waC3chwWtIswHuVcpnHKSytFHHPcrNReMabFM7Zy8cIl UB63q3rcguu1xYtm
jkUEbyu3c0E8no2gZdq4lggAAOCxsNv4UyOHtlfiVDQVYypIn9aFIM4ShDUT pcZ0dkVlWp5AJdqy
0UO8tm0yQtG4lggAAOCxcFrjP75BK7WLaU8TtUKu1FgvuzKFoM4glBm5OdE2 6wwqjMcLRrPCStnx
FLxxPULdvW4EAAB4XOSNP30GJI35dG+6mPaDwfMyc2mxDiK8YqNIyrcGFuHL 43M0H6aGxyEL39oU
UqWZIjXyh6Y9NprRuIUjyCU0QYRYGRtj98NJCgAAcP+Y+Oa+two8iZ8FrCQA AMD946KNH6/ezgJW
EgAA4LFw0cbfshvFQB1YSQAAgAfCdRs/AAAAAFwQaPwAAAAAcCGMxv8/NlYB 8m2lquUAAAAASUVO
RK5CYII=
------=_NextPart_000_003A_01C816EA.30E0DB20--
Attached files