ClassMethod Error(Message As %String) As %String
{
 n $ETRAP
 set $ETRAP="s $ZERROR="""_$G(Message)_""""  set $ECODE=",Uerror,"
}


ClassMethod ReturnSQLResultSet(Sql As %String) As %Library.ResultSet
{
 n SQLCODE,result
 s OLDZTRAP =$ZTRAP, $ZTRAP ="ERR1"

 s result =##class(%Library.ResultSet).%New()
 if result.Prepare(Sql) if result.Execute() Quit result
 if (SQLCODE <  0 ) {
ERR1	 
    d result.Close() k result  s $ZTRAP = OLDZTRAP
    set CODETEXT = $SYSTEM.SQL.SQLCODE(SQLCODE)
    do ..Error("Error "_SQLCODE_": "_CODETEXT_";\nSQL: "_Sql)
 }
}

ClassMethod Exec(Sql As %String, Value As %String =  0 ) As %String
{
 n result s result = ..ReturnSQLResultSet(Sql)
 n return s return = ""
 s OLDZTRAP =$ZTRAP, $ZTRAP ="ERR2"
 if (SQLCODE <  0 ) {
ERR2	 
    d result.Close() k result  s $ZTRAP = OLDZTRAP
    set CODETEXT = $SYSTEM.SQL.SQLCODE(SQLCODE)
    do ..Error("Error "_SQLCODE_": "_CODETEXT_";\nSQL: "_Sql)
    q ""
 }
 s Val = $G(Value) if (Val =  0 )!(Val = "") set return = ""
 if result.Next() set return = $G(result.Data(Val))  
 d result.Close() k result  s $ZTRAP = OLDZTRAP Q return
 
}

 s TTN = "ewrtwert" // не существует
 s sql = "DELETE FROM "_TTN_" WHERE IDDOC = "_IDDOC_ " and META_TABLES = "_TABLEID 
 do ##class(User.CustomDocument).Exec(sql)

    if (SQLCODE =  0 ) {
       s Val = $G(Value) if (Val =  0 )!(Val = "") set return = ""
       if result.Next() set return = $G(result.Data(Val))  
       d result.Close() k result  s $ZTRAP = OLDZTRAP 
    } else {
    ERR2	 
       d result.Close() k result  s $ZTRAP = OLDZTRAP
       set CODETEXT = $SYSTEM.SQL.SQLCODE(SQLCODE)
       do ..Error("Error "_SQLCODE_": "_CODETEXT_";\nSQL: "_Sql)
    }    
/// Лучше if (SQLCODE <  0 ) {