FUNCTION shablon
PARAMETER ast
DIMENSION st(10)
PRIVATE i,st

FOR i=1 TO LEN(ALLTRIM(ast))
st(i)=SUBSTR(ast,i,1)
ENDFOR
DO CASE
CASE LEN(ast)=8
IF IsAlpha(st(1)) AND ISDIGIT(st(2)) AND ISDIGIT(st(3)) AND ISDIGIT(st(4));
AND IsAlpha(st(5)) AND IsAlpha(st(6))AND ISDIGIT(st(7))AND ISDIGIT(st(8))then
RETURN '01'
ENDIF
IF IsAlpha(st(1)) AND IsAlpha(st(2)) and ISDIGIT(st(3)) AND ISDIGIT(st(4)) AND ISDIGIT(st(5));
AND ISDIGIT(st(6)) AND ISDIGIT(st(7)) AND ISDIGIT(st(8)) then
RETURN '02'
ENDIF
IF ISDIGIT(st(1)) AND ISDIGIT(st(2)) AND ISDIGIT(st(3));
AND ISDIGIT(st(4)) AND IsAlpha(st(5)) AND IsAlpha(st(6)) AND iSDIGIT(st(7)) AND ISDIGIT(st(8))then
RETURN '002'
ENDIF

CASE LEN(ast)=6
IF IsAlpha(st(1)) AND ISDIGIT(st(2)) AND ISDIGIT(st(3)) AND ISDIGIT(st(4));
AND IsAlpha(st(5)) AND IsAlpha(st(6))then
RETURN '001'
ENDIF
IF IsAlpha(st(1)) AND IsAlpha(st(2)) and ISDIGIT(st(3)) AND ISDIGIT(st(4)) AND ISDIGIT(st(5));
AND ISDIGIT(st(6)) then
RETURN '020'
ENDIF
IF ISDIGIT(st(1)) AND ISDIGIT(st(2)) AND ISDIGIT(st(3));
AND ISDIGIT(st(4)) AND IsAlpha(st(5)) AND IsAlpha(st(6)) then
RETURN '24'
ENDIF

CASE LEN(ast)=7
IF IsAlpha(st(1)) AND IsAlpha(st(2)) AND ISDIGIT(st(3)) AND ISDIGIT(st(4));
AND ISDIGIT(st(5)) AND iSDIGIT(st(6)) AND ISDIGIT(st(7))then
RETURN '91'
ENDIF
IF ISDIGIT(st(1)) AND ISDIGIT(st(2));
AND ISDIGIT(st(3)) AND IsAlpha(st(4)) AND IsAlpha(st(5)) AND iSDIGIT(st(6)) AND ISDIGIT(st(7))then
RETURN '910'
ENDIF
IF IsAlpha(st(1)) AND ISDIGIT(st(2)) AND ISDIGIT(st(3)) AND ISDIGIT(st(4));
AND IsAlpha(st(5)) AND IsAlpha(st(6)) AND IsAlpha(st(6)) then
RETURN '22'
ENDIF
IF IsAlpha(st(1)) AND ISDIGIT(st(2)) AND ISDIGIT(st(3));
AND ISDIGIT(st(4)) AND ISDIGIT(st(5)) AND iSDIGIT(st(6)) AND ISDIGIT(st(7))then
RETURN '92'
ENDIF
IF ISDIGIT(st(1)) AND ISDIGIT(st(2));
AND ISDIGIT(st(3)) AND ISDIGIT(st(4)) AND IsAlpha(st(5)) AND iSDIGIT(st(6)) AND ISDIGIT(st(7))then
RETURN '92'
ENDIF
IF ISDIGIT(st(1)) AND ISDIGIT(st(2));
AND ISDIGIT(st(3)) AND ISDIGIT(st(4)) AND IsAlpha(st(5)) AND IsAlpha(st(6))AND IsAlpha(st(7))then
RETURN '21'
ENDIF

CASE LEN(ast)=5
IF ISDIGIT(st(1)) AND ISDIGIT(st(2));
AND ISDIGIT(st(3)) AND ISDIGIT(st(4)) AND IsAlpha(st(5)) then
RETURN '920'
ENDIF
IF ISDIGIT(st(1)) AND ISDIGIT(st(2));
AND ISDIGIT(st(3)) AND IsAlpha(st(4)) AND IsAlpha(st(5)) then
RETURN '911'
ENDIF

CASE LEN(ast)=9
IF IsAlpha(st(1)) AND ISDIGIT(st(2)) AND ISDIGIT(st(3));
AND ISDIGIT(st(4)) AND ISDIGIT(st(5)) AND IsAlpha(st(6)) AND IsAlpha(st(7))AND ISDIGIT(st(8)) AND ISDIGIT(st(9))then
RETURN '220'
ENDIF
OTHERWISE
RETURN ''
ENDCASE

Здесь указаны несколько шаблонов.
Когда в записях попадается строки неописанного в данной процедуре шаблона функция возвращает .Т., почему это происходит.
Вызов осуществляю так
SET PROCEDURE TO SHABLON

USE avto.dbf IN 0
GO TOP
DO WHILE .NOT. EOF()
IF shablon(st_num)='01' THEN
replace typ_num WITH '01'
ENDIF
IF shablon(st_num)='02' THEN
replace typ_num WITH '02'
ENDIF
IF shablon(st_num)='22' THEN
replace typ_num WITH '22'
ENDIF
IF shablon(st_num)='91' THEN
replace typ_num WITH '91'
ENDIF
IF shablon(st_num)='92' THEN
replace typ_num WITH '92'
ENDIF
ENDDO