Имя: Пароль:
1C
1C 7.7
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      СПС
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший