Your IP : 172.28.240.42

Current Path : /var/www/html/clients/wiki.e-nk.ru/data/cache/4/
Upload File :
Current File : /var/www/html/clients/wiki.e-nk.ru/data/cache/4/43c15cb23058a70449f268b6d45ac245.i

a:6:{i:0;a:3:{i:0;s:14:"document_start";i:1;a:0:{}i:2;i:0;}i:1;a:3:{i:0;s:6:"header";i:1;a:3:{i:0;s:42:"Пример подключения к 1С";i:1;i:3;i:2;i:1;}i:2;i:1;}i:2;a:3:{i:0;s:12:"section_open";i:1;a:1:{i:0;i:3;}i:2;i:1;}i:3;a:3:{i:0;s:4:"code";i:1;a:3:{i:0;s:3564:"
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     
";i:1;N;i:2;N;}i:2;i:57;}i:4;a:3:{i:0;s:13:"section_close";i:1;a:0:{}i:2;i:3629;}i:5;a:3:{i:0;s:12:"document_end";i:1;a:0:{}i:2;i:3629;}}