xfree.public

Re: Hola Al Grupo

2008-05-07T18:58:29Z

Dear Nolberto

We are counting with you

-----------------------------


Contamos contigo Nolberto


Saludos
Osvaldo Ramirez


  Paulino wrote:
> Felicitaciones
> Enhorabuena   les deseo mucho exito , hacia mucha falta un lugar donde 
> se pueda ubicar material , como es lo phil y otros amigos de alaska, que 
> aportado con sus ideas
> 
>

Re: PostgreSQL

2008-05-07T20:41:01Z

Hi,

At least in postgreSQL 8.3 libpq.dll have the following dependencies

comerr32.dll
gssapi32.dll
k5sprt32.dll
krb5_32.dll
libeay32.dll
libiconv2.dll
libintl3.dll
ssleay32.dll

You can found all in the pq\bin directory
also if want to be sure libpq.dll are loaded from the right path 
change the init proc in libpq4xb.prg replacing nLoadLibrary("libpq.dll") with the full qualified path
of your postgres bin folder or where you have all this 9 files

Regards,
Pablo Botella

-----------------------------------------------------------------------------

Hola,

Al menos en la version 8.3  de Postgres,  libpq.dll depende de las siguientes DLLs:

comerr32.dll
gssapi32.dll
k5sprt32.dll
krb5_32.dll
libeay32.dll
libiconv2.dll
libintl3.dll
ssleay32.dll

Todas estan disponibles en el directorio pq\bin 

Además para estar seguro de cargar libpq.dll del directorio adecuado 
puedes cambiar el init proc en libpq4xb.prg reemplazando  nLoadLibrary("libpq.dll") por la ruta completa
de tu directorio postgres /bin o donde hayas ubicado las 9 DLLs necesarias

Saludos,
Pablo Botella

Re: PostgreSQL

2008-05-08T05:51:19Z

Hi Pablo,
> change the init proc in libpq4xb.prg replacing nLoadLibrary("libpq.dll") 
> with the full qualified path
ok, this was not solution
it started after I copied all pg's dll from pg bin into windows\system32 
directory

anyway, now I get this error:
Conection to database failed: FATAL: database "database" does not exist

Why? It does exist...


Sbory patriace tomuto databzovmu systmu bud vlastnen uzvatelom
"user_200". Tento uzvatel mus tiez byt vlastnkom procesu servera.

Zoskupenie databz bude inicialozovan s nrodnm nastavenm 
Slovak_Slovakia.1250.
Implicitn kdovanie databzy bolo v slade s tm nastaven na WIN1250.
initdb: could not find suitable text search configuration for locale 
Slovak_Slovakia.1250
The default text search configuration will be set to "simple".

vytvra sa adresr f:/pgsql/MyDatabase ... ok
creating subdirectories ... ok
nastavuje sa implicitn hodnota max_connections ... 100
selecting default shared_buffers/max_fsm_pages ... 32MB/204800
vytvraj sa konfiguracn sbory ... ok
vytvra sa databza template1 v f:/pgsql/MyDatabase/base/1 ... ok
initializing pg_authid ... ok
initializing dependencies ... ok
vytvraj sa systmov pohlady ... ok
loading system objects' descriptions ... ok
vytvraj sa konverzie ... ok
creating dictionaries ... ok
nastavuj sa prvomoci pre zabudovan objekty ... ok
vytvra sa informacn schma ... ok
vysva sa databza template1 ... ok
kopruje sa template1 do template0 ... ok
copying template1 to postgres ... ok

Success. You can now start the database server using:

    "f:\pgsql\bin\postgres" -D "f:/pgsql/MyDatabase"
or
    "f:\pgsql\bin\pg_ctl" -D "f:/pgsql/MyDatabase" -l logfile start



but there was one error or warning message:
initdb: could not find suitable text search configuration for locale 
Slovak_Slovakia.1250
I think, it is not many importnat now(maybe later)... or yes?

Regards
              Zdeno

Re: PostgreSQL

2008-05-08T16:09:43Z

Hi Zdeno

Please see
  http://pginstaller.projects.postgresql.org/faq/FAQ_windows.html

Best Regards
Hector

"Zdeno Bielik" <bielik AT stonline.sk> escribi en el mensaje 
news:51aa01c1$4a94495d$a068@news.xbwin.com...
> Hi Pablo,
>> change the init proc in libpq4xb.prg replacing nLoadLibrary("libpq.dll") 
>> with the full qualified path
> ok, this was not solution
> it started after I copied all pg's dll from pg bin into windows\system32 
> directory
>
> anyway, now I get this error:
> Conection to database failed: FATAL: database "database" does not exist
>
> Why? It does exist...
>
>
> Sbory patriace tomuto databzovmu systmu bud vlastnen uzvatelom
> "user_200". Tento uzvatel mus tiez byt vlastnkom procesu servera.
>
> Zoskupenie databz bude inicialozovan s nrodnm nastavenm 
> Slovak_Slovakia.1250.
> Implicitn kdovanie databzy bolo v slade s tm nastaven na WIN1250.
> initdb: could not find suitable text search configuration for locale 
> Slovak_Slovakia.1250
> The default text search configuration will be set to "simple".
>
> vytvra sa adresr f:/pgsql/MyDatabase ... ok
> creating subdirectories ... ok
> nastavuje sa implicitn hodnota max_connections ... 100
> selecting default shared_buffers/max_fsm_pages ... 32MB/204800
> vytvraj sa konfiguracn sbory ... ok
> vytvra sa databza template1 v f:/pgsql/MyDatabase/base/1 ... ok
> initializing pg_authid ... ok
> initializing dependencies ... ok
> vytvraj sa systmov pohlady ... ok
> loading system objects' descriptions ... ok
> vytvraj sa konverzie ... ok
> creating dictionaries ... ok
> nastavuj sa prvomoci pre zabudovan objekty ... ok
> vytvra sa informacn schma ... ok
> vysva sa databza template1 ... ok
> kopruje sa template1 do template0 ... ok
> copying template1 to postgres ... ok
>
> Success. You can now start the database server using:
>
>    "f:\pgsql\bin\postgres" -D "f:/pgsql/MyDatabase"
> or
>    "f:\pgsql\bin\pg_ctl" -D "f:/pgsql/MyDatabase" -l logfile start
>
>
>
> but there was one error or warning message:
> initdb: could not find suitable text search configuration for locale 
> Slovak_Slovakia.1250
> I think, it is not many importnat now(maybe later)... or yes?
>
> Regards
>              Zdeno
>
>

Re: PostgreSQL

2008-05-08T16:15:51Z

H Hector,

> Please see
>  http://pginstaller.projects.postgresql.org/faq/FAQ_windows.html

super, many thanks! I will read it carefully.

             Zdeno

Re: PostgreSQL

2008-05-08T16:21:12Z

Dear Zdeno Bielik


how do you create the database "database" ?

PostgreSQL is case sensitive.

Best Regards
Osvaldo Ramirez


> anyway, now I get this error:
> Conection to database failed: FATAL: database "database" does not exist
> 
> Why? It does exist...
>

Re: PostgreSQL

2008-05-08T23:34:58Z

Hello guys

Actualy I know 4 ways to connect to PostgreSQL


1.- PostgreSQL - Terminal

2.- pgAdminIII	- GUI Based
http://wwwmaster.postgresql.org/download/mirrors-ftp?file=%2Fpgadmin3%2Frelease%2Fv1.8.2%2Fwin32%2Fpgadmin3-1.8.2-2.zip

3.- pgAccess	- GUI Based
http://sourceforge.net/project/showfiles.php?group_id=52209


4.- phppgAdmin  - Web Based
http://phppgadmin.sourceforge.net/?page=download


HTH
Osvaldo Ramirez


---------------------------------------------------------------------------------------


Actualmente conosco cuatro formas de conectarnos a PostgreSQL

1.- PostgreSQL - Terminal


2.- pgAdminIII - GUI Based
http://wwwmaster.postgresql.org/download/mirrors-ftp?file=%2Fpgadmin3%2Frelease%2Fv1.8.2%2Fwin32%2Fpgadmin3-1.8.2-2.zip

3.- pgAccess   - GUI Based
http://sourceforge.net/project/showfiles.php?group_id=52209


4.- phppgAdmin - Web Based
http://phppgadmin.sourceforge.net/?page=download


Saludos
Osvaldo Ramirez

Re: PostgreSQL

2008-05-16T10:48:33Z

Hola Osvaldo

La instalación me ha funcionado bien y también un ejemplo de la libreria de 
Boris, todo esto trabajando en local.

También me instala bien en un 2003 server. He quitado el firewall y el 
antivirus para hacer pruebas. He visto que había que abrir el puerto 5432 
pero supongo que esto es solo cuando tienes el Firewall.

Para conectar con el desde el cliente (Vista Bussiness) solo cambio el 
nombre del servidor. Pero aqui me he atascado. He probado a poner la ip del 
servidor 192.168.1.3, el nombre del servidor tal y como lo veo en 
pgAdminIII, veo  pg2003(localhost:5432) y en el cliente escribo pg2003.

Gracias por tu ayuda

Jose Valle

Re: PostgreSQL

2008-05-16T16:34:05Z

Estimado Jose Valle

Precesimanet en la semana, hasta ayer en la noche, puede hacer funcionar 
  el PostgreSQL en un windows 2003 y accesarlo desde cualquier 
computadora localmente

Te comento que batalle mucho usando el zip y descomprimirlo en el 
servidor y echarlo andar como servicio.

Bueno, lo que hize :

1.- Baje un binario que me instalara Postgresql
2.- Cuando lo estaba instalando le dije que lo instalara en un folder 
c:\postgres o c:\pgsql.
Porque ?, bueno, para no batallar ya que por default lo instala en 
c:\programs files\postgresql .... etc.etc, asi que se me dificulto via 
la ventana consola.

3.- La instalacion se debe hacer como un servicio..
y en esa ventana te va a pedir el usuario y password a crear para 
windows 2003

Ya que es necesario para un windows 2003, para correr un servicio, es 
necesario una cuenta y un password, asi que esta ventana para eso se 
refiere.

4.- Despues de va a pedir la ventana de la creation de la base de datos 
la cual tambien te va a pedir el superuser y el password, pero ojo
hay un cuadrito en el cual dice que si vas aceptar todas las conecciones.
el cual yo palomee.

5.- y listo

ahora el archivo que modifique es este ; pg_hba.conf
y agrege estas lineas

host all all 192.168.1.0/24 md5
y resete el servicio.

y listo, ahora lo que quiero es aceptar conecciones desde fuera
ya que abri el puerto y lo rutee al ip del server.
Se que me fata, agregar en pg_hba.conf, pero sigo probando.

Dime se te funciona.

Saludos

  wrote:
> Hola Osvaldo
> 
> La instalación me ha funcionado bien y también un ejemplo de la libreria 
> de Boris, todo esto trabajando en local.
> 
> También me instala bien en un 2003 server. He quitado el firewall y el 
> antivirus para hacer pruebas. He visto que había que abrir el puerto 
> 5432 pero supongo que esto es solo cuando tienes el Firewall.
> 
> Para conectar con el desde el cliente (Vista Bussiness) solo cambio el 
> nombre del servidor. Pero aqui me he atascado. He probado a poner la ip 
> del servidor 192.168.1.3, el nombre del servidor tal y como lo veo en 
> pgAdminIII, veo  pg2003(localhost:5432) y en el cliente escribo pg2003.
> 
> Gracias por tu ayuda
> 
> Jose Valle
>

Re: PostgreSQL

2008-05-16T16:41:05Z

Estimado Jose

Actualmente, yo hago mis pruebas desde un windows vista ultimate

Saludos
Osvaldo Ramirez

Re: PostgreSQL

2008-05-16T16:55:28Z

Estimado Jose

Ya ahorita precisamente, mi programa de prueba esta corriendo en un 
windows XP  en la misma red local de mi cliente y creo yo que el acceso 
esta excelente.

Anexo mi pantalla

Mira, esto es mi punto.

Usar SQLExpress++ para mis tablas y mantenimientos

Usar ot4xb, para cuando requiero, ciertos procesos donde quiero mas 
rapidez, aun asi, creo que ya los sistemas son en si rapidos, ya 
contamos con mas memoria y mejores procesadores.


Saludos
Osvaldo Ramirez

Re: PostgreSQL

2008-05-17T00:58:39Z

Muchisimas gracias Osvaldo. Todo funciona perfecto.

Ayer estuve 10 horas instalando y desinstalando y hoy en 10 minutos ya me 
conecto. Tuve un problema con el nombre del driver en el cliente que en un 
sitio ponia "PostgreSQL30" y en otro "PostgreSQL ANSI" pero ese ha sido el 
único tropiezo.

Estaba a punto de comprar Sqlexpress pero tengo dudas de si será mejor 
opcion 'Artica'.

Hasta pronto

Jose Valle






"Osvaldo Ramirez" <ramirezosvaldo@yahoo.com> escribió en el mensaje de 
noticias news:6c5ca45b$20b4827b$86d5@news.xbwin.com...
> Estimado Jose Valle
>
> Precesimanet en la semana, hasta ayer en la noche, puede hacer funcionar 
> el PostgreSQL en un windows 2003 y accesarlo desde cualquier computadora 
> localmente
>
> Te comento que batalle mucho usando el zip y descomprimirlo en el servidor 
> y echarlo andar como servicio.
>
> Bueno, lo que hize :
>
> 1.- Baje un binario que me instalara Postgresql
> 2.- Cuando lo estaba instalando le dije que lo instalara en un folder 
> c:\postgres o c:\pgsql.
> Porque ?, bueno, para no batallar ya que por default lo instala en 
> c:\programs files\postgresql .... etc.etc, asi que se me dificulto via la 
> ventana consola.
>
>
> 3.- La instalacion se debe hacer como un servicio..
> y en esa ventana te va a pedir el usuario y password a crear para windows 
> 2003
>
> Ya que es necesario para un windows 2003, para correr un servicio, es 
> necesario una cuenta y un password, asi que esta ventana para eso se 
> refiere.
>
>
> 4.- Despues de va a pedir la ventana de la creation de la base de datos la 
> cual tambien te va a pedir el superuser y el password, pero ojo
> hay un cuadrito en el cual dice que si vas aceptar todas las conecciones.
> el cual yo palomee.
>
>
> 5.- y listo
>
> ahora el archivo que modifique es este ; pg_hba.conf
> y agrege estas lineas
>
> host all all 192.168.1.0/24 md5
> y resete el servicio.
>
> y listo, ahora lo que quiero es aceptar conecciones desde fuera
> ya que abri el puerto y lo rutee al ip del server.
> Se que me fata, agregar en pg_hba.conf, pero sigo probando.
>
> Dime se te funciona.
>
> Saludos
>
>
>
>
>
>
>
>
>
>  wrote:
>> Hola Osvaldo
>>
>> La instalación me ha funcionado bien y también un ejemplo de la libreria 
>> de Boris, todo esto trabajando en local.
>>
>> También me instala bien en un 2003 server. He quitado el firewall y el 
>> antivirus para hacer pruebas. He visto que había que abrir el puerto 5432 
>> pero supongo que esto es solo cuando tienes el Firewall.
>>
>> Para conectar con el desde el cliente (Vista Bussiness) solo cambio el 
>> nombre del servidor. Pero aqui me he atascado. He probado a poner la ip 
>> del servidor 192.168.1.3, el nombre del servidor tal y como lo veo en 
>> pgAdminIII, veo  pg2003(localhost:5432) y en el cliente escribo pg2003.
>>
>> Gracias por tu ayuda
>>
>> Jose Valle
>>

Re: PostgreSQL

2008-05-16T13:04:47Z

Estimado Jose Valle


No se cuando los osos van a liberar su codigo, codigo que me supongo que 
ya lo tienen trabajando, y no se si lo van a vender a nosotros.
Pero bueno, ese es negocio de ellos.


Actualmente utilizo SQLExpress++ con MySQL, y funciona muy bien, asi que 
ahora el cambio a PostgreSQL creo que va mejor.

Ahora tambien podemos continuar y mejorar ot4xb el cual habla 
direcamente al API de PostgreSQL, y segun se phAdminIII lo hace de la 
misma manera. Asi que creo que ot4xb esta perfecto.


Pero bueno, hay q esperar.

Saludos
Osvaldo Ramirez


  wrote:
> Muchisimas gracias Osvaldo. Todo funciona perfecto.
> 
> Ayer estuve 10 horas instalando y desinstalando y hoy en 10 minutos ya 
> me conecto. Tuve un problema con el nombre del driver en el cliente que 
> en un sitio ponia "PostgreSQL30" y en otro "PostgreSQL ANSI" pero ese ha 
> sido el único tropiezo.
> 
> Estaba a punto de comprar Sqlexpress pero tengo dudas de si será mejor 
> opcion 'Artica'.
> 
> Hasta pronto
> 
> Jose Valle
> 
> 
> 
> 
> 
> 
> "Osvaldo Ramirez" <ramirezosvaldo@yahoo.com> escribió en el mensaje de 
> noticias news:6c5ca45b$20b4827b$86d5@news.xbwin.com...
>> Estimado Jose Valle
>>
>> Precesimanet en la semana, hasta ayer en la noche, puede hacer 
>> funcionar el PostgreSQL en un windows 2003 y accesarlo desde cualquier 
>> computadora localmente
>>
>> Te comento que batalle mucho usando el zip y descomprimirlo en el 
>> servidor y echarlo andar como servicio.
>>
>> Bueno, lo que hize :
>>
>> 1.- Baje un binario que me instalara Postgresql
>> 2.- Cuando lo estaba instalando le dije que lo instalara en un folder 
>> c:\postgres o c:\pgsql.
>> Porque ?, bueno, para no batallar ya que por default lo instala en 
>> c:\programs files\postgresql .... etc.etc, asi que se me dificulto via 
>> la ventana consola.
>>
>>
>> 3.- La instalacion se debe hacer como un servicio..
>> y en esa ventana te va a pedir el usuario y password a crear para 
>> windows 2003
>>
>> Ya que es necesario para un windows 2003, para correr un servicio, es 
>> necesario una cuenta y un password, asi que esta ventana para eso se 
>> refiere.
>>
>>
>> 4.- Despues de va a pedir la ventana de la creation de la base de 
>> datos la cual tambien te va a pedir el superuser y el password, pero ojo
>> hay un cuadrito en el cual dice que si vas aceptar todas las conecciones.
>> el cual yo palomee.
>>
>>
>> 5.- y listo
>>
>> ahora el archivo que modifique es este ; pg_hba.conf
>> y agrege estas lineas
>>
>> host all all 192.168.1.0/24 md5
>> y resete el servicio.
>>
>> y listo, ahora lo que quiero es aceptar conecciones desde fuera
>> ya que abri el puerto y lo rutee al ip del server.
>> Se que me fata, agregar en pg_hba.conf, pero sigo probando.
>>
>> Dime se te funciona.
>>
>> Saludos
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>  wrote:
>>> Hola Osvaldo
>>>
>>> La instalación me ha funcionado bien y también un ejemplo de la 
>>> libreria de Boris, todo esto trabajando en local.
>>>
>>> También me instala bien en un 2003 server. He quitado el firewall y 
>>> el antivirus para hacer pruebas. He visto que había que abrir el 
>>> puerto 5432 pero supongo que esto es solo cuando tienes el Firewall.
>>>
>>> Para conectar con el desde el cliente (Vista Bussiness) solo cambio 
>>> el nombre del servidor. Pero aqui me he atascado. He probado a poner 
>>> la ip del servidor 192.168.1.3, el nombre del servidor tal y como lo 
>>> veo en pgAdminIII, veo  pg2003(localhost:5432) y en el cliente 
>>> escribo pg2003.
>>>
>>> Gracias por tu ayuda
>>>
>>> Jose Valle
>>>
>

Re: PostgreSQL

2008-05-17T15:38:43Z

Hola Jose,

> Estaba a punto de comprar Sqlexpress pero tengo dudas de si será mejor 
> opcion 'Artica'.

Cuando Alaska saque su V 2.0 de Xbase++ será muy bonito poder usar SQL directamente en tus PRGs, ya que el preprocesador de Xbase++ lo va a gestionar automáticamente. 

Ahora bien la filosofía es la misma que en  ODBCDBE solo que con algunas ventajas adicionales especialpente para postgres, ya que le han añadido un gateway para poder Xbase++ como lenguaje procedural, la desventaja es que solo vas a aprovechar un % de lo que te ofrece la programación SQL.

Con SQLExpress tienes las herramientas para poder hacer lo mismo que podrías hacer en VB o C++ usando ODBC. 

Asi que para ayudarte a decidir hazte la siguiente pregunta, ODBCDBE me sirve para hacer lo que necesito?

Si, me sobra ->  Pues entonces empieza hoy con ODBCDBE  y cuando salga la V 2.0 pues sigues por el mismo camino.

No,  hay cosas que me gustaría hacer y no puedo. Entonces compra SQLExpress y usalo ya. Cuando salga la V 2.0 de Xbase++ si funciona bien puedes seguir usando SQLExpress en el cliente y empezar a meter stored procedures en el server con Xbase++

Ahora bien si lo que quieres es hacer una aplicación con salida web usando xb2net por ejemplo, entonces no vas a necesitar cursores, ahí lo suyo sería hacer consultas limitando numero de records y replaces dentro de una transacción, y para eso con aprender a usar cuatro funcioncitas del libpq.dll te sobra, te ahorras hasta el driver ODBC, y repito lo dicho antes cuando salga Xbase++ 2.0 sigues teniendo opción de agregar stored procedures en Xbase++ en el server sin tener que cambiar el codigo en el cliente.

Saludos,
Pablo Botella

necesito conectarme a postgresql sin utilizar ODBCDEB

2008-05-18T09:25:00Z

necesito conectarme a postgresql sin utilizar ODBCDEB

Re: necesito conectarme a postgresql sin utilizar ODBCDEB

2008-05-18T09:58:01Z

Hola,

>necesito conectarme a postgresql sin utilizar ODBCDEB

Ahi tienes el enlace a un test que puso Osvaldo usando libpq y un pequeño wrapper que le hice usando mi ot4xb.dll
http://news.xbwin.com/xfree.public/11/attachments/0/test.prg

Aquí está el wrapper
http://news.xbwin.com/xfree.public/11/attachments/1/libpq4xb.prg

y aqui el ultimo build que he publicado del ot4xb
http://news.xbwin.com/xfree.resources/38/attachments/0/ot4xb.zip

Junto con tu aplicación debes distribuir las siguientes DLLs
libpq.dll
comerr32.dll
gssapi32.dll
k5sprt32.dll
krb5_32.dll
libeay32.dll
libiconv2.dll
libintl3.dll
ssleay32.dll

El wrapper está basado en la version 8.3 de postgress y la idea es acceder directamente a las funciones lo más parecido posible a como están documentadas. Tambien tienes definidas todas las estructuras necesarias para usar estas funciones.

Durante las proximas semanas iremos preparando un paquete para incluirlo en xfree.resources, incluyendo algunos ejemplos y un tutorial que anda preparando Osvaldo. Tambien pondré algun ejemplo usando PQexecParams() junto con Array2ppMarshall() del ot4xb que está especialmente pensada para usar con PQexecParams() y facilita mucho las cosas.
 
Bueno espero que te sirva de ayuda para comenzar.

Saludos,
Pablo Botella
www.xbwin.com

Re: necesito conectarme a postgresql sin utilizar ODBCDEB

2008-05-18T19:28:59Z

Estimado Ramon

Bueno, logico que lo vas a usar con Xbase++
asi que no hay muchas sopas, solo una ... ot4xb.lib

Prueba lo que Pablo te dice, y poco a poco
vemos como darle mas sabor a esto.

Saludos
Osvaldo Ramirez

Re: PostgreSQL

2008-05-26T15:23:53Z

Amigos

Vale la pena la lectura

http://www.pgcon.org/2008/schedule/attachments/51_xpp-meets-postgresql.pdf

Saludos
Osvaldo Ramirez

Como puedo enviar correos desde xBase.

2008-05-29T13:09:56Z

Hola Al Grupo
Necesito enviar correos desde xBase

Nolberto Paulino
digitsoft26@hotmail.com
digitsoft26@yahoo.com
digitsoft26@gmail.com

Re: Como puedo enviar correos desde xBase.

2008-05-29T14:06:36Z

Estimado Nolberto

Yo uso marshallsoft see4xb.dll, el cual me ha funcionado bien.
Ahora, en su momento utilize unas llamadas a dll para que pusiera
dicho correo en la bandeja de outlook express, y este lo mandara.

Debera haber otras utilerias, pero no las he manejado.

Saludos
Osvaldo Ramirez

  Paulino wrote:
> 
> Hola Al Grupo
> Necesito enviar correos desde xBase
> 
> Nolberto Paulino
>   digitsoft26@hotmail.com
>   digitsoft26@yahoo.com
>   digitsoft26@gmail.com

Re: Como puedo enviar correos desde xBase.

2008-05-29T16:04:08Z

Hola, yo uso hace años Socmapi3, lo puedes descargar de la web de Alaska. Envia los mail a Outlook.

http://www.alaska-software.com/scripts/waa001.dll?WAA_PACKAGE=WebLib&WAA_FORM=ListFiles&WEBLIB_SECT=12

Tambien uso Fastrepots para enviar mails, en este caso los envia directamente.

"Nolberto Paulino" <digitsoft26@hotmail.com> escribió en el mensaje de noticias news:37f8986c$3d0d1d8b$a702@news.xbwin.com...

Hola Al Grupo
Necesito enviar correos desde xBase

Nolberto Paulino
digitsoft26@hotmail.com
digitsoft26@yahoo.com
digitsoft26@gmail.com

Consulta Postgree Sql

2008-06-02T15:33:51Z

Hola:  Estoy empezando con PostgreSql.  Pgadmin3 me ha ayudado mucho a 
entender sql. Tengo la impresión de que además de fiabilidad vamos a ganar 
claridad en nuestras aplicaciones.

En mi aplicacion contable, en el fichero de asientos, tengo las columnas 
'cuenta','debehaber','importe'

para calcular un balance de sumas y saldos a una fecha puedo usar (casi)

SELECT cuenta, sum(importe) AS saldo  FROM apuntes WHERE fecha <= '" + 
DtoC(mFecha) +"' GROUP BY cuenta ORDER BY cuenta ASC")

pero tengo un problema. en vez de sum(importe) querria poner 
sum(iif(debehaber="D",importe,-importe))

¿Sabéis como se puede hacer eso?

por cierto que estoy sorprendidisimo con la velocidad que devuelve 
resultados, con 1530 cuentas y 75640 apuntes me tarda 1 segundo, lo mismo 
para el saldo de una cuenta a una fecha que de todas las cuentas. Con dbf me 
tardaba 6 segundos en local y 200 segundos en 2003 server.

Con esto doy por bueno el consejo de no guardar datos acumulados (saldos de 
cuenta, stocks de artículos, etc)


Hasta pronto

Jose Valle

Re: Consulta Postgree Sql

2008-06-02T18:08:33Z

Estimado Jose Valle

Te comento yo estoy apenas en la parte de los browses, e igual que tu
veo muy bien los resultados usando ODBC con SQLExpress++.

No me se la respuesta, pero igual voy a investigar.
Lo que he visto y tengo que analizar es que usando SQLExpress++ los 
campos integer me los devuelve tipo "Caracter", aun no he puesto el 
ejemplo en el foro de Boriz, pero en cuanto tenga un test, lo pongo.

Ahora has visto las funciones q trae integradas PostgreSQL ?
A lo mejor ahi hay para hacer condiciones...

Saludos
Osvaldo Ramirez


wrote:
> Hola:  Estoy empezando con PostgreSql.  Pgadmin3 me ha ayudado mucho a 
> entender sql. Tengo la impresión de que además de fiabilidad vamos a 
> ganar claridad en nuestras aplicaciones.
> 
> En mi aplicacion contable, en el fichero de asientos, tengo las columnas 
> 'cuenta','debehaber','importe'
> 
> para calcular un balance de sumas y saldos a una fecha puedo usar (casi)
> 
> SELECT cuenta, sum(importe) AS saldo  FROM apuntes WHERE fecha <= '" + 
> DtoC(mFecha) +"' GROUP BY cuenta ORDER BY cuenta ASC")
> 
> pero tengo un problema. en vez de sum(importe) querria poner 
> sum(iif(debehaber="D",importe,-importe))
> 
> ¿Sabéis como se puede hacer eso?
> 
> por cierto que estoy sorprendidisimo con la velocidad que devuelve 
> resultados, con 1530 cuentas y 75640 apuntes me tarda 1 segundo, lo 
> mismo para el saldo de una cuenta a una fecha que de todas las cuentas. 
> Con dbf me tardaba 6 segundos en local y 200 segundos en 2003 server.
> 
> Con esto doy por bueno el consejo de no guardar datos acumulados (saldos 
> de cuenta, stocks de artículos, etc)
> 
> 
> Hasta pronto
> 
> Jose Valle
> 
> 
>

Re: Consulta Postgree Sql

2008-06-02T18:15:58Z

Estimado Jose Valle

Tienes FastReport for Xbase++ ?
Si, si, has probado el uso de select y ver reportes en este ?

Saludos
Osvaldo Ramirez

  wrote:
> Hola:  Estoy empezando con PostgreSql.  Pgadmin3 me ha ayudado mucho a 
> entender sql. Tengo la impresión de que además de fiabilidad vamos a 
> ganar claridad en nuestras aplicaciones.
> 
> En mi aplicacion contable, en el fichero de asientos, tengo las columnas 
> 'cuenta','debehaber','importe'
> 
> para calcular un balance de sumas y saldos a una fecha puedo usar (casi)
> 
> SELECT cuenta, sum(importe) AS saldo  FROM apuntes WHERE fecha <= '" + 
> DtoC(mFecha) +"' GROUP BY cuenta ORDER BY cuenta ASC")
> 
> pero tengo un problema. en vez de sum(importe) querria poner 
> sum(iif(debehaber="D",importe,-importe))
> 
> ¿Sabéis como se puede hacer eso?
> 
> por cierto que estoy sorprendidisimo con la velocidad que devuelve 
> resultados, con 1530 cuentas y 75640 apuntes me tarda 1 segundo, lo 
> mismo para el saldo de una cuenta a una fecha que de todas las cuentas. 
> Con dbf me tardaba 6 segundos en local y 200 segundos en 2003 server.
> 
> Con esto doy por bueno el consejo de no guardar datos acumulados (saldos 
> de cuenta, stocks de artículos, etc)
> 
> 
> Hasta pronto
> 
> Jose Valle
> 
> 
>

Re: Consulta Postgree Sql

2008-06-02T18:45:00Z

Hi all,

just one question: are news groups in news.xbwin.com
"international" or "spanish" speaking/writing?
It looks, here are(and will be step-by-step)
already many usefull informations,
but it is very time-consuming for me
translate almost message to english
or to my national language...
Pablo Botella is in "dual" mode, but many others not...

       Zdeno

Re: Consulta Postgree Sql

2008-06-02T19:31:23Z

Dear Zdeno Bielik

I am very sorry,
I forgot to try, at least translate the question .and. answer.

We dont want to exclude people that write or speak english, but
some times, when some of us, ask in spanish, answer in spanish.

But, follow the topic.

Jose ask :

Is there a way to do this :

SELECT cuenta, sum(iif(debehaber="D",importe,-importe)) AS saldo  FROM 
apuntes WHERE fecha <= '" + DtoC(mFecha) +"' GROUP BY cuenta ORDER BY 
cuenta ASC")

And I said, that I dont know, but we need to investigate if PostgreSQL 
has a function like "iif".

....

And my question was if he has a Fast Report if yes, if he has been 
testing FastReport for Xbase++ using Postgresql.

Again, I am sorry, and will kept in mind to try to traslate or response 
  in "dual" mode.

Best Regards
Osvaldo Ramirez

  - ACE System wrote:
> Hi all,
> 
> just one question: are news groups in news.xbwin.com
> "international" or "spanish" speaking/writing?
> It looks, here are(and will be step-by-step)
> already many usefull informations,
> but it is very time-consuming for me
> translate almost message to english
> or to my national language...
> Pablo Botella is in "dual" mode, but many others not...
> 
>        Zdeno
> 
>

Re: Consulta Postgree Sql

2008-06-02T20:33:43Z

Hi,

> just one question: are news groups in news.xbwin.com
> "international" or "spanish" speaking/writing?
Good question.

I was hosting initially in this NS the groups ot4xb,sqlexpress,xb2net from years was international and everybody writes in english.

When Osvaldo and Hector was proposed me to include also the xfree.* groups in my server, I was think will be usefull to have a readonly secion of resources and of course in xfree.resources all the content MUST be in ENGLISH in the benefit of the entire Xbase++ comunity

Also will be nice that content in xfree.public will be in english, but the english language is hard to some spanish speakers, and also the original xfree groups in yahoo was in spanish so I think think we can tolerate some spanish incursions here, Osvaldo, Jose Luis and me will try to translate to english at least the most relevant messages, and in the worst case mature projects will be published in english in xfree.resources

Regards,
Pablo Botella

Re: Consulta Postgree Sql

2008-06-02T23:12:46Z

I will also write in English ( or something like that)



"Osvaldo Ramirez" <ramirezosvaldo@yahoo.com> escribió en el mensaje de 
noticias news:5dfbd283$5cb0a00f$a70b@news.xbwin.com...
> Dear Zdeno Bielik
>
> I am very sorry,
> I forgot to try, at least translate the question .and. answer.
>
> We dont want to exclude people that write or speak english, but
> some times, when some of us, ask in spanish, answer in spanish.
>
>
> But, follow the topic.
>
> Jose ask :
>
> Is there a way to do this :
>
> SELECT cuenta, sum(iif(debehaber="D",importe,-importe)) AS saldo  FROM 
> apuntes WHERE fecha <= '" + DtoC(mFecha) +"' GROUP BY cuenta ORDER BY 
> cuenta ASC")
>
> And I said, that I dont know, but we need to investigate if PostgreSQL has 
> a function like "iif".
>
> ....
>
> And my question was if he has a Fast Report if yes, if he has been testing 
> FastReport for Xbase++ using Postgresql.
>
> Again, I am sorry, and will kept in mind to try to traslate or response in 
> "dual" mode.
>
> Best Regards
> Osvaldo Ramirez
>
>
>
>
>  - ACE System wrote:
>> Hi all,
>>
>> just one question: are news groups in news.xbwin.com
>> "international" or "spanish" speaking/writing?
>> It looks, here are(and will be step-by-step)
>> already many usefull informations,
>> but it is very time-consuming for me
>> translate almost message to english
>> or to my national language...
>> Pablo Botella is in "dual" mode, but many others not...
>>
>>        Zdeno
>>

Re: Consulta Postgree Sql

2008-06-03T00:06:58Z

Jose Valle escribió:
> Hola:  Estoy empezando con PostgreSql.  Pgadmin3 me ha ayudado mucho a 
> entender sql. Tengo la impresión de que además de fiabilidad vamos a 
> ganar claridad en nuestras aplicaciones.
> 
> En mi aplicacion contable, en el fichero de asientos, tengo las columnas 
> 'cuenta','debehaber','importe'
> 
> para calcular un balance de sumas y saldos a una fecha puedo usar (casi)
> 
> SELECT cuenta, sum(importe) AS saldo  FROM apuntes WHERE fecha <= '" + 
> DtoC(mFecha) +"' GROUP BY cuenta ORDER BY cuenta ASC")
> 
> pero tengo un problema. en vez de sum(importe) querria poner 
> sum(iif(debehaber="D",importe,-importe))
> 
> ¿Sabéis como se puede hacer eso?
> 
> por cierto que estoy sorprendidisimo con la velocidad que devuelve 
> resultados, con 1530 cuentas y 75640 apuntes me tarda 1 segundo, lo 
> mismo para el saldo de una cuenta a una fecha que de todas las cuentas. 
> Con dbf me tardaba 6 segundos en local y 200 segundos en 2003 server.
> 
> Con esto doy por bueno el consejo de no guardar datos acumulados (saldos 
> de cuenta, stocks de artículos, etc)
> 
> 
> Hasta pronto
> 
> Jose Valle
> 
> 
> 

Jose:

Tal vez esto te pueda ayudar...
Maybe this can help you...

http://www.postgresql.org/docs/8.3/interactive/functions-conditional.html#AEN14417


Saludos
Angel

Condicional expresions in sql

2008-06-03T03:24:20Z

> Tal vez esto te pueda ayudar...
> Maybe this can help you...
>
> http://www.postgresql.org/docs/8.3/interactive/functions-conditional.html#AEN14417

Thanks very much Angel. It works perfect

In pgadmin:

SELECT cuenta, sum(CASE WHEN debehaber='D' THEN importe ELSE -importe END) 
FROM apuntes group by cuenta order by cuenta ;

in sqlexpress

oCursor := oConn:Cursor("SELECT cuenta, sum( CASE WHEN debehaber='D' THEN 
importe ELSE -importe END) AS saldo  FROM apuntes WHERE fecha <= '" + 
DtoC(mFecha) +"' GROUP BY cuenta ORDER BY cuenta ASC")

But It is very, very fast.

Another question: will you move to sql?

Regards

Re: Consulta Postgree Sql

2008-06-03T07:11:32Z

Hi,

Thanks for the translations. English is also not my mature language, but
Spanish is unreadable for me.

Regards,
Chris Andries



"Pablo Botella" <pbn_NOSPAM_@pablob.com> wrote in message
news:7e838548$2b147270$a714@news.xbwin.com...
> Hi,
>
> > just one question: are news groups in news.xbwin.com
> > "international" or "spanish" speaking/writing?
> Good question.
>
> I was hosting initially in this NS the groups ot4xb,sqlexpress,xb2net from
years was international and everybody writes in english.
>
> When Osvaldo and Hector was proposed me to include also the xfree.* groups
in my server, I was think will be usefull to have a readonly secion of
resources and of course in xfree.resources all the content MUST be in
ENGLISH in the benefit of the entire Xbase++ comunity
>
> Also will be nice that content in xfree.public will be in english, but the
english language is hard to some spanish speakers, and also the original
xfree groups in yahoo was in spanish so I think think we can tolerate some
spanish incursions here, Osvaldo, Jose Luis and me will try to translate to
english at least the most relevant messages, and in the worst case mature
projects will be published in english in xfree.resources
>
> Regards,
> Pablo Botella
>

Text serch in postgree

2008-06-03T15:38:07Z

Hello.

I need to search for 2 strings of text in 'descripcion' column. With this it 
almost works

oCursor := oConn:Cursor("SELECT cuenta,descripcion,importe  FROM apuntes 
WHERE descripcion ILIKE '%" + MCAD +"%" + MCAD2 +"% ' ")  //

Only a problem with the order.

If I have in 'descripcion'  "pago correspondiente al recibo 2332"

    ->it works if I search for 'pago' and 'recibo'
    ->doesn´t work if search for  'recibo' and 'pago'

(I am still suprised with the speed, this in xbase++ will spend minutes with 
76000 records and here less than a second)

Array

2008-06-03T20:54:35Z

Hola a todos,

necesito saber si un arreglo tiene mas de 3 elemento iguales en su valor.

Alguien sabe de alguna funcion.

De antemano muchas gracias

-----------------

Hi,

I need to know if some array has more than 3 equals elements ...

Some one has o know a function ?

Thanks in advance
Osvaldo Ramirez

Post to news.alaska-software.com

2008-06-03T19:04:05Z

Hello

With Microsoft Mail, in vista bussines 64 I can post to news.xbwin.com and 
to newsgroups.fast-report.com  but not to news.alaska-software.com

Any configurations changes?

Thanks for your help.

--
Hola. ¿Sabéis si ha cambiado algo la configuracion de las news de Alaska?

Jose Valle

Re: Post to news.alaska-software.com

2008-06-03T21:38:00Z

Dear Jose Valle

You need a username and password, I thing is "guest"

Regards
Osvaldo Ramirez

> Hello
> 
> With Microsoft Mail, in vista bussines 64 I can post to news.xbwin.com 
> and to newsgroups.fast-report.com  but not to news.alaska-software.com
> 
> Any configurations changes?
> 
> Thanks for your help.
> 
> -- 
> Hola. ¿Sabéis si ha cambiado algo la configuracion de las news de Alaska?
> 
> Jose Valle
> 
> 
> 
>

Re: Array

2008-06-03T21:38:44Z

Dear Osvaldo Ramirez

I wrote this function especialy for you ....

function MasDeTresIguales( aArray )
* Begin
   local aConta := {} , i , a
   local nContador , nReturn := 0
   ASort( aArray,,, {|aX,aY| aX[1] > aY[1] } )
   for i := 1 to len( aArray )
     xValue := aArray[i]
     ncontador := 0
     for x := 1 to len( aArray )
       if a[x] = xvalue
          nContador ++
       endif
     next
     aadd( aConta , { xValue , nContador })
   next

   if len( aConta  ) > 0
     ASort( aConta,,, {|aX,aY| aX[2] > aY[2] } )

     if aConta[1][2] > 3
       nReturn := aConta[1][1]
     endif
   endif

return nReturn


  wrote:
> Hola a todos,
> 
> necesito saber si un arreglo tiene mas de 3 elemento iguales en su valor.
> 
> Alguien sabe de alguna funcion.
> 
> De antemano muchas gracias
> 
> -----------------
> 
> Hi,
> 
> I need to know if some array has more than 3 equals elements ...
> 
> Some one has o know a function ?
> 
> Thanks in advance
> Osvaldo Ramirez

Re: Post to news.alaska-software.com

2008-06-03T19:10:45Z

That is!,

Thanks Osvaldo


"Osvaldo Ramirez" <ramirezosvaldo@yahoo.com> escribió en el mensaje de 
noticias news:8d076e9$57e99994$a71c@news.xbwin.com...
> Dear Jose Valle
>
> You need a username and password, I thing is "guest"
>
> Regards
> Osvaldo Ramirez
>
>> Hello
>>
>> With Microsoft Mail, in vista bussines 64 I can post to news.xbwin.com 
>> and to newsgroups.fast-report.com  but not to news.alaska-software.com
>>
>> Any configurations changes?
>>
>> Thanks for your help.
>>
>> -- 
>> Hola. ¿Sabéis si ha cambiado algo la configuracion de las news de Alaska?
>>
>> Jose Valle
>>
>>
>>

Re: Text serch in postgree

2008-06-03T21:46:42Z

Dear Jose Valle


If you put this


  oCursor := oConn:Cursor("SELECT cuenta,descripcion,importe  FROM apuntes
  WHERE descripcion ILIKE '%" + MCAD +"%" + MCAD2 +"% ' '%" + MCAD2 +"%" 
+ MCAD +"% ' "  )

Maybe it work

Regards
Osvaldo Ramirez


-----------

Y si lo pones al revez, ?

Re: Text serch in postgree

2008-06-04T03:07:39Z

Hola Osvaldo:

This works, I will look for a better (cleaner) solution.
oCursor := oConn:Cursor("SELECT cuenta,descripcion,importe  FROM apuntes 
WHERE descripcion ILIKE '%" + MCAD +"%" + MCAD2 +"% ' OR descripcion ILIKE 
'%" + MCAD2 +"%" + MCAD +"% ' ")  //

Re: Condicional expresions in sql

2008-06-04T20:01:11Z

I'm glad it worked =)
Excuse me but I was 2 days working out of city.
Yes I'm in the process on moving all business logic to the database via 
VIEWS, STORED PROCEDURES and learning along the way.

Jose Valle escribió:
>> Tal vez esto te pueda ayudar...
>> Maybe this can help you...
>>
>> http://www.postgresql.org/docs/8.3/interactive/functions-conditional.html#AEN14417 
>>
> 
> Thanks very much Angel. It works perfect
> 
> In pgadmin:
> 
> SELECT cuenta, sum(CASE WHEN debehaber='D' THEN importe ELSE -importe 
> END) FROM apuntes group by cuenta order by cuenta ;
> 
> in sqlexpress
> 
> oCursor := oConn:Cursor("SELECT cuenta, sum( CASE WHEN debehaber='D' 
> THEN importe ELSE -importe END) AS saldo  FROM apuntes WHERE fecha <= '" 
> + DtoC(mFecha) +"' GROUP BY cuenta ORDER BY cuenta ASC")
> 
> But It is very, very fast.
> 
> Another question: will you move to sql?
> 
> Regards
>

Comenzando con PG...

2008-06-06T03:55:27Z

Hola!

He bajado los ejemplos para acceder a PostGreSQL desde XBase pero no 
encuentro un archivo: "libpq4xb.ch", podrían indicarme donde lo puedo 
obtener?

Gracias por su apoyo.

Saludos!

Pablo R. Montenegro.

Re: Comenzando con PG...

2008-06-06T07:48:38Z

En el zip adjunto tienes libpq4xb.ch y  libpq4xb.prg
Aun no los hemos subido a xfree.resources porque aun falta testear un poco más y poner ejemplos
Saludos,
Pablo Botella

--------------------------------------------------------------------------------------------------------
Have attached a zip file including libpq4xb.ch and libpq4xb.prg
Still not in the xfree.resources NG becouse still needed to be tested  more and also write some examples

ot4xb

2008-06-06T17:24:35Z

Hello guys

#include "ot4xb.ch"
#include "Appevent.ch"
// 
---------------------------------------------------------------------------
#define WM_NCHITTEST        0x0084
#define WM_MOVING           0x0216
#define WM_DESTROY          0x0002
// 
---------------------------------------------------------------------------
proc main()
local nEvent,oSle,mp1 := NIL,mp2 := NIL, oXbp := NIL

    SETCOLOR( "N/W" )
    CLS
    ?? "Try to Drag & drop the GET"
    oSle:= DragableGet():new()
    oSle:tabStop := .T.
    oSle:create( , , {230,192}, {140,24} )
    SetAppfocus( oSle )

    nEvent := 0
    while nEvent != xbeP_Close
       nEvent := AppEvent( @mp1, @mp2, @oXbp )
       oXbp:HandleEvent( nEvent, mp1, mp2 )
    end
return
// 
---------------------------------------------------------------------------
CLASS DragableGet FROM XbpSLE
EXPORTED:
        // 
--------------------------------------------------------------------
INLINE METHOD WndProc(hWnd,nMsg,wp,lp)
        if( nMsg == WM_NCHITTEST )
           @user32:SetFocus(hWnd)
           return 2
        elseif( nMsg == WM_MOVING )
           ::Moving( lp )
           return 1
        end
        return NIL
        // 
--------------------------------------------------------------------
INLINE METHOD Create( oParent, oOwner, aPos, aSize, aPP, lVisible )
        ::xbpSLE:create( oParent, oOwner, aPos, aSize, aPP, lVisible )
        ot4xb_SubclassWindow( ::GetHWnd() , Self , WM_DESTROY)
        return Self
        // 
--------------------------------------------------------------------
INLINE METHOD Moving(pRect)
        local aRect := iif( Empty(pRect) , NIL , PeekDWord(pRect,0,4) )
        if( aRect != NIL )
           @user32:MapWindowPoints(0, ::SetParent():GetHWND() , @aRect , 2)
           DispOutAt(0,35, "L:" + StrZero(aRect[1],5) +;
                         ", T:" + StrZero(aRect[2],5) +;
                         ", R:" + StrZero(aRect[3],5) +;
                         ", B:" + StrZero(aRect[4],5) )
        end
        return NIL
        // 
--------------------------------------------------------------------
ENDCLASS


Question ...

To make an xbp that recive any event of the OS, do I need to make a 
subclassing ? ( ot4xb_SubclassWindow( ::GetHWnd() , Self , WM_DESTROY)

So then, this function call automaticly the WndProc(hWnd,nMsg,wp,lp)
where in this place I can trap any events of the OS ... Is it right ?



---------------------------------


Solo para confirmar

Para hacer que un xbp reciva eventos del OS, necesito hacer dicho xbp un 
subclassing () ?
Y este automaticamente llama la funcion wndproc ? en donde ahi atrapamos 
todos los eventos de windows ? Es correcto.

Entonces si quiero poner algo asi como ot4xb_SubclassWindow( 
oDlgVentanPrincipal ) , Self , WM_DESTROY)

Ahi puedo atrapar todos los eventos de windows hasta el cntrl-alt-delete ?

Saludos
Osvaldo Ramirez

Re: ot4xb

2008-06-07T00:03:06Z

Hi Osvaldo,

First you need to understand the xbp event mechanism:

When the system call to the xbp wndproc (always in the GUI thread)
the wndproc do what they need to do and only for a subset of messages
post an xb event to the xbp thread and return inmediatelly ignoring the return 
value of the xb event. 

This is not bad at all, as allow to have multiple worker threads in a easy way, but have some limitations.
The first limitation is that the xb events are handling asyncronously so you can not control the behavior of the system based on the result of your event processing. 
And the second limitation is that not all the messages that your xbp wndproc receive will be reflected as xb events in the user thread.

Every window have a pointer to a wndproc that will process the received messages in the thread where the window has been created. All xbp windows will be created in the GUI thread so all windows messages will be procesed in that thread, and xb events will be posted to the thread where the user was called to the method oXbp:Create() 

WndProc subclassing is a common way to add custom functionality to existing windows and controls, and consist in save the previous wndproc and replace for a new one. The new wndproc will add some code for certain messages and return a value to the system or delegate the control to the old wndprocedure. Finally before destroy the control will restore the old wndproc.

> To make an xbp that recive any event of the OS, do I need to make a subclassing ?
Subclassing a xbp window you can handle any message that reach to your xbp wndproc. 
But the message must be reach your wndproc

> So then, this function call automaticly the WndProc(hWnd,nMsg,wp,lp)
> where in this place I can trap any events of the OS ... Is it right ?
Not always, as I was told you before, because not all messages will reach your window.

For this task there is a function in user32.dll  called SetWindowsHookEx() that allow you to trap any messages 
in a specific thread or also in all threads of the same desktop.

You can use SetWindowsHookEx() using ot4xb and the xppcbk.exe callback compiler, only for threads that have been initialized from Xbase++ , but for all threads in the desktop ( as required if you want to trap ctrl+alt+del) you will need to provide a hook function writed in C.

Regards,
Pablo Botella

 ---------------------------------------------

Lo primero necesitas conocer un poco como funcionan los eventos de los xbp:

Cuando el sistema llama al procedimiento de ventana de un xbp (siempre en el GUI thread)
el procedimiento de la ventana hace lo que necesite y en algunos casos envia un evento xbase al thread que creo el objeto xbp y retorna inmediatamente ignorando la posible respuesta al evento xbase

La verdad es que la tecnica no es mala del todo, nos permite separar el trabajo en diferentes threads de una manera fácil, per claro tiene sus limitaciones.

La primera limitación es que los eventos se procesan en modo asíncrono asi que no podemos modificar el comportamiento de nuestro control devolviendo un valor al sistema.

La segunda limitación es que no todos los mensajes que el sistema envia a nuestra ventana se ven reflejados por un evento xbase en nuestro thread de usuario.

Todas las ventanas almacenan un puntero a su procedimiento de ventana que es el va a procesar todos los mensajes que recibe la ventana en el mismo hilo en que se creo la ventana. Todos los xbps crean su ventana en el GUI thread, no importa en que thread hallamos creado el objeto sin embargo los eventos xbase si se recibirán en el thread donde hallamos llamado al método oXbp:Create() 

Subclasear el procedimiento de ventana es una técnica muy corriente para añadir funcionalidad a ventanas y controles que ya existan  y consiste en guardar el puntero al procedimiento de ventana actual y cambiarlo por uno nuevo. El procedimiento de ventana añadirá codigo para algunos eventos y devolverá el control al sistema o al procedimiento antiguo si quiere reutilizar parte del comportamiento. Finalmente antes de que se destruya la ventana restaurará el procedimiento de ventana antiguo.

> Para hacer que un xbp reciva eventos del OS, necesito hacer dicho xbp un 
> subclassing () ?
Subclaseando una ventana xbp conseguiremos procesar cualquier mensaje que llegue a nuestro procedimiento de ventana,
pero claro a veces no llegan :-)

> Entonces si quiero poner algo asi como ot4xb_SubclassWindow( 
> oDlgVentanPrincipal ) , Self , WM_DESTROY)
> Ahi puedo atrapar todos los eventos de windows hasta el cntrl-alt-delete ?

Pues como te he dicho antes, no siempre, porque no todos los mensajes van allegar al wndproc de tu ventana.

Para esto tenemos una función en user32.dll que se llama SetWindowsHookEx() y nos permite atrapar cualquier mensaje de un thread específico o incluso de cualquier thread en el mismo escritorio.

Puedes usar SetWindowsHookEx() junto con ot4xb y mi compilador de callbacks, pero solo para los hilos que haya creado Xbase++ , porque solo puedes ejecutar una funcion de Xbase++ si el hilo lo ha creado él.

Sin embargo para atrapar mensajes de cualquier thread en el mismo escritorio (como nos haría falta para atrapar el ctrl+alt+del) necesitamos pasarle una función en C

Re: Comenzando con PG...

2008-06-07T03:20:12Z

Gracias por la pronta respuesta!

Yo pienso comenzar a realizar pruebas y en cuanto tenga algún ejemplo se los
envío por este medio.

Si puedo ayudarlos en algo más con relación a PostGreSQL y esta interface
via ot4xb, con lo haré con gusto.

Saludos Pablo & Osvaldo...

Pablo Montenegro.
>-------
Thank you for the prompt response!

I think to start testing it, and as soon as I have some code samples I'll
send it to you by this way.

If I could help you with anything related to PostGreSQL and this interface
via ot4xb, I'll glad to do so.

Best regards

SQL

2008-06-07T15:41:30Z

Buenos, dias amigos


Pienso que se puede hacer mas facil que recorrer cada registro y 
actualizar valores en otra tabla.

Bueno, hay va mi pregunta.

Tabla de articulos, tiene unas columnas de exitencias
Tabla de Compras tiene los datos de la compra
Tabla del detalle de las compras donde estan todos los articulos que se 
compraron.

Quiero actualizar cada articulo aumentado las existencias con la 
informacion que se capturo en el detalle de las compras.

Yo pense que en recorrer cada producto del detalle, y e ir a articulos y 
actualizarlo, pero pienso que es mas facil.

Alguna sugerencia?

-------------------------------------------------------------

Well guys

I need to know how to update a table ...

for exaple :

I have a table called articul, where are I have stock columns.
I have a master purchase order table.
I have a detail purchase order table

So how to change my inventory stock with the details table, with out 
going with each record.


------------------------------

Saludos
Osvaldo Ramirez

Re: SQL

2008-06-07T19:29:56Z

Jose did the same question 5 days ago.
Just change Items with Accounts and Quantity with Amount

=)

---------------------------------------------------------

Es la misma pregunta que hizo Jose hace 5 dias.
Solo cambia Cuentas por Articulo e Importes por Cantidades

Un balance es un balance no importa si estamos contando dinero o bolitas 
de vidrio.

=)

Re: SQL

2008-06-08T16:51:44Z

Gracias Angel Pais

Pero lo que quiero es actualizar y no hacer un select:

Este es mi ejemplo

oStmt := oConnection:NewStatement()

// Actualizar la compra
oStmt:SQLString := "UPDATE movs SET mov_status = 'ACTUALIZADA' where 
mov_id = "+str(nMov)

oStmt:Execute()

  // Actualizar las existencias en la tabla de articul por cada producto 
// en el detalle de sub_mov

oCursorLocal := SQLDataSet():new( "SELECT 
art_id,sm_cant,sm_costo,sm_ealm01,sm_ealm02 FROM sub_mov WHERE mov_id = 
"+alltrim(str(nMov))+ ";")

do while ! oCursorLocal:eof()
   if (nEAlm := oCursorLocal:fieldget("sm_ealm01")) > 0
     oStmt:SQLString := "UPDATE articul SET art_ealm01 = "+str(nEAlm)+"
      where art_id = '"+oCursorLocal:fieldget("art_id")+"'"
     oStmt:Execute()
   endif
   oCursorLocal:skip(1)
enddo
ocursorLocal:destroy()


Pero creo que no es lo correcto

-------------

Dear Angel,

This is my code


I kown that is not the right way,

I want to update the table movs and the table articul with each record 
contain in sub_mov table.

Thanks a lot
Osvaldo Ramirez






  wrote:
> Jose did the same question 5 days ago.
> Just change Items with Accounts and Quantity with Amount
> 
> =)
> 
> ---------------------------------------------------------
> 
> Es la misma pregunta que hizo Jose hace 5 dias.
> Solo cambia Cuentas por Articulo e Importes por Cantidades
> 
> Un balance es un balance no importa si estamos contando dinero o bolitas 
> de vidrio.
> 
> =)

Re: SQL

2008-06-08T22:21:58Z

Hi Osvaldo,

The ideal situation is that your program will not need to do nothing to update the article stock when you grab a new purchase or change the status of the purchase line ( UPDATE movs SET mov_status = 'ACTUALIZADA' )

To acomplish this task PostgreSQL have 2 mechanisms, RULES and TRIGGERS

The optimum mechanism will be RULE system that:

1) Increase the stock items when new purchase items are inserted (or marked as 'ACTUALIZADA') 
2) Decrease the stock items when a new sale is generated
3) Prevent the direct modification of stock items

This will require a hard investiment on effort at the database design time, but will reduce the complexity of your application and also will increase the integrity of your data.

Your can use your "dbf like" aproach as a workarround in the meantime you read and learn about the PostgreSQL RULE system, and later when you have properly defined and tested, replace the dbf-like aproach with the server-side-rule mechanism. 

Regards,
Pablo Botella

Reporter

2008-06-10T02:39:25Z

Dear guys


What do you use to make reports using SQL ?

Best Regards
Osvaldo Ramirez

Re: SQL

2008-06-10T22:10:38Z

Hello

RULES and TRIGGERS

With the new version of xbase can we write RULES in xbase++

I have no idea about what are RULES,Is the same as calculated columns?
 perhaps I can say something like

art->stock = sum(ent->quantity,ent->cod_art=art->cod_art ) - 
sum(sal->quantity,sal->cod_art=art->cod_art)

well I supose that will be an sql expresion, bat still don´t know the 
syntax.

Re: Reporter

2008-06-10T22:16:00Z

Hello Osvaldo

I use Fastreports. Sergei explained how to do it. He use Ado to access the 
data. I have just make an example for listing 70000 lines and is very fast 
(2000 pages in 1 minute). But I have not used in production.

Jose Valle


"Osvaldo Ramirez" <ramirezosvaldo@yahoo.com> escribió en el mensaje de 
noticias news:4d8632b1$c1d950d$c495@news.xbwin.com...
> Dear guys
>
>
> What do you use to make reports using SQL ?
>
> Best Regards
> Osvaldo Ramirez

Re: SQL

2008-06-10T23:20:22Z

Dear Jose Valle

Rules = Validation at the field level
Triggers = "Se dispara un evento al momento de cierta condicion"

Saludos
Osvaldo Ramirez

wrote:
> Hello
> 
> RULES and TRIGGERS
> 
> With the new version of xbase can we write RULES in xbase++
> 
> I have no idea about what are RULES,Is the same as calculated columns?
> perhaps I can say something like
> 
> art->stock = sum(ent->quantity,ent->cod_art=art->cod_art ) - 
> sum(sal->quantity,sal->cod_art=art->cod_art)
> 
> well I supose that will be an sql expresion, bat still don´t know the 
> syntax.
>

Re: Reporter

2008-06-10T23:21:42Z

Thanks Jose Valle

I will ask to Segei to see If we can work with SQLexpress++ cursor or Do 
need ADO to access postgresql

Gracias
Osvaldo Ramirez

  wrote:
> Hello Osvaldo
> 
> I use Fastreports. Sergei explained how to do it. He use Ado to access 
> the data. I have just make an example for listing 70000 lines and is 
> very fast (2000 pages in 1 minute). But I have not used in production.
> 
> Jose Valle
> 
> 
> "Osvaldo Ramirez" <ramirezosvaldo@yahoo.com> escribió en el mensaje de 
> noticias news:4d8632b1$c1d950d$c495@news.xbwin.com...
>> Dear guys
>>
>>
>> What do you use to make reports using SQL ?
>>
>> Best Regards
>> Osvaldo Ramirez 
>

Re: PostgreSQL

2008-06-12T11:20:27Z

Hello Osvaldo,

I try compile Your test.prg and libpq4xb.prg, but few errors occured:

xpp /n/m/w /dll:dynamic @c:\temp\06122209.tmp
Xbase++ (R) Compiler 1.90.331 Apr 27 2006
Copyright (c) Alaska Software. All rights reserved.
File: LIBPQ4XB.PRG Line: 253
LIBPQ4XB.PRG(17:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(20:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(24:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(31:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(35:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(40:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(62:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(177:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(193:0): error XBT0200: Syntax Error
LIBPQ4XB.PRG(220:0): error XBT0200: Syntax Error
10 error(s) found in file LIBPQ4XB.PRG!

Missing libpq4xb.ch.

Please help.

Reagrds
Zoltan Sterner

Re: PostgreSQL

2008-06-12T12:07:39Z

Hi,

>I try compile Your test.prg and libpq4xb.prg, but few errors occured:
You will need ot4xb ver >= 1.5 , as the libpq4xb.prg require some commands and functions from the new ot4xb
Get the latests ot4xb builds from here:
http://news.xbwin.com/ot4xb.snapshots

>Missing libpq4xb.ch.
Get it from here
http://news.xbwin.com/xfree.resources/86/libpq4xb.html

Regards,
Pablo Botella

Re: PostgreSQL

2008-06-13T06:33:28Z

Hi Pablo,

Thx the fast reply, is work!

Regards,

Zoltan Sterner

Re: PostgreSQL

2008-06-14T03:58:35Z

Well frinds

Some times its hard to translate all things that we think, but
Please if some one has interest on the topic, I will a pleasure to do

I tought that Store Procedure was to high for me, but who know, and 
guess what, it is easy, thanks to push me ( Pablo, Hector, Angel )

So, I put this example using the ot4xb

I put some comments in spanish, but the example is explain it self.

HTH
Osvaldo Ramirez




#include "ot4xb.ch"
#include "libpq4xb.ch"


function main()
* Begin
   local conn := 
pqSetDbLogin("localhost","5432",NIL,NIL,"mydb","postgres","")
   local result,query,n,nRows

   // Primero nos conectamos"
   if ( PQstatus(conn) != ConnStatusType.Ok )
      ? cPrintf( "Connection to database failed: %s", PQerrorMessage(conn) )
   else

   // Bueno, primero Crea la funcion  en caso la funcion se llamara add()
   // y como parametros lo que va a entrar o sea, van a entrar 2 enteros
   // Luego que tipo de valor va a regresar en este caso
   // va a regresar un entero.
   // El "as" no se para que es

   // Ok, ahora seguimos con la declare(cion) y decimos
   // x va a ser el parametro uno
   // y va a ser el parametro dos
   // luego declaramos una variable llamada sum la cual es entera o sea 
numerica para los pobres.
   // Luego iniciamos nuestro bloque tipo pascal  con un Begin
   // y ahi hacemos nuestra operacion y regresamos dicho valor
   // luego terminanos y decimos que la funcion va a ser con ellenguage 
plpgsql
   // Bueno, amigos, como veran, un burro trata de aprender sql


    TEXT INTO MyStoreProcedure

     CREATE FUNCTION suma(int, int) RETURNS int
     AS '
     DECLARE
        x alias for $1;  y alias for $2;
        sum integer;
     BEGIN
        sum := x + y;   return sum;
     END;' LANGUAGE 'plpgsql';

    ENDTEXT


    query := MyStoreProcedure
    result := pqExec(conn,query)
    nRows  := pqntuples( result )
    ? nRows

   // Bueno, ahora ya teniendo la coneccion vamos a probar esto, estamos?

   // Con esto llamaremos la funcion suma con 2 parametros y lo 
meteremos en el campo resultado, el cual es de tipo entero"

    query := "select suma(10,10) as resultado"
    result := pqExec(conn,query)
    nRows  := pqntuples( result )

     for n := 1 to nRows
      ?? iif( n > 1 , ", " , "")
      ?? pqGetValue(result,n-1,0)
     next
     pqClear(result) ; result := NIL
     PQfinish(conn)
   end
   inkey(0)
return NIL

Re: PostgreSQL

2008-06-14T04:34:19Z

Me falto decir de donde ...


http://www.cse.unsw.edu.au/~cs3311/04s1/lec/storedproc/notes.html


Saludos

Problems with PostgreSQL

2008-06-21T16:15:49Z

Hello guys

Today, I can't run the postgresql service, Yesterday was working well.

So I stop and start the service without success

I use this command to start the service .

c:\windows\system32\net start pgsql-8.3 and show me this error:

System error 5 has occureed

Access is denied.

-----------------------------------------------------------------------

Hoy amaneci sin server, ayer todo estaba bien, pero hoy no.

Pare e inicie el servicio de postgresql sin ningun existo.

Asi que vi el bacth para ver que hacia y esto es lo que hace:


c:\windows\system32\net start pgsql-8.3  y marca este error:


System error 5 has occureed

Access is denied.


Agradesco su ayuda

Saludos
Osvaldo Ramirez

Re: Problems with PostgreSQL

2008-06-21T17:11:38Z

Solved guys

thanks a lot
Osvaldo Ramirez wrote:
> 
> Hello guys
> 
> Today, I can't run the postgresql service, Yesterday was working well.
> 
> So I stop and start the service without success
> 
> I use this command to start the service .
> 
> c:\windows\system32\net start pgsql-8.3 and show me this error:
> 
> System error 5 has occureed
> 
> Access is denied.
> 
> -----------------------------------------------------------------------
> 
> Hoy amaneci sin server, ayer todo estaba bien, pero hoy no.
> 
> Pare e inicie el servicio de postgresql sin ningun existo.
> 
> Asi que vi el bacth para ver que hacia y esto es lo que hace:
> 
> 
> c:\windows\system32\net start pgsql-8.3  y marca este error:
> 
> 
> System error 5 has occureed
> 
> Access is denied.
> 
> 
> Agradesco su ayuda
> 
> Saludos
> Osvaldo Ramirez

Postgree + Ado

2008-06-24T16:59:46Z

Hola

Me han dejado un ejemplo de como se usa ADO para acceder datos.
Me parece que es muy sencillo de usar. A mi me viene muy bien porque 
Fastreports usa Ado para acceder a los datos.
Os pido vuestra opinion sobre ADO antes de dedicarle tiempo. ¿Es una 
solución fiable?

Hello

This is a sample of how to use ADO to access PostGree. It looks very easy.
Any experiences with Ado?



#include "ado.ch"
#include "common.ch"

#define CRLF chr(13)+chr(10)
#PRAGMA LIBRARY ("ASCOM10.LIB")


 PROCEDURE MAIN
 LOCAL oConexion, oRs, lConectado , nValue

       oConexion := CreateObject("ADODB.Connection")

       //ok-> // oConexion:ConnectionString :=  "Provider= 
Microsoft.Jet.OLEDB.4.0;Data Source= BookSale.mdb"

       // Los espacios en blanco a veces dan error
       //ok-> //oConexion:ConnectionString :=  "Provider=Microsoft OLE DB 
Provider for ODBC Drivers;Server=localhost;Port=5432;Data 
Source=PostgreSQL35W;User Id=postgres;Password=43434343;"
       //ok->//oConexion:ConnectionString :=  "Provider=Microsoft OLE DB 
Provider for ODBC Drivers;Server=localhost;Port=5432;Data 
Source=PostgreSQL35W;User Id=postgres;Password=43434343;"

       oConexion:ConnectionString :=  " Server=localhost; Data Source = 
PostgreSQL35W ; UserId = postgres ;"

/*
      sets the string used to connect to a PostgreSQL database.
        /// Valid values are:
        /// Server:                     Address/Name of Postgresql Server;
        /// Port:                       Port to connect to;
        /// Protocol:                   Protocol version to use, instead of 
automatic; Integer 2 or 3;
        /// Database:                   Database name. Defaults to user name 
if not specified;
        /// User Id:                    User name;
        /// Password:                   Password for clear text 
authentication;
        /// SSL:                        True or False. Controls whether to 
attempt a secure connection. Default = False;
        /// Pooling:                    True or False. Controls whether 
connection pooling is used. Default = True;
        /// MinPoolSize:                Min size of connection pool. 
Default: 1;
        /// MaxPoolSize:                Max size of connection pool. 
Default: 20;
        /// Encoding:                   Encoding to be used; Can be ASCII or 
UNICODE. Default is ASCII. Use UNICODE if you are having problems with 
accents.
        /// Timeout:                    Time to wait for connection open in 
seconds. Default is 15.
        /// CommandTimeout:             Time to wait for command to finish 
execution before throw an exception. In seconds. Default is 20.
        /// Sslmode:                    Mode for ssl connection control.
        /// ConnectionLifeTime:         Time to wait before closing unused 
connections in the pool in seconds. Default is 15.
        /// SyncNotification:           Specifies if Npgsql should use 
synchronous notifications

        Encoding can be ASCII or UNICODE. If your application uses 
characters with accents and with default settings it doesn't work, try 
changing that.
        Min pool size when specified will make NpgsqlConnection pre 
allocates this number of connections with the server.
        Sslmode can be one of the following values:
            Prefer - If it is possible to connect using ssl, it will be 
used.
            Require - If an ssl connection cannot be made, an exception is 
thrown.
            Allow - Not supported yet, just connects without ssl.
            Disable - No ssl connection is done.
            Default is Disable.
            Server=192.168.10.4;Port=5432;Userid=postgres;Password=stefan;Protocol=3;SSL=false;Pooling=true;MinPoolSize=1;MaxPoolSize=20;Encoding=UNICODE;Timeout=15;SslMode=Disable;Database=test

*/

       oConexion:open()

       ? ' donde me conecto', oConexion:ConnectionString

       inkey(0)

       oRs := CreateObject("ADODB.Recordset")

       // public es el schema
       oRs:Open("SELECT * FROM public.apuntes ORDER BY fecha",oConexion,0,3)

        IF oRs:Bof .And. oRs:Eof
          ?  "NO HAY DATOS"
            oConexion:Close()
            return
        endif

        oRs:MoveFirst()

        do while .NOT. oRs:eof

           ? 'valor', oRS:fields("fecha"):Value

           oRs:MoveNext()
        enddo

       inkey(0)

      oRs:Close()

   return

/*
 PROCEDURE MAIN   //ok

 LOCAL oConexion, oRs, lConectado , nValue

       oConexion := CreateObject("ADODB.Connection")

       //oConexion:ConnectionString :=  "Provider= 
Microsoft.Jet.OLEDB.4.0;Data Source= BookSale.mdb"
       oConexion:ConnectionString :=  "Provider= 
Microsoft.Jet.OLEDB.4.0;Data Source= BookSale.mdb"

       oConexion:open()

       ? ' donde me conecto', oConexion:ConnectionString

       inkey(0)

       oRs := CreateObject("ADODB.Recordset")

       oRs:Open("SELECT * FROM Publishers ORDER BY NAME",oConexion,0,3)

        IF oRs:Bof .And. oRs:Eof
          ?  "NO HAY DATOS"
            oConexion:Close()
            return
        endif

        oRs:MoveFirst()

        do while .NOT. oRs:eof

           ? 'valor', oRS:fields("Name"):Value

           oRs:MoveNext()
        enddo

       inkey(0)

      oRs:Close()

   return

Re: Postgree + Ado

2008-06-24T19:21:37Z

Estimado Jose

Bueno, definiendo

1.- ot4xb accesaa directamente al API de PostgreSQL el cual nos da
     rapidez, pero nos casamos con Postgresql.
     Xbase++ -> ot4xb -> api postgresql -> database

2.- SqlExpress++ accesa via ODBC a Postgresql y la verdad no se si
     el odbc de postgresql necesite el api de postgresql para correr
     asi que quedaria asi :
     Xbase++ -> sqlexpress++ -> odbc -> api postgresql -> database

3.- Usando ADO, segun entiendo quedaria asi
     Xbase++ -> COM/ActiveX -> OLE DB - > database


Pero bueno esto me encontre por ahi

ADO = API to OLE DB.
ADO Speed < OLE DB Speed
Programming the OLE DB API Directly may take a very long time to master.

Explanation from M$.
ActiveX Data Objects (ADO) is a high-level, easy-to-use interface to OLE DB.
OLE DB is a low-level, high-performance interface to a variety of data
stores.
ODBC is another low-level, high-performance (maybe not-so high-performance,
I think) interface that is designed specifically for relational data stores.

ADO provides a layer of abstraction between your client or middle-tier
application and the low-level OLE DB interfaces. ADO uses a small set of
Automation objects to provide a simple and efficient interface to OLE DB.
This interface makes ADO the perfect choice for developers in higher level
languages, such as Visual Basic and VBScript, who want to access data
without having to learn the intricacies of COM and OLE DB.

A Note on Providers from M$:
You are strongly encouraged to use one of the native OLE DB Providers
instead of the Microsoft Open Database Connectivity (ODBC) Provider. Native
OLE DB Providers provide better application stability and performance.

If you want more info, go to http://msdn.microsoft.com/data
Then drill down from "Data Access->Reference.

HTH, Matt
---
Outgoing mail is certified Virus Free.
Regards, Matt
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.548 / Virus Database: 341 - Release Date: 12/5/2003


-- 
MySQL ODBC Mailing List
For list archives: http://lists.mysql.com/myodbc
To unsubscribe: http://lists.mysql.com/myodbc?unsub=gcdmo-myodbc [at] 
m.gmane.org

Clipper - History

2008-06-25T05:11:14Z

Autor: 	Gabriel Pascual pascalisg[at]yahoo[punto]com	 92
Fecha: 	09/05/2008 04:28:11
Asunto: RE:Que opinan de xbase-alaska

A ver.... el amigo Juan Francisco pregunto....

Que opinan de Xbase++ - Alaska....

No pregunto.... ¿ quienes usan FiveWin ?... cawendi.

Xbase++ es un compilador de 32 bits para CA-Clipper, similar a xHarbour, 
no es un proyecto gratuito, es un producto comercial de la casa Alemana 
Alaska Software.

Es un producto muy interesante, porque sus creadores son ni mas ni menos 
que los mismos autores del proyecto "ASPEN", si son viejos en esto del 
Clipper sabran que el proyecto ASPEN era el original "Clipper para 
Windows" que mas tarde y debido a varios factores adversos termino en el 
malogrado Visual Objects.

Cuando Nantucket fue comprado por Computer Associates, se ordenó a los 
equipos de programacion externos de Nantucket reportarse a la oficina de 
CA en Nueva York, los programadores alemanes del proyecto ASPEN 
renunciaron a la empresa.

Como consecuencia de eso y debido al acuerdo de confidencialidad con 
Nantucket / CA, estos programadores no podian hacer ningun desarrollo 
similar a Clipper o que le hiciera competencia, y durante casi 5 años 
trabajaron en un compilador Clipper para el OS/2 de IBM, esa fue la 
primera version del Xbase++, como compilador Clipper para OS/2.

Una vez que terminó el plazo de la confidencialidad, estos amigos 
comenzaron a comercializar el Xbase++ como compilador Clipper de 32 bits 
para Plataformas Windows y se olvidaron del OS/2.

De entrada tu puedes tomar tu codigo Clipper tal cual, y Xbase++ se lo 
va a tragar completito, es mas tus mismos archivos .CLP y RMK que usas 
para Compilar tus programas Clipper son reconocidos e interpretrados por 
el Xbase ++, la sintaxis de compilacion es similar a la de Clipper , 
solo que en vez de ser:

Clipper programa /m /n .....

es:

xbpp programa /m /n .....

A diferencia de (x)Harbour no genera código en C, genera OBJ y EXEs 
directos de 32 bits para Windows modo consola, hoy por hoy, Xbase++ 
puede ser una estupenda herramienta para pasar tus programas a 32 bits 
sin las complicaciones del xHarbour, y a un precio relativamente barato.

Tiene cosas super interesantes, como un componente para aplicaciones WEB 
para internet llamado WAA (Web Application Adaptor), las "Xbase Parts" 
que son funcionalidades adicionales como acceso a bases de datos SQL, y 
terminales graficas, explico esto mas adelante.

Las pegas:

1) Requiere de DLLs externos y muchos, de entrada el Runtime no va 
incluido dentro del EXE, son 2 DLLs de 1.3 megas cada uno. Los motores 
de base de datos tambien son DLLs, y la terminales graficas son mas 
DLLs. En total un EXE Xbase++ va a compañado por lo menos de 5 DLLs 
adicionales. Tambien es posible pegar todas estas DLLs en un solo EXE, 
pero el EXE te queda por lo menos de 8 Megas (para aplicacion en ventana 
de ms-dos, no grafica)

2) Hay muchos componentes que son "Xbase Parts", esto es bueno y es 
malo, en primer lugar es bueno proque encuentras mucha funcionalidad 
adicional que no encontraras en (x)Harbour si no es a un costo 
adicional, por ejemplo existe un RDD para archivos de Texto, esto es 
simpático, puedes indexar un texto en base a un critero propio y hacer 
busquedas sobre ese texto, también tienes un RDD para SQL, esta 
funcionalidad en (x)Harbour por ejemplo tienes que comparla por 
separado, pero por otro lado el motor de tratamiento SQL es maravilloso, 
tienes 3 terminales graficas: La terminal Texto normal, una terminal 
gráfica "hibrida" (medio texto / medio windows) y una Terminal 
totalmente Windows.

3) El RDD para ADS se vende, esto se me hace una gamberrada, TODOS los 
clientes de ADS para todos los lenguajes de programación, .NET incluido 
son GRATIS, excepto el de Xbase++, que aparte de ser caro, no tiene toda 
la funcionalidad que tiene el de (x)Harbour por ejemplo, esa fue una de 
las razones por las cuales no nos cambiamos a Xbase++ en su momento.

4) La terminal para Windows es MUY deficiente, soporta nativamente solo 
los controles básicos de Windows, y la interfaz es ESPANTOSA, vamos, 
para meterle susto al miedo, los programas Windows hechos en Xbase++ son 
horribles, feos de co.... muy feos. Si quieres algo mas estetico, tienes 
que comprar componentes visuales por separado, que los hay y muy buenos.

Actualmente están trabajando en su interfaz visual (como todos) el 
proyecto se llama Visual Xbase++ y forma parte delproyecto "ARTICA", una 
nueva plataforma de desarrollo basada 100% en SQL pero usando el 
lenguaje Clipper de toda la vida.

Son una comunidad muy activa, hacen su DevCon cada año en Alemania y se 
reune bastante gente para las conferencias.

Mirate mas informacion en www.alaska-software.com

------------------------------------------------------------------------

Por otro lado buscando mi historia encontre esto:


http://www.futurecast.com/futurechronicles/2001_bttf.htm

Regards
Osvaldo Ramirez

Re: Postgree + Ado

2008-06-25T18:26:50Z

Hola,

Precisando <ggg>
> Xbase++ -> ot4xb -> api postgresql -> database
ok. Bueno incluso si alguien quiere saltarse ot4xb pues se puede igual usando DllCall() solo que con ot4xb es más facil.

DllCall() es un pelin más lento que FpQCall() de ot4xb y DllExecuteCall() un pelín más rápido siempre que no tengas 
que convertir ni comprobar  ningún parámetro.  

>     Xbase++ -> sqlexpress++ -> odbc -> api postgresql -> database
Xbase++ -> sqlexpress++ -> odbc -> driver odbc -> api postgresql -> database

>     Xbase++ -> COM/ActiveX -> OLE DB - > database
Xbase++ -> COM/ActiveX -> OLE DB - > driver oledb -> api de postgres -> database

Mi consejo es que para no complicarse la vida lo mejor es usar SQLExpress, te maneja cursores,
reordena los en el lado del cliente y tiene opción de traerse records en background al mismo tiempo 
que se estan mostrando en un browse

A mi ADO me encanta para usarlo desde C++, funciona muy rápido es muy facil de usar y si encima
lo usas con los Smart Pointers de VC++ pues ni te preocupas de hacer Release o de incrmentar la 
referencia de los objetos, el compilador se ocupa automaticamente de todo.

Ahora usar ADO con Xbase++ en primer lugar el soporte ActiveX de Xbase++ no es precisamente demasiado rápido
en la V 2.0 de Xbase++ el GC llamará automaticamente a un metodo destructor de nuestros objetos, pero hoy por hoy
hay que llevar el control manualmente asi que tenemos 2 cosas en contra: velocidad y complejidad.

Ahora no hay ningún probema en que FRAX acceda a la base de datos usando ADO y la aplicación lo haga usando ODBC 
o incluso usando el API de postgres directamente.

Saludos,

Pablo Botella

Re: Reporter. Comment of Sergei in xbase++.data access

2008-06-25T22:39:09Z

If some native Postgress DBE for Xbase++ exists then you can use it.
FastReport (SetWorkArea() etc) uses current DBE, it's no problem.

And in ANY case SetUserDataSet() exists where you can form any dataset that
you need.
---------------

Si usas un DBE nativo para Postgres podrás usarlo con Fastreports

Y en cualquier caso podrás usar SetUserDataSet() para formar cualquier 
dataset que necesites.

Re: Problems with PostgreSQL

2008-06-27T11:14:58Z

Osvaldo Ramirez schrieb:
> Solved guys
> 
> thanks a lot
> Osvaldo Ramirez wrote:

hi,

would be nice to see how ...
  Bye
Hubert

Re: Problems with PostgreSQL

2008-06-27T18:11:16Z

Dear Hubert Brandel

Appear that, If I run manually, I didnt have enought rights ( Vista 
Ultimate ), but I did, from start-programs-pgAdminII 1.8-Start Service.

HTH Hubert

Do you have the same problem ?

Best Regards
Osvaldo Ramirez

wrote:
> Osvaldo Ramirez schrieb:
>> Solved guys
>>
>> thanks a lot
>> Osvaldo Ramirez wrote:
> 
> hi,
> 
> would be nice to see how ...
>  Bye
> Hubert

Off Topic

2008-07-05T00:46:07Z

Hola a todos

Anexo unas fotos de mi Ciudad.

Saludos
Osvaldo Ramirez
Cd. Juarez Chihuahua, Mexico

Re: Off Topic

2008-07-05T10:27:09Z

Hola Osvaldo,

Las he quitado del mensaje y las he puesto en 
http://www.xbwin.com/Osvaldo/CIUDADJUAREZ.zip

Imaginate alguien que tenga que sincronizar el NNTP con una conexión lenta, le metes un tocho de 8MB
junto con el mensaje. 

Eso si me gustó mucho ver esos paisajes.

Saludos,

Pablo Botella

Re: Off Topic

2008-07-05T20:34:05Z

Hombre Pablo

Te agradesco bastante, no me percate del tamaño.

Saludos
Osvaldo Ramirez

P.S. No todo es violencia.

  Botella wrote:
> Hola Osvaldo,
> 
> Las he quitado del mensaje y las he puesto en 
> http://www.xbwin.com/Osvaldo/CIUDADJUAREZ.zip
> 
> Imaginate alguien que tenga que sincronizar el NNTP con una conexión lenta, le metes un tocho de 8MB
> junto con el mensaje. 
> 
> Eso si me gustó mucho ver esos paisajes.
> 
> Saludos,
> 
> Pablo Botella

Re: Off Topic

2008-07-07T06:54:05Z

Sienta bien un mensaje positivo al empezar la semana.

Re: Off Topic

2008-07-07T23:44:40Z

Osvaldo,

Muy buenas las vistas de Ciudad Jurez :)
Quiza caminando te tropieces con la calle Otermin jajaja.
Un abrazo desde la Pampa Hmeda

Jose Luis Otermin

"Osvaldo Ramirez" <ramirezosvaldo@yahoo.com> escribi en el mensaje 
news:2bab3ec0$784d5dd$c4de@news.xbwin.com...
> Hola a todos
>
> Anexo unas fotos de mi Ciudad.
>
> Saludos
> Osvaldo Ramirez
> Cd. Juarez Chihuahua, Mexico
>


--------------------------------------------------------------------------------


>

Re: Problems with PostgreSQL

2008-07-08T15:28:05Z

Osvaldo Ramirez schrieb:
> HTH Hubert
> 
> Do you have the same problem ?

Hi,

sorry, I was on holiday.

By now, I have still running MySQL on a Win2000 Pro PC, but who knows 
when the problems are comming ;-)

Bye
Hubert

Re: necesito conectarme a postgresql sin utilizar ODBCDBE

2008-07-10T04:05:14Z

Muy agradecido por la respuesta y por los programas que has puesto a mi disposicion.

Utilizando los mismos he logrado conectarme desde xbase v 1.9 a las tablas de la base de datos y poder transferir los registros de una tabla en particular a una grilla.

La pregunta que deseo formularle es si para modificar los registros desde la grilla hacia la base de datos postgresql, debo hacerlo registro por registro o existe alguna forma de realizar el UPDATE en forma masiva.

atentamente.

Re: necesito conectarme a postgresql sin utilizar ODBCDBE

2008-07-10T12:00:42Z

Hola Ramón,

>La pregunta que deseo formularle es si para modificar los registros desde la
 >grilla hacia la base de datos postgresql, debo hacerlo registro por 
>registro o existe alguna forma de realizar el UPDATE en forma masiva.

Si claro, el comando UPDATE es muy flexible, es cuestión de que te mires con detenimiento el manual de Postgres
y sobre todo que hagas un montón de pruebas con la consola, lo primero es aprender SQL para poder sacarle partido. Luego ya pues vas optimizandolo en tu aplicación usando consultas preparadas con parametros y esas cosas harán que tu aplicación vaya más rápida, pero ya te digo lo primero que hay que hacer es aprender SQL.

Saludos,
Pablo Botella

Aplicaciones Web

2008-07-11T15:36:44Z

Hola,

Me gustara saber quines han incursionado en el mundo Web y qu soluciones 
han implementado para elaborar portales con contenido dinmico.

Saludos

Jos Luis Otermin
----------------------------------------------------
HardCoded Systems SH
+54-9-11-4417-7774
+54-11-4503-1761
----------------------------------------------------

Re: Aplicaciones Web

2008-07-11T17:41:27Z

Hola Sr Gato,

> Me gustaría saber quiénes han incursionado en el mundo Web y qué soluciones 
> han implementado para elaborar portales con contenido dinámico.

Si no quieres complicarte la vida lo más facil y potente es usar xb2net. 
Hoy por muy poco dinero puedes tener un VPS corriendo tu webserver
Yo lo tengo aqui:
https://www.godaddy.com/gdshop/hosting/virtual.asp?ci=9013&display=virtual

Luego para modelar el contenido tienes varias opciones.

Puedes usar mi preprocesador 
http://www.xbwin.com/FreePackages/cxp.html
para insertar codigo Xbase++ en paginas tipo ASp y luego compilarlas con tu aplicación o con tu DLL
Es una mariconada pero a mi me quitó muchísimas horas de trabajo.

 Diseñaba las páginas con el dreamweaver y luego le metia el codigo Xbase++ , lo bueno es que luego si quería modificarla el dreamweaver me respetaba los tags 
<% codigo xbase %> y podía modificar la página visualmente

usando este truco
<% /*  %>
html de ejemplo 
<% */ %>
podia meter datos de ejemplo para ver como quedaban las cosas desde el dreamweaver y luego en el prg quedaba entre /*    */ 
asi que no se compilaba

Luego tienes la librería de Sanders y Phil que es una pasada total, no la he probado pero lo que vi en la presentación que hizo Sanders en el DevCon me pareció alucinante, puede usar WAA o xb2net indistintamente.

Un Abrazo,

Pablo Botella

PS: Me alegra verte de nuevo vivito y coleante