Estou tentando subir uma API para o protheus, porem não sei como resolver o problema de "C2051 LOCAL declaration follows executable statement", na linha que contem "Local lRet := .T.".

trecho:

WSMETHOD GET ConsultarProduto QUERYPARAM numero WSREST Produtos Local lRet := .T. Local aData := {} Local oData := NIL Local oAlias := GetNextAlias() Local cProduto := Self:numero

FwLogMsg("INFO",, "ConsultarProduto", "WSCOM02", "", "01", "Iniciando...")

if Empty(cProduto) Self:SetResponse('{"codigoProduto":"' + cProduto + '", "infoMessage":"", "errorCode":"404", "errorMessage":"Codigo do Produto não informado"}') Return(.F.) EndIF

BeginSQL Alias oAlias SELECT * FROM %Table:SB1% SB1 WHERE SB1.B1_FILIAL = %xFilial:SB1% AND SB1.%NotDel% AND B1_COD = %exp:cProduto% ORDER BY B1_COD EndSQL

dbSelectArea(oAlias) (oAlias)->(dbGoTop())

IF (oAlias)->(!Eof()) oData := JsonObject():New()

oData[ 'codigoProduto' ] := Alltrim((oAlias)->B1_COD) oData[ 'descricao' ] := Alltrim((oAlias)->B1_DESC) oData[ 'tipo' ] := Alltrim((oAlias)->B1_TIPO) oData[ 'unidadeMedida' ] := Alltrim((oAlias)->B1_UM) oData[ 'armazemPadrao' ] := Alltrim((oAlias)->B1_LOCPAD ) oData[ 'codigoNCM' ] := Alltrim((oAlias)->B1_POSIPI )

aAdd(aData,oData)

//Define o retorno do método Self:SetResponse(FwJsonSerialize(aData))

ELSE Self:SetResponse('{"codigoProduto":"'+cProduto+'", "infoMessage":"", "errorMessage":"Codigo do Produto não encontrado"}') lRet := .F. EndIF

FreeObj(oData) (oAlias)->(dbCloseArea())

FwLogMsg("INFO",, "ConsultarProduto", "WSCOM02", "", "01", "FIM...")

Return(lRet)