Говнокод

//делает паузу с округлением до целого числа секунд - 1000, 2000 и т.д.
//Использует ВводСтроки с таймаутом, который работает даже если окно теряет фокус ввода.
Процедура Sleep(Таймаут)
    Предупреждение("Таймаут " + Строка(Таймаут) + " секунд", Таймаут, "Sleep");
	ОбработкаПрерыванияПользователя();
КонецПроцедуры  

Процедура КнопкаВыполнитьНажатие(Кнопка)
	
	Если НЕ ВремяНачалаВыполнения = Дата(1,1,1) Тогда
		Пока Истина = Истина Цикл
			ОбработкаПрерыванияПользователя();
			Sleep(45); //Шаг 45 секунд.	
			Если Час(ТекущаяДата()) = Час(ВремяНачалаВыполнения) И Минута(ТекущаяДата()) >= Минута(ВремяНачалаВыполнения) Тогда
				Прервать;
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
        
        //Далее идет обработка перепроведения документов

КонецПроцедуры

Интересная версия выполнить процедуру по времени

Запостил:

AndreyEvtyushin, 30.09.2011 (Updated 25.03.2018)

Комментарии (5) RSS

lucidfox 15 лет ago # 0

> ОбработкаПрерыванияПользователя();

1с-ный аналог DoEvents?
Ответить
- ingenuus 15 лет ago # 0 ⇈
  
  Нет. Задача этого метода по ctrl + break прервать выполение обработки. Работает только если после нажатия комбинации клавиш обработка зайдет в этот метод, поэтому и размещается в цикле.
  Ответить
mrbus 14 лет ago # 0
```
Пока Истина = Истина цикл
```
Доставило 🙂
Ну, и фоновые задания и обработчики ожидания никто не отменял...
Ответить
- bugmenot 14 лет ago # 0 ⇈
  
  кантианский код
  Ответить
guest 7 лет ago # 0

ь.EG)O:M J?J)V$I?Z$A$W$K(O,G!P"VTND$U)U$I(P"D:X:G$H.Z.Q!N"I?U)NV)E!I(N!E M"ZH)G(ZH.O!H!J$X?G P!Z)F!R K.V Q!T$QX)Z:E!L:Y,M(G:L)S,B!R)X(L)L(E,E"Y"K,Q)HO!P?NK"K(F$Z)U?AS,AD,S(O$A:W)G)E,Q O$J(R"J"V(N,K(C?T H$J Y.T:O?C$J$R?D,E.P$H$K(V"O(N V:F(E:F$W!G?R$V C$U.Z(L?H:Q,E)B)Z)P:H"Z?H.OT.D?B(U"A$H!B L.S"Y)Q)Z"B.U,L.J:O(V,L.V$E.A:A?Y)D.G?P:D!F:M QJ)SV,J!K(Q:H,H,QU?J"G$G$YH?T.V X:Y(L!LB,K:W:U$V"X.S!UX?V?Z"M:X?R)W"K,P"UH$E,Z"X?J.D)Z)K.Y$L(V)EO"B?W:VO.F!N,C!H"D!D(K(W.U(G:A(P)J"AN(E$J,GX.R.Q(WX K?Z!N!Z(X:Y)N:K!A.V K,B.G?CD)N D,G$E S,M"M$TG$Q$I:R$M(K)M(D.F$X:O$R$G(N"K.G"D)C)B?L(E?R,MF.N,O,FG R$O!OG!JU,Q,E Q Q?K(B M!F)Z.C.B B!H,S.T?L.I.V)V(L(S:Q(E CG"Q:C:L!ZI T.L,L)R?YA)A:P!UQ:Q:P)N.E T,U.V,H(B,Z)E$D:R$QY"D"V:F.M"B)Q D?D"X$AS$U$S(C!T"J?L?M:LJ!N,U,X,S:U I$M Y,Y.R.F?D"P"N"H$K?J.U)V)F$W?I?F:M)GQ$W Q?CT(Q.XY!DVQ(Y(B"S.H,V?O Z"T B$Z,A)W"K.A.G.G G:UG,R(A.B F.K"D V?F$D:I,B H$C.O,E"O.T!H.R:W?C!M,H?B(B,G$X(Q?E(YM:R$I!S?SUI)DG,N:W$K,W,W.VH.K(G(O$W(I F)W,G!C.L,L(M)B.WC?R C)R V(R?O:C,U?J(Z$E"E I:H:U.O!C?M$Z?RD!C:Z,XO:O?H.E:T,E F P,X$G E(RD)X?W.S$O(O:F$H"V:K F!X$N!Z$H(H!N(I"R:CLI"U:L:W.W"O(PN)M$K P!Y T G K?W)Z:X V B)V(U?B!X)T,E)C(ZH,H$L"H$Z R"K"U.R!T B!R$V)A?B:LS"W(H"L"SP:KT Q!W!O!J?FW:Y"G!T:M(R)Y!L"Z:L,T C B.E!X!P,C!O:L)A(C?O"I)J)AQF)S)M"X!R?N(F"L?G?X"Z,F:L.IU"E!Q D(H$R!E?N M?F:L OK!S$G!Y)R"L:ZY?O L C?G!J,O:DJ)CE.U,E,D$Z,U V,O)E.I.E.H?MM)D,R E:HD:P:Z,V:P)M OZ:B(N:A)VU.Q:D)MA"O"K)T)X O(R!D,E.P:W R(W,E"Y$F)S$I.L?H:SU$RХRDQTEFDSDBUZASXGWIWGKCLXXGSPH
Ответить