RECEIVE RECORD

4D v16.3

RECEIVE RECORD


RECEIVE RECORD {( tabla )}

Parámetro	Tipo	Descripción
tabla	Tabla	Tabla en la cual recibir el registro o Tabla por defecto, si se omite

Descripción

RECEIVE RECORD recibe un registro en tabla del puerto serial o de un documento abierto por el comando SET CHANNEL. El registro debe haber sido envíado con SEND RECORD. Cuando ejecuta RECEIVE RECORD, se crea automáticamente un nuevo registro en tabla. Si el registro se recibe correctamente, entonces debe utilizar SAVE RECORD para guardar el nuevo registro.

Se recibe el registro completo. Esto significa que también se reciben todos los subregistros, imágenes y BLOBs almacenados en el registro.

Importante: cuando los registros se envía y reciben utilizando SEND RECORD y RECEIVE RECORD, la estructura de la tabla fuente y la estructura de la tabla de destino deben ser compatibles. Si no lo son, 4D convertirá los valores de acuerdo a las definiciones de las tablas cuando se ejecute RECEIVE RECORD.

Notas:

Si recibe un registro de un documento utilizando este comando, el documento debe haber sido abierto utilizando el comando SET CHANNEL. No puede utilizar RECEIVE RECORD con un documento abierto con Open document, Append document o Create document.
Durante la ejecución de RECEIVE RECORD, el usuario puede interrumpir la recepción presionando Ctrl-Alt-Mayús (Windows) o Comando-Opción-Mayús (Macintosh). Esta interrupción genera un error -9994 que puede interceptar con el método instalado por el comando ON ERR CALL. Generalmente, sólo debe manejar la interrupción de una recepción durante una comunicación sobre puerto serial.

Ejemplo

El uso combinado de SEND VARIABLE, SEND RECORD, RECEIVE VARIABLE y RECEIVE RECORD es ideal para archivar datos o intercambiar datos entre bases monopuesto idénticas utilizada en diferentes lugares. Puede intercambiar datos entre bases 4D utilizando los comandos de importación/exportación como EXPORT TEXT y IMPORT TEXT. Sin embargo, si sus datos contienen imágenes o tablas relacionadas, utilizar SEND RECORD y RECEIVE RECORD es mucho más conveniente.

Por ejemplo, la documentación que está leyendo ha sido creada utilizando 4D y 4D Write. Como varios escritores en diferentes lugares del mundo estaban trabajando en este proyecto, necesitábamos una forma simple de intercambiar datos entre las diferentes bases de datos. Esta es una vista simplificada de la estructura de la base:

La tabla [Commands] contiene la descripción de cada comando o sección. Las tablas [CM US Params] y [CM FR Params] contienen respectivamente los parámetros de cada comandos en Inglés y Francés. La tabla [CM See also] contiene los comandos indicados como referencias para cada comando o sección. El intercambio de la documentación entre las bases consiste en enviar los registros de [Commands] así como sus registros relacionados. Para hacerlo, utilizamos SEND RECORD y RECEIVE RECORD. Adicionalmente, utilizamos SEND VARIABLE y RECEIVE VARIABLE para marcar los documentos de importación/exportación con etiquetas.

Este es el método de proyecto (simplificado) para exportar la documentación:

  ` Método de proyecto CM_EXPORT_SEL

  ` Este método funciona con la selección actual de la tabla [Commands]

 

 SET CHANNEL(12;"") ` Permitimos al usuario crear y abrir un documento channel

 If(OK=1)

  ` Marcamos el documento con un variable que indique su contenido

  ` Nota: la variable de proceso BUILD_LANG indica si los datos US (Inglés) o FR (Francés) son enviados

    $vsTag:="4DV6COMMAND"+BUILD_LANG

    SEND VARIABLE($vsTag)

  ` Enviar una variable indicando cuántos [Commands] son enviados

    $vlNbCmd:=Records in selection([Commands])

    SEND VARIABLE($vlNbCmd)

    FIRST RECORD([Commands])

  ` Para cada comando

    For($vlCmd;1;$vlNbCmd)

  ` Enviar el registro [Commands]

       SEND RECORD([Comands])

  ` Selección de todos los registros seleccionados

       RELATE MANY([Commands])

  ` Dependiendo del lenguaje, enviar una variable indicando

  ` el número de parámetros que sigue

       Case of

          :(BUILD_LANG="US")

             $vlNbParm:=Records in selection([CM US Params])

          :(BUILD_LANG="FR")

             $vlNbParm:=Records in selection([CM FR Params])

       End case

       SEND VARIABLE($vlNbParm)

  ` Enviar los registros de los parámetros (si hay)

       For($vlParm;1;$vlNbParm)

          Case of

             :(BUILD_LANG="US")

                SEND RECORD([CM US Params])

                NEXT RECORD([CM US Params])

             :(BUILD_LANG="FR")

                SEND RECORD([CM FR Params])

                NEXT RECORD([CM FR Params])

          End case

       End for

  ` Enviar una variable indicando cuántos “See Also” siguen

       $vlNbSee:=Records in selection([CM See Also])

       SEND VARIABLE($vlNbSee)

  ` Enviar los registros [See Also] (si hay)

       For($vlSee;1;$vlNbSee)

          SEND RECORD([CM See Also])

          NEXT RECORD([CM See Also])

       End for

  ` Ir al siguiente registro [Commands] y continuar la exportación

       NEXT RECORD([Commands])

    End for

    SET CHANNEL(11) ` Cerrar el documento

 End if

Este es el método de proyecto (simplificado) de importación de la documentación:

  ` Método de proyecto CM_IMPORT_SEL

 

 SET CHANNEL(10;"") ` Permitimos al usuario abrir un documento existente

 If(OK=1) ` Si un documento estaba abierto

    RECEIVE VARIABLE($vsTag) ` Tratamos de recibir la variable marcada esperada

    If($vsTag="4DV6COMMAND@") ` ¿Recibimos la etiqueta correcta?

       $CurLang:=Substring($vsTag;Length($vsTag)-1) ` Extraemos el lenguaje de la etiqueta

       If(($CurLang="US")&NBSP;|&NBSP;($CurLang="FR")) ` ¿Recibimos un lenguaje válido

          RECEIVE VARIABLE($vlNbCmd) ` ¿Cuántos comandos hay en este documento?

          If($vlNbCmd>0) ` Si hay al menos uno

             For($vlCmd;1;$vlNbCmd) ` Para cada registro [Commands] archivado

  ` Recepción del registro

                RECEIVE RECORD([Commands])

  ` Llamar una subrutina que guarde el nuevo registro o copie sus valores

  ` en un registro existente

                CM_IMP_CMD($CurLang)

  ` Recibir el número de parámetros (si hay)

                RECEIVE VARIABLE($vlNbParm)

                If($vlNbParm>=0)

  ` Llamar una subrutina que llama RECEIVE RECORD luego guarda los nuevos registros

  ` o los copia en registros existentes

                   CM_IMP_PARM($vlNbParm;$CurLang)

                End if

  ` Recepción dle número de “See Also” (si hay)

                RECEIVE VARIABLE($vlNbSee)

                If($vlNbSee>0)

  ` Llamar una subrutina que llame RECEIVE RECORD luego guarde los nuevos registros

  ` o los copies en registros existentes

                   CM_IMP_SEEA($vlNbSee;$CurLang)

                End if

             End for

          Else

             ALERT("El número de comandos en este documento de exportación es inválido.")

          End if

       Else

          ALERT("El lenguaje de este documento de exportación es desconocido.")

       End if

    Else

       ALERT("Este documento NO es un documento de exportación de comandos.")

    End if

    SET CHANNEL(11) ` Cerrar documento

 End if

Note que no probamos la variable OK mientras recibimos los datos ni tratamos de interceptar los eventuales errores. Sin embargo, como almacenamos variables en el documento que describe el documento en sí mismo, si estas variables, una vez recibidas, tienen sentido, la probabilidad de error es muy baja. Si por ejemplo un usuario abre mal un documento, la primera prueba detiene la operación de inmediato.

Variables y conjuntos del sistema

La variable sistema OK toma el valor 1 si se recibe el registro. De lo contrario, toma el valor 0.

Ver también

RECEIVE VARIABLE
SEND RECORD
SEND VARIABLE