Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
TABLEREVERT() does not revert....?
Message
From
20/10/2003 15:46:43
 
 
To
20/10/2003 13:12:52
John Vlahos
V I Software Solutions Design
Mississauga, Ontario, Canada
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00840357
Message ID:
00840432
Views:
16
Hi John

you have record buffering on childs tables;
when you revert master table, record pointer on master table is changed
and relations do a implicit tableupdate on childs tables
WITH THISFORM.oCurrentData
llReturnValue = TABLEREVERT(.F., ._cAlias) && <--- this change RECNO() -> move childs
IF NOT llReturnValue = 0
TABLEREVERT(.F., "LAB_PHYSICAL")
TABLEREVERT(.F., "LAB_VISUAL")
TABLEREVERT(.F., "LAB_MECHANICAL")
TABLEREVERT(.F., "LAB_COMP")
TABLEREVERT(.F., "LAB_TREATMENT")
TABLEREVERT(.F., "LAB_RUNNING")
ENDIF
Exist a general rule:
To revert a composite operation, revert all single build composite operation on build order reverted.
 WITH THISFORM.oCurrentData
IF MIN(	TABLEREVERT(.F., "LAB_RUNNING")	;
	, TABLEREVERT(.F., "LAB_TREATMENT")	;
	, TABLEREVERT(.F., "LAB_COMP")		;
	, TABLEREVERT(.F., "LAB_MECHANICAL")	;
	, TABLEREVERT(.F., "LAB_VISUAL")	;
	, TABLEREVERT(.F., "LAB_PHYSICAL")	;
	, TABLEREVERT(.F., ._cAlias))=0
    * error
ENDIF
Fabio
Previous
Reply
Map
View

Click here to load this message in the networking platform