Hello Fred, With this below piece of code I do not want to test oField.datatype and doing the sum to n where n is VAR:currency
procedure tfrmbasePagefo.DoSum(oDbGrid: TDbwidgetgrid; iRow:integer); VAR n:currency; nn:integer; iCol:integer; oField:TField; begin with oDbGrid,oDbGrid.datalink.datasource do for iCol:=0 to datacols.count-1 do with datacols[iCol] do if tag>0 then begin oField:=dataset.fields[tag-1]; if (oField.datatype = ftinteger) then begin tmsebufdataset(DataSet).sumfield(oField,nn); fixrows[iRow].captions[iCol].caption:=format(tnumericField(oField).DisplayFormat,[nn]); end else begin tmsebufdataset(DataSet).sumfield(oField,n); fixrows[iRow].captions[iCol].caption:=format(tnumericField(oField).DisplayFormat,[n]); end; end; end; Regards Med ________________________________ De : fredvs <fi...@hotmail.com> Envoyé : mardi 18 mai 2021 13:59 À : mseide-msegui-talk@lists.sourceforge.net <mseide-msegui-talk@lists.sourceforge.net> Objet : Re: [MSEide-MSEgui-talk] BufDataset Hello Med. > In the SRC of msebufdataset.pas there is a function to check that ( > checksumfield) and abort the task. Hum, in msebufdataset.pas I see a "procedure checksumfield" not a "function checksumfield": procedure tmsebufdataset.checksumfield(const afield: tfield; const fieldtypes: fieldtypesty); begin checkbrowsemode; if (afield.fieldno <= 0) or (afield.dataset <> self) or not (ffieldinfos[afield.fieldno-1].base.fieldtype in fieldtypes) then begin raise edatabaseerror.create('Invalid sum field '+'"'+afield.fieldname+'".'); end; end; > Is it possible to change this behavior without changing source file? Sorry but I will need more infos to understand. - What is the goal, do you want the possibility to manage the behavior of "checksumfield", to not only give (or not) a error message? - Do you want that "checksumfield" becomes a function and the result is true or false? - What do you mean with " without changing source file", are you talking about the database file or about the source of the program? Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
_______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk