|
v7: Загрузка даных из текстового файла в 1С 7.7 | ☑ | ||
---|---|---|---|---|
0
SKOP
30.05.12
✎
16:00
|
в Текстовом документе есть поля
Услуга Стоимость услуги УНН И это все нужно загрузить в 1С документ |
|||
1
miki
30.05.12
✎
16:00
|
сделай! (с)
|
|||
2
ДенисЧ
30.05.12
✎
16:00
|
5000 тысяч рублей
|
|||
3
chief accountant
30.05.12
✎
16:01
|
4999 руб
|
|||
4
Wobland
30.05.12
✎
16:01
|
это он хвастается
|
|||
5
Wobland
30.05.12
✎
16:02
|
или учебник сюда пишет
|
|||
6
andrewalexk
30.05.12
✎
16:03
|
:)..загрузить в 1с всем скопом?
|
|||
7
SKOP
30.05.12
✎
16:04
|
Скиньте пример
|
|||
8
andrewalexk
30.05.12
✎
16:04
|
:) в типовых вроде есть
|
|||
9
chief accountant
30.05.12
✎
16:04
|
(7) читай (2)(3)
|
|||
10
SKOP
30.05.12
✎
16:05
|
а где в теповом скиньте сылку
|
|||
11
miki
30.05.12
✎
16:06
|
Пример:
Процедура ЗагрузкаПродукцииПоКаталогу() Прод = СоздатьОбъект("Справочник.ГотоваяПродукция"); Если ВыбГруппа.Выбран() = 0 Тогда Предупреждение("Ошибка! Не выбрана группа!"); Возврат; ИначеЕсли ВыбГруппа.ЭтоГруппа() = 0 Тогда Предупреждение("Не выбрана группа! Загрузка в корень!"); Иначе Тов.ИспользоватьРодителя(ВыбГруппа); КонецЕсли; Текст = СоздатьОбъект("Текст"); Текст.Открыть(ИмяФайла); Если Текст.КоличествоСтрок() = 0 Тогда Предупреждение("Текст пустой!"); Возврат; КонецЕсли; Для Ном = 1 По Текст.КоличествоСтрок() Цикл Стр = Текст.ПолучитьСтроку(Ном); Поле = 0; Пока СтрДлина(Стр) > 0 Цикл Поле = Поле + 1; Инд = Найти(Стр, "-"); Если Инд > 0 Тогда Стр1 = Сред(Стр, 2, Инд - 3); Стр = Сред(Стр, Инд + 1); Иначе Стр1 = Сред(Стр, 2, (СтрДлина(Стр) - 2)); Стр = ""; КонецЕсли; Если Поле = 1 Тогда Код = Стр1; ИначеЕсли Поле = 2 Тогда Имя = Стр1; КонецЕсли; КонецЦикла; Прод.НоваяГруппа(); Сообщить(Формат(Ном, "ЧЗ") + "-загрузка: " + Формат(Код, "45") + ":" + Имя); Прод.Наименование = Имя; Прод.Код = Число(Код); Прод.Записать(); Сообщить(" — Загружен!"); КонецЦикла; КонецПроцедуры (с)ЖКК |
|||
12
Wobland
30.05.12
✎
16:06
|
(10) где уже искал? ты же уже поискал сам?
|
|||
13
SKOP
30.05.12
✎
16:07
|
P.S СПС
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |