Имя: Пароль:
1C
 
Как запускать обработку при запуске 1с 7.7
0 Velber
 
06.07.09
10:43
Как запустить обработку на выполнение при запуске 1С 7.7 ?
1 1assNewb
 
06.07.09
10:44
в приначале работы системы пишешь условие при котором запускается обработка, и ОткрытьФорму
2 povar
 
06.07.09
10:44
воткни ее вызов в приНачалеРаботыСистемы
3 ДенисЧ
 
06.07.09
10:44
ПриНАчалеРаботыСистемы()
4 Джордж1
 
06.07.09
10:45
(0)Замени своей обработкой рекламную
5 Velber
 
06.07.09
10:51
А как запустить обработку в приНачалеРаботыСистемы, без открытия формы, т.е. она должна работать в фоновом режиме?
6 ДенисЧ
 
06.07.09
10:52
(5) 1с - однозадачная система и там нет фонового режима.
7 ДенисЧ
 
06.07.09
10:52
ЗЫ. Я догадывюсь, что имелось в виду, но позанудствую :-)
8 krenk
 
06.07.09
10:53
(5) хм... фига-се... 0_о

Процедура ПриОткрытии()

Сформировать();
СтатусВозврата(0);
Возврат;

КонецПроцедуры
9 Velber
 
06.07.09
10:53
))) Тогда, как сделать, чтобы запустилась определенная обработка из обработки, без отображения формы)
10 Velber
 
06.07.09
10:53
Спасибо)
11 ДенисЧ
 
06.07.09
10:54
(9) Тогда читай (8) и учись правильно задавать вопросы
12 1assNewb
 
06.07.09
10:54
процедуру в глоб модуль добавь и выполняй
13 Velber
 
06.07.09
11:24
А как запустить обработку из глобального модуля?
14 SaM58
 
06.07.09
11:27
(13) так же как и не из глобального
15 dk
 
06.07.09
11:28
все извращенцы, акромя меня )
заколебался ужо копировать

dim err_code

sub my

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

   s_path = "Z:\ххххх\"
   s_user = "Обработчик"
   s_pass = "******"
   s_report = "Z:\.....ert"
   s_context = "Run"

   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)
16 Velber
 
06.07.09
11:30
ОГО ))), что-то я думал все проще будет)
17 SaM58
 
06.07.09
11:30
(15) не ищешь легких путей? :)
18 dk
 
06.07.09
11:32
(17) да, чуток невнимательно прочитал тему)
хотя ...
19 krenk
 
06.07.09
11:34
(18) нормуль... то, что надо.... :D
Программист всегда исправляет последнюю ошибку.