4D Doc Center : RECEIVE RECORD

4D v14.3

RECEIVE RECORD


RECEIVE RECORD {( tabela )}

Parâmetro	Tipo	Descrição
tabela	Tabela	Tabela na qual receber o registro, ou tabela padrão, se omitido

Descrição

RECEIVE RECORD recebe um registro na tabela a partir da porta serial ou documento aberto pelo comando SET CHANNEL. O registro deve ter sido enviado com SEND RECORD. Quando você executa RECEIVE RECORD, um novo registro é criado automaticamente para a tabela. Se o registro for recebido corretamente, você deve então usar SAVE RECORD para gravar o novo registro.

O registro completo é recebido. Isso significa que imagens e armazenados em BLOBs ou com o registro também são recebidos.

Importante: Quando os registros estão sendo enviados e recebidos através de SEND RECORD e RECEIVE RECORD, a estrutura da tabela de origem e a estrutura da tabela de destino devem ser compatíveis. Se não forem, 4D irá converter valores de acordo com as definições de tabela quando RECEIVE RECORD for executado.

Notas:

Se você receber um registro de um documento utilizando este comando, o documento deve ter sido aberto usando o comando SET CHANNEL. Você não pode usar RECEIVE RECORD com um documento aberto com Open document, Append document ou Create document.
Durante a execução de RECEIVE RECORD, o usuário pode interromper a recepção pressionando Ctrl-Alt-Shift (Windows) ou Command + Option + Shift (Macintosh). Esta interrupção gera um erro -9994, que você pode pegar com um método de tratamento de erros instalado usando ON ERR CALL. Normalmente, você só precisa manipular a interrupção de uma recepção ao comunicar-se através de uma porta serial.

Exemplo

O uso combinado de SEND VARIABLE, SEND RECORD, RECEIVE VARIABLE e RECEIVE RECORD é ideal para arquivar dados ou de intercâmbio de dados entre bancos de dados idênticos de usuários únicos utilizado em diferentes lugares. Você pode trocar dados entre bancos de dados 4D usando o comando de importação/exportação, como EXPORT TEXT e IMPORT TEXT. No entanto, se os dados contém gráficos e/ou tabelas relacionadas, usar SEND RECORD e RECEIVE RECORD é muito mais conveniente.

Por exemplo, considere um sistema de documentação baseado em 4D e 4D Write. Uma vez que vários escritores em diferentes locais de trabalho trabalhem sobre sobre ela, precisamos de uma maneira simples de troca de dados entre diferentes bases de dados. Aqui está uma visão simplificada da estrutura de banco de dados:

A tabela [Comandos] contém a descrição de cada comando ou tópico. As tabelas [CM EUA Params] e [CM FR Params] contem, respectivamente a lista de parâmetros para cada comando em Inglês e em Francês. A tabela [CM See Also] contém os comandos listados como referência (ver também seção) para cada comando. Troca de documentação entre bancos de dados, portanto, consiste em enviar os registros de [Comandos] e seus registros relacionados. Para isso, usamos SEND RECORD e RECEIVE RECORD. Além disso, usamos SEND VARIABLE e RECEIVE VARIABLE de forma a marcar o documento de importação/exportação com tags.

Aqui está o método de projeto (simplificado) para a exportação de documentação:

  ` Método de projeto CM_EXPORT_SEL

  ` Este método funciona com a seleção atual da tabela [Comandos]

 

 SET CHANNEL(12;"") ` Permite ao usuário criar um documento de canal aberto

 If(OK=1)

  ` Etiqueta o documento com uma variável que indica o seu conteúdo

  ` Nota: a variável de processo BUILD_LANG indica se os dados foram enviados em US (Inglês) ou FR (francês)

    $vsTag:="4DV6COMMAND"+BUILD_LANG

    SEND VARIABLE($vsTag)

  ` Envia uma variável indicando quantos [Comandos] são enviados

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

    SEND VARIABLE($vlNbCmd)

    FIRST RECORD([Commands])

  ` Para cada comando

    For($vlCmd;1;$vlNbCmd)

  ` Envia o registro de [Comandos]

       SEND RECORD([Comands])

  ` Seleciona todos os registros relacionados

       RELATE MANY([Commands])

  ` Dependendo do idioma, envia uma variável indicando

  ` o número de parâmetros que se seguirão

       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)

  ` Envie os registros de parâmetro (se houver)

       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

  ` Envia uma variável que indica quantos" Veja Também " seguirão

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

       SEND VARIABLE($vlNbSee)

  ` Envia os registros [Veja também] (se houver)

       For($vlSee;1;$vlNbSee)

          SEND RECORD([CM See Also])

          NEXT RECORD([CM See Also])

       End for

  ` Vá para o próximo registro de [Commands] e continua com a exportação

       NEXT RECORD([Commands])

    End for

    SET CHANNEL(11) ` Fechar o documento

 End if

Aqui está o método de projeto (simplificado) para a importação da documentação:

  ` Método de projeto CM_IMPORT_SEL

 

 SET CHANNEL(10;"") ` Permitimos ao usuário abrir um documento existente

 If(OK=1) ` Se um documento estava aberto

    RECEIVE VARIABLE($vsTag) ` Tratamos de receber a variável marcada esperada

    If($vsTag="4DV6COMMAND@") ` Recebemos a etiqueta correta?

       $CurLang:=Substring($vsTag;Length($vsTag)-1) ` Extraímos a linguagem da etiqueta

       If(($CurLang="US")&NBSP;|&NBSP;($CurLang="FR")) ` Recebemos uma linguagem válida

          RECEIVE VARIABLE($vlNbCmd) `Quantos comandos existem neste documento?

          If($vlNbCmd>0) ` Se existe pelo menos um

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

  ` Recepção do registro

                RECEIVE RECORD([Commands])

  ` Chama uma subrotina que salva o novo registro ou copia seus valores

  ` dentro de um registro já existente

                CM_IMP_CMD($CurLang)

  ` Recebe o número de parâmetros (se existir)

                RECEIVE VARIABLE($vlNbParm)

                If($vlNbParm>=0)

  ` Chama uma subrotina que chama RECEIVE RECORD e salva os novos registros

  ` Ou copia-los em registros já existentes

                   CM_IMP_PARM($vlNbParm;$CurLang)

                End if

  ` Recebe o número de" Veja Também "(se houver)

                RECEIVE VARIABLE($vlNbSee)

                If($vlNbSee>0)

  ` Chama uma subrotina que chama RECEIVE RECORD e salva os novos registros

  ` Ou copia-los em registros já existentes

                   CM_IMP_SEEA($vlNbSee;$CurLang)

                End if

             End for

          Else

             ALERT("O número de comandos neste documento de exportação é inválido.")

          End if

       Else

          ALERT("A linguagem deste documento de exportação é desconhecida.")

       End if

    Else

       ALERT("Este documento NÃO é um documento de exportação de comandos.")

    End if

    SET CHANNEL(11) ` Fechar documento

 End if

Note que nós não testamos a variável OK ao receber os dados, nem tentamos pegar os erros. No entanto, porque armazenamos as variáveis no documento que descreve o documento em si, se essas variáveis, uma vez recebidas, fizerem sentido, a probabilidade de um erro é muito baixa. Se, por exemplo, um usuário abrir um documento errado, o primeiro teste pára a operação imediatamente.

Variáveis e conjuntos do sistema

The OK system variable is set to 1 if the record is received. Otherwise, the OK system variable is set to 0.