Bloqueio de registro com RecLock

Framework - Linha Protheus Ferramentas
1

Tenho uma customização REST que atualiza dois campos da tabela SB1

For nItens := 1 to Len( oEntrada[“produtos”] )
If SB1->(DbSeek(fSetField(“B1_FILIAL”, oEntrada[“produtos”][nItens][“filialConf”]) + fSetField(“B1_COD”, oEntrada[“produtos”][nItens][“codigoConf”])))
SB1->(RecLock(‘SB1’,.F.))
SB1->B1_ZINTSOL := ‘1’
SB1->B1_ZDHINT := FWTimeStamp(1)
SB1->(MsUnLock())
EndIf
Next

Após atualizar para a versão 2510, a instrução RecLock fica travada se tiver algum usuário alterando o produto na execução ‘normal’ do Protheus

Alguém já pegou um caso parecido? Como eu poderia testar esse bloqueio antes de dar o Reclock?

2

Não sei se é a melhor forma, mas aqui utilizamos a função rLock().

http://tdn.totvs.com/display/tec/RLock

Dessa forma conseguimos saber se o registro está em edição antes de realizar o recLock.

1 curtida
3

Bom dia Felipe, apliquei aqui e funcionou , muito obrigado!