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.

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Foro público de Xailer en español
Responder
Avatar de Usuario
jasm
Mensajes: 447
Registrado: Mar Jul 08, 2008 8:12 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por jasm »

De la mano de nuestro colega Pedro Amaro, Tactil_jasm, mi programa para
soluciones táctiles totalmente realizado con Xailer ha sido presentado
en la feria Lanzametal celebrada en el Complejo Indutrial de Teise en
Lanzarote del 16 al 19 de noviembre de 2006. Pongo esto aquí­ como
noticia relacionada con Xailer indirectamente.
--
Carlos Mora
Mensajes: 88
Registrado: Vie Jul 28, 2006 9:36 am

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Carlos Mora »

José Alfonso Suárez Moreno escribió:
> De la mano de nuestro colega Pedro Amaro, Tactil_jasm, mi programa para
> soluciones táctiles totalmente realizado con Xailer ha sido presentado
> en la feria Lanzametal celebrada en el Complejo Indutrial de Teise en
> Lanzarote del 16 al 19 de noviembre de 2006. Pongo esto aquí­ como
> noticia relacionada con Xailer indirectamente.
Aunque no esté relacionada con Xailer, yo tampoco ;) pero aun así­
¡Felicitaciones!
Carlos
miguel
Mensajes: 364
Registrado: Jue Jul 02, 2009 1:09 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por miguel »

Mis mas sinceras felicitaciones, te deseo prosperidad en tu proyecto.
Saludos. Miguel A. Torrellas
José Alfonso Suárez Moreno escribió:
> De la mano de nuestro colega Pedro Amaro, Tactil_jasm, mi programa para
> soluciones táctiles totalmente realizado con Xailer ha sido presentado
> en la feria Lanzametal celebrada en el Complejo Indutrial de Teise en
> Lanzarote del 16 al 19 de noviembre de 2006. Pongo esto aquí­ como
> noticia relacionada con Xailer indirectamente.
>
> ------------------------------------------------------------ ------------
>
Avatar de Usuario
jasm
Mensajes: 447
Registrado: Mar Jul 08, 2008 8:12 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por jasm »

Me olvide mencionar que el programa usa MySQL como motor de datos y que
el acceso a datos se realiza con una clase de mi cosecha que se sustenta
en las funciones de C escritas por Manu Exposito en Eagle 1 version 2.5.
Manu
Mensajes: 108
Registrado: Dom Sep 24, 2006 2:28 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Manu »

:-)
José Alfonso Suárez Moreno escribió:
> Me olvide mencionar que el programa usa MySQL como motor de datos y que
> el acceso a datos se realiza con una clase de mi cosecha que se sustenta
> en las funciones de C escritas por Manu Exposito en Eagle 1 version 2.5.
>
Thefull
Mensajes: 70
Registrado: Lun Oct 11, 2004 4:44 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Thefull »

José Alfonso Suárez Moreno escribió:
> Me olvide mencionar que el programa usa MySQL como motor de datos y que
> el acceso a datos se realiza con una clase de mi cosecha que se sustenta
> en las funciones de C escritas por Manu Exposito en Eagle 1 version 2.5.
>
Pues Jose, decirte que la nueva version es MUCHO MíS RAPIDA!!!
( Perdon por el Offtopic, no pude resistirme ;-)
Saludos
Rafa Carmona
Avatar de Usuario
jasm
Mensajes: 447
Registrado: Mar Jul 08, 2008 8:12 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por jasm »

> Pues Jose, decirte que la nueva version es MUCHO MíS RAPIDA!!!
> ( Perdon por el Offtopic, no pude resistirme ;-)
¿Y bien? ;-)
Thefull
Mensajes: 70
Registrado: Lun Oct 11, 2004 4:44 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Thefull »

José Alfonso Suárez Moreno escribió:
>> Pues Jose, decirte que la nueva version es MUCHO MíS RAPIDA!!!
>> ( Perdon por el Offtopic, no pude resistirme ;-)
>
> ¿Y bien? ;-)
Que te actualices ;-), jejeje.
Po dios, siempre terminamos en un dialogo de besugos....
Saludos
Rafa Carmona
Avatar de Usuario
jasm
Mensajes: 447
Registrado: Mar Jul 08, 2008 8:12 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por jasm »

Rafa,
No se a que te refieres con "MUCHO MAS RAPIDA", ya que para las
necesidades de mis clientes lo que tengo va bastante bien.
Ten en cuenta que yo solo hago uso de las funciones wrapeadas y algunas
de conversión de datos de Manu y me traigo la consulta a un array (son
consultas pequeñas).
Saludos
Jose A. Suarez
JESE
Mensajes: 10
Registrado: Mié Sep 14, 2005 10:49 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por JESE »

:-)
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:456211b2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Me olvide mencionar que el programa usa MySQL como motor de datos y que el
> acceso a datos se realiza con una clase de mi cosecha que se sustenta en
> las funciones de C escritas por Manu Exposito en Eagle 1 version 2.5.
>
>
JESE
Mensajes: 10
Registrado: Mié Sep 14, 2005 10:49 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por JESE »

:)
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:[email=4560d803@news.xailer.com...]4560d803@news.xailer.com...[/email]
> De la mano de nuestro colega Pedro Amaro, Tactil_jasm, mi programa para
> soluciones táctiles totalmente realizado con Xailer ha sido presentado
> en la feria Lanzametal celebrada en el Complejo Indutrial de Teise en
> Lanzarote del 16 al 19 de noviembre de 2006. Pongo esto aquí como
> noticia relacionada con Xailer indirectamente.
>
Thefull
Mensajes: 70
Registrado: Lun Oct 11, 2004 4:44 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Thefull »

José Alfonso Suárez Moreno escribió:
> Rafa,
>
> No se a que te refieres con "MUCHO MAS RAPIDA", ya que para las
> necesidades de mis clientes lo que tengo va bastante bien.
>
> Ten en cuenta que yo solo hago uso de las funciones wrapeadas y algunas
> de conversión de datos de Manu y me traigo la consulta a un array (son
> consultas pequeñas).
Como digo, dialogo de besugos.
Jose A., te recuerdo que yo estaba usando TU CLASE TQUERY , con las
funciones de C de Eagle1, pues bien, la version 5 de Eagle1, SUPERA EN
MUCHO la velocidad a la hora de devolver valores de una consulta, etc...
además que simplifica todaví­a mucho más el código fuente.
Haz la prueba, y te aseguro que te llevas una sorpresa, yo me quedé
pasmao en la diferencias de tiempos y en su implementación.
Te lo digo para que le saques provecho a tu aplicación y me sabes
por los cerros de íšbeda, la próxima vez, no te preocupes hombre,
que no te diré nada, pa que sigas a tu rollo... y como para las
necesidades de tus clientes es más que suficiente, si le pones el
programa en Clipper/DOS, también,( y de sobras ), lo tendrí­an resuelto.
Saludos
Rafa Carmona
Avatar de Usuario
jasm
Mensajes: 447
Registrado: Mar Jul 08, 2008 8:12 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por jasm »

¿Ves?
Estamos como siempre buscándole tres pies al gato. Y al final terminan
por tirarme de la lengua y hacerme decir cosas que pueden molestar a
otras personas. Pues bien, yo no uso el sistema de clases de Manu por
que es un grandí­simo enredo (siempre a mi entender) y a mi me gustan las
cosas sencillitas. Espero no se moleste nadie.
Thefull
Mensajes: 70
Registrado: Lun Oct 11, 2004 4:44 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Thefull »

¿ Pero que 3 pies al gato ? ¿ De que hablas ?
Definitivamente, diálogos de besugos.
En fin, lo dejo , que esto es un foro de Xailer ...
Enhorabuena por la aplicación realizada en Xailer.
Saludos
Rafa Carmona
Avatar de Usuario
jasm
Mensajes: 447
Registrado: Mar Jul 08, 2008 8:12 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por jasm »

thefull escribió:
> ¿ Pero que 3 pies al gato ? ¿ De que hablas ?
> Definitivamente, diálogos de besugos.
>
Sí­.
> En fin, lo dejo , que esto es un foro de Xailer ...
>
Tambien.
> Enhorabuena por la aplicación realizada en Xailer.
>
Gracias.
Saludos
Jose A. Suarez
Manu
Mensajes: 108
Registrado: Dom Sep 24, 2006 2:28 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Manu »

//---------------------------------------------------------- ------------------//
// AUTOR.....: Manuel Expósito Suárez Soft4U 2002-2006 //
// eMail.....: manuexposito@gmail.com //
// CLASE.....: Pt03.prg //
// FECHA MOD.: 11/08/2006 //
// VERSION...: 5.00 //
// PROPOSITO.: Ejemplo de mantenimiento simple de una tabla //
//---------------------------------------------------------- ------------------//
//-- Definiciones ------------------------------------------------------------ //
#define B_BOX ( CHR( 218 ) + CHR( 196 ) + CHR( 191 ) + CHR( 179 ) + ;
CHR( 217 ) + CHR( 196 ) + CHR( 192 ) + CHR( 179 ) + " " )
#define ID_CONSUTA 0
#define ID_MODIFICA 1
#define ID_ALTA 2
#define ID_BORRA 3
//-- Includes ------------------------------------------------------------ ----//
#include "InKey.ch"
#include "Eagle1.ch"
//-- Modulo principal --------------------------------------------------------//
procedure main()
local cHost := "127.0.0.1"
local cUser := "root"
local cPwd := "root"
local cDb := "E1Prueba"
local cTable := "Test"
local oCon, oDb, oTb
SET DATE FORMAT TO "DD/MM/YYYY"
cls
// Creamos objeto conexion
oCon := TMSConnect():New()
// Intentamos la conexion
if oCon:Connect( cHost, cUser, cPwd )
// Establezco la Base de datos para usar y creo el objeto database
oDb := oCon:DataBaseByName( cDb, .t. )
// Compruebo si la BD ya esta establecida como la de "por defecto"
if oDb:Used()
// Creo el objeto Tabla con DataField
oTb := TMyTable( cTable ):New( oDb, cTable )
// Establezco el relleno de espacios (menos optimo)
oTb:SetReadPADAll( .t. )
// Abro la tabla
if oTb:Open()
// Si no hay registros insertamos uno para que funcione el Browse
if ( oTb:RecCount() == 0 )
// Si no hay datos al meno introducimos uno...
// Llenamos el buffer con los valores
oTb:aBuffer := { , "Manu", "Exposito", ;
"Formentera", "SE", ;
"41700", date(), .t., ;
42, 150000, "Mi priemer registro..." }
// Inserto el registro y traigo el resultado al cliente
oTb:Insert( .t. )
endif
// Abrimos el Browse
GestBrw( oTb )
endif
// Liberamos la memoria ocupada por el objeto tabla
oTb:Free()
endif
endif
// Liberamos la memoria de la base de datos y de la conexion
oDb:Free()
oCon:Free()
return
//-- Modulos auxiliares ------------------------------------------------------//
//---------------------------------------------------------- ------------------//
// Gestion completa de una tabla MySQL
static procedure GestBrw( oTb )
local oBrw, oCol
local lEnd := .f.
local nKey, n, nFld
oBrw := TBrowseNew( 1, 0, MaxRow() - 1, MaxCol() )
oBrw:colorSpec := "W+/B, N/BG"
oBrw:ColSep := " ³ "
oBrw:HeadSep := "ÄÅÄ"
oBrw:FootSep := "ÄÁÄ"
// Asignamos los bloques de codigo de movimientos del cursor
// de datos
MySetBrowse( oBrw, oTb )
nFld := oTb:FieldCount()
FOR n := 1 TO nFld
oBrw:AddColumn( TBColumnNew( oTb:FieldName( n ), GenCB( oTb, n ) ) )
NEXT
cls
@ 0, 0 SAY PadC( "Ojeando la tabla: " + ;
upper( oTb:cName ), MaxCol() + 1, " " ) COLOR "W+/G+"
@ MaxRow(), 0 SAY "INSERT" COLOR "GR+/R+"
@ MaxRow(), Col() + 1 SAY "Altas" COLOR "W+/R+"
@ MaxRow(), Col() + 1 SAY "ENTER" COLOR "GR+/R+"
@ MaxRow(), Col() + 1 SAY "Modifica" COLOR "W+/R+"
@ MaxRow(), Col() + 1 SAY "SUPR" COLOR "GR+/R+"
@ MaxRow(), Col() + 1 SAY "Bajas" COLOR "W+/R+"
@ MaxRow(), Col() + 1 SAY "F4" COLOR "GR+/R+"
@ MaxRow(), Col() + 1 SAY "Ordena" COLOR "W+/R+"
@ MaxRow(), Col() + 1 SAY "F5" COLOR "GR+/R+"
@ MaxRow(), Col() + 1 SAY "Busca" COLOR "W+/R+"
@ MaxRow(), Col() + 1 SAY "F6" COLOR "GR+/R+"
@ MaxRow(), Col() + 1 SAY "Siguiente" COLOR "W+/R+"
@ MaxRow(), Col() + 1 SAY "ESC" COLOR "GR+/R+"
@ MaxRow(), Col() + 1 SAY "Salir" COLOR "W+/R+"
while !lEnd
oBrw:ForceStable()
nKey = InKey( 0 )
do case
case nKey == K_ESC // Salir
SetPos( MaxRow(), 0 )
lEnd = .t.
case nKey == K_DOWN // Fila siguiente
oBrw:Down()
case nKey == K_F3
oTb:SetReadPADAll( !oTb:SetReadPADAll() )
oBrw:Configure()
case nKey == K_F4 // Establece el orden
if ElOrden( oTb )
oBrw:goTop()
endif
case nKey == K_F5 // Busca valor en columna
if BuscaValor( oTb )
Alert( "Encontrado..." )
else
Alert( "Valor no encontrado..." )
oTb:GoTop()
endif
oBrw:RefreshAll()
case nKey == K_F6 // Busca siguiente columna
if oTb:FindNext()
Alert( "Encontrado..." )
else
Alert( "Valor no encontrado..." )
oTb:GoTop()
endif
oBrw:RefreshAll()
case nKey == K_UP // Fila anterior
oBrw:Up()
case nKey == K_LEFT // Va a la columna antrior
oBrw:Left()
case nKey == K_RIGHT // Va a la columna siguiente
oBrw:Right()
case nKey = K_PGDN // Va a la pagina siguiente
oBrw:pageDown()
case nKey = K_PGUP // Va a la pagina antrior
oBrw:pageUp()
case nKey = K_CTRL_PGUP // Va al principio
oBrw:goTop()
case nKey = K_CTRL_PGDN // Va al final
oBrw:goBottom()
case nKey = K_HOME // Va a la primera columna visible
oBrw:home()
case nKey = K_END // Va a la ultima columna visible
oBrw:end()
case nKey = K_CTRL_LEFT // Va a la primera columna
oBrw:panLeft()
case nKey = K_CTRL_RIGHT // Va a la ultima columna
oBrw:panRight()
case nKey = K_CTRL_HOME // Va a la primera página
oBrw:panHome()
case nKey = K_CTRL_END // Va a la última página
oBrw:panEnd()
case nKey = K_DEL // Borra fila
Borrar( oTb, oBrw )
case nKey = K_INS // Inserta columna
Insertar( oTb, oBrw )
case nKey = K_ENTER // Modifica columna
Modificar( oTb, oBrw )
endcase
end
return
//---------------------------------------------------------- ------------------//
// Crea los codeblock SETGET de las columnas del browse
static function GenCB( oTb, n )
return( { || oTb:FieldGet( n ) } )
//---------------------------------------------------------- ------------------//
// Pantalla de datos de la tabla
static function PantMuestra( oTb, nTipo )
local GetList := {}
local cTipo, cId
do case
case nTipo == ID_ALTA
cTipo := "Insertando"
cId := "nuevo"
case nTipo == ID_BORRA
case nTipo == ID_CONSUTA
case nTipo == ID_MODIFICA
cTipo := "Modificando"
cId := StrNum( oTb:Id )
end
SET CURSOR ON
DispBox( 3, 2, 18, 74, B_BOX )
@ 04, 03 SAY cTipo + " registro en tabla " + oTb:cName + " - Numero: " + cId
@ 06, 03 SAY "First....:" GET oTb:First PICTURE "@K"
@ 07, 03 SAY "Last.....:" GET oTb:Last PICTURE "@K"
@ 08, 03 SAY "Street...:" GET oTb:Street PICTURE "@K"
@ 09, 03 SAY "City.....:" GET oTb:City PICTURE "@K"
@ 10, 03 SAY "State....:" GET oTb:State PICTURE "@K"
@ 11, 03 SAY "Zip......:" GET oTb:Zip PICTURE "@K"
@ 12, 03 SAY "Hiredate.:" GET oTb:Hiredate PICTURE "@K"
@ 13, 03 SAY "Married..:" GET oTb:Married PICTURE "@K"
@ 14, 03 SAY "Age......:" GET oTb:Age PICTURE "@K"
@ 15, 03 SAY "Salary...:" GET oTb:Salary PICTURE "@K"
@ 16, 03 SAY "Notes:"
@ 17, 03 GET oTb:Notes PICTURE "@K"
return( GetList )
//---------------------------------------------------------- ------------------//
// Inserta una fila
static procedure Insertar( oTb, oBrw )
local GetList := {}
local cPant := SaveScreen( 3, 2, 18, 74 )
oTb:Blank()
GetList := PantMuestra( oTb, ID_ALTA )
READ
set cursor off
RestScreen( 3, 2, 18, 74, cPant )
if LastKey() != K_ESC .and. Updated()
if oTb:Insert()
Alert( "Tupla insertada" )
if Alert( "Refresca el Browse?", { "Si", "No" } ) == 1
oTb:Refresh()
oBrw:goBottom()
oBrw:RefreshAll()
endif
endif
endif
return
//---------------------------------------------------------- ------------------//
// Modifica la fila actual
static procedure Modificar(oTb,oBrw )
local GetList := {}
local nRecNo := oTb:RecNo()
local cPant := SaveScreen( 3, 2, 18, 74 )
oTb:Load()
GetList := PantMuestra( oTb, ID_MODIFICA )
READ
set cursor off
RestScreen( 3, 2, 18, 74, cPant )
if LastKey() != K_ESC .and. Updated()
if oTb:Update()
Alert( "Tupla modificada" )
if Alert( "Refresca el Browse?", { "Si", "No" } ) == 1
oTb:Refresh()
oTb:GoTo( nRecNo )
oBrw:RefreshAll()
endif
endif
endif
return
//---------------------------------------------------------- ------------------//
// Borra la fila actual
static procedure Borrar( oTb, oBrw )
local nRecNo := oTb:RecNo()
if Alert( "Realmente quieres borrar el registro?", { "Si", "No" } ) == 1
if oTb:Delete( , 1 )
Alert( "Borrado en el servidor" )
if Alert( "Refresca el Browse?", { "Si", "No" } ) == 1
oTb:Refresh()
oTb:GoTo( nRecNo )
oBrw:RefreshAll()
endif
endif
else
Alert( "Mo se ha borrado..." )
endif
return
//---------------------------------------------------------- ------------------//
// Establece un nuevo orden de visualizacion
static function ElOrden( oTb )
local i := oTb:FieldCount()
local aFld := Array( i )
local n, lRet
FOR n := 1 TO i
aFld[ n ] := oTb:FieldName( n )
NEXT
DispBox( 5, 9, 10, 25, B_BOX )
i := 0
i := AChoice( 6, 10, 9, 24, aFld )
if lRet := ( i > 0 )
Alert( "Ordenado por la columna: " + StrNum( i ) + " " + oTb:FieldName( i ) )
oTb:SetOrder( i )
endif
return( lRet )
//---------------------------------------------------------- ------------------//
// Busca un valor de una columna
static function BuscaValor( oTb )
local GetList := {}
local nCol := 0
local lRet, uVal
DispBox( 5, 5, 8, 75, B_BOX )
@ 6, 10 SAY "Entre numero de columna:" GET nCol PICTURE "@K"
READ
uVal := oTb:FieldGet( nCol )
@ 7, 10 SAY "Entre valor buscado:" GET uVal PICTURE "@K"
READ
lRet := oTb:Find( nCol, uVal, .t. )
return( lRet )
//---------------------------------------------------------- ------------------//
--
Thefull
Mensajes: 70
Registrado: Lun Oct 11, 2004 4:44 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Thefull »

Gentes de Xailer, perdon por el off-topic:
Bueno, le damos mas vidilla al foro , ejem.. )
Manu, no te lo tomas tal mal , hombre ;-)
Te puedo asegurar que yo pienso o pensaba exactamente igual que Jose A.
Es decir, a mi, me resultaba MUCHO mas sencillo de usar la clase TQuery
que la jerarquia de clases de Eagle1.
Ahora bien, no se como estaba en la versión 2.5, pero el usar la clase
TQuery era y es sumamente sencillo.
Pero, es que la versión 5 de Eagle1 , además de ser tan sencillo y
simple, como la Tquery, es además mucho más rápida.
La respuesta, como le dije a Jose A., es también en gran medida, en que
la clase TQuery "monta" o rellena el array al nivel de PRG, mientras que
usando las clases de Eagle1, esto ocurre a nivel de C, y la diferencia
es MUY NOTABLE.
Si no lo sé, coño, no digo na....
Saludos
Rafa Carmona
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por jfgimenez »

This is a multi-part message in MIME format.
------=_NextPart_000_00A0_01C70E71.7BAC6F20
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_00A1_01C70E71.7BAC6F20"
------=_NextPart_001_00A1_01C70E71.7BAC6F20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Manu,
> Me haces hablar a la fuerza
Jo! A m=ED tambi=E9n me haceis hablar a la fuerza ;-)
> Por favor opinen si "esto" es un "grand=EDsimo enredo". Si pod=E9is =
emitir=20
> una opini=F3n aqu=ED en este hilo os lo agradecer=EDa.
Pues depende.... comp=E1ralo con este otro ejemplo:
CLASS TForm1 FROM TForm
COMPONENT oCdxDataSource1
COMPONENT oDbfDataSet1
COMPONENT oLabel1
COMPONENT oDBEdit1
COMPONENT oLabel2
COMPONENT oDBEdit2
COMPONENT oDBEdit3
COMPONENT oLabel3
COMPONENT oDBEdit4
COMPONENT oLabel4
COMPONENT oLabel5
COMPONENT oDBMemo1
COMPONENT oLabel6
COMPONENT oDBComboBox1
COMPONENT oDBCheckBox1
COMPONENT oDBLabel1
COMPONENT oLabel7
COMPONENT oDBComboBox2
COMPONENT oLabel8
COMPONENT oDBComboBox3
COMPONENT oLabel9
COMPONENT oDBDatePicker1
COMPONENT oDBNavigator1
METHOD CreateForm() CONSTRUCTOR
METHOD DBComboBox1Create( oSender )
ENDCLASS
#include "Form1.xfm"
//---------------------------------------------------------- -------------=
-------
METHOD DBComboBox1Create( oSender ) CLASS TForm1
oSender:aItems :=3D ::oDbfDataSet1:SaveToArray( "state" )
RETURN Nil
//---------------------------------------------------------- -------------=
-------
y lo que est=E1 entre CLASS y ENCLASS lo genera autom=E1ticamente =
Xailer, as=ED como la declaraci=F3n del m=E9todo. Vamos, que s=F3lo ha =
habido que escribir 1 l=EDnea; s=ED, digo bien, 1 l=EDnea ;-)
El ejemplo en concreto es xailersamplesdatacontrolsdbfdata5, y =
aunque est=E1 hecho para dbf, es exactamente igual con ODBC o ADO. Para =
quien no quiera entretenerse, aqu=ED teneis un pantallazo:
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
http://www.xailer.com
------=_NextPart_001_00A1_01C70E71.7BAC6F20
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Manu,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Me haces hablar a la =
fuerza</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Jo! A m=ED tambi=E9n me haceis hablar a =
la fuerzaÂ=20
;-)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><BR><FONT face=3DArial size=3D2>> Por favor opinen si "esto" es =
un=20
"grand=EDsimo enredo". Si pod=E9is emitir <BR>> una opini=F3n aqu=ED =
en este hilo os=20
lo agradecer=EDa.<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Pues depende.... comp=E1ralo con este =
otro=20
ejemplo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>CLASS TForm1 FROM TForm</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ COMPONENT=20
oCdxDataSource1<BR>ÂÂ COMPONENT oDbfDataSet1<BR>ÂÂ =
COMPONENT=20
oLabel1<BR>ÂÂ COMPONENT oDBEdit1<BR>ÂÂ COMPONENT=20
oLabel2<BR>ÂÂ COMPONENT oDBEdit2<BR>ÂÂ COMPONENT=20
oDBEdit3<BR>ÂÂ COMPONENT oLabel3<BR>ÂÂ COMPONENT=20
oDBEdit4<BR>ÂÂ COMPONENT oLabel4<BR>ÂÂ COMPONENT=20
oLabel5<BR>ÂÂ COMPONENT oDBMemo1<BR>ÂÂ COMPONENT=20
oLabel6<BR>ÂÂ COMPONENT oDBComboBox1<BR>ÂÂ COMPONENT =
oDBCheckBox1<BR>ÂÂ COMPONENT oDBLabel1<BR>ÂÂ =
COMPONENT=20
oLabel7<BR>ÂÂ COMPONENT oDBComboBox2<BR>ÂÂ COMPONENT =
oLabel8<BR>ÂÂ COMPONENT oDBComboBox3<BR>ÂÂ COMPONENT =
oLabel9<BR>ÂÂ COMPONENT oDBDatePicker1<BR>ÂÂ =
COMPONENT=20
oDBNavigator1</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ METHOD CreateForm()=20
CONSTRUCTOR<BR>ÂÂ METHOD DBComboBox1Create( oSender =
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ENDCLASS</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>#include "Form1.xfm"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
size=3D2> //---------------------------------------------------------- ----=
----------------</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD DBComboBox1Create( oSender ) =
CLASS=20
TForm1</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ oSender:aItems :=3D=20
::oDbfDataSet1:SaveToArray( "state" )</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>RETURN Nil</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial=20
size=3D2> //---------------------------------------------------------- ----=
----------------<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>y lo que est=E1 entre CLASS y ENCLASS =
lo genera=20
autom=E1ticamente Xailer, as=ED como la declaraci=F3n del m=E9todo. =
Vamos, que s=F3lo ha=20
habido que escribir 1 l=EDnea; s=ED, digo bien, 1 l=EDnea =
;-)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>El ejemplo en concreto es=20
xailersamplesdatacontrolsdbfdata5, y aunque est=E1 hecho para dbf, =
es=20
exactamente igual con ODBC o ADO. Para quien no quiera entretenerse, =
aqu=ED teneis=20
un pantallazo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:009b01c70e69$19e0db30$[email=07001aac@ACER]07001aac@ACER[/email]" align=3Dbaseline =
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV><FONT face=3DArial =
size=3D2>
<DIV><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV>Jos=E9 F. Gim=E9nez<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></FONT></DIV></BO=
DY></HTML>
------=_NextPart_001_00A1_01C70E71.7BAC6F20--
------=_NextPart_000_00A0_01C70E71.7BAC6F20
Content-Type: image/png;
name="dbfdata5.png"
Content-Transfer-Encoding: base64
Content-ID: <009b01c70e69$19e0db30$[email=07001aac@ACER]07001aac@ACER[/email]>
iVBORw0KGgoAAAANSUhEUgAAAgQAAAF8CAIAAAA/+TTwAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAASt5JREFU
eF7tnQmYFNW5/ot9MNFLxPCXiBijKFE0QExcEFdwYxEUFBcQkE1kUSRuMYqJ 3piE3GtuzOZN7tUn
uVlUJC6AuGBQQVBgWHWAGRhmnwEGZunuWeH/nj49h6Kqurq6urqnuvvl+Z6h uvrUqVNv1/l+9Z1z
6pwOR48e1dr+3X3fpv8r1jp06IQdR5u7id2dOkS+7Jojtrt10jp30lpa8bdD p05HW49qLUe0jh21
jpp2pC2XFnzgvwxQQNwG/JfeCnRoSu/ys/TCF+trIrZbj1OlUX7CD91Va2rR uoYdcVNHrWtnsU9r
EdYcduNd4Oo7hxN31pqPao0VB17pelxWgIH812HkZljXmfXdFrT2fPzoN34s 7Kxnj577y6ODFh8d
9MLRy34lbOhvhF35u6gmE9DSXQGbn5hfpYsC6X4TsvyW/hY7pStWf6VzNptw 3ccbXDoMHr7rnBbt
yq3aoLUHKvOkaYoEHSdWggQd59R0W3gESRUPzvzZURiQcP7zxwxskKbfyW0q QAWoABXwVgH4Xmky
W7ktfbp8WJcuWhl26j/Kx3pl0rfDus1vhWkT6rQhW1/7+x9gAgba1Z9pY4q0 W3d1mL4fps08KA1g
6DQv0Gl+E/CgPdTaacFRmNzGX7VTbsidXR88gsBCpqRRASrQvgp0mHOElu4K 4BbCJUgPLD2ttA6z
mzpOb+w0q77T9JoOkwPaPbXaneG/d9XiY2TP5GpN2t0HxF98O75Km7BfGPbA xhVr127ThuY/OH9a
GwxGbNTu3HvMJpVrUyslGIAEaQIMUUx8izIpm16D8tGoABWgAlTAewXuPdAJ NmV/hylVaNGBaXeW
axPKhI0vjRi8vLRb9wkbUwjrMCpfuwmWp13/pTBsgAQXf66d+mq483jwavE1 YHDrrohJKoR5oJAQ
CRfuq9WUtQUQ+EpgQ48gyRxaeitQqd1NowJUwAcKwNcbTPp9k69vc/dtTh/u Xpr0/nD9MHQVDN0Q
MZAACIB9/aUwDGBXf4be42gwkM1H+hYkCQCxBwHElCptUqUw+A5ZYskoGhWg AlQgsxTocmfpjN/u
Lz3YrIbeONzAUThWekX3mbywv8tt4ef9MUVdbimc8avy0gPxl+Sne7sM2SAC gkFrhfM/b4V2zmth
GJz9VysYlOgjAwUDBQAdA8pFSkUtQ6iiYhZupJ0CKszkRvoqIJsIaN4pMOPX lfmlrQ+92DB5cWj8
M8FRTwZveDxwzcOBYY8GrnhI2JAHhX13Tj1s4Oz6/tPqz5h46KKZhVt31+JY +Vskmgm6eMcIEjTt
y9//i4cqfzi5/MHxZbNHlc64oWTKNSX3Diu55wpY8d1DYEW3fVfYrQMLR/XP H37G5lsvOpS3dcZP
9woSSBh8a6WgwEk/0tBaJD4P3dBxuD4yEDAQj/zhB//OU0ojPJhSpXYeFwro o4H0rTksORXIMAW8
c4IkilQAccDDf2x4fmnjC282Pvu3hh/8sWHe7xpm/VdoxvOhqf8RumdxaNIv Qnc8F7zt2eCYHwdv
fCJw5Q8Cg++vPevu4oF3r8FTvDeZhDsAUJIDv3z40J+fP/zXF6pffHb/L39Q 9dN5VU/PqnxqRuUT
Uyseu6fisUkVP7ijfMFtZfPGlM66sWTylYXjB2++7qzlIwaWVjVFIoMB6yxg IFqU0G0gOgzCYcEk
gYEwCSpOuKdIdlbI/opj7UKWTUNp9wjMAlsqkGFuMTsvhzDwWgG44OnPh373 duOLK5p+9krj4y81
LHixYe5vwIOG6f8peDDll6GJPw/d8dPgLT8JjnwyeO0jgYvn1fa/p/jr160U nbRtREkoE8BghIBB
5VPTD//jdzWvvVj9p58d+NXj+3+xoOrZuZVPz6p4cjp4UPnDKRWPTKxYeEfZ /FtKZ48suffafXdc
vPWm/q989+uiJGgmggEG31yniwwQLKBLAZ0MOAfqDB7z0fof7gaA3+89s7jD lErAQN95Lfqv9SQw
92XTw1IBKkAFMk4BuNEJ/x4EBn65pPGpPzc8+IeG2b9umPYfoUkAwL+Hxv04 OHZRcMQTgZueEA1H
CAsuW1B/0Zza86YUn3rDe8IFhwVJNJNRxRIGFQsnAAOHXv7lwd88tf/nD1b9 ZHblj6ZVPDqp/KE7
yuePK5s7tnTWiNJZN4mGo8lXFt99WeFtF20ded5r3z9VlOT7W4VJGKDPINJM ZAuDKY9v6HLnTu3E
b2r/1k876awO507peHeZ1uNc7aSzta+dz96CY2O5Mu6+56VRASpgUABu9JYf Bx/734YnXhYkmPmr
hsloF3o2dOvTwVE/DF73SODqhwKXza+/ZB4YUD94Tv2g++sH3lczYGrJ6SPf 18NAn0nMLmhjJm0w
KJ9/y4FfPXbg10+ABKENHyGf8gV3lM+9tXTWqJJp15Xcc3XxXZcV33EJ9te9 t6Ro/KC9tw7cNnrA
kstOjwKDb7wvgoUhiAzyRQgDjxaODOSzPyKDD57+rQwLtM7dtZPOxIYY2Trq Xx0GzIuMb9WNIIp5
VQ1NRzbvbfLqDkNWyFCES4dbFr9Z51W2MfPZt78Z542ZDAlUCXeWNjtJ7yKN 88K4yJyHpLcCY0s1
mqcKwNug0xj9BA+EY4KpixvuQkCwKAQSXP9I8KoFIEHgorn1A++vv+C++gH3 BS64L3DhfbUD7i2N
wCBcGEMmMd2mMZM2GKDTeP9P5+3/+QOICVQmYRJcX3LPVSBB0W0Xqf1Ft1yw 95YLt42ygkGkAxkw
QLBwVXhcKtqIAIM7KmQzEUgA1185c4KEQad7SjGrUccxHwkGdO0hX3YQ20gv LTyU6IRTfwKTJZDb
+o/zHl5WU9fY0NhqX8c+3dl4OBAjDdwxbNGfCruf99Ku/APrt1Z3GbUz3qrr 5ETmPOXV4bz2p4Ob
RjKU8Pn/3d7Q0LyrKBBv8Zykd1gYJ1kxDRWgAvYKoLpd91gAPQQgwfT/bJj0 s9DtPwmNeTJ402PB
a38QGPpg4Pvz6r9zf+D8+wL9ZwbOnRE4b1ZgwH21500t6TPyA31koM8kJgyM mbTBoHT6deghEK1D
T06veGSSyqdkyrUlE4cWT/j+MRKMPrdozHmFYwdsG3Xekkv7iJJckic8/7c3 65qJ9DAAtSIwCL+7
PLm669QDe0ZchbfdutxbDet00ZPgQYf/d0mniQf0JuCh44FsFJMwUG1k6uMf 363F9ta8gzaiRxzc
wFejpYETR5oP15XBI3e+OR/Jcoau6nbNp/HeyjFPZJmh4eqinVQlQwkBKhQV hYy3hDHTOyxMzHyY
gApQgZgKSBhgXOnUX4oGort+in6C0Ogngtc/Grx6YeCyBwMXzau/4P5A//sC Z88MfGtGoN/MwLdn
1X773pLTRhhhoDJBnjaZ4FtjJiMifQaAQcXjkyswdgh/F95VPm+c8v7oIThG glFnF434VtGofoVj
vr195Ldfv/S0CAy+lxcFBhi7ikd7GRbIiSwmV//uF+9tvXiwJIE0rctXOvS9 0QSDA2KyCxUijK/S
eagqzIZh/lhT25Bz1Vp8hQhAfrtvf8sTf6tXieVOMZOGVRp51NPPfdhteK5M o2zz3shbGNhQO5EY
DTWyTcnmRPKkODAcl4g8o+Um2fbi+8HKw6IkSC8LrzdZyK3bKyz3G0rywTYR DMmdi98M4K8hW1k2
lUZ/abIw0UprODs/UgEq4FoB1LXLF9RjsBCGDE38meg0Rm/B6CeD1z8euPrR wGULAxctCAyYHzh3
TuCs2cFv3hf81qxAv/tq+00t6z1ilXJohkzw0SYTfGvMBJHBqGLsL554OQYL iSFDD09Eb0HZ/FtL
7x8tHYX6VzL23JKbzyoe+c3iUd/ad3O/HTf1W3pxb1ESRAaAgQwO8N6Z6EBG VzL2Xlci2hblHEZh
EnSaXAOr+9UjGwZdiLk1MKGpMLx28O2pCA46jd0gEygqiKPk/Edhk0URHir6 x+6Dl8hvsQG3jvSV
1Y2dbwGTjh2ucjCkUfnL9Mo+3dWEr15Ztf9//rIJG+t21OoLsOiPe5//3x3Y X1QRsjyRzPaVpdv/
9HYFzmifG8om6TL3uW1V++uXrS4zFObFD0INjcKn19Q3Y1tfTsvL+ceH1Yt+ s12W4cn/q170Yr44
tq7JUFScCPu37D7u0lCYzYWCgsvWVstr35Jfrz9j3NvHg8115eGBVCCTFEDN unhe/ding7c/K0iA
v7eg6xgw+GHw6seCQx4JXLQwMGBB8Jz5wW/NDfa9P3jG7OCZs+vOnFrW68bj YKDPBHnaZIJvjZmM
3S87HorvuLh87tiKBbdXYPjQg7eXzbtFvHo283pFgtLbB5Teek7pmG+Vjupb OuqMotFnfnHjmUu/
10vAYGi+dtlOwQPAAKOJev7ieBi0kQCT22HSu0WPv39g9u0bvjcIM9BJGAAD +NtpwCzBAwmDsGGe
PGETqpXpYCB22nyEC5MuVf7rfvEKc3pzGkOG6rwyK3jGriN3YQMt9d2GbdJn 2PmWEnlszpBVNgXD
4V1H74mZ2+GAON2vfvdp53EVKHm3G7/Qi4Dt+3+7v6isXp7xHx/VyW9tLkcW W16CKmr3wa8biiov
Leea9fr9qrQohj6BoUj8SAWogGsFULMG318/4keBcT8J3vZMaPxPQhgXNGpR 8IYfBa95Inj548GL
Hg1e8HDwnIdCZz4Y6jM/2GdusM/s+j5Tyk6+4UPhgsMewJAJPtpkgm+NmQgY iCfmonGDS+8bUf7A
uPIHb6t4YDwGF5XNGaV8qdwoH39O+S1nlo3uUzaqT/HIPl9c1+ef3z1ZlGRI kTakUMDgrC9EZCBg
cAYmLcoXkQF6CyQMwiToMiVwGENWr7wkDIOmrrMbO/Qe0nVWHTYkFTr0ua7T lKA0MV0qZk+FSSrc
JXoFpEczf3zilQZ8hUdpfLtvv2gYeWXVwe4D/qI/RL9tmUZ6YZW/5XllJsjZ UJ5oJ7IvtmVuuBY8
ueMrtEFhWxVDv9H59v1bdtdJ79x1dIHl5UQrkv1+w6UZbgJ17Zal4s6sUACz 1dM8VQDV6vwZ9XiH
YPRTQXjwW38SHAsYPB264angtU8Fhz4Z/N4TwQseD53zSOjMhaHTHgydOi90 6uz6XveU/9v1/xIu
OFwYQyb4aJMJvjVmMr5GG3sY+/fdfD7eISi7fzQwUD7/1rJ5Y5UTKJ8+VG4f CdRUjDuzYsxp5aNO
Lbnp1C+v6fXmoH8TJbm6Qrtqn+DBhfkCBl//rzAM8FnAoEqSQMBgWmP+3FlV d4+sHHn1tou+033i
3g49LxDRwMVPAwadr3xB6yQWxezQ9yYxobYOCXIebZjyYuaPb+WKlpMPP97b fci7KlnXW8Q7FNK/
Gw63TLN5X5giS7erM8oN9XQsM4H/tcnQvpwOc+tyx/5lH5WLczW2YttQHoMg 3S/4P8vLiXntZk3M
l6auXQ3iktfuziJ0l4ynUQEqEFYAVbXf1LqhD9Xf8MPA6EVB8xMY9lzwROic xxq++Uio90OhXvND
Pe+r7zGx4oRhHwoXHCWT0U8HRywKXv9U8Jqngpc/Ffz+UyGVCY4yZgIYjK/B /sIR/YonDS2deUPZ
nNFlc8ccI8Gsa8qnX14x9dhoosoxvStG9iq5vmfelT3euOCECAzAA8QHx2CA GEHAoApxR4QEkwMr
Xlq55tZ7bp606sQ5wRPnNnW6vxlrpJkNEQMMPICBHzBtcsSUd5N71McnlohG IbwWAD/VbdQu6dPR
YfBmbqQbGdtIr/wati3TzHq5Gc4XvdD3/x4d3Y07y48gGTY+zY9AQma4fkNx 9wv+qi+AYVt/IsNX
Nrmpo/YdOIIzygPhneW5lKFIlTVH8BFXjQToSRYt+1aXrJcr5ra8NOQmT6cK 88EXYj8oiwTYKQtG
owJUwEMFUMX6TqzD+FFMTnfjDyNPvQYkXPCjUL/HG/o+0vD/Hmr42tzQiTPq v3JHederw5FBmz80
ZHLTk6EbngwOfyp49aLgkKeC3wMM2jLBUcZMEF6MF43Pe4f3LZrw/ZKp15TO vFGVoWzW8PKZV5dP
G1Ix9XtVky5Q+ytv+lrZsBO/HPKVN87vKkpy/SHh9iUPxBTWiAwkDEZg3mkB AzxFzvzxF52mNcDL
n/xQw2/+/PdvTF51/pS/Tf/Rr3/+14/H/+7gSQua5XppsNc/WNdx9hEY1tyB adNbYZIKxx51dR+x
83DwyKodTd2/89fuQ9+XKbcUCLqu2928Za84Cp2fXSZW/229iB7wzybNk0sa dhUKPOIffO6fllfl
3LhZZLgnJHeu2xmC880ZtcNQHn3ZDCcyFDtabv/9UQt6hpe9u1MdjgIAY7gu WWBpTyxtLqoMc6Lp
CC5QFEaW0HTJ+vPab4N/SACtVG6qMMj5wy0BMAkJagKti17YIq+dlrUKaJNb aN4qgMp16h11F86q
v+zB+msesYbBeU80nP14w+mPNHz9oYaT5jR0v7e+y23lHa/8MAwD8Ys4yUQ5 cWwYM7m7UbtD+IE9
V526b+yFGEUKHgRWL8OesunXlk2/umza0PKpl1RMHlx593lVd5yN/aF3Xq68 4aTSq7p/+f0u/zy3
oygJYAADDC6pEpNStDUTFWkjMCBHLIoGGISXUhPRAOzEmcVw+ljMUq5nmfNQ 02kzP7l+/h9+8B9/
vu2R35wwt7rTvKMwubCcBIMy2Vhh+Ig93S9d1m3cHn3KnFHbhGsbu1NudJ24 H992u6tcn4Nlmi73
1uXcuFEm637lKnkgTCaWeVqWR5+z4USGYkfLDefqPvDv3SYUq8NRAJTHIAL2 dB++VhRv4N/1hTFf
jv68ltsKEhAwDLlt6lyqMEK3cXtwLqmzuTyG4vFjZisgn89oHiqAanjKbXX9 pop5Ji59sH7owsDQ
hcEhPwhc+nDg4kcCgx8NDng01O+R0BkPh3ovCH1tXsNXZoW6TK7veGtZh6Hh 0UThnyPRTECUu8VT
ZsHlp6ClaN+4QcV3XVoyaWjJPUNLJg0pnXRp6aSLyyYOLr9rQMXt/SrHnYE2 IoQFFcO+UjK0yxff
7bj0nA6iJCPrIsEBYIAZiQQMvpErwoQwDEACdAAoGHTF6sc6Esh1j5VJQhxb 4jVMBWmZXcHa6+oU
DNqrADwvFaAC4jl9zME+dx3qf+/h78w6/N37ay6aUzNoTu2gubUXzq8974Ha fg/UnTG/rvfc+p6z
69FA1G1yXcc7D2ujirTLxKylUsAEM1HhRd7FJ+2+tk/ByP57bvnO3vHfLbz9 osLxgwpvG7TvtguL
xp9Xcmu/kjFnlI7sXXpDz9JrTyy5olvhJR23fEd75azwaseAgeQBYBBpJjoe BpIHsjMAnQSRFqEF
rQgLDDDARxseKDBwwysFFAy8ytA+H1Z7KkAFzAqUVrf2n7S35817Txu/98w7 i/rdve+ciYVn373v
rElFZ04q6jup6LR7SntNKu05seyku0q7TyjrPK6sw+gibfi2M0a/o2CQYCYi vJjcUnqwdeON/Tdc
0nPDFaflDjsz9/p+udefk3vd2ZuvP2vLdWduHd53x/DTdlzT64ureu4YetIX l3bf8b3OWwZ2+Og8
7dXLzxAwGFt/HAzE0FIdDDDYTgUHMj4QA0kNSFgQaTWKRgLeQMlTwNyElbxz MWcqQAXMCsz8n+Dm
XTX9b/v4xCuXf23YBycPf++U4StPHray5/D3e173QY/hq04c/q8Thq/OGfYx eow7XfmvDld+rA1Z
dcbolbl5B3GszDCRTGb8d0DCYMYfAtVfbF42rP9fzz/xtYFfe3XQyf8YfMo/ Bp782uCeSwb3fH1Q
jzcGnvjmhSe8fUHOG+d1faN/p7fP7fD62dprl59RtT13xq8xONUaBuhADvcZ yBfH7qqNvE0mQoT6
CBJAhTAYpMkeBYPJ65RRBS3dFfCwmZVZUYGMUaDLjGa4Y33vrpNtPMXjKBwr dXCfyR/qukwJiSFJ
dzd2mRSa8VvxykJc/0oPtIAEXW6uPa7PAM1EbZFBGAaY7wKzlkZWr45MSoEu ZcxFETEBBmVi+JDB
1FAiDwdyMav2U4ADUTJAAY4tTn8FMHYo3GOMEUTiNQWMK709qE3A9DYhsTG+ Xjzjy79yQ9nYw9rI
Q3g9LfKt6iSQ44iUyT6DYzAQo0sLsRKydm1uh2GbsR6yWBIZa5+FrcOofGli KTQwQyzHHDasf6C2
5UZ4BiUaFaACvlDgOrxCREtzBeCZMU2p5e94bb5YfQCGWSSkXbEr8lHuh8k9 +IuZiGCYiU5OSSQn
qoPnt4bBtbkCBmEeKCRIMBhMJhCm0usOPPatSsaNdFMAdwIt3RWIVE9ZN2lp q0AS70M5HUVkNFHv
3G4X7eo1uzpnfMGByjwaFaACVIAKZIkC2g012pBd2pn/0Hou1jTCgAikAlSA CmSlAoQBAyAqQAWo
ABXIIwx4E1ABKkAFqABhkJXxYJa0gfIyqQAVcK4AIwM+EVABKkAFqAAjA0YG VIAKUAEqUEkY8Cag
AlSAClABwsB5gxpTUgEqQAUyWAH2GbCtkApQASpABdhMxPCQClABKkAFzM1E 3TkdBW8LKkAFqED2
KSCaiTC93ekvRaajIAwyuE2Ql0YFqAAViKYAYcC2QipABagAFQj3GTAy4MMC FaACVCDLFSAM+ERA
BagAFaACjAyyr5soyx9/ePlUgApYKsDIgE8EVIAKUAEqwMiAkQEVoAJUgArI 9wzYgcywkQpQASqQ
5QpkFAye+tNKGhWgAlQACmS5Z3dx+ZkGg6P8RwWoQNYrQBh4AIOcQTt7za7O GV/gIq92PwR3QNbX
AgpABajAUcLAhTc2RgaEAWsSFaAC6a4AYUAYMDJI91rM8lMBDxQgDAiD42Cg 6f7J+ws7DDea2qNP
LHea9xh2qqwsU0ZLrD9KXxhzaW3KYK4u6nAneRrSeFD5mAUV8JMChEE7w8Dg E1Ea7HFRJteH6PsM
DH5f+XcbGET7ysZ9WzJGD5hox5rJpC+wZQ4Os4p2rAF7Nrn5qVKzLFTAjQKE gQsv6mWfQbyuP970
MS/PBgZOIoOkwsDg/c1w8goGTtBleS43dY7HUAFfKkAYxPSW5gSEQaThyKYF yYl7tWx4sYxO9FiK
5pQTiQwcltb+FL6s4CwUFXCqAGHgOxjIZ3/ZfCQLZ7ntVYiQYGRgaHY3N+JH c+42fQYxIWFovZFZ
6R26oVTm9iVFF/OxNmcnDJz6FaZLQwUIg/aHgfJcyvXrew70SEhGj0KCMEhZ M1HMFqF4I4OYyNEj
xJC5OSRKw7rPIlOB4xQgDNofBoYSqMhA7dcHAV4FBCrzNIKBfdiRGhhIQhAG 9KOZpwBhkAYwsAwU
XJTb8pC0GE1kdr5yT8xwIVpngMNjLQFDGGSeH+QVQQHCwIVTNXYgdxuU53o6 CvOTviEySGUzkXrs
1fs7/fO4wQVH89HmtqOYjfh6txszsXLl5ljBcAmW2Zp3GpqMYhaAkQG9Z+Yp QBi4h0Hfl7SeizWt
d25SYWDoQFZRglftRZybKPNqNa+ICrhQgDBoZxi4OL23hxAGLqoND6ECmacA YeDCtUaaiTyJDFyc
3ttDCIPMq9W8IirgQgHCwIVrJQxc3Gk8hApQAV8rQBgQBpy11NdVlIWjAqlR gDAgDLjsJRWgAlRA
KODCG2b5IRnVTJTlvyUvnwpQASrgWgHCQMyYRKMCVIAKZLkChAFJQAWoABWg AnmEAW8CKkAFqAAV
yCwYoNeIRgWoABVgB7KLJq+Migz40llqxu3xLFTA5woQBoQB3zPweSVl8ahA KhQgDAgDwiAVNY3n
oAI+V4AwIAwIA59XUhaPCqRCAcKAMDDCwDBZf1xrBpjvWfPaAEgTLU/94Vwz IBUOgOegAm0KEAbt
DAOvliVwcRnyEHMHshkGqr5Yrvxl/tZyT7RjDUvN2OTGaksFqEDyFCAMXHhR L0cTuYCBi0NsLtIA
A5vlJOUTvbwXLR/bnS98ZhkB6JdXi3aK5NUE5kwFslwBwoAwOK6ZqH1hEJM3 WV5deflUIHkKEAZ+
hIFqUleFk3vkR7XtSYigjwz0j/aWqwfr23BiLhSsYgj7R35DtGEffCSvJjBn KpDlChAGfoSBngHS
+ysM6D+6KLr5ECcwcN1nEK05yH6/OTrJ8lrKy6cCKVCAMHDhUZPeZ6AfbKPH gHnbRekNhxhgYB7n
Ey1cMN+d9uN/nHQgGyKPFFQAnoIKUAGpAGHgwp0aYZAzKK/X7Oqc8QVu8mp7 6jdEAzYM8KR1SJ1O
wSBa928iMHByrCUkDC1LrK5UgAokWwHCwI0Dv6FGuyJfO/1lrediTeudm2wY pKaZyAYGlt0DljGE
zU5D01DMLgf7OCPZFYP5U4FsU4AwaH8YWDYKqZ2GTmPPOw84UV221XleLxWw VIAwaGcYuDi9t4cQ
BnQNVIAKsM/AnV8VfQZeNRO5K4GHRxEGdARUgAoQBu6cKmHAukMFqECmKcBm Ihc8IAwyrRrweqgA
FSAMCAMue0kFqAAVEAq48IZZfkhGRQZZ/lvy8qkAFaACrhUgDMQUSTQqQAWo QJYrQBiQBFSAClAB
KpBnhEG3BKajyHKu8vKpABWgAumrQHhuogKtb9t0FGkNA/Qa0agAFaAC7EB2 waRMgwEH1VEBKkAF
CAPC4LiVzlglqAAVyE4FLGHQZ+wiJ+bCjWbGIYwMsrOy8KqpQCYrEA0G+flf StuzZ2dh4e6ioj2l
pUUVFaUHDlQeOnSgpuYQaJEZnt3FVRAGmVwleG1UIDsVsIdBNBLU1dUYYGBe cCWuJVicJHaSxoVn
d3FIJsPAvMwAKoZhaQGb5Q30tSjaAgnRaprlSjgyccysnCyjZl5rwVBaw4o6 +vT6/C3zcZ7YMmV2
eh9eta8UsIGBDQkCgXpvYeDEI2csDAxLFzjRwsM09msg2y9BI12k2YlbEsXS p0eDhxk/hmpjdtyW
2IiZj/ko+0OifWu5FI/lzmh485VfYGGyUIFoMLAnQSgUNMNA76xlVfXQZSEr zzN0XTwvIwODarJM
7i7V3VHRprCO9pwebX9Mr2qfwJIoqkKavWryYGCmjk24o48YzO6DMMhCl5q+ lxwNBpb9BGgdQkwA
EjQ2NsQFA8Ozr0KFfkO5QQNI1LHufJ1rj29zYLJgoE7p7lLdHZW+MNCHGtGc sovIgDBIX3fGkiei
QDQYmHuM9SRobm6ybCaS7kj/1+BSDV8p92U+JNqeZDj3ePNMBQzU9es1isZJ PUjjDSzMMDA8dJub
dxSfzW3uNg/RDiMDy8jDMjLwEAYyK/OF21y7OTQx56B/kLFnTCJ1mMdSAU8U iAYDw9ghAwlaW1vi
goHh6d7AAD0/oqWM18XF69/jSm+EQU5i01GoazZHBmalLGFrg9+YF5biyEC5 V+nf9X9taBENBuYc
7EMBcz4x23YcZmiZs83pnJTEkxrOTKiAQwWiwUA/itRMgiNHjkTrQI7m6PWN 4TYwsIwkEmlIj+kM
XSQIwyBfO/0lrediTeudmyAMnDBAD0l90KAHiZI1rkvyIQzMD9Q2MFAP9WaW WD7Xx6wYDr2/4XSE
QUxhmcDnCkSDgXqfwJIEuKhkw8D8sOvO18XlGB0mbh8Y2HAyEVrajyZy0raj 94PRtm0aSewPMYcO
lkVSmcTlylWpbMrgMEPCwOeejsWLqUA0GMg3y6KRwAYGlp2g+kc9fYOPZYgg E+vz0T/+OvTXSU3m
JQwMl2pw62aBkt1MpLTW3zpmhyiT6Z2pYY/5qTxahg5hYAgXbHy0IaXNhRi+ Ml9CzNhCDyHzefV7
7KESs6IyARVItgLRYGBPAjMMkup8/Za5lzCQzt0AwGgePxonDQTWAyamdtGa iZJ95zF/KkAFfKUA
5yaK6S3NCTyGgYsSeHgIYeCrCsnCUIH2UoCzlrrwq4RBe92uPC8VoALJUoAw IAw4hXWyahfzpQJp
pABhQBgQBmlUYVlUKpAsBQgDwoDLXlIBKkAFhAIuvGGWH5JRfQZZ/lvy8qkA FaACrhUww2Bnr9nV
OeMLXOfIA6kAFaACVCDtFIjAoO+x6SgIAzHzNo0KUAEqkFUKEAb0+1SAClAB KpCXUTBArxGNClAB
KsAOZBcxTabBIFlD1ZgvFaAC6aMAYUAY8D2D9KmvLCkVSJoChAFhQBgkrXox YyqQPgoQBoQBYZA+
9ZUlpQJJU4AwIAyOwSDa/PtyLn7DjPxqj+VRNlP5y5s55lGGe95ylYKYZ0la xWHGVCDTFCAM2h8G
eo8mSxPXggQuLkB/SLSVzvTePyYMzNUi5louZrQYeGOz6I1+SZlMq5G8HirQ TgrYwMC85opXe5Qv
cpKh2T1aLgaToEuM63AvRxMZ/L7+Y2qQ4BwG0Zx1TLduE1WYH//1e2I6fctT t1NV4mmpQHorEA0G
Zqfk1R49CQzb0TyhfoGv1HtLMyeMMOg22P0byDYenzAgDNLbu7D0aaWAcxjo faJ0U+7wYAkDC4dr
WgbZPk1cj/YJJg7DoEBT01F4DgOlr0Fos+4JXgkON0QG0ZrmVUO/ur31nlod pf/WMivLBOY8Dacz
n0slMJ86rSogC0sF/KKA/2Fg4wBT8+gcJTJICQwMbWTJuOC4molUg4++fSb1 zUQxIwa/VC+Wgwqk
jwLxwkDfYiODg5htOIY05g4Dg4szn8LcpWpIk/jzcVw5pC4yIAzMEYm+B8KS Q+lT+1hSKuAjBeKF
gd47uWsmUn7cfLhNS5TlM3EyHpSdUCGrYWDuDU5SZBAt+JA3kCUkfFSxWBQq kG4KpB4GNh3IljDQ
tzwbPHUGwkDfKGagZZKuNt5mIksY6H8k+2d5+04Fcz7m9IbIwOaQdKuMLC8V aE8FnMPAdRwQrcfY
SYbmY+3jCSfP9Ymn8TIy0Le1qWuz2TA3mSV4PXoYtOedyHNTASrQrgrwPQMX vtRjGDgpQZLCAsNo
ona9FXlyKkAF2lMBvoHsxBUbm6c8HFoa8/TJ7itnZNCe9Y/npgK+UYAwiOmN kzu01MXpvT2EMPBN
ZWRBqEB7KkAYuHCt7dBM5KKUDg8hDNqz/vHcVMA3ChAGDn3mcSOdUtlM5KJ8 cR3C1f6oABWgAlKB
uFwHE4vhPAYY5AzK6zW7Omd8AdWhAlSAClCB7FHAPGspYSBm3qZRASpABbJK AcKAfp8KUAEqQAVk
M1H+sVlL2UyUVc8CvFgqQAWogFQgo2DArjMqQAWoADuQ3eEt02Dgm7FtLAgV oALtpgBHE7ngAWHQ
bvcrT0wFqEBMBaoPlra0NMVMphIcOFCKbcKAMFjp/KZhSipABfyvAGCAQoZC 9TU1+6ury+Hr9+8v
rqoqqqjYCysv3wMrKysoKdlZV1eNlKWluwkDFyTIwD4D/9/cLCEVoALOFZAw AAlCobpAoAYev7b2
YE3NgbDtP3y46tChyjAkSoAEpNy7dythQBjEXgPZsHaN5cIyalEB8/1qWKNG vzSNfWL9t/pFC/QF
sFzMwFwYy8NV/jEzt08Zs5xIEK0A9uW3lM4goMPlHGJmZfMLOvdBTOkTBSQM 4O5Bgvr6w20kiGBA
kuDgwTIFg7y89YRB+8PAPDd18martrxa89xE0by/vNHNMDA4GkN9iAYPy2pj OHW0rAwlMbhjve+O
9pX9fif800sR84yW12V5lnhPbS++nkM2gsfMxCc+jsVwqICEAVqH2mICgQFp YQaUtlkJ2ouQctu2
jwgDb2DQbfBO19NRZBgMzDerJQwcOqYEYWB/eDQPbvby0S7B7OIdunKHMLNE bzQk2+Rpya24djr0
QUzmEwUkDNBJoG8aAgnWr/8ojIESZRIGubmrCANfwEDPAxmtuyuWu6O8jQwI A8uYw0lkYOnNY3LI
PoyzAR5h4BPHnYxi6GCwX3YSSBJIAwnQnyz/Shhs3Pg+YeDOfxqHliYYGdjA QLXkRt52a/sserGP
x4Y5pcNrcwIDlbncMLstlcAGBtL76HOw9JvRnJTlA7tlhtHOYumR9aVy4nn1 UlherGWCaDvt5TJE
Bk4ysblGw7mc8ykZ3op5JlUBCQMMHAIDAAOYIoHcAAakSRhs2PAuYeDQYRqS eQwD6dkNf9VHhQH9
HsUP/YH6lM4vzAkMEnnadeh09MkcerRoyaI9DjvM1pI69o/tMc/oUAQXpzbk 7PoabRicVLfFzJOh
gIQBHL0hJkCHgaKCHGwqRxMRBs4dZrvBQP8wmPEwsH/otnGU0aqTV44yZsSQ djAwMyMmWZPhs5hn
khSQMICjx8Ah5f3bhpOWqj1hGOSHYSBeNuJLZy6Q4H1kYOPo9eUzBATmYMIQ Tzi5tsQjA/uHektP
GtNNO3mUjpkm5lksn/ddPJ57AgNZ2mhldrLfxqHbS0ESJMkpt1e2bTDIxxBS yQNJAvluARiAPfhb
WVlIGDhxkjZp2gEGhuYgvzUTqYd6891vQIVMaUjmZI+lo7QMJqIVxnkTijyX OZ+YdLFx2fZFtVTJ
hrJ6xNqIH5NSCoeWxWsvX8bzJqiAhAHeK0a7kGSANPlugWwgAgnQqSDfPWZk 4BoJSYGBKo1y9KqX
2OD6o4URsj7H23PANZATrHg8nAr4TQEFA7h+AECZnJdCwQCdCpiRgjBwTQLh ig3rGSQymiiRcnhy
LGHgt5rM8lCBBBWQMCgq+hIRgBxFKgMCfUwgpycqLs4Lw4CjiVwu1EMYJHiv 8nAqQAWSqICEAWah
QCsQegXarEBtYz8MJMCoU6TcunU1/rID2cXjNWGQxPuYWVMBKpCgAoABwgKH mezatZFTWLvAQKRB
PpOWvWQzkcM6w2RUIF0UAAwwK9GXX65D+8/69cvXrHnjk0+Wmuyfa9e+tXnz h5jMjjBICAZXYA3k
l7WeizWtd25ar4FMGKRLDWc5qYBDBQQMag7Uw+qqA/WHgoHDmMu6saG+sTHU 3NzQ3NwIa21tOnKk
WZpsVmIzkQskiGYiwsDhfclkVIAKpFgBwsCFW3d3CGGQ4nubp6MCVCAOBQgD d57dxVGEQRz3JZNS
ASqQYgUIAxdu3d0hhEGK722ejgpQgTgUIAzceXYXRxEGcdyXTEoFqECKFSAM XLh1d4cQBim+t3k6
KkAF4lCAMHDn2V0cRRjEcV8yKRWgAilWgDBw4dbdHUIYpPje5umoABWIQwHC wJ1nd3EUYRDHfcmk
VIAKpFgBwsCFW3d3iBkGO3vNrs4ZX+Auu/Y9im8gp7ii8nRUINkKEAYpc6qE QbJvZuZPBaiAewUI
A8LAzZTcjAzc1zkeSQV8qQBhQBgQBr6smiwUFUitAoQBYUAYpLbO8WxUwJcK EAaEAWHgy6rJQlGB
1CpAGBAGhEFq6xzPRgV8qQBhQBgQBr6smiwUFUitAoQBYUAYpLbO8WxUwJcK EAaEAWHgy6rJQlGB
1CpAGBAGhEFq6xzPRgV8qQBhQBgQBr6smiwUFUitAoQBYUAYpLbO8WxUwJcK EAaEAWHgy6rJQlGB
1CpAGBAGhEFq6xzPRgV8qQBg0NLS5LxoBw6UIjGmKUuZD82YE3HWUue3GVNS ASqQagUAA5wyFKqv
qdlfXV0OX79/f3FVVVFFxV5YefkeWFlZQUnJzrq6aqQsLd1NGLjjE2GQ6pub 56MCVMC5AhIGIEEo
VBcI1MDj19YerKk5ELb9hw9XHTpUGYZECZCAlHv3biUMCIM8TmHtvI4xJRVI CwUkDODuQYL6+sNt
JIhgQJLg4MEyBYO8vPWEAWFAGKRF7WYhqUAcCkgYoHWoLSYQGJAWZkBpm5Wg vQgpt237iDAgDAiD
OOoYk1KBtFBAwgCdBPqmIQmDMAZKlEkY5OauIgwIA8IgLWo3C0kF4lBAB4P9 6CRYv/4jAwmwBzxA
r7KEwcaN7xMGhAFhEEcdY1IqkBYKSBhg4BAYAL8vDQ1EMABA7VEw2LDhXcKA MCAM0qJ2s5BUIA4F
JAzw1C8DAj0P9CRAO5IcTUQYuCMBjuLQ0jjuSyalAlQgxQpIGMDRY+CQNMUA uYGYQL55UFaWH4bB
SkYG7nhAGKT43ubpqAAViEOBNhjkYwipmQdggLTKykLCwB0D1FGEQRz3JZNS ASqQYgUkDPBeMToJ
wANlqt9YkgCdCvLdY0YGrpFAGKT43ubpqAAViEMBBQMMGZL9xtLkvBSygQgw QKcCZqQgDFyTgH0G
cdyUTEoFqEDqFZAwKCr6Ek4frl++VaDHgJyhCJ0KxcV5YRhwNJGbWT4Jg9Tf 2zwjFaACcSggYYBZ
KNAKhF6BNitQ29gPAwnwFgJSbt26Gn85a6mLEIHNRHHcl0xKBahAihUADBAW ODzprl0bOYW1CwzI
QwgDh7cZk1EBKtAOCojFbeqqv/xyHdp/1q9fvmbNG598stRk/1y79q3Nmz/E ZHaEAWEgyMZZS9uh
svKUVMB/CrCZyAUSMi0ywE1AowJUgAq48IZZfkhGwSDLf0tePhWgAlTAtQKE gcthWK4V54FUgApQ
AR8qQBgQBlSAClABKpBZo4l8CFsWiQpQASqQFgowMuATARWgAlSACjAyCL9t QaMCVIAKZLkCGRUZ
cDgdFaACVEAqkOWe3cXlZxoM/Pf6C0tEBahAqhUgDAgDscgR/1EBKpBhCpRV t2wpbP0sr/GTbaEP
NzfAPtgUendD/TufB1d8FoAtWxd669PA0jX1+WWNnKjOBQlwCCODDKs1vBwq kIEKgAT7qo7sKjuy
fZ+gAmxzQcum3a2f7Wxdl9cMW/NFy0fbWt7f1LRyfR1hQBhwbqIM9AK8JCoA BRATgAR5xS1b9rSC
ARID6/Na1uxoWbNNGEiwarOAAcIFwoAwOA4GmqYZapHagw39P1Y2KkAFfK4A WodkTLBxdwsYIG3d
jmYA4L1NrcoAg/c3MDJwOTzS42Yi5WTdoSnBo/SzltrDwOe3PotHBaiAXgHC IEHf6ORwL2EA/6tO
qbb1Ow0FsvnKSdHNaQww0PNAUkreXmZOsOJRASrgZwXQYyw6CQrCnQRfNCtD TPDuxhbYyo3NcoOR
gTvn6XEHsqVzJwz8XMdYNiqQFgpg7BAaiGQb0agpz8pmIpAADIBhz4owD2CE ga9hoI8S5BO6LK55
20k8YXOp5mYiGQTo/8qP6l9a1AQWkgpkuQIYQgrv/1leK/y+tNXbmmHLNwkS SJM8YAeyL2Cg/Ltl
e5G+iDKBpetPpO3IOQyyvGrx8qlAeimgYGDggSIBqEAYuMZA5On8hhrtinyt 78taz8Wa1js3Z9DO
XrOrc8YXJJqv7vFf35Gg72E2Rwz6WMFFASw7kM1dBewzSC9HwNJSAbxWpvoJ EBAoBsgNkCBiaCn6
nKOJ/DGayKYD2RwuJNgoFLMD2dBdzA5k+hQqkKYKvL0uKF4p0JniwQfbmmES Bss2Ni3jS2duZ95M
3WgihzDwtplIf+vrYcBugzR1Cix2dirwxqdBvFaG14yVfbxD9B+8u73lzdxm ZW983vTWugAk4txE
LlpWvISBZZ+BoW9A30xk+ZXqW3ZxMfpmouysM7xqKpCRCiz5OIj3y8ADYTuO GWCwYpuwt7a0LN3Y
vPTzpjfX8Q1knzUTuXDliR9CGGSkI+BFUQHCIHH3GDMHjyODmOdLagLCgF6D CmSkAoABXihDcLB6
q5iCQhq6ChATLN/SDENLESKDJesb31jLDmRGBpWcqC4j/QAvigocfXV1/YrP G1duahazD7XZytzm
5Rub3wwbegtAgtfXhf65ppZ9Bu6eucORQYF2utdDS92VJsGjGBnQbVCBjFRg d3HDirU176yvxQzV
yvAR3cXS0FWAmAAk2FkcJAzcOVLCICPrDi+KCmS1AhxN5IIHmQYDLgBLBagA FSAMsh0GLq6fh1AB
KkAFqIAY6J9JfQb8RakAFaACVMCdAoSBy2FY7uTmUVSAClABfyqQUTBgUykV oAJUQCrgT4fr51Jl
GgyyeggFL54KUIGwAoSBC+oQBqw9VIAK+F2BsuqWLYWtn+U1YjFkLIEJw9pn WMcG6xxgdmvYsnWh
tz4NLF1Tn1/WSBi4IEGmdSDzpTO/12mWjwq4UgAk2Fd1ZFfZke37BBVgYknk 3eElkfOaYZjNFHPY
4eVkvJJGGBAGnI7CVT3jQVTA9wogJgAJ8opbtuxpBQMkBrAQpljhAFNbh2cz xWxFgAGXvXRHgkhk
MDQJK525LlAiBzIy8H2lZgGpgBsF0DokY4KNu1vAAGnrdohJ697b1KpMTFu0 gZGByxGSos/AKxgY
1qVJZJkad0gww4CL2LipeTyGCvhMAcLAnUuM6yiPYWBeziyu0iSY2AADw1rH XPrYZxWcxaECThVA
j7HoJCgIdxJ80awMMQGmtoat3NgsNxgZuPaihIHT25HpqAAVaC8FMHYIDUSy jQirXcpmIpAADIBh
z4owD2CEgV9gIHohNE2WRr9hWO1Sfiv/qaLrm3RUDvo0MdudHEYGMkSQOaub W529vW53npcKUIFo
CmAIKbz/Z3li3WNpq7c1w5ZvEiSQJnnADmS/w0Dv8Q1llS7e3L7kosXJOQwU BhQY9FRgnaQCVMBX
CigYGHigSAAqEAauMRB5+E5GB7LBv1u6dUMckGIYGFy/vjDsWvCVF2BhqAAU wGtlqp8AAYFigNwA
CSKGlqLPOZrIZ6OJojXvOI8DkhoZmGHAKkcFqIBvFXh7XVC8UqAzxQOshAyT MFi2sWkZXzoLt9K7
MI87kA0dAIbOA9Uc5CQOaC8YMDLwrUdgwbJWgTc+DeK1MrxmrOzjHaL/4N3t LW/mNivDSshYAhMq
cW4iH8HAeQeycvqedyCrXmJzX7G5h4AdyFnraHjh/ldgycdBvF8GHgjbccwA gxXbhL21pWXpxual
nzdhMWTCwAUJLN5A7jZoZ6/Z1TnjC9xlZ3lUzFFAll3KLgrAN5D9X6tZQirg QgHCwIU/jPcQYzNR
e8HAHBbEeyVITxi4qGY8hAr4XwHAAC+UIThYvVVMQSENXQWICZZvaYahpQiR wZL1jW+sZQeymw6D
FEUGLty6u0MIA//XapaQCrhQ4NXV9Ss+b1y5qVnMPtRmK3Obl29sfjNs6C0A CV5fF/rnmlo2E7nz
n6mIDNyVzMVRhIGLasZDqID/Fdhd3LBibc0762sxQ7UyfER3sTR0FSAmAAl2 FgcJAxfOk5GB/2sB
S0gFqEDcCnA0kQseZFpkwAVgqQAVoAKEQbbDwMX18xAqQAWoABXItGYi/qJU gApQASrgToGMaiZy
JwGPogJUgApQgYyCAZtKqQAVoAJSATr3eBXINBjEPeyAB1ABKpBxChAG8ZIg 0/oM+J5BxlVqXhAV
EAqUVbdsKWz9LK8RiyFjCUwY1j7DOjZY5wCzW8OWrQu99Wlg6Zr6/LJGvmfg ggRtMCjQTn9J67lY
03rnJmM6Cnclc3EUYUDPQQUyUgGQYF/VkV1lR7bvE1SAiSWRd4eXRM5rhmE2 U8xhh5eT8UoaYeDC
eRIGGVlxeFFUINMUQEwAEuQVt2zZ0woGSAxgIUyxwgGmtg7PZorZigADLnvp jgSEQabVGV4PFchI
BdA6JGOCjbtbwABp63aISeve29SqTExbtIGRQSIT1XnXTOTJ5KOuyWZuJtKX JyMrCS+KCmSDAoSB
a6/o/MDwaCKPYGBYtyDeZQycFzpaSgMMDGuWcQmzbPAavMaMVAA9xqKToCDc SfBFszLEBJjaGrZy
Y7PcYGTg2pEmEQauy+T6QMIgIx0BL4oKYOwQGohkGxFWu5TNRCABGADDnhVh HsAIA9f+M+kwsGw4
UjtVuRNf8xJZOYSBDBHMa2Ea9rAGUgEq4BMFMIQU3v+zPLHusbTV25phyzcJ EkiTPGAHsq9hoPf4
hoLKpiR9g1K0PU6u0DkMVJORAoO66dma5JP6z2JQAaWAgoGBB4oEoAJh4MRJ 2qRJRWRghoEhDkg9
DAyuX18ewoA+iAr4TQG8Vqb6CRAQKAbIDZAgYmgp+pyjiXwwmsiyx9iJo3eS xgn0nEcGZhj47e5n
eagAFVAKvL0uKF4p0JniAVZChkkYLNvYtIwvnVX6DwbOm4B8BQNGBvRBVMBv CrzxaRCvleE1Y2Uf
7xD9B+9ub3kzt1kZVkLGEpgoPOcmcvL0bGy093BoqWz9N3QO23cgKwwkowNZ 9RKb+4rNPQSqAH6r
BiwPFaACSz4O4v0y8EDYjmMGGKzYJuytLS1LNzYv/bwJiyETBi5IcOwN5L5J m5vIsu3IrhMj3KXs
zjg3Eb0GFchIBQgDdy4xrqMiHcjtCwPL6CGuy5CJCYOMdAS8KCoAGOCFMgQH q7eKKSikoasAMcHy
Lc0wtBQhMliyvvGNtexAdvkwnXQYuPDprg8hDOg1qEBGKvDq6voVnzeu3NQs Zh9qs5W5zcs3Nr8Z
NvQWgASvrwv9c00tm4ncuVDCICPrDi+KCmSUAruLG1asrXlnfS1mqFaGj+gu loauAsQEIMHO4iBh
QBiwmSij6j8vhgq4VoCjiVzwINMiAy4ASwWoABUgDLIdBi6un4dQASpABahA KoaWUmUqQAWoABXw
vwIZ1Uzkf7lZQipABaiAPxXIKBiwqdSJAv68EVkqKkAF2leBTIOB6+EHWXIg O9bat77x7FTAtwoI
GFyRryXvDeRUXjlfOouJNMIglTckz0UF0kgBwiCm//RvgrLqli2FrZ/lNWK5 cCwSC8PqgFjpCSuB
YP532LJ1obc+DSxdU59f1igvgzBIo8rJolKBVCpAGPjX18csGUiwr+rIrrIj 2/cJKsDEouG7w4uG
5zXDMN8vZnnE6/t4aZMwSGW94rmoQNopQBjEdLn+TYCYACTIK27ZsqcVDJAY wFKxYg0QTP4enu8X
83kBBnJhWEYGaVc/WWAqkDIFvISBV5OPur54c5+BeZWCaOsW6FdF1q9/YLMi ZrRD4HNdnNcFc9A6
JGOCjbtbwABp63aIaR3f29SqTEzstYGRgcupHF3fjTyQCqSXAh7DQF28/TIG 8S5y4FBTm2UvpePW
r2JmWNEsWgKbhc+cHGJ/XsOqO/HyAJ0Eol2oQAQEWPVJLRILDGC+X+xZubEZ GzDCwOEtxGRUIGsV
SBYMIKiNx08NDPS+NXkwcHKWaBBKEAboLkZMAFPrwSIyAAnAALUH2zDCIGtr OC+cCjhUIEUwsFwL
UxbR/JXDopuT2QwtjfmELn262Wvrm4nMft/wLO88VlDnsok8YgYKGDUE7/9Z HgYUichA2uptx0iA
JcJXbGwR8QH7DNwun+f6buSBVCC9FEgRDAzNRyoy0IcIiYcL0WCgb9xXHtby ad0SBvaHmL91mImZ
HDG9vyEBBo+qpiE9AyQVQIKIITj4nH0G7DOgAlTAToEUwUD/fK1vQdLvTxIM bJpookUD5v2GPebH
efuz2OAhkcjg7XVBMXBIZyo+wIqAMAmDZRublnFoKSMDKkAFbBVIBQzMj/+W kUHiIZXlaKJobTvO
wwX7Z39D41K0tiZDJgYKxhsTyPRvfBrE4FG8TKDs4x2ivejd7S1YElYZVgTE UlDyEL50lvhtxhyo
QEYqEIZBgdb3Za3nYk3rndtt0M5es6tzxhe4uNpobT4OYeB5ZODk+d2QxkkL j80hNh0Plm1NZpDE
RQWsEo5RpOCBsB3HDDDAQuGwt7a0YJXwpZ83YVFAwsDFLc1DqED2KOAxDNQD r0FBQzORZUuR6k92
rb55aKm5+1ftsWkLkmn07lu/xwyDmGeRTt+QbbQCOOcBYIBho+DB6q3i3QJp aB0CBpZvaYYhOAAM
sFA4loclDFzfVzyQCmSDAl7CoN31yraJ6l5dXb/i88aVm5rFa2VttjK3efnG 5jfDhgYikOD1dSEs
FE4YtPv9yQJQAT8rQBg4fxD3XcrdxQ0r1ta8s74WUw8pw0f0EEhD6xBiApBg Z3GQMPBzPWTZqEC7
K0AY+M7FJ7VA7EBu9yrHAlABfypAGCTV9/ouc8LAn/WQpaIC7a5ApsHAybqP WZ6m3e85FoAKUAEf
KpBRMPChviwSFaACVCAtFCAM+IY6FaACVIAK5BEGvAmoABWgAlTABIOcBN5A TotQiIWkAlSAClAB
swKRyOD0lyLTURAGvEuoABWgAlmoAGHA8JAKUAEqQAXamokYGWThgwAvmQpQ ASqgFGBkwCcCKkAF
qAAVYGTA9S6oABWgAlQAKxDL9QzYTMRokQpQASqQzQoQBgwPqQAVoAJUgJEB w0MqQAWoABVgM1E2
R4W8dipABagARxMxKqQCVIAKUIFjChj7DLoNyus1uzpnfAGBSQWoABWgAtmj gIDB0Hyt78uR6SgI
g+z57XmlVIAKUIHjmokIA94QVIAKUIEsV4CRARsNqQAVoAJUIDy0lJFBlj8R 8PKpABWgAoQBnwio
ABWgAlQgsyKDmkNFNCpABXyuwIPzp/Ex3IcKZFRkgDrgQ4lZJCpABfQKEAb+ vB8IA4aHVIAKpFQB
woAwSPoNx8jAnzcZS0UFGBn4/x5gZJB0RPn/JmAJqUAqFWBkkEq1nZ/LCIOc QTvTdzoKRgbOf3im
pALtpQBh0F7K25+3DQYvRaajIAz8+TuxVFQgYxQgDPz5U2YFDLS1h2DPPPOM P38Dh6VasmSJw5TO
k8XMMzOkcy6Ipr3Qo8fbsFNO+YvesN95JkxprwBh4M87JPNhMOiPR4VH047e eeed9jxASqTx9nfy
Kk9cArKK6bvjKnzMPJ1LF9d5/ZwYGNi+/UBJSYPesCdMiEzgwYerVsGS9xNo n2g9JmiEQfIUTl7O
WQeDaP4Uju/ee2MDI65fwsM84bhRPMDMQx7EzNMAg0RO3Xl7584lnfF33ANj 4tIwxYnh9IGB+vrj
DHv693/7nXcK+/d/NMXliet00tHb+Hr57Wt//wMsrpzNieH0xW8aNmyrBPh4 9rSvTpts91oZI4ME
xU/S4YSBGE0EP6uPHhLxeup38jZP6bhhcNBetXfFzNNLGJR07v8XDTbw0a9O m+PfF1DRNBQNBogP
wIPE44PkPZsrR2/29YoTkgSJ8ACuH3b2wq/C6Uds4VflTtz8ERjY/sSEQZK8 eYLZEgZ5yuWppqTE
YeB5ntJxo4SSB4mXEPdNzDw9h8GAF9IYBggOYKCFpj3nutbFfDZXXttdY46l r9efVJ/g6NGj8V6I
9nYYAwsF0ZVNXjQZe766KBwlHNZEZEAYpOGiytkOA9mSAycrTfYrJOhqk5Gn ctySB4kXUg+DaHkS
Bqq9aPv2hrAd+OSTA+CBbAZZ9GjOvybcEJc/1T+8G57fvXp4N/DAhgTxwkAG BNMenWZoBYq0AZYI
EqAxkDCI65bwT+KshoFqyfEQBsnI0+C4VXyQYHuRHjCWeSYDBv2f6Qxv4p8K YCiJZTORRILsUl63
Dj0Hzz33XI/nnuu8cGHnOdNy4r0W87O5JQZksnj9tSyM/hQG/KhsXeQcgYGp PwA9xseajMJtR4wM
4r0r/JA+e2Ggb8nxCgbJyFPeJQbH7Ul7Ucw8E4GBeloU/cZhk30G6mMi/cno tizUNHtDmgfGxN1Z
HQ0GwEBhYUVe3uaXXgIKXGJA/pR67wyPbP/k7sJlm3mgZ4MEjItsIySI0v6D WEHfcEQY+MG5x1uG
LIWBoSXHExgkI0/1c5odd+LtRTHzTAgGbd5fMgCGDgOY+ig3Tl3Uw0V/MjDw vgNb9NUYw1rMtcUS
BgoDv/99D0QDCxeeMmzYHNgllzwAGzgwvkDH8KhufnKXztqFv9Zfjk1A4C5n Jz3DDr0PO5AdCpXi
ZFkKA/QKoI1Fu3eTwkDifQbJyDMqDFDyQZsS7OEwwsCUZ0Iw2C5CAQkAyQC1 rd9Ar6MLGOCpHzB4
LZYBBg/MmRNXjTLDYPNmEQ08//ypegwMG/aMOxIYIgPLZ3Z3zlpdpueNTjJn wiCuGykdExth0G1w
ps1NFM2jwXeL4aTH8yBB95qMPK2biRImgUXTkynPRGCA9wkwilQa+glkM5Gg wjOd1X654QIGaP+B
o49pC3uckiAM0GN81VWXIBQYN26hNGAANmvWA4nUdgMDEmnHNxQjWqNTIj0Q kTtQ9h57MSyYkUEi
N0/yjhUwuCJfO/3lyNxE2QMDaCqCg+N5kCAMkpSn0XHfG4kJvOxAtsozERig zMcakR+dpmAA7//A
o7Octy9Hu/XRSA1HH9PidV76yED2GIMHyjCU6LXXKvr0WZwgDKI1DSVYz+1J kMi7BcfxwPaFMieX
QBg4USn1abIaBpDb0LaTOAySlGekSceL1iFj01P0PBOEgf5u1sMgXgedyloB GGAIqRo7pCalaBta
2vDOO4eTBIMEL9MJCRLkgehDxkih6IPB8BaCk6sgDJyolPo02Q4D6btVfOAJ DJKRZwQGXrQOGWEQ
Pc+shYFpbiL5kgHGlSYFBol3F+M3te8xNjRMuXY0GEVqmH9CBQ1yuNGYCbFH cBEGrvVP6oGEgegc
U+1FXsHA8zwlrmTxEmwd0sPAPk8vYdDWn+xVu3OSakU4MjhuojoVE4AEyYNB 4pdjgIF5SJKHPMCP
aJibSL6WPGFybBLgSgmDxH/uZOSQ+TCAasKpxXq7WLYXeQgD1V7kSZ7Kayf4 drT+HnKSpxPpnNyX
6E/GKFKMHTr1UTdjSZ2cwpM0gAE6BmQnATaUoXVImid9Biiqcs2ehAXy2mPm meBcFEphOH3D3ESi
E8hxXwJh4Mm96nkmWQED+ZwecwoH+FlPHLf+R/IqT88LhkI6zNOJdE7uS32n sZP07ZIG8w6pZQxO
PfX30tBJoLcePRYl2IGs990JDiQ1qBTzHQU9MBJR+Li3zBxjQJ6RMEhE+eQd my0wkM/pMXVEGifJ
YuZj4IEneXqSiaHkDvN0mCwuWXybGG4Ovt7evOoD9zAscK5nTGA4z8pdSsLA nW7JPiqLYJBsKZk/
FaACThQgDJyolPo0hIGIW2lUgAqkTAHCIGVSx3UiwoAkoAJUIKUKEAZx+eiU JTbCIGdQpk1HkTIp
eSIqQAWcKEAYOFEp9Wkyf6K61GvKM1IBKmCjAGHgz9uDMEhpgOzPm4ClogKp VIAwSKXazs9FGBAG
VIAKpFQBwsC5g05lyoyCAW4yGhWgAv5XIJU+judyqEBGwcDhNTMZFaACVIAK GBQgDFIaIPP+owJU
gAr4UwHCgDCgAlSAClCBPMKANwEVoAJUgAoQBpyLggpQASpABSoJA94EVIAK UAEqQBj4syeHpaIC
VIAKpFiBSJ/B6S9pPRdrWu/ctJ6bKMXa8XRUgApQgYxRgDBgxxEVoAJUgAq0 9RkwMsgYvPNCqAAV
oAIuFGBkwCcCKkAFqAAVYGTAUQRUgApQASqgRhOxmchFVMVDqAAVoAIZowCb iRgeUgEqQAWoAJuJ
GB5SASpABagAm4kyJsTjhVABKkAFElGAzUQMD6kAFaACVMCqmejkW0p7za7O GV/Q7eYqJyZ4QqMC
VIAKUIG0VmBovnbBKk0/mujE63f1GLf3hBt3dr46z4lpVxQ4Mpwp9XZFvubE hhZojszbS3B2Uifl
F2na41fw9qTe5uboB3X2E3h833p6Uoe3h1M12uMObxd520c3T396p7+p45Ne vFkb8L7W98/huYl6
va71fSlsL7dtyI+eGPJ0Yp6cqy0TUM5Dc6iDwzM6UuNlp+V3mJvTS8B5HZjD 3JyWzcnt4aBUTkqu
0ji5BIcZenuZTgoWRxpn2saRoZN62i4ndVIwx2mc/vQOM3QoSLskwyX8Wbjo 0/47DINT/iD+o1EB
KkAFqEAWK/D/AQiAKp5iRmVBAAAAAElFTkSuQmCC
------=_NextPart_000_00A0_01C70E71.7BAC6F20--

Attached files
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Avatar de Usuario
jasm
Mensajes: 447
Registrado: Mar Jul 08, 2008 8:12 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por jasm »

Manu y Rafa,
A ver si nos entendemos.
1.- Eagle 1 es un gran trabajo de Manu que le ha dedicado mucho tiempo y
esfuerzo por conseguir unas clases para hacer accesible el mundo SQL de
MySQL a los principiantes.
2.- Mis opiniones _particulares_ sobre la forma de trabajar con las
clases de Eagle 1 es sólo eso, mi _opinion particular_.
3.- Nunca he pretendido desmerecer el trabajo de Manu.
Saludos
Jose A. Suarez
Pedro Amaro
Mensajes: 157
Registrado: Jue May 18, 2006 5:10 pm

OT. Tactil_jasm presentado en la feria Lanzametal de Lanzarote

Mensaje por Pedro Amaro »

Fuerte jaula de grillos, si lo se me dejo la foto en la camara.
Un saludo a todos.
Solo una aclaración, la feria se celebro en el "Complejo Agroindustrial de
Teguise", por si hay algun conejero lellendo que no se ofenda.
Responder