// рублевая заявка
Если (Р_накл = 1) и (К_Руб_н > 0) Тогда
РегХран=СоздатьОбъект("Регистр.ХранениеТовара");
ТЗН=СоздатьОбъект("ТаблицаЗначений");
ИсхТабл = СоздатьОбъект("Таблица");
ИсхТабл.ИсходнаяТаблица("РублеваяЗаявка");
НачПовт = 0; КонПовт = 0;
ПечФирма = ""; Банк = ""; Счет = ""; БИК = ""; СчетБанка = "";
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(БанковскийСчет, "БанковскийСчет");
глРеквизитыПлательщикаПолучателя(Параметры);
ПечФирма = Параметры.Получить("Результат");
Банк = Параметры.Получить("СтрокаБанка");
Счет = Параметры.Получить("РасчетныйСчет");
БИК = Параметры.Получить("БИК");
СчетБанка = Параметры.Получить("КоррСчет");
ИсхТабл.ВывестиСекцию("Заголовок");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Заголовок");
ИсхТабл.ВывестиСекцию("Шапка");
КонПовт = НачПовт + ИсхТабл.ВысотаСекции("Шапка");
ИсхТабл.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);
НомСтроки = 0;
ВыбратьСтроки();
ВсегоСумма=0;
ВсегоНДС=0;
Пока ПолучитьСтроку() = 1 Цикл
НомСтроки = НомСтроки + 1;
Если Валюта.Наименование="руб." Тогда
ЦенаДок=Окр(Цена-Скидка.Процент/100*Цена,2,1);
СуммаДок=Окр(ЦенаДок*Количество,2,1);
Иначе
ЦенаДок=Окр(Окр(Цена-Скидка.Процент/100*Цена,3,1)*КурсДляВалюты(Валюта),2,1); //глКурсДляВалюты(Договор.ВалютаВзаиморасчетов,ДатаДок),2,1);
СуммаДок=Окр(ЦенаДок*Количество,3,1);
КонецЕсли;
Если СуммаВклНДС=1 Тогда
НДСДок=СуммаДок*глВыделяемыйНДС(СтавкаНДС);
Иначе
НДСДок=СуммаДок*глНачисляемыйНДС(СтавкаНДС);
КонецЕсли;
//НДСДок=Окр(СуммаНДС*КурсДляВалюты(Валюта),2,1); //глКурсДляВалюты(Договор.ВалютаВзаиморасчетов,ДатаДок),2,1);
ВсегоНДС=Окр(ВсегоНДС+НДСДок,2,1);
ВсегоСумма=Окр(ВсегоСумма+СуммаДок,2,1);
РегХран.УстановитьФильтр(,Номенклатура);
РегХран.ВыгрузитьИтоги(ТЗН);
МХ="";
ТЗН.ВыбратьСтроки();
Пока ТЗН.ПолучитьСтроку()=1 Цикл
МХ=МХ+СокрЛП(ТЗН.Место.Код)+"; ";
КонецЦикла;
ИсхТабл.ВывестиСекцию("Строка");
КонецЦикла;
ИсхТабл.ВывестиСекцию("Итоги");
Если БПСпособПечати = 1 Тогда
СразуНаПринтер = 0;
Иначе
СразуНаПринтер = 1;
КонецЕсли;
Если СразуНаПринтер = 0 Тогда
ИсхТабл.Опции(0,0,0,0,"ОпцииПечатиПлПор","ПараметрыОкнаПлПор");
ИсхТабл.ПараметрыСтраницы(1,,,,,,,,,1,,"Brother MFC-8820D USB");
ИсхТабл.Защита(1);
ИсхТабл.ТолькоПросмотр(0);
ИсхТабл.Показать(глНазваниеДокументаВжурнале(Контекст),"");
Иначе
ИсхТабл.ПараметрыСтраницы(1,,,,,,,,,1,,"Brother MFC-8820D USB");
ИсхТабл.КоличествоЭкземпляров(К_Руб_н);
ИсхТабл.Напечатать(0);
КонецЕсли;
БезЗала=0;
СписокЗалов=СоздатьОбъект("СписокЗначений");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если ПустоеЗначение(Номенклатура.ЗалХранения)=1 Тогда
Сообщить("Для "+Номенклатура.Наименование+" не установлена зона отгрузки");
БезЗалов=1;
КонецЕсли;
Если СписокЗалов.Принадлежит(Номенклатура.ЗалХранения)=0 Тогда
СписокЗалов.ДобавитьЗначение(Номенклатура.ЗалХранения);
КонецЕсли;
КонецЦикла;
ПечататьЗалы=1;
Если БезЗалов=1 Тогда
Если Вопрос("Для некоторых позиций неуказана зона отгрузки. Печатать без зон?","Да+Нет")<>"Да" Тогда
ПечататьЗалы=0;
КонецЕсли;
КонецЕсли;
Если ПечататьЗалы=1 Тогда
Для Сч=1 По СписокЗалов.РазмерСписка() Цикл
ПечатьЗал(СписокЗалов.ПолучитьЗначение(Сч),БПСпособПечати);
КонецЦикла;
КонецЕсли;
КонецЕсли;