4D Doc Center : ADD SUBRECORD

4D v14.3

ADD SUBRECORD


ADD SUBRECORD ( subTabela ; formulario {; *} )

subTabela	Subtabela	Sub-tabela a utilizar para a entrada de dados
formulario	cadeia	Formulário a utilizar para a entrada de dados
*		Ocultar barras de deslocamento

Nota de compatibilidade

A partir da versão 11 de 4D não compatíveis as sub-tabelas. Um mecanismo de segurança garante o funcionamento deste comando em bancos convertidos; entretanto, é recomendado substituir as sub-tabelas com tabelas relacionadas padrão.

Descrição

O comando ADD SUBRECORD permite ao usuário agregar um novo sub-registro a subtabela, utilizando o formulário formulario. ADD SUBRECORD cria um novo sub-registro em memória, transformado-lhe no registro atual e mostra formulario. Deve existir um registro atual para a tabela pai. Se não existir um registro atual para a tabela pai no processo, ADD SUBRECORD não tem efeito. O formulário deve pertencer a subtabela.

O sub-registro se mantém em memória (aceito) se o usuário clicar no botão Aceitar ou pressiona a tecla Enter (teclado numérico) ou se for executado o comando ACCEPT. Depois de adicionar o sub-registro, o registro pai deve ser guardada para que o sub-registro seja guardado.

O sub-registro não é guardado se o usuário clicar no botão de anulação Esc ou se é executado o comando CANCEL.

Depois de chamar a ADD SUBRECORD, OK toma o valor 1 se aceitar o sub-registro e 0 se for cancelado.

O formulário aparece na janela do primeiro plano do processo. A janela tem barras de rolagem e uma caixa de controle do tamanho. Se passar o parâmetro opcional * a janela aparece sem as barras de rolagem e sem a caixa de controle de tamanho.

Exemplo

O seguinte exemplo é parte de um método. Este código adiciona um sub-registro para um novo filho no registro de um empregado. Os dados dos filhos são armazenados em uma sub-tabela chamada [Empregados]Filhos. Note que o registro da tabela [Empregados] deve ser guardado para que se guarde o novo sub-registro:

 ADD SUBRECORD([Empregados]Filhos;"Adicionar filho")

 If(OK=1) ` Se o usuário aceita o sub-registro

    SAVE RECORD([Empregados]) ` guardar o registro do empregado

 End if

Variáveis e conjuntos do sistema

A variável sistema OK toma o valor 1 se aceitar o registro e 0 se o cancelar.