Estou com um erro em um função simples, mas não sei o que pode ser.

Vocês já viram esse erro:

mismatched input 'sRetorno' expecting {, ';', CRLF}

#INCLUDE "protheus.ch"
user function getTurno(mat, filial, cDia)
    default cDia = dToS(Date())
    Local sRetorno := '0'

    QRY := GetNextAlias()

    BeginSQL Alias QRY
        select pf_turnopa turno, pf_sequepa seq 
        from %table:spf%  spf
        where pf_mat = %exp:mat% and pf_filial = %exp:filial% and spf.%notdel%
            and pf_data <= %exp:cDia%
        order by pf_data desc
    endSql

    dbGoTop() 

    sRetorno := '0'
    If !(QRY)->(Eof())
        sRetorno := QRY->TURNO
    Endif

    (QRY)->(dbclosearea())
Return sRetorno