<html><body><div style="color:#000; background-color:#fff; font-family:lucida console, sans-serif;font-size:13px"><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr">I am almost convinced that the problem is not what i am seeing...</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr">this code works</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr"><br></div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr" class="" style="">if VSQLVar^.sqlscale = 0 then</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr" class="" style=""> i := AParams[ParNr].AsInteger</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr" class="" style="">else</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr" class="" style="">//i := Round(AParams[ParNr].AsCurrency * IntPower10(-VSQLVar^.sqlscale));<br></div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr" class="" style=""> i := Round(BCDToDouble(AParams[ParNr].AsFMTBCD) * IntPower10(-VSQLVar^.sqlscale));<br></div><div class="" style="" id="yui_3_16_0_1_1415538800992_47732"><br class="" style=""></div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr">the reason i think that this is not a *real* fix, is that the TParam.asCurrency returns a Varriant and this raises the error, but TParam.AsFMTBCD returns a TFMTBCD Value converted from a variant! This *should* raise the same error, but it doesn't</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr"><br></div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr">How could i have debug info in FMTBCD unit? i would like to take a look at this BCDFactory</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr"><br></div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr"><br></div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr" class="" style="">PS : I am really trying to fix the problem and not just patch around it, i have the highest hope in your understanding and help :)</div><div id="yui_3_16_0_1_1415538800992_37663" class="" style=""><br class="" style=""></div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr">Regards,</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr">Chris</div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr"><br></div><div id="yui_3_16_0_1_1415538800992_37663" dir="ltr"><br></div><div class="qtdSeparateBR" id="yui_3_16_0_1_1415538800992_38319"><br></div><div class="yahoo_quoted" style="display: block;" id="yui_3_16_0_1_1415538800992_37683"> <div style="font-family: lucida console, sans-serif; font-size: 13px;" id="yui_3_16_0_1_1415538800992_37682"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;" id="yui_3_16_0_1_1415538800992_37681"> <div dir="ltr" id="yui_3_16_0_1_1415538800992_38320"> <font size="2" face="Arial" id="yui_3_16_0_1_1415538800992_40100"> On Sunday, November 9, 2014 12:08 PM, Joost van der Sluis <joost@cnoc.nl> wrote:<br> </font> </div> <br><br> <div class="y_msg_container" id="yui_3_16_0_1_1415538800992_37680">On 11/09/2014 03:37 AM, Chris Rempas wrote:<br clear="none">> I copied the binaries that were missing in my FPC 2.7.1 from FPC2.6.4<br clear="none">> i run make clean all and make install again and VOILA! i have debug! :)))<br clear="none">> (it seems all the binaries must be in the same directory for some reason)<br clear="none"><br clear="none">I don't really understand which binaries you did copy. But I'm glad you <br clear="none">have the debug-info.<br clear="none"><br clear="none">> FILE "dsparams.inc", LINE 519<br clear="none">> Function TParam.GetAsCurrency: Currency;<br clear="none">> begin<br clear="none">> If IsNull then<br clear="none">> Result:=0.0<br clear="none">> else<br clear="none">> Result:=FValue; <---- 519<br clear="none">> end;<br clear="none"><br clear="none">For 'BCD' fields, the Currency type is used. In your case you have 5 <br clear="none">decimals, so you can not use .AsCurrency...<br clear="none"><br clear="none">> when the parser gets the values of the params, this param is BCD and as<br clear="none">> you can see it tries to get it as currency<br clear="none">><br clear="none">> In a quick check, methods [AssignToField] [AssignFromField] [GetData]<br clear="none">> [SetData] are not fully ready for every "FDataType"<br clear="none">> some are missing BCD Fields, some are missing FMTBCD Fields and<br clear="none">> sometimes it gets the same treatment as Currency...<br clear="none"><br clear="none">Currency and BCD are the same. So apparently support for FMTBCD fields <br clear="none">is missing here. As the FMTBCD support is relatively new this could just <br clear="none">be missing.<br clear="none"><br clear="none">> I am guessing at this point that i don't have the latest code<br clear="none">><br clear="none">> if i could have a copy of the latest component, i would be able to test<br clear="none">> and maybe help debug with real testing<br clear="none"><br clear="none">2.7.1 is the latest version? Yo have to find out where/why the FMTBCD <br clear="none">param is accesses as AsCurrency (Assign, GetData, SetData?), and fix <br clear="none">that. Then you can simply recompile fcl-db and see if your program works.<br clear="none"><br clear="none">Oh, and if you have fixed the problem, send us a patch. ;)<div class="yqt5257224078" id="yqtfd53241"><br clear="none"><br clear="none">Joost.<br clear="none"><br clear="none"></div><br><br></div> </div> </div> </div> </div></body></html>