Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
19 апр 2024, 06:16

Подскажите по управляемым формам

Автор СветланаCC, 30 янв 2012, 10:51

0 Пользователей и 1 гость просматривают эту тему.

СветланаCC

Отчитаюсь, получилось) все работает, привожу пример как сделала:
&НаСервере
Функция СформироватьЗапрос()
   ЗапросСписокОрг = Новый Запрос;
   ЗапросСписокОрг.Текст =
   "ВЫБРАТЬ
   |   МаршрутныйЛистАвтомобиляТабЧасть.ЛистКомплектации.ДокументОснование.Организация КАК Организация,
   |   МаршрутныйЛистАвтомобиляТабЧасть.Объем
   |ИЗ
   |   Документ.МаршрутныйЛистАвтомобиля.ТабЧасть КАК МаршрутныйЛистАвтомобиляТабЧасть
   |ГДЕ
   |   МаршрутныйЛистАвтомобиляТабЧасть.Ссылка = &МаршрутныйЛист";
   ЗапросСписокОрг.УстановитьПараметр("МаршрутныйЛист",Объект.Ссылка);
   СписокОрг = ЗапросСписокОрг.Выполнить().Выгрузить();
   СписокОрг.Свернуть("Организация","Объем");
   Массив = Новый Массив;
   Для каждого СтрокаОрг из СписокОрг Цикл
      Структура = Новый Структура;
      Структура.Вставить("Организация",СтрокаОрг.Организация);
      Структура.Вставить("Объем",СтрокаОрг.Объем);
      Массив.Добавить(Структура);
   КонецЦикла;
   Возврат Массив;
КонецФункции
&НаСервере
Функция ПолучитьСсылку()
   Возврат Справочники.ФизическиеЛица.ПустаяСсылка();
КонецФункции
&НаКлиенте
Процедура СформироватьСчет(Команда)
   СписокО = СформироватьЗапрос();
   Для Каждого Стр из СписокО Цикл
      Форма = ПолучитьФорму("Документ.СчетЗаТранспортноеОбслуживание.ФормаОбъекта");
      Форма.Объект.МаршрутныйЛист = Объект.Ссылка;
      Форма.Объект.Водитель = Объект.Перевозчик;
      Форма.Объект.Фирма = Стр.Организация;
      ОбъемДокумента = Объект.ТабЧасть.Итог("Объем");
      СуммаДокумента = Объект.ТранспортныеРасходы*Стр.Объем/ОбъемДокумента;
      Форма.Объект.Сумма = СуммаДокумента;
      Форма.Объект.Куда = Объект.Направление;
      Форма.КлючУникальности = Строка(Стр.Организация)+" "+Строка(Объект.Перевозчик);
      Форма.Открыть();
      Если НЕ Объект.Экспедитор = ПолучитьСсылку() Тогда
         Форма = ПолучитьФорму("Документ.СчетЗаТранспортноеОбслуживание.ФормаОбъекта");
         Форма.Объект.МаршрутныйЛист = Объект.Ссылка;
         Форма.Объект.Водитель = Объект.Экспедитор;
         Форма.Объект.Фирма = Стр.Организация;
         ОбъемДокумента = Объект.ТабЧасть.Итог("Объем");
         СуммаДокумента = Объект.ТранспортныеРасходыЭкспедитора*Стр.Объем/ОбъемДокумента;
         Форма.Объект.Сумма = СуммаДокумента;
         Форма.Объект.Куда = Объект.Направление;
         Форма.КлючУникальности = Строка(Стр.Организация)+" "+Строка(Объект.Экспедитор);
         Форма.Открыть();
      КонецЕсли;
   КонецЦикла
КонецПроцедуры
Тазовод)

cska-fanat-kz

Пустую ссылку получайте с помощью ПредопределенноеЗначение(...)
Например,

ПустаяСсылка = ПредопределенноеЗначение("Справочник.ФизическиеЛица.ПустаяСсылка");
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

СветланаCC

Цитата: cska-fanat-kz от 31 янв 2012, 16:10
Пустую ссылку получайте с помощью ПредопределенноеЗначение(...)
Например,

ПустаяСсылка = ПредопределенноеЗначение("Справочник.ФизическиеЛица.ПустаяСсылка");
Спасибо) запомню
Тазовод)

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск