CREATE SUBRECORD

versión 11 (Modificado)

CREATE SUBRECORD (subtabla)

Nota de compatibilidad: Las subtablas no son soportadas 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.

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.

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)

ADD SUBRECORD, DELETE SUBRECORD, MODIFY SUBRECORD, SAVE RECORD.