|
Выгрузка справочник в текстовый документ txt | ☑ | ||
---|---|---|---|---|
0
r2d24
14.11.13
✎
15:08
|
Выгрузка справочник в текстовый документ txt
Написал код для выгрузки справочника "Валюты" из 1с 8.2 в txt. Код работает. Текст = новый ТекстовыйДокумент; Выборка=Справочники.Валюты.Выбрать(); Пока Выборка.Следующий() Цикл Стр=Строка(Выборка.Наименование); Стр2=Строка(Выборка.Код); Стр3=Строка(Выборка.Родитель); Текст.ДобавитьСтроку(Стр+"|"+Стр2+"|"+Стр3+"|"); КонецЦикла; Текст.Записать("D:\123.txt"); Подскажите как выгрузить справочник из 1с 7.7 Заранее спасибо |
|||
1
Михаил Козлов
14.11.13
✎
15:09
|
Примерно так же.
|
|||
2
r2d24
14.11.13
✎
15:11
|
(1) я знаю что языки на этих платформах похожи. Но в чем их различия я не знаю?
|
|||
3
Михаил Козлов
14.11.13
✎
15:13
|
(2) СП в 7-ке тоже есть.
|
|||
4
r2d24
14.11.13
✎
15:17
|
(3) что есть? я не понимаю?
|
|||
5
Serginio1
14.11.13
✎
15:20
|
||||
6
mikecool
14.11.13
✎
15:20
|
Текст = СоздатьОбъект("Текст");
остальное не меняется |
|||
7
r2d24
14.11.13
✎
15:25
|
(6) не не работает, ругается на цикл и переменную справочник.
|
|||
8
mikecool
14.11.13
✎
15:27
|
(7) ну дальше подумать надо
|
|||
9
r2d24
14.11.13
✎
15:27
|
По пробовал по другому, теперь на ошибки не ругается,
Только текстовый файл очищает Текст = СоздатьОбъект("Текст"); Выборка=СоздатьОбъект("Справочник.Валюты"); Пока Выборка=1 Цикл Стр=Строка(Выборка.Наименование); Стр2=Строка(Выборка.Код); Стр3=Строка(Выборка.Родитель); Текст.ДобавитьСтроку(Стр+"|"+Стр2+"|"+Стр3+"|"); КонецЦикла; Текст.Записать("D:\123.txt"); |
|||
10
kosts
14.11.13
✎
15:27
|
(9) Пока Выборка ???? =1 Цикл
|
|||
11
mikecool
14.11.13
✎
15:28
|
(10) ну а чо? ошибку то не вызывает
|
|||
12
r2d24
14.11.13
✎
15:29
|
(10) Следующий() -не работает.
|
|||
13
AllJoke
14.11.13
✎
15:29
|
// Обход элементов справочника
Спр = СоздатьОбъект("Справочник.Материалы"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент() = 1 Цикл // Дальнейшие действия с Спр.ТекущийЭлемент() сообщить("Наименование "+спр.Наименование+" Код "+спр.код); КонецЦикла; //А через запрос так: Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса =" |Период с Дата1 по Дата2; |Обрабатывать НеПомеченныеНаУдаление; |Спр = Справочник.Материалы.ТекущийЭлемент; |Группировка Спр упорядочить по Спр.Наименование;"; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Предупреждение("Запрос по элементам справочника не выполнился!"); Возврат; КонецЕсли; // Теперь вся выборка находится в объекте "Запрос" |
|||
14
AllJoke
14.11.13
✎
15:30
|
Я *уею от лентяев. гугл - первая ссылка.
|
|||
15
r2d24
14.11.13
✎
15:33
|
(14) ты наверное думаешь я не ищу, а сразу лезу на форум. Нет это не так.
Я не знаю что вы там пишите в гугле, что первая ссылка открывает то что нужно, у меня открывается все остальное, кроме нужного |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |