Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / нужно запустить внешнюю обработку 1с из ВБ / 13 сообщений из 13, страница 1 из 1
26.01.2011, 14:49
    #37079685
podbot
podbot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub CommandButton1_Click()
Dim varTrade
Dim res

Set my1c = CreateObject("V77.Application")
varTrade = my1c.RMTrade
res = my1c.Initialize(varTrade, "", "")


Set a = my1c.EvalExpr("Открытьформумодально(""Обработка"",,""\\TEST2003\Test Trade2006\Trade2006\"")")
End Sub
есть вот такой код, выдает ошибку на сервере в чем проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 14:51
    #37079689
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
podbot,

что за ошибка ?
Может вам лучше в форум по 1С ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 14:52
    #37079691
podbot
podbot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub CommandButton1_Click()
Dim varTrade
Dim res

Set my1c = CreateObject("V77.Application")
varTrade = my1c.RMTrade
res = my1c.Initialize(varTrade, "", "")


 my1c.EvalExpr ("ОткрытьФормуМодально(""Обработка"",,""C:\Test Trade2006\Trade2006\EXTFORMS\òåñò.ert"")")
End Sub
сори вот так у меня
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 14:55
    #37079701
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
podbot,

еще раз
что за ошибка ?
Может вам лучше в форум по 1С ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 14:56
    #37079704
podbot
podbot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
выдает ошибку "Automation error. Ошибка на сервере" в чем проблема
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 14:58
    #37079715
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
podbot,

на какой строчке ? Последней ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 14:59
    #37079716
podbot
podbot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
да
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 15:18
    #37079774
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
podbot,

скорей всего, тут что-то не так с 1с.
так что давайте-ка в профильный форум.

Модератор: Тема перенесена из форума "Visual Basic".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 15:33
    #37079819
Программист 1с
Программист 1с
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
А "Открытьформумодально("Обработка.ОбновлениеИБ" - например) открывается нормально?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 15:37
    #37079835
podbot
podbot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
посоветовали написать так
res = v7.Открытьформумодально ("Обработка", , "C:\Test Trade2006\Trade2006\EXTFORMS\òåñò.ert")
выдает object required
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2011, 15:47
    #37079859
podbot
podbot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
авторА "Открытьформумодально("Обработка.ОбновлениеИБ" - например) открывается нормально?
нет % (
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2011, 02:05
    #37085690
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
podbot,

Возможно, у пользователя, под которым запускается 1С отсутствует право "Использование в качестве OLE Automation сервера"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2011, 19:21
    #37093906
A. Ivin
A. Ivin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужно запустить внешнюю обработку 1с из ВБ
Возможно запускать через bat файл :
cscript C:\Scripts\SendNewTransfer.vbs c:\Scripts\NewTransfer.ert

Содержание vbs файла:
set wshShell = wScript.createObject("wScript.shell")
wshShell.run """C:\Program Files\1Cv77.ADM\BIN\1cv7s.exe"" enterprise /d""d:\Base"" /nSend /pпароль"

Dim lngS
Dim lngM
Dim lngT
Dim lngI
Dim lngJ

lngS = 60
lngM = 2
WScript.Echo "Ожидаем. Осталось минут:"
For lngJ = 0 To lngM
For lngI = 0 To lngS
WScript.StdOut.Write "."
WScript.Sleep (1000)
Next
lngT = lngM-lngJ
WScript.Echo lngT
Next

wshShell.appActivate "1С:Предприятие"
wshShell.sendKeys "^(o)"
wshShell.sendKeys wScript.arguments.unnamed.item(0)
wshShell.sendKeys "~"

lngS = 60
lngM = 180
WScript.Echo "Ожидаем. Осталось минут:"
For lngJ = 0 To lngM
For lngI = 0 To lngS
WScript.StdOut.Write "."
WScript.Sleep (1000)
Next
lngT = lngM-lngJ
WScript.Echo lngT
Next

wshShell.appActivate "C:\WINDOWS\system32\cmd.exe"
wshShell.sendKeys "(EXIT)"
wshShell.sendKeys "~"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / нужно запустить внешнюю обработку 1с из ВБ / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]