pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Re-activate date filtering in the SetFilterCriteria method of TVpCustomDatastore.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5033 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-26 09:01:18 +00:00
parent ad7008273e
commit 3ea2ac3304
1 changed files with 19 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
components/tvplanit/source/vpdbds.pas
View File

@ -1942,36 +1942,21 @@ begin
end;
{=====}
{ NOTE: Depending on the syntax dialect used by the dataset components an
'EDatabaseError' may be raised here with message: "Index based on unknown field '>='."
In this case add an event handler for OnSetFilterCriteria or override the
SetFilterCriteria method. TBufDataset, TSQLQuery and TDbf, for example,
require this syntax for date checking:
Format(' ... (DTOS(StartTime) >= %s) ...', [
FormatDateTime('yyyymmdd') ...])
}
procedure TVpCustomDBDataStore.SetFilterCriteria(aTable: TDataset;
aUseDateTime: Boolean; aResourceID: Integer; aStartDateTime, aEndDateTime: TDateTime);
begin
// error here: "... raised an exception class 'EDatabaseError' with message:
// Index based on unknown field '>='.".
// Could it be that it does not recognise StartTime and EndTime
// (because they are not mapped?)
// however StartTime + EndTime are only found in events not tasks
{ if aUseDateTime then
aTable.Filter := Format('ResourceID = %d '
+ 'and (( (StartTime >= %s) and (EndTime <= %s) ) '
+ ' or ( (RepeatCode > 0) and (%s <= RepeatRangeEnd) ))',
[aResourceID,
QuotedStr(FormatDateTime('c', aStartDateTime)),
QuotedStr(FormatDateTime('c', aEndDateTime)),
QuotedStr(FormatDateTime('c', aStartDateTime))])
else
}
aTable.Filter := Format('ResourceID = %d', [aResourceID]);
aTable.Filtered := true;
end;
(*
procedure TVpCustomDBDataStore.SetFilterCriteria(aTable : TDataset;
aUseDateTime : Boolean; aResourceID : Integer; aStartDateTime : TDateTime;
aEndDateTime : TDateTime);
var
filter: String;
begin
if aUseDateTime then
{$IFDEF DELPHI}
filter := Format('ResourceID = %d '
+ 'and ( ( (StartTime >= %s) and (EndTime <= %s) ) '
+ ' or ( (RepeatCode > 0) and (%s <= RepeatRangeEnd) ) )',
@ -1979,11 +1964,20 @@ begin
QuotedStr(FormatDateTime('c', aStartDateTime)),
QuotedStr(FormatDateTime('c', aEndDateTime)),
QuotedStr(FormatDateTime('c', aStartDateTime))])
{$ELSE}
filter := Format('ResourceID = %d '
+ 'and ( ( (DTOS(StartTime) >= %s) and (DTOS(EndTime) <= %s) ) '
+ ' or ( (RepeatCode > 0) and (%s <= DTOS(RepeatRangeEnd)) ) )',
[aResourceID,
QuotedStr(FormatDateTime('yyyymmdd', aStartDateTime)),
QuotedStr(FormatDateTime('yyyymmdd', aEndDateTime)),
QuotedStr(FormatDateTime('yyyymmdd', aStartDateTime))])
{$ENDIF}
else
filter := Format('ResourceID = %d', [aResourceID]);
aTable.Filter := filter;
aTable.Filtered := true;
end; *)
end;
{=====}
end.