1С:Предприятие 8.2 (8.2.16.368)
Бухгалтерия предприятия, редакция 2.0 (2.0.41.4)
Загрузку исполняю...вот код:
Услуги = НовыйДокумент.Услуги.Добавить();        
   
   Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("КодФиделио",СтрЗаменить(Массив[5],Символ(34),""));        
   Услуги.Номенклатура=Номенклатура.Ссылка;
   Услуги.Транзакция = Массив[2];
   Услуги.Цена= Массив[11];
   Услуги.Количество= Массив[12];
   Услуги.Сумма = Массив[12]*Массив[11];
   Услуги.Гость = СтрЗаменить(Массив[24],Символ(34),"");
   Услуги.НомерПостоянногоСчета = СтрЗаменить(Массив[33],Символ(34),"");
   Услуги.НомерЧека = СтрЗаменить(Массив[38],Символ(34),"");
   Услуги.Субконто=Номенклатура.НоменклатурнаяГруппа;
   Услуги.КодФиделио= Массив[5];
   
УСЛОВИЯ ТАКОВЫ:


Если СтрЗаменить(Массив[5],Символ(34),"")<>"1" и СтрЗаменить (Массив[11], Символ(34),"")<>"0"  тогда
              Если  СтрЗаменить(Массив[5],Символ(34),"")<= "204" и СтрЗаменить (Массив[11], Символ(34),"")<>"0" тогда
, теперь для элемента нужно условия ставить например больше206 меньше или равно 219 - как это в 1с прописывать? -значение между ..

(Значение > 1111) И (Значение < 2222)

(1)Спасибо!

?(Значение>206, Значение <= 219, Ложь)

(3) а прикольно

Жуть какая.


Писать в коде Массив[<КонстантаЧисло>] все равно что НайтиПоНаименованию(<КонстантаСтрока>)

(0)
Отличный код
Никто тебя не заменит - фирма будет дорожить твоим присутствием

(6)не поняла что за подвох?

Код услуги так хочу чтобы дальше справлялись самостоятельно понимали что если в таком то диапазоне-тогда питание, в другом диапазоне-значит проживание, в третьем диапозоне-там ещё кому реализацию сформировать..там кодов тьма..

опиши еще дополнительно структуру, которая будет описывать соответствие индекса в массиве и семантики значения в соответствующей позиции

(('0001-01-01-0000'+206)-Значение) -(('0001-01-01-0000'+Значение)-219)

3

   
(('0001-01-01-0000'+206)-Значение) -(('0001-01-01-0000'+Значение)-219) = 0

(10) (11) ещё пару раз, и ты вызовешь сатану

(12)
неа.
хоть и пятница, но 13 уже вера было.

*вчера

(11)не поняла....но попробую все варианты-добиваюсь быстрого обхода ..в файле 1000 строк..и все в разброс..коды услуг разбросаны по диапазонам..-менять их уже нельзя в исходной системе..Дорогие мистеры спасибо всем от всей души!!!!!!

у вас там строки или числа?

(11)
+
ошибка. 206 тоже попадет
(('0001-01-01-0000'+206 + 1)-Значение) -(('0001-01-01-0000'+Значение)-219) = 0

(17)не надоело?

Символ(34) это """"
В связи с этим гуманнее смотрелось бы

Услуги.Гость                 = УбратьКавычки(Массив[24]);
Услуги.НомерПостоянногоСчета = УбратьКавычки(Массив[33]);
Услуги.НомерЧека             = УбратьКавычки(Массив[38]);

Функция УбратьКавычки(с)
   Возврат СтрЗаменить(с, """", "");
КонецФункции



И тут

Услуги.КодФиделио= Массив[5];

Скорее всего нужно заменить на

Услуги.КодФиделио = СтрЗаменить(Массив[5],Символ(34),"")


(16)и строки и числа и даты-элементы массива могут быть

(19) да так проще гораздо..убрать их..

(18)
макс(219, Значение) - Мин(206+1,Значение)<= 219-206-1

ok

(23)
ты эта...
мои посты не читай. ибо они просто пятничный флуд.

(24)Хорошо)))

Мне надо такой обход строк сделать с такими условиями:
Если  СтрЗаменить(Массив[5],Символ(34),"")<> "205" и СтрЗаменить(Массив[5],Символ(34),"")< "220" тогда
             Если СтрЗаменить(Массив[5],Символ(34),"")> "399" и СтрЗаменить (Массив[5], Символ(34),"")<"921" тогда
                  Если СтрЗаменить(Массив[5],Символ(34),"")= "302" и СтрЗаменить (Массив[5], Символ(34),"")="311" и СтрЗаменить (Массив[5], Символ(34),"")="313" тогда
                      Если СтрЗаменить(Массив[5],Символ(34),"")>="993" и СтрЗаменить (Массив[5], Символ(34),"")<="999" тогда

Но условие сложно не обрабатывается..

о мои глаза!

замуж, срочно замуж!

да я знаю,надо..но не знаю как такое условие сложно написать) это я специально так написала-чтобы понятно было..что необходимо

Много "ЕСЛИ" что нельзя? а что можно вместо того? найти не могу подходящего метода....или что.цикл для каждого условия???

(31) СтртЗаменить... Магические строки... это все сильно усложняет

А если передам в другой параметр СтрЗаменить-условие сработает?

Хотя нет.

(33) не знаю... смотря что на входи и что на выходе хочется получить

*входе

Пока Док.Sheets(1).Cells(счСтроки,1).Value <>Неопределено Цикл
   Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
   //////////////Формирование массива услуги    
   Массив = Новый Массив(42);
          Для Сч=1 По 42 Цикл
           Позиция = Найти(Стр, ",");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
           КонецЦикла;

вход

Выход:
Услуги = НовыйДокумент.Услуги.Добавить();        
   
   Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("КодФиделио",СтрЗаменить(Массив[5],Символ(34),""));        
   Услуги.Номенклатура=Номенклатура.Ссылка;
   Услуги.Транзакция = Массив[2];
   Услуги.Цена= Массив[11];
   Услуги.Количество= Массив[12];
   Услуги.Сумма = Массив[12]*Массив[11];
   Услуги.Гость = СтрЗаменить(Массив[24],Символ(34),"");
   Услуги.НомерПостоянногоСчета = СтрЗаменить(Массив[33],Символ(34),"");
   Услуги.НомерЧека = СтрЗаменить(Массив[38],Символ(34),"");
   Услуги.Субконто=Номенклатура.НоменклатурнаяГруппа;
   Услуги.КодФиделио= Массив[5];

ты CSV чтоли разбираешь?

да, именно

вход - это не твой "код", а исходные данные

Так к сведению, чтобы не стало неожиданностью...


Сообщить("Результат:");
Для ч = 1 По 999 Цикл
   с = Строка(ч);
   Если с > "399" и с < "921" Тогда
       Сообщить(с);
   КонецЕсли;
КонецЦикла;

Результат:

4
5
6
7
8
9
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
...
...
917
918
919
920


условие для элемента загрузки нужно задать такое кривое..

(41) я офигеть какой телепат... грузи через ADO, ну или хотя бы экселем открывай так, чтобы в разных колонках были значения.

а то твой "код" по распиливанию по запятым и замене кавычек на пусто - не подходит для парсинга CSV

ADO.. значит условие никак в csv?

(47) условие - как. но у тебя изначально файл неправильно парсится.
например:
"Превед, кросавчег!",5
это две колонки, а у тебя получится 3

Если  СтрЗаменить(Массив[5],Символ(34),"")<> "205"
               тогда
             Если СтрЗаменить(Массив[5],Символ(34),"")> "399" и СтрЗаменить (Массив[5], Символ(34),"")<"921" тогда



Вот такое условие обрабатывается как надо загрузка происходит

Ой кроме первой строки там коммен

Если СтрЗаменить(Массив[5],Символ(34),"")> "399" и СтрЗаменить (Массив[5], Символ(34),"")<"921" тогда


это загружается

Если  СтрЗаменить(Массив[5],Символ(34),"")<> "205"
               тогда
              Если СтрЗаменить(Массив[5],Символ(34),"")> "100" и СтрЗаменить (Массив[5], Символ(34),"")<"921" тогда

И так загружает))

это потому что повезло. а если сделать правильно - то избавишься от СтрЗаменить, которое, кстати, если там есть строки с кавычками - корежит их. ну и по факту - непонятно, зачем использовать эксель, если ты используешь его ровно как ТекстовыйДокумент или ЧтениеТекста?

(0) Может, если в начале проверки добавить строку вида

КодФиделиоЧислом = Число(СтрЗаменить(Массив[5],Символ(34),""));

станет немного легче?   :0)

Выгрузка из другой системы в формате csv я не могу её изменить...приходится массив перебирать

(55) присвоить  переменную для элемента массива? так это называется?

(57) Поскольку вся куча проверок с конструкцией СтрЗаменить(), как я понимаю, происходит в цикле, проще в начале цикла получить один раз КодФиделиоЧислом, чтобы потом не заменять каждый раз во всех проверках ковычки…

Может ты этого хочешь?


c = СтрЗаменить(Массив[5],Символ(34),"");
Если с <> "205" и с < "220" тогда
   ...
ИначеЕсли с > "399" и с < "921" тогда
   ...
ИначеЕсли с = "302" и с ="311" и с ="313" тогда
   // Сюда никогда не попадем
ИначеЕсли с >= "993" и с <="999" тогда
   ...


(59) да вот так и хочу-я сейчас попробую так -может получиться

(58)да это так

(59) вот именно так и хотела, но не грузит условие видимо длинное слишком..я попробую разбить в циклах условие пусть два раза обходит строки

быстродействие конечно отдыхает в таком случе

эххх, на пенсии понаеду в МариЭл красивей девушек чем в Йошкар -Оле не видел

(63)
>быстродействие конечно отдыхает в таком случе
уже работает ?!

дожить бы только до пенсии

(64) Девушки красивые по всей России)

(65)нет пока предположила.жаль что условие если ИначеЕсли-не хочет сложное обрабатывать...

(66)Доживете обязательно!

(67)Да ладно у Вас их количество на кв метр зашкаливает

Да, я сама из родом Челябы, живу и работаю в Казани, отдыхаю в Марийке)Много не замужних и красивых-везде)

по теме ты уверена что у тебя именно условия долго обрабатываются, скорее всего тормоза не в условиях, они в лет отрабатываться должны, скорее всего цикл в цикле несколько раз, либо загрузка медленная

ну да ладно...слава богу мужчины тоже отличные есть! так 1с 1с...сейчас ещё вариант накину-сообщу результат и код

Вылоу весь код-он сложный очень

(74) Почему-то верю, что сложный ...

В челябинске кстати реально мужики суровые )). К нам в часть один из наборов оттуда приходил, я уже в запас уходил особо с ними дела не имел, но как -то услышал их спор чем отличается муха от пчелы (при этом они дружно пчелой называли шмеля, сухой трупик где то нашли), в итоге двое даже подрались(так и не решили кто больше меда дает оса или пчела) )). А дело происходило на полевом выходе в минус 25 в обледеневшей палатке. Дети с большими яйцами.

Да, мы Челябинцы суровые, но добрые)

Женщины имею ввиду-мужчины то само собой..лучше не спорить с ними

Внимание весь код:
Процедура КнопкаВыполнитьНажатие(Кнопка)
//////////////////Выбор документов "Реализация"    для сравнения транзакций
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    РеализацияТоваровУслуг.Ссылка,
                  |    РеализацияТоваровУслуг.Контрагент,
                  |    РеализацияТоваровУслуг.Услуги.(
                  |        Транзакция
                  |    )
                  |ИЗ
                  |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
                  |ГДЕ
                  |    РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания";
   
   Запрос.УстановитьПараметр("ДатаНачала",НачалоДня(ЭлементыФормы.ДатаНач.Значение) );
   Запрос.УстановитьПараметр("ДатаОкончания",КонецДня(ЭлементыФормы.ДатаКон.Значение) );
   РезультатРеализация = Запрос.Выполнить();
       
   
/////////////открытие xls-документа    
   Док = ПолучитьCOMОбъект(Путь);
   счСтроки = 1;

/////////////////////////Перебор строк    


Пока Док.Sheets(1).Cells(счСтроки,1).Value <>Неопределено Цикл
   Стр=Док.Sheets(1).Cells(счСтроки,1).Value;    
   //////////////Формирование массива услуги    
   Массив = Новый Массив(42);
          Для Сч=1 По 42 Цикл
           Позиция = Найти(Стр, ",");
           Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
           стр = Сред(Стр, Позиция + 1);
           КонецЦикла;
           
           c = СтрЗаменить(Массив[5],Символ(34),"");
Если с <> "205" и с < "220" тогда
 
ИначеЕсли с > "399" и с < "921" тогда
   
ИначеЕсли с = "302" и с ="311" и с ="313" тогда
   // Сюда никогда не попадем

ИначеЕсли с >= "993" и с <="999" тогда
 
                 
             //     Если  СтрЗаменить(Массив[5],Символ(34),"")<> "205" и СтрЗаменить(Массив[5],Символ(34),"")<> "300"
             //  тогда
             //  Если  СтрЗаменить(Массив[5],Символ(34),"")<> "301" тогда
             //Если СтрЗаменить(Массив[5],Символ(34),"")> "100" и СтрЗаменить (Массив[5], Символ(34),"")<"921" тогда
             //     //Если СтрЗаменить(Массив[5],Символ(34),"")= "302" и СтрЗаменить (Массив[5], Символ(34),"")="311" и СтрЗаменить (Массив[5], Символ(34),"")="313" тогда
             //     //  Если СтрЗаменить(Массив[5],Символ(34),"")>="993" и СтрЗаменить (Массив[5], Символ(34),"")<="999" тогда


/////////Поиск документа по транзакции    
  ВыборкаРеализация = РезультатРеализация.Выбрать();
  ДокументПрисутствует = Ложь;
   Пока ВыборкаРеализация.Следующий() Цикл
        ВыборкаУслуги=ВыборкаРеализация.Услуги.выбрать();
       Пока ВыборкаУслуги.следующий() Цикл
          Если ВыборкаУслуги.Транзакция = Массив[2] тогда
               ДокументПрисутствует = Истина;    
          КонецЕсли;
        КонецЦикла;
   КонецЦикла;

////////////////Создание нового документа    
Если ДокументПрисутствует = Ложь тогда
   
///////////////Выбираем/Создаем каонтрагента          
//Если Массив[20]<>(Символ(34)+Символ(34)) тогда
//        Если Справочники.Контрагенты.НайтиПоНаименованию(Строка(Массив[20])).Пустая()=Ложь тогда
//              Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(Строка(Массив[20])).Ссылка;
//        иначе
//              Контрагент = Справочники.Контрагенты.СоздатьЭлемент();
//              Контрагент.Наименование = Строка(СтрЗаменить(Массив[20],"#",Символ(34)));
//              Контрагент.КодФиделио = Строка(Массив[18]);
//              Контрагент.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
//              Контрагент.Записать();  
//        КонецЕсли;
//    иначе    
       //Если Справочники.Контрагенты.НайтиПоРеквизиту("КодФиделио",Строка(Массив[22])).Пустая()=Ложь тогда
             Контрагент = Справочники.Контрагенты.НайтиПоКоду("000001153");
             //("КодФиделио",Строка(Массив[22])).Ссылка;
       //иначе
       //      Контрагент = Справочники.Контрагенты.СоздатьЭлемент();
       //      Контрагент.Наименование = Строка(СтрЗаменить(Массив[24],"#",Символ(34)));
       //      Контрагент.КодФиделио = Строка(Массив[22]);
       //      Контрагент.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ФизЛицо;
       //      Контрагент.Записать();  
       //КонецЕсли;
   //КонецЕсли;        
/////////////////////Создаем запрос для выборки документа    
ЗапросДок = Новый Запрос;
ЗапросДок.Текст = "ВЫБРАТЬ
|    РеализацияТоваровУслуг.Ссылка
|ИЗ
|    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
|    РеализацияТоваровУслуг.Дата = &Дата
|    И РеализацияТоваровУслуг.Контрагент = &Контрагент";
ЗапросДок.УстановитьПараметр("Дата",Дата(СтрЗаменить(СтрЗаменить(Массив[30],Символ(34),""),"-","") ));
ЗапросДок.УстановитьПараметр("Контрагент",Контрагент.Ссылка);

РезультатДок = ЗапросДок.Выполнить().Выбрать();
//Результат1 = Запросдок.Выполнить().Выгрузить();

       
Если  РезультатДок.Количество()=0 тогда
   ///////////Создаем новый документ
       НовыйДокумент= Документы.РеализацияТоваровУслуг.СоздатьДокумент();
       НовыйДокумент.Организация = Организация ;
       НовыйДокумент.Дата = Дата(СтрЗаменить(СтрЗаменить(Массив[30],Символ(34),""),"-",""));
       НовыйДокумент.Контрагент =Контрагент.Ссылка;
       НовыйДокумент.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;

   /////////////Создаем / Выбираем договор под наименованием "Осмновной договор"    
       ВыборкаДоговора = Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию("Основной договор",,,Контрагент.Ссылка);    
               Если ВыборкаДоговора.Пустая()=Истина тогда
                   Договор=Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
                   Договор.Владелец=Контрагент.Ссылка;
                   Договор.Организация =Организация;
                   Договор.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоНаименованию("руб.").Ссылка;
                   Договор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
                   Договор.Наименование="Основной договор" ;
                   Договор.Записать();
               Иначе
               Договор = ВыборкаДоговора;
           КонецЕсли;
       НовыйДокумент.ДоговорКонтрагента = Договор.Ссылка;    
   НовыйДокумент.УчитыватьНДС=Истина;
   НовыйДокумент.ВалютаДокумента =Справочники.Валюты.НайтиПоНаименованию("руб.").Ссылка;
   

   /////////Создаем строку табличной части услуги
   Услуги = НовыйДокумент.Услуги.Добавить();        
   
   Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("КодФиделио",СтрЗаменить(Массив[5],Символ(34),""));        
   Услуги.Номенклатура=Номенклатура.Ссылка;
   Услуги.Транзакция = Массив[2];
   Услуги.Цена= Массив[11];
   Услуги.Количество= Массив[12];
   Услуги.Сумма = Массив[12]*Массив[11];
   Услуги.Гость = СтрЗаменить(Массив[24],Символ(34),"");
   Услуги.НомерПостоянногоСчета = СтрЗаменить(Массив[33],Символ(34),"");
   Услуги.НомерЧека = СтрЗаменить(Массив[38],Символ(34),"");
   Услуги.Субконто=Номенклатура.НоменклатурнаяГруппа;
   Услуги.КодФиделио= Массив[5];
   
   //Услуги.СубконтоНУ=Номенклатура.НоменклатурнаяГруппа;
   
   Услуги.СтавкаНДС = Номенклатура.СтавкаНДС;
   /////////////Получаем счета учета номенклатуры
   ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(Услуги, НовыйДокумент);
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    СчетаУчетаНоменклатуры.Номенклатура,
                   |    СчетаУчетаНоменклатуры.СчетДоходовОтРеализации,
                   |    СчетаУчетаНоменклатуры.СчетРасходовОтРеализации
                   |ИЗ
                   |    РегистрСведений.СчетаУчетаНоменклатуры КАК СчетаУчетаНоменклатуры
                   |ГДЕ
                   |    СчетаУчетаНоменклатуры.Номенклатура = &Номенклатура";    
    Запрос.УстановитьПараметр("Номенклатура",Номенклатура.Ссылка );
   
   РезультатСчет = Запрос.Выполнить().Выгрузить()[0];    
   Услуги.СчетДоходов = РезультатСчет.СчетДоходовОтРеализации;
   Услуги.СчетРасходов = РезультатСчет.СчетРасходовОтРеализации;    
   //Услуги.СчетУчетаНДСПоРеализации = РезультатСчет.СчетУчетаНДСПоРеализации;
           //Если РезультатСчет.СчетДоходовОтРеализацииНУ<>"" тогда    
       //    Услуги.СчетДоходовНУ = РезультатСчет.СчетДоходовОтРеализацииНУ;
       //    Услуги.СчетРасходовНУ = РезультатСчет.СчетРасходовОтРеализацииНУ;
       //    НовыйДокумент.ОтражатьВНалоговомУчете=Истина;
       //КонецЕсли;
       
       //НовыйДокумент.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;
       //НовыйДокумент.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями;
       НовыйДокумент.ЗаполнитьСчетаУчетаРасчетов();


   ////////////Проводим документ    
   
   НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
   
/////////Создаем счет-фактуру    
Если ЭлементыФормы.СчетФактураФлаг.Значение=Истина тогда    
ВвестиСчетФактуру(НовыйДокумент);    
КонецЕсли;

Иначе
////////////////////Добавляем новую строку услуги в существующий документ
РезультатДокумент = ЗапросДок.Выполнить().Выгрузить()[0];
Документ = РезультатДокумент.Ссылка.ПолучитьОбъект();
Услуги = Документ.Услуги.Добавить();        
   
   Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("КодФиделио",СтрЗаменить(Массив[5],Символ(34),""));        
   Услуги.Номенклатура=Номенклатура.Ссылка;
   Услуги.Транзакция = Массив[2];
   Услуги.Цена= Массив[11];
   Услуги.Количество= Массив[12];
   Услуги.Сумма = Массив[12]*Массив[11];
   Услуги.Гость = СтрЗаменить(Массив[24],Символ(34),"");
   Услуги.НомерПостоянногоСчета = СтрЗаменить(Массив[33],Символ(34),"");
   Услуги.НомерЧека = СтрЗаменить(Массив[38],Символ(34),"");
   Услуги.Субконто=Номенклатура.НоменклатурнаяГруппа;
       Услуги.КодФиделио= Массив[5];

   //Услуги.СубконтоНУ=Номенклатура.НоменклатурнаяГруппа;
       Услуги.СтавкаНДС = Номенклатура.СтавкаНДС;
   ОбработкаТабличныхЧастей.РассчитатьСуммуНДСТабЧасти(Услуги, Документ);
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    СчетаУчетаНоменклатуры.СчетДоходовОтРеализации,
                   |    СчетаУчетаНоменклатуры.СчетРасходовОтРеализации,
                   |    СчетаУчетаНоменклатуры.Номенклатура
                   |ИЗ
                   |    РегистрСведений.СчетаУчетаНоменклатуры КАК СчетаУчетаНоменклатуры
                   |ГДЕ
                   |    СчетаУчетаНоменклатуры.Номенклатура = &Номенклатура";    
    Запрос.УстановитьПараметр("Номенклатура",Номенклатура.Ссылка );
   
   РезультатСчет = Запрос.Выполнить().Выгрузить()[0];    
   Услуги.СчетДоходов = РезультатСчет.СчетДоходовОтРеализации;
   Услуги.СчетРасходов = РезультатСчет.СчетРасходовОтРеализации;    
   //Услуги.СчетУчетаНДСПоРеализации = РезультатСчет.СчетУчетаНДСПоРеализации;
   //СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;
       //Если РезультатСчет.СчетДоходовОтРеализацииНУ<>"" тогда    
       //    Услуги.СчетДоходов = РезультатСчет.СчетДоходовОтРеализации;
       //    Услуги.СчетРасходов = РезультатСчет.СчетРасходовОтРеализации;
       //    Документ.ОтражатьВНалоговомУчете=Истина;
       //КонецЕсли;
       
   ////////////Проводим документ
   //Документ.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;
   //Документ.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями;

 
   Документ.Комментарий="загрузка проживания";
   Документ.Записать(РежимЗаписиДокумента.Проведение);
   Документ.Записать();

КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
//КонецЕсли;
//КонецЕсли;
//КонецЕсли;

счСтроки = счСтроки + 1;
   
КонецЦикла;

//////////закрываем документ
//Док.Application.Quit();
Сообщить("Загрузка документов завершена !!!");
       СД=Документы.РеализацияТоваровУслуг.ПолучитьФормуСписка();
       СД.Отбор.Комментарий.Значение = "загрузка проживания";
       СД.Отбор.Комментарий.Использование=Истина;
       СД.Открыть();
Док.Application.Quit();

   
КонецПроцедуры

код даешь? через час зайду посмотреть )

у тебя не условия долго работают, а ком соединение к эксель файлу, лучше подключаться по ADO

не знаю я ADO не работала с ним

Обязательно выложу я всегда выкладываю-после успешной работы)

или COMSafeArray

(83)не в (80) я просто опоздал, код то в (79)

Книга знаний: v8: Быстрый вывод данных в Excel по OLE с помощью COMSafeArray.

в (86)примерно то же самое но надо считывать

еще раз - в (79) эксель используется не как парсер CSV, а как ЧтениеТекста, а потом рубит строки средствами 1с (причем неправильно), отчего и тормозит, отчего и "СтрЗаменить"

Короче, сделала процедуру на каждое условие.
Затем общую процу где все (процы с условиями)перечисляю. последовательно происходит обход, в сущ док, добавляю строки с условиями массива. Очень красиво ровно и быстро!

(89) Можно увидеть код?

Код один и тот же) просто процедуры разные условия.
И одна процедура кнопка которая обходит все процедуры с разными условиями.

По Челябински решила проблему) сурово)