1С77, Таблица значений, Создание таблицы значений, добавить запись в таблицу значений, Поиск в таблице значений

//Создать таблицу значений

ТабЗначений = СоздатьОбъект("ТаблицаЗначений");
ТабЗначений.НоваяКолонка("Кол1", "Число", 10, 2);
ТабЗначений.НоваяКолонка("Кол2", "Дата");
ТабЗначений.НоваяКолонка("Кол3", "Строка", 30);

//Добавить запись в таблицу значений

ТабЗначений.НоваяСтрока();
ТабЗначений.Кол1 = 50;
ТабЗначений.Кол2 = ПеремДата;
ТабЗначений.Кол3 = "Строка";

//Поиск значения "ТоЧтоИщется" в колонке "Кол2"

Если ТабЗначений.НайтиЗначение("ТоЧтоИщется",,"Кол2") = 0 Тогда
Сообщить("Не найдено");
Иначе
Сообщить("Найдено");
КонецЕсли;

Теги: 1С77, 7.7, Таблица значений, Создание таблицы значений, добавить запись в таблицу значений, Поиск в таблице значений

1С77, Преобразование даты для прямого запроса к SQL-базе, ДатаЧисло, ДатаМесяц, ДатаГод, Дата

1С

Функция ПолучитьСтрокуИзДаты(ДатаВх)
   День = ДатаЧисло(ДатаВх);
   ДеньСтр = ?(День < 10, "0"+Строка(День), Строка(День));
   Месяц = ДатаМесяц(ДатаВх);
   МесяцСтр = ?(Месяц < 10, "0"+Строка(Месяц), Строка(Месяц));
   Год = ДатаГод(ДатаВх);
   Рез = ДеньСтр+"/"+МесяцСтр+"/"+Строка(Год);
   Возврат Рез;
КонецФункции

DateB = ПолучитьСтрокуИзДаты(НачДата);
DateE = ПолучитьСтрокуИзДаты(КонДата);

strDateB = "CONVERT(DateTime,'"+DateB+"',104)";
strDateE = "CONVERT(DateTime,'"+DateE+"',104)";

strQuery = "SELECT *
|       FROM table
|       WHERE DocDate between " + strDateB + " and " + strDateE + "
|";

Теги: 1С77, 7.7, Преобразование даты для прямого запроса к SQL-базе, ДатаЧисло, ДатаМесяц, ДатаГод, Дата

1С77, Соединение с SQL-Server, Подключение к SQL-Server, ADODB, Connection, Recordset, ActiveConnection, Прямой SQL-запрос к базе, Обход рекордсета

1С

Server = "ServerName";    //Имя сервера
DataBase = "DBName";      //Имя базы данных
Login = "sa";                      //Логин
Password = "secretpsw";   //Пароль

Connection = CreateObject("ADODB.Connection");

ConnectionString = "driver={SQL Server};"+"server="+СокрЛП(Server)+";"+"uid="+СокрЛП

              (Login)+"; "+"pwd="+СокрЛП(Password)+";"+"Database="+СокрЛП(Database);
Connection.ConnectionTimeOut = 600;
Connection.CommandTimeout = 300;

Connection.Open(ConnectionString);

Payments = CreateObject("ADODB.RecordSet");
Payments.ActiveConnection = Connection;

strQuery = "
      |   SELECT Field1, Field2
      |   FROM Payments
      |";

Payments.Open(strQuery);

While Payments.EOF = 0 Do
      Сообщить(Payments.Fields("Field1").Value);
      Сообщить(Payments.Fields("Field2").Value);
      Payments.MoveNext();
EndDo;

Payments.Close();
ПустоеЗначение(Payments);
Connection.Close();
ПустоеЗначение(Connection);

Теги: 1С77, 7.7, Соединение с SQL-Server, Подключение к SQL-Server, ADODB, Connection, Recordset, ActiveConnection, Прямой SQL-запрос к базе, Обход рекордсета

1С77, Справочник, НайтиПоНаименованию, Поиск элемента, Текущий элемент справочника

1С

СпрФирмы = СоздатьОбъект("Справочник.Фирмы");
СпрФирмы.НайтиПоНаименованию("ООО Ромашка", 0);
ВыбФирмы = СпрФирмы.ТекущийЭлемент();

Теги: 1С77, 7.7, Справочник, НайтиПоНаименованию, Поиск элемента, Текущий элемент справочника

1С77, Флажок, Запрет на одновременный выбор флажков, Галочка, Флаг, Активный элемент формы, Текущий элемент, Групповой контекст, Контекст

1С

В свойствах флажков должна вызываться процедура ПереклФлаги(Контекст)

Процедура ПереклФлаги(ГрКонт)
   Флаг1 = 0;
   Флаг2 = 0;
   Флаг3 = 0;

   Если ГрКонт.Форма.АктивныйЭлемент() = "Флаг1" Тогда Флаг1 = 1; КонецЕсли;
   Если ГрКонт.Форма.АктивныйЭлемент() = "Флаг2" Тогда Флаг2 = 1; КонецЕсли;
   Если ГрКонт.Форма.АктивныйЭлемент() = "Флаг3" Тогда Флаг3 = 1; КонецЕсли;
КонецПроцедуры

Теги: 1С77, 7.7, Флажок, Запрет на одновременный выбор флажков, Галочка, Флаг, Активный элемент формы, Текущий элемент, Групповой контекст, Контекст

SQL, T-SQL, Transact-SQL, CASE, WHEN, Условие

Разное

DECLARE @TypeID INT
SET @TypeID = 2

SELECT
CASE
      WHEN @TypeID = 0 THEN 'Тип=0'
      WHEN @TypeID = 1 THEN 'Тип=1'
    ELSE 'х.з.' END

Теги: SQL, T-SQL, Transact-SQL, CASE, WHEN, Условие