Обещал выложить по просьбе коллеги, вот функция:

* Name: TESTMFO
* Example: =TESTMFO(MFO)
* ..........................................................................

PARAMETER NMFO_6

cStr = STR(NMFO_6, 6)

if val(cStr) == 0
return .f.
endif

IF "0" == SUBSTR(STR(VAL(SUBSTR(cStr, 1, 1)) + VAL(SUBSTR(STR(VAL(;
SUBSTR(cStr, 2, 1)) * 3, 2), 2, 1)) + VAL(SUBSTR(STR(VAL(SUBSTR(;
cStr, 3, 1)) * 7, 2), 2, 1)) + VAL(SUBSTR(cStr, 4, 1)) + VAL(;
SUBSTR(STR(VAL(SUBSTR(cStr, 5, 1)) * 3, 2), 2, 1)) + VAL(SUBSTR(;
STR(VAL(SUBSTR(cStr, 6, 1)) * 7, 2), 2, 1)), 2), 2, 1)

* wait window " MFO OK"
else
=MESSAGEBOX("М Ф О "+STR(NMFO_6)+chr(13)+" НЕ ІСНУЄ ",48+0+0,"У В А Г А !!!")

ENDIF