prueba de codigo...

prueba de codigo...

Postby Elias Torres » Tue Jan 09, 2007 12:39 pm

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.
Elias Torres
 
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

Postby Antonio Linares » Thu Jan 11, 2007 2:11 pm

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
User avatar
Antonio Linares
Site Admin
 
Posts: 42071
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Elias Torres » Thu Jan 11, 2007 4:47 pm

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
Elias Torres
 
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

Postby Antonio Linares » Thu Jan 11, 2007 8:13 pm

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
User avatar
Antonio Linares
Site Admin
 
Posts: 42071
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Elias Torres » Fri Jan 12, 2007 9:40 am

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.
Elias Torres
 
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

Postby Antonio Linares » Fri Jan 12, 2007 11:38 am

Elías,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42071
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Elias Torres » Fri Jan 12, 2007 1:25 pm

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.
Elias Torres
 
Posts: 233
Joined: Wed Aug 09, 2006 3:07 pm

Postby Antonio Linares » Fri Jan 12, 2007 1:51 pm

Elías,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42071
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 4 guests