| 
    
            
         
         | 
    
  | 
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      СПС     
         | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |