принтер чеков POS 88 IV кто работал с ним?

посмотрите код.. мож чего не дописал по пос командам.

Объект1.Connect_sync(СокрЛП(АйПиПринтера),9100,5000);
Если Объект1.GetActiveStatus() = 1 Тогда
Объект1.SetAsyncMode(1);// mode_read_event_only
Объект1.ClearErrorsList();
Объект1.SetFilterMode(2);//esc/pos
Объект1.SetServerCharEncoding("ibm866");
Объект1.Send("29 76 0 0");
ЛЖ =(" ESC 't' 0x07 ESC 'R' 0x00 ESC 'G' 0x01 '");
П = ("' LF ESC 'G' 0x00 ");

/////////////////////////////////////////////////////
Сп = "";
Сп = (" ТОВ ""рр""");
Сп = Сп+Символы.ПС + (" м.");
Сп = Сп+Символы.ПС + (" в");
Сп = Сп + Символы.ПС + (" П");
Сп = Сп + Символы.ПС + (" в");
Товр = Неопределено;
//////Товарная таблица//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Для Каждого тов Из Товары Цикл
Если Тов.ККА = Ложь Тогда
Сп = Сп + Символы.ПС +Лев(" "+ Строка(тов.Количество)+",00 х "+СтрЗаменить(СокрЛП(Формат(тов.Цена,"ЧЦ=12; ЧДЦ=2; ЧН=0.00")),".",","),34);
ТВ = СокрЛП(СтрЗаменить(Строка(тов.Номенклатура.НаименованиеПолное),Символы.НПП," "));
Артикул = СокрЛП(СтрЗаменить(Строка(тов.Номенклатура.Артикул),Символы.НПП," "));
Если
Лев(Тов.Номенклатура.Код,2) = "ЦБ" Тогда
Товр = СокрЛП(ТВ);
Иначе
Товр = СокрЛП(Артикул +" "+ ТВ);
КонецЕсли;
//
Если СтрДлина(Товр)> 49 Тогда
ТоварНазв = СокрЛП(Лев(Товр,49));
Иначе
ТоварНазв = Товр;
КонецЕсли;
ТоварНазв = СокрЛП(СтрЗаменить(Строка(ТоварНазв),"і","i"));
ТоварНазв = СтрЗаменить(ТоварНазв ,"'","");
//Цена
ЦенаП = СтрЗаменить(СокрЛП(Формат(тов.СуммаВсего,"ЧЦ=12; ЧДЦ=2; ЧН=0.00")),".",",")+(" A");
ЦенаДлина = СтрДлина(ЦенаП);
///
ДлинаСтрокиОбщая = СтрДлина(ТоварНазв);
Если ДлинаСтрокиОбщая > 25 Тогда
ОстатокПрав = ДлинаСтрокиОбщая - 25;
ДлинаЭ = 34 - ЦенаДлина;
Чем = " ";
СамаСтр = Прав(ТоварНазв,ОстатокПрав);
НижняяСтрока = глДополнитьСтрокуП(СамаСтр,Чем,ДлинаЭ);
Сп = Сп + Символы.ПС + Лев(Лев(ТоварНазв,25),34)+ Символы.ПС + Лев(НижняяСтрока + ЦенаП,34);
Иначе
ОстатокПрав = СтрДлина(ТоварНазв);
ДлинаЭ = 34 - ЦенаДлина;
Чем = " ";
СамаСтр = ТоварНазв;
НижняяСтрока = глДополнитьСтрокуП(СамаСтр,Чем,ДлинаЭ);
Сп = Сп + Символы.ПС + Лев((НижняяСтрока + ЦенаП),34);
КонецЕсли;
КонецЕсли;
КонецЦикла;
//////////////Подвал///////////////////////////////////
Сп = Сп + Символы.ПС + Лев("---------------------------------",34);
///////////////////////////////////////////////////////////////
/////проверено///
ТаблСумм = Товары.Выгрузить();
ИтогСуммаД = 0;
Сч = 0;
Пока Сч < ТаблСумм.Количество() Цикл
Сет = ТаблСумм.Получить(Сч);
Если Сет.ККА = Истина Тогда
ТаблСумм.Удалить(Сет);
Иначе
Сч = Сч + 1;
КонецЕсли;
КонецЦикла;
////НДС/////////////
ИтогСуммаД = ТаблСумм.Итог("СуммаВсего");
ТаблСумм = Неопределено;
СМ = СтрЗаменить(Формат(ИтогСуммаД,"ЧЦ=12;ЧДЦ=2;ЧН=0.00"),".",",");
ДлинаСум = СтрДлина(СМ);
ОстатокПрав = 4;
ДлинаЭ = 33 - ДлинаСум;
Чем = " ";
СамаСтр = "СУМА";
НижняяСтрока = глДополнитьСтрокуП(СамаСтр,Чем,ДлинаЭ);
Сп = Сп + Символы.ПС + Лев(НижняяСтрока + СМ,34);
Сп = Сп + Символы.ПС;
////////////////////////////////////////////////////////////////////////////////////
////////////////////ПДВ/////////////////////////////////////////////////////////////
СуммаВсегоБезНДС = Окр((100 * ИтогСуммаД)/120,2);
СуммаНДС = Окр(ИтогСуммаД - СуммаВсегоБезНДС,2);
////
ПД = СтрЗаменить(СокрЛП(Строка(Формат(СуммаНДС,"ЧЦ=12;ЧДЦ=2;ЧН=0.00"))),".",",");
//////////
ДлинаСум = СтрДлина(ПД);
ОстатокПрав = 15;
ДлинаЭ = 33 - ДлинаСум;
Чем = " ";
СамаСтр = ("ПДВ А = 20,00%");
НижняяСтрока = глДополнитьСтрокуП(СамаСтр,Чем,ДлинаЭ);
Сп = Сп + Символы.ПС + Лев(НижняяСтрока + ПД,34);
////
Сп = Сп + Символы.ПС + Лев("---------------------------------",34);
////// //Готівкою////////////////////////////////////////////////////////////////////////////
СМИТ = СтрЗаменить(СокрЛП(Строка(Формат(ИтогСуммаД,"ЧЦ=15;ЧДЦ=2;ЧН=0.00"))),".",",");
ДлинаСум2 = СтрДлина(СМИТ);
ОстатокПрав = 8;
ДлинаЭ = 33 - ДлинаСум2;
Чем = " ";
СамаСтр = ("ГОТIВКОЮ");
НижняяСтрока = глДополнитьСтрокуП(СамаСтр,Чем,ДлинаЭ);
Сп = Сп + Символы.ПС + Лев(НижняяСтрока + СМИТ,34);
//////////////////////////////////////////////////////////////////////////////
Время1 = СтрЗаменить(Строка(ТекущаяДата()),".","-");
ДатаЧека = Лев(Время1,10);
///////////Номер чека///////////////////////////////////////////////////
НомерЧекП = НомерЧекП + 1;
ДлНЧ = СтрДлина(НомерЧекП);
Если
ДлНЧ = 1 Тогда
НомерВПечатьЧек ="000"+Строка(НомерЧекП);
ИначеЕсли ДлНЧ = 2 Тогда
НомерВПечатьЧек ="00"+Строка(НомерЧекП);
ИначеЕсли ДлНЧ = 3 Тогда
НомерВПечатьЧек ="0"+Строка(НомерЧекП);
ИначеЕсли ДлНЧ = 4 Тогда
НомерВПечатьЧек = Строка(НомерЧекП);
КонецЕсли;
ДатаПечать = Лев(ДатаЧека,6) + Прав(ДатаЧека,2)+" "+ Прав(Время1,8)+" № "+ НомерВПечатьЧек;
ЗН = Лев("З.Н. ",34);
ФН = Лев("рр ",34);
ФЧ = Лев(" К",34);
Сп = Сп + Символы.ПС + Лев(ДатаПечать,34);
Сп = Сп + Символы.ПС + ЗН;
Сп = Сп + Символы.ПС + ФН;
Сп = Сп + Символы.ПС + ФЧ;
/////////////////////////////////////////////////////////////////
//Сп = СтрЗаменить(Строка(ТоварНазв),"і","i");
Объект1.Send(ЛЖ + Сп + П);
Объект1.Send("29 86 66 20");
Объект1.Send("27 112 0 48 251");
Объект1.Disconnect();
Иначе
Предупреждение("Ошибка подключения термо-принтера, попробуйте еще раз",20);
Отказ = Истина;
Если Отказ = Истина Тогда
Попытка
ЭтотОбъект.УстановитьПометкуУдаления(Истина);
Исключение
КонецПопытки;
КонецЕсли;
//СтатусВозврата(0);
Возврат;
КонецЕсли;
КонецЕсли;