Форум программистов, компьютерный форум, киберфорум
Наши страницы
Войти
Регистрация
Восстановить пароль
Другие темы раздела
1С Помогите с регистрами. http://www.cyberforum.ru/1c/thread2063884.html
8.1. БП. Нужно создать отчет, выводящий количество материалов, ушедших на изготовление конкретной продукции, с указанием сумм поступления и номеров доукментов поступления. Задача усложняется тем,...
Перемещение по организациям 1С 8.1 1С
Подскажите, ктонибудь знает как осуществить перемещение товаров по ОРГАНИЗАЦИЯМ в УПП(платформа 8.1)
1С Ошыбка в скрипте
вот в етом скрипте есть 2 синтаксические ошыбки: Прараметри <<>?>Функции {Обработка.компоненти.форма.модуль(1)} Переменная не определена(функции) <<>>Функция вызова {Обработка...
1С Извлезение данных из фаила типа .dat Есть файл внутренняя структура которого известна, это база данных телефонных номеров имеет список полей : Phone , last name, first name, Middle Name, Street, building, apartament, addres, Country... http://www.cyberforum.ru/1c/thread2063881.html
1С отчет по клиентам http://www.cyberforum.ru/1c/thread2063880.html
Доброго времени суток всем. маюсь с отчетом, который должен выдавать сведения по закупкам клиентов. не могу понять, как в модуле сделать так, чтобы данные из расходной накладной выходили в таблицу с...
ЗиУП 1С
Начну со стандартной фразы: "Помогите начинающему программисту" Есть такой отчет "Утвержденное штатное расписание", мне нужно его немного переделать, делал делал и уперся в такую весч. Как...
1С 1c8 когда лучше использовать запрос, а когда выбор
Хочется в целях повышения образованности уточнить такой момент - когда в восьмерке лучше использовать прямой запрос, а когда выборку (спр.выбрать())? Просто насколько я знаю запросы работают быстрее...
1С Долгое выполнение отчета Собственно проблема такая - выполняю отчет валовая прибыль по поставщикам и чем больше период, тем долше он выполняется...выбрал период месяц, 40 минут выполнялся, не дождался, надоело ждать...причем... http://www.cyberforum.ru/1c/thread2063877.html
1С Профилактика http://www.cyberforum.ru/1c/thread2063876.html
Ситуацыя такая стоит сервер 1с платформа 1с 7.7 в сервере работают одновременно около 6-7 человек через удалённый рабочий стол Системник: Процесор 2ядерный 1 ядро -3 Ггрца оператиной памяти-4 Г в...
1С УТ 8.1 Ручные скидки в отчетах о розничных продажах Уважаемые коллеги, Одолел меня один трабл с отчетам о розничных продажах. Почти в каждом отчете, выгруженном с ККМ-оффлайн Штрих МИНИпос, у меня откуда-то появляются ручные скидки в... http://www.cyberforum.ru/1c/thread2063875.html
stoff
0 / 0 / 0
Регистрация: 17.07.2009
Сообщений: 8
21.07.2009, 09:11 0

формирование отчета в 1С 8.0

21.07.2009, 09:11. Просмотров 19252. Ответов 11
Метки (Все метки)

Ответ

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

Процедура ВыбПериодНажатие(Элемент)
НастройкаПериода = Новый НастройкаПериода;
НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода=0001-01-01, КонПериода, КонецДня(КонПериода)));
НастройкаПериода.РедактироватьКакИнтервал = Истина;
НастройкаПериода.РедактироватьКакПериод = Истина;
НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
Если НастройкаПериода.Редактировать() Тогда
НачПериода = НастройкаПериода.ПолучитьДатуНачала();
КонПериода = НастройкаПериода.ПолучитьДатуОкончания();
КонецЕсли;
КонецПроцедуры

а тут сама проблема:
само дело в чем, когда составляю складской документ выбираю отдельно процедуру (загрузка или отгрузка), вид семян которую мы используем, дальше транспортер (то по чем происходит загрузка или отгрузка в банки) и сама банка где хранится семена, банка одна и таже тока изменяются транспортреры (загружаем в банку по одному транспортеру или же выгружаем из банки по другому транспортеру).
когда ставлю загрузку по транспортеру (например 12) и банку (111) и вид семян (подсолнух) делаю проводку в отчете создается позиция, когда делаю отгрузку по транспортеру (12) и банку (111) и вид семян (подсолнух) то происходит отнимание и в ИтогоВидСемян отобразается остаток, но когда ставлю отгрузку по транспортеру (14) и банку (111) и вид семян (подсолнух) то происходит создание другой позиции в отчете где из банки (111) ничего не отнимается.
пробовал убрать группировки по регистратору у меня нечего не выводит

Вернуться к обсуждению:
формирование отчета в 1С 8.0
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.07.2009, 09:11

Проблема при формирование отчета в Рознице
Есть док. (рис.1), при формирование отчета др. сумма (рис.2), а при расшифровке ... не понятно от...

1C 8.1 Редактирование отчета созданного с помощью универсального отчета
Создал отчет с помощью универсального отчета, все работает, не получается сделать его &quot;красивым&quot;...

Формирование отчета СКД
Формирую отчет на СКД. В результате запроса получаем покупателя...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru