Re: [firebase-br] Re: Função para completar com zeros um valor via Stored Procedure....

[Pedro Henrique]

Olá Rubens,

Criei uma dll muito simples para ser usada no Firebird.


library ServerDll;

uses SysUtils;

function FBFormatFloat( TypeFormat, Format , Text: PChar): PChar; cdecl;
export;
var i: Integer;
    sformat: String;
begin
  if TypeFormat = 'N' then
  begin
    if StrToInt(trim(StrPas(Format))) > 0 then
    begin
      for i:= 1 to StrToInt(trim(StrPas(Format))) do sformat:=sformat + '0';
      Format:=PAnsiChar(sformat);
    end
    else Format:=PAnsiChar('0');
  end;
  result:=PAnsiChar(FormatFloat( StrPas(Format) , StrToFloat(
trim(StrPas(Text)) ) ) );
end;

exports
  FBFormatFloat;

begin
end.


 Espero ter ajudado.

Pedro Henrique.
----- Original Message ----- 
From: "Rubens J Rodrigues" <rubens.rodrigues em abrevo.com.br>
To: "Rubens J Rodrigues" <rubens.rodrigues em abrevo.com.br>
Cc: "FireBase" <Lista em firebase.com.br>; "Delphi Programadores"
<DELPHI_SOPROGRAMADORES em br.egroups.com>; "Delphi Total"
<delphi-Total em br.egroups.com>; <firebase-br em grupos.com.br>;
<delphi_linhadecodigo em yahoogrupos.com.br>
Sent: Monday, December 26, 2005 10:25 AM
Subject: [firebase-br] Re: Função para completar com zeros um valor via
Stored Procedure....


> Rubens J Rodrigues escreveu:
>
> > Colegas,
> >
> > Tenho um campo Codigo varchar(13), e preciso criar uma função dentro
> > de uma procedure que complete este campo zeros a esquerda, por exemplo:
> > * ----> Codigo 13 então ficaria 0000000000013.
> >
> > *Alguém pode me ajudar?
> >
> > Delphi 6 e Firebird 1.5
> >
> >
> >-- 
> >-----------------------------------------
> >Rubens J Rodrigues
> >-----------------------------------------
> >
> >
>
>
> -- 
> -----------------------------------------
> Rubens J Rodrigues
> Analista de Suporte & TI
> Depto. de Informática
> Abrevo do Brasil Distribuidora Ltda.
> Phone : +55 (27) 2121-8734
> Mobile Phone : +55 (27) 9979-0372
> Skype-me : rjorodrigues
> -----------------------------------------
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa


	

	
		
_______________________________________________________ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html