>THISFORM.FilterCondition = THISFORM.FilterCondition +
>' AND BETWEEN(TransDt,{' + TRANSFORM(THISFORM.TransDtBegin) + '},{' + TRANSFORM(THISFORM.TransDtEnd) + '})'
>m.FilterCondition = THISFORM.FilterCondition

It will work if SET STRICTDATE TO 0
If SET STRICTDATE TO 1 or 2 it fails

More precise expression, independendent of this setting
THISFORM.FilterCondition = THISFORM.FilterCondition + ;
' AND BETWEEN(TransDt,{^' + TTOC(THISFORM.TransDtBegin,3) + '},{^' + TTOC(THISFORM.TransDtEnd,3) + '})'