Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...


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:


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
NomeTipoDescriçãoDefaultObrigatórioReferência
cAliasCaracterAlias da tabela a ser lockada


lAddLógicoParâmetro que verifica se a instrução a ser executada é uma inclusão.


l1LógicoNão utilizado.F.

lSoftLógicoPergunta para o usuário se deseja lockar novamente o registro.F.

lInJobLógicoVerifica se o comando foi executado via Job.F.