Procedure new_kodpot
_ali=alia()
_dbf=dbf()

__kodpot=0
Select 0
Use (_dbf) orde tag kodpot again
IF SEEK('50')
Calc while kodpot = '50' max(val(kodpot)) to __kodpot
ENDIF
USE

__cc=tran(Iif(__kodpot=0, 5000001, __kodpot+1),'@L 9999999')
wait wind __cc time 1
Select (_ali)
Return __cc

Вот этот код работает, а почему не работало неясно ...
Возможно неполадки с одинаковым именем поля и хр. процедуры kodpot