FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Agregar ceros al pincipio de folio
Hola a todos,
Quiero hacer una funcion que me permita recorrer un tabla y a su vez agregar ceros al principio de un campo especifico. Es decir, tengo un campo llamado NUM_DOCTO, el cual contiene el numero de la factura. Pero este folio se compone de 7 digitos que pueden ser nuemeros o letras, ejemplo: 0013245 ó A000456, algunos numeros de factura no tienen los ceros al pincipio (13245) y/o le faltan los ceros intermedios (A456). Necesito hacer algo para insertarlos, me pueden ayudar. Gracias
__________________
La sabiduría de los sabios y la experiencia de los siglos pueden ser conservadas con las citas. Atte. Jorelivi |
#2
|
||||
|
||||
Si lo vas a hacer desde y si usas FireBird, puedes usar la función PadStr que viene en sus UDFs, pero si lo necesitas hacer desde delphi, puedes tratar de usar la siguiente función:
la cual se usa así, para tu primer caso:
Eso colocara 2 ceros o los que sean que se necesiten a la izquierda de 12345 quedando 0012345, para el otro caso tendrás que adecuar la función para que reconozca dicha situación.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#3
|
|||
|
|||
Otra manera de hacerlo,
Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#4
|
|||
|
|||
otra mas:
Cadena := FormatFloat('0000000',num_docto); |
#5
|
||||
|
||||
Gracias a todos por su apoyo, estoy muy contento de pertenecer a tan importante foro.
Sus consejos y ejemplos me han sido muy utiles. Saludos
__________________
La sabiduría de los sabios y la experiencia de los siglos pueden ser conservadas con las citas. Atte. Jorelivi |
#6
|
|||
|
|||
Hola!
Jhonny me ¿podrias explicar con manzanas y palitos como se usa la funcion que comentas al inicio de este hilo (PadStr) en Firebird? De hecho estoy iniciandome en Firebird, actualmente tengo un campo llamado codigo cuyo valor genero con un trigger, eso me funciona bien pero efectivamente quisiera añadir 0's por la izquierda para generar un numero de codigo de hasta 999,999 Gracias por tu atencion! |
#7
|
||||
|
||||
PadStr es una función de alguna biblioteca de componentes.
En firebird, deberías buscar alguna biblioteca de UDF rfunc (freeware) tiene tanto padleft como padright. Eso permite usar las funciones en el sql de una consulta. Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#8
|
||||
|
||||
Aquí tienes un ejemplo que acabo de preparar, es para añadir ceros por la izquierda.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#9
|
||||
|
||||
Cita:
Acabo de anotar esa función en la libreta de "Para no olvidar".
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#10
|
||||
|
||||
La función que propuse quedo reducida a esto, gracias a marcos:
Y se puede usar asi, por ejemplo:
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como poner ceros antes y despues de un numero fraccionario? | Luis Alberto | Varios | 6 | 21-12-2005 21:29:24 |
Como llenar con espacion en blanco o con ceros una cadena? | Luis Alberto | Varios | 10 | 02-12-2005 19:14:02 |
Como poner ceros delante de un numero? | juliopag1 | Firebird e Interbase | 4 | 28-09-2005 01:11:06 |
imprimir una imagen en tamaño folio | rebollo75 | Impresión | 3 | 20-04-2005 18:35:42 |
Ceros antes de un numero | MRSAM | Varios | 2 | 24-11-2004 03:24:08 |
|