oracle - ClientDataSet TBCDField rounding -


i'm using delphi 5 + bde + oracle. have following function: 

class function tclientdatasetfactory.getclientdataset(       const qrygen: tdataset): tclientdataset;     var        dspdados: tdatasetprovider;     begin        result := nil;        try           try              result := tclientdataset.create(nil);              dspdados := tdatasetprovider.create(result);              dspdados.dataset := qrygen;              qrygen.active := true;              qrygen.first;               result.data := dspdados.data;               result.first;           except              on e: exception              begin                 raise;              end;           end;               end;     end;

so, when run this:

var    qrygen: tquery;    cdsgen: tclientdataset; begin    qrygen := nil;    try       try          qrygen := criaquery();          qrygen.sql.text :=             'select sum(total) total mytable';          cdsgen :=  tclientdatasetfactory.getclientdataset(qrygen);          showmessagefmt('total: %f', [cdsgen.fieldbyname('total').asfloat]);       except          on e: exception          begin             raise;          end;       end;          if assigned(qrygen) freeandnil(qrygen);    end; end;

i got "159,00" but, if run this:

showmessagefmt('total: %f', [qrygen.fieldbyname('total').asfloat]);

i got "159,25".

can me?

i solved problem solution. 

type    tinternalquery = class(tquery)    protected       procedure internalinitfielddefs; override;    public       constructor create(aowner: tcomponent; const qrygen: tquery); reintroduce;    end;  constructor tinternalquery.create(aowner: tcomponent; const qrygen: tquery); var    intcont: integer; begin    inherited create(aowner);    self.databasename := qrygen.databasename;    self.updateobject := qrygen.updateobject;     self.sql.text := qrygen.sql.text;     intcont := 0 self.paramcount - 1    begin      self.params[intcont].value := qrygen.params[intcont].value;    end;   end;  procedure tinternalquery.internalinitfielddefs; var    intcont: integer; begin    inherited internalinitfielddefs;    intcont := 0 fielddefs.count - 1    begin       if (fielddefs[intcont].size = 0) , (fielddefs[intcont].datatype = ftbcd)       begin          fielddefs[intcont].precision := 64;          fielddefs[intcont].size := 32;       end;      end;   end;

the problem ((fielddefs[intcont].size = 0) , (fielddefs[intcont].datatype = ftbcd)). when clientdataset created, field truncated, because when oracle has function "sum(total)" result field created size 0, clientdataset handle field integer field.


Comments

Post a Comment

Popular posts from this blog

google app engine - 403 Forbidden POST - Flask WTForms -

i have flask application running on google app engine. trying submit form built using wtform , keep getting following error. 403 forbidden: don't have permission access requested resource. either read-protected or not readable server. location.html (part of code) <form method=post action="/home/location"> .... <button type="submit" class="btn btn-primary" value="submit"> directions </button> </form> main.py @app.route('/home/location', methods=['post', 'get']) def location(): form = cfcdirections.direction(request.form) print(request.method) if request.method == 'post' , form.validate(): print("after if") directions = cfcdirections() street_no = directions.no street = directions.street suburb = directions.suburb postcode = directions.postcode ...
Read more

Android layout hidden on keyboard show -

i have strange problem layout. when tap on edittext , keyboard shown edittext stay on bottom , when tap on to hide keyboard , keyboard hides , edittext go should when want input text. when tap again, keyboard shown , edittext goes down behind keyboard... <relativelayout android:layout_width="match_parent" android:layout_height="match_parent" > <scrollview android:layout_width="match_parent" android:layout_height="fill_parent" android:above="@+id/rl_commands"> <textview android:layout_width="match_parent" android:layout_height="wrap_content"/> </scrollview> <relativelayout android:layout_width="match_parent android:layout_height="24dp" android:id="@+id/rl_commands" android:alignparentbottom="true"> ...
Read more

Parse xml element into list in Python -

i've been trying days store list of coordinates list in python. i've tried minidom, xmlreader, , few others. i'm doing wrong, i'm on deadline , need help. <?xml version="1.0" encoding="utf-8"?> <kml xmlns="http://www.opengis.net/kml/2.2" xmlns:gx="http://www.google.com/kml/ext/2.2" xmlns:kml="http://www.opengis.net/kml/2.2" xmlns:atom="http://www.w3.org/2005/atom"> <document> <name>kmlfile</name> <style id="s_ylw-pushpin_hl"> <iconstyle> <scale>1.3</scale> <icon> <href>http://maps.google.com/mapfiles/kml/pushpin/ylw-pushpin.png</href> </icon> <hotspot x="20" y="2" xunits="pixels" yunits="pixels"/> </iconstyle> </style> <stylemap id="m_ylw-pushpin"> ...
Read more