t=av.GetActiveDoc.GetVTab
pol=MsgBox.Input("Имя нового поля","Создание сквозной номерации!!!","")
t.StartEditingWithRecovery
n1=Field.Make(pol,#FIELD_SHORT,6,0)
t.AddFields({n1})
nam=t.FindField(pol)
i=0
for each rec in t
i=i+1
t.SetValue(n1,rec,i)
end
t.StopEditingWithRecovery(true)