<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.6000.16609" name=GENERATOR></HEAD>
<BODY>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=106232910-14032008>I learn about all your tips... but nothing todo. I try
to summarize</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=106232910-14032008>I'm using firebird 2.0.3 in windows vista environment.
pudf was compiled with fpc 2.0.4 and created with lazarus
0.9.22</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=106232910-14032008></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=106232910-14032008>project file</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face="Courier New" size=2><SPAN
class=106232910-14032008></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face="Courier New" size=2><SPAN
class=106232910-14032008> library
pudf;</SPAN></FONT></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face="Courier New" size=2><SPAN
class=106232910-14032008>{$mode objfpc}{$H+}</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face="Courier New" size=2><SPAN
class=106232910-14032008>uses<BR> Classes,<BR> p_func in
'p_func.pas';</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face="Courier New" size=2><SPAN
class=106232910-14032008>exports<BR> p_round name
'p_round';</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face="Courier New" size=2><SPAN
class=106232910-14032008>{$R pudf.res}</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV dir=ltr align=left><FONT face="Courier New" size=2><SPAN
class=106232910-14032008>begin
</SPAN></FONT></DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New"
size=2>end.</FONT></SPAN></DIV></BLOCKQUOTE>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2>function file</FONT></SPAN></DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><SPAN class=106232910-14032008><FONT face="Courier New" size=2>unit
p_func;</FONT></SPAN></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New" size=2>{$mode
objfpc}{$H+}</FONT></SPAN></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New"
size=2>interface<BR> function p_round(var valore: double; ndec:
integer): double; cdecl;</FONT></SPAN></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New"
size=2>implementation</FONT></SPAN></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New"
size=2>uses<BR> Classes, SysUtils;</FONT></SPAN></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New" size=2>function
p_round(var valore: double; ndec: integer): double; cdecl; <BR>var<BR>
i: integer;<BR> risultato: double;<BR> ndivisore:
integer;<BR>begin</FONT></SPAN></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New" size=2>
risultato:= valore;<BR> ndivisore:= 1;<BR> for i:= 1 to ndec
do<BR> begin<BR> risultato:=
risultato*10;<BR> ndivisore:= ndivisore*10;<BR>
end;</FONT></SPAN></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New" size=2>
Result:= round(risultato)/ndivisore;<BR>end;</FONT></SPAN></DIV>
<DIV><SPAN class=106232910-14032008><FONT face="Courier New"
size=2>end.
</FONT></SPAN></DIV></BLOCKQUOTE>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2>Declare command:</FONT></SPAN></DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff size=2>test
commnand</FONT></SPAN></DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff size=2>select
P_ROUND(123.1233, 2) as nrounded from rdb$database</FONT></SPAN></DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2>error</FONT></SPAN></DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV><SPAN class=106232910-14032008><FONT face=Arial size=2>Invalid
token.<BR>invalid request BLR at offset 59.<BR>function P_ROUND is not
defined.<BR>module name or entrypoint could not be
found.</FONT></SPAN></DIV></BLOCKQUOTE>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=106232910-14032008><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV><!-- Converted from text/rtf format -->
<P><SPAN lang=it><FONT face=Arial size=2>Codebue Fabio</FONT></SPAN> <BR><SPAN
lang=it><FONT face="Courier New"
size=2>.-----------------------------.</FONT></SPAN> <BR><SPAN lang=it><FONT
face="Courier New" size=1> _ \
__| _||</FONT></SPAN> <BR><SPAN
lang=it><FONT face="Courier New" size=1> __/____|\__ \ _ \ _|
_|</FONT></SPAN> <BR><SPAN lang=it><FONT face="Courier New"
size=1> _| ____/\___/_|
\__|</FONT></SPAN> </P>
<P><SPAN lang=it><FONT face=Arial size=2>P-Soft di Codebue Fabio & C.
sas</FONT></SPAN> <BR><SPAN lang=it><FONT face=Arial size=2>via B.Storti,
19</FONT></SPAN> <BR><SPAN lang=it><FONT face=Arial size=2>24060 - Chiuduno -
BG</FONT></SPAN> <BR><SPAN lang=it><FONT face=Arial size=2>Italy</FONT></SPAN>
<BR><SPAN lang=it><FONT face=Arial size=2>Phone: +39.030.839435</FONT></SPAN>
<BR><SPAN lang=it><FONT face=Arial size=2>Fax: +39.030.5100306</FONT></SPAN>
<BR><SPAN lang=it><FONT face=Arial size=2>Mobile: +39.348.3515786</FONT></SPAN>
<BR><SPAN lang=it><FONT face=Arial
size=2>.-----------------------------.</FONT></SPAN> <BR><SPAN lang=it><FONT
face=Arial size=2>Web : www.p-soft.biz</FONT></SPAN> <BR><SPAN
lang=it><FONT face=Arial size=2>EMail: f.codebue@p-soft.biz
</FONT></SPAN></P></BODY></HTML>