1

Тема: VBS: Ошибка при запуске отчета 1с в нескольких базах

Вот сама ошибка:
http://pics.rsh.ru/img/error_1ilr8.jpg
А вот текст скрипта:

dim err_code

sub my

    Dim v7
    Dim s_path
    Dim s_user
    Dim s_pass
    Dim s_report
    Dim s_context

    'Логин, пароль для входа в базу. Путь к исполняемому отчету, параметры выполнения.
    s_user = "robot"
    s_pass = "256"
    s_report = "d:\1C_base\_autoStart\ПечатьСпискаДетей.ert"
    s_context = "ТекущийМесяц"

   '1) база1
    s_path = "\\zarplata\ZP\база1\"

    Set v7 = CreateObject("V77.Application")
    result = v7.Initialize(v7.RMTrade, "/D" & s_path & " /N" & s_user & " /P" & s_pass, "NO_SPLASH_SHOW")
    if  not result then
        'msgbox("Облом")
        exit sub
    end if

    result = v7.OpenFormModal("Отчет", s_context, s_report)

    'msgbox("s_context = " & s_context)
    'msgbox("result = " & result)

    'msgbox("Усе")
    
    err_code = 0

    '2) база2
    s_path = "\\zarplata\ZP_out\база2\"

    Set v7 = CreateObject("V77.Application")
    result = v7.Initialize(v7.RMTrade, "/D" & s_path & " /N" & s_user & " /P" & s_pass, "NO_SPLASH_SHOW")
    if  not result then
        'msgbox("Облом")
        exit sub
    end if

    result = v7.OpenFormModal("Отчет", s_context, s_report)

    'msgbox("s_context = " & s_context)
    'msgbox("result = " & result)

    'msgbox("Усе")
    
    err_code = 0


end sub

err_code = 255
my()
wscript.Quit(err_code)

Ошибка выскакивает на различных базах в строке

result = v7.OpenFormModal("Отчет", s_context, s_report)

Всего баз 29 штук.

2

Re: VBS: Ошибка при запуске отчета 1с в нескольких базах

Zdec:
1. Для оформления кода используется тэг «code».
2. Для оформления изображения — тэг «img».
3. Для сообщения об ошибке — такая методика, а не картинки во весь экран.
4. Предложения пишутся с большой буквы.

Я исправил, что мог.