Нужно изменить модуль внешней формы
29.06.2010
14:39
#1
"в форму добавился новый столбец "Вес в Кг" нужно сделать так что-бы в этом столбце умножился вес продукции на количество. Вот старый модуль:
//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|Склад = Документ.ГотоваяПродукция.Склад;
|Мастер=Документ.ГотоваяПродукция. Мастер;
|Товар = Документ.ГотоваяПродукция.Товар;
|Код = Документ.ГотоваяПродукция.Товар.Код;
|Количество = Документ.ГотоваяПродукция.Количество;
|Сумма = Документ.ГотоваяПродукция.Сумма;
|Функция КоличествоСумма = Сумма(Количество);
|Функция СуммаСумма = Сумма(Сумма);
|Группировка Товар;
|Группировка Мастер;
|Условие(Товар в ВыбТовар);
|Условие(Мастер в ВыбМастер);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Товар
Таб.ВывестиСекцию("Товар");
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", """");
КонецПроцедуры
ВыбНачПериода=НачМесяца(ТекущаяДата());
ВыбКонПериода=ТекущаяДата()"
//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|Обрабатывать НеПомеченныеНаУдаление;
|Склад = Документ.ГотоваяПродукция.Склад;
|Мастер=Документ.ГотоваяПродукция. Мастер;
|Товар = Документ.ГотоваяПродукция.Товар;
|Код = Документ.ГотоваяПродукция.Товар.Код;
|Количество = Документ.ГотоваяПродукция.Количество;
|Сумма = Документ.ГотоваяПродукция.Сумма;
|Функция КоличествоСумма = Сумма(Количество);
|Функция СуммаСумма = Сумма(Сумма);
|Группировка Товар;
|Группировка Мастер;
|Условие(Товар в ВыбТовар);
|Условие(Мастер в ВыбМастер);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Товар
Таб.ВывестиСекцию("Товар");
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", """");
КонецПроцедуры
ВыбНачПериода=НачМесяца(ТекущаяДата());
ВыбКонПериода=ТекущаяДата()"
помогите пожалуйсто из зарплаты и кадры 7.7с1C 8. 1 Комплексная ПУСТЫЕ РАСЧЕТНЫЕ ЛИСТКИ И ВЕДОМОМТЬ Т51
Читают тему
(гостей: 1)