denis84 @ Сегодня, 8:23
необходимо зарегистрироваться для просмотра ссылки
,
//ПечФорма = "Накладная";
ПечФорма = ИмяТабл;
Язык = глЯзык(ПечФорма);
Таб.ИсходнаяТаблица(ПечФорма); ‐---‐-------------- строка 693
глУстПропись(Валюта,Язык);
ПечОснование=глСтрокаОснование(Контекст,Договор,ДокументОснование);
Фирма.ИспользоватьДату(ДатаДок,1);
Таб.ВывестиСекцию("Шапка");
Ном = 1;
ВСоставе = 0;
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если Набор.Выбран()=1 Тогда
Если ПустоеЗначение(ВСоставе)=1 Тогда
Таб.ВывестиСекцию("ВСоставе");
ВСоставе=Набор;
ИначеЕсли ВСоставе<>Набор Тогда
Таб.ВывестиСекцию("ВСоставе");
ВСоставе=Набор;
КонецЕсли;
Иначе
Если ПустоеЗначение(ВСоставе)=0 Тогда
ВСоставе=0;
КонецЕсли;
КонецЕсли;
//beg******ALEX 23.06.2006
//ПечЦена = глФРМ(глПересчет(ЦенаБезНДС,Валюта,Курс,ВП,ДатаДок),ВП,0);
//ПечСумма = глФРМ(глПересчет(СуммаБезСкидки,Валюта,Курс,ВП,ДатаДок),ВП,0);
//Таб.ВывестиСекцию("Строка");
//Ном = Ном+1;
мояСкидка = глПересчет(СуммаСкидки,Валюта,Курс,ВП,ДатаДок);
ПечЦена = глФРМ(глПересчет(ЦенаБезНДС,Валюта,Курс,ВП,ДатаДок) - (мояСкидка / Количество),ВП,0);
ПечСумма = глФРМ(глПересчет(СуммаБезСкидки,Валюта,Курс,ВП,ДатаДок) - мояСкидка,ВП,0);
Таб.ВывестиСекцию("Строка");
Ном = Ном+1;
//end******ALEX 23.06.2006
КонецЦикла;
//beg******ALEX 23.06.2006
//Если Итог("СуммаСкидки")<>0 Тогда
// ПечСкидка = глФРМ(глПересчет(Итог("СуммаСкидки"),Валюта,Курс,ВП,ДатаДок),ВП,0);
// Таб.ВывестиСекцию("Скидка");
//КонецЕсли;
//end******ALEX 23.06.2006
ПечБезНДС = глФРМ(глПересчет(Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечНДС = глФРМ(глПересчет(Итог("СуммаСНДС") - Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечСНДС = глФРМ(глПересчет(Итог("СуммаСНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечНДСПропись = " "+Формат(глПересчет(Итог("СуммаСНДС") - Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),"Ч12.2")+" "+ВП.Кратко;
ПечСНДСПропись = глСуммаПрописью(глПересчет(Итог("СуммаСНДС"),Валюта,Курс,ВП,ДатаДок),ВП);
ПечБезНДСПропись = глСуммаПрописью(глПересчет(Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП);
Таб.ВывестиСекцию("Дно");
Если БыстраяПечать = 1 Тогда
Таб.ПараметрыСтраницы(,,,,,,,,,1,,);
Таб.КоличествоЭкземпляров(Константа.ПечКолЭкзНакладнойПриБыстройПродаже);
Таб.Напечатать(глОтладка);
Иначе
Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,,);
//beg******ALEX 23.06.2006
//Таб.Показать("ПЕЧАТЬ: Расходная накладная","");
Если ИмяТабл = "Накладная" Тогда
Таб.Показать("ПЕЧАТЬ: Расходная накладная","");
ИначеЕсли ИмяТабл = "Акт" Тогда
Таб.Показать("ПЕЧАТЬ: Акт выполненных работ","");
Иначе
Таб.Показать("ПЕЧАТЬ: Гарантийный талон","");
КонецЕсли;
//end******ALEX 23.06.2006
КонецЕсли;
КонецПроцедуры
// ===============================
Процедура Печать(БыстраяПечать=0)
Варианы= СоздатьОбъект("СписокЗначений");
Варианы.ДобавитьЗначение("накладной");
Варианы.ДобавитьЗначение("акта выполненных работ");
Варианы.ДобавитьЗначение("гарантийного талона");
Варианы.ДобавитьЗначение("товарного чека");
Результат = 0;
Если Варианы.ВыбратьЗначение(,,Результат,,1)=1 Тогда
Если Результат = 1 Тогда
ПечатьНАГ(БыстраяПечать,"Накладная")
ИначеЕсли Результат = 2 Тогда
ПечатьНАГ(БыстраяПечать,"Акт")
ИначеЕсли Результат = 3 Тогда
ПечатьНАГ(БыстраяПечать,"Гарантия")
ИначеЕсли Результат = 4 Тогда
ПечатьНАГ(БыстраяПечать,"Товарный чек")
КонецЕсли;
КонецЕсли;
КонецПроцедуры