Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Помогите с реестром документов
|
|||
|---|---|---|---|
|
#18+
Здравствуйте, создал обработку, которая показывает за определенный период документы, могу выбирать, как сортировать по контрагенту, по складу. Создал так же список значений где указанны документы нужно так же сортировку по ним производить: например если выбираю "Реализация" то отчет формируется только по документам Реализация. Список значений сделал, а вот на них действие прописать не могу из головы совсем вылетело. Выкладываю свой листинг: //******************************************* Процедура ПриОткрытии(); СП.ДобавитьЗначение("ПриходТовара"); СП.ДобавитьЗначение("Реализация"); СП.ДобавитьЗначение("Счет"); СП.ДобавитьЗначение("ЗаказПоставщику"); СП.ДобавитьЗначение("Перемещение"); СП.ДобавитьЗначение("Оплата"); КонецПроцедуры //******************************************* Процедура Сформировать() Док=СоздатьОбъект("Документ");//попадают документы всех типов Таб=СоздатьОбъект("Таблица");//создаем таблицу Таб.ИсходнаяТаблица("Реестр");//присваеваем таблице имя Таб.ВывестиСекцию("Шапка"); КонтрИзДока=""; СкладИзДока=""; Док.ВыбратьДокументы(НачДата,КонДата); Пока Док.ПолучитьДокумент()=1 Цикл // проверка полученных документов Попытка КонтрИзДок=Док.Контрагент;// приравниваем, что выбраный контрагент имется в реквизите документа СкладИзДоку=Док.Склад;// приравниваем, что выбраный склад имется в реквизите документа Исключение Продолжить; КонецПопытки; Если ВыбСклад.Выбран()=1 Тогда Если Док.Склад<>ВыбСклад Тогда//выполняется условие если скалд выбрат то формируем отчет Продолжить; КонецЕсли; КонецЕсли; Если ВыбКонтр.Выбран()=1 Тогда Если Док.Контрагент<>ВыбКонтр Тогда//выполняется условие если скалд выбрат то формируем отчет Продолжить; КонецЕсли; КонецЕсли; Таб.ВывестиСекцию("Элемент"); КонецЦикла; Таб.ТолькоПросмотр(1); Таб.Показать("Реестр"); КонецПроцедуры ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.04.2009, 05:12 |
|
||
|
Помогите с реестром документов
|
|||
|---|---|---|---|
|
#18+
Я так понял, что "сортировка" - это отбор..:) ВидДок=""; СП.ПолучитьЗначение(СП.ТекущаяСтрока(),ВидДок); Пока Док.ПолучитьДокумент()=1 Цикл Если Док.Вид()<>ВидДок Тогда Продолжить; КонецЕсли; .....ну и т.д.... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.04.2009, 10:42 |
|
||
|
Помогите с реестром документов
|
|||
|---|---|---|---|
|
#18+
а в чем собственно вопрос? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.04.2009, 11:58 |
|
||
|
|

start [/forum/topic.php?fid=28&fpage=143&tid=1523783]: |
0ms |
get settings: |
12ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
55ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
80ms |
get tp. blocked users: |
2ms |
| others: | 296ms |
| total: | 483ms |

| 0 / 0 |
