ge4r
Участник
 Offline
|
 |
« : 02-08-2011 10:02 » |
|
Еще раз здравствуйте) Ваяю еще одну печатную форму для документа "Реализация товоров и услуг" В типовой там в табличной части выводится только Количество, Цена и Сумма. Мне нужно, чтобы еще в каждой строке выводился НДС и сумма с учетом НДС. В общем поковырял код, макет нарисовал. проверяю - все отлично выводится. и текстовки и сведения об организации. а вот табличная часть остается пустой. почему - не понимаю. прикладываю внешнюю обработку к сообщению(там 2 макета. Акт1 - исходный, Акт- сделанный мной), буду премного благодарен если ткнете в ошибку носом) Добавлено через 1 час, 16 минут и 17 секунд:меня смущает вот этот код Если Проведен И (Шапка.РасчетыВУсловныхЕдиницах
ИЛИ (Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета И ТаблицаУслуги.Дата >= '20090101000000')) Тогда
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.УстановитьПараметр("СчетУчетаРасчетовСКонтрагентом", СчетУчетаРасчетовСКонтрагентом);
Текст = во внешней обработке он ругается на то, что непонятно что за проведен, ссылка и СчетУчета. я так понимаю нужно видоизменить так Если СсылкаНаОбъект.Проведен И (Шапка.РасчетыВУсловныхЕдиницах
ИЛИ (Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета И ТаблицаУслуги.Дата >= '20090101000000')) Тогда
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект);
Запрос.УстановитьПараметр("СчетУчетаРасчетовСКонтрагентом", СсылкаНаОбъект.СчетУчетаРасчетовСКонтрагентом);
Текст =
или я дурак и все не так? |
 1.epf (14.35 Кб - загружено 988 раз.)
|
|
« Последнее редактирование: 02-08-2011 11:18 от ge4r »
|
Записан
|
|
|
|
|
Kivals
|
|
« Ответ #1 : 02-08-2011 12:23 » |
|
Все верно.
Когда ты в модуле объекта - у тебя по умолчанию доступны свойства и методы этого объекта. Т.е. для модуля документа обращение ЭтотОбъект.Проведен === Проведен.
Когда же ты в модуле обработки - то переменная ЭтотОбъект ссылается на твою обработку, соответсвенно - этих свойств у нее нет, вот и ругается.
Абсолютно верный вывод - обращайся через ссылку на объект.
|
|
|
|
|
Записан
|
|
|
|
ge4r
Участник
Offline
|
|
« Ответ #2 : 02-08-2011 12:45 » |
|
Обратился, но все равно табличная часть пуста. то есть выводится сразу шапка таблици и итого, а области строка и в помине не видно
|
|
|
|
|
Записан
|
|
|
|
|
Kivals
|
|
« Ответ #3 : 02-08-2011 14:06 » |
|
По идее у тебя должен быть запрос по строкам
Покажи полный цикл, в котором выводится область строки
|
|
|
|
|
Записан
|
|
|
|
ge4r
Участник
Offline
|
|
« Ответ #4 : 02-08-2011 17:10 » |
|
разобрался уже. база была пустая, и для тестов сам ручками забивал. видимо криво назабивал. взял нормальную базу - все работает)
Спасибо за помощь.
|
|
|
|
|
Записан
|
|
|
|
Patronus
Интересующийся
Offline
|
|
« Ответ #5 : 15-02-2012 11:12 » |
|
Добрый день. Можете подсказать как можно сделать чтобы информация о исполнителе и заказчике выводились в самом вверху в два столбца по вертикали, а ниже было написано номер акта? Пробовал исправить все на макете, все равно Акт всегда находится выше исполнителя с заказчиком и плюс еще они всегда расположены в 2 строки по горизонтали. Функция Печать() Экспорт
ЗапросШапка = Новый Запрос;
ЗапросШапка.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
ЗапросШапка.Текст =
"ВЫБРАТЬ
| Номер,
| Дата,
| ДоговорКонтрагента,
| ДоговорКонтрагента.РасчетыВУсловныхЕдиницах КАК РасчетыВУсловныхЕдиницах,
| Контрагент КАК Получатель,
| Организация КАК Поставщик,
| Организация,
| СуммаДокумента,
| ВалютаДокумента,
| УчитыватьНДС,
| СуммаВключаетНДС
|ИЗ
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|
|ГДЕ
| РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";
Шапка = ЗапросШапка.Выполнить().Выбрать();
Шапка.Следующий();
ЗапросУслуги = Новый Запрос;
ЗапросУслуги.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
ЗапросУслуги.УстановитьПараметр("Курс", ЗаполнениеДокументов.КурсДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));
ЗапросУслуги.УстановитьПараметр("Кратность", ЗаполнениеДокументов.КратностьДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));
ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("РеализацияТоваровУслуг");
//
ЗапросУслуги.Текст =
"ВЫБРАТЬ
| " + ЧастьЗапросаДляВыбораСодержанияУслуг + " КАК Номенклатура,
| " + ЧастьЗапросаДляВыбораСодержанияУслуг + " КАК Товар,
| Истина КАК Услуга,
| Количество,
| Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,
| Цена * &Курс / &Кратность КАК Цена,
| Сумма * &Курс / &Кратность КАК Сумма,
| СтавкаНДС,
| СуммаНДС * &Курс / &Кратность КАК СуммаНДС
|ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг
|
|ГДЕ
| РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
|";
Если СсылкаНаОбъект.Проведен И (Шапка.РасчетыВУсловныхЕдиницах
ИЛИ (Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета И Шапка.Дата >= '20090101000000')) Тогда
ЗапросУслуги.Текст = ЗапросУслуги.Текст +
"
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| Номенклатура КАК Номенклатура,
| ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар,
| Ложь КАК Услуга,
| Количество,
| ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| Цена * &Курс / &Кратность КАК Цена,
| Сумма * &Курс / &Кратность КАК Сумма,
| СтавкаНДС,
| СуммаНДС * &Курс / &Кратность КАК СуммаНДС
|ИЗ
| Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг
|
|ГДЕ
| РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";
ТаблицаУслуги = ЗапросУслуги.Выполнить().Выгрузить();
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект);
Текст =
"ВЫБРАТЬ
| СУММА(Хозрасчетный.Сумма) КАК Сумма
|ИЗ
| РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
|ГДЕ
| Хозрасчетный.Регистратор = &Ссылка
| И Хозрасчетный.СчетДт = Хозрасчетный.Регистратор.СчетУчетаРасчетовСКонтрагентом
| И Хозрасчетный.СчетКт В
| (ВЫБРАТЬ РАЗЛИЧНЫЕ
| РеализацияТоваровУслугТовары.СчетДоходовБУ
| ИЗ
| Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
| ГДЕ
| РеализацияТоваровУслугТовары.Ссылка = Хозрасчетный.Регистратор
|
| ОБЪЕДИНИТЬ
|
| ВЫБРАТЬ РАЗЛИЧНЫЕ
| РеализацияТоваровУслугУслуги.СчетДоходовБУ
| ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
| ГДЕ
| РеализацияТоваровУслугУслуги.Ссылка = Хозрасчетный.Регистратор)
|";
Запрос.Текст = Текст;
СуммаВзаиморасчетов = Запрос.Выполнить().Выгрузить()[0].Сумма;
РасчетСуммыНДСПоСтавке = УчетНДС.РасчетНДСвРубляхПоСтавкеДокумента(Шапка.Дата);
Если НЕ СуммаВзаиморасчетов = NULL Тогда
ТаблицаУслуги.Колонки.Добавить("СуммаБезНДС");
МассивРаспределения = Новый Массив;
Для Каждого СтрокаТовар Из ТаблицаУслуги Цикл
СуммаСНДС = СтрокаТовар.Сумма + ?(Шапка.СуммаВключаетНДС, 0, СтрокаТовар.СуммаНДС);
СуммаБезНДС = СуммаСНДС - СтрокаТовар.СуммаНДС;
МассивРаспределения.Добавить(СуммаСНДС);
СтрокаТовар.СуммаБезНДС = СуммаБезНДС;
КонецЦикла;
ТаблицаУслуги.Колонки.Добавить("СуммаРублевая");
УчетНДС.РаспределитьСуммуПоСтолбцу(МассивРаспределения, СуммаВзаиморасчетов, ТаблицаУслуги, "СуммаРублевая");
Для Каждого СтрокаТовар Из ТаблицаУслуги Цикл
Если РасчетСуммыНДСПоСтавке Тогда
//Выделение суммы НДС, Расчет суммы без НДС
ЗначениеСтавкиНДС = УчетНДС.ПолучитьСтавкуНДС(СтрокаТовар.СтавкаНДС);
СтрокаТовар.СуммаНДС = ?(ЗначениеСтавкиНДС = 0, 0, Окр(СтрокаТовар.СуммаРублевая * ЗначениеСтавкиНДС/(100+ЗначениеСтавкиНДС),2));
СтрокаТовар.Сумма = СтрокаТовар.СуммаРублевая - СтрокаТовар.СуммаНДС;
Иначе
МассивРаспределения.Очистить();
МассивРаспределения.Добавить(СтрокаТовар.СуммаБезНДС);
МассивРаспределения.Добавить(СтрокаТовар.СуммаНДС);
МассивРаспределенныхСумм = ОбщегоНазначения.РаспределитьПропорционально(СтрокаТовар.СуммаРублевая, МассивРаспределения);
Если МассивРаспределенныхСумм <> Неопределено Тогда
СтрокаТовар.Сумма = МассивРаспределенныхСумм[0];
СтрокаТовар.СуммаНДС = МассивРаспределенныхСумм[1];
КонецЕсли;
КонецЕсли;
Если Шапка.СуммаВключаетНДС Тогда
СтрокаТовар.Сумма = СтрокаТовар.Сумма+СтрокаТовар.СуммаНДС;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Иначе
ТаблицаУслуги = ЗапросУслуги.Выполнить().Выгрузить();
КонецЕсли;
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Акт";
Макет = ПолучитьМакет("Акт");
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт");
ТабДокумент.Вывести(ОбластьМакета);
//Добавленная строка
СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
//Первоначальная строка
//ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата), "НаименованиеДляПечатныхФорм,");
ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике);
ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;
ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик;
ТабДокумент.Вывести(ОбластьМакета);
//Добавленная строка
СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);
ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
//Первоначальная строка
//ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата), "ПолноеНаименование,");
ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе);
ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;
ОбластьМакета.Параметры.Получатель = Шапка.Получатель;
ТабДокумент.Вывести(ОбластьМакета);
ЕстьСкидки = Ложь;
// Вывести табличную часть
ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьСтроки = Макет.ПолучитьОбласть("Строка");
ТабДокумент.Вывести(ОбластьМакета);
НомерСтроки = 0;
Сумма = 0;
СуммаНДС = 0;
Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл
Если Не СтрокаТабличнойЧасти.Услуга Тогда
Продолжить;
КонецЕсли;
НомерСтроки = НомерСтроки + 1;
Сумма = Сумма + СтрокаТабличнойЧасти.Сумма;
СуммаНДС = СуммаНДС + СтрокаТабличнойЧасти.СуммаНДС;
ОбластьСтроки.Параметры.Заполнить(СтрокаТабличнойЧасти);
ОбластьСтроки.Параметры.НомерСтроки = НомерСтроки;
ОбластьСтроки.Параметры.Товар = СокрЛП(СтрокаТабличнойЧасти.Товар);
ТабДокумент.Вывести(ОбластьСтроки);
КонецЦикла;
ОбластьМакета = Макет.ПолучитьОбласть("Итого");
ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);
ТабДокумент.Вывести(ОбластьМакета);
Если Шапка.УчитыватьНДС Тогда
ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");
Если СуммаНДС <> 0 Тогда
ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС);
ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС", " Сумма НДС");
Иначе
ОбластьМакета.Параметры.ВсегоНДС = "-";
ОбластьМакета.Параметры.НДС = "Без налога (НДС)";
КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
КонецЕсли;
СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);
ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего оказано услуг " + НомерСтроки
+ ", на сумму " + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, мВалютаРегламентированногоУчета);
ОбластьМакета.Параметры.СуммаПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(СуммаКПрописи, мВалютаРегламентированногоУчета);
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Подписи");
ТабДокумент.Вывести(ОбластьМакета);
Возврат ТабДокумент;
КонецФункции // ПечатьАктаОбОказанииУслуг() |
|
|
|
|
Записан
|
|
|
|
|
Kivals
|
|
« Ответ #6 : 15-02-2012 13:57 »  |
|
Нужен скриншот макета из конфигуратора, чтобы понять где какие области.
Также желательно скриншот, в каком виде нужно получить документ
|
|
|
|
|
Записан
|
|
|
|
Patronus
Интересующийся
Offline
|
|
« Ответ #7 : 16-02-2012 05:20 » |
|
Нужен скриншот макета из конфигуратора, чтобы понять где какие области.
Также желательно скриншот, в каком виде нужно получить документ
Прикрепил скриншот макета, там уже видно как все должно быть расположено. |
|
|
|
Записан
|
|
|
|
|
Kivals
|
|
« Ответ #8 : 16-02-2012 13:36 » |
|
Думаю что саму структуру у тебя выводит, но она не заполнена. Чтобы получилось, как ты хочешь, попробуй закомментировать строки: ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
ОбластьМакета = Макет.ПолучитьОбласть("Покупатель"); и ТабДокумент.Вывести(ОбластьМакета); после строк ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт"); ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик; Оставь только после ОбластьМакета.Параметры.Получатель = Шапка.Получатель; и далее |
|
|
|
|
Записан
|
|
|
|
Patronus
Интересующийся
Offline
|
|
« Ответ #9 : 17-02-2012 06:01 » |
|
Kivals,
Огромное спасибо, все заработало. Можете еще подсказать какие параметры нужно добавить в модуль чтобы заработали <ДоговорКонтрагента> и <ДатаДокумента>?
|
|
|
|
|
Записан
|
|
|
|
|
Kivals
|
|
« Ответ #10 : 18-02-2012 11:22 » |
|
Patronus, нужно чтобы соотвествующие параметры в области заполнялись _до_ ТабДокумент.Вывести()
|
|
|
|
|
Записан
|
|
|
|
Patronus
Интересующийся
Offline
|
|
« Ответ #11 : 20-02-2012 10:50 » |
|
Kivals, Можете подсказать как можно сделать чтобы в заголовке Акта был только его номер без даты, я так понял это надо где то здесь править: ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт");
|
|
|
|
|
Записан
|
|
|
|
Dest
Опытный
Offline
|
|
« Ответ #12 : 20-02-2012 11:17 » |
|
Вот вариант: Это ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Акт"); Меняем на это: ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокументаБезДаты(Шапка, "Акт"); А вот это: Функция СформироватьЗаголовокДокументаБезДаты(ДокументОбъект, НазваниеДокумента = "") Экспорт
Если ДокументОбъект = Неопределено Тогда
Возврат "";
Иначе
Возврат ?(НЕ ЗначениеЗаполнено(НазваниеДокумента), ДокументОбъект.Метаданные().Синоним, НазваниеДокумента) + " № " + ПолучитьНомерНаПечать(ДокументОбъект);
КонецЕсли;
КонецФункции В общий модуль, который называется "ОбщегоНазначения" Анекдот: Сдает студент экзамен: - Эту хуйню вставляем в эту хуйню, а эту хуйню в эту... . и получается вот эта мелочь. Преподаватель берет зачетку, пишет " офигительно"  |
|
|
|
|
Записан
|
|
|
|
Patronus
Интересующийся
Offline
|
|
« Ответ #13 : 20-02-2012 12:05 » |
|
Dest, Сделал попроще: ОбластьМакета.Параметры.ТекстЗаголовка = "Акт № " + Прав(Шапка.Номер, 7);
|
|
|
|
« Последнее редактирование: 20-02-2012 12:11 от Patronus »
|
Записан
|
|
|
|
|
|
|
