Subprog SET_SEQUENCE(FOLDER,TABLE,SEQVALUE,ERR)
Value Char FOLDER #Folder NAME
Value Char TABLE #Table linked to the sequence
Value Integer SEQVALUE #Sequence value
Variable Integer ERR #Error value
ERR = 0
If func AFNC.PARTSEP(ver$(0),2," ")>="17r.221"
#valfil -i no_sequence DOSSIER TABLE
Call SYSTEME(adxmac(0),"valfil -i"-num$(SEQVALUE+1)-FOLDER-TABLE,"",ERR) From ORDSYS
Else
Local File =FOLDER+"."+TABLE [SVG]
While uniqid([SVG])<SEQVALUE+1
Wend
Close Local File [SVG]
Endif
