Numero autogenerado.

Hola keystone esta es mi consulta:
En el load del for tengo estas lineas:
SET DEFAULT TO d:\compras\datos
PUBLIC nauto
SELECT reg_compras
En el Init del form tengo estas lineas
SET CENTURY ON
SET MULTILOCKS ON
SET EXCLUSIVE ON
SET DELETED ON
SET DATE TO british
mAñoMes=left(dtos(date()),6)
thisform.txtAñomes.Value=mAñomes
...
....
index on añomes+str(idcomp,5,0) to reg_comprasAN &&Indice año numero
index on añomes to reg_comprasA addi &&Indice añomes
set order to Reg_comprasA &&el indice de añomes
calculate max(idcomp) for añoMes=thisform.txtAñomes.value to nauto
nauto=nauto+1
Primero: Cada vez que cargo el form me pregunta que el indice ya existe, como evitar est pregunta o puedo crear el indice desde el diseño de tabla.
Segundo: Al grabar tengo estas lineas:
SELECT reg_compras
APPEND BLANK
replace idcomp WITH nauto
...
Me graba normal el numero (1,2 etc.)
Estoy intendao hacer que en la caja de texto permita al usuario ingresar solo cada inicio de mes el primer numero osea 1 y después los números siguientes lo autogenere el sistema (2,3, etc.).