sele client
if client.status = 'F'

	private lcmodel_no
	lcmodel_no = ' ' 
	if profseek(client.modelcolno,'MODELCOL','MODELCOLNO')
		lcmodel_no = modelcol.model_no
	endif
	sele freeserv
	loca for model_no = lcmodel_no and serve_seq = client.serviceseq
	if found()
		lnkms1 = frm_kms
		lnkms2 = to_kms
	else
		store 0 to lnkms1,lnkms2
	endif
	sele client
endif