Exibir origem

import.css=/download/attachments/327912/newLayout.css

Função: RecLock -Comando de alteração em modo exclusivo

Descrição:

Bloqueia registro posicionado na tabela para comandos de alteração em modo exclusivo

Programa Fonte:

APLIB060.PRW

Sintaxe:

RecLock -Comando de alteração em modo exclusivo ( [ cAlias ] [ lAdd ] [ l1 ] [ lSoft ] [ lInJob ] ) --> lRet

Retorno:
lRet

.T. se conseguiu lockar o registro, .F. se deu erro

Exemplos:

Exemplo 01 - Inclusão========================================DbSelectArea("SA1")RecLock("SA1", .T.)	SA1->A1_FILIAL := xFilial("SA1")	SA1->A1_COD := "900001"	SA1->A1_LOJA := "01"MsUnLock() //Confirma e finaliza a operaçãoExemplo 02 - Alteração======================================DbSelectArea("SA1")DbSetOrder(1)DbSeek("01"+"900001"+"01")If Found()	RecLock("SA1", .F.)		SA1->A1_NOME := "CLIENTE TESTE"		SA1->A1_NREDUZ" := "TESTE"	MsUnLock() //Confirma e finaliza a operaçãoEndIf

Parâmetros:

Nome	Tipo	Descrição	Default	Obrigatório	Referência
cAlias	Caracter	Alias da tabela a ser lockada
lAdd	Lógico	Parâmetro que verifica se a instrução a ser executada é uma inclusão.
l1	Lógico	Não utilizado	.F.
lSoft	Lógico	Pergunta para o usuário se deseja lockar novamente o registro	.F.
lInJob	Lógico	Verifica se o comando foi executado via Job	.F.