|
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
|
(22) не угадал.
Справочник Найти по элементу |
|||
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)ахренеть.вот это безопасность
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |