q1w1e1Да в инете много ссылок, как печатать, какой шрифт и т.д., мне же надо вычислить пока контрольную цифру, т.е. вычислить наименьшее кратное 10
EAN13 13 цифра - значение
Parameters CodeToEan

EvenValue = 0
Odd_Value = 0

FOR I = 12 to 1 step -1
IF MOD(i,2) # 0
EvenValue = EvenValue + VAL(SUBSTR(CodeToEan,i,1))
ELSE
Odd_Value = Odd_Value + VAL(SUBSTR(CodeToEan,i,1))
ENDIF
ENDFOR

CheckDigit = 10 - MOD(Odd_Value * 3 + EvenValue, 10)
CheckDigit = IIF(CheckDigit = 10, 0, CheckDigit)
RETURN ALLTRIM(STR(CheckDigit))