Процедура Загрузить()

    СпрНорм = СоздатьОбъект("Справочник.НормыРасходов");
    СпрМат = СоздатьОбъект("Справочник.ОсновныеМатериалы");
    СпрИзд = СоздатьОбъект("Справочник.Изделия");  

    ADO = CreateObject("ADODB.Connection");
    Base= CreateObject("ADODB.Recordset"); 
//    СтрокаПодключения="Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;DBQ="+СокрЛП(ПутьКБазе)+";Exclusive=No;DELETED=YES;BACKGROUNDFETCH=NO;";
//    СтрокаПодключения="Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB="+СокрЛП(ПутьКБазе)+";Exclusive=No;DELETED=YES;BACKGROUNDFETCH=NO;";
    СтрокаПодключения="Provider=vfpoledb;Data Source="+СокрЛП(ПутьКБазе)+";";
    ADO.ConnectionString=СтрокаПодключения; 
    Сообщить(ADO.ConnectionString);
    ADO.Open();
    Base.Open("SELECT CODE, MAT_ID, STR(NORMA,12,5) AS NORMA FROM "+СокрЛП(ПутьКБазе)+"GOOD.DBF, "+СокрЛП(ПутьКБазе)+"NORMA.DBF WHERE NORMA.GOOD_ID=GOOD.GOOD_ID AND CODE<>"""" ORDER BY CODE;",ADO);
    Пока Base.EOF()=0 Цикл    
    //    Сообщить(Base.Fields("code").Value);
        Если СпрИзд.НайтиПоКоду(Base.Fields("code").Value) = 1 Тогда    
        //    Сообщить("Обработка изделия: "+СпрИзд.Код+"_"+СпрИзд.Наименование);
            СпрНорм.ИспользоватьВладельца(СпрИзд.ТекущийЭлемент()); 
            СпрНорм.ПорядокКодов();
            СпрНорм.ВыбратьЭлементы(1); 
            ЕстьНорма=0;
            Пока СпрНорм.ПолучитьЭлемент()=1 Цикл
                Если (СпрНорм.ВидЭлемента=1) Тогда
                    Если СпрМат.НайтиПоРеквизиту("КодСвязи",Base.Fields("mat_id").Value,0)=1 Тогда
                        Если СпрМат.ТекущийЭлемент()=СпрНорм.Элемент Тогда
                        //    Сообщить("Нормы на материал "+СпрМат.Наименование+" уже есть, обновляем.");
                            ЕстьНорма=1;
                            СпрНорм.Норма.Установить(Дата(Год,Месяц,1),Число(Base.Fields("norma").Value));
                            СпрНорм.Записать();
                            Прервать; //нашли основной материал в нормах, выйти из цикла
                        КонецЕсли;
                    КонецЕсли;
                КонецЕсли;
            КонецЦикла;                 
            Если ЕстьНорма=0 Тогда  
            //    Сообщить("Нормы на материал "+СпрМат.Наименование+" отсутствуют, добавляем.");
                Если СпрМат.НайтиПоРеквизиту("КодСвязи",Base.Fields("mat_id").Value,0) = 1 Тогда
                    СпрНорм.ИспользоватьВладельца(СпрИзд.ТекущийЭлемент());
                    СпрНорм.Новый();                                              
                    СпрНорм.ВидЭлемента=1;
                    НазначитьВид(СпрНорм.Элемент, "ОсновныеМатериалы");
                    СпрНорм.Элемент=СпрМат.ТекущийЭлемент();                
                    СпрНорм.Записать();
                    СпрНорм.Норма.Установить(Дата(Год,Месяц,1),Число(Base.Fields("norma").Value));
                    СпрНорм.Наименование="ОсновнойМатериал, " + СпрНорм.Элемент;
                    СпрНорм.Записать();
                КонецЕсли;   
            КонецЕсли; 
            
        КонецЕсли; //изделие
          Base.MoveNext(); 
    КонецЦикла;
    Base.Close();
    ADO.Close();
    
    Сообщить("Загрузка норм завершена");
    
КонецПроцедуры