Recent changes to bugs

Resources GONE on application load

Anonymous — Sun, 15 Apr 2007 13:35:58 -0000

OH NO! Something rather suprising about this excellent component suite: all your data is LOST when you load the application.

I am running Delphi 2006 and when I close my application and physically check the table I see the resource is still there, but when I start the program again it is gone!

Please help!

field ResourceID not found

John Beemsterboer — Wed, 28 Sep 2005 14:18:17 -0000

I have tables where I changed the fieldnames
Resource.ResourceID is Gebruiker.ID
Event.ResourceID is Behandeling.GebruikerID

Behandeling.GebruikerID has a foreign key relation with
Gebruiker.ID

I use TVpFlexDataStore with Mappings

in the procedure TVpFlexDataStore.PostEvents:

original :
FN := GetFieldName(FEventMappings, 'ResourceID');

my version (and I think it's the right one):
FN := GetFieldName(FResourceMappings, 'ResourceID');

JohnBe from Holland

Event drawn incorrectly

Anonymous — Thu, 09 Jun 2005 14:42:08 -0000

When you hav an event that lasts over two or more days,
the event is incorrectly drawn in the dayview.
For instance, if you insert an event that starts Jan 1
2005 at 14:00 and ends Jan 2 at 09:00 with no
recurrence. This event will only show at Jan 1 as an
event that starts at 9:00 and ends at 14:00.

Appointment - reccurence - not visible

Anonymous — Mon, 18 Apr 2005 12:35:45 -0000

Hi,
First sorry for my barbare english.
I have identified an error in the Dayview Module.
When creating an appointment with a reccurence that is
beginning (For example) the March 1st 2005, and is
repeated every week (Weekly).
Then i create a "normal" appointment for the March 8th
2005, this entry is not visible in the dayview, but the
reccurent appointment is visible.

Thanks for assistance...

20 bugs (and here's the fixes)

Anonymous — Wed, 23 Mar 2005 19:56:31 -0000

I've just finished work on the latest version of eyebol, my
source code analyzer (www.pascalanalyzer.com). As a
way of testing it (and a shameless way of plugging it) I
run it on my favorite open source programs and publish
any bugs it finds. Here's 20 occurrences of a common
mistake it found in Visual PlanIt.

Can you spot what's wrong with this line ?

DayStr:=FormatDateTime('hh:mm AM/PM',Now);

There are 20 places in PlanIt where this sort of mistake
is made. Know what's wrong with it yet ?

The mm in a FormatDateTime signifies month, not
minute even though it is very natural to type h:mm. The
letter n signifies minute so it should read h:nn. The files
in happens in are : VpClock.pas, VpEventRpt.pas,
VpEvntEditDlg, VpMonthView.pas and VpWeekView.pas

A quick search for 'h:mm' and replacing it with 'h:nn'
would fix it. Or you could purchase eyebol
(www.pascalanalyzer.com) and it will automatically
apply all the changes for you :)

Thanks
Michael

Resource field mapping of 'Active'

George Kruzyk — Sun, 11 Apr 2004 03:05:12 -0000

There appear to be inconsistencies in the name of the
field 'Active' vs 'ResourceActive' in the unit 'VpFlxDS'.
Corrected by replacing line 432:
FN := GetFieldName(FResourceMappings, 'Active');
with:
FN := GetFieldName
(FResourceMappings, 'ResourceActive');

Fix for the AV using F2

Brian Andersen — Tue, 16 Dec 2003 08:52:41 -0000

Sorre for my long post before but I new in using
Sourceforge. See the attatched file for my changes.

/Brian

GetNewID on TVpCustomDBDataStore.LoadContacts

Anonymous — Tue, 30 Sep 2003 13:30:07 -0000

I cannot understand why you use GetNewID (just like if
you were creating a new record in the table when you'r
just loading the data in memory to display them) when
you load contacts, tasks or events on changing the
ressource in the combobox.
This results in a incontrolable growing of the IDs in the
IDTable and in a unbearable slow loading of contacts
when you begin to have lot of records in the table.

I have replaced the following code :
procedure TVpCustomDBDataStore.LoadContacts;
var
Contact: TVpContact;
begin
if (Resource <> nil) then
with ContactsTable do begin
SetFilterCriteria(ContactsTable, False,
ResourceTable.FieldByName
('ResourceID').AsInteger,
0, 0);
First;
while not EOF do begin
Contact := Resource.Contacts.AddContact
(GetNextID(ContactsTableName));

by this one :

procedure TVpCustomDBDataStore.LoadContacts;
var
Contact: TVpContact;
begin
if (Resource <> nil) then
with ContactsTable do begin
SetFilterCriteria(ContactsTable, False,
ResourceTable.FieldByName
('ResourceID').AsInteger,
0, 0);
First;
while not EOF do begin
Contact := Resource.Contacts.AddContact
(FieldByName('RecordID').AsInteger);

Now everything is working well and quick :).
Tell me if i have done something wrong

TVpContacts.FindContactByName

Roberto Chostakovis — Wed, 21 May 2003 16:33:33 -0000

function TVpContacts.FindContactByName does not
consider the value of SortBy property for search
contacts in ContactGrid, It always make a search in
LastName.

Below, the correct code:

function TVpContacts.FindContactByName(const Name:
string;
CaseInsensitive: Boolean): TVpContact;
var
I: Integer;
SearchStr: String;
SearchLength: Integer;
SrcStr: String;
begin
Result := nil;

{ to enhance performance, uppercase the input name }
{ and get its length only once }
if CaseInsensitive then
SearchStr := uppercase(Name)
else
SearchStr := Name;
SearchLength := Length(SearchStr);

{ Iterate the contacts looking for a match }
for I := 0 to FContactsList.Count - 1 do begin
// --------->>
if FContactSort = csFirstLast then
SrcStr := TVpContact(FContactsList.List^
[I]).FirstName
else
SrcStr := TVpContact(FContactsList.List^
[I]).LastName;
//-------------->>
if CaseInsensitive then begin
{ not case sensitive }
//-------------->>
if UpperCase(Copy(SrcStr, 1, SearchLength)) =
SearchStr then begin
//-------------->>
{ we found a match, so return it and bail out }
Result := FContactsList.Items[I];
Exit;
end;
end else begin
{ case sensitive }
//-------------->>
if Copy(SrcStr, 1, SearchLength) = SearchStr then
begin
//-------------->>
{ we found a match, so return it and bail out }
Result := FContactsList.Items[I];
Exit;
end;
end;
end;
end;

TVpFF2DataStore.SetFilterCriteria is not working

Roberto Chostakovis — Tue, 20 May 2003 03:31:57 -0000

When an recurrence event is out of date range ( date +-
daybuffer) , event is not load.