Pessoal, Boa Tarde.
Tudo bem com vocês?
Fiz uma query para localizar alguns registros, depois fiz um While e queria atualizar um campo mudando o conteúdo dele para os registros encontrados na query, porém gerou o erro conforme o anexo.
Conseguem me ajudar por favor?
Obrigado.
Olá Luiz, você não pode alterar um registro em query, posicione sua tabela ZZ2 e faça a alteração.
//Dentro do seu while
DbSelectArea("ZZ2")
ZZ2->(DBSetOrder(1)) // o índice que você achar melhor
while QRYZZ2->(!EoF())
//adeque o dbseek ao seu indice, fiz um exemplo
if ZZ2->(DbSeek(xFilial("SZ2")+QRYZZ2->ZZ2_NOME))
RecLock("ZZ2", .F.)
ZZ2->ZZ2_STATUS := "2"
ZZ2->(MsUnLock())
endif
QRYZZ2->(DbSkip())
enddoBom Dia,
Funcionou perfeitamente.
Muito Obrigado.
Marca como resposta :)
— Leandro Lemos 20 de Jun de 2023