?EndStrocInNum('stroc')
?EndStrocInNum('stroc123')
?EndStrocInNum('stroc12')
?EndStrocInNum('stroc12 3')
******************************************************************
FUNCTION EndStrocInNum(stroc)
stroc=ALLTRIM(stroc)
LOCAL SL,InvS,WS,n
InvS=InvertS(Stroc)
WS=InvS
n=0
FOR i=1 TO LEN(InvS)
  IF  ISDIGIT(WS)
      WS=SUBSTR(WS,2)
      n=n+1
  ELSE
      EXIT     
  ENDIF
NEXT
RETURN InvertS(SUBSTR(InvS,1,n))     
******************************************************************
Function InvertS(Stroc)
***инверт строки например 012->210
If Empty(Stroc) OR;
   vartype(Stroc)#'C'
   RETURN ''
ENDIF
Local dS,S1,S2
dS=LEN(Stroc)
*
IF dS=1
   RETURN Stroc
ENDIF
*
FOR i=1 TO INT(DS/2)
   S1=SUBSTR(Stroc,i,1)
   S2=SUBSTR(Stroc,DS-i+1,1)
   stroc=STUFF(STUFF(Stroc,i, 1,S2),DS-i+1,1,S1)
NEXT
RETURN Stroc