Delphi - Sumar un Numero real Una Cadena

 
Vista:

Sumar un Numero real Una Cadena

Publicado por Juan Alberto (1 intervención) el 22/12/2011 15:54:27
Buenos dias a Todos

Mi Inquietud es la Siguiente: Estoy utilizando delphi7 y SqlServer Express 2008 y necesito que al momento de grabar las facturas en la base de datos, asignarle un Número de Comprobante Fiscal a cada una de ellas el cual es un String que contiene números y letras y debo incrementarlo en uno cada vez que se genera una nueva factura.

El Número de comprobante Fiscal tiene la Siguiente estructura "A010010010100000001" Donde los primero 11 caracteres son fijos y los demas 8 corresponden a la Secuencia.

Para almacenas esta información utilizo una tabla llamada <Serie> la cual tiene los Siguientes Campos:

Inicial, varchar(19)
Final, varchar(19)
último Utilizado varchar(19)

En el Campo Inicial y final ya tengo la Secuencia que voy a utilizar antes de empezar a Facturar
Ej: Inicial = A010010010100000001 y Final = A010010010100000050

En el Campo último utilizado debo ir guardando cual fue el Ultimo Número de comprobante fiscal que se asigno a las Facturas.

Lo que necesito sabes es como puedo A esta Cadena(A010010010100000001) Sumarle uno y obtener como resultado la siguiente cadena (A010010010100000002).

Muchas Gracias de Antemano a Todos por Su valioso tiempo y ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Sumar un Numero real Una Cadena

Publicado por Eva (484 intervenciones) el 22/12/2011 19:45:56
Es bastante simple
Coge los 8 caracteres de la derecha (RightStr)
Transformalos a numero
Suma 1 y tendrás un numeral
Transformalo a cadena de 8 caracteres poniendo los ceros necesarios delante. Hay muchas formas, una simplisima es unir una cadena de 8 ceros + el número transformado a cadena y coger los ocho últimos caracteres.
Junta la cadena fija que tienes (A0100100101) con la cadena de 8 que te ha salido ...
... y ¡ya ta!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar