PROBLEMA: CURVAL() devolve o mesmo valor como OLDVAL()

• Memória intermédia de optimista está activada.
• Outro utilizador modificou o registo actual numa tabela enquanto estava a editar.

• Duas formas na mesma sessão do Visual FoxPro estão a utilizar a mesma tabela.
• Os dados uma instância de formulário foi modificados.
• Os dados na outra instância do formulário não foi modificados.

Voltar ao topo

• Se pretender escrever código para determinar se o utilizador actual modificou o registo actual, utilize a função GETFLDSTATE(). O GETFLDSTATE() função devolve um valor numérico que indica se um ou mais campos no registo actual tiverem sido alteradas, se um registo tiver sido anexado ou se o estado de eliminação do registo actual foi mudado. Para mais informações sobre a utilização GETFLDSTATE(), consulte o ficheiro de ajuda do Visual FoxPro. -ou-
  
  
• -ou - Se pretender testar o código num cenário de multi-utilizador, tem de ter duas sessões de dados em execução. Para efectuar este procedimento:
  
  
  • Execute duas instâncias do Visual FoxPro simultaneamente em computadores mesmos ou rede. -ou-
    
    
  • -ou - define a propriedade de DataSession do formulário para 2 - sessão de dados privada e executar duas instâncias do formulário.
  -or-
• -ou - Se estiver a utilizar memória intermédia de pessimista ou sem memória intermédia, altere para linha optimista ou tabela de memória intermédia utilizando a função CURSORSETPROP() no método de inicialização do formulário. Por exemplo, introduza o seguinte comando para definir a memória intermédia de tabela optimista:

     =CURSORSETPROP("BUFFERING",5)

Voltar ao topo

Passos para reproduzir o comportamento

1. Criar um novo formulário e adicionar uma tabela para o ambiente de dados.
2. Arraste pelo menos um campo do ambiente de dados para o formulário.
3. Adicionar um botão de comando do formulário. Defina a legenda do botão para apresentar . <fieldname>No caso de clique do botão, escreva o seguinte código, substituindo o nome de campo do passo 2 para <nomecampo>. O nome do campo deve ser colocado entre aspas:

      =MESSAGEBOX("Current value of field:  " + CURVAL(<'fieldname'>) + ;
                 CHR(13) + ;
                 "Old value of field:      " + OLDVAL(<'fieldname'>))

4. Adicionar um segundo botão de comando ao formulário. Defina a legenda do botão para actualização . No caso de clique do botão, escreva o seguinte código:

      =TABLEUPDATE()

5. No caso de inicialização do formulário, adicione o seguinte código:

      =CURSORSETPROP("BUFFERING",5)

6. Guarde o formulário como TESTFORM.
7. Na janela de comandos, escreva sejam TESTFORM de formulário e prima ENTER. Repita este passo.
8. Mova as formas para a que pode ver cada formulário no ecrã.
9. Alterar os dados de uma cópia do formulário e, prima ENTER. Clique no botão ' Mostrar '. O valor actual e o valor antigo devem ser o mesmo. Clique no botão Actualizar.
10. Clique na segunda cópia do formulário. Clique no botão ' Mostrar '. O valor de actual e antigo deve ser o mesmo.
11. Feche ambas as instâncias do formulário. Alterar a propriedade form.DataSession para 2 e execute novamente a ambas as cópias do formulário. As funções curval() e oldval() devem apresentam o mesmo valor na cópia do formulário no qual alterou os dados. Depois de clicar no botão actualizar esta cópia do formulário, a cópia não modificada do formulário deve apresentar valores diferentes para as funções de oldval e curval.

Voltar ao topo