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

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

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

git - Possible to change Gitlab repository creation schema? -

my gitlab repos path set : data/git/repositories if user called superman creates new project gitlab automatically setup git repos path : data/git/repositories/superman/projectname does know can configure ? don't want have owners name in repos path. if want user's name in repository's path, set group project, , work against group's repository/ies. repositories lay in: /path/repositories/projectgroup/projectname thoug, gitlab somehow works github, each user has own personal repositories, can sync development branches , make merge requests group's repositories sets of commits, it's easier track modifications' ownership through forks. have @ tutorial such one how create , use it.
Read more