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.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 = &quot;|&quot;

// Запросить пользователя 1С
CaptionStr = LoadString(&#039;DIR6BFA9D8B_292B_4826_BEBE_57F956E92098&#039;; &#039;COMMON&#039;) // Авторизация в системе 1С:Предприятие
server = &quot;Сервер информационной базы 1С&quot;
DB = &quot;База информационной базы 1С&quot;
WindowsAuthenticationStr = LoadString(&#039;DIRCCF42975_585F_4367_A20E_1B7764A7BD43&#039;; &#039;COMMON&#039;) // Использовать windows-аутентификацию
UserNameStr = LoadString(&#039;DIRF9F460C1_F1BC_4ACC_8D6B_9B4A9028EE5F&#039;; &#039;COMMON&#039;) // Имя пользователя
PasswordStr = LoadString(&#039;DIRC6964660_1084_4E06_AEA9_A380EA12F84A&#039;; &#039;COMMON&#039;) // Пароль
OKButtonStr = LoadString(&#039;DIRSTR_OK&#039;; &#039;COMMON&#039;) // ОК
CancelButtonStr = LoadString(&#039;DIRSTR_CANCEL_1&#039;; &#039;COMMON&#039;) // Отмена

// Запрос имени пользователя и пароля
Buttons = Format(&quot;%s|%s&quot;; ArrayOf(OKButtonStr; CancelButtonStr))
Labels = Format(&quot;*%s|*%s|%s|%s|%s&quot;; ArrayOf(server;DB; WindowsAuthenticationStr; UserNameStr; PasswordStr))
Types = &quot;Строка:50|Строка:50|Признак:Да,Нет:Ч|Строка:35|Строка:35&quot;

DefaultValues = Format(&quot;VMWare-SQL|1CDirectum|%s|directum|directum1c&quot;;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&lt;&lt;&gt;&gt;&quot;Отмена&quot;
  CONNECTION_PARAMS_DELIMITER = &quot;;&quot;
  ConnectionParams = Format(&quot;srvr=%s;ref=%s&quot;; arrayof(server;db))
  if WindowsAuth == NO_VALUE 
    ConnectionParams = AddSubString(Format(&quot;Usr=%s;Pwd=%s&quot;; ArrayOf(UserName; Password)); ConnectionParams; CONNECTION_PARAMS_DELIMITER)
  endif           
  // Подключиться к системе 1С: Предприятие 
  V82App = CreateObject(&quot;V82.Application&quot;)  //automation
 // V82App = CreateObject(&quot;V82.COMConnector&quot;)  //COM
//  V82App = CreateObject(&quot;V8AppCache.Cache&quot;)  //  V8AppCache.Cache


  V82App.Connect(ConnectionParams) 
  // Создать нового пользователя
  //UsersRef = V82App.Catalogs.Пользователи
  //NewUser = UsersRef.CreateItem()
  //NewUser.GetForm().DoModal()
  //V82App=NIL
    
  Ref = V82App.Catalogs.Контрагенты
  НайденныйКонтрагент = Ref.FindByAttribute(&quot;ИНН&quot;;&quot;1651068025&quot;)
//  НайденныйКонтрагент = Ref.Найтипокоду(&quot;000003137&quot;)
  showmessage(НайденныйКонтрагент)
  showmessage(Ref.ПустаяСсылка())  
  if НайденныйКонтрагент==Ref.ПустаяСсылка()
    showmessage(&quot;Контрагент не найден&quot;)
    else
      НайденныйКонтрагент.ПолучитьОбъект().GetForm().DoModal()          
  endif
endif     </pre>

</div>