осуществлено » Поиск

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

Переключатель ~ Добавление и настройка (Выбираемое значение)

Добавляем на форму рамку группы и на нее размещаем переключатели через пункт меню:

Форма -> Вставить элемент управления… и в открывшемся окне выбираем переключатели:

В правой части окна добавляем значение переключателя столько, сколько нам необходимо, ставим галочку на «Акции – первый в группе», для того чтоб данный переключатель выбирался автоматически.

После того как добавим переключатели выберем тип данных для первого значения «Акции», в нашем случае присваиваем значение «ТипЦБ»:

А само значение переключателя вводится в Данные -> Выбираемое значение. Для Акции это 0, Облигации – 1, Векселя - 2 и Паи – 3. Но до введения этих данных необходимо проверить порядок.

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

Проверьте значение выбираемого значения переключателей после исправления порядка.

Остается только в событии переключателя «акции» «При изменении» написать код программы:

Код 1C v 8.х

 Если ТипЦБ = 0 Тогда

ЭтаФорма.ЭлементыФормы.Поступление.Колонки.НКД.Доступность = 0;

ИначеЕслиТипЦБ = 1 Тогда

ЭтаФорма.ЭлементыФормы.Поступление.Колонки.НКД.Доступность = 1; // только для облигаций разрешаем НКД

ИначеЕслиТипЦБ = 2 Тогда

ЭтаФорма.ЭлементыФормы.Поступление.Колонки.НКД.Доступность = 0;

ИначеЕслиТипЦБ = 3 Тогда

ЭтаФорма.ЭлементыФормы.Поступление.Колонки.НКД.Доступность = 0;

КонецЕсли;

Теперь при выборе переключателя «Облигации» дается возможность редактировать значение колонки НКД:

Категория: Работа с Формой (Диалог) и её элементами

Особенности работы с хранилищем конфигурации Категория: Администрирование

Конструктор схемы компоновки данных - Закладка Набор данных - Запрос Категория: Схема Компоновки Данных

Пример подключения к MySQL базе

Код 1C v 8.х

 // Пример 1

Сервер="IP-адрес-сайта"; // IP адрес сайта

ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных

ПарольСервера="пароль-пользователя-базы-данных"; // пароль пользователя базы данных

БазаСервера="название-SQL-базы-данных";  // название SQL базы данных

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

Соединение_param = "driver={MySQL ODBC 5.1 Driver}; server="+СокрЛП(Сервер)+"; uid="+СокрЛП(ПользовательСервера)+"; pwd="+СокрЛП(ПарольСервера)+"; database="+СокрЛП(БазаСервера)+"; STMT=SET CHARACTER SET utf8";

Try

    Соединение.open(Соединение_param);

    СоединениеУстановлено = Истина;

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

Except

    ТекстСообщения = ""+ТекущаяДата()+" Connection error: "+ОписаниеОшибки();

    Сообщить(ТекстСообщения);

    СоединениеУстановлено = Ложь;

    return;

EndTry;

Код 1C v 8.х

 ]// Пример 2 

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

ConnectionString = "driver={SQL Server}; server=; uid=; Pwd=; Database = "; // это для MS SQL строка

Попытка

  Соединение.Open(ConnectionString);

  Сообщить("Соединение осуществлено в "+ТекущаяДата());

Исключение

  Предупреждение("Невозможно установить соединение");  

  Возврат;

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



ТекстЗакпроса = "....................";

НаборЗаписей = Новый COMОбъект("ADODB.RecordSet"); 

НаборЗаписей.ActiveConnection = Соединение;

НаборЗаписей.Open(ТекстЗапроса);



Пока не НаборЗаписей.Eof() Цикл

//  ............код обработки.....................

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

КонецЦикла;

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

Соединение.Close();

Сообщить("Обработка завершена в "+ТекущаяДата());

Код 1C v 7.x

 DB = СоздатьОбъект("ODBCDatabase");

DB.Соединение("DRIVER={MySQL ODBC 5.1 Driver}; SERVER=IP_Супер_мега_сервера; DATABASE=Мега_база; USER=Супер_юзер; PASSWORD=пароль_супер_мега_юзера; OPTION=3;");



RS = СоздатьОбъект("ODBCRecordSet");

RS.SetDatabase(DB);



Если RS.Выполнить("set names cp1251") = 0 Тогда

    Сообщить("Ошибка подключения к MySQL" + РазделительСтрок + RS.ПолучитьОписаниеОшибки());

    СтатусВозврата(0);

    Возврат;

КонецЕсли;

Используя DSN. Большой плюс dsn есть режим проверки и также в текстах 1с
уже не нужен пользователь и пароль. Все детали скрыты в dsn
вот мой успешно работающий код для MY SQL

Код 1C v 7.x

 sql = СоздатьОбъект("ODBCDatabase");

Имя0 = "DragNet";

Фл1 = sql.Соединение("DSN=" + Имя0 + ";");

Если Фл1 = 0 Тогда

Сообщить("Не смогли открыть DSN = " + Имя0);

	Сообщить("Ошибка = " +  sql.ПолучитьОписаниеОшибки() );

Иначе

	sql.УстТолькоЧтение(1);

КонецЕсли;

rc = СоздатьОбъект("ODBCRecordSet");

rc.УстБД(sql);

еще, драйвер 3.51:

Код 1C v 7.x

 //Тестируем установку параметров соединения

клМускул = СоздатьОбъект("ODBCDatabase");

клМускул.СтрокаСоединения = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;

|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;

|Option=3;";

Результат = клМускул.СтрокаСоединения;

ПроверитьРавенство(Результат,"Driver={MySQL ODBC 3.51 Driver};Server=localhost;

|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;

|Option=3;");

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