agran (09 Январь 2013 - 18:52) писал:
filename = STR(cton(cvalue, 142, 34), 14) где cvalue - поле VFOTOFAS из таблицы CARD
функция cton:
FUNCTION cton
PARAMETER string, p, shift
PRIVATE k, nresult
nresult = 0
string = CHRTRAN(string, CHR(33), '')
FOR k = 1 TO LEN(string)
nresult = nresult*p+ASC(SUBSTR(string, k, 1))-shift
ENDFOR
RETURN nresult
ENDFUNC
Спасибо, Алгоритм работает



