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

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

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

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

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

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


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