Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
TABLEREVERT() does not revert....?
Message
De
20/10/2003 15:46:43
 
 
À
20/10/2003 13:12:52
John Vlahos
V I Software Solutions Design
Mississauga, Ontario, Canada
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00840357
Message ID:
00840432
Vues:
20
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform