Процедура ПечатьДОС()
 Перем ТекСтрока;
 Перем СтрокаФайла;
 ТекСтрока="";   
 ТекстВыгрузки.Очистить();
 ТекстВыгрузки.КодоваяСтраница(1);
 ТекстВыгрузки.ДобавитьСтроку("
    +---+----------------------------------------+------+---+------+------+");
 ТекстВыгрузки.ДобавитьСтроку(ВРЕГ("     |№/№|                Товар                   |Кол-во|Ед | Цена |Сумма |"));
 ТекстВыгрузки.ДобавитьСтроку("     +---+----------------------------------------+------+---+------+------+");
 ВыбратьСтроки();
 Пока ПолучитьСтроку() = 1 Цикл 
  ТекСтрока="     |";
  ТекСтрока = ТекСтрока+Формат(Ст
 рока(НомерСтроки),"С3");
  ТекСтрока = ТекСтрока+"|"+Формат(Строка(Товар.Наименование),"С40");
  ТекСтрока = ТекСтрока+"|"+Формат(Строка(Количество),"С6");
  ТекСтрока = Текстрока+"|"+Формат(Строка(Единица),"С3");
  ТекСтрока = Текстрока+"|"+Формат(Строка(ЦенаСНДС),"С6");
  ТекСтрока = Текстрока+"|"+Формат(Строка(СуммаСНДС),"С6")+"|";
  ТекстВыгрузки.ДобавитьСтроку(ВРЕГ(ТекСтрока));
 КонецЦикла;
 ТекстВыгрузки.ДобавитьСтроку("
    +---+----------------------------------------+------+---+------+------+");
 ТекстВыгрузки.ДобавитьСтроку(ВРЕГ("                                                    Итого: "+Строка(Итог("СуммаСНДС"))));
 ТекстВыгрузки.ДобавитьСтроку("");
 ТекстВыгрузки.ДобавитьСтроку("");
 
 СтрокаФайла = КаталогПользователя()+"PrintDOS.txt";
 Текст
 Выгрузки.Записать(СтрокаФайла);
 КомандаСистемы(Строка("print /d:lpt1 """+СтрокаФайла+""""));
КонецПроцедуры //ПечДОС

Процедура Печать()
 Перем СписокПозиций, СписокТоваров;
 Перем ТекСтрока;
 Перем СтрокаФайла;
 ТекСтрока="";   
 ТекстВыгрузки.Очистить();
 ТекстВыгрузки.КодоваяСтраница(1);
 
 СписокТоваров = Создат
 ьОбъект("СписокЗначений"); 
 СписокПозиций = СоздатьОбъект("СписокЗначений");
 
 НаложенФильтрПоТоварам=0;
 
 // накладываем множественный фильтр по товарам
 Если МФНоменклатура.РазмерСписка()<>0 Тогда
  
  Для Индекс=1 По МФНоменклатура.РазмерСписка() Цикл
   Позиция = МФНоменклатура.ПолучитьЗначение(Индекс);
   
   НоменкВложенаВДругую=0;
   Для Индекс2=1 По МФНоменклатура.РазмерСписка() Цикл
    Если Индекс2<>Индекс Тогда       
     Позиция2
= МФНоменклатура.ПолучитьЗначение(Индекс2);
     Если Позиция2.ЭтоГруппа()>0 Тогда
      Если Позиция.ПринадлежитГруппе(Позиция2)>0 Тогда
       НоменкВложенаВДругую=1;
       Прервать;
      КонецЕсли; 
     КонецЕсли; 
    КонецЕсли; 
   КонецЦикла; 
   
   Если НоменкВложенаВДругую=1 Тогда
    Продолжить;
   КонецЕсли;     
   
   Если Позиция.ЭтоГруппа()>0 Тогда
    СпрПозиций = СоздатьОбъект("Справ
 очник."+ВидСправочника);
    СпрПозиций.ИспользоватьРодителя(Позиция.ТекущийЭлемент());
    СпрПозиций.ВыбратьЭлементы(1);
    Пока СпрПозиций.ПолучитьЭлемент()>0 Цикл
     Если СпрПозиций.ЭтоГруппа()=0 Тогда     
      СписокПозиций.ДобавитьЗначение(СпрПозиций.ТекущийЭлемент());
      Если Нрег(ВидСправочника) = "прайс_лист" Тогда
       СписокТоваров.ДобавитьЗначение(СпрПозиций.Товар.ТекущийЭлемент());
      Иначе
       СписокТоваров.ДобавитьЗначение(СпрПозиций.ТекущийЭлемент());
      КонецЕсли; 
                                               
     КонецЕсли;
    КонецЦикла; 
   Иначе
    СписокПозиций.ДобавитьЗначение(Позиция.ТекущийЭлемент());
    СписокТоваров.ДобавитьЗначение(Позиция.ТекущийЭлемент());
   КонецЕсли;                                                       
   
  КонецЦикла; 
  
  Если СписокПозиций.РазмерСписка()=0 Тогда
   Предупреждение("Список позиций пуст");   Возврат;
  КонецЕсли; 
  
  НаложенФильтрПоТоварам=1;
 КонецЕсли; 
 
 
 // не включать отсутствующие
 Если ТолькоПрисутствующие<>0 Тогда
  
  ВремРегистры=СоздатьОбъект("Регистры");
  Рег=ВремРегистры.ОстаткиТоваров;
  Если РабочаяДата()<ПолучитьДатуТА() Тогда
   Рег.ВременныйРасчет();                             
   Если НаложенФильтрПоТоварам=1 Тогда
    Рег.УстановитьЗначениеФильтра("Товар",СписокТоваров,2);
   КонецЕсли; 
   Рег.УстановитьЗначениеФильтра("Фирма",глПустаяФирма);
   ВремРегистры.РассчитатьРегистрыПО(РабочаяДата());
  КонецЕсли;
  
  Если
НаложенФильтрПоТоварам=1 Тогда
   
   ЧислоТов = СписокПозиций.РазмерСписка();
   Для Индекс = 1 По ЧислоТов Цикл
    
    НеУдовлетвФильтру=0;
    Номенк = СписокТоваров.ПолучитьЗначение(ЧислоТов+1-Индекс);
    
    // накладываем фильтр по присутствию/отсутствию 
    Если Номенк.ВидТовара&
 lt;>Перечисление.ВидыТоваров.Товар Тогда
     НеУдовлетвФильтру=1;
    Иначе
     Кол = ВремРегистры.ОстаткиТоваров.СводныйОстаток(глПустаяФирма,Номенк,,"ОстатокТовара");
     Если Кол<=0 Тогда
      НеУдовлетвФильтру=1;
     КонецЕсли;
    КонецЕсли;            
    
    Если НеУдовлетвФильтру=1 Тогда                     
     СписокПозиций.УдалитьЗначение(ЧислоТов+1-Индекс);
    КонецЕсли;
   КонецЦикла;
   
  Иначе   
   
   СпрПозиций = СоздатьОбъект("Справочник."+ВидСправочника);
   СпрПозиций.ВыбратьЭлементы();
   Пока
СпрПозиций.ПолучитьЭлемент()>0 Цикл
    Если СпрПозиций.ЭтоГруппа()=0 Тогда     
     Номенк = СпрПозиций.ТекущийЭлемент();
     Если Номенк.ВидТовара=Перечисление.ВидыТоваров.Товар Тогда
      Кол = ВремРегистры.ОстаткиТоваров.СводныйОстаток(глПустаяФирма,Номенк.ТекущийЭлемент(),,"ОстатокТовара");
      Если Кол>0 Тогда
       СписокПозиций.
 ДобавитьЗначение(СпрПозиций.ТекущийЭлемент());
      КонецЕсли; 
     КонецЕсли; 
    КонецЕсли;
   КонецЦикла; 
   
  КонецЕсли;
  
  Если СписокПозиций.РазмерСписка()=0 Тогда
   Предупреждение("Список позиций пуст");
   Возврат;
  КонецЕсли; 
  
  НаложенФильтрПоТоварам=1;
  
 КонецЕсли; 
 
 // теперь отбираем позиции справочника
 ТекстЗапроса = "                    
 |Период С '"+Строка(ПолучитьДатуТА())+"' По '"+Строка(ПолучитьДатуТА())+"';
 |Позиция =
Справочник.Номенклатура.ТекущийЭлемент; 
 |Товар  = Справочник.Номенклатура.ТекущийЭлемент;
 |Поставщик = Справочник.Номенклатура.Поставщик;
 |";
 Если РынкинТовар = 1 Тогда
  ТекстЗапроса = ТекстЗапроса+"
  |Рынок = Справочник.Номенклатура.Рынок;
  |";
 КонецЕсли;
 ТекстЗапроса = ТекстЗапроса+"
 |Группировка Позиция Упорядочить По Позиция.Наименование; 
 |Услов
 ие (Позиция В СписокПозиций);
 |Условие (Поставщик В ВыбПроизводитель);
 |";
 Если РынкинТовар = 1 Тогда
  ТекстЗапроса = ТекстЗапроса+"
  |Условие (Рынок = 1);
  |";
 КонецЕсли;
 
 // выполняем запрос
 Запрос = СоздатьОбъект("Запрос");
 Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
  Возврат;
 КонецЕсли;
 
 //  Создание Таблицы для выходного отчета
 Таб=СоздатьОбъект("Таблица");
 
 Ном=0;
 
 Если (ЕдиницаПечати.ТекущаяСтрока()<>1)И(ЕдиницаПечати.ТекущаяСтрока()<>2)
Тогда
  ПечатьВФиксЕдиницах = 0;
 Иначе
  ПечатьВФиксЕдиницах = 1;
 КонецЕсли;           
 
 Если ВалютаПечати.Выбран()=0 Тогда
  ПечатьВФиксВалюте = 0;
  Заг="";
 Иначе                    
  ПечатьВФиксВалюте = 1;
  Валюта = ВалютаПечати;
  Заг="Цены указаны в "+СокрЛП(Валюта.Кратко);
 КонецЕсли; 
 
 Таб.ВывестиСекцию("Отчет"); 
  ТекстВыгрузки.ДобавитьСтроку(
 Формат("     ------- "+
 Строка(РабочаяДата())+
 " -------"+
 ?(Процент=0,""," "+Строка(Процент)+"% ")+
 "-------"+
 ?(ПустоеЗначение(ВыбПроизводитель)=1,""," "+Строка(ВыбПроизводитель)+" ")+
 "--------------------------------------","С74"));
 ТекстВыгрузки.ДобавитьСтроку(
 "     №/№                      "+
 "Товар      
               ЯЩ.   ОСТ.  ЦЕНА");
 ТекстВыгрузки.ДобавитьСтроку(
 "     ---------------------------------------------------------------------");
 
 
 Таб.ВывестиСекцию("Шапка|НазваниеПозиции");
 

 Таб.ПрисоединитьСекцию("Шапка|Цена");

 
 СписокГрупп = СоздатьОбъект("СписокЗначений");
 
 Цена = СоздатьОбъект("Справочник.Цены");
 Цена.ИспользоватьДату(ДатаОтчета);
 
 Пок
 а Запрос.Группировка("Позиция")>0 Цикл
  
  Если Запрос.Позиция.Выбран()=0 Тогда
   Продолжить;
  КонецЕсли;    
  
  Если Запрос.Позиция.ЭтоГруппа() = 0 Тогда
   Если ОстатокТовара(Запрос.Позиция) < ГраницаОстатка Тогда
    Продолжить;
   КонецЕсли;
  КонецЕсли;
  
  Если Запрос.Позиция.ВидТовара = Перечисление.ВидыТоваров.Тара Тогда
   Продолжить;
  КонецЕсли;
  
  глОживить(1);
  
  Если Запрос.Позиция.ЭтоГруппа()=1 тогда
   СписокГрупп.ДобавитьЗначение(Запрос.Позиция.ТекущийЭлемент());   
   Продолжить;
  КонецЕсли; 
  
  Цена.ИспользоватьВладельца(Запрос.Товар.ТекущийЭлемент());
  
  Пока
СписокГрупп.РазмерСписка()>0 Цикл
   Гр = СписокГрупп.ПолучитьЗначение(1);
   
   Если Запрос.Позиция.ПринадлежитГруппе(Гр)>0 Тогда
    Если Гр.Уровень()=1 Тогда
     Таб.ВывестиСекцию("Группа1|НазваниеПозиции");
     ТекстВыгрузки.ДобавитьСтроку((Формат(Строка(Г
 р.Наименование),"С53"))+"|       |      |     ");
     у1=Строка(Гр.Наименование)+".";
    ИначеЕсли Гр.Уровень()=2 Тогда
     Таб.ВывестиСекцию("Группа2|НазваниеПозиции");
     ТекстВыгрузки.ДобавитьСтроку((Формат(у1+Строка(Гр.Наименование),"С53"))+"|       |      |     ");
     у2=Строка(Гр.Наименование)+".";
    Иначе                         
     Таб.ВывестиСекцию("Группа3|НазваниеПозиции");
     ТекстВыгрузки.ДобавитьСтроку((Формат(у1+у2+Строка(Гр.Наименование),"С53"))+"|
      |      |     ");
    КонецЕсли;   
   КонецЕсли;
   СписокГрупп.УдалитьЗначение(1);
  КонецЦикла;
  
  Если ПечатьВФиксЕдиницах=1 Тогда
   Если ЕдиницаПечати.ТекущаяСтрока()=1 Тогда 
    Единица = Запрос.Товар.ЕдиницаПоУмолчанию;
   ИначеЕсли ЕдиницаПечати.ТекущаяСтрока()=2 Тогда 
    Единица = глВернутьБазовуюЕдиницуТовара(Запрос.Товар.ТекущийЭ
 лемент());
   КонецЕсли; 
  КонецЕсли;
  
  Ном=Ном+1;
  Таб.ВывестиСекцию("Товар|НазваниеПозиции");
  
  
   Если Цена.НайтиПоРеквизиту("КатегорияЦены",ТипЦены,0)<=0 Тогда
    ПечЦена = "";
    ПечНорм = "";
   Иначе
    
    Если ПечатьВФиксВалюте=0 Тогда
     Валюта = Цена.Валюта;
    КонецЕсли;
    
    Если ПечатьВФиксЕдиницах=0 Тогда
     Единица = Цена.Единица;
    КонецЕсли; 
    
    ЧЦена = Цена.Цена;
    Если
Единица<>Цена.Единица Тогда
     ЧЦена = ?(Цена.Единица.Коэффициент = 0,ЧЦена * Единица.Коэффициент / 1,ЧЦена * Единица.Коэффициент / Цена.Единица.Коэффициент); 
    КонецЕсли; 
    ЧЦена = глПересчет(ЧЦена,Цена.Валюта,РабочаяДата(),Валюта,РабочаяДата());
    ЦенаНорм = СокрЛП(Строка(Формат(ЧЦена,"Ч15.3")));
    ПечЦена = СокрЛП(Строка(Формат(ЧЦена*((100+Процент)/100),"Ч15.2")));
   КонецЕсли; 
   
   <
 br>   Таб.ПрисоединитьСекцию("Товар|Цена");
   
   ТекСтрока="     ";
   ТекСтрока = ТекСтрока+Формат(Строка(Ном),"С4");
   ТекСтрока = ТекСтрока+"|"+Формат(Строка(СокрЛП(Запрос.Товар.Наименование)),"С43");
   ТекСтрока = ТекСтрока+"|"+Формат(Строка(РассчитатьТару(ОстатокТовара(Запрос.Товар),Запрос.Товар.ШтукВЯщике)),"С7");
   ТекСтрока = ТекСтрока+"|"+Формат(Строка(ОстатокТовара(Запрос.Товар)),"С6");
   ТекСтрока
= Текстрока+"|"+Формат(Строка(ПечЦена),"С6");
   ТекстВыгрузки.ДобавитьСтроку(ВРЕГ(ТекСтрока));
  
 КонецЦикла; 
 
 //Вызов выходного отчета в окно просмотра и редактирования.
 // Таб.ПовторятьПриПечатиСтроки(1,5);
 Таб.Опции(0,0,3,0,ПарСтрСпр);
 Таб.Защита(0);
 Таб.ТолькоПросмотр(0);
 Таб.Показать(ВидСправочника,"");
 
 СтрокаФайла = КаталогПользователя()+"PrintDOS_"+Строка(ДатаОт
 чета)+"_"+Строка(ВыбПроизводитель)+"_"+Строка(Процент)+".txt";
 // ТекстВыгрузки.ДобавитьСтроку(РазделительСтраниц);
 ТекстВыгрузки.Записать(СтрокаФайла);
 Если Эпсон=1 Тогда
  //  ТекстВыгрузки.Показать("","");
  Если Предупреждать = 1 Тогда
   Предупреждение("Прайс для печати на принтер "+СтрокаПечати+"
   |в текстовом режиме подготовлен.
   |Нажмите ОК для печати.");
  КонецЕсли;
  КомандаСистемы(Строка("print
/d:"+СтрокаПечати+" """+СтрокаФайла+""""));
 КонецЕсли;
КонецПроцедуры
...
Процедура ПриОткрытии() // Предопределенная процедура
 
 ...
 
 Если Найти("=VUPISKA1=VUPISKA2=OPERATOR2=BUHGALTER=SYSADMIN=", ИмяКомпьютера()) > 0 Тогда
  //на этих компах матричные Эпсоны
  СтрокаПечати = "LPT1"
 Иначе
  // а вот на остальных лазерники или сетевые, и всё пошлём компьют
 еру OPERATOR2 на печать
  СтрокаПечати = """\\OPERATOR2\Epson LX-300+"""
 КонецЕсли;
 
 ...
КонецПроцедуры