IF TYPE("update.iData") <> "N" IF !ISEXCLUSIVE( "update") *--------------------------------- USE DBF( "update" ) EXCLUSIVE ENDIF ALTER TABLE ( 'UPDATE.dbf' ) ADD COLUMN iDATA I ENDIF *-- Manualy put the Value from idata SET ENGINEBEHAVIOR 90 SELECT DISTINCT CAST( ADDBS( UPDATE.clocation ) AS C(50) ) AS clocation , UPDATE.iid ,; iDATA FROM UPDATE ORDER BY iDATA WHERE FILE( ADDBS( UPDATE.clocation) + "Id.dbf") AND ; FILE( ADDBS(UPDATE.clocation) + "Compagny.dbf") AND ; FILE ( ADDBS(clocation) + "Amline.dbc" ) INTO ARRAY Societes SET ENGINEBEHAVIOR 70