Показано с 1 по 10 из 47
Древовидный режим
-
25.02.2015, 10:14 #20
- Регистрация
- 24.02.2015
- Сообщений
- 5
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
помоги пожалуйста как открыть код
http://web-ku.ru/3.jpg
---------- Post added at 10:14 ---------- Previous post was at 10:03 ----------
Вот нашел код но он не работает . помогите что нужно исправить ?
// Вывести табличную часть
ОбластьМакета = Макет.ПолучитьОбласть(Обла стьШапки);
Если ДанныеДляПечати.ВыводитьК� �ды Тогда
ОбластьМакета.Параметры.Им яКодАртикул = ДанныеДляПечати.ТекстКодА� �тикул;
КонецЕсли;
ТабДокумент.Вывести(Област ьМакета);
ОбластьМакета = Макет.ПолучитьОбласть(Обла стьСтроки);
НомерСтроки = 0;
Для Каждого СтрокаТабличнойЧасти Из ТабличнаяЧасть Цикл
НомерСтроки = НомерСтроки + 1;
ОбластьМакета.Параметры.За полнить(СтрокаТабличнойЧа� �ти);
ОбластьМакета.Параметры.Но мерСтроки = НомерСтроки;
ОбластьМакета.Параметры.То вар = СокрЛП(СтрокаТабличнойЧас� �и.Товар);
Если Шапка.ВалютаДокумента <> мВалютаРегламентированног оУчета Тогда
ОбластьМакета.Параметры.Це на = СтрокаТабличнойЧасти.Сумм� � / ?(СтрокаТабличнойЧасти.Кол� �чество = 0, 1, СтрокаТабличнойЧасти.Коли� �ество);
КонецЕсли;
ТабДокумент.Вывести(Област ьМакета);
КонецЦикла;
Если ТабличнаяЧасть <> Неопределено Тогда
Сумма = ТабличнаяЧасть.Итог("Сумма" );
СуммаНДС = ТабличнаяЧасть.Итог("Сумма� �ДС");
Иначе
Сумма = 0;
СуммаНДС = 0;
КонецЕсли;
ОбластьМакета = Макет.ПолучитьОбласть("Ито� �о");
ОбластьМакета.Параметры.Вс его = ОбщегоНазначения.ФорматСу� �м(Сумма);
ТабДокумент.Вывести(Област ьМакета);
Если Шапка.УчитыватьНДС Тогда
ОбластьМакета = Макет.ПолучитьОбласть("Ито� �оНДС");
Если СуммаНДС <> 0 Тогда
ОбластьМакета.Параметры.Вс егоНДС = ОбщегоНазначения.ФорматСу� �м(СуммаНДС);
ОбластьМакета.Параметры.НД С = ?(Шапка.СуммаВключаетНДС, "В том числе НДС", " Сумма НДС");
Иначе
ОбластьМакета.Параметры.Вс егоНДС = "-";
ОбластьМакета.Параметры.НД С = "Без налога (НДС)";
КонецЕсли;
ТабДокумент.Вывести(Област ьМакета);
КонецЕсли;
СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);
ОбластьМакета = Макет.ПолучитьОбласть("Сум� �аПрописью");
ОбластьМакета.Параметры.Ит оговаяСтрока ="Всего оказано услуг " + НомерСтроки
+ ", на сумму " + ОбщегоНазначения.ФорматСу� �м(СуммаКПрописи, мВалютаРегламентированног оУчета);
ОбластьМакета.Параметры.Су ммаПрописью = ОбщегоНазначения.Сформиро� �атьСуммуПрописью(СуммаКПр описи, мВалютаРегламентированног оУчета);
ТабДокумент.Вывести(Област ьМакета);
Социальные закладки