Erro em função simples

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
compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

Não é a resposta que estava procurando? Procure outras perguntas com as tags codeanalysis ou faça a sua própria pergunta.