lcSetDate=Set([date])
lcSetMark=Set([mark])
SET DATE  TO  YMD
SET MARK TO "-"

lcSQL=[SELECT Numero FROM News WHERE Year={d '] + Alltrim(Dtoc(vuData)) + ['}]

Set Date To (lcSetDate)
Set Mark To (lcSetMark)