 EXECUTE 'TSELECT DETAILCALCUL AVEC @ID = "[200011" AND AVEC CodAssoContratDetailCalcul = "001" AND AVEC ConvColContratDetailCalcul = "01"'
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
 
 W_Fini="FAUX"
 W_CleAnc=""
 W_Nb=0

 LOOP
    READNEXT W_Cle ELSE W_Fini="VRAI"
 WHILE W_Fini="FAUX" DO
    IF W_Cle[1,5] # W_CleAnc[1,5] THEN
       W_Nb=W_Nb+1
    END
    W_CleAnc=W_Cle
 REPEAT
PRINT "W_Nb :":W_Nb
STOP

