Agregar ceros al pincipio de folio

[jorelivi]

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

[jhonny]

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:


type
TOrientacion = (toLeft, toRight);

function PadString(Cadena :String; Llenar_Con :Char; Cantidad :Integer; Orientacion :TOrientacion) :String;
var
I :Integer;
Temp :String;
begin
if Length(Cadena) >= Cantidad then
begin
SetLength(Cadena, Cantidad);
end
else
begin
for I := 0 to (Cantidad - (Length(Cadena)) -1) do
Temp := Temp + Llenar_Con;
end;
if Orientacion = toRight then
Result := Cadena + Temp
else
Result := Temp + Cadena;
end;


la cual se usa así, para tu primer caso:


PadString('13245', '0', 7, toLeft);


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.

[marcoszorrilla]

Aquí tienes un ejemplo que acabo de preparar, es para añadir ceros por la izquierda.

Function FillSpacesLeft(cVar:String;nLen:Integer):String;
begin
Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FillSpacesleft(Edit1.Text, 10);
end;

Un Saludo.

[egostar]

Otra manera de hacerlo,


procedure TForm1.BitBtn1Click(Sender: TObject);
var
Cadena: String;
Caracter: Char;
begin
Cadena := Edit1.Text;
If Cadena[1] in ['A'..'Z'] then begin
Caracter := Cadena[1];
Delete(Cadena,1,1);
ShowMessage(Caracter+Format('%.*d',[6,StrtoInt(Cadena)]));
end
else begin
ShowMessage(Format('%.*d',[7,StrtoInt(Cadena)]));
end;
end;



Salud OS.

[jhonny]

Aquí tienes un ejemplo que acabo de preparar, es para añadir ceros por la izquierda.

Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
Un Saludo.


Acabo de anotar esa función en la libreta de "Para no olvidar".

[jhonny]

La función que propuse quedo reducida a esto, gracias a marcos:

type
TOrientacion = (toLeft, toRight);

Function PadString(cVar :String; Caracter :Char; nLen:Integer; Orientacion :TOrientacion):String;
begin
if Orientacion = toLeft then
Result:=StringOfChar(Caracter, nLen - Length(cVar))+cVar
else
Result:=cVar+StringOfChar(Caracter, nLen - Length(cVar));
end;


Y se puede usar asi, por ejemplo:


ShowMessage(PadString('12345', '0', 10, toLeft));
ShowMessage(PadString('12345', '0', 10, toRight));

[luisgutierrezb]

otra mas:

Cadena := FormatFloat('0000000',num_docto);

[jorelivi]

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

[FGarcia]

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!

[Lepe]

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

[jhonny]

En cuanto a PadStr pues quizá me equivoque (Aunque podría crearce), porque en ese momento no tenia el FireBird a mano, pero debo decir que LPad y RPad si existen y sus respectivas declaraciones serian así:

DECLARE EXTERNAL FUNCTION lpad
CSTRING(255) NULL, INTEGER, CSTRING(1) NULL
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'IB_UDF_lpad' MODULE_NAME 'ib_udf';

y

DECLARE EXTERNAL FUNCTION rpad
CSTRING(255) NULL, INTEGER, CSTRING(1) NULL
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'IB_UDF_rpad' MODULE_NAME 'ib_udf';

[FGarcia]

Nuevamente por aqui!

Ok, ya cheque lo de la udf LPAD y RPAD ya la declare en mi BD (uso IBExpert) ahora bien aun no me queda claro como integro mi trigger con esta udf pues el trigger me genera un entero y udf me devuelve una cadena. Supongo que debe hacerse una conversion como en delphi StrtoInt. Disculpen la necedad pero realmente no entiendo.


//Trigger para generar un numero de codigo
AS
begin
if (new.codigo is null ) then
new.codigo = gen_id (cod_pro_gen, 1);
end

//UDF LPAD: Alarga una cadena en la cantidad de digitos solicitados con
//el caracter solicitado
//LPad(Cadena, Digitos, Caracter)
DECLARE EXTERNAL FUNCTION LPAD
CSTRING(255) NULL,
INTEGER,
CSTRING(1) NULL
RETURNS CSTRING(255) FREE_IT
ENTRY_POINT 'ib_udf_lpad' MODULE_NAME 'ib_udf'

[jhonny]

Si tu campo "Codigo" es de tipo Integer no te va a quedar almacenado algo como 000001, para lograr el efecto que deseas debes tener tu campo como tipo String.

[Lepe]

Yo más bien estaba pensando en usar padleft cuando haya que mostrar al usuario la clave primaria, pero que internamente use el campo entero.

Por ejemplo, si hacemos una vista (view) para la tabla cliente, allí usamos

select lpad( cast(idcliente as char(20), '0',20), direccion, nombre from clientes

De esta forma tienes la ventaja de usar un entero para las búsquedas, triggers, etc. de la base de datos, pero muestras al usuario el número formateado.

Saludos

[FGarcia]

Gracias a todos!
Lepe, habia llegado a la misma conclusion pero no sabia como implementarla.
Nuevamente gracias!