G
Guest
Здравствуйте все!
У меня такая проблема: Есть список значений "СписокЦен"
Надо создать условие, чтобы значения типов цен из таблицы значений проверялись бы на принадлежность
списку значений "СписокЦен", наличию галочек в "СписокЦен" и обработка бы работала только с теми типами цен, которые отмечены "галочкой".
СписокЦен заполняется в другой процедуре.
Процедура Изменить()
ДатаИзм = РабочаяДата();
ВвестиДату(ДатаИзм,"Дата изменения цены");
Т.ВыбратьСтроки();
Для Б = 1 По Т.КоличествоСтрок() Цикл
Если Лев(Т.ПолучитьЗначение(Б,"Наим"),3) = "---" Тогда
Для А=5 По Т.КоличествоКолонок() Цикл
Зн = Т.ПолучитьЗначение(Б, А);
НомЭл = (А - 5)/2+2;
Цены.ИспользоватьВладельца(Т.ПолучитьЗначение(Б, "Товар"));
Если ТипыЦен.НайтиПоКоду(?(НомЭл>9,"000"+НомЭл,"0000"+НомЭл)) = 1 Тогда
Если Цены.НайтиПоРеквизиту("ТипЦен",ТипыЦен.ТекущийЭлемент(),0) = 1 Тогда
Если Зн <> Цены.Цена.Получить(ДатаИзм) Тогда
Цены.Цена.Установить(ДатаИзм,Зн);
Цены.Записать();
КонецЕсли;
КонецЕсли;
КонецЕсли;
А = А + 1;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
У меня такая проблема: Есть список значений "СписокЦен"
Надо создать условие, чтобы значения типов цен из таблицы значений проверялись бы на принадлежность
списку значений "СписокЦен", наличию галочек в "СписокЦен" и обработка бы работала только с теми типами цен, которые отмечены "галочкой".
СписокЦен заполняется в другой процедуре.
Процедура Изменить()
ДатаИзм = РабочаяДата();
ВвестиДату(ДатаИзм,"Дата изменения цены");
Т.ВыбратьСтроки();
Для Б = 1 По Т.КоличествоСтрок() Цикл
Если Лев(Т.ПолучитьЗначение(Б,"Наим"),3) = "---" Тогда
Для А=5 По Т.КоличествоКолонок() Цикл
Зн = Т.ПолучитьЗначение(Б, А);
НомЭл = (А - 5)/2+2;
Цены.ИспользоватьВладельца(Т.ПолучитьЗначение(Б, "Товар"));
Если ТипыЦен.НайтиПоКоду(?(НомЭл>9,"000"+НомЭл,"0000"+НомЭл)) = 1 Тогда
Если Цены.НайтиПоРеквизиту("ТипЦен",ТипыЦен.ТекущийЭлемент(),0) = 1 Тогда
Если Зн <> Цены.Цена.Получить(ДатаИзм) Тогда
Цены.Цена.Установить(ДатаИзм,Зн);
Цены.Записать();
КонецЕсли;
КонецЕсли;
КонецЕсли;
А = А + 1;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры