> nOrdre = 1 > > TEXT TO lcSql NOSHOW TEXTMERGE > SELECT LEFT( T.cnomteleph , 20 ) + ' - F.' + TRANSFORM( Ve.cnofact , "99999999" ) AS 'cName',; > Ve.iid; > FROM amline!cfiltre cf INNER JOIN amline!Vente Ve ON Ve.iid = cf.itelephoneid ; > INNER JOIN amline!Teleph T ON Ve.itelephoneid = T.iid ; > INNER JOIN amline!Resident R ON T.iid = R.itelephoneid ; > IF nOrdre= 1 > ORDER BY 1 DESC INTO CURSOR cNames > ELSE > ORDER BY 1 INTO CURSOR cNames > ENDIF > ENDTEXT > >>
SET TEXTMERGE ON NOSHOW && YOU CAN LEAVE IT ON nOrdre = 1 SET TEXTMERGE TO MEMVAR lcSql \SELECT LEFT( T.cnomteleph , 20 ) + ' - F.' + TRANSFORM( Ve.cnofact , "99999999" ) AS 'cName',; \ Ve.iid; \ FROM amline!cfiltre cf INNER JOIN amline!Vente Ve ON Ve.iid = cf.itelephoneid ; \ INNER JOIN amline!Teleph T ON Ve.itelephoneid = T.iid ; \ INNER JOIN amline!Resident R ON T.iid = R.itelephoneid ; IF nOrdre= 1 \ ORDER BY 1 DESC INTO CURSOR cNames ELSE \ ORDER BY 1 INTO CURSOR cNames ENDIF SET TEXTMERGE TO && this write the TEXTMERGE buffer into the variableand this is 50/60% faster
SET TEXTMERGE OFF NOSHOW nOrdre = 1 SET TEXTMERGE TO MEMVAR lcSql \ SELECT LEFT( T.cnomteleph , 20 ) + ' - F.' + TRANSFORM( Ve.cnofact , "99999999" ) AS 'cName',; \ Ve.iid; \ FROM amline!cfiltre cf INNER JOIN amline!Vente Ve ON Ve.iid = cf.itelephoneid ; \ INNER JOIN amline!Teleph T ON Ve.itelephoneid = T.iid ; \ INNER JOIN amline!Resident R ON T.iid = R.itelephoneid ; IF nOrdre= 1 \ ORDER BY 1 DESC INTO CURSOR cNames ELSE \ ORDER BY 1 INTO CURSOR cNames ENDIF SET TEXTMERGE TO