Agregar Ceros a la Izquierda en Firebird 1.5.x

[pcicom]

En este caso lo recomedable para ti es que si deseas que el valor a grabar en el campo de datos sea
llenado con zeros a la izq, y en su caso cuando recuperes esa informacion pues lo llenes con alguna
funcion escrita por ti..


ejemplo:

Código Delphi [-]
FUNCTiON STRZERO(nValor,nLong:INteger):String;
Var
  cCadena:String;
  nZeros:INteger;
begin
     cCadena := TrimRight(InttoStr(nValor));
     cCadena := StringOfChar('0',(nLong-length(cCadena))) + cCadena;
     result := cCadena;
end;

: Insertando el Valor

cValor := strzero(500,10);

cSql := 'INSERT INTO mtabla (campo,campo....) VALUES ('+qUOTEDsTR(cValor)+','......);


: Obteniendo el Valor de un SELECT

SELECT campo.... FROM mtabla ...


cCampo := StrZero(qryTabla['campo'],10);



Y/O En su caso tendrias que crear un UDF con dicha funcion y asi la podrias integrar a tus consultas cuando
lo requieras de esa forma para cualquier valor numerico..


SELECT STRZERO(campo,10),campo2...... FROM mtabla ...




Saludos..