4D v13.4
ADD RECORD
ADD RECORD
| ADD RECORD ( {tabela}{;}{*} ) | ||||||||
| tabela | Tabela |
|
Tabela a utilizar para entrada de dados ou Tabela por padrão, se omitida | |||||
| * |
|
Ocultar barras de deslocamento | ||||||
O comando ADD RECORD permite ao usuário adicionar um novo registro na tabela tabela ou na tabela por padrão, se omitir o parâmetro tabela.
ADD RECORD cria um novo registro, e faz com que o novo registro se transforme no registro atual para o processo atual e mostra o formulário de entrada atual. No ambiente Menus personalizados, depois de que o usuário aceita o novo registro, o novo registro é o único registro na seleção atual.
A seguinte imagem representa um formulário de entrada de dados típico.
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.
ADD RECORD mostra o formulário até que o usuário aceita ou cancela o registro. Se o usuário está adicionando vários registros, o comando deve ser executado uma vez para cada registro.
O registro é guardado (aceito) se o usuário clicar no botão Aceitar ou ao pressionar a tecla Intro (teclado numérico), ou se o comando ACCEPT é executado.
O registro não é guardado (cancelado) se o usuário clicar no botão Cancelar ou ao pressionar a tecla de anulação Esc ou se é executada o comando CANCEL.
Depois de chamar a ADD RECORD, OK toma o valor 1 se é aceitado o registro e 0 se é cancelado.
Nota: o registro permanece em memória, inclusive quando é cancelado, e pode ser guardado se é executado SAVE RECORD antes de que mude o ponteiro do registro atual.
O seguinte exemplo é um loop utilizado geralmente para adicionar novos registros a um banco:
FORM SET INPUT([Clientes];"Entrada") ` Designar o formulário de entrada da tabela [Clientes]
Repeat ` Loop até que o usuário cancele
ADD RECORD([Clientes];*) ` Adicionar um registro a tabela [Clientes]
Until(OK=0) ` Até que o usuário canceleO seguinte exemplo procura um cliente no banco. Dependendo dos resultados da busca, acontecerá uma destas coisas. Se não se encontrar um cliente, então é permitido ao usuário adicionar um novo cliente com ADD RECORD. Se encontrar ao menos um cliente, se lhe apresenta ao usuário o primeiro registro encontrado, o qual pode ser modificada com MODIFY RECORD:
READ WRITE([Clientes])
FORM SET INPUT([Clientes];"Entrada") ` Decidir o formulario de entrada
vlCustNum:=Num(Request("Introduzir um número de cliente:")) ` Obter o número de cliente
If(OK=1)
QUERY([Clientes];[Clientes]CustNo=vlCustNum) ` Procurar o cliente
If(Records in selection([Clientes])=0) ` se não se encontra nenhum cliente…
ADD RECORD([Clientes]) ` Adicionar um novo registro
Else
If(Not(Locked([Clientes])))
MODIFY RECORD([Clientes]) ` Modificar o registro
UNLOAD RECORD([Clientes])
Else
ALERT("O registro está sendo utilizado atualmente.")
End if
End if
End ifA variável sistema OK toma o valor 1 se aceitar o registro e 0 se o cancelar. A variável OK não toma nenhum valor até que o registro tenha sido confirmado ou anulado.
Produto: 4D
Tema: Entrada de Dados
Número
56
Criado por: < 4D v6
ACCEPT
CANCEL
CREATE RECORD
MODIFY RECORD
SAVE RECORD
