выгрузка в txt файл
|
sw0
08.04.2009 - 13:01
|
заранее извиняюсь, если что-то не так опишу - мой профиль - не 1С но жизненнно важно написать обработчик: задача перед обработчиком стоит такая есть Справочник.Заявки есть столбцы справочника Строка1(тип данных - строка) Номер1 (тип данных - строка) ТипЗаявки (тип данных - перечисление) надо сформировать текстовый документ следующего вида: содержимое ячейки Строка1; содержимое ячейки Номер1; содержимое ячейки ТипЗаявки; при условии что выбираются только те ТипЗаявки значение неравно "Срочная" --- это то что наваял я //******************************************* Процедура Сформировать() перем текст, текстовыйФайл, спр; текстовыйФайл = "C:\файл.txt"; текст = СоздатьОбъект("Текст"); спр = СоздатьОбъект("Справочник.Заявки"); если спр.ВыбратьЭлементы()=1 тогда пока спр.ПолучитьЭлемент()=1 цикл если спр.Статус.Получить() = Перечисление.СтатусыТипЗаявки.Выдано тогда строка = спр.Строка1; номер1 = спр.Номер1; текст.ДобавитьСтроку(строка(сторка1) + " ; " + строка(номер1)); конецЕсли; конецЦикла; конецЕсли; текст.Записать(текстовыйФайл); КонецПроцедуры на этом мысли кончились... |