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
