Имя: Пароль:
1C
1C 7.7
v7: Перепровести документ
Ø (Mikeware 06.07.2012 11:30)
0 SKOP
 
06.07.12
11:18
Подскажите есть документы проведеные и помеченые на удаление нужно перепровести те дакументы которые были проведены(а помеченые на удаление не трогать)обработкай
1 SKOP
 
06.07.12
11:19
У меня проводит все если можете киньте пример кода
2 ЧеловекДуши
 
06.07.12
11:20
Пригласите специалиста :)
3 SKOP
 
06.07.12
11:21
там кода пару строк
4 ЧеловекДуши
 
06.07.12
11:21
Дарю, там много кода, и даже такого, которого нет нигде ;)
http://www.zipsites.ru/?n=15/10/2/&s=1&show=3
5 ЧеловекДуши
 
06.07.12
11:21
(3)Без проблем... 4000 р
6 НастоящееИмя
 
06.07.12
11:24
Есть стандартная обработка
7 План счетов
 
06.07.12
11:26
(1) покажи свой код
8 BlackSeaCat
 
06.07.12
11:26
+(6) Более того, она встроена в большинство конфигураций.
9 SKOP
 
06.07.12
11:27
Мой код
  Процедура Выполнить()
   Док = СоздатьОбъект("Документ.ПерерасчетПН");
   

   
   Док.ВыбратьДокументы();
   Пока Док.ПолучитьДокумент()=1 Цикл
           
       Если Док.Проведен()=1 Тогда
         
                 
               Док.Провести();
           Исключение
               Сообщить("Ошибка!");
             
               СтатусВозврата(0);
               Возврат;
           КонецПопытки;
       КонецЕсли;
   КонецЦикла;
   



КонецПроцедуры
10 НастоящееИмя
 
06.07.12
11:27
(8) Одназначна
11 fedoss
 
06.07.12
11:28
УстановитьФильтр(<Проведенные>,<НеПроведенные>,<НеИмеющиеПризнаковУчета>,<Оперативные>,<Расчетные>,<Бухг>)
Назначение:
Назначить фильтр выборки документов.
12 НастоящееИмя
 
06.07.12
11:28
(9)А где Попытка?
13 SKOP
 
06.07.12
11:29
напишите кодом плиз
14 Ork
 
06.07.12
11:29
"которые были проведены(а помеченые на удаление не трогать)"
...
"У меня проводит все"

Стесняюсь спросить - и помеченные на удаление тоже?
15 НастоящееИмя
 
06.07.12
11:29
Если Док.ПометкаУдаления()=0 Тогда
16 SKOP
 
06.07.12
11:29
да
17 SKOP
 
06.07.12
11:30
0 это провести или нет
18 Mikeware
 
06.07.12
11:30
(13) авотхуй!©
работай сам.
19 Партизан
 
06.07.12
11:30
в типовой и на ИТС уже все есть
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс