If pos('[DOKindNr]',fileNameNew)>0     ;; das wievielte Kinde bin ich?
Begin statement
Sta: Select count(DO_SEQ) from DDateienOrdner where DO_DO_SEQ=[DORow.DO_DO_SEQ] and DO_SEQ<=[DORow.DO_SEQ]     ;; der wievielte bin ich? Wieviele Geschwister mit kleinere DO_SEQ
End statement
Do iStat.$execdirect() Returns #F
Do iStat.$fetchinto(DOKindNr)
Calculate fileNameNew as replaceall(fileNameNew,con('[DOKindNr]'),DOKindNr)
End If