Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Paradox V7.0 german -> Y2K-Bug

0 views
Skip to first unread message

Patrick Feigen

unread,
Jul 3, 2000, 3:00:00 AM7/3/00
to
Hello,

using a PAL-program which I wrote by myself one year ago I found a Y2K
bug of Paradox V7.0 (german):
A query which works very fine with date inputs lower than 31.12.1999,
fails if the input exceeds the date of 1.1.2000. The table _k1.tmp (see
below), which should be generated, remains empty.

Do you know about such a bug? Is there a bug-fix or update available?

I'm very glad for help.

Patrick


PAL code:

method pushButton(var eventInfo Event)
var
dDatumVon Date
dDatumBis Date
dLastDate Date

qAbfrage Query
endvar

; Zeitbereich bestimmen ------------------------------
if formatExist("PCF Datum") then
formatSetDateDefault("PCF Datum") ; ----> defined as: 01.01.1901
(%T.%M.%J)
else
msgStop("Halt", "Gefordertes Datums-Format existiert nicht.")
endIf

dDatumBis = dateVal(Datum.value) ; ----> date as the input
dDatumVon = dateVal("1.1." + string(dDatumBis.year()))
dLastDate = dateVal("31.12." + string(dDatumBis.year() - 1))

delete("_tmpK1.db")
qAbfrage = query

KURSE.DB | WKN | Datum | WhrgId |
| Check | Check >= ~dLastDate, <= ~dDatumBis | Check |

KURSE.DB | Verkauf |
| _kurs, not leer, rechne _kurs als Kurs |

endQuery

qAbfrage.executeQBE("_tmpK1")
endmethod

0 new messages