4D Doc Center : CREATE RECORD

4D v13.4

CREATE RECORD


CREATE RECORD {( tabela )}

Parâmetro	Tipo	Descrição
tabela	Tabela	Tabela para a qual criar um novo registro, ou tabela Padrão, se omitido

Descrição

CREATE RECORD cria um novo registro vazio para tabela, mas não mostra o novo registro. Utilize o comando ADD RECORD para criar um novo registro e mostra-lo em um formulário de entrada.

CREATE RECORD é utilizado ao invés de ADD RECORD quando os valores dos registros são introduzidos por programação. O novo registro é convertido no registro atual para a seleção atual mas a seleção atual não se modifica.

O registro existe em memória unicamente até que um comando SAVE RECORD é executado para a tabela. Se muda o registro atual (por exemplo, por uma pesquisa) antes de guardar o registro, o novo registro se perde.

Exemplo

O seguinte exemplo arquiva os registros que tem mais de 30 dias. Esta operação se realiza para a criação de registros em uma tabela de arquivo. Uma vez terminada a operação, os registros arquivados são eliminados da tabela [Contas]:

  ` Pesquisa de registros de mais de 30 dias

 QUERY([Contas];[Contas]Introduzido<(Current date 30))

 For($vlRegistro;1;Records in selection([Contas])) ` Loop uma vez por registro

    CREATE RECORD([Arquivo]) ` Criação de um novo registro de arquivo

    [Archive]Number:=[Contas]Número ` Cópia dos campos no arquivo

    [Archive]Entered:=[Contas]Introduzido

    [Archive]Amount:=[Contas]Quantidade

    SAVE RECORD([Contas]) ` Guardar o registro do arquivo

    NEXT RECORD([Contas]) ` Mover o registro de conta seguinte

 End for

 DELETE SELECTION([Contas]) ` Apagar os registros de conta