ЭСМ-7 справка выполненных работ и услуг
04.02.2013
12:56
#1
"Здравствуйте подскажите я в тупике...как сделать что бы одна только услуга попадала в печатную форму...я не могу понять как вывесите во внешнею печатную форму доп реквизиты я создал их в 1с предприятие к документу реализация товаров и услуг..или же я что то не то делаю
пдскажите пожалуйста!"
ЗапросШапка = Новый Запрос; ЗапросШапка.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.СсылкаНаОбъект); ЗапросШапка.Текст = "ВЫБРАТЬ | РеализацияТоваровУслуг.Номер, | РеализацияТоваровУслуг.Дата, | РеализацияТоваровУслуг.Контрагент КАК Заказчик, | РеализацияТоваровУслуг.Организация КАК Организация, | РеализацияТоваровУслуг.ВалютаДокумента, | РеализацияТоваровУслуг.УчитыватьНДС, | РеализацияТоваровУслуг.СуммаВключаетНДС, | РеализацияТоваровУслуг.Организация.КодПоОКПО КАК ОрганизацияОКПО, | РеализацияТоваровУслуг.Контрагент.КодПоОКПО КАК КонтрагентОКПО |ИЗ | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг |ГДЕ | РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент"; Шапка = ЗапросШапка.Выполнить().Выбрать(); Шапка.Следующий(); ТабДокумент = Новый ТабличныйДокумент; ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_ЭСМ7"; Макет = ПолучитьМакет("ЭСМ7"); ОбластьМакета = Макет.ПолучитьОбласть("Шапка"); ОбластьМакета.Параметры.Заполнить(Шапка); ОбластьМакета.Параметры.ДатаДень = Лев(СсылкаНаОбъект.Дата,2); ОбластьМакета.Параметры.ДатаМесяц = Сред(СсылкаНаОбъект.Дата,4,2); ОбластьМакета.Параметры.ДатаГод = Сред(СсылкаНаОбъект.Дата,9,2); ОбластьМакета.Параметры.Организация = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата), "НаименованиеДляПечатныхФорм,"); ОбластьМакета.Параметры.Заказчик = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Заказчик, Шапка.Дата), "ПолноеНаименование,"); ТабДокумент.Вывести(ОбластьМакета); Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект); Запрос.Текст ="ВЫБРАТЬ | РеализацияТоваровУслугУслуги.Номенклатура, | РеализацияТоваровУслугУслуги.Содержание, | РеализацияТоваровУслугУслуги.Количество, | РеализацияТоваровУслугУслуги.Цена, | РеализацияТоваровУслугУслуги.Сумма, | РеализацияТоваровУслугУслуги.СуммаНДС |ИЗ | Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги"; ТаблицаУслуги = Запрос.Выполнить().Выгрузить(); // Вывести табличную часть ОбластьСтроки = Макет.ПолучитьОбласть("Строка"); НомерСтроки = 0; Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл НомерСтроки = НомерСтроки + 1; СтрокаУслуги = """"+СтрокаТабличнойЧасти.Номенклатура.НаименованиеПолное+" ("+СтрокаТабличнойЧасти.Содержание+")"; ОбластьСтроки.Параметры.Заполнить(СтрокаТабличнойЧасти); ОбластьСтроки.Параметры.СтрокаУслуги = СокрЛП(СтрокаУслуги); ОбластьСтроки.Параметры.КодНоменклатуры = СокрЛП(СтрокаТабличнойЧасти.Номенклатура.Код); ОбластьСтроки.Параметры.Цена = ОбщегоНазначения.ФорматСумм(СтрокаТабличнойЧасти.Цена); ОбластьСтроки.Параметры.Сумма = ОбщегоНазначения.ФорматСумм(СтрокаТабличнойЧасти.Сумма); ТабДокумент.Вывести(ОбластьСтроки); КонецЦикла; ИтогоСумма = ТаблицаУслуги.Итог("Сумма"); ИтогоКоличество = ТаблицаУслуги.Итог("Количество"); СуммаНДС = ТаблицаУслуги.Итог("СуммаНДС"); Если Шапка.УчитыватьНДС Тогда Всего = ?(Шапка.СуммаВключаетНДС,ИтогоСумма,ИтогоСумма + СуммаНДС); Иначе Всего = ИтогоСумма; КонецЕсли; ОбластьМакета = Макет.ПолучитьОбласть("Подвал"); ОбластьМакета.Параметры.ИтогоСумма = ОбщегоНазначения.ФорматСумм(ИтогоСумма); ОбластьМакета.Параметры.ИтогоКоличество = ИтогоКоличество; ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Всего); ПарПредмета="час,часа,часов,м,,,,,0"; ПрописьЧасов = ЧислоПрописью(Цел(ИтогоКоличество),, ПарПредмета); Минут = Цел((ИтогоКоличество-Цел(ИтогоКоличество))*60); ПарПредмета="минута,минуты,минут,ж,,,,,0"; ПрописьМинут = ЧислоПрописью(Минут,, ПарПредмета); ОбластьМакета.Параметры.ПечЧасы = """"+ПрописьЧасов+" "+НРЕГ(ПрописьМинут); //Руководитель = ОбщегоНазначения.ОтветственныеЛица(); //ОбластьМакета.Параметры.ФИОРуководителя = ФИОРуководителя; //ОбластьМакета.Параметры.ДолжностьРуководителя = ДолжностьРуководителя; Если Шапка.УчитыватьНДС Тогда Если СуммаНДС <> 0 Тогда ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС); ОбластьМакета.Параметры.СтрокаНДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС:", " Сумма НДС:"); Иначе ОбластьМакета.Параметры.ВсегоНДС = "-"; ОбластьМакета.Параметры.СтрокаНДС = "Без налога (НДС)"; КонецЕсли; ТабДокумент.Вывести(ОбластьМакета); КонецЕсли; Возврат ТабДокумент; пдскажите пожалуйста!"
04.02.2013
15:12
#2
Во втором запросе он выбирает табличную часть все документов Реализация товаров и услуг.
04.02.2013
15:55
#3
"Ага спасибо я исправил т.е. надо условие поставить да?....а вот еще вопросик небольшой как обратиться к доп реквизитам этого док. что бы их вывести на печатную форму..делаю доп реквизиты к этому док и потом вот такой запрос
тип значения реквизита выбираю справочник но нет там такого справочника Значение доп. реквизитов...а если акцентировать 2е последние строки в запросе то запрос возвращает значение...как быть подскажите?"
Запрос = Новый Запрос; Запрос.УстановитьПараметр("Объект",СсылкаНаОбъект); Запрос.УстановитьПараметр("Свойство","Машина"); Запрос.Текст = "ВЫБРАТЬ | ЗначенияСвойствОбъектов.Значение КАК Автомобиль |ИЗ | РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов |ГДЕ | ЗначенияСвойствОбъектов.Объект = &Объект | И ЗначенияСвойствОбъектов.Свойство = &Свойство"; Результат = Запрос.Выполнить().Выбрать(); тип значения реквизита выбираю справочник но нет там такого справочника Значение доп. реквизитов...а если акцентировать 2е последние строки в запросе то запрос возвращает значение...как быть подскажите?"
04.02.2013
16:17
#4
Учится программированию по форуму не самая лучшая идея и Вам об этом уже говорили!
04.02.2013
16:27
#5
спс за ответ...я учусь по кнгам делаю всекак читал все как описывается в книгах курсах но все рвно ошибки выходят...мне что теперь нельзя за помощью оратится...вот вы же тоже всеравно нет нет да обращаетесь
04.02.2013
16:37
#6
Вы не учитесь, Вы пытаетесь переложить свою работу на плечи пользователей форума! Вы работаете где то и Вам дают задания, у Вас не получается их сделать и Вы начинаете задавать вопросы, сами даже не пытаетесь что либо найти, сразу на форум, авось кто-нибудь решит проблему!? Это неправильно, Вы же получаете ЗП, надеюсь по крайней мере!?
обработка универсального сравнения документовПри переносе данных ИП из УСН 7,7.206 в БПБ 3.0.18.3 - вид организации - юр.лицо
Читают тему
(гостей: 1)