Buenas Noches Manu
Por tercera vez consecutiva, te solicito me envies la Clase Eagle1
corregida con el bug que comentaste en este tema, los datos de la
version que utilizo de (x)HArbour y FiveWin te la he comentado
Han pasado casi una semana y no recibo ninguna respuesta ni
resultados hasta la fecha.

De igual manera no recibo contestacion de la ultima consulta
realizada ni del documento solicitado para la autorizacion del uso
de tu libreria.

Lubin Azahuanche
Lubsys Asesores EIRL


--- En eagle1@yahoogroups.com, "lubsys" <lubin@...> escribió:
>
> Buenos Dias Manu
>
> Te reitero mi solicitud para el reenvio de la Clase Eagle1
corregida
> con el bug que comentaste, tal como te comente trabajo con
Harbour
> y xharbour de Diciembre-2007 del Foro del FiveWin
>
> En todo caso las direcciones donde estan los compiladores son :
>
>
> December 2007 builds
> ============
>
> Harbour for Borland:
> http://rapidshare.com/files/73507802/harbour.exe.html
>
> xHarbour for Borland:
> http://rapidshare.com/files/73510124/xharbour.exe.html
>
>
>
>
>
>
>
>
> --- En eagle1@yahoogroups.com, "lubsys" <lubin@> escribió:
> >
> > Buenas Noches Manu
> >
> > Mi estimado, retomemos el tema con el compromiso de seguir
> adelante
> > oportunamente, somos profesionales en programacion y sabemos las
> > necesidades de los clientes y que de ellos dependemos.
> >
> > Asi dejemos atras todo e iniciemos el trabajo..
> >
> > a. Te agradecere me envies la libreria Eagle1 con la correccion
> > mencionada, como sabes utilizo Harbour y xharbour Version 2007-
> > Diciembre que esta publicada en Foro de FiveWin, en todo caso me
> > avisas para reenviartela...
> > Quizas como idea adicional, seria interesante tener los
> lineamientos
> > o un archivo batch para reconstruir la libreria eagle1 o
condor1
> a
> > fin de no cargarte con dicha tarea me imagino quita tiempo.
> >
> > b. Respecto del uso de ALLTRIM(xCCCCC,10) contiene un parametro
> > adicional efectivamente y es un error pero para este caso no es
> > operativo ni genera ninguna accion ni error adicional,
retornando
> el
> > valor normal del ALLTRIM, .
> >
> > c. Respecto a la mi comentario "de no poder grabar el Registro o
> > linea de la tabla", me refiero a los siguiente: -->> es cuando
> luego
> > de haber asignado en variables locales los valores de los campos
> de
> > un registro, luego mostrados en un cuadro de dialogo para
permitir
> > su modificacion por el usuario, al terminar el cuadro de Dialogo
> > (oDlg:End()) , deseo grabar o actualizar estos nuevos datos en
el
> > registro o linea de la tabla, esto no me funciona, y me emite un
> > mensaje de error .
> > Utilice el UPDATE y el FieldPut() (pero este ultimo no le habia
> > puesto el parametro .t. , que veo en tus comentarios en esta
> > contestacion ), el cual probare, pero si tienes algun
comentario
> > adicional que darme, pues bienvenido sea.
> >
> > d. En referencia a tus indicaciones y explicaciones que has
> > expresado me dan una mejor idea como aplicarlas y las llevare al
> > campo de la aplicacion, y sobre el camino te cometare.
> >
> > Por otro lado Manu, si te parece, tratare de publicar ejemplos
con
> > las correciones y/o usos de las funciones para compartir y
> analizar
> > los problemas que van pasando por este camino, esto sera util
para
> > los que viene atras mio... como tu me dijiste en una oportunidad.
> >
> > Ah, por favor, No te olvides del documento de autorizacion de
uso
> de
> > la Libreria que te solicite llenar para mi registro.
> >
> > Gracias por tu atencion
> >
> > Lubin.
> > Lubisys Asesores EIRL
> > Lima - Peru
> >
> >
> >
> >
> > --- En eagle1@yahoogroups.com, "loloexpo" <messoft@> escribió:
> >
> > > Antes de nada lamento todo esto. Realmente quiero que todo
salga
> > > adelante y que Eagle1 sea para todos una plataforma fácil para
> > poder
> > > trabajar con MySQL desde cualquier GUI y especialmente FWH.
> > >
> > > Dicho esto paso a responderte por el mismo orden en que
enumeras
> > las
> > > cuestiones:
> > >
> > > 1. Efectivamente hay un bug muy ridículo pero que es el que te
ha
> > > hecho perder el tiempo. Si sabes compilar un PRG y sustituirlo
> en
> > la
> > > LIB es muy fácil de corregir, edita TMSConnect.prg y marca como
> > > comentario esto que te indico:
> > >
> > > //-------------------------------------------------------------
--
> --
> > ----------//
> > > // Abre la conexion con los parametros especificados
> > >
> > > METHOD Connect( cHost, cUser, cPasswd, ;
> > > cDbName, nPort, cSocket, nFlag ) CLASS
TMSConnect
> > >
> > > local lConnected
> > >
> > > if ::lInit
> > > if lConnected := E1RealConnect( ::hConnect, cHost,
> cUser, ;
> > > cPasswd, cDbName, nPort,
> cSocket,
> > nFlag )
> > > if ValType( cDbName ) == "C"
> > > ::oDataBase := TMSDataBase():New( Self,
cDbName )
> > > endif
> > > ::RefreshVar()
> > > else
> > > ::oError:Show()
> > > // ::Free() //<----- Esto quítalo o coméntalo
> > > endif
> > > else
> > > lConnected := .f.
> > > endif
> > >
> > > ::lConnected := lConnected
> > >
> > > return( lConnected )
> > >
> > > //-------------------------------------------------------------
--
> --
> > ----------//
> > >
> > > Aquí se destruye el objeto con el método ::Free()si no se
> conecta
> > con
> > > lo cual lo que hagas después dará errores.
> > > También puedes volver a crear el objeto, por cierto creo que
hay
> un
> > > error en tu código:
> > >
> > > WHost:=ALLTRIM(WHost,10) // AllTrim sólo admite un
> parámetro,
> > no?
> > > WUser:=ALLTRIM(WUser,10)
> > > WPasw:=ALLTRIM(WPasw,10)
> > > msginfo(Whost+""+WUser+""+WPasw)
> > >
> > > ////// Aquí crea denuevo el objeto:
> > > oCon := TMSConnect():New()
> > >
> > > IF .NOT. oCon:Connect(WHost, WUser, WPasw)
> > > MSGINFO("Paramentros de conexion ERRADA, Verifique ")
> > > oCon:CLOSE()
> > > return .f.
> > > ENDIF
> > >
> > > Yo ya tengo Eagle1 corregida si quieres te la construyo y te
la
> > envío :-)
> > >
> > > Perdón Lubin :-(
> > >
> > > 2. No entiendo la pregunta... a qué te refieres con: "he
logrado
> > > cargar los datos pero no puedo grabar"?
> > >
> > > ----------------------------------
> > >
> > > Ahora las otras preguntas...
> > >
> > > 1. Como se crea tablas con Clave Primaria xxxx :
> > >
> > > Si usas el objeto TMsTable podrás hacerlo muy facilmente con
el
> > método:
> > > CreatePrimaryKey( xCol )
> > > xCol puede ser el nombre de una columna o un array con las
> columnas
> > > que van a formar la clave primaria, ejemplo:
> > > if oTb:CreatePrimaryKey( "nid" )
> > > Alert( "Se creó la clave primaria" )
> > > endif
> > > Si la PK es más de un campo sería así:
> > > if oTb:CreatePrimaryKey( {"nid", "cNombre" } )
> > > Alert( "Se creó la clave primaria" )
> > > endif
> > >
> > > Si decides hacerlo con un objeto TMSCommand sería así:
> > > local cStmt := "ALTER TABLE miTabla ADD PRIMARY KEY ( nid,
> > cNombre )"
> > >
> > > if oCmd:ExecDirect( cStmt )
> > > Alert( "Se creó la clave primaria" )
> > > endif
> > >
> > > Recuerda que puedes crear el objeto oCmd asi:
> > > oCmd := TMSCommand():New( oCon )
> > > o usar la DATA ::oCmd del tipo TMSCommand que tienen los
objetos
> de
> > > manejo de datos (TMSTable, TMSQuery, etc) con lo que sería
asi:
> > >
> > > local cStmt := "ALTER TABLE miTabla ADD PRIMARY KEY ( nid,
> > cNombre )"
> > >
> > > if oTb:oCmd:ExecDirect( cStmt )
> > > Alert( "Se creó la clave primaria" )
> > > endif
> > >
> > > 2. Como crear los Indices u ordenamientos y como hacerlos
> activos.
> > >
> > > Si usas el objeto TMSTable con el método ::CreateIndex(
cIndex,
> > xCol,
> > > lUnique )
> > > Siendo cIndex el nombre del indice, xCol lo mismo que en la PK
y
> > > lUnique un valor lógico que indica si es un índice que no
admite
> > > duplicados.
> > >
> > > OJO!!!! los indices en SQL no tienen el mismo sentido que en
las
> > DBF.
> > > En SQL sirven para acelerar procesos repetitivos con los
campos
> que
> > > forman parte del indice.
> > >
> > > Para ordenar una cosnsulta se usa la clausula ORDER BY campo
> > > Si usas un objeto TMSTable fijate que puedes pasarle todos
estos
> > > parametros al método constructor:
> > > New( oDbCon, cName, cWhere, cHaving, cOrderBy, nLimit )
> > > oDbCon objeto Conexion o DataBase
> > > cName nombre de la tabla
> > > cWhere condicion tipo "nid < 100 and cnombre like 'Manu%'" por
> > ejemplo
> > > cHaving condicion usando alguna función SQL
> > > cOrderBy orden
> > > nLimit limite de registros maximo que nos traeremos desde el
> > servidor
> > >
> > > para tí el importante es el cOrderBy que podrá ser asi:
> > > oTb := TMSTable():New( oCon, "mitabla",,, "nid, importe" )
> > > incluso se puede usar el ordinal de la columna en la consulta:
> > > oTb := TMSTable():New( oCon, "mitabla",,, "1, 5" )
> > > 1 sería la primera columna y 5 la quinta
> > >
> > > Pero si quieres cambiar el orden una vez creado el objeto
> TMSTable
> > > deberías hacerlo asi:
> > >
> > > oTb:SetOrder( xCol )
> > >
> > > xCol puede ser el lugar de la columna por la que quieres
ordenar
> > ejemplo:
> > >
> > > oTb:SetOrder( 1 )
> > >
> > > o puedes usar el nombre:
> > >
> > > oTb:SetOrder( "nid" )
> > > o una lista de nombres de columna o lugar que ocupan:
> > >
> > > oTb:SetOrder( "1, 5, 3" ) ó oTb:SetOrder( "nId, cNombre,
> > nImporte" )
> > >
> > >
> > > Si usas TMSQuery te lo tienes que montar tú:
> > >
> > > local cStmt := "SELECT * FROM miTabla ORDER BY nId, cNombre"
> > >
> > > oQry:Open( cStmt )
> > >
> > > y cada vez que quieras hacer un nuevo orden hacer un Open con
el
> > cStmt
> > > cambiado...
> > >
> > >
> > > 3. como se manejan las tablas relacionadas y como se realiza
> esta
> > > relacion al manejarlos con un listbox
> > >
> > > Aquí tienes que usar forzosamente un objeto TMSQuery.
> > > Por ejemplo:
> > >
> > > cStmt:= "SELECT t1.nid, t1.cNombre, sum( t2.nVentas ) FROM
> Vendedor
> > > t1, Ventas t2 WHERE t1.nid = t2.nid"
> > >
> > > oQry:Open( cStmt )
> > >
> > > Aquí me temo que tendrás que saber un poco de SQL sobre todo la
> > > sentencia SELECT con JOIN por ejemplo. :-(
> > >
> > > Para meterlo en un ListBox es como tú lo has hecho ya.
> > >
> > >
> > > 4. Como se actualizan los registros si vamos a realizar una
> > > actualizacion a varias tablas luego de un proceso. (me
refiero
> a
> > los
> > > SELECT por ejemplo en harbor u clipper)
> > >
> > > Si usas TMSTable tienes:
> > >
> > > METHOD Insert
> > > METHOD Update
> > > METHOD Delete
> > >
> > > Para asignar los valores de las variables puedes usar SetBuffer
(
> n,
> > > Val ) o FiedlPut n, Val )
> > > siendo n el orden la columna o campo y val el valor que le
> quieres
> > > asignar:
> > >
> > > oTb:FieldPut( 1, miVar1 )
> > > oTb:FieldPut( 2, miVar2 )
> > > oTb:FieldPut( 3, miVar3 )
> > >
> > > oTb:Insert( .t. ) // Altas o oTb:Update( .t. ) si quieres
> > actualizar
> > >
> > > Mírate el ejemplo PT05.PRG
> > >
> > >
> > >
> > >
> > > Reitero mis disculpas y espero ayudarte en todo lo que me
> pidas ;-)
> > >
> > > Saludos a todos.
> > > Manu
> > >
> > >
> > >
> > >
> > >
> > >
> > > --- En eagle1@yahoogroups.com, "lubsys" <lubin@> escribió:
> > > >
> > > > Hola Manu
> > > >
> > > > Lamentablemente no he resuelto el problema el cual te resumo
> en
> > lo
> > > > siguiente :
> > > >
> > > > 1. He creado unas variables locales para whost,Wuser,EPasw
> para
> > la
> > > > conexion, las cuales las cargo con los datos de conexion
> > respetiva.
> > > > Si los datos son correctos cargados en la variables ,la
> > conexcion
> > > > se realiza sin problemas, pedi cuando no lo son Yo los
> solicito
> > por
> > > > un cuadro de dialogo y pido el Host, User, Pasw, etc.. pero
> > pese a
> > > > que se digitan los datos correctos , no se conecta.
> > > > He publicado el archivo conec01.prg en la seccion de
archivos
> > para
> > > > ver cual es el problema.
> > > >
> > > > 2. Por otro lado, sencillamente tire la toalla en ese tema y
> por
> > el
> > > > momento estoy cargando los datos internamente por variables
> (por
> > que
> > > > el dialogo no me funciona) hasta esperar alguna ayuda.
> > > >
> > > > Ahora estoy en otro punto, como lo conecto asi no mas
(cargando
> > las
> > > > variables internamente) , he podido crear mi base de datos
en
> > > > MySql, luego tambien mis tablas.
> > > > He intentado hacer un mantenimiento con un listbox incluido,
> el
> > cual
> > > > he logrado cargar los datos pero no puedo grabar ,,
> > > >
> > > > La verdad que la falta de ejemplos y un manual de
referencia
> y
> > la
> > > > demora de dias! en hacerte las consultas es un problema
> mayor,
> > > > pues comprenderas que de esta libreria depende mi trabajo
> pese
> > a
> > > > que he tenido de investigar la clases para ver que
parametros
> > > > usar.... cosa de la cual un usuario final (Programador)
> > deberia
> > > > de simplemente usar las librerias ,, no ponerse a investigar
o
> > > > adivinar como funcionan pues con mi falta de conocimientos
> > profundos
> > > > de Mysql adicionado a la falta de documentacion de la
libreria
> > me
> > > > generan un gran problema.
> > > >
> > > > Tengo muchas preguntas, (claro usando el Eagle, no usando el
> > mysql
> > > > intercativamente por fuera) por ejemplo :
> > > > 1. Como se crea tablas con Clave Primaria xxxx
> > > > 2. Como crear los Indices u ordenamientos y como hacerlos
> > activos.
> > > > 3. como se manejan las tablas relacionadas y como se
> realiza
> > esta
> > > > relacion al manejarlos con un listbox,
> > > > 4. Como se actualizan los registros si vamos a realizar
una
> > > > actualizacion a varias tablas luego de un proceso. (me
refiero
> a
> > los
> > > > SELECT por ejemplo en harbor u clipper)
> > > >
> > > >
> > > > Ojala pudieras brindarme algun ejemplo mas practico
> documentado
> > de
> > > > lo siguiente (aplicado con FiveWin para harbour:
> > > > 1. Un Mantenimiento de una Tabla que se muestre en un
> > listbox ,
> > > > con proceso de lectura,modificacion ,borrado de un registro,
> que
> > > > permita mostrarse en tres ordenamientos ,, Eje, Codigo,
> nombre,
> > > > categoria
> > > >
> > > > 2. Un Mantenimiento de una Tabla relacionada mostrada en
un
> > > > listbox que permita actualizar datos.
> > > >
> > > >
> > > > Como veras, son muchas las inquietudes, quizas sea el unico
> al
> > > > parecer, pero necesito saber si vas a poder estar en
> capacidad
> > de
> > > > apoyarme en el uso de esta libreria pero en forma oportuna
no
> a
> > los
> > > > dias o cuando puedas, para poder tomar una descision , pues
> como
> > > > comprenderas y ya te comente al inicio, de esto vive mi
> Familia
> > y
> > > > Yo, asi mismo en correos internos te mande un documento para
> que
> > me
> > > > envies la autorizacion de Uso de tu libreria, que sustenta
la
> > > > inversion que hice contigo, por favor si pudieras
remitirmela,
> > te lo
> > > > agradecere.
> > > >
> > > >
> > > > Lubin Azahuanche
> > > > Lubsys Asesores EIRL
> > > > Lima - Peru
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > --- En eagle1@yahoogroups.com, Manu <messoft@> escribió:
> > > > >
> > > > > Buenos días a todos...
> > > > > Lubin se arregló el problema?
> > > > >
> > > > > He estado fuera y no he podido responderte....
> > > > >
> > > >
> > >
> >
>