forum.clarionlife.net

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

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)],'') & '|' |
         ,'Ошибка удаления записи',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)],'') & '|' |
         ,'Ошибка создания записи',Icon:Exclamation)
        Return Level:Notify
      Else
        Message('Введено дублирующее или недопустимое значение ' |
         & 'для справочника "' & Loc:FileName & '"|' |
         & Choose(Loc:Pos>0, Loc:Msg[Loc:Pos+1 : Len(Loc:Msg)],'') & '|' |
         ,'Ошибка сохранения записи',Icon:Exclamation)
        Return Level:Notify
      End
    End
    !Stop('FileError=' & FileError() & ' FileErrorCode=' & FileErrorCode())
    RETURN GlobalErrors.ThrowMessage(Fm.GetError(),FileName)

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

Hide:Access:Order.Throw PROCEDURE

ReturnValue          BYTE,AUTO

  CODE
   !------------------- Здесь наша вставка в метод Throw 
      Return Self.FileThrow('Заказ')
  !------------------------------------------------        
  ReturnValue = PARENT.Throw()
  RETURN ReturnValue

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

GetErrorText         PROCEDURE  (*FileManager FM)          ! Declare Procedure
  CODE
! Before Embed Point: %ProcessedCode) DESC(Processed Code) ARG()
  IF FM.GetError() 
     Return( Fm.ThrowMessage(Fm.GetError(),Fm.GetName()))
  END
  Return('')