CardBase и дисконтные карты, помогите разобраться.

Доброго временни суток коллеги помогите разобраться с дисконтными картами и приборам VT-CardBase.

Возникла примерно следующия проблема пытаемся внедрить дисконтные карты.
Дисконтные карты считываются сканером ШК, после чего на экране на несколько секунд возникает надпись подождите и проподает, а на чеке пичатается надпись NOT DISKOUNT CARD.
Ниже преведен кусок кода 1С котоый создает файл дисконтных карт.
Если кто сталкивался расскажите, что не так.


ФайлБТ = СоздатьОбъект("XBase");
ИмяФайла = "DISCOUNT";

Если ФС.СуществуетФайл(ИмяФайла)=1 Тогда
ФС.УдалитьФайл(ИмяФайла);
КонецЕсли;

Если ФС.СуществуетФайл(ИмяФайла)=0 Тогда
ФайлБТ.КодоваяСтраница(1);
ФайлБТ.ДобавитьПоле("CARD" ,"C",64,0);
ФайлБТ.ДобавитьПоле("DISCOUNT","N",3,2);
ФайлБТ.ДобавитьПоле("DCODE" ,"N",13,0);
ФайлБТ.ДобавитьПоле("TEXT","C",20,2);
ФайлБТ.СоздатьФайл(ИмяФайла);
Иначе
ФайлБТ.ЗакрытьФайл();
Возврат 0;
КонецЕсли;
ПроцентСкидки = Формат(3,"Ч3,2");

ФайлБТ.Добавить();
ФайлБТ.CARD = "";
ФайлБТ.DISCOUNT = Число(ПроцентСкидки);
ФайлБТ.DCODE = Число(2000031820019);
ФайлБТ.TEXT = Строка("Скидка 3%");
ФайлБТ.Записать();
ФайлБТ.ЗакрытьФайл();

ТекущийКаталог = ФС.ТекКаталог();
ФС.УстТекКаталог(КаталогОбмена);
Если ФС.СуществуетФайл("CardBase-indexer.exe") = 1 Тогда
ЗапуститьПриложение("CardBase-indexer.exe DISCOUNT.DBF CARD");
ЗапуститьПриложение("CardBase-indexer.exe DISCOUNT.DBF DCODE");
Иначе
Сообщить("Файл дисконтных карт не проиндиксирован");
КонецЕсли;
ФС.УстТекКаталог(ТекущийКаталог);