powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Помогите с реестром документов
4 сообщений из 4, страница 1 из 1
Помогите с реестром документов
    #35962404
dmd-ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте, создал обработку, которая показывает за определенный период документы, могу выбирать, как сортировать по контрагенту, по складу. Создал так же список значений где указанны документы нужно так же сортировку по ним производить: например если выбираю "Реализация" то отчет формируется только по документам Реализация. Список значений сделал, а вот на них действие прописать не могу из головы совсем вылетело.
Выкладываю свой листинг:
//*******************************************
Процедура ПриОткрытии();
СП.ДобавитьЗначение("ПриходТовара");
СП.ДобавитьЗначение("Реализация");
СП.ДобавитьЗначение("Счет");
СП.ДобавитьЗначение("ЗаказПоставщику");
СП.ДобавитьЗначение("Перемещение");
СП.ДобавитьЗначение("Оплата");
КонецПроцедуры

//*******************************************
Процедура Сформировать()
Док=СоздатьОбъект("Документ");//попадают документы всех типов
Таб=СоздатьОбъект("Таблица");//создаем таблицу
Таб.ИсходнаяТаблица("Реестр");//присваеваем таблице имя
Таб.ВывестиСекцию("Шапка");
КонтрИзДока="";
СкладИзДока="";
Док.ВыбратьДокументы(НачДата,КонДата);

Пока Док.ПолучитьДокумент()=1 Цикл // проверка полученных документов
Попытка
КонтрИзДок=Док.Контрагент;// приравниваем, что выбраный контрагент имется в реквизите документа
СкладИзДоку=Док.Склад;// приравниваем, что выбраный склад имется в реквизите документа
Исключение
Продолжить;
КонецПопытки;
Если ВыбСклад.Выбран()=1 Тогда
Если Док.Склад<>ВыбСклад Тогда//выполняется условие если скалд выбрат то формируем отчет
Продолжить;
КонецЕсли;
КонецЕсли;
Если ВыбКонтр.Выбран()=1 Тогда
Если Док.Контрагент<>ВыбКонтр Тогда//выполняется условие если скалд выбрат то формируем отчет
Продолжить;
КонецЕсли;
КонецЕсли;
Таб.ВывестиСекцию("Элемент");
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.Показать("Реестр");
КонецПроцедуры
...
Рейтинг: 0 / 0
Помогите с реестром документов
    #35962794
Фотография bot67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я так понял, что "сортировка" - это отбор..:)

ВидДок="";
СП.ПолучитьЗначение(СП.ТекущаяСтрока(),ВидДок);

Пока Док.ПолучитьДокумент()=1 Цикл
Если Док.Вид()<>ВидДок Тогда
Продолжить;
КонецЕсли;

.....ну и т.д....
...
Рейтинг: 0 / 0
Помогите с реестром документов
    #35963049
Хитроглазый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а в чем собственно вопрос?
...
Рейтинг: 0 / 0
Помогите с реестром документов
    #35963067
Фотография bot67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хитроглазыйа в чем собственно вопрос?
Это ответ :)
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Помогите с реестром документов
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]