You've already forked OpenIntegrations
mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2025-08-10 22:41:43 +02:00
Main build (Jenkins)
This commit is contained in:
4
docs/en/data/MSSQL/DeleteRecords.json
vendored
Normal file
4
docs/en/data/MSSQL/DeleteRecords.json
vendored
Normal file
@@ -0,0 +1,4 @@
|
||||
{
|
||||
"Address": "127.0.0.1",
|
||||
"Password": "12we..."
|
||||
}
|
4
docs/en/data/MSSQL/UpdateRecords.json
vendored
Normal file
4
docs/en/data/MSSQL/UpdateRecords.json
vendored
Normal file
@@ -0,0 +1,4 @@
|
||||
{
|
||||
"Address": "127.0.0.1",
|
||||
"Password": "12we..."
|
||||
}
|
34
docs/en/examples/MSSQL/DeleteRecords.txt
vendored
Normal file
34
docs/en/examples/MSSQL/DeleteRecords.txt
vendored
Normal file
@@ -0,0 +1,34 @@
|
||||
Address = "127.0.0.1";
|
||||
Login = "SA";
|
||||
Password = "12we...";
|
||||
Base = "test_data";
|
||||
|
||||
TLSSettings = OPI_MSSQL.GetTlsSettings(True);
|
||||
ConnectionString = OPI_MSSQL.GenerateConnectionString(Address, Base, Login, Password);
|
||||
|
||||
Table = "test_data";
|
||||
|
||||
Filters = New Array;
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "gender");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "Male"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
FilterStructure.Insert("union", "AND");
|
||||
|
||||
Filters.Add(FilterStructure);
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "ip_address");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "127.0.0.1"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
|
||||
// When using the connection string, a new connection is initialised,
|
||||
// which will be closed after the function is executed.
|
||||
// If several operations are performed, it is desirable to use one connection,
|
||||
// previously created by the CreateConnection function()
|
||||
Result = OPI_MSSQL.DeleteRecords(Table, Filters, ConnectionString, TLSSettings);
|
29
docs/en/examples/MSSQL/UpdateRecords.txt
vendored
Normal file
29
docs/en/examples/MSSQL/UpdateRecords.txt
vendored
Normal file
@@ -0,0 +1,29 @@
|
||||
Address = "127.0.0.1";
|
||||
Login = "SA";
|
||||
Password = "12we...";
|
||||
Base = "test_data";
|
||||
|
||||
TLSSettings = OPI_MSSQL.GetTlsSettings(True);
|
||||
ConnectionString = OPI_MSSQL.GenerateConnectionString(Address, Base, Login, Password);
|
||||
|
||||
Table = "test_data";
|
||||
|
||||
FieldsStructure = New Structure;
|
||||
FieldsStructure.Insert("ip_address", New Structure("VARCHAR", "127.0.0.1"));
|
||||
|
||||
Filters = New Array;
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "gender");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "Male"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
|
||||
Filters.Add(FilterStructure);
|
||||
|
||||
// When using the connection string, a new connection is initialised,
|
||||
// which will be closed after the function is executed.
|
||||
// If several operations are performed, it is desirable to use one connection,
|
||||
// previously created by the CreateConnection function()
|
||||
Result = OPI_MSSQL.UpdateRecords(Table, FieldsStructure, FilterStructure, ConnectionString, TLSSettings);
|
33
docs/en/md/MSSQL/Orm/Delete-records.mdx
vendored
33
docs/en/md/MSSQL/Orm/Delete-records.mdx
vendored
@@ -30,7 +30,40 @@ import TabItem from '@theme/TabItem';
|
||||
|
||||
|
||||
```bsl title="1C:Enterprise/OneScript code example"
|
||||
Address = "127.0.0.1";
|
||||
Login = "SA";
|
||||
Password = "12we...";
|
||||
Base = "test_data";
|
||||
|
||||
TLSSettings = OPI_MSSQL.GetTlsSettings(True);
|
||||
ConnectionString = OPI_MSSQL.GenerateConnectionString(Address, Base, Login, Password);
|
||||
|
||||
Table = "test_data";
|
||||
|
||||
Filters = New Array;
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "gender");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "Male"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
FilterStructure.Insert("union", "AND");
|
||||
|
||||
Filters.Add(FilterStructure);
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "ip_address");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "127.0.0.1"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
|
||||
// When using the connection string, a new connection is initialised,
|
||||
// which will be closed after the function is executed.
|
||||
// If several operations are performed, it is desirable to use one connection,
|
||||
// previously created by the CreateConnection function()
|
||||
Result = OPI_MSSQL.DeleteRecords(Table, Filters, ConnectionString, TLSSettings);
|
||||
```
|
||||
|
||||
|
||||
|
28
docs/en/md/MSSQL/Orm/Update-records.mdx
vendored
28
docs/en/md/MSSQL/Orm/Update-records.mdx
vendored
@@ -37,7 +37,35 @@ List of available types is described on the initial page of the MSSQL library do
|
||||
|
||||
|
||||
```bsl title="1C:Enterprise/OneScript code example"
|
||||
Address = "127.0.0.1";
|
||||
Login = "SA";
|
||||
Password = "12we...";
|
||||
Base = "test_data";
|
||||
|
||||
TLSSettings = OPI_MSSQL.GetTlsSettings(True);
|
||||
ConnectionString = OPI_MSSQL.GenerateConnectionString(Address, Base, Login, Password);
|
||||
|
||||
Table = "test_data";
|
||||
|
||||
FieldsStructure = New Structure;
|
||||
FieldsStructure.Insert("ip_address", New Structure("VARCHAR", "127.0.0.1"));
|
||||
|
||||
Filters = New Array;
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "gender");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "Male"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
|
||||
Filters.Add(FilterStructure);
|
||||
|
||||
// When using the connection string, a new connection is initialised,
|
||||
// which will be closed after the function is executed.
|
||||
// If several operations are performed, it is desirable to use one connection,
|
||||
// previously created by the CreateConnection function()
|
||||
Result = OPI_MSSQL.UpdateRecords(Table, FieldsStructure, FilterStructure, ConnectionString, TLSSettings);
|
||||
```
|
||||
|
||||
|
||||
|
4
docs/ru/data/MSSQL/ОбновитьЗаписи.json
vendored
Normal file
4
docs/ru/data/MSSQL/ОбновитьЗаписи.json
vendored
Normal file
@@ -0,0 +1,4 @@
|
||||
{
|
||||
"Адрес": "127.0.0.1",
|
||||
"Пароль": "12we..."
|
||||
}
|
4
docs/ru/data/MSSQL/УдалитьЗаписи.json
vendored
Normal file
4
docs/ru/data/MSSQL/УдалитьЗаписи.json
vendored
Normal file
@@ -0,0 +1,4 @@
|
||||
{
|
||||
"Адрес": "127.0.0.1",
|
||||
"Пароль": "12we..."
|
||||
}
|
29
docs/ru/examples/MSSQL/ОбновитьЗаписи.txt
vendored
Normal file
29
docs/ru/examples/MSSQL/ОбновитьЗаписи.txt
vendored
Normal file
@@ -0,0 +1,29 @@
|
||||
Адрес = "127.0.0.1";
|
||||
Логин = "SA";
|
||||
Пароль = "12we...";
|
||||
База = "test_data";
|
||||
|
||||
НастройкиTLS = OPI_MSSQL.ПолучитьНастройкиTls(Истина);
|
||||
СтрокаПодключения = OPI_MSSQL.СформироватьСтрокуПодключения(Адрес, База, Логин, Пароль);
|
||||
|
||||
Таблица = "test_data";
|
||||
|
||||
СтруктураПолей = Новый Структура;
|
||||
СтруктураПолей.Вставить("ip_address", Новый Структура("VARCHAR", "127.0.0.1"));
|
||||
|
||||
Фильтры = Новый Массив;
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "gender");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "Male"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
|
||||
Фильтры.Добавить(СтруктураФильтра);
|
||||
|
||||
// При использовании строки подключения инициализируется новое соединение,
|
||||
// которое будет закрыто после выполнения функции.
|
||||
// В случае выполнения нескольких операций желательно использовать одно соединение,
|
||||
// заранее созданное функцией ОткрытьСоединение()
|
||||
Результат = OPI_MSSQL.ОбновитьЗаписи(Таблица, СтруктураПолей, СтруктураФильтра, СтрокаПодключения, НастройкиTLS);
|
34
docs/ru/examples/MSSQL/УдалитьЗаписи.txt
vendored
Normal file
34
docs/ru/examples/MSSQL/УдалитьЗаписи.txt
vendored
Normal file
@@ -0,0 +1,34 @@
|
||||
Адрес = "127.0.0.1";
|
||||
Логин = "SA";
|
||||
Пароль = "12we...";
|
||||
База = "test_data";
|
||||
|
||||
НастройкиTLS = OPI_MSSQL.ПолучитьНастройкиTls(Истина);
|
||||
СтрокаПодключения = OPI_MSSQL.СформироватьСтрокуПодключения(Адрес, База, Логин, Пароль);
|
||||
|
||||
Таблица = "test_data";
|
||||
|
||||
Фильтры = Новый Массив;
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "gender");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "Male"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
СтруктураФильтра.Вставить("union", "AND");
|
||||
|
||||
Фильтры.Добавить(СтруктураФильтра);
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "ip_address");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "127.0.0.1"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
|
||||
// При использовании строки подключения инициализируется новое соединение,
|
||||
// которое будет закрыто после выполнения функции.
|
||||
// В случае выполнения нескольких операций желательно использовать одно соединение,
|
||||
// заранее созданное функцией ОткрытьСоединение()
|
||||
Результат = OPI_MSSQL.УдалитьЗаписи(Таблица, Фильтры, СтрокаПодключения, НастройкиTls);
|
33
docs/ru/md/MSSQL/Orm/Delete-records.mdx
vendored
33
docs/ru/md/MSSQL/Orm/Delete-records.mdx
vendored
@@ -30,7 +30,40 @@ import TabItem from '@theme/TabItem';
|
||||
|
||||
|
||||
```bsl title="Пример использования для 1С:Предприятие/OneScript"
|
||||
Адрес = "127.0.0.1";
|
||||
Логин = "SA";
|
||||
Пароль = "12we...";
|
||||
База = "test_data";
|
||||
|
||||
НастройкиTLS = OPI_MSSQL.ПолучитьНастройкиTls(Истина);
|
||||
СтрокаПодключения = OPI_MSSQL.СформироватьСтрокуПодключения(Адрес, База, Логин, Пароль);
|
||||
|
||||
Таблица = "test_data";
|
||||
|
||||
Фильтры = Новый Массив;
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "gender");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "Male"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
СтруктураФильтра.Вставить("union", "AND");
|
||||
|
||||
Фильтры.Добавить(СтруктураФильтра);
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "ip_address");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "127.0.0.1"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
|
||||
// При использовании строки подключения инициализируется новое соединение,
|
||||
// которое будет закрыто после выполнения функции.
|
||||
// В случае выполнения нескольких операций желательно использовать одно соединение,
|
||||
// заранее созданное функцией ОткрытьСоединение()
|
||||
Результат = OPI_MSSQL.УдалитьЗаписи(Таблица, Фильтры, СтрокаПодключения, НастройкиTls);
|
||||
```
|
||||
|
||||
|
||||
|
28
docs/ru/md/MSSQL/Orm/Update-records.mdx
vendored
28
docs/ru/md/MSSQL/Orm/Update-records.mdx
vendored
@@ -37,7 +37,35 @@ import TabItem from '@theme/TabItem';
|
||||
|
||||
|
||||
```bsl title="Пример использования для 1С:Предприятие/OneScript"
|
||||
Адрес = "127.0.0.1";
|
||||
Логин = "SA";
|
||||
Пароль = "12we...";
|
||||
База = "test_data";
|
||||
|
||||
НастройкиTLS = OPI_MSSQL.ПолучитьНастройкиTls(Истина);
|
||||
СтрокаПодключения = OPI_MSSQL.СформироватьСтрокуПодключения(Адрес, База, Логин, Пароль);
|
||||
|
||||
Таблица = "test_data";
|
||||
|
||||
СтруктураПолей = Новый Структура;
|
||||
СтруктураПолей.Вставить("ip_address", Новый Структура("VARCHAR", "127.0.0.1"));
|
||||
|
||||
Фильтры = Новый Массив;
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "gender");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "Male"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
|
||||
Фильтры.Добавить(СтруктураФильтра);
|
||||
|
||||
// При использовании строки подключения инициализируется новое соединение,
|
||||
// которое будет закрыто после выполнения функции.
|
||||
// В случае выполнения нескольких операций желательно использовать одно соединение,
|
||||
// заранее созданное функцией ОткрытьСоединение()
|
||||
Результат = OPI_MSSQL.ОбновитьЗаписи(Таблица, СтруктураПолей, СтруктураФильтра, СтрокаПодключения, НастройкиTLS);
|
||||
```
|
||||
|
||||
|
||||
|
16724
service/dictionaries/en.json
vendored
16724
service/dictionaries/en.json
vendored
File diff suppressed because it is too large
Load Diff
3
src/en/OInt/core/Modules/OPI_MSSQL.os
vendored
3
src/en/OInt/core/Modules/OPI_MSSQL.os
vendored
@@ -612,8 +612,7 @@ Function ProcessParameter(CurrentParameter, AsObject = True)
|
||||
|
||||
ElsIf CurrentType = Type("Boolean") Then
|
||||
|
||||
CurrentParameter = ?(CurrentParameter, 1, 0);
|
||||
CurrentKey = "BIT";
|
||||
CurrentKey = "BIT";
|
||||
|
||||
ElsIf CurrentType = Type("Number") Then
|
||||
|
||||
|
113
src/en/OInt/tests/Modules/internal/OPI_Tests.os
vendored
113
src/en/OInt/tests/Modules/internal/OPI_Tests.os
vendored
@@ -2843,6 +2843,8 @@ Procedure MSS_ORM() Export
|
||||
MSSQL_CreateTable(TestParameters);
|
||||
MSSQL_AddRecords(TestParameters);
|
||||
MSSQL_GetRecords(TestParameters);
|
||||
MSSQL_UpdateRecords(TestParameters);
|
||||
MSSQL_DeleteRecords(TestParameters);
|
||||
|
||||
EndProcedure
|
||||
|
||||
@@ -24233,6 +24235,117 @@ Procedure MSSQL_GetRecords(FunctionParameters)
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure MSSQL_UpdateRecords(FunctionParameters)
|
||||
|
||||
Address = FunctionParameters["PG_IP"];
|
||||
Login = "SA";
|
||||
Password = FunctionParameters["PG_Password"];
|
||||
Base = "test_data";
|
||||
|
||||
TLSSettings = OPI_MSSQL.GetTlsSettings(True);
|
||||
ConnectionString = OPI_MSSQL.GenerateConnectionString(Address, Base, Login, Password);
|
||||
|
||||
Table = "test_data";
|
||||
|
||||
FieldsStructure = New Structure;
|
||||
FieldsStructure.Insert("ip_address", New Structure("VARCHAR", "127.0.0.1"));
|
||||
|
||||
Filters = New Array;
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "gender");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "Male"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
|
||||
Filters.Add(FilterStructure);
|
||||
|
||||
Count = OPI_MSSQL.GetRecords(Table, , Filters, , , ConnectionString, TLSSettings); // SKIP
|
||||
OPI_TestDataRetrieval.WriteLog(Count, "UpdateRecords (amount)", "MSSQL"); // SKIP
|
||||
Count = Count["data"].Count(); // SKIP
|
||||
|
||||
// When using the connection string, a new connection is initialised,
|
||||
// which will be closed after the function is executed.
|
||||
// If several operations are performed, it is desirable to use one connection,
|
||||
// previously created by the CreateConnection function()
|
||||
Result = OPI_MSSQL.UpdateRecords(Table, FieldsStructure, FilterStructure, ConnectionString, TLSSettings);
|
||||
|
||||
// END
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "UpdateRecords", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Result);
|
||||
|
||||
Check = OPI_MSSQL.GetRecords(Table, "['ip_address']", Filters, , , ConnectionString, TLSSettings);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Check, "UpdateRecords (check)", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Check);
|
||||
OPI_TestDataRetrieval.Check_Array(Check["data"], Count);
|
||||
|
||||
For N = 0 To Check["data"].UBound() Do
|
||||
OPI_TestDataRetrieval.Check_SQLiteFieldsValues(Check["data"][N], FieldsStructure);
|
||||
EndDo;
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure MSSQL_DeleteRecords(FunctionParameters)
|
||||
|
||||
Address = FunctionParameters["PG_IP"];
|
||||
Login = "SA";
|
||||
Password = FunctionParameters["PG_Password"];
|
||||
Base = "test_data";
|
||||
|
||||
TLSSettings = OPI_MSSQL.GetTlsSettings(True);
|
||||
ConnectionString = OPI_MSSQL.GenerateConnectionString(Address, Base, Login, Password);
|
||||
|
||||
Table = "test_data";
|
||||
|
||||
Filters = New Array;
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "gender");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "Male"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
FilterStructure.Insert("union", "AND");
|
||||
|
||||
Filters.Add(FilterStructure);
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "ip_address");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "127.0.0.1"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
|
||||
Obtaining = OPI_MSSQL.GetRecords(Table, , Filters, , , ConnectionString, TLSSettings); // SKIP
|
||||
|
||||
// When using the connection string, a new connection is initialised,
|
||||
// which will be closed after the function is executed.
|
||||
// If several operations are performed, it is desirable to use one connection,
|
||||
// previously created by the CreateConnection function()
|
||||
Result = OPI_MSSQL.DeleteRecords(Table, Filters, ConnectionString, TLSSettings);
|
||||
|
||||
// END
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Obtaining, "DeleteRecords (get)", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Result);
|
||||
|
||||
Count = Obtaining["data"].Count();
|
||||
Residue = 100 - Count;
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "DeleteRecords", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Result);
|
||||
|
||||
Result = OPI_MSSQL.GetRecords(Table, , , , , ConnectionString, TLSSettings);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "DeleteRecords (check)", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Result);
|
||||
OPI_TestDataRetrieval.Check_Array(Result["data"], Residue);
|
||||
|
||||
EndProcedure
|
||||
|
||||
#EndRegion
|
||||
|
||||
#EndRegion
|
||||
|
@@ -612,8 +612,7 @@ Function ProcessParameter(CurrentParameter, AsObject = True)
|
||||
|
||||
ElsIf CurrentType = Type("Boolean") Then
|
||||
|
||||
CurrentParameter = ?(CurrentParameter, 1, 0);
|
||||
CurrentKey = "BIT";
|
||||
CurrentKey = "BIT";
|
||||
|
||||
ElsIf CurrentType = Type("Number") Then
|
||||
|
||||
|
113
src/en/OPI/src/CommonModules/OPI_Tests/Module.bsl
vendored
113
src/en/OPI/src/CommonModules/OPI_Tests/Module.bsl
vendored
@@ -2843,6 +2843,8 @@ Procedure MSS_ORM() Export
|
||||
MSSQL_CreateTable(TestParameters);
|
||||
MSSQL_AddRecords(TestParameters);
|
||||
MSSQL_GetRecords(TestParameters);
|
||||
MSSQL_UpdateRecords(TestParameters);
|
||||
MSSQL_DeleteRecords(TestParameters);
|
||||
|
||||
EndProcedure
|
||||
|
||||
@@ -24233,6 +24235,117 @@ Procedure MSSQL_GetRecords(FunctionParameters)
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure MSSQL_UpdateRecords(FunctionParameters)
|
||||
|
||||
Address = FunctionParameters["PG_IP"];
|
||||
Login = "SA";
|
||||
Password = FunctionParameters["PG_Password"];
|
||||
Base = "test_data";
|
||||
|
||||
TLSSettings = OPI_MSSQL.GetTlsSettings(True);
|
||||
ConnectionString = OPI_MSSQL.GenerateConnectionString(Address, Base, Login, Password);
|
||||
|
||||
Table = "test_data";
|
||||
|
||||
FieldsStructure = New Structure;
|
||||
FieldsStructure.Insert("ip_address", New Structure("VARCHAR", "127.0.0.1"));
|
||||
|
||||
Filters = New Array;
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "gender");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "Male"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
|
||||
Filters.Add(FilterStructure);
|
||||
|
||||
Count = OPI_MSSQL.GetRecords(Table, , Filters, , , ConnectionString, TLSSettings); // SKIP
|
||||
OPI_TestDataRetrieval.WriteLog(Count, "UpdateRecords (amount)", "MSSQL"); // SKIP
|
||||
Count = Count["data"].Count(); // SKIP
|
||||
|
||||
// When using the connection string, a new connection is initialised,
|
||||
// which will be closed after the function is executed.
|
||||
// If several operations are performed, it is desirable to use one connection,
|
||||
// previously created by the CreateConnection function()
|
||||
Result = OPI_MSSQL.UpdateRecords(Table, FieldsStructure, FilterStructure, ConnectionString, TLSSettings);
|
||||
|
||||
// END
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "UpdateRecords", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Result);
|
||||
|
||||
Check = OPI_MSSQL.GetRecords(Table, "['ip_address']", Filters, , , ConnectionString, TLSSettings);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Check, "UpdateRecords (check)", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Check);
|
||||
OPI_TestDataRetrieval.Check_Array(Check["data"], Count);
|
||||
|
||||
For N = 0 To Check["data"].UBound() Do
|
||||
OPI_TestDataRetrieval.Check_SQLiteFieldsValues(Check["data"][N], FieldsStructure);
|
||||
EndDo;
|
||||
|
||||
EndProcedure
|
||||
|
||||
Procedure MSSQL_DeleteRecords(FunctionParameters)
|
||||
|
||||
Address = FunctionParameters["PG_IP"];
|
||||
Login = "SA";
|
||||
Password = FunctionParameters["PG_Password"];
|
||||
Base = "test_data";
|
||||
|
||||
TLSSettings = OPI_MSSQL.GetTlsSettings(True);
|
||||
ConnectionString = OPI_MSSQL.GenerateConnectionString(Address, Base, Login, Password);
|
||||
|
||||
Table = "test_data";
|
||||
|
||||
Filters = New Array;
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "gender");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "Male"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
FilterStructure.Insert("union", "AND");
|
||||
|
||||
Filters.Add(FilterStructure);
|
||||
|
||||
FilterStructure = New Structure;
|
||||
|
||||
FilterStructure.Insert("field", "ip_address");
|
||||
FilterStructure.Insert("type" , "=");
|
||||
FilterStructure.Insert("value", New Structure("NVARCHAR", "127.0.0.1"));
|
||||
FilterStructure.Insert("raw" , False);
|
||||
|
||||
Obtaining = OPI_MSSQL.GetRecords(Table, , Filters, , , ConnectionString, TLSSettings); // SKIP
|
||||
|
||||
// When using the connection string, a new connection is initialised,
|
||||
// which will be closed after the function is executed.
|
||||
// If several operations are performed, it is desirable to use one connection,
|
||||
// previously created by the CreateConnection function()
|
||||
Result = OPI_MSSQL.DeleteRecords(Table, Filters, ConnectionString, TLSSettings);
|
||||
|
||||
// END
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Obtaining, "DeleteRecords (get)", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Result);
|
||||
|
||||
Count = Obtaining["data"].Count();
|
||||
Residue = 100 - Count;
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "DeleteRecords", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Result);
|
||||
|
||||
Result = OPI_MSSQL.GetRecords(Table, , , , , ConnectionString, TLSSettings);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "DeleteRecords (check)", "MSSQL");
|
||||
OPI_TestDataRetrieval.Check_ResultTrue(Result);
|
||||
OPI_TestDataRetrieval.Check_Array(Result["data"], Residue);
|
||||
|
||||
EndProcedure
|
||||
|
||||
#EndRegion
|
||||
|
||||
#EndRegion
|
||||
|
3
src/ru/OInt/core/Modules/OPI_MSSQL.os
vendored
3
src/ru/OInt/core/Modules/OPI_MSSQL.os
vendored
@@ -612,8 +612,7 @@
|
||||
|
||||
ИначеЕсли ТекущийТип = Тип("Булево") Тогда
|
||||
|
||||
ТекущийПараметр = ?(ТекущийПараметр, 1, 0);
|
||||
ТекущийКлюч = "BIT";
|
||||
ТекущийКлюч = "BIT";
|
||||
|
||||
ИначеЕсли ТекущийТип = Тип("Число") Тогда
|
||||
|
||||
|
113
src/ru/OInt/tests/Modules/internal/OPI_Тесты.os
vendored
113
src/ru/OInt/tests/Modules/internal/OPI_Тесты.os
vendored
@@ -2843,6 +2843,8 @@
|
||||
MSSQL_СоздатьТаблицу(ПараметрыТеста);
|
||||
MSSQL_ДобавитьЗаписи(ПараметрыТеста);
|
||||
MSSQL_ПолучитьЗаписи(ПараметрыТеста);
|
||||
MSSQL_ОбновитьЗаписи(ПараметрыТеста);
|
||||
MSSQL_УдалитьЗаписи(ПараметрыТеста);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
@@ -24233,6 +24235,117 @@
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура MSSQL_ОбновитьЗаписи(ПараметрыФункции)
|
||||
|
||||
Адрес = ПараметрыФункции["PG_IP"];
|
||||
Логин = "SA";
|
||||
Пароль = ПараметрыФункции["PG_Password"];
|
||||
База = "test_data";
|
||||
|
||||
НастройкиTLS = OPI_MSSQL.ПолучитьНастройкиTls(Истина);
|
||||
СтрокаПодключения = OPI_MSSQL.СформироватьСтрокуПодключения(Адрес, База, Логин, Пароль);
|
||||
|
||||
Таблица = "test_data";
|
||||
|
||||
СтруктураПолей = Новый Структура;
|
||||
СтруктураПолей.Вставить("ip_address", Новый Структура("VARCHAR", "127.0.0.1"));
|
||||
|
||||
Фильтры = Новый Массив;
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "gender");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "Male"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
|
||||
Фильтры.Добавить(СтруктураФильтра);
|
||||
|
||||
Количество = OPI_MSSQL.ПолучитьЗаписи(Таблица, , Фильтры, , , СтрокаПодключения, НастройкиTLS); // SKIP
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Количество, "ОбновитьЗаписи (количество)", "MSSQL"); // SKIP
|
||||
Количество = Количество["data"].Количество(); // SKIP
|
||||
|
||||
// При использовании строки подключения инициализируется новое соединение,
|
||||
// которое будет закрыто после выполнения функции.
|
||||
// В случае выполнения нескольких операций желательно использовать одно соединение,
|
||||
// заранее созданное функцией ОткрытьСоединение()
|
||||
Результат = OPI_MSSQL.ОбновитьЗаписи(Таблица, СтруктураПолей, СтруктураФильтра, СтрокаПодключения, НастройкиTLS);
|
||||
|
||||
// END
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОбновитьЗаписи", "MSSQL");
|
||||
OPI_ПолучениеДанныхТестов.Проверка_РезультатИстина(Результат);
|
||||
|
||||
Проверка = OPI_MSSQL.ПолучитьЗаписи(Таблица, "['ip_address']", Фильтры, , , СтрокаПодключения, НастройкиTLS);
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Проверка, "ОбновитьЗаписи (проверка)", "MSSQL");
|
||||
OPI_ПолучениеДанныхТестов.Проверка_РезультатИстина(Проверка);
|
||||
OPI_ПолучениеДанныхТестов.Проверка_Массив(Проверка["data"], Количество);
|
||||
|
||||
Для Н = 0 По Проверка["data"].ВГраница() Цикл
|
||||
OPI_ПолучениеДанныхТестов.Проверка_SQLiteЗначенияПолей(Проверка["data"][Н], СтруктураПолей);
|
||||
КонецЦикла;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура MSSQL_УдалитьЗаписи(ПараметрыФункции)
|
||||
|
||||
Адрес = ПараметрыФункции["PG_IP"];
|
||||
Логин = "SA";
|
||||
Пароль = ПараметрыФункции["PG_Password"];
|
||||
База = "test_data";
|
||||
|
||||
НастройкиTLS = OPI_MSSQL.ПолучитьНастройкиTls(Истина);
|
||||
СтрокаПодключения = OPI_MSSQL.СформироватьСтрокуПодключения(Адрес, База, Логин, Пароль);
|
||||
|
||||
Таблица = "test_data";
|
||||
|
||||
Фильтры = Новый Массив;
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "gender");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "Male"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
СтруктураФильтра.Вставить("union", "AND");
|
||||
|
||||
Фильтры.Добавить(СтруктураФильтра);
|
||||
|
||||
СтруктураФильтра = Новый Структура;
|
||||
|
||||
СтруктураФильтра.Вставить("field", "ip_address");
|
||||
СтруктураФильтра.Вставить("type" , "=");
|
||||
СтруктураФильтра.Вставить("value", Новый Структура("NVARCHAR", "127.0.0.1"));
|
||||
СтруктураФильтра.Вставить("raw" , Ложь);
|
||||
|
||||
Получение = OPI_MSSQL.ПолучитьЗаписи(Таблица, , Фильтры, , , СтрокаПодключения, НастройкиTls); // SKIP
|
||||
|
||||
// При использовании строки подключения инициализируется новое соединение,
|
||||
// которое будет закрыто после выполнения функции.
|
||||
// В случае выполнения нескольких операций желательно использовать одно соединение,
|
||||
// заранее созданное функцией ОткрытьСоединение()
|
||||
Результат = OPI_MSSQL.УдалитьЗаписи(Таблица, Фильтры, СтрокаПодключения, НастройкиTls);
|
||||
|
||||
// END
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Получение, "УдалитьЗаписи (получение)", "MSSQL");
|
||||
OPI_ПолучениеДанныхТестов.Проверка_РезультатИстина(Результат);
|
||||
|
||||
Количество = Получение["data"].Количество();
|
||||
Остаток = 100 - Количество;
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьЗаписи", "MSSQL");
|
||||
OPI_ПолучениеДанныхТестов.Проверка_РезультатИстина(Результат);
|
||||
|
||||
Результат = OPI_MSSQL.ПолучитьЗаписи(Таблица, , , , , СтрокаПодключения, НастройкиTLS);
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьЗаписи (проверка)", "MSSQL");
|
||||
OPI_ПолучениеДанныхТестов.Проверка_РезультатИстина(Результат);
|
||||
OPI_ПолучениеДанныхТестов.Проверка_Массив(Результат["data"], Остаток);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
|
Reference in New Issue
Block a user