Запуск Утилиты регистрации ККТ. Настройка связи  
  Для того чтобы настроить связь к ККТ, нужно выполнить следующее:  
  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