Luis,
Existem alguns erros de sintaxe no fonte, abaixo algumas correções:
- Linha 337, falta fechar um parênteses:
AADD(aBrowse,FwSX2Util():GetSX2data(X2_CHAVE, {"X2_CHAVE","X2_ARQUIVO","X2_NOME" })) // Retorna apenas o valor do campo informado
- Linha 273, faltam vírgulas para separar os parâmetros:
cDesc := AllTrim(StrTran(GetSx3Cache(aStruct[i,1],"X3_DESCRIC"), ";", " "))
cDesc := AllTrim(StrTran(GetSx3Cache(aStruct[i,1],"X3_DESCRIC"), ".", " "))
cDesc := AllTrim(StrTran(GetSx3Cache(aStruct[i,1],"X3_DESCRIC"), ",", " "))
- Função
fExecutar
, precisa declarar a variável i
como local
para o for:
Static Function fExecutar(cQry)
local i as numeric
- Linha 111, Tem um bloco de código com a função
fAbrir
que você passa um parâmetro e essa função não recebe parâmetros, isso não gera erros, é apenas um warning:
oSBtn7:bLClicked := {|| fAbrir() }
Obs.: Não sei se o fonte foi salvo no encode incorreto ou no momento de anexar ele foi convertido, mas diversos caracteres apareceram incorretos aqui para mim.
Luis, poderia colocar o fonte para verificarmos onde é o possível erro? Quando o parser do fonte falha, ocorre muitas vezes dele demonstrar o erro na linha errada.
— Daniel Mendes 21 de Oct de 2020Segue o fonte e obrigado pela ajuda!
— Luis Dantas 21 de Oct de 2020Aproveitando, pergunto "totvs.ch" não é redundante com "protheus.ch"?
— Marcos Bispo Abrahão 21 de Oct de 2020Fonte antigo, mas quando tiro acontece o mesmo erro na linha seguinte...
— Luis Dantas 21 de Oct de 2020Luis, o fonte não apareceu
— Daniel Mendes 21 de Oct de 2020Funcionou agora? Consigo anexar ou tenho que colar nos comentarios?
— Luis Dantas 21 de Oct de 2020Consegue anexar sim, edite sua pergunta e coloque o anexo.
— Daniel Mendes 21 de Oct de 2020