Hi Bill

Public cNaam, dGeboren, nID, cMask

local x, nDiensten, cMask

close tables all

set procedure to O:\developer\LIB\DSP
nDiensten = 0
cMask = ""
nID = 1
cNaam = ""
dGeboren = date()

use perioden
do while !eof()
nDiensten = nDiensten + 1
dbskip("perioden",1)
enddo

for x = 1 to nDiensten
cMask = cMask+"x"
endfor

thisform.cMaan.inputmask = cMask
thisform.cDins.inputmask = cMask
thisform.cWoens.inputmask = cMask
thisform.cDonder.inputmask = cMask
thisform.cVrij.inputmask = cMask
thisform.cZater.inputmask = cMask
thisform.cZon.inputmask = cMask

use user
dbgobottom("user")
nId = user.userid +1


Grtngs,
Ben