GenniyrigusМожно
Если у Вас есть sql значение
то так:
функция ЗначениеИзСтрокиБД
к примеру
Синтаксис 2: ЗначениеИзСтрокиБД(ТипИВид, ВнутреннийИД)
Параметры:
Тип - тип: Строка. Полный тип объекта. Напимер: Справочник.Контрагенты;
ВнутреннийИД - тип: Строка. Внутренний идентификатор объекта данных. 9 символов.
Возвращает: тип: Перечисление, Справочник, Документ, Счет, ВидСубконто, ПланСчетов. Результат преобразования
если наоборот нужно sql представление то так как я писал выше
Я вообще не работаю в конфигураторе 1С. Вся работа ведется только на уровне базы данных.
Не хранятся пречисления V7.7 в таблицах.
Придется создавать свою таблицу самому.
Увы. В таком случае нужно будет создать свою таблицу и заполнить ее ID и значениями перечислений. Для этого придется открыть V7 как ком-объект и перебирать перечисления. Я это делаю так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
CREATE TABLE [dbo].[Enums](
[Ind] [int] IDENTITY( 1 , 1 ) NOT NULL,
[IndDb] [int] NOT NULL,
[Ident] [varchar]( 100 ) NOT NULL,
[Descr] [varchar]( 250 ) NOT NULL,
CONSTRAINT [PK_Enums] PRIMARY KEY CLUSTERED
(
[Ind] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
CREATE TABLE [dbo].[EnumValues](
[IndEnum] [int] NOT NULL,
[ID] [char]( 9 ) NOT NULL,
[Num] [int] NULL,
[Ident] [varchar]( 100 ) NULL,
[Descr] [varchar]( 250 ) NULL,
CONSTRAINT [PK_EnumValues] PRIMARY KEY CLUSTERED
(
[IndEnum] ASC,
[ID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Set V7 = CreateObject("V77s.Application")
WriteToBar "Инициализация 1С"
DoCmd.Hourglass True
Result = V7.Initialize(V7.RMTrade, "/D""" + Path1C + """", "")
DoCmd.Hourglass False
If Err.Number <> 0 Then
MsgBox "Ошибка инициализации 1C", vbOKOnly + vbExclamation, ""
Exit Sub
End If
If Result = False Then
MsgBox "Ошибка инициализации 1C", vbOKOnly + vbExclamation, ""
Exit Sub
End If
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
Sub CollectEnum(V7 As Object, ByVal Ind As Long)
Dim Rs As ADODB.Recordset
Dim I As Integer
Dim J As Integer
Dim N As Integer
Dim M As Integer
Dim IdentEnum As String
Dim IdentValue As String
Dim Descr As String
Dim IndEnum As Long
Dim ID As String
'создание таблицы перечислений для информационной базы с индексом Ind. V7 - открытая инф. база
N = V7.Метаданные.Перечисление()
For I = 1 To N
WriteToBar "Перечисление: "
IdentEnum = V7.Метаданные.Перечисление(I).Идентификатор()
WriteToBar "Перечисление: " + IdentEnum
Descr = V7.Метаданные.Перечисление(I).Представление()
M = V7.Метаданные.Перечисление(I).Значение()
On Error Resume Next
Set Rs = CurrentProject.Connection.Execute("set nocount on;declare @Ind int;insert into dbo.Enums(IndDb,Ident,Descr) values(" + _
MsNum(Ind) + "," + MsStr(IdentEnum) + "," + MsStr(Descr) + ");set @Ind=scope_identity();select @Ind Ind;")
If Err.Number <> 0 Then
MsgBox "Ошибка записи." + Err.Description, vbOKOnly + vbInformation, ""
Exit Sub
End If
On Error GoTo 0
IndEnum = Rs!Ind
For J = 1 To M
IdentValue = V7.Метаданные.Перечисление(I).Значение(J).Идентификатор()
Descr = V7.Метаданные.Перечисление(I).Значение(J).Представление()
ID = V7.EvalExpr("_IDToStr(Перечисление." + IdentEnum + "." + IdentValue + ")")
On Error Resume Next
CurrentProject.Connection.Execute "insert into dbo.EnumValues(IndEnum,ID,Num,Ident,Descr) values(" + _
MsNum(IndEnum) + "," + MsStr(ID) + "," + MsNum(J) + "," + MsStr(IdentValue) + "," + MsStr(Descr) + ")"
If Err.Number <> 0 Then
MsgBox "Ошибка записи." + Err.Description, vbOKOnly + vbInformation, ""
Exit Sub
End If
Next J
Next I
WriteToBar ""
End Sub
