//*******************************************
Процедура ОтветДрайвера(FR,непечать=0)

глResult=FR.ResultCode;
ОшибкаПараметра=FR.ResultCodeDescription;
Если глResult<>0 тогда
Если непечать=0 тогда
сообщить(""+глResult+" - "+ОшибкаПараметра);
Конецесли;
Конецесли;
если (число(глResult)=100)или(число(глResult)=-100)или(число(глResult)=-117)или(число(глResult)=117) тогда
глфрвкл=0;
конецесли;
КонецПроцедуры
Процедура Печатьчекаподокументу(ПечДок) экспорт
Если глфрвкл=1 тогда
если печдок.вид()<>"ПКО" Тогда
возврат;
Конецесли;
Если пустоезначение(глФР)=0 тогда
если (печдок.проведен()=1) тогда
если печдок.фирма=глфрмфиск.текущийэлемент() тогда
Если ((печдок.датадок)>='01.07.2010')и
(Печдок.естьчек=0) Тогда
смоглзаписать=0;
докФР=создатьобъект("Документ");
докфр.найтидокумент(ПечДок.текущийдокумент());
попытка
смоглзаписать=докФР.блокировка(1);
исключение
смоглзаписать=0;
конецпопытки;
Если смоглзаписать=1 тогда
печфр=1;
глФР.GetECRStatus();
Если глФР.ResultCode=0 Тогда
Если глФР.рулончековойлентыесть<>0 Тогда
наимконтр=врег(сокрлп(ПечДок.Контрагент.ЮрФизЛицо.Наименование));
номмарш=" "+сокрлп(ПечДок.договор.номермаршрута);;
проб25=" ";
глФР.Password=глФРПарольПользователя;
глФР.StringForPrinting=номмарш;
глФР.UseJournalRibbon=0;
глФР.UseReceiptRibbon=1;
глФР.UseSlipDocument=0;
ГлФР.FontType=2;
глФР.PrintStringWithFont();
ОтветДрайвера(глФР);
Для а=0 по цел((стрдлина(наимконтр)-1)/25) цикл
глФР.Password=глФРПарольПользователя;
глФР.StringForPrinting=сокрлп(сред(наимконтр+проб25,а*25+1,25));
глФР.UseJournalRibbon=0;
глФР.UseReceiptRibbon=1;
глФР.UseSlipDocument=0;
ГлФР.FontType=2;
глФР.PrintStringWithFont();
ОтветДрайвера(глФР);
Конеццикла;
наимконтр=?(СокрЛП(печдок.Договор.Наименование) = "Основной договор",печдок.контрагент.юрфизлицо.ФактАдрес,СокрЛП(печдок.Договор.Наименование));
наимконтр=врег(сокрлп(наимконтр));
Для а=0 по цел((стрдлина(наимконтр)-1)/25) цикл глФР.Password=глФРПарольПользователя;
глФР.StringForPrinting=сокрлп(сред(наимконтр+проб25,а*25+1,25));
глФР.UseJournalRibbon=0;
глФР.UseReceiptRibbon=1;
глФР.UseSlipDocument=0;
ГлФР.FontType=2;
глФР.PrintStringWithFont();
ОтветДрайвера(глФР);
Конеццикла;
Если печдок.докоснование.выбран()=1 тогда
если печдок.докоснование.вид()="Реализация" тогда
глФР.Password=глФРПарольПользователя;
глФР.StringForPrinting=""+ПечДок.докоснование;
глФР.UseJournalRibbon=0;
глФР.UseReceiptRibbon=1;
глФР.UseSlipDocument=0;
ГлФР.FontType=1;
глФР.PrintStringWithFont();
ОтветДрайвера(глФР);
конецесли;
конецесли;
глФР.Password=глФРПарольПользователя;
глФР.StringForPrinting=""+ПечДок;
глФР.UseJournalRibbon=0;
глФР.UseReceiptRibbon=1;
глФР.UseSlipDocument=0;
ГлФР.FontType=1;
глФР.PrintStringWithFont();
ОтветДрайвера(глФР);
уид12="000000000";
Если пустоезначение(Печдок.уид12)=0 тогда
уид12=сокрлп(Печдок.уид12);
Конецесли;
глФР.BarCode="999"+уид12;
глФР.PrintBarCode();
ОтветДрайвера(глФР);
глФР.Password=глФРПарольПользователя;
глФР.StringForPrinting=стрзаменить(врег(сокрлп(глфрмФиск.наименование)),"""","");
глФР.UseJournalRibbon=0;
глФР.UseReceiptRibbon=1;
глФР.UseSlipDocument=0;
ГлФР.FontType=4;
глФР.PrintStringWithFont();
ОтветДрайвера(глФР);


Если глResult=0 тогда

Если глResult=0 тогда
глФР.Password=глФРПарольПользователя;
глФР.Quantity=1;
глФР.Price=печдок.сумма;
глФР.Department=0;
глФР.StringForPrinting="";//сокрлп(Печдок.контрагент.наименование);
глФР.Sale();
ОтветДрайвера(глФР);
Если глResult=0 тогда
глФР.Password=глФРПарольПользователя;
глФР.Summ1=печдок.сумма;
глФР.Summ2=0;
глФР.Summ3=0;
глФР.Summ4=0;
глФР.DiscountOnCheck=0;
глФР.StringForPrinting="";
Если глФР.CloseCheck()=0 тогда
если глфрвкл=1 тогда
докфр.естьчек=1;
попытка
докфр.записать();
докфр.блокировка(0);
исключение
сообщить("Ошибка! Будет повторный чек!");
сообщить(""+докфр.текущийдокумент()+" Сумма: "+печдок.сумма);
конецпопытки;
конецесли;
иначе
сообщить("не смогли закрыть чек! "+докфр.текущийдокумент());
Конецесли;

ОтветДрайвера(глФР);
Если глResult=0 тогда
глResult=80;
пока глResult=80 цикл
глФР.Password=глФРПарольПользователя;
глФР.CutType=1;
глФР.CutCheck();
ОтветДрайвера(глФР,1);
конеццикла;
//предупреждение("напечатали чек!",1);
конецесли;
конецесли;
конецесли;
конецесли;
если глфрвкл=1 тогда
Если глResult<>0 тогда
предупреждение("Исправляем ошибку!",5);
глФР.Password=глФРПарольПользователя;
глФР.CancelCheck();
ОтветДрайвера(глФР,1);
предупреждение("Исправляем ошибку!",5);
глФР.Password=глФРПарольПользователя;
глФР.ContinuePrint();
ОтветДрайвера(глФР,1);
предупреждение("Исправляем ошибку!",5);
глResult=80;
пока глResult=80 цикл
глФР.Password=глФРПарольПользователя;
глФР.CutType=0;
глФР.CutCheck();
ОтветДрайвера(глФР,1);
конеццикла;
предупреждение("Исправляем ошибку!",5);
Конецесли;
конецесли;
иначе
сообщить("нет чековой ленты: "+печдок);
конецесли;

конецесли;
иначе
сообщить("не могу дать чек по заблокированному документу");
сообщить(""+ПечДок);
конецесли;
конецесли;
конецесли;
конецесли;
Конецесли;
конецесли;
Конецпроцедуры