Имя: Пароль:
1C
1С v8
Подскажите, есть ли такая обработка
0 johnnik
 
17.02.12
10:10
Парни, сам я в 1С8 лишь начинаю кодить, поэтому, возможно, задам вопрос глупый и всем опытным прогерам известный.
--------
Итак: Была база 1С 8.2 Бухгалтерия предприятия (2.0.32.4), в которой велся учет по трем организациям. Руководство приняло решение разделить учет по разным базам (фирмы разрослись, раньше справлялся один бухгалтер со всеми конторами, теперь набирают штат и в единой базе неудобняк). Базу тупо дважды скопировали и теперь каждая организация ведет учет в своей базе. Однако, неплохо было бы очистить базу от документов других контор. Сам я написать подобную обработку не смогу (знаний по восьмерке маловато), но мне кажется, что должна быть обработка, позволяющая удалить (пометить) документы по каким-то фильтрам. Выбрал фирму, нажал "Выполнить" - и по ней все документы будут помечены на удаление. Ну, или по всем, кроме выбранной. Как-то так.

Если кто-то в курсе - подскажите плиз.
1 Капитан О
 
17.02.12
10:11
посмотри в сторону групповой обработки справочников и документов
2 Johnnie Z
 
17.02.12
10:18
выгрузить в РИБ по организации, потом отцепить
3 Johnnie Z
 
17.02.12
10:19
(2) хотя не, это сразу надо было делать
4 John83
 
17.02.12
10:39
(3) а сейчас чем не вариант?
только не риб, а просто обмен замутить
5 johnnik
 
17.02.12
11:01
(1) Посмотрел. Там нет возможности сделать отбор по Фирме (http://clip2net.com/s/1Bple). А дописать обработку, добавив этот отбор, у меня не получится.

(2,4) Не совсем понимаю, как это делать и что значит "просто обмен замутить". Базы не распределенные, насколько я могу судить, как их переделать в УРИБ - не представляю.
6 Tazuya
 
17.02.12
11:03
набросал, дарю:
//на форме обработки реквизит "Организация"

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Если организация.Пустая() Тогда
       Предупреждение("Не выбрана организация!");
       возврат;
   КонецЕсли;
   нн=0;колво=Метаданные.Документы.количество();
   Для Каждого ТекДок Из Метаданные.Документы Цикл
       ОбработкаПрерыванияПользователя();
       нн=нн+1;виддока=ТекДок.Имя;
         Сообщить("обр-ся "+виддока+" "+нн+"\"+колво);
       Если ТекДок.Реквизиты.Найти("Организация") = Неопределено Тогда
           продолжить;
       КонецЕсли;
       Запрос = Новый Запрос;
       Запрос.Текст = "ВЫБРАТЬ
                      |    док.Ссылка
                      |ИЗ
                      |    Документ."+виддока+" КАК док
                      |ГДЕ
                      |    док.Организация = &Организация";
       Запрос.УстановитьПараметр("Организация",Организация);
       Результат = Запрос.Выполнить();
       Выборка = Результат.Выбрать();
       нн1=0;колстрок1=выборка.Количество();
       Пока Выборка.Следующий() Цикл
            нн1=нн1+1;
            ОбработкаПрерыванияПользователя();
            состояние("обр-ся:"+нн1+"/"+колстрок1);
            //пом.на удал. доки
            док=выборка.ссылка.получитьобъект();
            док.УстановитьПометкуУдаления(истина);
       КонецЦикла;
   КонецЦикла;
КонецПроцедуры
7 ukolabrother
 
17.02.12
11:06
(0) Обработка то несложная получится, отбирать документы где есть реквизит организация, выбирать их ссылки и помечать на удаление.
8 ukolabrother
 
17.02.12
11:07
(6) вот же)
9 Баклажанов
 
17.02.12
11:40
есть! регистрируйся и скачивай http://goo.gl/GiLcc
10 Живой Ископаемый
 
17.02.12
11:44
Взять ВыгрузкуЗагрузкуДанныхХМЛ.епф.. Отметить галкой слева РБ Хозрасчетный, наложить отбор по организации, и поставить галки на всех объектах справа (выгружать при необходимости).
поставить галку "выгружать движения с документами".. и выгрузить..
11 zak555
 
17.02.12
11:45
(6) запрос в цикле - бЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭ
12 Живой Ископаемый
 
17.02.12
11:45
то есть ответ на вопрос в топике - да, есть такая обработка.. на каждом ИТС
13 Azverin
 
17.02.12
11:46
(6) работает))
14 Mort
 
17.02.12
12:02
(11) Для одноразовой обработки допустимо. Причем запросы то разные, ладно если бы параметр в цикле изменялся )
15 Tazuya
 
17.02.12
12:23
(11)оптимизируй если хочется возиться.там ограничение на 256 таблиц есть.
времени потратишь больше. чем работать будет
16 zak555
 
20.02.12
12:45
(15) В 2008 ?
17 zak555
 
20.02.12
12:45
+ есть же условие % 256
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс