prueba de codigo...

Post Reply
Elias Torres
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

prueba de codigo...

Post by Elias Torres »

Hola Antonio, puedes probar el siguiente código??

El tema es que esto ya lo habiamos hablado y si no recuerdo mal ya podia leer datos del tipo 'currency'...pero resulta que me da error, no al intentar leer un campo, que lo hace bien, sino al intentar crearme una tabla con ese campo....

Te pongo el siguiente ejemplo...

#include <FWCE.ch>

FUNCTION main()

dbCreate("_tst", {{"CURR", "Y", 8, 2}})
use _tst
append blank
replace CURR with 123.45
append blank
replace CURR with 345.567
append blank
replace CURR with 356.78901
append blank
replace CURR with 789.456789
close

RETURN nil


No se si cuando me actualicé a la nueva version del fwppc el compilador no era el mismo que yo tenia despues de que Przemek hiciera la comprobaciones pertinentes.... Una vez me mandastes un compilador al correo pero lo he perdido. Con ese si me funcionaba pero nose que ha pasado...


Saludos y gracias.

Elías Torres.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Elías,

Por lo visto la DBF se crea pero el campo aparece de tipo "integer" al inspeccionarlo con VFP en vez de tipo currency.

Puedes confirmarlo ? gracias,
regards, saludos

Antonio Linares
www.fivetechsoft.com
Elias Torres
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

Post by Elias Torres »

Antonio,

A mi ni siquiera se me crea la tabla.... me da un error que dice:

Open error
stack calls:
DBUSEAREA(0)
MAIN(6)

El codigo que estoy probando es el siguiente:

#include <FWCE.ch>

FUNCTION main()

dbCreate(CURDIR()+"\tst", {{"CURR", "Y", 8, 2}})
use (CURDIR()+"\tst")
append blank
replace CURR with 123.45
append blank
replace CURR with 345.567
append blank
replace CURR with 356.78901
append blank
replace CURR with 789.456789
close

RETURN nil

Saludos

Elías Torres
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Elías,

Sí se crea, lo que ocurre es que si no especificas CurDir() + "\tst" entonces se crea en el directorio raiz del Pocket PC
regards, saludos

Antonio Linares
www.fivetechsoft.com
Elias Torres
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

Post by Elias Torres »

Antonio,
efectivamente coloco el curdir() +"\tst" pero no me crea la tabla... no se porque... En cambio si pruebo a cambiarle el tipo de campo, por ejemplo a numerico, entonces si me crea la tabla...Ha cambiado el compilador?? Me comentas que a ti ahi si te funciona, entonces, que tengo yo diferente??


Saludos.

Elías Torres.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Elías,

Estás usando el build de Harbour que te enviamos por email ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Elias Torres
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

Post by Elias Torres »

Antonio,

disculpa por mi despiste...Se conoce que cuando nos actualizamos a la nueva versión de FWPPC sustitui el build de Harbour que me habias mandado. Lo he rescatado del correo y lo he vuelto a instalar y...ahora si!!

Una curiosidad solamente...cuando crea la tabla, esta la crea como entero y no como currency...¿Puede haber alguna solución al respecto?


Saludos y gracias.

Elías Torres.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Elías,

Hay que comentárselo a Przemek en la lista de correo de Harbour
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply