Get locked records info

4D v15


Get locked records info ( aTabela ) -> Resultado

Parâmetro	Tipo	Descrição
aTabela	Tabela	Tabela para a qual você quer conhecer os registros bloqueados
Resultado	Objeto	Descrição dos registros bloqueados (se existirem)

Descrição

Originally introduced in 4D v14 R3

Tema: Bloqueio de Registros

O novo comando Get locked records info devolve um objeto que contém diferente informação sobre os registros bloqueados atualmente em aTabela.

O objeto devolvido contém uma propriedade "registros", que é um array de objetos:

{
    "records": [
        objeto descrição,
        (…)
    ]
}

Cada elemento do array "description object" identifica um registro bloqueado na tabela especificada e contém as seguintes propriedades:

Propriedade	Tipo	Descrição
contextID	UUID (Cadeia)	UUID do contexto da base responsável do bloqueio
contextAttributes	Objeto	Objeto que contém a mesma informação que o comando LOCKED BY aplicado ao registro, a diferença é que Get locked records info devolve o nome de usuário definido no sistema e não o do usuário 4D (ver mais a frente).
recordNumber	Inteiro longo	Número de registro do registro bloqueado

Nota: para mais claridade, o comando LOCKED ATTRIBUTES foi renomeado LOCKED BY a partir de 4D v14 R3.

O objeto contextAttributes se compõe das seguintes propriedades:

task_id: número de referência do processo
user_name: nome do usuário definido no sistema operativo
user4d_id: número de usuário 4D
host_name: nome da máquina local
task_name: nome do processo
client_version: versão da aplicação cliente

Nota: pode obter o nome de usuário 4D a partir do valor de user4d_id utilizando o seguinte código:

 GET USER LIST($arrNames;$arrIDs)

 $4DUserName:=Find in array($arrIDs;user4d_id)

Nota: o comando funciona unicamente com 4D e 4D Server. Sempre devolve um objeto não válido quando é chamado desde um 4D remoto ou um recipiente. No entanto, pode ser chamado nestes contextos, se for ativada a opção "Executar no servidor". Neste caso, o objeto devolvido conterá, respectivamente, a informação sobre o servidor ou a base local.

Exemplo

Execute o seguinte código:

$vOlocked :=Get locked records info([Table])

Se dois registros estão bloqueados na tabela [Table], o seguinte objeto se devolve em $vOlocked:

{
    "records": [
        {
            "contextID": "A9BB84C0E57349E089FA44E04C0F2F25",
            "contextAttributes": {
                "task_id": 8, (*)
                "user_name": "roland", (*)
                "user4d_id": 1,
                "host_name": "iMac de roland",
                "task_name": "P_RandomLock",
                "client_version": -1342106592
            },
            "recordNumber": 1
        },
        {
            "contextID": "8916338D1B8A4D86B857D92F593CCAC3",
            "contextAttributes": {
                "task_id": 9,
                "user_name": "roland",
                "user4d_id": 1,
                "host_name": "iMac de roland",
                "task_name": "P_RandomLock",
                "client_version": -1342106592
            },
            "recordNumber": 2
        }
    ]
}

Se o código é executado em um 4D Server e o bloqueio é causado por uma máquina cliente remota, o seguinte objeto é devolvido em $vOlocked:

{
    "records": [
        {
            "contextID": "B0EC087DC2FA704496C0EA15DC011D1C",
            "contextAttributes": {
                "task_id": 2,
                "user_name": "achim",
                "user4d_id": 1,
                "host_name": "achim-pcwin",
                "task_name": "P_RandomLock",
                "is_remote_context": true,
                "client_uid": "0696E66F6CD731468E6XXX581A87554A",
                "client_version": -268364752
            },
            "recordNumber": 1
        }
    ]
}