четверг, 18 марта 2010 г.

Глокая Куздра и 1С (для сертифицированных Специалистов 1С =)

Куздра.Глокая = Истина;
Бокры.Бокр = Куздра.Будланула(Бокры.Бокр, Штеко);
Пока Не Бокры.Бокренок.Конец() Цикл
   Бокры.Бокренок = Куздра.Курдячит(Бокры.Бокренок);
   Бокры.Бокренок = Бокры.СледующийБокренок();
КонецЦикла;

Или, в более близком мне виде:

Agent Kouzdra
Option Declare
Option Base 0
Use "C:/KouzdraClasses/GeneralKouzdra.lss"

Sub Initialize

Dim S As New NotesSession
Dim Kz As New Kouzdra (Nothing)
Dim Bkr As New Bokr (Nothing)

On Error GoTo ErrHandle

Kz.Gloky = True

If Kz.CheckShteko Then
    Set Bkr = Kz.Boudle(Bkr)
    ForAll Bokrling In Bkr.Bokrlings
       Set Bokrling = Kz.DoCoord(Bokrling)
    End ForAll
Else
    MsgBox {Бокр не будлующийся. Проверьте условия вызова куздры},,{Штатный останов процедуры}
End If

GoTo Clear
Exit Sub

ErrHandle:
MsgBox {Ошибка }& ErrNumber &{:}& ErrText &{ в агенте Kouzdra в строке }& Errl & {, обратитесь к администратору системы!},,{Нештатная ситуация!}
Clear:
If Not Kz Is Nothing Then Delete Kz
If Not Bkr Is Nothing Then Delete Bkr
If Not S Is Nothing Then Delete S
End Sub

=)

Комментариев нет:

Отправить комментарий