...
| Portuguese |
|---|
| Pagetitle |
|---|
| RecLock -Comando de alteração em modo exclusivo |
|---|
| RecLock -Comando de alteração em modo exclusivo |
|---|
|
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. |
|
|
