forum.clarionlife.net

Код: Выделить всё

select ... from ... where

Код: Выделить всё

LoadQueueFromSQL('select ... from ... where',Queue)

Код: Выделить всё

CheckAndLoadSQL Procedure('select ... from ... where',Queue)
  Code
  
  If ПРОВЕРКА ДОСТУПНОСТИ ИСТОЧНИКА
     LoadQueueFromSQL('select ... from ... where',Queue)  
  else
     HALT('У НАС ПРОБЛЕМЫ С ПОДКЛЮЧЕНИЕМ - ВЫРУБАЕМ ПРОГРАММУ !')
  end   

Код: Выделить всё

LocalMessage         PROCEDURE  (STRING Msg,<STRING Header>,<STRING Icon>,<STRING Buttons>,UNSIGNED Default,UNSIGNED Modal) ! Declare Procedure
! Before Embed Point: %DataSection) DESC(Data Section) ARG()
SaveErr   Group,Pre(SE)
Error     Cstring(300)
ErrorCode Long
FileError Cstring(1000)
FileErrorCode Long
          End

ErrLevel  Long,Static,Thread  ! Чтобы не отрабатывать повторную ошибку
FstrCount Long
Q         Queue,Pre(Q)
N         Long
          End
! After Embed Point: %DataSection) DESC(Data Section) ARG()
  CODE
! Before Embed Point: %ProcessedCode) DESC(Processed Code) ARG()
!       Ret#=Message(Msg,Header,Icon,Buttons,Default,Modal)
!       Return Ret#
       Se:ErrorCode = ErrorCode()
       Se:Error = Error()
       Se:FileErrorCode = FileErrorCode()
       Se:FileError = FileError()
       ! Переключаемся на стандартный Message
       System{Prop:MessageHook}=0
       ! Выдаём стандартное сообщение
       Ret#=Message(Msg,Header,Icon,Buttons,Default,Modal)
       !SetErrorCode(0)
       Add(Q) ! Чтобы ErrorCode сбросить в 0
       !SetPath(LongPath())
       N# = Records(Config)
       If ErrorCode() ! Or Inlist(ErrorCode(),90,47)
          Case Message('Нет доступа к серверу или базе данных .|' & |
             Choose(Se:Error & Se:FileError<>'', ' Ошибка ' & Se:Error & ' ' & Se:FileError,''),  |
             'Внимание!',Icon:Question,'Перезапуск|Завершить|Дальше')
          Of 1
            Do RunCommand
          Of 2
            Halt(0)
          Of 3
          END
       End
       !etErrorCode(Se:ErrorCode)
       System{Prop:MessageHook} = Address(LocalMessage)
       Return Ret#

Код: Выделить всё

System{Prop:MessageHook} = Address(LocalMessage)

Код: Выделить всё

FileThrow              FUNCTION(*FIleManager Fm,<String FIleName>),Long   !Вывод сообщений об ошибке

Код: Выделить всё

FileThrow            PROCEDURE  (*FIleManager Fm,<String FileName>) ! Declare Procedure
! Before Embed Point: %DataSection) DESC(Data Section) ARG()
Loc:FileName         Cstring(100)
Loc:FileError        Cstring(500)
Loc:Info             Cstring(100)

A                    Any
Loc:Pos              Long
TextGroup            Group
                      String('unique key|Нарушена уникальность записи')
                      String('table reference|Запись используется в другой таблице БД')
                     End
Loc:Msg              Cstring(100)
! After Embed Point: %DataSection) DESC(Data Section) ARG()
  CODE
! Before Embed Point: %ProcessedCode) DESC(Processed Code) ARG()
    Loc:FileError=Lower(FileError())
    Loop Row# =1 to 1000
      A &= What(TextGroup,Row#)
      If A &= Null
        Loc:Pos = 0
        Break
      End
      Loc:Msg = A
      Loc:Pos = Instring('|',Loc:Msg,1,1)
      If Loc:Pos>0
        If Instring(Loc:Msg[1 : Loc:Pos-1], Loc:FileError,1,1)
          Break
        End
      End
    End
    If Omitted(2)
      GlobalErrors.SetFile(Fm.GetName())
      Loc:FileName = Fm.GetName()
    Else
      GlobalErrors.SetFile(FileName)
      Loc:FileName = FileName
    End
    Case FM.GetError()
    Of Msg:DeleteFailed
      Case FileErrorCode()
      Of 23000
        Message('Ошибка при удалении строки ' |
         & 'из справочника "' & Loc:FileName & '"|' |
         & Choose(Loc:Pos>0, Loc:Msg[Loc:Pos+1 : Len(Loc:Msg)],'') & '|' |
         |!& 'Сообщение сервера:' & FileError()
         ,'Ошибка удаления записи',Icon:Exclamation)
        Return Level:Notify
      End
    Of Msg:AddFailed Orof Msg:PutFailed
      Case FileErrorCode()
      Of 23000
        Message('Введено дублирующее или недопустимое значение ' |
         & 'для справочника "' & Loc:FileName & '"|' |
         & Choose(Loc:Pos>0, Loc:Msg[Loc:Pos+1 : Len(Loc:Msg)],'') & '|' |
         |!& 'Сообщение сервера:' & FileError()
         ,'Ошибка создания записи',Icon:Exclamation)
        Return Level:Notify
      Else
        Message('Введено дублирующее или недопустимое значение ' |
         & 'для справочника "' & Loc:FileName & '"|' |
         & Choose(Loc:Pos>0, Loc:Msg[Loc:Pos+1 : Len(Loc:Msg)],'') & '|' |
         |!& 'Сообщение сервера:' & FileError()
         ,'Ошибка сохранения записи',Icon:Exclamation)
        Return Level:Notify
      End
    End
    !Stop('FileError=' & FileError() & ' FileErrorCode=' & FileErrorCode())
    RETURN GlobalErrors.ThrowMessage(Fm.GetError(),FileName)

Код: Выделить всё

Hide:Access:VID_KONTR.Throw PROCEDURE
ReturnValue          BYTE,AUTO

  CODE
      Return Self.FileThrow('Виды контроля') ! *** Наша вставка *** 
  ReturnValue = PARENT.Throw()
  RETURN ReturnValue