Hola a todos..
tengo un form donde cargo los datos de un registro de una tabla. Entre esos campos, hay una fecha.
Uso el control DBEdit con la mascara 99/99/9999;0;_

Tengo varias cuestiones, que creo son simples de resolver:
- cuando aparece el form con una fecha vac�a, aparece el campo con todos _, o sea: _________ reci�n cuando escribo algo aparecen las /.
- si ingreso una fecha, por ej: 21/11/1992, la interpreta como cualquier cosa y zas, excepci�n; lo mismo si la dejo vac�a y vuelvo a grabar. Debe ser que tengo que formatear la fecha?
Desde el IBExpert no tengo problemas en ingresar la fecha en el formato dd/mm/aaaa

Creo haber leido hace tiempo que ese control no controla que la fecha sea correcta, que lo debo hacer a mano. Eso sigue as� hasta estas �ltimas versiones?
Tengo instalado el Lazarus 0.9.29 r22290 FPC 2.5.1 i386-win32-win32/win64

Muchas gracias.
chauuuuuuuuuuuu

Chequea este articulo
http://www.firebirdfaq.org/faq137/

Para ver si llega en formato correcto la fecha a Firebird, solo acepta estos formatos.
DD.MM.YYYY
MM/DD/YYYY
YYYY-MM-DD

IBExpert tal vez la transforma antes de enviarla al Servidor SQL.

El d�a 12 de noviembre de 2009 11:41, Paola Bruccoleri <pbruccoleri en adinet.com.uy> escribi�:

Lo de 1957-21-1 is not a valid date te lo da Lazarus segun la configuracion regional al Usar la funcion DateToStr. Al final yo no uso el DBEdit. Uso un CalendarDialog o un Edit simple, me deja la fecha en TDateTime y con una funcion la paso a Firebird como DD.MM.YYYY, pero uso todo SQL, no uso los Data Controls para grabar datos, asi me evito algunos problemas, como el que tenes ahora.

Sorry

El d�a 12 de noviembre de 2009 12:09, Paola Bruccoleri <pbruccoleri en adinet.com.uy> escribi�:

Hola..
ahora veo que llegan los msg!! voy a enviar uno que no vi llegar..

tengo un form donde cargo los datos de un registro de una tabla. Entre esos campos, hay una fecha.
Uso el control DBEdit con la mascara 99/99/9999;0;_

Tengo varias cuestiones, que creo son simples de resolver pero me estan enloqueciendo:
- cuando aparece el form con una fecha vac�a, aparece el campo con todos _, o sea: _________ reci�n cuando escribo algo aparecen las /. (solo detalle cosm�tico)
- si ingreso una fecha, por ej: 21/01/1956, interpreta mal: 2009-11-2101 , zas, excepci�n; lo mismo si la dejo vac�a y vuelvo a grabar.

Desde el IBExpert no tengo problemas en ingresar la fecha en el formato dd/mm/aaaa. Prob� de ingresar la fecha, y desde el programa la veo en formato dd/mm/aaa, pero no puedo hacerle modificaciones porque me salta el mismo error..

Creo haber leido hace tiempo que ese control no controla que la fecha sea correcta, que lo debo hacer a mano. En delphi usaba el TDBDateEdit, pero aca no existe ese control.
Eso sigue as� hasta estas �ltimas versiones?
Qu� me aconsejan de c�mo manejar las fechas??
Tengo instalado el Lazarus 0.9.29 r22290 FPC 2.5.1 i386-win32-win32/win64

Muchas gracias.
chauuuuuuuuuuuu

Claudio Romero escribi�:

Hola Claudio..
agradezco tu mail.. pero... sigo igual.. te cuento:

en la tabla tengo 2 registros, uno sin fecha y otro con la fecha ya ingresada desde el ibexpert.
Desde el programa, el control DBEdit ya no tiene mascara.. se la saqu�. El registro que tiene la fecha la muestra dd/mm/aaaa pero no me la deja modificar por nada..
En el otro registro, que la tiene vac�a, trat� de ingresarle fechas en los formatos que est�n m�s arriba, y a pesar de que parece que se da cuenta del formato (porque me dice algo as� como: 1957-21-1 is not a valid date especification), da el error...

Estaba mirando ahora que con mysql no tuve ese problema; entonces ahora no se si todo esto es cuestion del firebird, del zeos7 o m�o!! :) chauuuuuuuuuuuu

Hola, has probado a usar una mascara con "." en vez de "/" ... de todas maneras en la mascara del TEdit puedes indicar la mascara de visualizacion y la de grabaci�n (si no recuerdo mal, es que hace mucho que no las uso).

Un saludo.

Paola Bruccoleri escribi�:

Tienes razon, los DBControls son mas pr�cticos, pero no empece a programar con ellos, solo los uso para mostrar datos(cuando empece con Lazarus/fpc-Bases de Datos encontre una docena de errores; ya corregidos). Para ingresar datos uso todos Edit y grabo con SQLQuery.SQL, o con parametros.

Pero seguro que alguien tiene que tener funcionando tu caso.

Suerte

Hello Paola,

Thursday, November 12, 2009, 3:41:53 PM, you wrote:

PB> tengo un form donde cargo los datos de un registro de una tabla. Entre PB> esos campos, hay una fecha.
PB> Uso el control DBEdit con la mascara 99/99/9999;0;_

Los Edit con m�scara est�n siendo modificados recientemente y en gran medida, as� que si encuentras fallos en �l ser�a aconsejable que mirases en el "bug tracker" por si est� reportado, y si no lo est� hazlo para que se enteren del problema.

el problema es como mandas las fechas al motor, firebird espera SIEMPRE sin importar como lo pongas en pantalla yyyy/mm/dd o yyyy-mm-dd desde los crontroles enmascaras con la propiedad displayformat del objeto field si usas objetos persistentes o con formatdatetime('dd/mm/yyyy',micampoconfecha) para mostrar y formatdatetime('yyyy/mm/dd',micampoconfecha) para enviar al motor la actualizacion.
Espero que me entiendas.

Claudio Romero escribi�:

ahh ok, o sea que por ej si tenes un grid con datos que queres editar, abris un form con controles NO enlazados que carg�s a mano y al grabar hac�s al rev�s?
creo que deber� hacer algo de eso.. pero es que es tan pr�ctico usar los DBxxxxx!!! por un lado ahorro tiempo y por otro lo pierdo!! jajaja

chauuuuuuuuuuuuuu

Hello Paola,

Thursday, November 12, 2009, 7:35:03 PM, you wrote:

PB> Hola Joshy..
PB> no estoy usando Edit, sino DBEdit, a no ser que este descienda del otro, PB> cosa que no mir�..
PB> D�nde puedo ir viendo las modificaciones que se van haciendo en lazarus? PB> ahora miro la wiki...
PB> chauuuuuuuuuuuu

Por ejemplo en: http://svn.freepascal.org/feeds/lazarussvn.rss aunque yo suelo leer la mailing list todos los dias (la en ingl�s claro).

Lo que est�n modificando es TMaskEdit que es de suponer que o bien por herencia o por inclusi�n es el mismo c�digo de m�scara.

Hello Paola,

you wrote

> Hola, has probado a usar una mascara con "." en vez de "/" ... de > todas maneras en la mascara del TEdit puedes indicar la mascara de > visualizacion y la de grabaci�n (si no recuerdo mal, es que hace mucho > que no las uso).

PB> Hola Jos�.. no. no encuentro esas m�scaras; solo veo una propiedad, PB> Maskedit..(en el TDBedit)

Creo que se refiere a las m�scaras que puedes aplicar en el campo, pulsando sobre el SQLQuery con el bot�n derecho... o era sobre el Dataset ?

Maxi escribi�:

Hola Maxi..
si, te entend� perfectamente, pero, en el TDBEdit no veo la propiedad displayformat; s�lo tengo acceso a la prop Maskedit, y es lo que no est� funcion�ndome.
Lo que no entiendo es porqu�, a esta altura del proyecto, algo tan com�n como el manejo de fechas, se haga tan complicado!! o quiz�s la complicada sea yo :)
chauuuuuuuuuuu

JoshyFun escribi�:

Hola Joshy..
no estoy usando Edit, sino DBEdit, a no ser que este descienda del otro, cosa que no mir�..
D�nde puedo ir viendo las modificaciones que se van haciendo en lazarus? ahora miro la wiki...
chauuuuuuuuuuuu

Jose Antonio Cuello escribi�:

Hola Jos�.. no. no encuentro esas m�scaras; solo veo una propiedad, Maskedit..(en el TDBedit)
chauuuuuuuuuuu

Hello Paola,

Thursday, November 12, 2009, 11:33:07 PM, you wrote:

PB> que lo tir�!! como se mueve esto a diario!!! por eso es que no entiendo PB> porque no se ha resuelto mejor esto de las fechas!!! claro, no soy quien PB> para quejarme, lo s�.. s�lo que me llama la atenci�n, nada m�s.. PB> Estas feeds est�n fant�sticas, pero ser�a bueno poder verlas en total!! PB> xq yo estoy bastantes revisiones antes!!!
PB> chauuuuuuuuuuu

Si las quieres ver todas lo mejor es usar el cliente del SVN, as� lo actualizas dia a dia de paso, sin depender de bajarte snapshots constantemente.

Y tambi�n podr�as segir el bugtracker, como por ejemplo:

http://bugs.freepascal.org/view.php?id=14895

El bug tracker est� en: http://bugs.freepascal.org/

Y como puedes ver en DBControls:

TDBEdit = class(TCustomMaskEdit)

JoshyFun escribi�:

que lo tir�!! como se mueve esto a diario!!! por eso es que no entiendo porque no se ha resuelto mejor esto de las fechas!!! claro, no soy quien para quejarme, lo s�.. s�lo que me llama la atenci�n, nada m�s.. Estas feeds est�n fant�sticas, pero ser�a bueno poder verlas en total!! xq yo estoy bastantes revisiones antes!!!
chauuuuuuuuuuu

Hola, siento la confusi�n ... creo que se me cruz� algo de alg�n otro lenguaje en el que se pod�a indicar en el EditMask del control la m�scara de edici�n y la de grabaci�n.

He estado mirando y existe un componente TDateEdit que funciona corectamente, no creo que sea dif�cil convertirlo a TDBDateEdit bas�ndose en el TDBEdit. Otra opci�n ser�a usar el TDateEdit y actualizarlo en el evento del TDataSource.OnDataChange(Sender: TObject; Field: TField) cuando el Field sea el campo de fecha. Bueno espero haber ayudado.
Un saludo.

Paola Bruccoleri escribi�:

Paola Bruccoleri escribi�:

Para eso invent� Dios las transacciones y sus configuraciones. En serio, coge alg�n libro de firebird y de programaci�n en delphi de aplicaciones en bases de datos, o tutoriales, que en la red hay a montones. Y aprende el funcionamiento b�sico. Las preguntas que realizas est�n mas que contestadas en cientos y cientos de libros y miles y miles de tutoriales. No es algo con lo que tenga que lidiar el componente de Lazarus, miento, si que tiene que lidiar pero solo en casos muy excepcionales. Eso es cosa del motor de BD que est�s utilzando.

Saludos.

__________ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4603 (20091113) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

Hello Paola,

Friday, November 13, 2009, 2:32:46 PM, you wrote:

PB> Hola Jos�..
PB> muchas gracias por la idea....
PB> ahora se me viene una pregunta a la cabeza, relacionada con los PB> controles enlazados..y la ventaja o no de usarlos. PB> Qu� pasa en un ambiente de red?? supongamos que ese grid esta enlazado a PB> un datasource enlazado a una tabla. Edito un registro del grid cargando PB> ese form (usando los DBxxx). Suponemos que 2 usuarios editan el mismo PB> registro, �se supone que lo bloquea el primero?, etc, etc... PB> Veo entre las props de la tabla la cachedupdated.. �cu�l ser�a la forma PB> correcta de setear algunos valores, para ver el comportamiento en red y PB> prevenir desastres?

Los controls TDBxxxxx se comportan igual que cualquier otro ya que los TDBxxxx lo �nico que hacen es mostrarte la informaci�n de los campos m�s c�modamente y que la edites m�s f�cil. En el momento que haces el commit es cuando se concilian los datos en la BD y si estos no respetan las condiciones del actual estado (por ejemplo, crear un registro con un valor de clave que ya existe) saltar� una excepci�n y ah� ser� donde tienes que actuar al respecto, por ejemplo generando un nuevo valor de clave, o informando al usuario de que ese valor de clave (por ejemplo el n�mero de una factura) no es v�lido.

Jose Antonio Cuello escribi�:

Hola Jos�..
muchas gracias por la idea....
ahora se me viene una pregunta a la cabeza, relacionada con los controles enlazados..y la ventaja o no de usarlos. Qu� pasa en un ambiente de red?? supongamos que ese grid esta enlazado a un datasource enlazado a una tabla. Edito un registro del grid cargando ese form (usando los DBxxx). Suponemos que 2 usuarios editan el mismo registro, �se supone que lo bloquea el primero?, etc, etc... Veo entre las props de la tabla la cachedupdated.. �cu�l ser�a la forma correcta de setear algunos valores, para ver el comportamiento en red y prevenir desastres?

chauuuuuuuuuuuuuu

Raistware escribi�:

paaaaaa que mala onda, por Dios... que d�a deb�s tener hoy!!!! creo que si esto lo hubiera preguntado alguien de otro g�nero, seguro contestas de otra forma.. tendr� la precauci�n de estar atenta, porque esto es recurrente en esta �rea.
Claro que eso ya lo s�; trabajo en sistemas bastante pesados usando transacciones, pero en otros lenguajes y con otros motores de BD, por tanto las sintaxis, propiedades, etc, etc son diferentes. lo poco que hice con delphi hace ya un lote de a�os fue en aplicaciones o monopuesto, con interbase y usando los componentes IBxxx o con 2 maquinas usando dbfs y un componente que creo que ya no existe (halcyon). Aclaro que jam�s tuve problemas de ning�n tipo y las aplicaciones siguen funcionando desde hace a���ooooossssssss. S� creo que tiene que ver el componente que usas, adem�s del motor. Jam�s he usado los zeos ni sus transacciones, s�lo por ahora estoy experimentando; ni siquiera lo que hago es para nadie en particular, son s�lo inventos m�os de sistemas. No creo que esa sea una forma simp�tica de contestar. Si no te dan las ganas, simplemente apreta la tecla que ya conoces (creo) que se llama SUPR o DEL.
Que pases un buen d�a!!!!

Hola Paola.

Si otra persona de otro genero hubiera estado haciendo las mismas preguntas que t� �ltimamente, le habr�a contestado de igual forma, no te quepa la menor duda.

Estando acostumbrada al desarrollo de sistemas 'bastante pesados' usando transacciones y dem�s parefernalia, supongo que te referir�s a Oracle o MySQL. Todos gestores de bases de datos relacionales son similares. Incluso MySQL soporta transacciones, otra cosa es que sean transparentes al usuario. E Interbase, el abuelo porretas de Firebird, soportaba transacciones, otra cosa muy distinta es que funcionasen correctamente.

Con estas bases, da exactamente igual el lenguaje bajo el que est�s programando, la BD tiene las mismas caracter�sticas en C, C++, VisualBasic, PHP, ASP, .Net, ObjectPascal, Delphi, Ada, Lisp ... el que se llamen de distinto no exime a no buscar en la documentaci�n existente, al menos bajo mi punto de vista.

Si usas Zeos, lo ideal ser�a pasarse por los foros de Zeos y buscar en ellos las dudas antes de postear en los foros o en las listas de correos, pero claro, eso solo lo hago yo que tengo muy mala leche ;)

Dices que has estado programando hace muchos a�os en Delphi, pero que utilizabas DBF. DBF son archivos de Paradox o dBase, bases de datos no-relacionales, y que no implementaban transacciones. Por tanto por favor, menos postear sin sentido y llenar la lista de basura y m�s investigar un poco y poner dudas reales y coherentes tras haber investigado un poco. Que bastante tengo con eliminar el spam que me llega al mail como para tener que eliminar emails chorras enviados a la lista.

Con esto no quiero decir que no env�es tus dudas, por supuesto que no, para eso est� la lista. Pero por favor, que sean dudas que no hayas podido resolver buscando un poco por la red, as� aumentamos la calidad de la lista de correo y reducimos el nivel de correos in�tiles que nos llegan a todos.

Si quieres ver un ejemplo de una lista de correo con nivel, te invito a que te apuntes a la lista de desarrollo de lazarus, en perfecto ingl�s. Tiene un n�mero de mensajes diarios brutal, pero pr�cticamente todos son de nivel alto o muy alto, por el contenido y por la forma de expresarse, y se aprende mucho con ellos.

Saludos, llevo un d�a estupendo por ahora, espero que contin�e igual y que tampoco se estropee el tuyo.

PD: Voy a revisar la descripci�n de la lista, porque empiezo a pensar que me apunt� a la equivocada.

__________ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4604 (20091113) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

Dices que has estado programando hace muchos a�os en Delphi, pero

que

la

lista.

y encima, poca comprensi�n lectora.. NO DIJE que las DBF implementaban transacciones, SOLO DIJE los 2 sistemas que hice con delphi, hace ya muchos a�os.. uno usando interbase y otro DBFs.. te aclaro por las dudas.... ahhhh, no te olvides de poner mi casilla de correo en tu filtro de correo!!!!

y en este p�rrafo termin� mi lectura de tu mail, ni me gasto en leer m�s lo que has opinado, no lo merece.. debo trabajar.. los dem�s no tienen porqu� aguantar tanta estupidez....aparte, por si no sabes, las discusiones personales de deben hacer por privado; es lo que se hace en todos lados..
byeeeeeeeeeeeeeeeeee

Bueno bueno bueno...queridos colegas, me parece que estamos saliendo del foro hacia cualquier lado.
Pido disculpas por la intromisi�n en la discusi�n, pero me parece que esto no lleva a nada.
Yo me hago una pregunta : Si no hacemos preguntas en el foro, �entonces para que est�...quien tiene la verdad absoluta para decir que pregunta es buena y cual no...?, debo reconocer que hay muchas preguntas hechas en el foro que podr�an ser calificadas de infantiles pero que me han despejado muchas dudas, por lo que me sirvi� enormemente. Lamentablemente, mi ingl�s es tan pobre que hasta Tarz�n habla y/o lee mejor que yo, lo cual hace que no pueda merodear por foros de otro lenguaje ya que seria in�til, mas cuando tengo uno de mi mismo idioma que me permite hacer cualquier tipo de preguntas (reconozco que hay veces en que mis dudas est�n mal planteadas y termino generando mas dudas...; ).
Hay que tener en cuenta que los que estamos en el foro lo hacemos para aprender lo que no sabemos y ense�ar lo que ya creemos que lo tenemos aprendido.
No quiero generar pol�mica ya que este foro no es para esto, pero me interesa mantener la calidad del foro por la calidad de sus foristas, y no soy quien para juzgar este �ltimo punto.

Vamos que es viernes y se viene el fin de semana...

Saludos y feliz San Viernes.

------------ pr�xima parte ------------
A non-text attachment was scrubbed...
Name: wmeson.vcf
Type: text/x-vcard
Size: 163 bytes
Desc: no disponible
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091113/575ee714/attachment.vcf>

Ante todo disculpen por la sencillez de la pregunta, pero estoy trabado en esto.

Yo tengo el siguiente procedimiento en una caja de texto en Visual Basic 6 para que solo permita entrada de n�meros.

Como ser�a la conversi�n para Lazarus?

Private Sub txtPuerto_KeyPress(KeyAscii As Integer) Select Case KeyAscii
Case Is < 8
KeyAscii = 0 'Anula la tecla presionada
Case 9 To 12
KeyAscii = 0
Case 13
txtCamino.SetFocus 'cambia hacia otra caja de texto cuando presiono la tecla Enter
Case 14 To 26
KeyAscii = 0
Case 28 To 47
KeyAscii = 0
Case Is > 57
KeyAscii = 0
End Select
End Sub

GRACIAS
=========
�� ISMAEL ��
=========
PD: No tengo acceso a Internet

Como no se si te podr�s bajar el archivo o la lista lo aceptara te pasteo el trozo de texto que creo que te interesar� ( pag 101 de la guia de referencia de freepascal )

Var i : integer;
...
Case i of
  3 : DoSomething;
  1..5 : DoSomethingElse;
end;
Case C of
  ?a? : WriteLn (?A pressed?);
  ?b? : WriteLn (?B pressed?);
  ?c? : WriteLn (?C pressed?);
else
  WriteLn (?unknown letter pressed : ?,C);
end;

El 16 de noviembre de 2009 17:01, Ismael L. Donis Garc?a < ismael en citricos.co.cu> escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091116/aa4a515f/attachment-0001.html> ------------ pr�xima parte ------------
A non-text attachment was scrubbed...
Name: ref.pdf
Type: application/pdf
Size: 703351 bytes
Desc: no disponible
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20091116/aa4a515f/attachment-0001.pdf>

Puedes probar con

if not EsEntero(Edit1.Text) then exit;
function EsEntero(S: String): Boolean;
begin
  try
    Result := True;
    StrToInt(S);
  except on E: EConvertError do
    Result := False;
  end;
end;
**-----
Saludos

El d�a 16 de noviembre de 2009 13:01, Ismael L. Donis Garc?a <ismael en citricos.co.cu> escribi�:

Aproximadamente, pod�s hacer esto.
Basicamente, se fija la tecla que presionas, y si no es la que quer�s, lo pone en 0.
Los otros, los deja.

------------
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
     case Integer(Key) of
         $8: ;// borrar ;
         $0d: ;// Enter -> Componente.SetFocus;
         $31..$39: ; // Es n�mero
         else Key:=#0;
     end;
end;
--------------

Saludos

Claudio en tiempo de dise�o me da error y en ejecuci�n no me inabilita la entrada de caracteres, �sea me deja escribir letras en la caja de texto y yo solo quiero que permita escribir n�meros.

Pongo:

procedure Tfrmorigen.txtpuertoKeyPress(Sender: TObject; var Key: char);
begin
  if not EsEntero(Key) then exit;
end;

No he logrado inabilitar el valor de Key a la hora de teclear si no es un n�mero.

Saludos cordiales
=========
�� ISMAEL ��
=========
PD: No tengo acceso a Internet

Ya logr� hacerlo:

 if not (Key in ['0'..'9', #8, #13]) then
    Key := #0;

Gracias a todos
=========
�� ISMAEL ��
=========
PD: No tengo acceso a Internet

Muchas gracias Javier por el adjunto, efectivamente no puedo bajar archivos de la lista, por lo que creo que me ser� de mucha utilidad el adjunto que me env�as ya que tengo otras muchas dudas.

Ya hab�a resuelto el problema de los n�mero de la siguiente forma:

procedure Tfrmorigen.txtpuertoKeyPress(Sender: TObject; var Key: char);
begin
  if not (Key in ['0'..'9', #8, #13]) then
    Key := #0
  else if Key = #13 then
    txtcamino.SetFocus;
end;

Saludos reiterados
=========
�� ISMAEL ��
=========
PD: No tengo acceso a Internet