Addnew()

[fredy[1]]

Hola,
Fijaros en el ejemplo que adjunto.
Cuando le doy a añadir un nuevo registro, el campo fecha(TdbDataPicker) y el campo riesgo (TDbMaskEdit) no se quedan en blanco, sino que mantienen el valor que tení­an antes.
Esto me pasa con tablas de advantage .adt. Con tablas dbf sólo pasa en el datepicker, pero creo que es porque ese control no se puede quedar en blanco (vací­o)
Un saludico,
Fredy
--

Attached files addnew.zip (2.2 KB)Â

[ignacio]

Fredy,
Por este motivo se implemento la clase TDateEdit que permite fechas en
blanco. Para poder manejar fechas en blanco con el TDatePicker tendrás que
poner la propiedad lCheckBox a verdadero, pero es posible que el aspecto
visual que muestre el control no sea de tu agrado.
En cuanto al TDBMaskEdit con ADT supongo que dicho campo tiene un valor
inicial o valor por defecto, que coincide precisamente con 100. Por favor
confirmamelo, pero en dicho caso creo que tiene sentido dejar dicho valor,
¿no crees?
Un saludo,
"Fredy" <fredy@airtel.net> escribió en el mensaje
news:[email=a20b86f45378c76903349ca606@news.xailer.com...]a20b86f45378c76903349ca606@news.xailer.com...[/email]
Hola,
Fijaros en el ejemplo que adjunto.
Cuando le doy a añadir un nuevo registro, el campo fecha(TdbDataPicker) y el
campo riesgo (TDbMaskEdit) no se quedan en blanco, sino que mantienen el
valor que tenían antes.
Esto me pasa con tablas de advantage .adt. Con tablas dbf sólo pasa en el
datepicker, pero creo que es porque ese control no se puede quedar en blanco
(vacío)
Un saludico,
Fredy

[fredy[1]]

Hola Ignacio,
Lo del DatePicker ya me imaginaba que era eso, pero lo del Maskedit (me pasa
también con el Dbedit) no es por eso.
En el ejemplo que te envié pone 100 porque el primer registro de la tabla
tiene ese valo, no porque el campo tenga establecido un valor por defecto.
Si editas el primer registro y en lugar de 100 pones, por ejemplo 20, a partir
de ese momento, cuando añades un nuevo registro, el Edit en lugar de quedar
a 0 toma el valor 20 (el del primer registro)
Un saludico,
Fredy

[ignacio]

Fredy,
Lo que es realmente extraño es que sólo te pase con tablas ADT. Me pondrías
mandar un ejemplo con una pequeña tabla.
Gracias
"fredy" <fredy@airtel.net> escribió en el mensaje
news:[email=a20b86f45b78c769733e0a7fb8@news.xailer.com...]a20b86f45b78c769733e0a7fb8@news.xailer.com...[/email]
> Hola Ignacio,
>
> Lo del DatePicker ya me imaginaba que era eso, pero lo del Maskedit (me
> pasa también con el Dbedit) no es por eso.
> En el ejemplo que te envié pone 100 porque el primer registro de la tabla
> tiene ese valo, no porque el campo tenga establecido un valor por defecto.
> Si editas el primer registro y en lugar de 100 pones, por ejemplo 20, a
> partir de ese momento, cuando añades un nuevo registro, el Edit en lugar
> de quedar a 0 toma el valor 20 (el del primer registro)
>
> Un saludico,
> Fredy
>
>

[fredy[1]]

Hola,
Pues sí­ que es raro sí­. Mira a ver si a ti te pasa lo mismo, igual es cosa de mis drivers (aunque lo he probado en 2 ordenadores)
Te mando el ejemplo.
Fí­jate en las imágenes. El programa es el mismo, simplemente cambio el origen del DataSource de ::oDbfDataSet1.
Un saludico,
Fredy
--

Attached files addnew.zip (2.4 KB)Â

[ignacio]

Fredy,
Lo tengo arreglado. El problema se produce por el tipo del campo que es
Integer. Pasalo a numeric y te funcionará correctamente.
Aunque lo tengo arreglado, compruebo que hay funcionas que no funcionan bien
en xHarbour con tablas ADT:
1) El tipo Money retorna como Type el valor NIL.
2) No hay forma de grabar un dato tipo TIME. Si se introduce un dato de tipo
carácter devuelve tipo incorrecto, y si se intenta introducir un valor
númerico da también un error de 'Write error'. Si te enteras de como grabar
un valor TIME me lo dices. Yo lo he intentado y no he sido capaz.
Un saludo,
"Fredy" <fredy@airtel.net> escribió en el mensaje
news:[email=a20b86f49fd8c76af461bc1688@news.xailer.com...]a20b86f49fd8c76af461bc1688@news.xailer.com...[/email]
Hola,
Pues sí que es raro sí. Mira a ver si a ti te pasa lo mismo, igual es cosa
de mis drivers (aunque lo he probado en 2 ordenadores)
Te mando el ejemplo.
Fíjate en las imágenes. El programa es el mismo, simplemente cambio el
origen del DataSource de ::oDbfDataSet1.
Un saludico,
Fredy