Current Path : /var/www/html/clients/wiki.e-nk.ru/data/cache/4/ |
Current File : /var/www/html/clients/wiki.e-nk.ru/data/cache/4/43c15cb23058a70449f268b6d45ac245.xhtml |
<h3 class="sectionedit1" id="пример_подключения_к_1с">Пример подключения к 1С</h3> <div class="level3"> <pre class="code">BASE_PATH_AUTH_INDEX = 1 BASE_PATH_AUTH_INDEX2 = 2 WINDOWS_AUTH_INDEX = 3 USER_NAME_INDEX = 4 PASSWORD_INDEX = 5 BUTTON_INDEX = 6 AUTHORIZATION_DELIMITER = "|" // Запросить пользователя 1С CaptionStr = LoadString('DIR6BFA9D8B_292B_4826_BEBE_57F956E92098'; 'COMMON') // Авторизация в системе 1С:Предприятие server = "Сервер информационной базы 1С" DB = "База информационной базы 1С" WindowsAuthenticationStr = LoadString('DIRCCF42975_585F_4367_A20E_1B7764A7BD43'; 'COMMON') // Использовать windows-аутентификацию UserNameStr = LoadString('DIRF9F460C1_F1BC_4ACC_8D6B_9B4A9028EE5F'; 'COMMON') // Имя пользователя PasswordStr = LoadString('DIRC6964660_1084_4E06_AEA9_A380EA12F84A'; 'COMMON') // Пароль OKButtonStr = LoadString('DIRSTR_OK'; 'COMMON') // ОК CancelButtonStr = LoadString('DIRSTR_CANCEL_1'; 'COMMON') // Отмена // Запрос имени пользователя и пароля Buttons = Format("%s|%s"; ArrayOf(OKButtonStr; CancelButtonStr)) Labels = Format("*%s|*%s|%s|%s|%s"; ArrayOf(server;DB; WindowsAuthenticationStr; UserNameStr; PasswordStr)) Types = "Строка:50|Строка:50|Признак:Да,Нет:Ч|Строка:35|Строка:35" DefaultValues = Format("VMWare-SQL|1CDirectum|%s|directum|directum1c";NO_VALUE) // IfThen(Application.Connection.OSAuthentification; YES_VALUE; NO_VALUE)) AuthorizationResult = InputDialogEx(Labels; DefaultValues; Types; CaptionStr; ; ; ; Buttons; OKButtonStr; CancelButtonStr) //showmessage(AuthorizationResult) Server = SubString(AuthorizationResult; AUTHORIZATION_DELIMITER; BASE_PATH_AUTH_INDEX) DB = SubString(AuthorizationResult; AUTHORIZATION_DELIMITER; BASE_PATH_AUTH_INDEX2) WindowsAuth = SubString(AuthorizationResult; AUTHORIZATION_DELIMITER; WINDOWS_AUTH_INDEX) UserName = SubString(AuthorizationResult; AUTHORIZATION_DELIMITER; USER_NAME_INDEX) Password = SubString(AuthorizationResult; AUTHORIZATION_DELIMITER; PASSWORD_INDEX) ButtonResult = SubString(AuthorizationResult; AUTHORIZATION_DELIMITER; BUTTON_INDEX) if ButtonResult<<>>"Отмена" CONNECTION_PARAMS_DELIMITER = ";" ConnectionParams = Format("srvr=%s;ref=%s"; arrayof(server;db)) if WindowsAuth == NO_VALUE ConnectionParams = AddSubString(Format("Usr=%s;Pwd=%s"; ArrayOf(UserName; Password)); ConnectionParams; CONNECTION_PARAMS_DELIMITER) endif // Подключиться к системе 1С: Предприятие V82App = CreateObject("V82.Application") //automation // V82App = CreateObject("V82.COMConnector") //COM // V82App = CreateObject("V8AppCache.Cache") // V8AppCache.Cache V82App.Connect(ConnectionParams) // Создать нового пользователя //UsersRef = V82App.Catalogs.Пользователи //NewUser = UsersRef.CreateItem() //NewUser.GetForm().DoModal() //V82App=NIL Ref = V82App.Catalogs.Контрагенты НайденныйКонтрагент = Ref.FindByAttribute("ИНН";"1651068025") // НайденныйКонтрагент = Ref.Найтипокоду("000003137") showmessage(НайденныйКонтрагент) showmessage(Ref.ПустаяСсылка()) if НайденныйКонтрагент==Ref.ПустаяСсылка() showmessage("Контрагент не найден") else НайденныйКонтрагент.ПолучитьОбъект().GetForm().DoModal() endif endif </pre> </div>