Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: А где флуд!??
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Общий раздел > Офф-топик
Acid
Хочу флуда и обсуждений! tongue.gif
MATEVI
Цитата(Кузьмич @ 03.03.09, 19:48) необходимо зарегистрироваться для просмотра ссылки
Хочу флуда и обсуждений! tongue.gif

На какую тему?
sVasilich
Вот - ФЛУД)
Vofka
Я не знаю о чем вы, но мне нравится этот смайлик icon_drug7.gif
и этот тоже icon_crazy7.gif

ЗЫ. необходимо зарегистрироваться для просмотра ссылки
SiWan
Цитата(Vofka @ 04.03.09, 11:11) необходимо зарегистрироваться для просмотра ссылки
Я не знаю о чем вы, но мне нравится этот смайлик icon_drug7.gif
и этот тоже icon_crazy7.gif

ЗЫ. необходимо зарегистрироваться для просмотра ссылки

а этот? 44000000.gif
ReDll
Господа, подскажите, что за расширение erf?
Всмысле - это у меня по-левому скачался файл или это расширение для 8ки а не для 7.7?
logist
Цитата(ReDll @ 04.08.09, 12:10) необходимо зарегистрироваться для просмотра ссылки
Господа, подскажите, что за расширение erf?
Всмысле - это у меня по-левому скачался файл или это расширение для 8ки а не для 7.7?

Это похоже на обработку для ТО в 8-ке
zetovich
не похоже, а так и есть!
MATEVI
Цитата(logist @ 04.08.09, 12:27) необходимо зарегистрироваться для просмотра ссылки
Это похоже на обработку для ТО в 8-ке

А ТО это тех. огляд ???? 44000000.gif smile.gif
logist
Цитата(MATEVI @ 04.08.09, 13:09) необходимо зарегистрироваться для просмотра ссылки
А ТО это тех. огляд ???? 44000000.gif smile.gif

У Вас ВАЗ-2108? cool.gif
MATEVI
Цитата(logist @ 04.08.09, 13:43) необходимо зарегистрироваться для просмотра ссылки
У Вас ВАЗ-2108? cool.gif

пока 15 smile.gif
ReDll


Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|с ВыбНачПериода по ВыбКонПериода;
|Магазин = Регистр.Взаиморасчеты.Магазин;
|Подразделение = Регистр.Взаиморасчеты.Подразделение;
|Клиент = Регистр.Взаиморасчеты.Клиент;
|ПриходнаяНакладная = Регистр.Взаиморасчеты.ТекущийДокумент.ПриходнаяНакладная.ТекущийДокумент;
|СуммаГрн = Регистр.Взаиморасчеты.СуммаГрн;
|Функция СуммаК = КонОст(СуммаГрн);
|Группировка Магазин упорядочить по Магазин.Наименование;
|Группировка Подразделение упорядочить по Подразделение.Наименование;
|Группировка Клиент упорядочить по Клиент.Наименование;
|Группировка ПриходнаяНакладная все;
|Условие(Магазин В тМагазин);
|Условие(Подразделение В тПодр);
|Условие(Клиент В тКлиент);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Магазин
Таб.ВывестиСекцию("Магазин");
Пока Запрос.Группировка(2) = 1 Цикл
// Заполнение полей Подразделение
Таб.ВывестиСекцию("Подразделение");
Пока Запрос.Группировка(3) = 1 Цикл
// Заполнение полей Клиент
Таб.ВывестиСекцию("Клиент");
Пока Запрос.Группировка(4) = 1 Цикл
// Заполнение полей ПриходнаяНакладная
Таб.ВывестиСекцию("ПриходнаяНакладная");
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");


Не выдает документы... Чего же нехватает??? 64000000.gif
Pepe
Не хватает шапки и комментариев. В шапке надо описать, что надо от процедуры, желательно выделить все цветами, чтоб красиво было.
Prozac
47067070.gif имхо !
ReDll
Мда....
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.