IF (p1:=STRDIFF(Left(Upper(privileg->fam),8),Left(Upper(pFM),8),1,1,1))<=2
  IF (p2:=STRDIFF(Left(Upper(privileg->im),7),Left(Upper(pIM),7),1,1,1))<=2 ;
    .and. (p3:=STRDIFF(Left(Upper(privileg->ot),7),Left(Upper(pOT),7),1,1,1))<=2
    * ФИО ВВЕДЕННОГО И СВЕРЯЕМОГО СОТРУДНИКА СОВПАДАЮТ,
    * А p1>0, p2>0 и p3>0 ПОКАЗЫВАЮТ ГДЕ ИМЕННО БЫЛА ОПЕЧАТКА
  Else
    * ФИО ВВЕДЕННОГО И СВЕРЯЕМОГО СОТРУДНИКА НЕ СОВПАДАЮТ
  EndIF
 EndIF

/*
Matching two strings
Author: Thanh Ngoc Dao - ''.phorum_html_encode('Thanh.dao@gmx.net').''
Copyright (c) 2005 by Thanh Ngoc Dao.
*/
using System;

namespace WordsMatching
{
    /// <summary>
    /// Summary description for Leven.
    /// </summary>
    internal class Leven: ISimilarity
    {
        private int Min3(int a, int b, int c)
        {
            return System.Math.Min(System.Math.Min(a, b), c);            
        }

        private int ComputeDistance (string s, string t) 
        {
            int n=s.Length;
            int m=t.Length;
            int[,] distance=new int[n + 1, m + 1]; // matrix
            int cost=0; 

            if(n == 0) return m;
            if(m == 0) return n;            
            //init1
            for(int i=0; i <= n; distance[i, 0]=i++);            
            for(int j=0; j <= m; distance[0, j]=j++);

            //find min distance
            for(int i=1; i <= n; i++) 
            {
                for(int j=1; j <= m;j++) 
                {
                    cost=(t.Substring(j - 1, 1) == s.Substring(i - 1, 1) ? 0 : 1);                    
                    distance[i,j]=Min3(distance[i - 1, j] + 1, 
                        distance[i, j - 1] + 1, 
                        distance[i - 1, j - 1] + cost);
                }
            }

            return distance[n, m];
        }

        public float GetSimilarity(System.String string1, System.String string2)
        {
            
            float dis=ComputeDistance(string1, string2);
            float maxLen=string1.Length;
            if (maxLen < (float) string2.Length)
                maxLen = string2.Length;

            float minLen=string1.Length;
            if (minLen > (float) string2.Length)
                minLen = string2.Length;

            
            if (maxLen == 0.0F)
                return 1.0F;
            else
            {
                return maxLen - dis;
                //return 1.0F - dis/maxLen ;
                //return (float) Math.Round(1.0F - dis/maxLen, 1) * 10 ;
            }
        }

        public Leven()
        {
            //
            // TODO: Add constructor logic here
            //
        }
    }
}

* Finds similarity between two strings
* Аналог функции STRDIFF() CA-Clipper, но только с двумя параметрами
* Реализация алгоритма обработки строк "Levenshtein Distance"
* цель которого - нахождение кратчайшего пути для преобразования одной строки в другую.
* (с) Авторы: Thanh Ngoc Dao, Peter Kleiweg, 2005
* (с) VFP версия от 05.06.2007, Кольцов Р.В., Россия, Тамбов
* FUNCTION StrDiff
LPARAM cString1 AS String, cString2 AS String
LOCAL ln AS Integer, lm AS Integer, liCost AS Integer

ln = Len(cString1)
lm = Len(cString2)
LOCAL ARRAY laDistance[ln+1, lm+1]  && matrix
liCost = 0
If ln = 0
    Return lm
EndIf
If lm = 0
    Return lm
EndIf
&& init1
For i=1 To ln+1  && Было от 0 до ln
    laDistance[i, 1] = i-1
EndFor
For j=1 To lm+1  && Было от 0 до lm
    laDistance[1, j] = j-1
EndFor
&& find min distance
For i=2 To ln+1
    For j=2 To lm+1
        liCost = IIF(SubStr(cString2, j - 1, 1) == ;
                     SubStr(cString1, i - 1, 1), 0, 1)
        laDistance[i, j] = Min(laDistance[i - 1, j] + 1, ;
                               laDistance[i, j - 1] + 1, ;
                               laDistance[i - 1, j - 1] + liCost)
    EndFor
EndFor

Return laDistance[ln, lm]

lCurVerify = "CurV" + SYS(2015)

SELECT D.* ;
FROM [СписокДел] AS D ;
WHERE D.[НомерДела]==m.lcDelo ;
INTO CURSOR &lCurVerify.

If _TALLY > 0
    llOk = .F.
    SCAN
        *-- Проверим совпадение фамилии, имени, отчества
        *-- Заодно p1, p2 и p3 покажут где и в чем ошибка
        p1 = StrDiff(Upper(AllT(&lCurVerify..Fm)), m.lcFam)
        p2 = StrDiff(Upper(AllT(&lCurVerify..Im)), m.lcIm)
        p3 = StrDiff(Upper(AllT(&lCurVerify..Ot)), m.lcOt)
        If p1<=2 AND p2<=2 AND p3<=2
            *-- ...
            llOk = .T.
            EXIT
        EndIf
    ENDSCAN
    If !llOk
        _TALLY = 0
    EndIf
EndIf

*-- Далее анализ, если _TALLY=0, то выборка по другим критериям (адресу, удост-нию и т.п.),
*-- т.к. в принципе даже номер дела m.lcDelo может оказаться неверным, устаревшим, либо
*-- пустым, т.е. номер дела придется вычислять на основе других параметров.
*-- ...
Use In Select(lCurVerify)

.PRG.OBJ:
  CLIPPER $< /b

privdbf.OBJ   :  prg\privdbf.PRG
privfun.OBJ   :  prg\privfun.PRG

PRIVDBF.EXE  :
     RTLINK @PRIVDBF.LNK

OUTPUT PRIVDBF.EXE
FILE   PRIVDBF,PRIVFUN,P_SHADOW,view,print,errpens
LIB    CT250

* Функция CheckOGRN для проверки корректности ввода ОГРН
* Параметры: pcOGRN - номер ОГРН
*        pnTipLi - тип лица: 1-Юр.лицо, 2-Физ.лицо, 3-Лицо не указано
*        plMsg - необходимость вывода сообщения об ошибке ввода
* FUNCTION CheckOGRN
LPARAM pcOGRN, pnTipLi, plMsg
LOCAL lcOGRN, llOk, lnLen, lnTipLi

If Parameters()=1
    lnTipLi = 3
Else
    lnTipLi = pnTipLi
EndIf

lcOGRN = pcOGRN
lnLen = LEN(lcOGRN)
DO Case
    Case (lnTipLi=1 OR lnTipLi=3) AND lnLen=13
        llOk = Right(lcOGRN, 1)=Right(AllT(Str(Mod(Val(Left(lcOGRN, 12)), 11))), 1)
    Case (lnTipLi=2 OR lnTipLi=3) AND lnLen=15
        llOk = Right(lcOGRN, 1)=Right(AllT(Str(Mod(Val(Left(lcOGRN, 14)), 13))), 1)
    Otherwise
        llOk = .F.
EndCase
If !llOk AND plMsg
    If MessageBox('ОГРН указан неправильно.'+Chr(13)+'Продолжить?', 4+32, 'Ошибка ввода')=6
        llOk = .T.
    EndIf
EndIf
Return llOk
ENDFUNC