VB + 1C

[с@p!t@n_Nem0]

Товарисчи... проблемка.. короче мне нужно написать прогу на VB.. чтобы она открывала 1С... коннектилась к БД и запускала на исполнение файлы *.epf...

Код:
Dim cntr As Object
Dim trade As Object

Private Sub cmdProg_Click()
Set cntr = CreateObject("V8.COMConnector")
Set trade = cntr.Connect("File=""C:\Program Files\1cv8\Base\enterprise demo"";Usr="" Абдулов (гендиректор)"";")
End Sub


Проблемка вот в чем.. короче к БД он коннектиться.. все нормально.. но он не запускает графическую оболочку 1С.. мож кто может помочь? Как ее можно запустить?

И еще вопрос... то что описано -реально? Т.е. в принципе запустить и законнектиться как я понимаю можно.. но можно ли из под VB запустить в 1С файл *.epf на исполнение??? Именно с использованием VB, а не встроенного языка..

Заранее респект отозвавшимся..

[Роман-вб]

Попробуй
В осн. модуле:

Код: Выделить всё

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
                        "ShellExecuteA" (ByVal hwnd As Long, _
                         ByVal lpOperation As String, _
                         ByVal lpFile As String, _
                         ByVal lpParameters As String, _
                         ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long


Public Const SW_SHOWMAXIMIZED = 3

Вызов:

Код: Выделить всё

Call ShellExecute(0, "open", "D:\GOST7798-70.pdf", "", "", SW_SHOWMAXIMIZED)

D:\GOST7798-70.pdf -- то, что надо открыть.

[Ruslan Demidow]

Попробуй
В осн. модуле:

Код: Выделить всё

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
                        "ShellExecuteA" (ByVal hwnd As Long, _
                         ByVal lpOperation As String, _
                         ByVal lpFile As String, _
                         ByVal lpParameters As String, _
                         ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long


Public Const SW_SHOWMAXIMIZED = 3

Вызов:

Код: Выделить всё

Call ShellExecute(0, "open", "D:\GOST7798-70.pdf", "", "", SW_SHOWMAXIMIZED)

D:\GOST7798-70.pdf -- то, что надо открыть.

Не поймёт 1С имя файла в качестве параметра (файл который нужно открыть). Только если это не файл параметров пакетного режима.

Не проще ли сделать в глобальном модуле (в 1С) в процедура ПриНачалеРаботыСистемы проверку на нужного пользователя (можно добавить проверку и на время запуска), и если это тот пользователь что нам нужен - уже средствами языка 1С открыть файл, который нам нужен.
На VB - это будет слишком муторно...

[с@p!t@n_Nem0]

Всем спасибо

[Matew]

1С 7.7 можно запускать, как ActiveX, тогда она умеет запускать базы и выполнять в них комманды на встроенном языке. Наверняка так можно и в 8ке.