>SET ENGINEBEHAVIOR 90 >SELECT DISTINCT; > CAST( ADDBS( UPDATE.clocation ) AS C(50) ) AS clocation,; > UPDATE.iid,; > CHRTRAN(SUBSTR(UPDATE.cLocation,1,LEN(ALLTRIM(ADDBS(UPDATE.clocation ))) - 1),"0123456789","") AS SortOrder1,; > VAL(CHRTRAN(UPDATE.cLocation,CHRTRAN(UPDATE.cLocation,"0123456789",""),"")) AS SortOrder2; >FROM UPDATE; >WHERE FILE( ADDBS(UPDATE.clocation) + "Id.dbf") AND ; > FILE( ADDBS(UPDATE.clocation) + "Compagny.dbf") AND ; > FILE (ADDBS(clocation) + "Amline.dbc" ); >ORDER BY SortOrder1, SortOrder2, Iid; >INTO ARRAY Societes >SET ENGINEBEHAVIOR 70 >>