[DUG]: Flagging invoiced records

[Mark Howard]

Hello   Some assistance from the professionals please.   I'm using D5 Pro and Paradox.   I have a need to flag dockets as invoiced as each invoice is generated in Quick Reports.   What I am doing is as follows: Execute a multitable TQuery to assemble data for all dockets to be invoiced Sort them by Customer Call the QR Customer Invoice report On each change of Customer increment the Invoice No. In the Detail band (ie on every record) write the Invoice No back to the current record, using the following code:         with MainDataModule.DocketsTable do           begin             filter := '(DocketNo = '              + QuotedStr(QueryDataModule.CustRepQ.FieldByName('DocketNo').AsString)              + ') AND(DocketCheck = '              + QuotedStr(QueryDataModule.CustRepQ.FieldByName 'DocketCheck').AsString)              + ')';             Filtered := True;             FindFirst;             Edit;             FieldByName('CustInvFlag').AsInteger := InvNo;             Post;             DBISaveChanges(Handle);           end;   Apparently this is taking 30 minutes to run in aproduction situation.   Is there a better way to do this that will be faster - without getting too complicated.   I understand that I can't use RequestLive on the Query because it involves several tables.   Thanks   Mark