573 Cannot perform '= (equality)' between Logical and Date

Problem: Getting error "Cannot perform '= (equality)' between Logical and Date."

When running ObjectPAL code
Date: 30 september 2005
You have written an invalid ObjectPAL statement to compare a tcursor column with a constant or a variable, eg

if not tcOrders."Sale date" = today()  then
  doSomething()
endIf

As written Paradox evaluates 'not tcOrders."Sale date"' and gets a True, which is to be compared with a Date.

Correct syntax is

if not (tcOrders."Sale date" = today())  then
  doSomething()
endIf

To index