Форум программистов [Powered by Invision Power Board]

Код

Процедура ЗагрузитьФайл(Кнопка)
    Т = Новый ТекстовыйДокумент;
    Т.Прочитать(АдресФайла);
    
    СтрокаФ = Т.ПолучитьСтроку(1);
    ДлинаСтроки = СтрДлина(СтрокаФ);
    РезультатСтрока = СтрЗаменить(СтрокаФ,", ",Символы.ПС);
    
    //создаем список значений
    Для х = 1 по СтрЧислоСтрок(РезультатСтрока) Цикл
        сз.Добавить(СтрПолучитьСтроку(РезультатСтрока,х));    
    КонецЦикла;
    
    //создаем документ который будем заполнять
    спр = Документы.РасходныйКассовыйОрдер.СоздатьДокумент();
    
    //Получение количество реквизитов
    КолШапка =спр.Метаданные().Реквизиты.Количество();
    // Заполнение документами
    спр.Дата = ТекущаяДата();
    спр.Номер = "МК-00011";
    //------------------------------разбиение реквизитов на группы------------------------------------------//
    Для х = 0 по КолШапка-1 Цикл
        СтрТип = Строка(Спр.Метаданные().Реквизиты[х].Тип); //Получаем тип текущего реквизита
        ИмяРеквизита = спр.Метаданные().Реквизиты[х].Имя;   //Получаем имя реквезита
        
        Если Найти(стрТип,"ссылка")= 0 Тогда                //Проверяем простой или ссылочный тип 
             стрЗначение = СтрПолучитьСтроку(РезультатСтрока,(х+1)); // если простой тогда получаем значения для этого реквизита и заполняем его
             спр[ИмяРеквизита] = стрЗначение;    
        Иначе Если (Найти(стрТип,"Справочник")<>0) и (Найти(стрТип,"Документ")<>0) Тогда //Иначе проверяем на всевозможные объекты
            
              Иначе Если СтрЧислоВхождений(стрТип,",") = 0 ТОгда  //Проверяем на составной тип 
                         ТипЗначения = ТипЗнч(спр[ИмяРеквизита]);
                         докстр = Метаданные.НайтиПоТипу(ТипЗначения).ПолноеИмя();
                         докстр = СтрЗаменить(докстр,".", Символы.ПС);
                         
                         Если Найти(стрТип,"Документ") <>0 Тогда 
                              НовыйДокумент = Документы.ЗарплатаКВыплатеОрганизаций.НайтиПоНомеру(СтрПолучитьСтроку(РезультатСтрока,(х+1)));
                              спр[ИмяРеквизита] = НовыйДокумент;
                                    
                         Иначе Если Найти(стрТип,"План счетов")<>0 Тогда 
                                    НовыйПланСчетов = ПланыСчетов[СтрПолучитьСтроку(докстр,2)];
                                    стрЗначение = СтрПолучитьСтроку(РезультатСтрока,(х+1));
                                    спр[ИмяРеквизита] = НовыйПланСчетов.НайтиПоНаименованию(стрЗначение);
                                    
                               Иначе Если Найти(стрТип,"Перечисление")<>0 Тогда 
                                          НовоеПеречисление = Перечисления[СтрПолучитьСтроку(докстр,2)];
                                          кх = НовоеПеречисление.Количество();
                                          Для с=0 по кх-1 Цикл
                                              НовоеПеречислениеИмя = НовоеПеречисление.Получить(с);
                                              Если Строка(НовоеПеречислениеИмя) = СтрПолучитьСтроку(РезультатСтрока,(х+1)) ТОгда
                                                   спр[ИмяРеквизита] = НовоеПеречисление.Получить(с);
                                                   Сообщить(спр[ИмяРеквизита] + "   :" + НовоеПеречисление.Получить(с));
                                              КонецЕсли;
                                           КонецЦикла;
                                           
                                      Иначе Если Найти(стрТип,"Справочник")<>0 Тогда 
                                                НовыйСправочник = Справочники[СтрПолучитьСтроку(докстр,2)];
                                                стрЗначение = СтрПолучитьСтроку(РезультатСтрока,(х+1));
                                                спр[ИмяРеквизита] = НовыйСправочник.НайтиПоНаименованию(стрЗначение);
                                            КонецЕсли;
                                      КонецЕсли;
                                КонецЕсли;
                          КонецЕсли;
                    КонецЕсли;
              КонецЕсли;
        КонецЕсли;
    КонецЦикла;
        спр.Записать();
    КонецПроцедуры