Histórico da Página

Libera o registro criado ou bloqueado pela RecLock.

Exemplo:

Verifica se o registro existe na tabela SA1:

// MsUnlockSample.prw

If !DbSeek(XFilial("SA1") + "000001")

       // Se não existir, insere um registro em branco e o bloqueia

       Reclock("SA1", .T.)

Else

       // Bloqueia o registro encontrado

       Reclock("SA1", .F.)

EndIf

SA1->A1_SALDO := nNovoSaldo

MSUnlock("SA1")

A recomendação é que sejam utilizadas somente as funções RecLock e MsUnlock.