Difference between revisions of "SETFLDSTATE()"

From Recital Documentation Wiki
Jump to: navigation, search
Line 30: Line 30:
 
==Example==
 
==Example==
 
<code lang="recital">
 
<code lang="recital">
 +
close databases
 +
clear
 +
set exclusive off
 +
open database southwind
 +
use customers
 +
// Set to known value before start
 +
replace customerid with "ALFKI"
  
 +
cursorsetprop("Buffering", 5, "customers")
 +
messagebox("Buffering set to " +etos(cursorgetprop("Buffering")))
 +
 +
? "Original customerid value: " + customerid
 +
? "Curval(): " + curval("customerid")
 +
? "Oldval(): " + oldval("customerid")
 +
? "Fieldstate at start: " + getfldstate("customerid")
 +
 +
replace customerid WITH "RECIT"
 +
 +
// Alter in another session
 +
! recital -c "update southwind\!customers set customerid = 'MULTI' where recno() = 1"
 +
? "Someone else just updated the record!"
 +
? "New customerid value: " +  customerid
 +
? "Curval(): " + curval("customerid")
 +
? "Oldval(): " + oldval("customerid")
 +
? "Fieldstate after replace: " + getfldstate("customerid")
 +
tablerevert(.T.)
 +
 +
? "Reverted customerid value: " +  customerid
 +
? "Curval(): " + curval("customerid")
 +
? "Oldval(): " + oldval("customerid")
 +
? "Fieldstate after revert: " + getfldstate("customerid")
 +
 +
replace customerid WITH "RECIT"
 +
? "New customerid value: " +  customerid
 +
tableupdate(.T.)
 +
? "Updated customerid value: " +  customerid
 +
? "Curval(): " + curval("customerid")
 +
? "Oldval(): " + oldval("customerid")
 +
? "Fieldstate after replace and update: " + getfldstate("customerid")
 +
?
 
</code>
 
</code>
  

Revision as of 10:58, 22 August 2011

Purpose

Function to assign a field modification or deletion marker value to a field or record


Syntax

SETFLDSTATE(<expC> | <expN1>, <expN2> [, <workarea | alias>])


See Also

CURSORGETPROP(), CURSORSETPROP(), CURVAL(), GETFLDSTATE(), OLDVAL(), TABLEREVERT(), TABLEUPDATE()


Description

If the optional <workarea | alias> is specified, then the function will operate in the required location.

<expN2>

Value Description
1 Field has not been modified, deleted or recalled.
2 Field has been modified, deleted or recalled.


Example

close databases
clear
set exclusive off
open database southwind
use customers
// Set to known value before start
replace customerid with "ALFKI"
 
cursorsetprop("Buffering", 5, "customers")
messagebox("Buffering set to " +etos(cursorgetprop("Buffering")))
 
? "Original customerid value: " + customerid
? "Curval(): " + curval("customerid")
? "Oldval(): " + oldval("customerid")
? "Fieldstate at start: " + getfldstate("customerid")
 
replace customerid WITH "RECIT"
 
// Alter in another session
! recital -c "update southwind\!customers set customerid = 'MULTI' where recno() = 1"
? "Someone else just updated the record!"
? "New customerid value: " +  customerid 
? "Curval(): " + curval("customerid")
? "Oldval(): " + oldval("customerid")
? "Fieldstate after replace: " + getfldstate("customerid")
tablerevert(.T.)
 
? "Reverted customerid value: " +  customerid
? "Curval(): " + curval("customerid")
? "Oldval(): " + oldval("customerid")
? "Fieldstate after revert: " + getfldstate("customerid")
 
replace customerid WITH "RECIT"
? "New customerid value: " +  customerid 
tableupdate(.T.)
? "Updated customerid value: " +  customerid
? "Curval(): " + curval("customerid")
? "Oldval(): " + oldval("customerid")
? "Fieldstate after replace and update: " + getfldstate("customerid")
?


Products

Recital, Recital Server