4D Doc Center : CREATE SUBRECORD

4D v13.4

CREATE SUBRECORD


CREATE SUBRECORD ( subtabla )

Parámetro	Tipo	Descripción
subtabla	Subtabla	Subtabla en la cual crear un nuevo subregistro

Nota de compatibilidad

Las subtablas no se soportan a partir de la versión 11 de 4D. Un mecanismo de compatibilidad asegura el funcionamiento de este comando en bases compartidas; sin embargo, es recomendable remplazar las subtablas con tablas relacionadas estándar.

Descripción

CREATE SUBRECORD crea un nuevo subregistro en subtabla y lo convierte en el subregistro actual. El nuevo subregistro se guarda únicamente cuando el registro padre se guarda. El registro padre puede guardarse con un comando como SAVE RECORD o cuando el usuario valida el registro. Si no hay registro actual, CREATE SUBRECORD no tiene efecto. Para añadir un nuevo subregistro en un formulario de entrada de subregistros, utilice ADD SUBRECORD.

Ejemplo

El siguiente ejemplo es un método de objeto para un botón. Cuando se ejecuta (cuando el usuario hace clic en el botón), crea nuevos subregistros para niños en la tabla [Personas]. El bucle Repeat permite al usuario añadir niños hasta que se haga clic en el botón Cancelar. El formulario muestra los niños en un subformulario, pero no permite la entrada directa de datos porque la opción Editable no se ha desactivado:

 Repeat

  ` Se repite hasta que el usuario haga clic en cancelar

    vNiño:=Request("Nombre (cancelar si termina):")

  `Si el usuario hace clic en Aceptar

    If(OK=1)

  ` Adición de un nuevo subregistro para un niño

       CREATE SUBRECORD([Personas]Niños)

  ` Asignación del nombre del niño al subcampo

       [Personas]NombreNiño:=vNiño

    End if

 Until(OK=0)