Запуск Утилиты регистрации ККТ. Настройка связи
Для того чтобы настроить связь к ККТ, нужно выполнить следующее:
1. На ПК перейти к папке, в которой находится файл EcrRegistration.exe. Запустить Утилиту регистрации ККТ. Откроется окно «Настройка вязи», которое имеет вид:

Подключение через COM-порт
Для подключения ККМ FPrint-22ПТК к WinPost через COM-порт:
1. Соедините COM-порт ККМ с исправным COM-портом ПК при помощи кабеля из комплекта поставки.
2. Включите ККМ.
3. Откройте тест драйвера ККМ (по умолчанию Пуск -> Все программы -> АТОЛ -> Драйверы торгового оборудования v.8 -> Тесты -> Драйвер ККМ).
4. Нажмите на кнопку «Настройка свойств» в правой части окна. Откроется окно:

PARAMETERS tnSummnal,tnSummcard,tnCashRet,tcCustomContact 
*Проверка на правильность чека и доков.
IF tnSummcard=0
    nSumpay =     tnSummnal-tnCashRet
ELSE
    nSumpay =     tnSummnal+tnSummcard    
ENDIF 
*!*   cMsg=this.CheckSum(nSumpay)

*!*   IF !EMPTY(cMsg)
*!*       RETURN cMsg
*!*   ENDIF 

IF VARTYPE(This.atol) == 'O'
    WITH This.atol
        WAIT WINDOW 'Идет печать чека...' NOWAIT 

    **********Для правильного ведения БД**********
        .GetStatus()
        IF !.SessionOpened
            this.OpenWork()
        ENDIF 
    **********************************************
                 
        .Mode = 1  
                
        IF .NewDocument() <> 0 Then  
          RETURN this.RetError()
        ENDIF 
          
        .CheckType=1
                
        IF  .OpenCheck()<>0
            RETURN  this.RetError()
         ENDIF 
         
         IF PCOUNT() = 4
            *// email/sms
            .AttrNumber = 1008
            .AttrValue = ALLTRIM(tcCustomContact)
            .WriteAttribute
        ENDIF
         
         *Регистрация строк 
         .TaxTypeNumber = 3
         .SummTax()
         SELECT detal
         SCAN 
             this.ChekStr(detal.good,detal.PriceNds,detal.kol)
            IF .Registration() <> 0 
              RETURN  this.RetError()
            ENDIF       
         ENDSCAN
        IF tnSummnal>0
            *За нал
             .Summ = tnSummnal
             .TypeClose = 0
            If .Payment()<>0 
                .CancelCheck() 
                 RETURN  this.RetError()                
            Endif      
        ENDIF 
        IF tnSummcard>0
        *По карте
             .Summ = tnSummcard
             .TypeClose = 1
            If .Payment()<>0 
                .CancelCheck() 
                 RETURN  this.RetError()
            Endif      
        ENDIF 

        IF .CloseCheck()<>0
            RETURN  this.RetError()
        ENDIF 
        RETURN ''
    ENDWITH
ELSE
    = MESSAGEBOX('Ошибка драйвера ККМ!',0+16,'Ошибка')
    This.Destroy()
ENDIF

   oErr=.NULL.
   TRY
      FP=CREATEOBJECT("AddIn.Fptr10")
   CATCH TO oErr
   ENDTRY