(Глюк!) Не сворачивается Таблица значений
|
Lamour_secret
26.06.2009 - 03:59
|
КС = Новый КвалификаторыСтроки(); Массив = Новый Массив; Массив.Добавить(Тип("Строка")); ТипСтрока = Новый ОписаниеТипов(Массив, ,КС); тзНевЛиц = Новый ТаблицаЗначений; //Неверные лицензии тзНевЛиц.Колонки.Добавить("Контрагент",ТипСтрока);// итогг = ЗапросС.Выполнить().Выбрать(); пока итогг.Следующий() цикл попытка новаястрока.ПолЛицСерия = Сред(итогг.значение,1,1); новаястрока.ПолЛицНомер = Сред(итогг.значение,2,6); дат = (Сред(итогг.значение,31,8)); //02.02.08 датНаоборот = "20"+Сред((дат),7,2)+Сред((дат),4,2)+Сред((дат),1,2); новаястрока.ПолЛицДата = Дата(датНаоборот); дат = (Сред(итогг.значение,43,8)); //02.02.08 датНаоборот = "20"+Сред((дат),7,2)+Сред((дат),4,2)+Сред((дат),1,2); новаястрока.ПолЛицДатаК = Дата(датНаоборот); //новаястрока.ПолЛицКем; //кем, не указано исключение нс = тзНевЛиц.Добавить(); нс.Контрагент = Выборка.Регистратор.контрагент.наименование; конецпопытки; конеццикла; тзНевЛиц.Свернуть("Контрагент",""); Для каждого строк из тзНевЛиц Цикл сообщить("Неверно указана лицензия у: "+строк.контрагент); КонецЦикла; |