Имя: Пароль:
1C
1C 7.7
v7: Кто сможет помочь с обработкой
🠗 (andrewks 05.09.2012 21:56)
,
0 work92
 
05.09.12
11:22
Если кто не сильно занят вышлю обработку
1 work92
 
05.09.12
11:23
Гефест поможешь
2 ПиН
 
05.09.12
11:23
зачем высылать? сюда пости
3 Ёпрст
 
05.09.12
11:23
500 р
4 work92
 
05.09.12
11:24
для проверики если можеши кинь свое мыло
5 PuhUfa
 
05.09.12
11:24
Найти по элементу
кто то явно хочет в баню
6 Vladal
 
05.09.12
11:24
ты ж напиши, что она делает. А то вдруг она консолидирует всё данные, что есть - ексели, скули, восьмерки с акцесами.
7 ОбычныйЧеловек
 
05.09.12
11:24
(1) тогда уж Ёпрст4 проси :) он в 7ке ас. Правда сумневаюсь, что он альтруист :)
8 ДенисЧ
 
05.09.12
11:25
чозабред? с таким описанием - от 5 000 рублей.
9 work92
 
05.09.12
11:28
Процедура Выполнить()
   Сп=СоздатьОбъект("СписокЗначений");
   СпрПлат=СоздатьОбъект("Справочник.Покупатели");
   СпрСпис=СоздатьОбъект("Справочник.Списание");
   
   СпрПлат.ВыбратьЭлементы();
   
   Пока СпрПлат.ПолучитьЭлемент()=1 цикл  
       Если СпрПлат.ЭтоГруппа()=0 тогда  
               СпрСпис.ИспользоватьВладельца(СпрПлат.ТекущийЭлемент());  
               СпрСпис.ВыбратьЭлементы();  
           Пока    СпрСпис.ПолучитьЭлемент()=1 цикл
                      //так она работает но раставляет всем число и неучитывает сколько товара...это нужно удалить
                       СпрСпис.Сумма=434545;
                   СпрСпис.Записать();
                    ////помоги вставить нижний зеленый код чтоб обработка работала правильно......
           КонецЦикла;    
                 КонецЕсли;
                     КонецЦикла;
       
       //    Если Сп.РазмерСписка()=1 тогда
           //    Для н=1 по Сп.РазмерСписка() цикл  
             
               
               ///    СпрСпис.Сумма=434545;
               //    СпрСпис.Записать();  
                      // КонецЕсли;
           //    КонецЦикла;
           
           //    ИначеЕсли Сп.РазмерСписка()>=2 тогда
           //    Для н=1 по Сп.РазмерСписка() цикл  
             
               
               ///    СпрСпис.Сумма=5555555;
               //    СпрСпис.Записать();  
                      // КонецЕсли;
           //    КонецЦикла;
           
           //КонецЕсли;
ззззззззззззззззззззззззззззззззззззззз
10 del123
 
05.09.12
11:29
жесть какая )))
11 Valeriya1C
 
05.09.12
11:30
А что нужно сделать?
12 work92
 
05.09.12
11:30
я знаю
13 ПиН
 
05.09.12
11:31
(12) так чо не работает-то?
14 del123
 
05.09.12
11:31
переходим от сложных задач к более простым?
Справочник Найти по элементу
Это то заставил работать?))
15 work92
 
05.09.12
11:33
что-бы проверяла в справочнику списание сколько элементов если 2то ставила сумму 5555555
если 1 то сумму 434545
16 work92
 
05.09.12
11:33
ПиН кинь мыло
17 Тарантул
 
05.09.12
11:35
(15) почему не  777777?
18 work92
 
05.09.12
11:35
я сумму в пример взял
19 Segate
 
05.09.12
11:36
Тема огонь )))

утренний позитив
20 Надсмотрщик
 
05.09.12
11:39
(0) Что в итоге хочешь получить?
21 aka AMIGO
 
05.09.12
11:41
странно.. зачем по две темы выставлять?
22 GreyK
 
05.09.12
11:53
(0) Так что-ли надо?
//*******************************************
Процедура Выполнить()
   Сп=СоздатьОбъект("СписокЗначений");
   СпрПлат=СоздатьОбъект("Справочник.Покупатели");
   СпрСпис=СоздатьОбъект("Справочник.Списание");
   
   СпрПлат.ВыбратьЭлементы();
   
   Пока СпрПлат.ПолучитьЭлемент()=1 цикл  
       Если СпрПлат.ЭтоГруппа()=0 тогда
           СП = СоздатьОбъект("СписокЗначений");
           СпрСпис.ИспользоватьВладельца(СпрПлат.ТекущийЭлемент());  
           СпрСпис.ВыбратьЭлементы();  
           Пока     СпрСпис.ПолучитьЭлемент()=1 цикл
               Если СпрСпис.ПометкаУдаления() = 1 Тогда
               ИначеЕсли СпрСпис.ЭтоГруппа() = 0 Тогда
                   СП.ДобавитьЭлемент(СпрСпис.ТекущийЭлемент());
               КонецЕсли;
           КонецЦикла;
           Если Сп.РазмерСписка()=1 тогда
               СпрСпис.НайтиЭлемент(Сп.ПолучитьЗначение(1));
               СпрСпис.Сумма=434545;
               СпрСпис.Записать();  
           ИначеЕсли Сп.РазмерСписка()>=2 тогда
               
               Для н=1 по Сп.РазмерСписка() цикл  
                   СпрСпис.НайтиЭлемент(Сп.ПолучитьЗначение(н));
                   СпрСпис.Сумма=5555555;
                   СпрСпис.Записать();  
               КонецЦикла;
               
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;
   
   
   
КонецПроцедуры    
   //ззззззззззззззззззззззззззззззззззззззз
23 Ёпрст
 
05.09.12
11:54
24 Злой Бобр
 
05.09.12
21:47
(22) Неправильно. Садись, два.
25 ProProg
 
05.09.12
21:49
автор отправляет вирусняк со взломом банк-клиента, у нас кстати сегодня вирусняк 4 платежки на 700 штук отправил и подписал.
чуть 2 лямов не лишились. банк вовремя заметил и заподозрил. с чем и извистил.
26 Ranger_83
 
05.09.12
21:50
(25)ахренеть.вот это безопасность
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс