Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Старожил


Сообщения: 390
Благодарности: 7

Профиль | Отправить PM | Цитировать


Цитата Iska:
Как именно у Вас в скрипте организован запуск 1С? »
Вот так:
Код: Выделить весь код
zapuskV7 = """C:\Program Files (x86)\1Cv77\BIN\1cv7.exe"""
basefolder   = "C:\folder"
progV7 basefolder,"C:\1\obr.ert","78"
Sub progV7(basef,obr,parametr)
	WriteLog "   ------------------------------"
	WriteLog "   start: " & obr
	Set xFile = fso.CreateTextFile(basef & "\ExtForms\Oper.txt",True)
	xFile.WriteLine obr
	xFile.WriteLine parametr
	xFile.Close
	strParam   = " enterprise /d" & basef & " /nUser /pPass"
	WriteLog "     " & basef
	If SV7(basef) = True Then 
		nErrCode = WshShell.Run (zapuskV7 & strParam,1,True)	
		WriteLog "     Error code WshShell.Run: " & nErrCode
	End If
	WriteLog "   end  : " & obr
End sub
Function SV7(dir)
SV7 = True
fso.CopyFile "C:\folder\1susers.dbf", "C:\1\"
If Err.number <> 0 then
	'база монопольно открыта
        WriteLog "     start cancelled [open exclusively], cant open dbf file ErrNumber=" & Err.Number
	err.clear
        On Error GoTo 0
        SV7 = False
	Exit Function
End if
Sub WriteLog(strLine)
	fLog.WriteLine Date & " (" & Time & ") " & strLine
end sub
Строчка запуска progV7 ... повторяется 4 раза с разными параметрами для обработки obr.ert на языке 1cv7

Отправлено: 22:44, 27-11-2019 | #13