типтовара » Поиск

Результаты по ключевому слову: типтовара

17 правил для составления оптимального ЗАПРОСа к данным базы 1С

Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос. Создается этот объект вызовом конструкции Новый Запрос. Запрос удобно использовать, когда требуется получить сложную выборку данных, сгруппированную и отсортированную необходимым образом. Классический пример применения запроса - получение сводки по состоянию регистра накопления на определенный момент времени. Так же, механизм запросов позволяет легко получать информацию в различных временных разрезах.

Текст запроса – это инструкция, в соответствии с которой должен быть выполнен запрос. В тексте запроса описывается:

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

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

Язык запросов платформы 1С очень похож на синтаксис других SQL-языков, но имеются отличия. Основными преимуществами встроенного языка запросов являются: разыменование полей, наличие виртуальных таблиц, удобная работа с итогами, нетипизированные поля в запросах.

Рекомендации по написанию запросов к базе данных на языке запросов платформы 1С:

1) Текст запроса может содержать предопределенные данные конфигурации, такие как:

значения перечислений;
предопределенные данные:
справочников;
планов видов характеристик;
планов счетов;
планов видов расчетов;
пустые ссылки;
значения точек маршрута бизнес-процессов.

Также текст запроса может содержать значения системных перечислений, которые могут быть присвоены полям в таблицах базы данных: ВидДвиженияНакопления, ВидСчета и ВидДвиженияБухгалтерии. Обращение в запросах к предопределенным данным конфигурации и значениям системных перечислений осуществляется с помощью литерала функционального типа ЗНАЧЕНИЕ. Данный литерал позволяет повысить удобочитаемость запроса и уменьшить количество параметров запроса.

Пример использования литерала ЗНАЧЕНИЕ:

ГДЕ Город = ЗНАЧЕНИЕ(Справочник.Города.Москва)
ГДЕ Город = ЗНАЧЕНИЕ(Справочник.Города.ПустаяСсылка)
ГДЕ ТипТовара = ЗНАЧЕНИЕ(Перечисление.ВидыТоваров.Услуга)
ГДЕ ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
ГДЕ ТочкаМаршрута = ЗНАЧЕНИЕ(БизнесПроцесс.БизнесПроцесс1.ТочкаМаршрута.Действие1

2) Использование инструкции АВТОУПОРЯДОЧИВАНИЕ в запросе может сильно время выполнения запроса, поэтому, если сортировка не требуется, то лучше вообще ее не использовать. Во большинстве случаях лучше всего применять сортировку с помощью инструкции УПОРЯДОЧИТЬ ПО.

Автоупорядочивание работает по следующим принципам:

Если в запросе было указано предложение УПОРЯДОЧИТЬ ПО, то каждая ссылка на таблицу, находящаяся в этом предложении, будет заменена полями, по которым по умолчанию сортируется таблица (для справочников это код или наименование, для документов – дата документа). Если поле для упорядочивания ссылается на иерархический справочник, то будет применена иерархическая сортировка по этому справочнику.
Если в запросе отсутствует предложение УПОРЯДОЧИТЬ ПО, но есть предложение ИТОГИ, тогда результат запроса будет упорядочен по полям, присутствующим в предложении ИТОГИ после ключевого слова ПО, в той же последовательности и, в случае если итоги рассчитывались по полям – ссылкам, то по полям сортировки по умолчанию таблиц, на которые были ссылки.
Если в запросе отсутствуют предложения УПОРЯДОЧИТЬ ПО и ИТОГИ, но есть предложение СГРУППИРОВАТЬ ПО, тогда результат запроса будет упорядочен по полям, присутствующим в предложении, в той же последовательности и, в случае если группировка велась по полям – ссылкам, то по полям сортировки по умолчанию таблиц, на которые были ссылки.
В случае же, если в запросе отсутствуют предложения и УПОРЯДОЧИТЬ ПО, ИТОГИ и СГРУППИРОВАТЬ ПО, результат будет упорядочен по полям сортировки по умолчанию для таблиц, из которых выбираются данные, в порядке их появления в запросе.
В случае, если запрос содержит предложение ИТОГИ, каждый уровень итогов упорядочивается отдельно.

3) Что бы избежать повторного запроса к базе данных при выводе результата запроса пользователю (например, построение запроса или отображение результата запроса с помощью табличного документа) полезно использовать инструкцию ПРЕДСТАВЛЕНИЕССЫЛКИ, которая позволяет получать представление ссылочного значения. Пример:

Код 1C v 8.х

 ВЫБРАТЬ

ПРЕДСТАВЛЕНИЕССЫЛКИ(РасходнаяНакладнаяСостав.Номенклатура) КАК НоменклатураПредставление<br>

Так же возможно использование инструкции ПРЕДСТАВЛЕНИЕ - предназначена для получения строкового представления значения произвольного типа. Отличие этих инструкций в том, что в первом случае, если инструкции передать ссылку, результатом будет строка, В остальных случаях результатом будет значение переданного параметра. Во втором случае, результатом инструкции всегда будет строка!

4) Если в запросе имеется поле с составным типом, то для таких полей возникает необходимость привести значения поля к какому-либо определенному типу с помощью инструкции ВЫРАЗИТЬ, что позволит убрать лишние таблицы из левого соединения с полем составного типа данных и ускорить выполнение запроса. Пример:

Имеется регистра накопления ОстаткиТоваров, у которого поле Регистратор имеет составной тип. В запросе выбираются Дата и Номер документов ПоступлениеТоваров, при этом при обращении к реквизитам документа через поле Регистратор не происходит множество левых соединений таблицы регистра накопления с таблицами документов-регистраторов.

Код 1C v 8.х

 ВЫБРАТЬ

ВЫРАЗИТЬ(ОстаткиТоваров.Регистратор КАК Документ.ПоступлениеТоваров).Номер КАК НомерПоступления,

ВЫРАЗИТЬ(ОстаткиТоваров.Регистратор КАК Документ.ПоступлениеТоваров).Дата КАК ДатаПоступления

ИЗ

РегистрНакопления.ОстаткиТоваров КАК ОстаткиТоваров<br>

Если приведение типа считается не осуществимым, то результатом приведения типа будет значение NULL.

5) Не стоит забывать про инструкцию РАЗРЕШЕННЫЕ, которая означает, что запрос выберет только те записи, на которые у текущего пользователя есть права. Если данное слово не указать, то в случае, когда запрос выберет записи, на которые у пользователя нет прав, запрос отработает с ошибкой.

6) В случае, если в запросе используется объединение, и в некоторых частях объединения присутствуют вложенные таблицы (документ с табличной частью), а в некоторых нет, возникает необходимость дополнения списка выборки полями – пустыми вложенными таблицами. Делается это при помощи ключевого слова ПУСТАЯТАБЛИЦА, после которого в скобках указываются псевдонимы полей, из которых будет состоять вложенная таблица. Пример:

Код 1C v 8.х

 // Выбрать поля Номер и Состав

// из виртуальной таблицы Документ.РасхНакл

ВЫБРАТЬ Ссылка.Номер, ПУСТАЯТАБЛИЦА.(Ном, Тов, Кол) КАК Состав

ИЗ Документ.РасхНакл

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ Ссылка.Номер, Состав.(НомерСтроки, Товар, Количество)

ИЗ Документ.РасхНакл Документ.РасходнаяНакладная.Состав.*<br>

7) Что бы в результат запроса не попали повторяющиеся строки, следует использовать инструкцию РАЗЛИЧНЫЕ, потому что так нагляднее и понятнее, а инструкция СГРУППИРОВАТЬ ПО применяется для группировки с помощью агрегатных функций. Ксати, при использовании агрегатных функций предложение СГРУППИРОВАТЬ ПО может быть и не указано совсем, при этом все результаты запроса будут сгруппированы в одну единственную строку. Пример:

Код 1C v 8.х

 // Необходимо узнать, каким вообще контрагентам

// отгружался товар за период.

Выбрать Различные

Документ.РасходнаяНакладная.Контрагент<br>

8) Инструкция СГРУППИРОВАТЬ ПО позволяет обращаться к полям верхнего уровня, без группировки результатов по этим полям, если агрегатные функции применены к полям вложенной таблицы. Хотя в справке 1С написано, при группировке результатов запроса в списке полей выборки обязательно должны быть указаны агрегатные функции, а помимо агрегатных функций в списке полей выборки допускается указывать только поля, по которым осуществляется группировка. Пример:

Код 1C v 8.х

 ВЫБРАТЬ

ПоступлениеТоваровИУслуг.Товары.(СУММА(Количество),Номенклатура),

ПоступлениеТоваровИУслуг.Ссылка,

ПоступлениеТоваровИУслуг.Контрагент

ИЗ

Документ.ПоступлениеТоваровИУслуг КАК ПоступлениеТоваровИУслуг

СГРУППИРОВАТЬ ПО

ПоступлениеТоваровИУслуг.Товары.(Номенклатура)<br>

9) Инструкция ЕСТЬNULL предназначена для замены значения NULL на другое значение, но не забываем, что второй параметр будет преобразован к типу первого в случае, если тип первого параметра является строкой или числом.

10) При обращении к главной таблице можно в условии обратиться к данным подчиненной таблицы. Такая возможность называется разыменование полей подчиненной таблицы.

Пример (поиск документов, содержащих в табличной части определенный товар):

Код 1C v 8.х

 ВЫБРАТЬ

Приходная.Ссылка

ИЗ

Документ.Приходная Где Приходная.Товары.Номенклатура =Номенклатура.<br>

Преимущество этого запроса перед запросом к подчиненной таблице Приходная.Товары в том, что если есть дубли в документах, результат запроса вернет только уникальные документы без использования ключевого слова РАЗЛИЧНЫЕ.

11) Интересный вариант оператора В - это проверка вхождения упорядоченного набора в множество таких наборов (Поле1, Поле2, ... , ПолеN) В (Поле1, Поле2, ... , ПолеN).

Пример:

Код 1C v 8.х

 ВЫБРАТЬ

Контрагенты.Ссылка

ГДЕ

(Контрагенты.Ссылка, Товары.Ссылка) В

(ВЫБРАТЬ Продажи.Покупатель, Продажи.Товар

ИЗ РегистрНакопления.Продажи КАК Продажи)

ИЗ

Справочник.Контрагенты,

Справочник.Товары<br>

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

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

Все виртуальные таблицы параметризованы, т. е. разработчику предоставляется возможность задать некоторые параметры, которые система будет использовать при формировании запроса создания виртуальной таблицы. В зависимости от того, какие параметры виртуальной таблицы указаны разработчиком, система может формировать РАЗЛИЧНЫЕ запросы для получения одной и той же виртуальной таблицы, причем они будут оптимизированы с точки зрения переданных параметров.

Не всегда разработчик имеет возможность получить доступ к тем данным, к которым имеет доступ система.

13) В клиент-серверном варианте работы функция ПОДСТРОКА() реализуется при помощи функции SUBSTRING() соответствующего оператора SQL, передаваемого серверу баз данных SQL Server, который вычисляет тип результата функции SUBSTRING() по сложным правилам в зависимости от типа и значений ее параметров, а так же в зависимости от контекста, в котором она используется. В большинстве случаев эти правила не оказывают влияния на выполнение запроса, но бывают случаи, когда для выполнения запроса существенна максимальная длина строки результата, вычисленная SQL Server. Важно иметь в виду, что в некоторых контекстах использования функции ПОДСТРОКА() максимальная длина ее результата может оказаться равной максимальной длине строки ограниченной длины, которая в SQL Server равна 4000 символам. Это может привести к неожиданному аварийному завершению выполнения запроса:

Microsoft OLE DB Provider for SQL Server: Warning: The query processor could not produce a query plan from the optimizer because the total length of all the columns in the GROUP BY or ORDER BY clause exceeds 8000 bytes.

HRESULT=80040E14, SQLSTATE=42000, native=8618

Чтобы избежать такой ошибки, не рекомендуют использовать функцию ПОДСТРОКА() с целью приведения строк неограниченной длины к строкам ограниченной длины. Вместо нее лучше использовать операцию приведения типа ВЫРАЗИТЬ().

14) С осторожностью используйте ИЛИ в конструкции ГДЕ, так как использование условия с ИЛИ может значительно "утяжелить" запрос. Решить проблему можно конструкцией ОБЪЕДИНИТЬ ВСЕ. Пример:

Код 1C v 8.х

 ВЫБРАТЬ

_ДемоКонтрагенты.НаименованиеПолное

ИЗ

Справочник._ДемоКонтрагенты КАК _ДемоКонтрагенты

ГДЕ

_ДемоКонтрагенты.Ссылка =Ссылка1

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

_ДемоКонтрагенты.НаименованиеПолное

ИЗ

Справочник._ДемоКонтрагенты КАК _ДемоКонтрагенты

ГДЕ

_ДемоКонтрагенты.Ссылка =Ссылка2<br>

15) Условие НЕ В в конструкции ГДЕ увеличивает время исполнения запроса, так как это своего рода НЕ (ИЛИ1 ИЛИ2 ... ИЛИn), поэтому для больших таблиц старайтесь использовать ЛЕВОЕ СОЕДИНЕНИЕ с условием ЕСТЬ NULL. Пример:

Код 1C v 8.х

 ВЫБРАТЬ

_ДемоКонтрагенты.Ссылка

ИЗ

Справочник._ДемоКонтрагенты КАК _ДемоКонтрагенты

ЛЕВОЕ СОЕДИНЕНИЕ Документ._ДемоЗаказПокупателя КАК _ДемоЗаказПокупателя

ПО _ДемоКонтрагенты.Ссылка = _ДемоЗаказПокупателя.Контрагент

ГДЕ

_ДемоЗаказПокупателя.Контрагент ЕСТЬ NULL<br>

16) При использовании Временных таблиц нужно индексировать поля условий и соединений в этих таблицах, НО, при использовании индексов запрос может выполняться еще медленнее. Поэтому необходимо анализировать каждый запрос с применением индекса и без, замерять скорость выполнения запроса и принимать окончательное решение.

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

17) Если вы не используете Менеджер временных таблиц, то явно удалять временную таблицу не требуется, она будет удалена после завершения выполнения пакетного запроса, иначе следует удалить временную таблицу одним из способов: командой УНИЧТОЖИТЬ в запросе, вызвать метод МенеджерВременныхТаблиц.Закрыть().

Источник

И в дополнении видео от Евгения Гилева : Типовые ошибки при написании запросов на 1С:

Категория: Запросы

COM-подключение к базе 7.7 из 8.2 1С

Если код выполняется на стороне клиента, то необходимо наличие базы 7.7 на локальной машине.

Пример (На форме объекта присутствует реквизит Таблица(ТаблицаЗначений)):

Код 1C v 8.2 УП

 &НаКлиенте

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

    ПутьКБазе="D:\ВашаБаза\1с77\";

    Пользователь="stvbliz";//пользователь базы 7.7

    Пароль="вашпароль";

    МонопольныйРежимOLE = ""; // " /m";

    ЗапускБезЗаставки = 1;

    База = Новый COMОбъект("V1CEnterprise.Application");

    СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";

    РезультатПодключения=База.Initialize(База.RMTrade,СтрокаПодключения,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));



    Если НЕ РезультатПодключения Тогда

        Сообщить("Не удалось произвести подключение к информационной базе");

    КонецЕсли;

    Таблица.Очистить();

    Док = База.CreateObject("Документ.ЗаявкаПокупателя");

    Док.ВыбратьДокументы(НачалоНедели(Дата),КонецНедели(Дата));                  

    Пока Док.ПолучитьДокумент() = 1 Цикл

        ОбработкаПрерыванияПользователя();

        Если Док.НомерДок = НомерЗаявки Тогда

            Док.ВыбратьСтроки();

            Пока Док.ПолучитьСтроку()=1 Цикл

                нов=Таблица.Добавить();

                нов.Номенклатура = Док.Номенклатура.Наименование;

                нов.Количество = Док.Количество;

                нов.Единица = Док.Единица.Наименование;

                нов.Цена = Док.Цена;

                Нов.Сумма = Док.Сумма;

                нов.Коэффициент = Док.Коэффициент;

                нов.Производитель = Док.производитель;

                Нов.Валюта = Док.Валюта.Наименование;



            КонецЦикла;

        КонецЕсли;



    КонецЦикла;  



    Док=NULL;

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

Код 1C v 8.2 УП

 //Примеры получения значений



//Периодический реквизит нужно получать на дату

ДатаОст= ТекущаяДата();

Спр77Оле.ВидГрейда.Получить(ДатаОст).код;



// Перечисление

Если База77ОЛЕ.ВидКонтрагента.Идентификатор() = "ЧастноеЛицо"

// или

Если Сотрудник.ХарактерРаботы.Получить(Необходимая_Дата).Идентификатор() = БазаОЛЕ.EvalExpr("Перечисление.ХарактерРаботы.ТрудовыеОтношения.Идентификатор()") Тогда 

// Принадлежит ...

КонецЕсли;



//В запросе

   // в v7 ссылка OLE

   Запрос = v7.CreateObject("Запрос");

   ТипТовара = v7.evalexpr("Перечисление.ТипыТоваров.Собственный.ПорядковыйНомер()");

   

   ТекстЗапроса = 

   "//{{ЗАПРОС(Сформировать) 

   |ТекущийЭлемент = Справочник.Номенклатура.ТекущийЭлемент;

   |Наименование = Справочник.Номенклатура.Наименование;

   |ТипТовара = Справочник.Номенклатура.ТипТовара;

   |ЕдиницаИзмерения = Справочник.Номенклатура.ЕдиницаИзмерения;

   |Функция Счётчик = Счётчик();

   |Группировка ТекущийЭлемент;

   |Условие(ТипТовара.ПорядковыйНомер() = "+ТипТовара+");

   |"//}}ЗАПРОС 

   ;

Категория: COM-объекты, WMI, WSH

Полезные сведения о языке запросов 1С 8.х Категория: Запросы

Как загрузить данные из Access в 1С ?

Загружаем данные из Access в 1С

Код 1C v 8.х

 Файл = "C:\files\demo.mdb" ;

   //СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + "; Extended Properties=""Excel 8.0;HDR=NO;""";

    СтрокаПодключения  =   "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + ";""";

    Connection = Новый COMОбъект("ADODB.Connection");

    Попытка

        Connection.Open(СтрокаПодключения);

    Исключение

        Сообщить(ОписаниеОшибки());

        Возврат;

    КонецПопытки;

        Command = Новый COMОбъект("ADODB.Command");



    Command.ActiveConnection = Connection;

    Command.CommandText = "S_elect * FROM Table1";

    Command.CommandType = 1;

    RecordSet = Новый COMОбъект("ADODB.RecordSet");

    RecordSet = Command.Execute();

    стр ="";

      Пока RecordSet.EOF() = 0 Цикл

            для н=0 по  Recordset.Fields.Count -1 цикл

            стр = стр + " " + Recordset.Fields(н).Value;

         КонецЦикла;

      Сообщить(стр);

             стр ="";

        RecordSet.MoveNext(); 

      КонецЦикла;

   RecordSet.Close();

    Connection.Close();

Код 1C v 7.x

 Акцесс = СоздатьОбъект("ADODB.CONNECTION");

Попытка

     СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

     Акцесс.Open(СтрокаПодключения);

Исключение

     Сообщить("Все плохо:"+ОписаниеОшибки());

     Возврат;

КонецПопытки;

Команда = СоздатьОбъект("ADODB.Command");

Команда.ActiveConnection=Акцесс;

ТекстСелект = "S_elect * FROM tblCustoms";

НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");

Команда.CommandText=ТекстСелект;

Попытка

     НаборЗаписей=Команда.Execute;

Исключение

     Сообщить("Обломись:"+ОписаниеОшибки());

КонецПопытки;

Попытка

     НаборЗаписей.MoveFirst();

Исключение //нет записей в рекордсете

     НаборЗаписей.Close();

     Возврат;

КонецПопытки;

Пока НаборЗаписей.EOF()=0 Цикл

     ИНН = НаборЗаписей.Fields("INN").Value;

     //ну и т.д.

     НаборЗаписей.MoveNext();

КонецЦикла;

НаборЗаписей.Close();



// Для тех, у кого в базе Акцесс создана рабочая группа (есть файлик mdw), строка подключения будет такая: 

СтрокаПодключения="Driver= Microsoft Access Driver (*.mdb)};systemDB=C:\wg.mdw;Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

Работа с ACCESS из 1С через DAO

Код 1C v 7.x

 Процедура Выполнить() 

//фасВладелец = СтрЗаменить(фасВладелец," ","_"); 

   Спр = СоздатьОбъект("Справочник.ТоварыВПрайсе"); 

   Спр.ИспользоватьВладельца(ФасВладелец); 

   dbe = СоздатьОбъект("dao.DBEngine.36"); 

   wksp = dbe.Workspaces(0); 

   db = 0; 

   Если ФС.СуществуетФайл(КаталогИБ()+"Pric_list.mdb")=0 Тогда               // 

       db = wksp.CreateDataBase(КаталогИБ()+"Pric_list.mdb",";LANGID=0x0419;Cp=1251;Country=0");             //   

       db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

       |(Rec_ind integer, 

       |Код text,                                                                                                           

       |Артикул text, 

       |Цена integer, 

       |Товар text, 

       |Единица text, 

       |Val text);" 

       ); 

       db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

   Иначе 

       db= wksp.OpenDataBase(КаталогИБ()+"Pric_list.mdb"); 

       Попытка 

           rs = db.OpenRecordset(Строка(фасВладелец)); 

       Исключение 

           Сообщить("Создается новая таблица"); 

       КонецПопытки; 

       Если ПустоеЗначение(rs)= 1 Тогда 

           db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

           |(Rec_ind integer, 

           |Код text, 

           |Артикул text, 

           |Цена integer, 

           |Товар text, 

           |Единица text, 

           |Val text);" 

           ); 

           db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

       КонецЕсли;     

       db.Execute("Delete * From ["+Строка(фасВладелец)+"];");                                                         

   КонецЕсли;   

   rs = db.OpenRecordset(Строка(фасВладелец)); 

   Y = 1; 

   Спр.ВыбратьЭлементы(); 

   Пока Спр.ПолучитьЭлемент() = 1 Цикл 

       лсЕдиницы = ""; 

       Если Спр.асТовар.апТип=Перечисление.ТипТовара.Услуга Тогда 

           лсЕдиницы = ""; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Весовой Тогда 

           лсЕдиницы = "г"; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Штучный Тогда 

           лсЕдиницы = "шт."; 

       КонецЕсли; 

       Если Спр.ЭтоГруппа() = 0 Тогда 

           rs.AddNew(); 

           rs.Rec_ind = Y; 

           rs.Код= Спр.асТовар.ПолныйКод(); 

           rs.Артикул =  Спр.асТовар.сАртикул; 

           rs.Цена = Спр.чЦена; 

           rs.Товар=Спр.асТовар.сПолнНаименование; 

           rs.Единица =  лсЕдиницы; 

           rs.Val = Спр.асВалюта.Код; 

           rs.Update(); 

           Y=Y+1; 

       КонецЕсли; 

   КонецЦикла; 

   db.Close();   

   Сообщить("Выгрузка завершена"); 

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

Код 1C v 7.x

 

Процедура ACCESS()

     dbe=CreateObject("DAO.DBEngine.36");

     wksp=dbe.Workspaces(0);

     db=0;

     // в ковычках имя фаила с расширением MDB

     Если ФС.СуществуетФайл(КаталогПользователя()+"sr.mdb")=0 Тогда

          // создание файла базы данных с русским порядком сортировки

          db=wksp.CreateDataBase(КаталогПользователя()+"mars_sr.mdb",";LANGID=0x0419;CP=1251;COUNTRY=0");

          // DDL - запрос на создание таблицы

          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access

          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB

          //Создадим еще таблицу

          db.Execute("CREATE TABLE   BANKS

          |(REC_IND INTEGER,

          |BANKCODE INTEGER,

          |BANKNAME  TEXT  ,

          |ModifiedFlg BIT,

          |ChangeSeqFlg BIT);"

          );

          // индекс на нужные поля

          db.Execute("CREATE INDEX REC_IND ON BANKS (REC_IND);");

     Иначе

          // просто открываем базу данных в разделенном режиме

          db=wksp.OpenDataBase(КаталогПользователя()+"sr.mdb");

          // и очищаем имеющиеся данные

          db.Execute("DELETE * FROM BANKS;");

    КонецЕсли;

    // rs-это как раз сама таблица, куда мы будем добавлять записи

    rs=db.OpenRecordset("BANKS");

    // добавление записи

    rs.AddNew();

    // присвоение значений полям

    rs.REC_IND            =     "1";

    rs.BANKCODE       =     "34";

    rs.BANKNAME       =    "Инвест";

    rs.ModifiedFlg        =     "1";

    // запомним запись

    rs.Update();

    // и так далее ...

    db.Close();  // закрытие базы данных

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

Категория: Работа с Microsoft Office и OpenOffice

Использование Предопределенных данных конфигурации Категория: Запросы