DTPICKER STRANGE ERROR

[Silvio]

IF lNew

... oT:aDat[ 2]:=Date()
ELSE
oT:aDat[ 2]:=(oDPre)->FecDoc

ENDIF


DEFINE DIALOG oDlc RESOURCE "CAW210" FONT oApp:oFont

REDEFINE DTPICKER oT:oDat[ 2] VAR oT:aDat[ 2] ID 102 OF oDlc
ACTIVATE DIALOG oDlc


LET ME THIS ERROR WHY ?

Application
===========
Path and name: C:\work\rivamania\RIVAMANIA.Exe (32 bits)
Size: 3,420,672 bytes
Time from start: 0 hours 0 mins 14 secs
Error occurred at: 11-06-2009, 00:19:42
Error description: Error BASE/1112 Argument error: YEAR
Args:
[ 1] = U

Stack Calls
===========
Called from: => YEAR(0)
Called from: .\source\classes\TDTPICKE.PRG => (b)TDATEPICK:TDATEPICK(0)
Called from: => TDATEPICK:SETDATE(0)
Called from: .\source\classes\TDTPICKE.PRG => TDATEPICK:_CTEXT(0)
Called from: .\source\classes\TDTPICKE.PRG => TDATEPICK:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: .\source\function\HARBOUR.PRG => OSEND(0)
Called from: .\source\function\HARBOUR.PRG => ASEND(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: source\RIV220.prg => NEWPRENOTAZIONE(2035)
Called from: source\RIV220.prg => (b)MENU_AZIONI(793)
Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(0)
Called from: source\RIV220.prg => MENU_AZIONI(807)
Called from: source\RIV220.prg => (b)RIV220(383)
Called from: TSBUTTON.PRG => TSBUTTON:CLICK(822)
Called from: LIB\control.prg => TCONTROL:HANDLEEVENT(1383)
Called from: TSBUTTON.PRG => TSBUTTON:HANDLEEVENT(1320)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: source\RIVAWIN.prg => TAPPLICATION:ACTIVATE(412)
Called from: source\RIVAWIN.prg => MAIN(101)

[Silvio]

sorry I resolve it