eu uso assim sem problemas com sqllib ou sqlrdd
cCmdsql := 'INSERT high_priority INTO ficha_proced (dataatend) values('+dtoce(DATE(),'AAAA-MM-DD')+')'
function DToCE( dData, cMascara )
LOCAL cData
DEFAULT cMascara:='DD/MM/AAAA'
SET cent ON
cData:=dtoc( dData )
cData:=iif( cMascara='DD/MM/AAAA', cData, SoNumeros( cData ) )
if cMascara='AAAAMMDD'
cData:=substr( cData, 5, 4 )+substr( cData, 3, 2 )+substr( cData, 1, 2 )
elseif cMascara='AAAA/MM/DD'
cData:=substr( cData, 5, 4 )+'/'+substr( cData, 3, 2 )+'/'+substr( cData, 1, 2 )
elseif cMascara=='DDMMAA'
cData:=substr( cData, 1, 4 )+substr( cData, 7, 2 )
elseif cMascara=='DDMMAAAA'
cData:=substr( cData, 1, 8 )
elseif cMascara='AAAA-MM-DD'
cData:=SoNumeros( cData )
cData:=substr( cData, 5, 4 )+'-'+substr( cData, 3, 2 )+'-'+substr( cData, 1, 2 )
endif
if substr(cData,1,1)='0' .AND. substr(cMascara,1,4)='AAAA'
cData:=substr(cData,2,3)+substr(cData,1,1)+substr(cData,5,4)
endif
cData:=padl( cData, len(cMascara) )
return cData