Имя: Пароль:
1C
1С v8
Как перестроить цикл с массивом
0 progaoff
 
30.07.19
12:55
Если Не СуммаРаспределения = Неопределено Тогда    
        Для Каждого СтрокаТЧ Из ЭтотОбъект.Товары Цикл    
            Для i = 0 По ЭтотОбъект.Товары.Количество()-1 Цикл    
                ЭлементМассива= СуммаРаспределения[i];
                Проводка = Проводки.Добавить();
                Проводка.Период                   = ЭтотОбъект.Дата;
                Проводка.Организация              = ЭтотОбъект.Организация;        
                Проводка.СчетДт       = Счет15_02;
                Курс                               = МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаДокумента, Дата);
                    Проводка.Сумма            =    Окр(СтрокаТЧ.Сумма*Курс.Курс/Курс.Кратность,4)-(ЭлементМассива);    
                    
            КонецЦикла;
    КонецЦикла;        
    КонецЕсли;
Добрый день. Подскажите пожалуйста как мне переделать цикл, что бы обойти ТЗ и одновременно по ней распределить элементы массива в один заход?
1 Жан Пердежон
 
30.07.19
13:00
а чем сложность?
2 progaoff
 
30.07.19
13:01
(1)  Для i = 0 По ЭтотОбъект.Товары.Количество()-1 Цикл вот в этом.
3 catena
 
30.07.19
13:05
(2)Чем это мешает?
4 Garykom
 
гуру
30.07.19
13:05
Задачу нормально опиши и попробуй СЛОВАМИ описать АЛГОРИТМ как предполагаешь решать
5 progaoff
 
30.07.19
13:06
(4) Есть некая сумма, она распределяется относительно строкам в таб части, возвращает массив, в нем суммы которые мне нужно отминусовать от строк в ТЧ.
6 catena
 
30.07.19
13:12
ЭлементМассива= СуммаРаспределения[СтрокаТЧ.НомерСтроки-1];
7 progaoff
 
30.07.19
13:12
Без этого  Для i = 0 По ЭтотОбъект.Товары.Количество()-1 Цикл  ?
8 lodger
 
30.07.19
13:15
(7) без.
9 progaoff
 
30.07.19
13:15
Спасибо огромное)
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.