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


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


Abrangências:Microsiga Protheus 8.11 , Protheus 10
Versões:Microsiga Protheus 8.11 , Protheus 10
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Espanhol , Inglês


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
    (logico)
  • .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.