import.css=/download/attachments/327912/newLayout.css |
Bloqueia registro posicionado na tabela para comandos de alteração em modo exclusivoPrograma Fonte: APLIB060.PRWSintaxe: RecLock -Comando de alteração em modo exclusivo ( [ cAlias ] [ lAdd ] [ l1 ] [ lSoft ] [ lInJob ] ) --> lRet Retorno:lRet
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çãoEndIfParâmetros:
|