Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[1С:Бухгалтерия 8]

об оказании услуг для документа корректировка реализации

ЕвгенийАгро
читатель
офлайн
Дата регистрации: 04.10.2012
Сообщений: 19
Пост №1
 
04.12.2012 10:13

"Добрый день помогите найти ошибку во внешней печатной форме. Подключаю пишет ошибку: {ВнешняяОбработка.Услуги.МодульОбъекта(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.10.2012
Сообщений: 19
Пост №2
 
04.12.2012 10:13

"Добрый день помогите найти ошибку во внешней печатной форме. Подключаю пишет ошибку: {ВнешняяОбработка.Услуги.МодульОбъекта(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>КонецФункции"

Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 20952
Пост №3
 
04.12.2012 11:32

"> {ВнешняяОбработка.Услуги.МодульОбъекта(7)}: Поле объекта не обнаружено (ДополнительнаяКолонкаПечатныхФормДокументов)<br>> ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();<br>А какое именно слово непонятно?"

ЕвгенийАгро
читатель
офлайн
Дата регистрации: 04.10.2012
Сообщений: 19
Пост №4
 
04.12.2012 11:46

Не понятно то что не хватает 1с для работы этой формы. Что за поле объекта не обнаружено, где взять это поле (ДополнительнаяКолонкаПечатныхФормДокументов) и что надо написать чтоб заработала форма?

Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 20952
Пост №5
 
04.12.2012 12:21

Пригласите специалиста, если Вы не можете понять, что нет такой константы.

Sh_S
читатель
офлайн
Дата регистрации: 02.03.2007
Сообщений: 7730
Пост №6
 
04.12.2012 12:36

но она же в бухгалтерии есть

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №7
 
04.12.2012 12:43

В типовой БП 2.0 да, но мы же не знаем какая конфигурация у автора.

ЕвгенийАгро
читатель
офлайн
Дата регистрации: 04.10.2012
Сообщений: 19
Пост №8
 
04.12.2012 12:45

Конфигурация Агрокомплекс подскажите где посмотреть какая константа в моей конфигурации?

Тэра
читатель
офлайн
Дата регистрации: 25.12.2008
Сообщений: 22390
Пост №9
 
04.12.2012 12:48

:((<br>и вы ещё программируете...

Prikum
активный пользователь
офлайн
Дата регистрации: 18.02.2002
Сообщений: 20952
Пост №10
 
04.12.2012 12:54

Вам так жалко денег на специалиста?

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация