Formatar numeração da pagina no rave

Delphi

20/03/2012

Boa noite,

Estou criando um Registro de inventário modelo p7 no rave. Preciso de formatar a numeração da pagina com 3 digitos, ex:
pagia 1 = pagina 001. Passei o dia pesquisando e o mais proximo que encontrei foi no prorio guia do rave, porém não funciona. Segue código:

function Text18_OnBeforePrint(Self: TRaveText);
      var
         iCount: Integer;
         sCount: String; 
      begin

         iCount := StrToInt(RaveProject.GetParam(Report.CurrentPage));
         sCount := FormatFloat(000,iCount);
         Self.text := scount;
         RaveProject.SetParam(Report.CurrentPage, sCount);

      end OnBeforePrint;


tentei assim tambem:

function Text18_OnBeforePrint(Self: TRaveText);
      var
         iCount: Integer;
         sCount: String; 
      begin

         iCount := StrToInt(RaveProject.GetParam(CurrentPage));
         sCount := FormatFloat(000,iCount);
         Self.text := scount;
         RaveProject.SetParam(CurrentPage, sCount);

      end OnBeforePrint;


mas em ambos os casos dá erro pois não está vindo o valor do parâmetro CurrentPage.

Segundo a contabilidade a numeração tem que ser formatada.

Desde já agradeço. Toda ajuda será bem vinda.

Lindomar
Lindomar Sampaio

Lindomar Sampaio

Curtidas 0
POSTAR