FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Crear un mask Edit, y validar el Campo !!
Buen dia foristas:
Necesito un poco o mucho de su ayuda Tendo un DBEdit para poner el numero de presupuesto el cual debe de quedar asi 0001/2005 este a su ves quiero que cuando el usuario lo teclee me de esa estructura y si no la tiene validarlo, o bien llenarlo de ceros a la izquierda es decir 10 /2005 -----> 0010/2005 tambien validar que no se quede vacio este campo, y que no existe en la tabla que almacena esos datos, alguien me puede dar una manita para solucionar esta bronquilla que tengo Manejo delphi 5.0 y Paradox Tengo IDCodigo Con llave primaria incremental IDCodigoCot Como llave Espero no estar mal en la definicion de mi llaves Saludos Gracias Jmedina Última edición por jmedina fecha: 11-05-2005 a las 02:38:52. |
#2
|
||||
|
||||
Pues lo mejor es que el número de presupuesto se rellene automáticamente, por ejemplo tomando el último valor de una tabla auxiliar, a la hora de grabar.
Para ese formato que quieres puedes utilizar FormatFloat. cNumero:=FormatFloat('0000',Mi_Ultimo_Numero + 1); Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
si esoes correcto marcos, lo que pasa es que asi estaba, pero despues dijeron queno que se iba a capturar sin dar un numero consecutivo, algunas veces si se dara el caso pero otras, no, como crees que le pueda hacer, mi tipo de dato es String, y la nomenglatura es 0000/2005
Gracias saludos |
#4
|
||||
|
||||
Si /2005 es fijo eso lo puedes añadir tú directamente, entonces lo que necesitas es un edit con ancho permitido 4, que solamente te permite introducir números, en el evento on exit, le añades ceros por la izquierda y listo.
[delphi] procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [#8,'0'..'9']) then key:=#0; end; [/Delpi] Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|