об оказании услуг для документа корректировка реализации
04.12.2012
10:13
#1
"Добрый день помогите найти ошибку во внешней печатной форме. Подключаю пишет ошибку: {ВнешняяОбработка.Услуги.МодульОбъекта(7)}: Поле объекта не обнаружено (ДополнительнаяКолонкаПечатныхФормДокументов)<br> ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();<br>Вот КОД ФОРМЫ:<br><br>Функция Печать() Экспорт<br> <br> мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();<br> <br> ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить(); - пишет ошибка тут!<br> Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда<br> ВыводитьКоды = Истина;<br> Колонка = "Артикул";<br> ТекстКодАртикул = "Артикул";<br> ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда<br> ВыводитьКоды = Истина;<br> Колонка = "Код";<br> ТекстКодАртикул = "Код";<br> Иначе<br> ВыводитьКоды = Ложь;<br> Колонка = """";<br> ТекстКодАртикул = "Код";<br> КонецЕсли;<br><br> Если ВыводитьКоды Тогда<br> ОбластьШапки = "ШапкаСКодом";<br> ОбластьСтроки = "СтрокаСКодом";<br> Иначе<br> ОбластьШапки = "ШапкаТаблицы";<br> ОбластьСтроки = "Строка";<br> КонецЕсли;<br><br> ЗапросШапка = Новый Запрос;<br> ЗапросШапка.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка.ИсправляемыйДокументРеализации);<br> ЗапросШапка.Текст =<br> "ВЫБРАТЬ<br> | Номер,<br> | Дата,<br> | ДоговорКонтрагента,<br> | ДоговорКонтрагента.РасчетыВУсловныхЕдиницах КАК РасчетыВУсловныхЕдиницах,<br> | Контрагент КАК Получатель,<br> | Организация КАК Поставщик,<br> | Организация,<br> | СуммаДокумента,<br> | ВалютаДокумента,<br> | УчитыватьНДС,<br> | СуммаВключаетНДС<br> |ИЗ<br> | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг<br> |<br> |ГДЕ<br> | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";<br> Шапка = ЗапросШапка.Выполнить().Выбрать();<br> Шапка.Следующий();<br> <br> ЗапросУслуги = Новый Запрос;<br> ЗапросУслуги.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);<br> ЗапросУслуги.УстановитьПараметр("Курс", ЗаполнениеДокументов.КурсДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));<br> ЗапросУслуги.УстановитьПараметр("Кратность", ЗаполнениеДокументов.КратностьДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));<br> <br> ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("РеализацияТоваровУслуг");<br> <br> ЗапросУслуги.Текст =<br> "ВЫБРАТЬ<br> | Номенклатура КАК Номенклатура,<br> | ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар,<br> | Номенклатура." + ТекстКодАртикул + " КАК КодАртикул,<br> | Количество,<br> | Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,<br> | Цена * &Курс / &Кратность КАК Цена,<br> | Сумма * &Курс / &Кратность КАК Сумма,<br> | СтавкаНДС,<br> | СуммаНДС * &Курс / &Кратность КАК СуммаНДС<br> |ИЗ<br> | Документ.КорректировкаРеализации.Товары КАК РеализацияТоваровУслуг<br> |<br> |ГДЕ<br> | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент<br> | И<br> | РеализацияТоваровУслуг.Номенклатура.Услуга = Истина<br> |<br> |ОБЪЕДИНИТЬ ВСЕ<br> |<br> |ВЫБРАТЬ<br> | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",<br> | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",<br> | Номенклатура." + ТекстКодАртикул + " КАК КодАртикул,<br> | Количество,<br> | Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,<br> | Цена * &Курс / &Кратность КАК Цена,<br> | Сумма * &Курс / &Кратность КАК Сумма,<br> | СтавкаНДС,<br> | СуммаНДС * &Курс / &Кратность КАК СуммаНДС<br> |ИЗ<br> | Документ.КорректировкаРеализации.Услуги КАК РеализацияТоваровУслуг<br> |<br> |ГДЕ<br> | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент<br> |<br> |ОБЪЕДИНИТЬ ВСЕ<br> |<br> |ВЫБРАТЬ<br> | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",<br> | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",<br> | Номенклатура." + ТекстКодАртикул + " КАК КодАртикул,<br> | Количество, <br> | Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,<br> | Цена * &Курс / &Кратность КАК Цена,<br> | Сумма * &Курс / &Кратность КАК Сумма,<br> | СтавкаНДС,<br> | СуммаНДС * &Курс / &Кратность КАК СуммаНДС<br> |ИЗ<br> | Документ.КорректировкаРеализации.АгентскиеУслуги КАК РеализацияТоваровУслуг<br> |<br> |ГДЕ<br> | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";<br> ТаблицаУслуги = ЗапросУслуги.Выполнить().Выгрузить();<br> <br> Если СсылкаНаОбъект.Проведен И (Шапка.РасчетыВУсловныхЕдиницах<br> ИЛИ (Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета И СсылкаНаОбъект.Дата >= '20090101000000')) Тогда<br> <br> Запрос = Новый Запрос;<br> Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект.Ссылка);<br> Запрос.УстановитьПараметр("СчетУчетаРасчетовСКонтрагентом", СсылкаНаОбъект.СчетУчетаРасчетовСКонтрагентом);<br> Текст = <br> "ВЫБРАТЬ<br> | СУММА(Хозрасчетный.Сумма) КАК Сумма<br> |ИЗ<br> | РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный<br> |ГДЕ<br> | Хозрасчетный.Регистратор = &Ссылка<br> | И Хозрасчетный.СчетДт = &СчетУчетаРасчетовСКонтрагентом<br> | И Хозрасчетный.СчетКт В<br> | (ВЫБРАТЬ РАЗЛИЧНЫЕ<br> | РеализацияТоваровУслугТовары.СчетДоходов<br> | ИЗ<br> | Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары<br> | ГДЕ<br> | РеализацияТоваровУслугТовары.Ссылка = &Ссылка<br> |<br> | ОБЪЕДИНИТЬ<br> |<br> | ВЫБРАТЬ РАЗЛИЧНЫЕ<br> | РеализацияТоваровУслугУслуги.СчетДоходов<br> | ИЗ<br> | Документ.КорректировкаРеализации.Услуги КАК РеализацияТоваровУслугУслуги<br> | ГДЕ<br> | РеализацияТоваровУслугУслуги.Ссылка = &Ссылка)<br> |";<br> Запрос.Текст = Текст;<br> СуммаВзаиморасчетов = Запрос.Выполнить().Выгрузить()[0].Сумма;<br> <br> РасчетСуммыНДСПоСтавке = УчетНДС.РасчетНДСвРубляхПоСтавкеДокумента(Шапка.Дата);<br> <br> Если НЕ СуммаВзаиморасчетов = NULL Тогда<br> <br> ТаблицаУслуги.Колонки.Добавить("СуммаБезНДС");<br> <br> МассивРаспределения = Новый Массив;<br> <br> Для Каждого СтрокаТовар Из ТаблицаУслуги Цикл<br> <br> СуммаСНДС = СтрокаТовар.Сумма + ?(Шапка.СуммаВключаетНДС, 0, СтрокаТовар.СуммаНДС);<br> СуммаБезНДС = СуммаСНДС - СтрокаТовар.СуммаНДС;<br><br> МассивРаспределения.Добавить(СуммаСНДС);<br> СтрокаТовар.СуммаБезНДС = СуммаБезНДС;<br> <br> КонецЦикла;<br> <br> ТаблицаУслуги.Колонки.Добавить("СуммаРублевая");<br> УчетНДС.РаспределитьСуммуПоСтолбцу(МассивРаспределения, СуммаВзаиморасчетов, ТаблицаУслуги, "СуммаРублевая");<br> <br> Для Каждого СтрокаТовар Из ТаблицаУслуги Цикл<br> <br> Если РасчетСуммыНДСПоСтавке Тогда<br> //Выделение суммы НДС, Расчет суммы без НДС<br> ЗначениеСтавкиНДС = УчетНДС.ПолучитьСтавкуНДС(СтрокаТовар.СтавкаНДС);<br> <br> СтрокаТовар.СуммаНДС = ?(ЗначениеСтавкиНДС = 0, 0, Окр(СтрокаТовар.СуммаРублевая * ЗначениеСтавкиНДС/(100+ЗначениеСтавкиНДС),2));<br> СтрокаТовар.Сумма = СтрокаТовар.СуммаРублевая - СтрокаТовар.СуммаНДС;<br> <br> Иначе<br> МассивРаспределения.Очистить();<br> МассивРаспределения.Добавить(СтрокаТовар.СуммаБезНДС);<br> МассивРаспределения.Добавить(СтрокаТовар.СуммаНДС);<br> МассивРаспределенныхСумм = ОбщегоНазначения.РаспределитьПропорционально(СтрокаТовар.СуммаРублевая, МассивРаспределения);<br> Если МассивРаспределенныхСумм <> Неопределено Тогда<br> СтрокаТовар.Сумма = МассивРаспределенныхСумм[0];<br> СтрокаТовар.СуммаНДС = МассивРаспределенныхСумм[1];<br> КонецЕсли;<br> КонецЕсли;<br> <br> Если Шапка.СуммаВключаетНДС Тогда<br> СтрокаТовар.Сумма = СтрокаТовар.Сумма+СтрокаТовар.СуммаНДС;<br> КонецЕсли;<br> <br> КонецЦикла;<br> <br> КонецЕсли;<br> <br> КонецЕсли; <br> <br> ТабДокумент = Новый ТабличныйДокумент;<br> ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Акт";<br> Макет = ПолучитьМакет("Акт");<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");<br> ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт");<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");<br> СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);<br> ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");<br> ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;<br> ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик;<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");<br> СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);<br> ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, "НаименованиеДляПечатныхФорм,");<br> ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;<br> ОбластьМакета.Параметры.Получатель = Шапка.Получатель;<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> ЕстьСкидки = Ложь;<br><br> // Вывести табличную часть<br> ОбластьМакета = Макет.ПолучитьОбласть(ОбластьШапки);<br> Если ВыводитьКоды Тогда<br> ОбластьМакета.Параметры.ИмяКодАртикул = ТекстКодАртикул;<br> КонецЕсли;<br> ТабДокумент.Вывести(ОбластьМакета);<br> <br> ОбластьМакета = Макет.ПолучитьОбласть(ОбластьСтроки);<br><br> НомерСтроки = 0;<br><br> Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл<br><br> НомерСтроки = НомерСтроки + 1;<br> <br> ОбластьМакета.Параметры.Заполнить(СтрокаТабличнойЧасти);<br> ОбластьМакета.Параметры.НомерСтроки = НомерСтроки;<br> ОбластьМакета.Параметры.Товар = СокрЛП(СтрокаТабличнойЧасти.Товар);<br> <br> Если Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда<br> ОбластьМакета.Параметры.Цена = СтрокаТабличнойЧасти.Сумма / ?(СтрокаТабличнойЧасти.Количество = 0, 1, СтрокаТабличнойЧасти.Количество);<br> КонецЕсли;<br> <br> ТабДокумент.Вывести(ОбластьМакета);<br><br> КонецЦикла;<br><br> Если ТаблицаУслуги <> Неопределено Тогда<br><br> Сумма = ТаблицаУслуги.Итог("Сумма");<br> СуммаНДС = ТаблицаУслуги.Итог("СуммаНДС");<br><br> Иначе<br><br> Сумма = 0;<br> СуммаНДС = 0;<br><br> КонецЕсли;<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Итого");<br> ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> Если Шапка.УчитыватьНДС Тогда<br><br> ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");<br> <br> Если СуммаНДС <> 0 Тогда<br> ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС);<br> ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС", " Сумма НДС");<br> Иначе<br> ОбластьМакета.Параметры.ВсегоНДС = "-";<br> ОбластьМакета.Параметры.НДС = "Без налога (НДС)";<br> КонецЕсли;<br> <br> ТабДокумент.Вывести(ОбластьМакета);<br><br> КонецЕсли;<br><br> СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);<br> ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");<br> ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего оказано услуг " + НомерСтроки<br> + ", на сумму " + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, мВалютаРегламентированногоУчета);<br> ОбластьМакета.Параметры.СуммаПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(СуммаКПрописи, мВалютаРегламентированногоУчета);<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Подписи");<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> Возврат ТабДокумент;<br><br> <br> <br><br>КонецФункции"
04.12.2012
10:13
#2
"Добрый день помогите найти ошибку во внешней печатной форме. Подключаю пишет ошибку: {ВнешняяОбработка.Услуги.МодульОбъекта(7)}: Поле объекта не обнаружено (ДополнительнаяКолонкаПечатныхФормДокументов)<br> ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();<br>Вот КОД ФОРМЫ:<br><br>Функция Печать() Экспорт<br> <br> мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();<br> <br> ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить(); - пишет ошибка тут!<br> Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда<br> ВыводитьКоды = Истина;<br> Колонка = "Артикул";<br> ТекстКодАртикул = "Артикул";<br> ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда<br> ВыводитьКоды = Истина;<br> Колонка = "Код";<br> ТекстКодАртикул = "Код";<br> Иначе<br> ВыводитьКоды = Ложь;<br> Колонка = """";<br> ТекстКодАртикул = "Код";<br> КонецЕсли;<br><br> Если ВыводитьКоды Тогда<br> ОбластьШапки = "ШапкаСКодом";<br> ОбластьСтроки = "СтрокаСКодом";<br> Иначе<br> ОбластьШапки = "ШапкаТаблицы";<br> ОбластьСтроки = "Строка";<br> КонецЕсли;<br><br> ЗапросШапка = Новый Запрос;<br> ЗапросШапка.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка.ИсправляемыйДокументРеализации);<br> ЗапросШапка.Текст =<br> "ВЫБРАТЬ<br> | Номер,<br> | Дата,<br> | ДоговорКонтрагента,<br> | ДоговорКонтрагента.РасчетыВУсловныхЕдиницах КАК РасчетыВУсловныхЕдиницах,<br> | Контрагент КАК Получатель,<br> | Организация КАК Поставщик,<br> | Организация,<br> | СуммаДокумента,<br> | ВалютаДокумента,<br> | УчитыватьНДС,<br> | СуммаВключаетНДС<br> |ИЗ<br> | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг<br> |<br> |ГДЕ<br> | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";<br> Шапка = ЗапросШапка.Выполнить().Выбрать();<br> Шапка.Следующий();<br> <br> ЗапросУслуги = Новый Запрос;<br> ЗапросУслуги.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);<br> ЗапросУслуги.УстановитьПараметр("Курс", ЗаполнениеДокументов.КурсДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));<br> ЗапросУслуги.УстановитьПараметр("Кратность", ЗаполнениеДокументов.КратностьДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));<br> <br> ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("РеализацияТоваровУслуг");<br> <br> ЗапросУслуги.Текст =<br> "ВЫБРАТЬ<br> | Номенклатура КАК Номенклатура,<br> | ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар,<br> | Номенклатура." + ТекстКодАртикул + " КАК КодАртикул,<br> | Количество,<br> | Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,<br> | Цена * &Курс / &Кратность КАК Цена,<br> | Сумма * &Курс / &Кратность КАК Сумма,<br> | СтавкаНДС,<br> | СуммаНДС * &Курс / &Кратность КАК СуммаНДС<br> |ИЗ<br> | Документ.КорректировкаРеализации.Товары КАК РеализацияТоваровУслуг<br> |<br> |ГДЕ<br> | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент<br> | И<br> | РеализацияТоваровУслуг.Номенклатура.Услуга = Истина<br> |<br> |ОБЪЕДИНИТЬ ВСЕ<br> |<br> |ВЫБРАТЬ<br> | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",<br> | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",<br> | Номенклатура." + ТекстКодАртикул + " КАК КодАртикул,<br> | Количество,<br> | Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,<br> | Цена * &Курс / &Кратность КАК Цена,<br> | Сумма * &Курс / &Кратность КАК Сумма,<br> | СтавкаНДС,<br> | СуммаНДС * &Курс / &Кратность КАК СуммаНДС<br> |ИЗ<br> | Документ.КорректировкаРеализации.Услуги КАК РеализацияТоваровУслуг<br> |<br> |ГДЕ<br> | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент<br> |<br> |ОБЪЕДИНИТЬ ВСЕ<br> |<br> |ВЫБРАТЬ<br> | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",<br> | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",<br> | Номенклатура." + ТекстКодАртикул + " КАК КодАртикул,<br> | Количество, <br> | Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,<br> | Цена * &Курс / &Кратность КАК Цена,<br> | Сумма * &Курс / &Кратность КАК Сумма,<br> | СтавкаНДС,<br> | СуммаНДС * &Курс / &Кратность КАК СуммаНДС<br> |ИЗ<br> | Документ.КорректировкаРеализации.АгентскиеУслуги КАК РеализацияТоваровУслуг<br> |<br> |ГДЕ<br> | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";<br> ТаблицаУслуги = ЗапросУслуги.Выполнить().Выгрузить();<br> <br> Если СсылкаНаОбъект.Проведен И (Шапка.РасчетыВУсловныхЕдиницах<br> ИЛИ (Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета И СсылкаНаОбъект.Дата >= '20090101000000')) Тогда<br> <br> Запрос = Новый Запрос;<br> Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект.Ссылка);<br> Запрос.УстановитьПараметр("СчетУчетаРасчетовСКонтрагентом", СсылкаНаОбъект.СчетУчетаРасчетовСКонтрагентом);<br> Текст = <br> "ВЫБРАТЬ<br> | СУММА(Хозрасчетный.Сумма) КАК Сумма<br> |ИЗ<br> | РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный<br> |ГДЕ<br> | Хозрасчетный.Регистратор = &Ссылка<br> | И Хозрасчетный.СчетДт = &СчетУчетаРасчетовСКонтрагентом<br> | И Хозрасчетный.СчетКт В<br> | (ВЫБРАТЬ РАЗЛИЧНЫЕ<br> | РеализацияТоваровУслугТовары.СчетДоходов<br> | ИЗ<br> | Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары<br> | ГДЕ<br> | РеализацияТоваровУслугТовары.Ссылка = &Ссылка<br> |<br> | ОБЪЕДИНИТЬ<br> |<br> | ВЫБРАТЬ РАЗЛИЧНЫЕ<br> | РеализацияТоваровУслугУслуги.СчетДоходов<br> | ИЗ<br> | Документ.КорректировкаРеализации.Услуги КАК РеализацияТоваровУслугУслуги<br> | ГДЕ<br> | РеализацияТоваровУслугУслуги.Ссылка = &Ссылка)<br> |";<br> Запрос.Текст = Текст;<br> СуммаВзаиморасчетов = Запрос.Выполнить().Выгрузить()[0].Сумма;<br> <br> РасчетСуммыНДСПоСтавке = УчетНДС.РасчетНДСвРубляхПоСтавкеДокумента(Шапка.Дата);<br> <br> Если НЕ СуммаВзаиморасчетов = NULL Тогда<br> <br> ТаблицаУслуги.Колонки.Добавить("СуммаБезНДС");<br> <br> МассивРаспределения = Новый Массив;<br> <br> Для Каждого СтрокаТовар Из ТаблицаУслуги Цикл<br> <br> СуммаСНДС = СтрокаТовар.Сумма + ?(Шапка.СуммаВключаетНДС, 0, СтрокаТовар.СуммаНДС);<br> СуммаБезНДС = СуммаСНДС - СтрокаТовар.СуммаНДС;<br><br> МассивРаспределения.Добавить(СуммаСНДС);<br> СтрокаТовар.СуммаБезНДС = СуммаБезНДС;<br> <br> КонецЦикла;<br> <br> ТаблицаУслуги.Колонки.Добавить("СуммаРублевая");<br> УчетНДС.РаспределитьСуммуПоСтолбцу(МассивРаспределения, СуммаВзаиморасчетов, ТаблицаУслуги, "СуммаРублевая");<br> <br> Для Каждого СтрокаТовар Из ТаблицаУслуги Цикл<br> <br> Если РасчетСуммыНДСПоСтавке Тогда<br> //Выделение суммы НДС, Расчет суммы без НДС<br> ЗначениеСтавкиНДС = УчетНДС.ПолучитьСтавкуНДС(СтрокаТовар.СтавкаНДС);<br> <br> СтрокаТовар.СуммаНДС = ?(ЗначениеСтавкиНДС = 0, 0, Окр(СтрокаТовар.СуммаРублевая * ЗначениеСтавкиНДС/(100+ЗначениеСтавкиНДС),2));<br> СтрокаТовар.Сумма = СтрокаТовар.СуммаРублевая - СтрокаТовар.СуммаНДС;<br> <br> Иначе<br> МассивРаспределения.Очистить();<br> МассивРаспределения.Добавить(СтрокаТовар.СуммаБезНДС);<br> МассивРаспределения.Добавить(СтрокаТовар.СуммаНДС);<br> МассивРаспределенныхСумм = ОбщегоНазначения.РаспределитьПропорционально(СтрокаТовар.СуммаРублевая, МассивРаспределения);<br> Если МассивРаспределенныхСумм <> Неопределено Тогда<br> СтрокаТовар.Сумма = МассивРаспределенныхСумм[0];<br> СтрокаТовар.СуммаНДС = МассивРаспределенныхСумм[1];<br> КонецЕсли;<br> КонецЕсли;<br> <br> Если Шапка.СуммаВключаетНДС Тогда<br> СтрокаТовар.Сумма = СтрокаТовар.Сумма+СтрокаТовар.СуммаНДС;<br> КонецЕсли;<br> <br> КонецЦикла;<br> <br> КонецЕсли;<br> <br> КонецЕсли; <br> <br> ТабДокумент = Новый ТабличныйДокумент;<br> ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Акт";<br> Макет = ПолучитьМакет("Акт");<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");<br> ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт");<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");<br> СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);<br> ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");<br> ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;<br> ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик;<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");<br> СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);<br> ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, "НаименованиеДляПечатныхФорм,");<br> ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;<br> ОбластьМакета.Параметры.Получатель = Шапка.Получатель;<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> ЕстьСкидки = Ложь;<br><br> // Вывести табличную часть<br> ОбластьМакета = Макет.ПолучитьОбласть(ОбластьШапки);<br> Если ВыводитьКоды Тогда<br> ОбластьМакета.Параметры.ИмяКодАртикул = ТекстКодАртикул;<br> КонецЕсли;<br> ТабДокумент.Вывести(ОбластьМакета);<br> <br> ОбластьМакета = Макет.ПолучитьОбласть(ОбластьСтроки);<br><br> НомерСтроки = 0;<br><br> Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл<br><br> НомерСтроки = НомерСтроки + 1;<br> <br> ОбластьМакета.Параметры.Заполнить(СтрокаТабличнойЧасти);<br> ОбластьМакета.Параметры.НомерСтроки = НомерСтроки;<br> ОбластьМакета.Параметры.Товар = СокрЛП(СтрокаТабличнойЧасти.Товар);<br> <br> Если Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда<br> ОбластьМакета.Параметры.Цена = СтрокаТабличнойЧасти.Сумма / ?(СтрокаТабличнойЧасти.Количество = 0, 1, СтрокаТабличнойЧасти.Количество);<br> КонецЕсли;<br> <br> ТабДокумент.Вывести(ОбластьМакета);<br><br> КонецЦикла;<br><br> Если ТаблицаУслуги <> Неопределено Тогда<br><br> Сумма = ТаблицаУслуги.Итог("Сумма");<br> СуммаНДС = ТаблицаУслуги.Итог("СуммаНДС");<br><br> Иначе<br><br> Сумма = 0;<br> СуммаНДС = 0;<br><br> КонецЕсли;<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Итого");<br> ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> Если Шапка.УчитыватьНДС Тогда<br><br> ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");<br> <br> Если СуммаНДС <> 0 Тогда<br> ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС);<br> ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС", " Сумма НДС");<br> Иначе<br> ОбластьМакета.Параметры.ВсегоНДС = "-";<br> ОбластьМакета.Параметры.НДС = "Без налога (НДС)";<br> КонецЕсли;<br> <br> ТабДокумент.Вывести(ОбластьМакета);<br><br> КонецЕсли;<br><br> СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);<br> ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");<br> ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего оказано услуг " + НомерСтроки<br> + ", на сумму " + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, мВалютаРегламентированногоУчета);<br> ОбластьМакета.Параметры.СуммаПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(СуммаКПрописи, мВалютаРегламентированногоУчета);<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> ОбластьМакета = Макет.ПолучитьОбласть("Подписи");<br> ТабДокумент.Вывести(ОбластьМакета);<br><br> Возврат ТабДокумент;<br><br> <br> <br><br>КонецФункции"
04.12.2012
11:32
#3
"> {ВнешняяОбработка.Услуги.МодульОбъекта(7)}: Поле объекта не обнаружено (ДополнительнаяКолонкаПечатныхФормДокументов)<br>> ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();<br>А какое именно слово непонятно?"
04.12.2012
11:46
#4
Не понятно то что не хватает 1с для работы этой формы. Что за поле объекта не обнаружено, где взять это поле (ДополнительнаяКолонкаПечатныхФормДокументов) и что надо написать чтоб заработала форма?
(<br>и вы ещё программируете... Читают тему
(гостей: 1)